Guest User

Untitled

a guest
Mar 13th, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1.  
  2. 10 REM DISPLAY 64 RANDOM NUMBERS < 100 ON 8 LINES
  3. 20 LET I=0
  4. 30 PRINT RND (100)
  5. 40 LET I=I+1
  6. 50 IF I/8*8=I THEN PRINT
  7. 60 IF I<64 THEN GOTO 30
  8. 70 END
  9.  
  10.  
  11. :var I
  12. :include "BasicLib.fs"
  13. : main
  14. : line10
  15. : line20 0 I !
  16. : line30 100 rnd print cr
  17. : line40 I @ 1 + I !
  18. : line50 I @ 8 / 8 * I @ = if cr then
  19. : line60 I @ 64 < if ' line30 goto then
  20. : line70 halt
  21. halt
Add Comment
Please, Sign In to add comment