Colour bars/Display: Difference between revisions
Content added Content deleted
m ({{omit from|GUISS}}) |
|||
Line 108:
[quit] close #main:end
</lang>
=={{header|Locomotive Basic}}==
[[File:CPC color bars.png|thumb|right]]
Show the default MODE 0 palette (includes two blinking colors at the end):
<lang locobasic>10 MODE 0
20 FOR X=0 TO 15
30 ORIGIN X*40,0
40 GRAPHICS PEN X
50 FOR z=0 TO 39 STEP 4:MOVE z,0:DRAW z,400:NEXT
60 NEXT
70 PEN 1:CALL &bb06 ' wait for key press</lang>
=={{header|PicoLisp}}==
| |||