Colour bars/Display: Difference between revisions
no edit summary
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: future-proof for 5.36, tidy code) |
No edit summary |
||
Line 477:
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}}===
|