' Fichier eu sur : http://miklp.free.fr
SCREEN 12: RANDOMIZE TIMER: CLS
FOR k = 1 TO 13000
COLOR INT(RND * 16): CIRCLE (RND * 640, RND * 480), RND * 100
IF INKEY$ = CHR$(27) THEN EXIT FOR
NEXT
FOR l = 1 TO 97000
d = RND * 640: e = RND * 480
COLOR INT(RND * 16): LINE (d, e)-(d + 3, e + 3), , BF
IF INKEY$ = CHR$(27) THEN EXIT FOR
NEXT
FOR k = 1 TO 9000
COLOR INT(RND * 16): LINE (RND * 640, RND * 480)-(RND * 640, RND * 480), , B
IF INKEY$ = CHR$(27) THEN EXIT FOR
NEXT
FOR k = 1 TO 1400
COLOR INT(RND * 16): LINE (RND * 640, RND * 480)-(RND * 640, RND * 480), , BF
IF INKEY$ = CHR$(27) THEN EXIT FOR
NEXT
FOR i = 1 TO 1600
x = RND * 640: y = RND * 480
couleur = INT(RND * 16)
CIRCLE (x, y), INT(RND * 80) + 5, couleur
PAINT (x, y), couleur, couleur
IF INKEY$ = CHR$(27) THEN EXIT FOR
NEXT
FOR k = 1 TO 13500
COLOR INT(RND * 16): LINE (RND * 640, RND * 480)-(RND * 640, RND * 480)
IF INKEY$ = CHR$(27) THEN EXIT FOR
NEXT
FOR l = 1 TO 88000
d = RND * 640: e = RND * 480
COLOR 0: LINE (d, e)-(d + 3, e + 3), , BF
IF INKEY$ = CHR$(27) THEN EXIT FOR
NEXT
DO: LOOP UNTIL INKEY$ = CHR$(27)