' Ce programme n'est vraiment pas pr‚cis !!!
' Fichier venant du : http://www.michaelperrin.fr.fm
SCREEN 12
WINDOW SCREEN (1, 126)-(254, 1)
a = 1
b = 63
c = 63
d = 254
z = 63
PAINT (7, 7), 1
DO
COLOR 14
LINE (a, z)-(126, c + 2)
LINE (a, z)-(126, b + 5)
LINE (d, z)-(126, c + 2)
LINE (d, z)-(126, b + 5)
LINE (d - 126, 126)-(1, c + z)
LINE (a + 126, 126)-(254, c + z)
LINE (a + 126, 1)-(254, b - z)
LINE (d - 126, 1)-(1, b - z)
d = d - 3
a = a + 3
IF b < 120 THEN b = b + 3
IF c > 0 THEN c = c - 3
LOOP WHILE d > 127 AND INKEY$ <> CHR$(127)
DO
LOOP UNTIL INKEY$ = CHR$(27)