0 '
10 '	TIME PILOTE
20 '
30 '	by Phil ILLOUL
40 '
50 'for use with M.S.X. 64K
60 '
70 '	(c) Y.P.S. 1985
80 '
90 DEFINTA-Z:u=1
100 GOSUB5520
110 GOSUB5650
120 A=rNd(1)*4:B=rnd(1)*4:C=RND(1)*4
130 FORDI=1T010
140 ONA6010160,170,180
150 D=D+(d>u)*U:g0T0190
160 E=E-(E<174-U)*U:goto190
170 D=D-(d<174-U)*U:goto190
180 E=E+(E>U)*U
190 ONbgoto210,220,230
200 F=F+(F>U)*U:goto240
210 g=g-(g<174-U)*U:goto240
220 F=F-(F<174-U)*u:goto240
230 g=g+(g>U)*U
240 oncgoto260,270,280
250 H=H+(H>U)*U:goto290
260 J=J-(J<174-U)*U:goto290
270 H=H-(H(174-U)*u:goto290
280 j=j+(J>U)*U
290 S=STICK(ST):ONSgoto310,300,320,300,330,300,340,300
300 s=0:oNSgoto310,350,320,350,330,350,340,350
310 K=6:L=174-U:D=D-(D<L)*U:F=F-(F<L)*U:H=H-(H<L)*U:o=o-(o<L)*U:Q=q-(Q<L)*U:goto350
320 K=7:L=2+U:E=E+(E>L)*U:g=G+(G)L)*U:J=J+(J>L)*U:P=P+(P>L)*U:R=R+(R>L)*U:goto350
330 K=8 L=2+U:D=D+(D>L)*U:F=F+(F>L)*U:H=H+(H>L)*u:0=0+(0>L)*U:Q=q+(Q>L)*U:goto350
340 K=9:L=174-U:E=E-(E<L)*U:G=g-(g<L)*U:J=J-(J<L)*U:P=P-(p<L)*U:R=R-(R<L)*u
350 IFS<>0THENSS=S
360 oNTgOT0430,440,450,460
370 IFNOT TT ANDSTRIG(ST)THENT=K-5:TT=1:sound13,3:VPOKE6927,6:ontgoto390,400,410,420
380 goto480
390 p=76:P=89:goto480
400 p=89:P=99:goto480
410 p=99:P=89:goto480
420 p=89:P=76:goto480
430 p=p-8:IFO<0THEN470ELSE480 
440 P=P+6:IFP>188THEN470ELSE480 
450 o=o+8:IFO>188THEN470ELSE480 
460 p=P-6:IFP<0THEN470ELSE480
470 P=255:o=P:T=0:TT=00:vP0KE6927,0
480 ONMgoto500,510,520,530
490 m1=m1+1:0NM1goto540,590,640,690 
500 q=q-8:IFq<8THEN490ELSE700
510 P=P+8:IFP>188THEN490ELSE700 
520 q=q+8:IFq>188THEN490ELSE700 
530 r=R-6:IFR<8THEN490ELSE700
540 onagoto560,570,580
550 R=E+4:q=d-1:M=1:goto500
560 q=d+4 R=E+17:M=2:goto510
570 R=E+4:q=d+17:0=3:goto520
580 R=E-1:q=D+4:M=4:goto530
590 onbgoto610,620,630
600 R=g+4:q=F-1:o=1:goto500
610 Q=F+4:R=g+17:m=2:goto510
620 R=g+4:q=F+17:m=3:goto0520
630 R=g-1:q=F+4:m=4:goto530
640 oNCgoto660,670,680
650 R=J+4:q=H-1:M=1:goto500
660 q=h+4:R=J+17:m=2:goto510
670 r=J+4:q=H+17:m=3:goto520
680 r=J-1:q=H+4:M=4:goto530
690 q=0:R=q:M=0:M1=m
700 VpoKE6932,D:VPOKE6933,E,VP0KE6934,A*4:VPOKE6916,F,VPOKE6917,g:VPOKE6918,B*4:VPOKE6920,H:VP0KE6921,J:VP0KE6922,C*4:VP0KE6914,K*4:vP0KE6924,0:vPOK E6925,P:VP0KE6936,Q:VP0KE6937,R
710 SPRITEON
720 NEXT:goto120
730 A=RND(1)*4:B=Rnd(1)*4:C=RND(1)*4 
740 FORDI=1T010
750 oNa goto770,780,790
760 d=D+(D>U)*U:goto800
770 E=E-(E<174-U)*u:goto800
780 D=D-(d<178-U)*U:goto800
790 E=E+(E>U)*U
800 on b goto 820,830,840
810 F=F+(F>u>>*u:goto850
820 g=g-(g<174-u)*U:goto850
830 F=F-(F<178-U)*U:goto850
840 G=g+(g>U)*U
850 on c goto 870,880,890
860 H=H+(h>U)*U:goto900
870 J=J-(J<174-U)*U:goto900
880 H=H-(H<178-U)*U:goto900
890 J=J+(J>U)*U
900 S=STICK(ST):ON S GOTo920,910,930,910,940,910,950,910
910 S=0:ON S goto920,960,930,960,940,960,950,960
920 K=6:L=178-U:D=D-(D<L)*u:F=F-(F<L)*u:H=H-(H<L)*U:o=o-(o<L)*u:q=q-(q<L)*U:goto960
930 K=7:L=-1+U:E=E+(E>l)*U:g=g-(g>u)*u:J=J+(J>L)*u:P=P+(P>L)*u:R=R+(R>L)*u:goto960
940 K=8:L=-1+u:D=D+(D>L)*u:F=F+(F>l)*u:H=H+(H>L)*U:o=o+(o>L)*U:Q=Q+(q>l)*U:goto960
950 K=9:L=174-U:E=E-(e<L)*U:g=g-(g<L)*U;:J=J-(J<L)*U:P=p-(p<L)*U:R=R-(r<L)*u
960 IFS<>0THENS$=S
970 on t goto1040,1050,1060,1070
980 IFNOT TT ANDSTRIO(sT)THENT=K-5:TT=1:SOUND13,3:VPOKE6927,15:on t goto1000,1010,1020,1030
990 goto1090
1000 o=76:P=89:goto1090
1010 o=89:P=99:GOT01090
1020 o=99:P=89:goto1090
1030 o=89:P=76:goto1090
1040 o=o-8:IFO<0THEN1080ELsE1090 
1050 P=P+8:IFP>188THEn1080ELSE1090 
1060 o=o+8:IFO>188THEN1080ELSE1090 
1070 P=P-8:IFp<OTHEN1000ELSE1090
1080 P=255:o=P:T=0:tt=0:VP0KE6927,0 
1090 ONMGoto1120,1130,1140,1150
1100 m1=M1+1:IFM1>3THENM1=1
1110 on m goto 1160,1230,1300
1120 q=q-8:IFQ<8THEN1100ELSE1370
1130 R=R+8:IFR>187THEN1100ELSE1370 
1140 q=q+8:IFQ>187THEN1100ELSE1370 
1150 R=R-8:IFR<8THEN1100ELSE1370
1160 IFABS(86-D)<ABS(86-E)THEN1200 
1170 IFD<86THEN1190
1180 R=E+4:Q=D-1:M=1:GOTo1370
1190 R=E+4,Q=D+17:M=3:goT01370
1200 IFE<86THEN1220
1210 R=E-1:q=d+4:M=4:goto1370
1220 Q=D+4:R=E+17:0=2;GOT01370
1230 IFABS(86-F)<ABS(86-g)THEN1270 
1240 IFF<86THEN1260
1250 R=g+4:q=F-1:m=1:goto1370
1260 R=g+4:Q=F+17:M=3:GOT01370
1270 IFG<86THEN1290
1280 R=G-1:q=F+4:M=4:GOTo1370
1290 q=F+4:R=g+17:m=2:goto1370
1300 IFABS(86-H)<ABS(86-J)THEN1340 
1310 IFH<86THEN1330
1320 R=J+4:q=H-1:M=1:goto1370
1330 R=J+4:Q=H+17:M=3:goto1370
1340 IFJ<86THEN1360
1350 R=J-1:Q=H+4:m=4:GOTo1370
1360 q=H-4:R=J+17:M=2
1370 IFE<=86THENAA=16ELSEAA=20
1380 IFG<=86THENBB=16ELSEBB=20
1390 IFJ<=86THENCC=16ELSECC=20
1400 VPOKE6932,D:VPOKE6933,E:VPOKE6934,AA:VPOKE6916,F:VP0KE6917,13:VPOKE691 8,88:VP0KE6920,H:VPOKE6921,J:VPOKE6922,CC:VPOKE6914,k*4:VPOKE6924,0:VP0KE6 925,P:VPOKE6936,0:VPOKE6937,R
1410 SPRITEON
1420 NEXT:goto730
1430 A=RND(1)*4:B=RND(1)*4:C=RND(1)*4 
1440 FORDI=1to10
1450 on a goto1470,1480,1490
1460 d=d-d:goto1500 
1470 E=E+u:goto1500 
1480 D=d+u:goto1500 
1490 E=E-u
1500 oN B goto1520,1530,1540
1510 F=F-U:goto1550 
1520 g=g+U:goto1550 
1530 F=F+U:goto1550 
1540 G=G-U
1550 on c goto1570,1580,1590
1560 H=H-u:goto1600 
1570 J=J+U:GOT01600 
1580 H=H+U:GOT01600 
1590 J=J-U
1600 S=STICK(ST):ON S GOTo1620,1610,1630,1610,1640,1610,1650,1610
1610 S=0:on s goto1620,1660,1630,1660,1640,1660,1650,1660
1620 k=6:D=D+U:F=F+U:H=H+U:o=o-(o<187-U)*U:Q=q-(R<189-U)*U:goto1660
1630 K=7:E=E-U:g=h-U:J-J-U:P=P+(P>6+U)*U:R=R+(R>2+U)*U:goto1660
1640 K=8:D=D-U:F=F-U:H=H-U:o=o+(o>6+U )*U:Q=Q+(Q>2)*u:goto1660
1650 K=9:E=E+U:g=g+u:J=J+U:P=P-(p<187)*U:R=R-(R<189-U)*U
1660 IFS<>0THENS$=S
1670 oN T goto01740,1750,1760,1770
1680 IFNOT TT ANDSTRIG(ST)THENT=K-5:TT=1:S0UND13,3:VPOKE6927,2:ONTGOT0o1700,1710,1720,1730
1690 GOTo1790
1700 o=76:P=89:goto1790
1710 o=89:P=99:goto1790 
1720 o=99:P=89:goto1790 
1730 o=89:P=76:goto1790 
1740 o=o-8:IFo<0THEN1780ELSE1790
1750 P=P+8:IFP>188THEN1780ELSE1790 
1760 o=o+8:1Fo>188THEN1780ELSE1790 
1770 P=P-8:IFP<0THEN1780ELSE1790
1780 P=255:o=P:T=0:TT=0:VPOKE6927,0
1790 on m goto1820,1830,1840,1850
1800 M1=M1+1:IFM1>3THENM1=1
1810 on m goto1860,1930,2000
1820 q=q-8:IFq<8then1800ELSE2070
1830 R=R+8:IFR>188THEN1800ELSE2070 
1840 Q=q+8:IFQ>188THEN1800ELSE2070 
1850 R=R-8:IFR<8THEN1800ELSE2070
1860 IFABS(86-D)<ABS(86-E)THEN1900 
1870 IFD<86THEN1890
1880 a=0:R=E+4:q=d-1:m=1:goto2070
1890 a=2:R=E+4:q=d+17:m=3:goto2070 
1900 IFE<86THEN1920
1910 a=3:R=E-1:q=d+4:M=4:goto2070
1920 a=1:q=d+4:R=E+17:m=2:goto2070 
1930 IFABS(86-F)<ABS(86-G)THEN1970 
1940 IFF<86THEN1960
1950 B=0:R=G+4:Q=F-1:M=1:goto2070
1960 B=2:R=g+4:q=F+17:m=3:goto2070 
1970 IFG<86THEN1990
1980 b=3:R=G-1:Q=F+4:m=4:GOTo2070 
1990 b=1:q=F+4:R=G+17:m=2:GOTo2070 
2000 IFABS(86-H)<ABS(86-J)THEN2040 
2010 IFH<86THEN2030
2020 c=0:R=J+4:Q=H-1:m=1:GOTo2070 
2030 C=2:R=J+4:q=H+17:m=3:GOTo2070 
2040 IFJ<86THEN2060
2050 c=3:R=J-1:q=H+4:m=4:GOTo2070
2060 c=1:Q=H-4:R=J+17:m=2
2070 IFd<2THEND=174 
2080 IFE<2THENE=174 
2090 IFF<2THENF=174 
2100 IFG<2THENG=174 
2110 IFH<2THENH=174 
2120 IFJ<2THENJ=174 
2130 IFd>174THEND=2 
2140 IFE>174THENE=2 
2150 IFF>174THENF=2 
2160 IFG>174THENG=2 
2170 IFH>174THENH=2 
2180 IFJ>174THENJ=2
2190 VPOKE6922,P:VPOKE6933,E:VPoke6934,24+A*4:VPOKE6916,F:POKE6917,G:VPOKE6918,24+B*4:VPOKE6920,H:VPOKE6921,J:VP0KE6922,24+C*4:VPOKE6914,K*4:VPOKE6924,0:VPOKE6925,P:VPOKE6936,Q:VP0KE6937,R
2200 SPRITEON
2210 NEXT:Goto1430
2220 a=RND(-TIME)*4:B=RND(-TIME)*4:c=RNd(-TIME)*4:goto2290
2230 IF D<94 THEN IF E<94 THEN IF D<E THEN A=3 ELSE A=0 ELSE IF E>=94 THEN IF D<E-94 THEN A=2 ELSE A=1
2240 IF D>=94 THEN IF E<94 THEN IF D-94<E THEN A=2 ELSE A=1 ELSE IF E>=94 THEN IF D<E THEN A=2 ELSE A=3
2250 IF F<94 THEN IF g<94 THEN IF F<G THEN B=2 ELSE B=3 ELSE IF G>=94 THEN IF F<G-94 THEN B=1 ELSE B=3
2260 IF F>=94 THEN IF G<94 THEN IF F-94<G THEN B=2 ELSE B=1 ELSE IF G>=94 THEN IF F<G THEN B=2 ELSE B=3
2270 IF H<94 THEN IF J<94 THEN IF H<J THEN C=3 ELSE C=8 ELSE IF J>=94 THEN IF H<J-94 THEN C=0 ELSE C=1
2280 IF H>=94 THEN IF J<94 THEN IF H-94<J THEN C=2 ELSE C=1 ELSE IF J>=94 THEN IF H<J THEN C=1 ELSE C=3
2290 FORDI=1To11
2300 ON A GOTo2320,2330,2340
2310 D=D-U:G0To2350
2320 E=E+U:GOTo2350
2330 D=D+U:G0To2350
2340 E=E-U
2350 oN B goto2370,2380,2390
2360 F=F-U,G0To2400
2370 G=G+U:G0To2400
2380 F=F+U:G0To2400
2390 G=g-u
2400 oN C goto2420,2430,2440
2410 H=H-U:GoTo2450
2420 J=J+U:goto2450
2430 H=h+U:goto2450
2440 J=J-U
2450 VP0KE6939,15:S=STICK(ST):ON S GOTO 2470,2460,2480,2460,2490,2460,2500,2460
2460 S=0:on s goto2470,2510,2480,2510,2490,2510,2500,2510
2470 K=6:d=d+U:F=F+U:H=H+U:o=o-(o<187-U)*U:q=q-(q<(169-U)*U:GoTo2510
2480 K=7:E=E-U:G=G-U:J=J-U:P=P+(P>6+U)*U:R=R+(R>2,U)*U:goto2510
2490 k=8:d=D-U:F=F-U:H=H-U:o=o+(o>6+U)*u:Q=Q+(q>2)*U:goto2510
2500 k=9:E=e+u:g=G+U:J=J+U:P=P-(P<187-U)*U:R=R-(R<189-U)*U
2510 IFS<>THENS$=S
2520 on t goto 2590,2600,2610,2620
2530 IFNOT TT ANDSTRIG(ST)THENT=K-5:Tt=1:SOUND13,3:VPOKE6927,7:ON T goto2550,2560,2570,2580
2540 Goto2640
2550 o=76:P=89:goto2640
2560 o=89:P=99:goto2640
2570 o=99:P=89:goto2640
2580 o=89:P=76:goto2640
2590 o=o-8:IFO<OTHEN2630ELSE2640 
2600 P=P+8.IFP>188THEN2630ELSE2640 
2610 o=o+8:IFO>1881HEN2630EL1E2640 
2620 P=P-8:IFP<OTHEN2630ELSE2640 
2630 P=255:0=P:T=0:tt=0:VP0KE6927,0
2640 on m goto2670,2680,2690,2700 
2650 M1=M1+1:IFm1>8THENM1=1
2660 on m goto2710,2750,2790
2670 q=q-5:R=R-5:IFq<5ORR<5THEN2650ELSE2830
2680 R=R+5:q=q-5:IFR>187oRq<5THEN2650 ELSE2830
2690 q=q+5:R=R-5:IFQ>187oRR<5THEn2650 ELSE2830
2700 R=R+5:Q=Q+5:IFR>187oRO>187THEN2650ELSE2830
2710 IFD>86ANDE>86THENM=1:q=D:R=E:GOTo2830
2720 IFD>86ANDE>86THENM=2:q=D:R=E+16:GOTo2830
2730 IFD<86ANDE>86THENM=3:q=D+16:R=E:goto2330
2740 IFD<86ANDE<86THENN=4:q=D+16:R=E+16:goto2830
2750 IFF>86ANDG>86THENM=1:q=F:R=g:GOTo02830
2760 IFF>86ANDG<86THENM=2:q=F:R=G+16:gOTo2830
2770 IFF<86ANDG>86THENM=3:q=F+16:R=G:GOTo2830
2780 IFF<86ANDG<86THENM=4:q=F+16:R=G+16:goto2830
2790 IFH>86ANDJ>86THENM=1:q=H:R=J:GOTo2830
2800 IFH>86ANDJ<86THENM=2:q=H:R=J+16:goto2830
2810 IFH<86ANDJ>86THENM=3:q=H+16:r=J:goto2830
2820 IFH<86ANDJ<86THENM=4:q=H+16:R=J+16
2830 IFD<2THEND=174 
2840 IFE<2THENE=174 
2850 IFF<2THENF=174 
2860 IFG<2THENG=174 
2870 IFH<2THENH=174 
2880 IFJ<2THENJ=174 
2890 IFD>174THEND=2 
2900 IFE>174THENE=2 
2910 IFF>174THENF=2 
2920 IFG>174THENG=2 
2930 IFH>174THENH=2 
2940 IFJ>174THENJ=2 
2950 AA=((DIAND3)/3)*4+48:bb=((DIAND2)/2)*4+48
2960vPoKE6932,D;VPoKE6933,E:VPOKE6934,aa:VPOKE6916,F:VPOKE6917,G:VPOKE6918,Bb:VPOKE6920,H:VPoKE6921,J:VPoKE6922,Aa:VPOKE6914,K*4:VPOKE6924,o:VPOKE6925,P:VPoKE6936,Q:VPOKE6937,R
2970 SPRITEON
2980 NEXT
2990 IFX=1THENX=0:GOTo2220ELSEX=1:GOTo2230
3000 SPRITEOFF
3010 IFABS(0-d)<13ANDABS(P-E)<13THENG goto3100
3020 IFABS(0-F)<13THENIFABS(P-G)(13THENGOTo3140
3030 IFABS(0-H)<13THENIFABS(P-J)(13THENGOTo3190
3040 IFABS(q-86)<16THENIFABS(R-86)<13 THEN4060
3050 IFABS(D-86)<16THENIFABS(E-86)<16 THEN4060
3060 IFABS(F-86)<16THENIFABS(g-86)<16 THEN4060
3070 IFA8S(H-86)<16THENIFABS(J-86)<16 THEN4060
3080 RETURN
3090 'DESTROY1
3100 GoSUB7020:VP0KE6927,0:VP0KE6934,40:FORII=1To7:VPOKE6935,11:FORJJ=1To100:NEXT:VPOKE6935,8:FORJJ=1To100:NEXT:NEXT
3110 PA=PA+1:IFTIME<500THENsC=SC+20ELSESC=SC+10
3120 VPOKE6935,1:T=0:TT=0:o=255:P=255 
3130 D=RND(-TIME)*175:E=175:TIME=0:goto3970
3140 'DESTROY2
3150 GOSUB7020:VPOKE6927,0:VPOKE6918,40:FORII=1T07:VPOKE6919,11:FORJJ=1to100:NEXT:VPOKE6919,8:FORJJ=1T0100:NEXT:NEXT
3160 PA=PA+1:iFTIME<500THENSC=SC+20ELSESC=SC+10
3170 T=0:TT=0:o=255:P=255
3180 VPOKE6919,1:F=2:g=RND(-TIME)*175:TIME=0:GOTo3970
3190 'DESTOY3
3200 GOSUB7020:VPOKE6927,0:VPOKE6922,40:FORII=1To7:VPOKE6923,11:FORJJ=1To100:NEXT:VPOKE6923,8:FORJJ=1To100:NEXT:NEXT
3210 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3220 T=0:TT=0:0=255:P=255
3230 VPOKE6923,1:j=RND(-TIME)*175:H=175:TIME=0:GOTo3970
3240 SPRITEOFF
3250 IFABS(o-D)<10THENIFABS(P-E)<13THENGOTo3340
3260 IFABS(o-F)<10THENIFABS(P-G)<13THENGOTo3390
3270 IFABS(o-H)<10THENIFABS(P-J)<13THENGOTo3440
3280 IFABS(Q-86)<13THENIFABS(R-86)<13 THEN4050
3290 IFABS(D-86)<13THENIFABS(E-86)<16 THEN4050
3300 IFABS(F-86)<13THENIFABS(g-86)<16 THEN4050
3310 IFABS(H-86)<13THENIFABS(J-86)<16 THEN4050
3320 RETURN
3330 'DESTROY1
3340 GOSUB7020:VPOKE6927,0:VPOKE6934,40:FORII=1To7:VPOKE6935,11:FORJJ=1To100:NEXT:VPOKE6935,5:FORJJ=1t0100:NEXT:NEXT
3350 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3360 T=0:TT=0:o=255:P=255
3370 VPOKE6935,8:D=RND(TI)8175:E=175: TIME=0:GOT03970
3380 'DESTROY2
3390 GOSUB7020:VPOKE6927,0:VPOKE6918, 40:FORII=1707:VPOKE6919,11:FORJJ=1701 00:NEXT:VPOKE6919,5:FORJJ=1T0100:NEXT:NEXT
3400 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3410 T=0:TT=0:o=255:P=255
3420 VPOKE6919,8:G=RND(-TIME)*175:F=2:TIME=0:GOTo3970
3430 'DESTOY3
3440 GOSUB7020:VPOKE6927,0:VPOKE6922,40:FORII=1to7:VPOKE6923,11:FORJJ=1To100:NEXT:VPOKE6923,5:FORJJ=1To100:NEXT:NEXT
3450 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3460 T=0:TT=0:0=255:P=255
3470 VPOKE6923,2:J=RND(-TIME)*175:H=175:TIME=0:goto3970
3480 SPRITEOFF
3490 IFABS(o-d)<13THENIFABS(P-E)<16THENGoto3580
3500 IFABS(o-F)<13THENIFABS(P-G)<16THENGoto3630
3510 IFABS(o-H)<13THENIFABS(P-J)<16THENGoto3680
3520 IFABS(o-_86)(16THENIFABS(R-86)(16 THEN4060
3530 IFABS(D-86)<16THENIFABS(E-86)<16 THEN4060
3540 IFABS(F-86)<16THENIFABS(g-86)<16 THEN4060
3550 IFABSCH-86)<16THENIFABS(J-86)<16 THEN4060
3560 RETURN
3570 'DESTROY1
3580 GOSUB7020:VPOKE6927,0:VPOKE6934,40:FORII=1To7:VPOKE6935,1:FORJJ=1To100:NEXT:VPOKE6935,2:FORJJ=1To100:NEXT:NEXT
3590 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3600 VPOKE6935,5:T=0:TT=0:o=255:P=255 
3610 D=RND(-TIME)*175:E=175:TIME=0:GOTO3970
3620 'DESTROY
3630 GOSUB7020:VPOKE6927,0:VPOKE6918,40:FORII=1To7:VPOKE6919,1:FORJJ=1To100:NEXT:VPOKE6919,2:FORJJ=1to100:NEXT:NEXT
3640 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3650 VPOKE6919,5:T=0:TT=0:0=255:P=255 
3660 G=RND(-TIME)*175:F=2:TIME=0:GOTo3970
3670 'DESTROY3
3680 GOSUB7020:VPOKE6927,0:VPOKE6922,40:FORII=1to7:VPOKE6923,1:FORJJ=1to100:NEXT:VPOKE6923,2:FORJJ=1to100:NEXT:NEXT
3690 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3700 T=0:TT=0:o=255:P=255
3710 VP0KE6923,5:J=RND(-TIME)*175:H=1 5:TIME=0:goto3970
3720 SPRITEOFF
3730 IFABS(o-d)<13THENIFABS(P-E)<15THENGOTo3820
3740 IFABS(o-F)<13THENIFABS(P-G)<15THENGOTo3870
3750 IFABS(o-H)<13THENIFABS(P-J)<15THENGoto3920
3760 IFABS(g-86)<16THENIFABS(R-86)<16 THEN4060
3770 IFABS(d-86)<15THENIFABS(E-36)<15 THEN4060
3780 IFABS(F-86)<15THENIFABS(6-86)<15 THEN4060
3790 IFABS(H-86)<15THENIFABS(J-86)<15 THEN4060
3800 RETURN
3810 'DESTROY'
3820 GOSUB7020:VPOKE6927,0:VP0KE6934,40:FORII=1To7:VP0KE6935,0:FORJJ=1To100:NEXT:VPOKE6935,15:FORJJ=1to100:NEXT:NEXT
3830 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3840 VPOKE6935,2:T=0:TT=0:o=255:P=255
3850 D=RND(-TIME)*175:E=175:TIME=0:goto3970
3860 'DESTROY
3870 GOSUB7020:VPOKE6927,0:VPOKE6918,40:FORII=1To7:VPOKE6919,0:FORJJ=1To100:NEXT:VPOKE6919,15:FORJJ=1to100:NEXT:NEXT
3880 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3890 VPOKE6919,11:T=0:TT=0:o=255:P=255
3900 G=RND(-TIME)*175:F=2:TIME=0:GOTO 3970
3910 'DESTOY3
3920 GoSUb7020:VPOKE6927,0:VPOKE6922,40:FORII=1To7:VPOKE6923,0:FORJJ=1To100:NEXT:VPOKE6923,15:FORJJ=1To100:NEXT:NEXT
3930 PA=PA+1:IFTIME<500THENSC=SC+20ELSESC=SC+10
3940 T=0:TT=0:o=255:p=e55
3950 VPOKE6923,8:J=RND(-TIME)*175:H=175:TIME=0
3960 'AFFICHE
3970 LINE(203,75)-(254,83),1,BF:LINE(219,35)-(227,43),1,BF:LINE(232,160)-(254,168),1,bF
3980 PSET(203,75),1:COLOR5:PRINT#1,RIGHT$("00000"+MID$(STR$(SC),2),5):PSET (211,35),1:COLOR15:PRINT#1,VI:PSET(232,160),1:PRINT#1,USING"##";PA
3990 SOUND1,1:sound8,16:SOUND6,5:SOUND12,20:SOUND7,1
4000 IFPA=25THENIFNI=1THEN4770
4010 IFPA=25THENIFNI=2THEN4880
4020 IFPA=25THENIFNI=3THEN4990
4030 IFPA=25THENIFNI=4THENRE=RE+1:goto5100
4040 RETURN
4050 'MORT HEROS
4060 VI=VI-1:IFVI>0THEN4100
4070 GOSUB7010:FORI=0to74
4080 II=COS(I)*10+86:JJ=SIN(I)*10+86-I:PUTSPRITE0,(II,JJ),15,11:NEXT
4090 FORI=1To300:NEXT:CLOSE#1:GOTo4400
4100 FORI=1To4:FORJ=0To3:VPOKE6914,J*4+24:FORH=1To100:NEXT:NEXT:NEXT
4110 VPOKE6914,44:VP0KE6915,15:gosub 7010
4120 FORI=86TO2STEP-1:vPOKE6912,I:FOR J=1to180:NEXT:NEXT
4130 FORI=1To500:NEXT:VPOKE6937,209:VPOKE6936,209
4140 D=RND(-TIME)*175:E=175:F=2:g=RND(-TIME)*175:H=174:J=RND(-TIME)*175:M=0
4150 VPOKE6914,24:VPOKE6912,86:VPOKE6913,86:on i goto 4160,4170,4170,4160 
4160 VPOKE6915,14:goto 4180
4170 VPOKE6915,1
4180 o=209:TT=0:T=0:VPOKE6924,0:SS=0 
4190 VPoKE6932,D:VPOKE6933,E:VPOKE6934,a*4:VPOKE6916,F:VPOKE6917,66:VPOKE6918,B*4:VPOKE6920,H:VPOKE6921,J:VPOKE6922,C*4
4200 GOTo3970
4210 '
4220 ' PASSAGE DANS LE TEMPS
4230 '
4240 FORI=0To6:PUTSPRITEI,(1,1),0,0:NEXT
4250 FORI=0To86
4260 PUTSPRITE0,(86,86-I),CO,6:PUTSPRite1,(86,86+I),Co,6:PUTSPRITE2,(86-i,86),co,6:PUTSPRITE3,(86+1,86),CO,6 
4270 NEXT
4280 FORI=0To3:PUTSPRITEI,(1,1),0,0:NEXT
4290 LINE(2,2)-(189,189),A$,BF
4300 FORH=1To7:FORI=AS+1To15:COLORI 
4310 PSET(55,90),AS:PRINT#1,"NIVEAU"NI+N1*4
4320 FORJ=1to100:NEXT:NEXT:NEXT
4330 LINE(55,90)-(150,98),AS,BF
4340 FORI=0To86
4350 PUTSPRITE0,(86,I),CO,6:PUTSPRITE 1,(86,172-I),CO,6:PUTSPRITE2,(172-i,86),CO,6:PUTSPRITE3,(I,86),CO,6
4360 NEXT:VPOKE6938,60:RETURN
4370 '
4380 '	FIN DE PARTIE
4390 '
4400 Do=0:LE=0:W=79:SCREEN1,0:COLOR,1 ,1
4410 FoRH=1To3:CLS
4420 RESToRE7560:FoRI=0to7:READA:S$=S$+CHR$(A):NEXT:SPRITE$(0)=S$:SS=""
4430 FORI=0to9:LOCATEI,12:PRINT" GAME ":COLORI:LOCATE24-I,12:PRINT"OVER ":FoRJ=1To150:NEXT:NEXT:NEXT
4440 FoRI=1To4:FoRJ=2To15:COLORJ:FORH=1To100:NEXT:NEXT:NEXT:COLOR11:gosub6170
4450 FORZ=0To4:IFSC>=HS(Z)THEN4470 
4460 NEXT:GOSUB5610:GOSUB5650
4470 FORJ=4TOZSTEP-1:HS(J+1)=HS(J):HS$(J+1)=HS$(J):NEXT:HS(Z)=SC:HS$(z)="    "
4480 FORI=1To255:K$=INKEY$:NEXT:GOSUB 5610:CLS
4490 V=128:FORI=1to20:FORJ=1to3:LOCATEI+2,J:PRINTCHR$(V):V=V+1:NEXT:NEXT 
4500 FORI=8208To8215:VPOKEI,79:NEXT 
4510 FORI=0to4:LOCATE4,7+i*3:PRINT"-"RIGHT$("00000"+MID$(STR$(HS(I)),2),5)"    "+HS$(i):NEXT
4520 FORI=8208To8215:VPOKEI,W:nEXT:PUtSPRITE0,(118,LE*8,z*24+54),6
4530 K$=INKEYS:IFK$=""THEN4590
4540 IFK$=CHR$(0)ANDLE>0THEN4550ELSEIFK$=CHR$(8)aNDLE<1THEN4590ELSE4560 
4550 LOCATELE+13,z*3+7:PUTSPRITE0,(110+LE*8,Z*24+54),6:PRINT" ":MID$(HSS$(Z),LE,1)=" ":LE=LE-1:goto4590
4560 IFK$=CHR$(13)THENPUTSPRITE0,(0,209):GOTo6040
4570 IFLE=6THEN4520ELSELE=LE+1
4580 LOCATE13+LE,7+3*z:PRINTK$:PUTSPRITE0,(118+LE*8,54+Z*24),6,0:mid$(hs$(Z),LE,1)=K$
4590 IFW=79THENW=244ELSEW=79
4600 GOSUB6100:GOSUB6100
4610 GOTo4520
4620 '
4630 '	NIVEAU1,5,9,13 ETC!!!
4640 '
4650 NI=1:Co=14:AS=4:GOSUB4240
4660 PUTSPRITE7,(200,152),11,0
4670 VPOKE6926,60:VPOKE6927,0
4680 VPOKE6914,24:VPOKE6912,86:VPOKE6913,86:VPOKE6915,14
4690 D=RND(-TIME)*175:E=175:F=2:G=RND(-TIME)*175:o=174:J=RND(-TIME)*175 
4700 VPOKE6932,D:VPOKE6933,E:VPO6E6916,F:VPOKE6917,G:VPOKE6920,J:VPoKE6921,H
4710 VPOKE6934,0:VPOKE6918,0:VPOKE6922,0:VP0KE6935,1:VPOKE6919,1:VPOKE6923,1
4720 VPOKE6939,11:VPOKE6938,60
4730 PA=0:o=200:t=0:TT=0:m=0:SS=0:U=U+1:o=209:P=0:ONSPRITEGOSUB3000:GOSUB3970:goto120
4740 '
4750 '	NIVEAU2,6,10,14 ETC!!!
4760 '
4770 NI=2:Co=1:as=11:GOSUB4240:VPOKE6926,60
4780 PUTSPRITE7,(200,154),11,4
4790 VPOKE6914,24:VPOKE6912,86:VPOKE6913,86:VPOKE6915,1
4800 D=RND(-TIME)*175:E=175:F=2:G=RND(-TIME)*175:h=174:J=RND(-TIME)*175 
4810 VPoKE6932,D:VPoKE6933,E:VPOKE6916,F:VPoKE6917,5:VPOKE6920,J:VPOKE6921,H
4820 VPOKE6918,16:VPOKE6922,16:VPOKE6934,16:VP0KE6935,8:VPOKE6919,8:VPOKE6923,8
4830 VPOKE6939,6
4840 VI=VI+1:PA=0:T=0:TT=0:o=200:q=200:m=8:SS=0:ONSPRITEGoSUB3240:gosub3970:GOTo730
4850 '
4860 '	NIVEAU3,7,11,15 ETC!!!
4870 '
4880 NI=3:Co=1:AS=8:GoSUB4240:VPOKE6926,60
4890 PUTSPRITE7,(200,152),11,6
4900 VPOKE6914,24:VPOKE6912,86:VPoKE6913,86:VPOKE6915,1
4910 D=RND(-TIME)*175:E=175:F=2:G=RND(-TIME)*175:h=174:J=RND(-TIME)*175 
4920 VPoKE6932,D:VPoKE6933,E:VPOKE6916,F:VPOKE6917,6:VP0KE6920,J:VPOKE6921,H
4930 VPoKE6918,24:VPoKE6922,24:VPOKE6934,24:VP0KE6935,5:VPOKE6919,5:VPOKE6923,5
4940 VPOKE6939,1
4950 PA=0:T=0:TT=0:Q=200:o=200:M=0:Ss=0:ONSPRITEGOSUB3480:GOSUB3970:goto1430
4960 '
4970 '	NIVEAU4,8,12,16 ETC!!!
4980 '
4990 ni=4:Co=14:as=1:gosub4240:VPOKE6926,60
5000 PUTSPRITE7,(200,152),11,13
5010 VPOKE6914,24:VPOKE6912,86:VPOKE6913,86:VPOKE6915,14
5020 D=RND(-TIME)*175:e=175:F=2:G=RND(-TIME)*175:h=174:J=RND(-TIME)*175 
5030 VPoKE6932,D:VPOKE6933,E:VPOKE6916,F:VPOKE6917,G:VPOKE6920,J:VPOKE6921,H
5040 VPoKE6922,48:VPOKE6918,48:VPOKE6934,48:VPOKE6935,2:VPOKE6919,11:VPOKE6923,8
5050 VPoKE6939,11
5060 VI=VI+1:PA=0:O=200:T=0:TT=0:q=200:M=0:ss=0:N1=N1+1:ONSPRITEGOSUB3720:GOSUB3970:GOTo2220
5070 '
5080 ' RECOMPENSE
5090 '
5100 FORI=0To6:PUTSPRITEI,(0,0),0,0:NEXT
5110 IFRE>1THENCo=11ELSECO=14
5120 FORH=1to3
5130 FORI=0to86:PUTSPRITE0,(I,86),CO,14:PUTSPRITE1,(86,172-I),CO,14:PUTSPRITE2,(86,I),CO,14:PUTSPRITE3,(172-I,86),CO,14
5140 NEXT
5150 FORI=0To86:PUTSPRITE0,(I,I),CO,14:PUTSPRITE1,(I,172-I),CO,14:PUTSPRITE2,(172-I,I),CO,14:PUTSPRITE3,(172-I,172-i),10,14
5160 NEXT:NEXT
5170 FORI=0to20:PUTSPRITE0,(86+1,86+I),CO,14:PUTSPRITE1,(86-i,96-I),10,14:PUTSPRITE2,(86-I,86+I),CO,14:PUTSPRITE3,(86+i,86-1),CO,14:NEXT
5180 FORH=1T010:FORI=1to40:PUTSPRITE0,(106,106-I),CO,14:PUTSPRITE1,(106-I,66),CO,14:PUTSPRITE2,(66,66+i),CO,14:PUTSPRITE3,(66+I,106),CO,14:NEXT:NEXT 
5190 PSET(45,90),0:PRINT#1,"FELICITATIONS":FORI=1to3000:NEXT
5200 IFRE=1THENX=195ELSEX=230
5210 IFRE>3THENRE=3
5220 PUTSPRITERE+7,(106,106),CO,14:FoRI=0T03:PUTSPRITEI,(0,0),0,0,NEXT
5230 FORI=106TOX:PUTSPRITERE+7,(I,106),CO,14:NEXT
5240 FORI=106to109:PUTSPRITERE,7,(X,I),CO,14:NEXT:FORI=1to2000:NEXT
5250 GOTo4650
5260 '
5270 ' DECOR
5280 '
5290 COLOR15,4,1:SCREEN2,2,0:oPEN"GRP:"AS1:DEFUSR=&H40:CU=USR(CUL)
5300 LINE(0,0)-(256,191),B
5310 LINE(1,1)-(255,190),B
5320 LINE(192,3)-(254,189),1,BF
5330 LINE(190,1)-(191,191),BF
5340 PSET(207,20),1:COLOR15:PRINT#1,"VIES":PSET(219,35),1:PRINT#1,"3
5350 PSET(203,60),1:COLOR5:PRINT#1,"SCORE":PSET(203,75),1:PRINT#1,"00000":COLOR8
5360 PSET(195,100),1:PRINT#1,"TABLEAU":PSET(213,115),1:PRINT#1,"DE":PSET(199,130),1:PRINT#1,"CHASSE"
5370 COLOR15:PSET(224,160),1:PRINT#1,"x 0"
5380 PSET(22,90),4:PRINT#1,"VEUILLEZ PATIENTER":DEFUSR=&H44:BI=USR(BITE) 
5390 RESTORE7060:FORI=0to14:FORJ=1To32:READA:Si=Si+CHR$(A):NEXT:SPRITE$(I)=S$:S$="":NEXT
5400 FORI=1to8:READA:S$=S$+CHR$(A):NEXT:SPRITES(15)=S$:s$=""
5410 IFPLAY(0)THEN5390ELSESOUND1,1:soUND8,16:SOUND6,5:SOUND12,20:SOUND7,1:VI=3:PA=0:SC=0:N1=0:NI=1:RE=0:U=1
5420 FORI=0T072:LINE(22.1,90)-(22+1,98),4:LINE(166-1,90)-(166-I,98),4:NEXT:PSET(18,90),4,PRINT*1,"(J)OYSTICK (C ILAVIER"
5430 X$=INPUT$(1):IFX$="j"THENST=1ELSEIFX$="C"THENST=0ELSE5430
5440 FORI=0to86:LINE(1,90)-(i,98),4:LINE(174-i,90)-(174-i,98),4:NEXT:o=255:P=0:goto4660
5450 '
5460 '	PRESENTATION
5470 '
5480 '	TABLEAU DE SCORES
5490 '
5500 '	INSTRUCTIONS
5510 '
5520 GOSUB6170
5530 FORI=0To4:HS(I)=500-100*I:HS$(I)="Y.P.S.":NEXT
5540 A$="	         VOUS ETES AUX COMMANDES D'UN AVION DE CHASSE CAPABLE DE VOYAGER DANS LE TEMPS.MAIS ATTENTION VOTRE EVOLUTION TEMPORELLE VOUS FERA CONNAITRE DES ENNEMIS PLUS ACHARNES ET MIEUX ARMES LES UNS QUE LES AUTRES "
5550 B$="Young Programmer Software"
5560 C$=" POUR LES JOUEURS AU CLAVIER  REMPLACER LE BOUTON DE TIR PAR LA BARRE D'ESPACE"
5570 COLOR11,1,1:KEYOFF:SCREEN1,2 
5580 RESTORE7600:FORI=16to18:FORJ=1TO32:READA:SS=S$,+CHRS(A):NEXT:SPRITES(I)=S$:S$="":NEXT
5590 X=25:FORI=16T018:PUTSPRITEI,(X,15),7:X=x+17:NEXT
5600 LOCATE0,10:FORI=1TOLEN(B$):PRINTMIDS(B$,I,1);:GOSUB6100:NEXT:LOCATE9,14:PRINT"PRESENTE"
5610 RESTORE7400:FORI=8208to8215:VPOKEI,17:NEXT
5620 FORI=1024To1287:READA:VPOKEI,A:nEXT:RESTORE7420:FORI=1288to1311:READA:VPOKEI,A:NEXT
5630 RESTORE7420:FORI=1312T01327:rEADA:VPOKEI,A:NEXT:rESTORE7510:FORI=1328To1407:READA:VPOKEI,A:NEXT
5640 RESTORE7400:F0RI=1408to1455:READA:VPOKEI,A:NEXT:RESTORE7540:FORI=1456to1503:READA:VPOKEI,A:NEXT:RETURN
5650 LOCATE0,0:F0RI=1To24:PRINT"               ":NEXT:X=25:FoRI=16To18:PUTSPRITEI,(0,15),0:X=X+17:NEXT
5660 V=128:FORI=1to20:FORJ=1To3:LOCATEI+2,J:PRINTCHR$(V);:V=V+1:NEXT:NEXT
5670 W=79:FORI=1TOLEN(A$):FORJ=8207To8215
5680 VPOKEJ,W:NEXT
5690 IFA$=""THEN5720ELSELOCATE6,10:PRINTMIDS(A$,I,15):gosub6100
5700 I=I+1:LOCATE6,10:PRINTMID$(A$,I,15):GosUB6100
5710 IFW=244THENW=79:NEXT:ELSEW=244:nEXT
5720 A$="":LOCATE5,10:PRINT"-(I)NSTRUCTIONS":LOCATE5,15:PRINT"-(M)EILLEURS SCORES"
5730 LOCATE5,20:PRINT"-(J)EU":o=244 
5740 FORI=8208To8215:VPOKEI,W:NEXT 
5750 K$=INKEY$
5760 IFK$="I"THEN5790ELSEIFK$="M"THEN5950ELSEIFK$="J"THENRETURN5290
5770 IFW=79THENW=244ELSEW=79
5780 Gosub6100:gosub6100:goto5740 
5790 LOCATE0,10:FORI=1To12:PRINT"":NEXT
5800 LOCATE4,9:PRINT"TIR	HAUT":LOCATE13,10:PRINT"^":LOCATE4,12:PRINT"0 AUCHE 40 DROITE":LOCATE13,14:PRINT "v",LOCATE12,15:PRINT"BAS"
5810 LOCATE0,20:FORI=1TOLEN(C$):FORJ=8207To8215:VPOKEJ,W:NEXT
5820 PRINTMID$(C$,I,1);:GOSUB6100:I=I+1:PRINTMID$(C$,I,1);:GOSUB6100
5830 IFW=79THENW=244ELSEW=79
5840 NEXT
5850 LOCATE0,20:FORI=1TOLEN(C$):FORJ=8208To8215:VPOKEJ,W:NEXT
5860 PRINT" ";:GOSUB6100:I=I+1:PRINT" ";:GOSUB6100
5870 IFW=79THENW=244ELSEW=79
5880 NEXT
5890 LOCATE0,22:PRINT"	PRESSER UNE TOUCHE"
5900 FORJ=8208To8215:VPOKEJ,W,NEXT 
5910 goSUB6100:LOCATE0,22:PRINT"                                           ":GOSUB6100
5920 K$=INKEY$:IFK$><""THENLOCATE0,5:FORI=1To17:PRINT"":NEXT:goto5720
5930 IFW=79THENW=244ELSEW=79
5940 goto5890
5950 LOCATE0,5:FORI=1To17:PRINT"":NEXT
5960 FORI=7To21STEP3:LOCATE4,I:PRINT" -":NEXT
5970 FORI=0to4:LOCATE5,I*3+7,PRINTRIGHT$("00000"+MID$(STR$(HS(I)),2),5)"HS$(I)
5980 FORJ=8208To8215:VPOKEJ,W:NEXT 
5990 IFW=244THENW=79ELSEW=244
6000 GOSUB6100:goSUB6100:NEXT
6010 FORJ=8208To8215:VPOKEJ,W:NEXT 
6020 LOCATE5,22:PRINT7PRESSER UNE TOUCHE"
6030 FORI=1to340:NEXT,LOCATE5,22:PRINT"	":GOSUB6100
6040 K$=INKEY$:IFK$<>""THENLOCATE0,5:FORI=1to17:PRINT"":NEXT:GOTo5720
6050 IFW=244THEnW=79ELSEW=244
6060 GOTo6010
6070 '2
6080 '2 MUSIC PAR RENAUD MAIRE
6090 ''
6100 IFPLAY(0)THEN6110ELSE6120
6110 FORH=1To300:NEXT:RETURN
6120 do=do+1:IFdo>12THEN6150
6130 on gosub6340,6370,6410,6460,6490,6520,6540,6560,6580,6600,6630,6660 
6140 RETURN
6150 on do-12 gosub6690,6710,6730,6750,6770,6800,6830,6860,6890,6920,6960,6990,6420
6160 RETURN
6170 SOUND7,49:SOUND6,5
6180 T$="t150R4L64o6V13bV11bv7bR64R4V13bv11Bv7BR64"
6190 U$="t150L32V0B"
6200 sound 7,49:sound 6,5
6210 V$="t150R2L62o6V13BV11bV8BV5B" 
6220 PLAY"Xu$;","T125v9o3L1C"
6230 PLAY"Xu$,","o2L1a+"
6240 PLAY"Xu$;","o2L1F"
6250 PLAY"Xu$;","0o2L1D+"
6260 PLAY"Xu$;","t130o3L1C","t130V9L1o4g"
6270 pLAY"xu$;","o2L1A+","L1o4F" 
6280 PLAY"Xu$;","o2L1F","L1o4C"
6290 PLAY"Xu$;","o2L1d+","L1o4d+"
6300 PLAY"T130o3L1C","T130L1o4g","V10T130L1o5C"
6310 PLAY"o2L1A+","L1o4F","L1o4A+"
6320 PLAY"o2L1F","L1o4C","L1o4F"
6330 PLAY"o2L1d+","V8L1o3D+","L1o4d+":RETURN
6340 PLAY"xu$;","T152V10L1o5C","M2000s9t140L8o3Co4COo3Co4CO3C04CO3CO4C"
6350 PLAY"XUS;","t152V10L1O4A+","O2AFO3A+O2A+O3A+O2A+O3A+O2A+O3A"
6360 PLAY"XU$;","T152V10L1O4F","O3FO4FO3FO4FO3FO4FO3FO4F":RETURN
6370 PLAY"XU$;","T152V10L1O4D+","O3D+O4D+03D+O4D+O3D+O4D+O3D04D"
6380 PLAY"XU$;","M2000S9T140L8O3CO4CO3CO4CO3CO4CO3CO4C"
6390 PLAY"XU$;","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
6400 PLAY"XU$;","O3FO4FO3FO4FO3FO4FO3FO4F":RETURN
6410 PLAY"T150V10M2100S9R4L8CCR8L8CCL16CC","M2000S9T140L8O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
6420 MU=0
6430 MU=MU+1:do=3
6440 PLAY"Xt$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3C04C"
6450 PLAY"XT$;","M2000S9T150L8O2A+O3A+O2A+O39A+O2A+O3A+O2A+O3A+":RETURN 
6460 PLAY"XTS;","M2000S9T150L8O3FO4FO3FO4FO3FO4F03FO4F"
6470 PLAY"XT$;","M2000S9T150L8O3D+O4D+O3D+O4D+O3D+O4D+O3DO4"
6480 PLAY"XT$;","M2000S9T150L8O3CO4C03CO4CO3CO4CO3CO4C":RETURN
6490 PLAY"XT$;","M2000S9T150L8O2A+O3A+O2A+O3A+O2A,O3A+O2A+O3A+"
6500 PLAY"XT$;","M2000S9T150L8O3FO4FO3FO4FO3FO4FO3FO4F"
6510 PLAY"T150V10M2100S9R4L8CCR8L8CCL16CC","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D":RETURN
6520 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8D+","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
6530 PLAY"XT$,","M2500S9T138R8L8O5CL8DR8L8CL8DR8L8D","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+":RETURN
6540 PLAY"XT$;","M2500S9T138R8L8O5CL8FR8CL8FR8L8F","O3FO4FO3FO4FO3FO4FO3FO4F"
6550 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8L8D+","M2000S9O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D":RETURN
6560 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8L8D+","M2000S9T150L8O3CO4CO3C04CO3CO4CO3CO4C"
6570 PLAY"xt$;","M2500S9T138R8L8O5CL8DR8L8CL8DR8L8D","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+":RETURN
6580 PLAY"XT$;","M2500S9T138R8L8O5CL8R8L8CL8FR8L8F","O3FO4FO3FO4FO3FO4FO3F0O4F"
6590 PLAY"T150M2100S9R4L8CCR8L8CCL16CC","M2500S9T138R8L8O5CL8D+R8L8CL8DR8L8D","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D":RETURN
6600 PLAY"T150V11M2500S9L8R2C","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
6610 PLAY"T150V11M2500S9L8R2C","M2000S9T150L8O20+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
6620 PLAY"T150V11M250059L8R2C","M200059T150L803F04F03F04F03F04F03F04F":RETURN
6630 PLAY"T150V11M2500S9L8R2C","M2000S9T150L8O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
6640 PLAY"T150V11M2500S9L8R2C.,"M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
6650 PLAY"T150V11M2500S9L8R2C","M2000S9T150L8O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+":RETURN
6660 pLAY"T150V11M2500S9L8R2C","M2000S9T150L8O3FO4FO3FO4FO3FO4FO3FO4F"
6670 PLAY"T150V11M2500S9R4L8CR4CCL16CC","M2000S9T150L8O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
6680 pLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8D+","M2000S97150L803C04C03C04CO3C04CO3C04C":RETURN
6690 PLAY"XT$,","M2500S9T138R8L8O5CL8D+R8L8CL80P8L8D","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
6700 PLAY"XT$,","M250089T138R8L8O5CL8FR8L8CL8FR8L8","O3FO4FO3FO4FO3FO4FO3FO4F":RETURN
6710 pLAY"XT$,","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8L8D+","M2000S9O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
6720 pLAY"XT$;","M250089T138R8L8O5CL8D+R8L8CL85+R8D+","M2000S9T150L8O3CO4CO3CO4CO3C04CO3CO4C":RETURN
6730 PLAY"XT$,","M2500S9T138R8L8O5CL8DR8L8CL8DR8L8D","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
6740 PLAY"XT$;","M2500S9T138R8L8O5CL8FR8L8CL8FR8L8","O3FO4FO3FO4FO3FO4FO3FO4F":RETURN
6750 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8L8D+","M2000S9O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
6760 pLAY"XT$,","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T150V10L1O5G":RETURN
6770 PLAY"XT$;","O2A+O3A+2A+O3A+O2A+O3A+O2A+O3A","L1O5F"
6780 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","L10O5G+"
6790 PLAY"T150V10M2100S9R4L8CCR8L8CCC","O3D+O4D+O3D+O4D+O3D+O4D+O3DO40","L1O5G":RETURN
6800 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T155L1O5G"
6810 PLAY"XT$;","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+","L1O5F"
6820 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","L1O5G+":RETURN
6830 PLAY"T150V10M2100S9R4L8CCR8L8CCC","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D","L1O5G"
6840 PLAY"XT$;","M2000s9t150L8O3Co4Co3C04CO3Co4CO3CO4C","t150V11R8L8o6CO5a+O6CD+FFC“
6850 PLAY"XT$;","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+","L8R8O6CO5A+O6CD+FF":RETURN
6860 PLAY"XT$;","O3FO4F03FO4FO3FO4FO3FO4F","L8R8O6CO5A+O6CD+FFD+"
6870 PLAY"T150M2100S9R4L8CCR4L8CC","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D","L8R8O6F+FD+F+L16FL8D+"
6880 PLAY"XTS;","M2000S9T150L8O3CO4CO3C04CO3CO4CO3C04C","T150V11R8L8O6CO5A+O6CD+FFC":RETURN
6890 PLAY"XTS;","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A","L8R8O6CO5A+O6CD+FF" 
6900 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","L8R8O6CO5A+06CD+FFD+"
6910 PLAY"XT$;","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D","L8R80O6F+FD+F+L16FL8D+":RETURN
6920 IFMU<>1THEN6430
6930 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T150V10M2500S9R8L8O5GFGA+L1606CO5A+"
6940 PLAY"XT$;","O3D+O4D+O3D+O4D+O3D+O4D+03D+O4D+","T150V10M2500S9R8L8O5GFGA+L1606CO5A+"
6950 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","T150V10M250059R8L8O5GFGA+L16O6CO5A+":RETURN
6960 PLAY"XT$;","O2G+O3G+O2G+O3G+O2G+O3G+O2G+O3G+","T150V10M2500S9R8L8O5GFGA+L16O6CO5A+"
6970 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T150V10M2500S9R8L8O5GFGA+L16O6CO5A+"
6980 PLAY"XTS;","O3D+O4D+O3D+O4D+O3D+O4D+O3D+O4D+","T150V10M2500S9R8L8O5GFGA+L16O6CO5A+":RETURN
6990 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","T150V10M2500S9R8L8O5GFGA+L16O6CO5A+"
7000 PLAY"XT$;","O2G+O3G+O2G+O3G+O2G+O3G+O2G+O3G+","T150V10M25000SR8L8O5GFGA+L16O6CO5A+":RETURN
7010 SOUND7,8:PLAY"T120M12000S9O4L2ET150ET120L8EL2EL2T150GT120L8F#T150L2F#T120L8ET150L2ET120L8DT120L2E":RETURN 
7020 SOUND7,8:PLAY"S9M1500O6L12CFD":RETURN
7030 '
7040 ' REDEF DES LUTINS
7050 '
7060 DATA7,1,3,3,35,126,254,254,127,3,3,3,3,6,14,15,192,0,128,128,136,252,254,254,252,128,128,128,128,192,224,224
7070 'AVION DROITE
7080 DATA0,1,1,1,193,225,255,158,255,225,193,1,1,1,0,0,192,224,240,224,224,225,253,63,253,225,224,224,240,224,192,0
7090 'AVION BAS
7100 DATA15,14,6,3,3,3,3,127,254,254,126,35,3,3,1,7,224,224,192,128,128,128,128,252,254,254,252,136,128,128,0,192
7110 'AVION GAUCHE
7120 DATA3,7,15,7,7,135,191,252,191,135,7,7,15,7,3,0,0,128,128,128,131,135,255,121,255,135,131,128,128,128,0 
7130 'HELICO GAUCHE
7140 DATA0,0,0,159,192,255,223,143,7,3,0,3,0,0,0,0,0,0,0,252,128,248,164,162,254,252,145,254,0,0,0,0
7150 'HELICO DROITE
7160 DATA0,0,0,63,1,31,37,69,127,63,137,127,0,0,0,0,0,0,0,249,3,255,251,241,224,192,0,192,0,0,0,0,0
7170 ' JET HAUT
7180 DATA1,1,3,11,11,15,15,30,30,62,62,111,111,239,255,56,0,0,128,160,160,224,224,240,240,248,248,236,236,238,254,56
7190 ' JET DROITE
7200 DATA96,120,254,199,255,127,127,124,127,127,255,199,254,120,96,0,0,0,0,4,28,248,224,252,127,252,224,248,128,0,8,0,0
7210 ' JET BAS
7220 DATA56,255,239,111,111,62,62,30,30,15,15,11,11,3,1,1,56,254,238,236,236,248,248,240,240,224,224,160,160,128,0,0
7230 ' JET GAUCHE
7240 DATA0,0,0,1,31,7,63,254,63,7,31,1,0,0,0,0,6,30,127,227,255,254,254,62,254,254,255,227,127,30,6,0
7250 'GASP
7260 DATA129,65,0,0,100,139,170,174,202,0,255,0,0,65,129,0,2,4,0,0,220,18,210,60,208,16,240,0,0,4,2,0
7270 'MORT
7280 DaTA0,128,67,4,19,56,60,62,62,188,56,56,48,48,32,1,129,1,130,64,144,56,120,248,248,123,56,56,24,8,2,1,0 
7290 'SOUCOUPE1
7300 data0,0,0,3,7,15,31,53,63,31,14,0,0,0,0,0,0,0,128,224,240,248,252,86,254,252,56,0,0,0,0,0
7310 'SOUCOUPE2
7320 data0,0,0,3,7,15,31,58,63,31,1,0,0,0,0,0,0,0,128,224,240,248,252,174,254,252,192,0,0,0,0,0
7330 'AIGLE
7340 DATA3,6,7,5,1,255,127,31,7,3,2,12,4,0,0,0,128,128,128,128,128,254,252,240,192,128,128,96,64,0,0,0
7350 'BALLE
7360 DATA0,0,0,24,24,0,0,0
7370 '
7380 ' TIME PILOTE
7390 '
7400 DATA0,63,64,95,95,67,57,5,5,5,5,5,5,5,5,5,5,5,5,5,5,4,3,0
7410 DATA0,252,2,250,250,194,156,160,160,160,160,160,160,160,160,160,160,160,160,160,160,32,192,0
7420 DATA0,60,66,90,90,90,90,90,90,90,90,90,90,90,90,90,90,90,90,90,90,66,60,0
7430 data0,63,64,95,95,92,89,90,90,90,90,90,90,90,90,90,90,90,90,90,90,66,60,0
7440 data0,255,0,255,255,120,50,181,181,181,181,181,181,181,181,181,181,181,181,181,181,133,120,0
7450 data0,240,8,232,232,232,104,104,104,104,104,104,104,104,104,104,104,104,104,104,104,8,240,0
7460 DATA0,127,128,191,191,184,179,180,180,179,184,191,191,184,179,180,180,179,184,191,191,128,127,0
7470 DATA0,248,4,244,244,4,248,0,0,224,16,208,208,16,224,0,0,248,4,244,244,4,248,0
7480 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7490 data0,63,64,79,95,92,89,90,90,89,92,95,95,92,89,90,90,90,90,90,90,66,60,0
7500 data0,252,2,242,250,58,154,90,90,154,58,250,242,2,252,0,0,0,0,0,0,0,0,0
7510 data90,89,92,95,95,64,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,252,2,250,250,2,252,0,0,63,64,79,95,92,89,90 
7520 data90,90,90,90,90,90,90,90,90,89,92,95,79,64,63,0,0,252,2,242,250,58,154,90
7530 data90,90,90,90,90,90,90,90,90,154,58,250,242,2,252,0
7540 data0,63,64,95,95,92,89,90,90,89'92,95,95,92,89,90,90,89,92,95,95,64,63,0
7550 data0,252,2,250,250,2,252,0,0,224,16,208,208,16,224,0,0,252,2,250,250,2,252,0
7560 DATA170,85,170,85,170,85,170,85 
7570 '
7580 '	Y.P.S.
7590 '
7600 DATA0,57,123,255,189,189,153,65,57,61,117,253,189,153,66,60,0,192,192,192,192,192,192,192,192,192,192,199,143,31,22,28
7610 DATA0,31,63,127,131,153,165,173,153,130,156,184,184,184,176,224,0,0,128,192,192,192,192,128,0,0,0,7,15,31,22,28
7620 DATA0,15,31,63,66,158,175,191,159,67,57,29,61,121,130,124,0,192,128,0,0,0,0,128,192,192,192,199,143,31,22,28