7 CLS
SCREEN 9
RANDOMIZE TIMER
COLOR 0, 0
RANDOMIZE TIMER
COLOR 0
FOR y = 1 TO 500
PSET (INT(RND * 640), INT(RND * 350)), 15
NEXT y

CIRCLE (500, 100), 15, 14
PAINT (500, 100), 14, 14


'border`

light = 12
dark = 4
LINE (0, 0)-(640, 350), dark, B
LINE (10, 10)-(630, 340), dark, B
PAINT (2, 2), light, dark
'border`



'PAINT (1, 1), 0, 0
'big ass text`
S$ = "S4 BM33,28 C4 R50 D12 L40 D27 R40 D36 L50 U12 R40 U13 L40 U50 BR65"
P$ = "C4 R50 D37 L40 D37 L10 U74 BD10 BR10 R30 D18 L30 U18 BU10 BR75"
A$ = "C4 R10 F20 D54 L10 U30 L30 D30 L10 U54 E20 bd15 r10 f10 d10 l30 u10 e10 bu15 bl20 br65 "
C$ = "C4 R50 D10 L40 D54 R40 D10 L50 U74 BR65"

q$ = "C4 bL74 bd215 r50 d70 F10 G10 H15 L35 U74 BD10 BR10 R30 D50 H15 G10 F5 L10 U50 BU11 BR55"
U$ = "C4 D75 R50 U75 L10 D65 L30 U65 L10 BR65"
E$ = "C4 R50 D15 L40 D15 R30 D15 L30 D15 R40 D15 L50 U75 BR65"
S2$ = "C4 R50 D12 L40 D27 R40 D36 L50 U12 R40 U12 L40 U50 BR65"
T$ = "C4 R50 D10 L20 D65 L10 U65 L20 U10 BM 5,5"

DRAW "C2 X" + VARPTR$(S$)
DRAW "C2 X" + VARPTR$(P$)
DRAW "C2 X" + VARPTR$(A$)
DRAW "C2 X" + VARPTR$(C$)
DRAW "C2 X" + VARPTR$(E$)
DRAW "C2 X" + VARPTR$(q$)
DRAW "C2 X" + VARPTR$(U$)
DRAW "C2 X" + VARPTR$(E$)
DRAW "C2 X" + VARPTR$(S2$)
DRAW "C2 X" + VARPTR$(T$)
co = 4
cob = 12
cob2 = 0
'PAINT (1, 1), 1, CO
PAINT (120, 40), cob2, co
PAINT (190, 55), cob2, co
PAINT (300, 260), cob2, co
PAINT (40, 40), cob, co
PAINT (105, 40), cob, co
PAINT (176, 40), cob, co
PAINT (236, 48), cob, co
PAINT (299, 48), cob, co
PAINT (299, 246), cob, co
PAINT (356, 246), cob, co
PAINT (425, 252), cob, co
PAINT (487, 252), cob, co
PAINT (558, 246), cob, co
SLEEP