Colour bars/Display: Difference between revisions
Content added Content deleted
m ({{omit from|GUISS}}) |
|||
| Line 108: | Line 108: | ||
[quit] close #main:end |
[quit] close #main:end |
||
</lang> |
</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}}== |
=={{header|PicoLisp}}== |
||