'Fichier venant du www.michaelperrin.fr.fm
'e-mail : miklp@free.fr

CLS
SCREEN 12
a = 0
b = 0
c = 0
COLOR 12: LOCATE 10, 50: PRINT "Red :      + :9   - :7"
COLOR 10: LOCATE 13, 50: PRINT "Green :    + :6   - :4"
COLOR 9: LOCATE 16, 50: PRINT "Blue :     + :3   - :1"
DO
PALETTE 1, 65536 * c + 256 * b + a
ab$ = INKEY$
IF ab$ = "7" AND a > 1 THEN a = a - 1: LOCATE 10, 56: COLOR 12: PRINT a
IF ab$ = "9" AND a < 63 THEN a = a + 1: LOCATE 10, 56: COLOR 12: PRINT a

IF ab$ = "4" AND b > 1 THEN b = b - 1: LOCATE 13, 56: COLOR 10: PRINT b
IF ab$ = "6" AND b < 63 THEN b = b + 1: LOCATE 13, 56: COLOR 10: PRINT b

IF ab$ = "1" AND c > 1 THEN c = c - 1: LOCATE 16, 56: COLOR 9: PRINT c
IF ab$ = "3" AND c < 63 THEN c = c + 1: LOCATE 16, 56: COLOR 9: PRINT c


LINE (1, 1)-(300, 480), 1, BF
LOOP UNTIL ab$ = CHR$(27)