Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 REM DISPLAY 64 RANDOM NUMBERS < 100 ON 8 LINES
- 20 LET I=0
- 30 PRINT RND (100)
- 40 LET I=I+1
- 50 IF I/8*8=I THEN PRINT
- 60 IF I<64 THEN GOTO 30
- 70 END
- :var I
- :include "BasicLib.fs"
- : main
- : line10
- : line20 0 I !
- : line30 100 rnd print cr
- : line40 I @ 1 + I !
- : line50 I @ 8 / 8 * I @ = if cr then
- : line60 I @ 64 < if ' line30 goto then
- : line70 halt
- halt
Add Comment
Please, Sign In to add comment