Guru
Joined: 11/02/2018
Location: AustraliaPosts: 1180
| Posted: 05:33am 27 Jul 2022 |
And another, not fast just different.
Saved 113 bytes
> LIST
a%=31 :c%=0 :Print Bin$(a%,8)
Timer =0:For n=0 To 7:c%=c%<<1:c%=c%+(a% And 1):a%=a%>>1:Next :Print Timer
Print Bin$(c%,8)
> RUN
00011111
0.279
11111000
> ? mm.info(cpuspeed)
378000000
>