CLS
SCREEN 12
RANDOMIZE TIMER
vierkant:
WHILE INKEY$ = ""
FOR i = 1 TO 36
DRAW "M320,240 C" + STR$(INT(RND * 16)) + "U100 R100 D100 L100 TA" + STR$(i * 10)
FOR w = 1 TO 500: NEXT
NEXT i
WEND
driehoek:
CLS
WHILE INKEY$ = ""
FOR i = 1 TO 36
DRAW "M320,240 C" + STR$(INT(RND * 16)) + "H100 R200 G100 TA" + STR$(i * 10)
FOR w = 1 TO 500: NEXT
NEXT i
WEND