DECLARE SUB playa ()
DECLARE SUB playb ()
DECLARE SUB playc ()

CLS
SCREEN 12
PRINT "Appuyez sur une touche pour arrˆter"

10
DO
RANDOMIZE TIMER
a% = RND * 7
b% = a% + 5
c% = b% + 2
IF a% = 1 THEN a$ = "A"
IF a% = 2 THEN a$ = "B"
IF a% = 3 THEN a$ = "C"
IF a% = 4 THEN a$ = "D"
IF a% = 5 THEN a$ = "E"
IF a% = 6 THEN a$ = "F"
IF a% = 7 THEN a$ = "G"

IF b% = 1 THEN b$ = "A"
IF b% = 2 THEN b$ = "B"
IF b% = 3 THEN b$ = "C"
IF b% = 4 THEN b$ = "D"
IF b% = 5 THEN b$ = "E"
IF b% = 6 THEN b$ = "F"
IF b% = 7 THEN b$ = "G"
              
IF c% = 1 THEN c$ = "A"
IF c% = 2 THEN c$ = "B"
IF c% = 3 THEN c$ = "C"
IF c% = 4 THEN c$ = "D"
IF c% = 5 THEN c$ = "E"
IF c% = 6 THEN c$ = "F"
IF c% = 7 THEN c$ = "G"

f% = RND * 3
IF f% = 1 THEN PLAY a$: PLAY b$: PLAY c$
IF f% = 2 THEN PLAY b$: PLAY a$: PLAY c$
IF f% = 3 THEN PLAY c$: PLAY a$: PLAY b$

LOOP WHILE INKEY$ = ""

SUB playa

PLAY a$
PLAY b$
PLAY c$

END SUB

SUB playb

PLAY b$
PLAY a$
PLAY c$

END SUB

SUB playc

PLAY c$
PLAY b$
PLAY a$

END SUB