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 |