Colour bars/Display: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: future-proof for 5.36, tidy code) |
No edit summary |
||
Line 477: | Line 477: | ||
End</syntaxhighlight> |
End</syntaxhighlight> |
||
==={{header|IS-BASIC}}=== |
|||
<syntaxhighlight lang="is-basic">100 GRAPHICS LORES 16 |
|||
110 SET PALETTE BLACK,RED,GREEN,BLUE,MAGENTA,CYAN,YELLOW,WHITE |
|||
120 FOR I=1 TO 7 |
|||
130 CALL BAR(I) |
|||
140 NEXT |
|||
150 DEF BAR(C) |
|||
160 SET INK C |
|||
170 PLOT C*160,0;C*160,719;C*160+152,719;C*160+152,0;C*160,0 |
|||
180 PLOT C*160+16,16,PAINT |
|||
190 END DEF</syntaxhighlight> |
|||
==={{header|Liberty BASIC}}=== |
==={{header|Liberty BASIC}}=== |