24 lines
464 B
Text
24 lines
464 B
Text
SW_MAXIMIZE = 3
|
|
SYS "ShowWindow", @hwnd%, SW_MAXIMIZE
|
|
VDU 26
|
|
|
|
W% = @vdu%!208 * 2
|
|
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
|
|
|
|
Y% = H%*4
|
|
FOR P% = 1 TO 4
|
|
Y% -= H%
|
|
FOR X% = 0 TO W% STEP 4*P%
|
|
C% = (C% + 1) MOD 8
|
|
GCOL C%
|
|
RECTANGLE FILL X%, Y%, 2*P%, H%
|
|
NEXT
|
|
NEXT P%
|