10 MODE 1:INK 1,26:INK 2,0:PRINT," VIVE LE VENT ":FOR a=1 TO 7:ORIGIN 0,0,34+a*64,82+a*64,18,270:CLG 1:LOCATE 4+a*4,25:PRINT CHR$(48+a):NEXT:FOR a=140 TO 420 STEP 64:ORIGIN 0,0,a-(a>250)*64,32+a-(a>250)*64,120,272:CLG 2:NEXT:ORIGIN 0,0,100,535,382,288:CLG
20 INK 0,11:WINDOW 15,26,3,8:PRINT"3 3 3  3 3 33 5 1 2 3   4 4 4  3 3 32 2 2 3 2  5";:WHILE 1:a$="":WHILE a$>"7" OR a$<"1":a$=INKEY$:t=(t-(a$=" "))MOD 4:WEND:SOUND 3,VAL("&"+MID$("EFD5BEB39F8E86",VAL(a$)*2-1,2))*(t+1),20,15:BORDER RND*28:WEND:'P.MOULIN