1 DIM s(999):INK 0,0:MODE 0:FOR a=1 TO 6:READ c(a):INK a,c(a):ORIGIN 0,0,a*96-64,a*96+20,9,288:CLG a:WINDOW#a,a+1,20,9-a,9-a:PRINT#1,a;:NEXT:WHILE INKEY$<>" ":WHILE o=0:s(d)=INT(RND*6)+1:FOR p=0 TO d:t=s(p):INK t,26:SOUND 1,t*150,20,15:FOR a=1 TO 250:NEXT
2 INK t,c(t):NEXT:PRINT#6,"POINT";d:d=d+1:p=0:WHILE p<d AND o=0:a$="":WHILE a$="":a$=INKEY$:WEND:s=MAX(1,MIN(ASC(a$)-48,6)):INK s,26:SOUND 1,s*150,20,15:o=s-s(p):p=p+1:INK s,c(s):WEND:FOR a=0 TO 999:NEXT:WEND:PRINT#3," PERDU";:WEND:RUN:DATA 24,9,7,11,5,13