Colour pinstripe/Display: Difference between revisions
Colour pinstripe/Display in BASIC256
m (→{{header|Phix}}: added syntax colouring, marked p2js compatible) |
(Colour pinstripe/Display in BASIC256) |
||
Line 453:
Gdip_Shutdown(pToken)
ExitApp</lang>
=={{header|BASIC256}}==
{{trans|Yabasic}}
<lang BASIC256>w = 640 : h = 480
graphsize w, h
dim k = {black, red, green, blue, purple, cyan, yellow, white}
h /= 4
for i = 1 to 4
col = 0
y = (i-1) * h
for x = 1 to w step i
if col mod 8 = 0 then col = 0
colour k[col]
rect (x, y, x + i, y + h)
col += 1
next x
next i</lang>
=={{header|BBC BASIC}}==
| |||