Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 0 REM LEGO
- 1 GR:ONERR GOTO 7:C=13
- 2 READ X,Y,Z,D:FOR I=X TO Y
- 4 IF D=0 THEN PLOT I,Z
- 5 IF D=1 THEN PLOT Z,I
- 6 NEXT:GOSUB 8:GOTO 2
- 7 RESTORE:GOTO 2
- 8 C=C+1:IF C > 13 THEN C=6
- 9 COLOR=C:RETURN
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement