19 lines
346 B
Text
19 lines
346 B
Text
SW_MAXIMIZE = 3
|
|
SYS "ShowWindow", @hwnd%, SW_MAXIMIZE
|
|
VDU 26
|
|
|
|
W% = @vdu%!208 / 4
|
|
H% = @vdu%!212 * 2
|
|
|
|
COLOUR 1,9
|
|
COLOUR 2,10
|
|
COLOUR 3,12
|
|
COLOUR 4,13
|
|
COLOUR 5,14
|
|
COLOUR 6,11
|
|
COLOUR 7,15
|
|
|
|
FOR C% = 0 TO 7
|
|
GCOL C%
|
|
RECTANGLE FILL C%*W%, 0, W%, H%
|
|
NEXT
|