Colour bars/Display: Difference between revisions

Content added Content deleted
Line 316: Line 316:
20 FOR x=0 TO 15
20 FOR x=0 TO 15
30 ORIGIN x*40,0
30 ORIGIN x*40,0
40 FOR z=0 TO 39 STEP 4:MOVE z,0,x:DRAW z,400:NEXT z
40 FOR z=0 TO 39 STEP 4:MOVE z,0:DRAW z,400,x:NEXT z
50 NEXT x
50 NEXT x
60 CALL &bb06 ' wait for key press</lang>
60 CALL &bb06 ' wait for key press</lang>