LEGO.BAS

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