andrewb

LEGO.BAS

Oct 25th, 2020
814
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 0 REM LEGO
  2. 1 GR:ONERR GOTO 7:C=13
  3. 2 READ X,Y,Z,D:FOR I=X TO Y
  4. 4 IF D=0 THEN PLOT I,Z
  5. 5 IF D=1 THEN PLOT Z,I
  6. 6 NEXT:GOSUB 8:GOTO 2
  7. 7 RESTORE:GOTO 2
  8. 8 C=C+1:IF C > 13 THEN C=6
  9. 9 COLOR=C:RETURN
  10. 20 DATA 0,10,0,1,0,3,10,0,5,8,4,0,5,8,7,0,5,8,10,0,5,9,5,1,10,13,4,0,10,13,10,0,4,10,10,1,8,9,13,1,12,13,7,0,15,18,4,0,15,18,10,0,5,9,15,1,5,9,18,1
RAW Paste Data