10 REM *************
20 REM * PARACHUTE *
30 REM *************
40 S=0
50 GOSUB 610
60 H=H-1
70 IF H=0 THEN LOCATE 1,1:PRINT M$;:HH=37:H=37
80 PEN 1
90 LOCATE H,1
100 PRINT H$;
110 D$=INKEY$
120 IF D$="" THEN 170
130 IF PV>18 THEN 170
140 IF SP=1 THEN OP=1:GOTO 160
150 SP=1
160 IF OP=0 THEN PV=1:PH=H+1.5
170 IF SP=0 THEN 420
180 IF OP=0 THEN PV=PV+1
190 IF OP=1 THEN PV=PV+0.5:PH=PH-0.5
200 IF PV>24 OR PH<1 THEN 440
210 IF OP=1 THEN 310
220 LOCATE HO,V
230 PRINT N$;
240 V=PV
250 HO=PH
260 PEN 2
270 LOCATE HO,V
280 PRINT C$;
290 FOR I=1 TO 120:NEXT I
300 GOTO 60
310 PEN 2
320 LOCATE HO,V
330 PRINT N$;
340 LOCATE HO,V+1
350 PRINT N$;
360 V=PV
370 HO=PH
380 LOCATE HO,V
390 PRINT P$;
400 LOCATE HO,V+1
410 PRINT Q$;
420 FOR I=1 TO 120:NEXT I
430 GOTO 60
440 IF INT (HO+0.5)<>PA THEN 500
450 FOR I=1 TO 500
460 NEXT I
470 S=S+1
480 GOSUB 610
490 GOTO 60
500 CLS
510 PEN 3
520 LOCATE 15,10
530 PRINT "SCORE :";S;
540 LOCATE 15,14
550 PRINT "UNE AUTRE ?";
560 D$=INKEY$
570 IF D$="" THEN 560
580 IF D$<>"N" AND D$<>"n" THEN RUN
590 CLS
600 END
610 INK 0,20
620 INK 1,2
630 INK 2,16
640 INK 3,0
650 BORDER 22
660 MODE 1
670 CLS
680 SYMBOL 240,20,20,28,28,62,73,93,93
690 SYMBOL 241,0,0,0,28,62,127,127,65
700 SYMBOL 242,93,93,73,62,28,28,20,20
710 SYMBOL 243,63,1,15,31,31,63,63,31
720 SYMBOL 244,248,0,128,224,255,255,240,192
730 SYMBOL 245,0,0,12,12,252,248,0,0
740 N$=CHR$(32)
750 M$=N$+N$+N$
760 H$=CHR$(243)+CHR$(244)+CHR$(245)+N$
770 Z=0
780 C$=CHR$(240)
790 P$=CHR$(241)
800 Q$=CHR$(242)
810 A$=CHR$(143)
820 H=37
830 PA=INT(RND(1)*31)+1
840 LOCATE PA,25
850 PEN 3
860 PRINT A$;
870 SP=0
880 OP=0
890 PH=0
900 PV=0
910 CC=2
920 V=1
930 HO=1
940 RETURN