# Démo interactive : attraper les étoiles avec les touches 5 et 8.
1 REM ZX81.SCHURGER.ORG
5 RAND
10 LET S=0
20 LET R=0
30 LET P=14
40 CLS
50 PRINT AT 0,0;"~ ATTRAPE L ETOILE ~  5=< 8=>"
60 PRINT AT 1,0;"SCORE 0  RATEES 0"
70 PRINT AT 21,P;"~   ~"
100 LET X=INT (RND*32)
110 FOR Y=3 TO 20
120 PRINT AT Y,X;"*";AT Y-1,X;" "
130 LET K=CODE INKEY$
140 IF K=33 AND P>0 THEN GOSUB 300
150 IF K=36 AND P<29 THEN GOSUB 400
160 NEXT Y
170 PRINT AT 20,X;" "
180 IF X>=P AND X<=P+2 THEN GOTO 250
190 LET R=R+1
200 PRINT AT 1,0;"SCORE ";S;"  RATEES ";R
210 IF R=5 THEN GOTO 500
220 GOTO 100
250 LET S=S+1
260 PRINT AT 1,0;"SCORE ";S;"  RATEES ";R
270 GOTO 100
300 PRINT AT 21,P+2;" "
310 LET P=P-1
320 PRINT AT 21,P;"~   ~"
330 RETURN
400 PRINT AT 21,P;" "
410 LET P=P+1
420 PRINT AT 21,P;"~   ~"
430 RETURN
500 PRINT AT 10,6;"~ PARTIE TERMINEE ~"
510 PRINT AT 12,6;"SCORE FINAL: ";S
520 PRINT AT 14,4;"UNE TOUCHE POUR REJOUER"
530 IF INKEY$="" THEN GOTO 530
540 GOTO 10