andrewb

DEEDEE.BAS

Oct 18th, 2020 (edited)
361
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 0 REM DEEDEE
  2. 1 GR:HOME:C=1:ONERR GOTO 2
  3. 2 RESTORE
  4. 3 READ A,B
  5. 4 COLOR=INT(RND(C)*15):C=C+1:IF C>15 THEN C=1
  6. 5 PLOT A,B: PLOT A+12,B
  7. 6 GOTO 3
  8. 9 DATA 1,1,1,2,1,3,1,4,1,5,1,6,2,1,2,6,3,2,3,2,3,3,3,4,3,5,5,3,5,4,5,5,5,6,6,2,6,4,6,6,7,3,7,4,7,6,9,3,9,4,9,5,9,6,10,2,10,4,10,6,11,3,11,4,11,6
Add Comment
Please, Sign In to add comment