$X PILOTE-**************************************w-- Programme A.VEZON le 22 Octobre 1983 ----------------------------48035,0:(6):(17): 0: 211000: Presentation PILOTE DE CHASSE :PT$(#D000)166ɿ#F89B:10#F8D0* :0:7: Efface,Fond noir,Ecriture Blanchem I48000 48039:I,18: I: Efface 'CAPS',Couleur 1ere ligne (17): CZ(30)10500 : Niveau de difficulte*********************************** Initialisation des variables ***&---------------------------------------- 00:7]S0:SP0: S=Score, SP=Score precedent MS40 : MS=Pas de l'affichage des missiles(FP0 : FP=Drapeau de fin de partie )E1*T%0: *** LIMITE DE TIR ***+R%0: *** LIMITE DE RAVITAILLEMENT *** N-(#D000)166ɿ#F89B:49:'Retour auc caracteres normauxY.#F8D0_12:4:7:(17): Haute resolution , Ciel Bleu ,Avions Blancs3***************************************4***** TRACE DU VISEUR ************' 5---------------------------------------= 7120,95,0:0,10,1T <115,100,0:10,0,1t A9000 : Trace les missiles F 3,4,11,SN: PL,OI,5,20000 P8000 : Trace le tableau de bord ZPK49079 : Indicateur de carburant [***** Initialisation coordonees de depart avion *****@ \I0 (#276):X((1)): I Z ]Y((1)15025) :UYu ^X((1)16040) :CX `** Initialisation du dessin de l'avion ***** aAG12 :SHAG:R3:TR bGD24 :HFGD: GA3:HSGA cDA3 :FSDA  dAD12:EP3 :SFAD:RAEP4 e--------------------------------Y f FP1 10000 : Fin de partie { gE1HCX:VCY :5000:E0:93 h************************************** i*** DEBUT DE PARTIE *********** j--------------------------------------# kCBCB1 : Usure carburant_ CB6 PKPK1: PK,16:CB0 : Affichage du carburantw (PK)18ɹ49080,82 (PK)19ɹ49080,67 PK49040 7600 : Plus de carburant (#208)132 6000 :7000: E1 233:E0 210 (#208)172 XX8:180* (#208)188 XX8:180G (#208)180 YY8:180c (#208)156YY8:180 (#208)186ɗ 2000 : ravitaillment en vol 1000 : Vitesse de l'avion cible 115,100,0:10,0,1 120,95,0:0,10,1 7000 : Efface l'avion* P1 SS(ND10):9500:P0:93I 5000 : Dessine l'avionkXHC5 XHC5 R3 7500XHC5 XHC5 R3 7800 115,100,0:10,0,1 120,95,0:0,10,1  E1 9500:E0: 93 FP1 10000 : Fin de partie107 : La partie continueI**************************************w *** VITESSE ********--------------------------------------Q(1)V1 Q.4 VV1RV6 V0 RRVAGAG(V4)GAGAVGDGD(V8) $EPEPV1) R1 P1 >.Q (1) O8D((1)ND)aB Q.5 1110lLDD1vVXXD` X35 X200 P1 jQ(1)tM((1)ND)~Q.5 1170MM1YYM  Y35 Y184 P1 **************************************C----- RAVITAILLEMENT EN VOL---g------------------------------z PK49055180R%2 180R%R%17000 : Efface l'avion I41760 42080 40:I18,18:I23,20:II4096148901 40:I,0:I ; I14 20:I,199,1:0,30,1:12,16,1:8,5,1: }XR((1)14050):YR((1)13450):R2'CODEES RAVITAILLEURAC0RR1:R17R17 RXXR:RYYR XR55 XR55 :RXXR XR185 XR185:RXXR  YR45 YR45:RYYR   YR165 YR165:RYYRN XR,YR,1:R,1: X R,YR,0:0,(R1),0:0,R,1 qR4 XR,YR,0:R2,1:R4,1 XR(R2),YR(R22),1:R,0,1  XR(R3),YR(R3),1:R3,3,1: R3,3,1!R7 2090"(R6),0,1#R11 2090!$XR1,YRR,1:0,(R2),1:2,0,1:0,R2,1 \%XR(R22),YR(R23),1:R4,0,1:2,1,1:(R8),0,1 *XR(R2),YRR2,0: R4ɭR2,1: R4,14XR(R2),YRR2,0: R4 R2,1:R4,1HR((1)9):VR((1)9)Q(1):Q.5 2240HRHR1XRXRHRQ(1):Q.5 2270+VRVR18YRYRVRECBCB1 h CB10 PKPK1: PK,16:CB0 PK49040 10000 AC1 2360(#208)172 XRXR8(#208)188 XRXR8 (#208)180 YRYR8 (#208)156YRYR8 (#208)132 2350$ 25604. XR115 XR135 2560P/ YR85 YR115 2560 `3 VA1 23604 I41760 42080 40:I18,17:I23,20:I5 VA18 R17 XR120:YR100:AC1:2560 = PA1 PA0:2370@ XR120:YR100:AC1:PA1:2560 A 2560 ;B RX4,RY5,1:I1 10 2:5,0,1:0,1,1:6,0,1 IL 0,1,1:IyV I41760 42080 40:I18,18:I23,20:I ` XDRX1:YDRY6:XT((1)18040):YT((1)40140)  DYYD:DXXD:TXXT:TYYT CX((1)5.5):CY((1)5.5) Q(1):Q.5 CXCX1+ Q(1): Q.5 CYCY17 CBCB1Z CB10 PKPK1: PK,16:CB0 q PK49040 10000  XTXTCX:YTYTCY (#208)188XTXT6:3000 (#208)172XTXT6:3000 (#208)180 YTYT6:3000 (#208)156 YTYT6:3000 (#208)132 2496( 3000B XT30 XT45 3000] YT143 YT155 3000 I41760 42080 40:I18,17:I23,20:I XD,YD,0: TXXD,TYYD,0:5,0 XD,YD,1: 37XD,149YD,1: 5,1:3500 RX,RY,0:R,0: RX,RY,0:0,(R1),0:0,R,0) R4 RX,RY,0:R2,0:R4,0L RX(R2),RY(R22),0:R,0,0 y RX(R3),RY(R3),0:R3,3,0: R3,3,0 (R6),0,0  R11 2590 RX1,RYR,0:0,(R2),0:2,0,0:0,R2,0  RX(R22),RY(R23),0:R4,0,0:2,1,0:(R8),0,00 RX(R2),RYR2,0: R4ɭR2,0: R4,0]( RX(R2),RYR2,0: R4 R2,0:R4,0g2 2040 ************************************** **** Deploiement du tuyau de ravitaillement ****** -------------------------------------- XT17 XT230 XTTX3 YT110 YT179 YTTYU XD,YD,0: TXXD,TYYD,0:5,0x XD,YD,1: XTXD,YTYD,1: 5,1 2440 ************************************** **** Deplacement du tuyau de ravitaillement ****** E1' I14 20:I,199,1:0,30,1:12,16,1:8,5,1: A I4904049079:I,0:X I4904049078 5s R45601 49001 40  EE1: E0 3560  R,1:3570 R,3 R EE1B I49046 CL17L I49045 CL19V I49055 CL18`I,CL: I5,16 :I /t 8000 : Tableau de bordR R45601 49081 40: R,0:RZ50}37,149,0:5,0:XD37,YD149,0 I41760 42080 40:I18,17:I23,20:I RV1: 9000 :MS40:PK49079 RX4,RY5,0:I1 10 2:5,0,0:0,1,0:6,0,00,1,0:IR17E**************************************u*** Branchement du tuyau de ravitaillement--------------------------------------XR120:YR100RXXR:RYYRXR,YR,1:R,1: X R,YR,0:0,(R1),0:0,R,1  R4 XR,YR,0:R2,1:R4,18 XR(R2),YR(R22),1:R,0,1f XR(R3),YR(R3),1:R3,3,1: R3,3,1 v R7 3890 (R6),0,1 (R11 3910 2XR1,YRR,1:0,(R2),1:2,0,1:0,R2,1 !<XR(R22),YR(R23),1:R4,0,1:2,1,1:(R8),0,1 -!FXR(R2),YRR2,0: R4ɭR2,1: R4,1[!ZXR(R2),YRR2,0: R4 R2,1:R4,1 !fRX,RY,0:R,0: RX,RY,0:0,(R1),0:0,R,0 !gR4 RX,RY,0:R2,0:R4,0!hRX(R2),RY(R22),0:R,0,0 !iRX(R3),RY(R3),0:R3,3,0: R3,3,0 "j(R6),0,0"kR11 3950M"lRX1,RYR,0:0,(R2),0:2,0,0:0,R2,0 "mRX(R22),RY(R23),0:R4,0,0:2,1,0:(R8),0,0"nRX(R2),RYR2,0: R4ɭR2,0: R4,0"xRX(R2),RYR2,0: R4 R2,0:R4,0 "} EF1 EF0:3972#RR2:R1 3810 #EF1:3942U# I14 20:I,199,0:0,30,0:12,16,0:8,5,0: # I41760 42080 40:I18,20:I23,20:I#VA0:AC0#7:MS30:TR1:4500:TR0:SS25:NDND2:CB0:50 #**************************************$------- COULEUR ECRAN --------D$--------------------------------------g$ I40960 4128040: I,20:I$ I40961 41281 40:I,0:I$48601,1:48641,1:48681,3:48721,1:48761,3$ 48801,1:48841,3:48881,1:48921,3 : 48561,1$ %**************************************?%*** TRACER DE L'AVION ***k%--------------------------------------v%X,Y,0% R,1% X,(YR),1%AG,GA,1 % GD,0,1% AG,GA,1 % 0,EP,1% X,Y,0% &o**************************************&p *** TIR ***H&q--------------------------------------X&uTR1 6110d&vT%T%1s&z: &MS,191,0: 120MS,91,1&MS,199,0: 0,8,0 :120MS,91,0 &MSMS10: MS190TR1 & XR120 XR120 6100' YR100 YR100 6100'T%0(':E1/'1I'120,100,1: 0,100,1d'120,100,1: 0, 90 ,1 '120,100,1:50,50,1 '120,100,1:50,50,1'120,100,1:50,50,1 '120,100,1:50,50,1'120,100,1:100,0 ,1(120,100,0: 0,100,0 !(120,100,0: 0, 90 ,0 ;(120,100,0:50,50,0U(120,100,0:50,50,0o(120,100,0:50,50,0(120,100,0:50,50,0( 120,100,0: 100,0,0: 7000:7 : 4500( 3,4,11,SN: PL,OI,4,2000(T%3 7500()W**************************************8)X*** EFFACE.DE L'AVION *** d)Y--------------------------------------o)bC,U,0)lT0 T,0)q C,(UT),0)vSH,HS,0) HF,0,0 ) SH,HS,0 ) 0,RA,0 ) C,U,0*CX:UY:TR:SHAG:HSGA:HFGD:RAEP * "*L*** TIR ENNEMI ***H*~X,Y,0:0,VCY,1:X,Y,0:0,VCY,0Q*1:^*HC,VC,0s*I1 22:I,1:*I1 11:I,0:(23I),0:*PK49040 R%2 11000:7625*:2::" MISSION TERMINEE !!!!" +:::" VOUS AVEZ FAIT ";S;" POINTS.":7635C+:4:::" BRAVO MISSION ACCOMPLIE !!!!!" :SS2y+::" VOUS AVEZ FAIT UN SCORE DE ";S;" POINTS ."+SSM7645+:"Vous ne battez pas le score detenu par "+I0 Z:CZ(I)64ɺ(CZ(I));+I,".Il est de ";SM;" points." ,7650C,:" Vous detenez le plus gros score.":Z0:SMSn," Ecrivez votre nom.(appuyez sur la","touche '1' pour l'enregistrer ). ." ,N$:N$"1"10000 ,N$;:CZ(Z)(N$):ZZ1:7648,500 : 10000-x **** TIR AVION RECONNAISSANCE ***5-y-----------------------------_-HC,VC,0:0,YVC,1:HC,VC,0:0,YVC,0h-1:s-X,Y,0-I1 22:I,1:-I1 11:I,0:(23I),0:-7:9500:E1:XHC:YVC:96-?**************************************.@----- TABLEAU DE BORD -------A.A--------------------------------------[.J:""15)"CARBURANT" h.O49041,7x.T49040,17 .^49046,19 .h49056,18 .r 4500 : Couleur ecran.4!.'#**************************************/(#----- MISSILES -------------4/)#--------------------------------------J/+#RV1 RV0:9010g/-#4500 : Couleur ecranw/2# 39,199,1 /<# I1 16/F#0,8,1:1,1,1:0, 9,1:1,0,1:0,8,1:7,8,0 /P#I16 1,0,1/Z#I/d#0%**************************************(0%------ SCORE ----------------T0%--------------------------------------g0% P1 9510 0% R1 SS1000ND0 % R2 SS500ND0!% R3 SS250ND0"% R4 SS100ND0#% R5 SS50 ND0$% R6 SS10 ND0&%S$(S) 1(%SP$(SP)1+%S1 9700,10%Z$"SCORE=":1l%100,0,0 L1v%I1 (Z$) d1% ( (Z$,I,1)),0,1p1% 7,0,0x1% I1% 142,0,01% I2 (SP$)1% ((SP$,I,1)),0,01% 7,0,01%I1% 142,0,01% I2 (S$) 1% ((S$,I,1)),0,12% 7,0,02%I2% :100(2%0,0,0,0G2% 3,4,11,SN: PL,OI,4,2000P2%SPSV2%2'**************************************2'---- NOUVELLE PARTIE ------2'--------------------------------------2'0:2::3'"VOULEZ-VOUS REJOUER ? (O/N)"3'49040,18:49041,0&3' 0,0,0,0A3'3,2,10,SN:7,0,4,200 L3G' RP$ j3V'RP$"O" 0,0,0,0:101003`'RP$"N"ɡ:0:2::0,0,0,0:3j'100553t':"Quel est le niveau de difficulte.(1a9)3u' ND$:ND$"1" ND$"9"101013v'ND(ND$):21&4)**************************************H4)---- NIVEAU DE DIFFICULTE --t4)--------------------------------------4)2 :04)(4)4)(27);(82);(27);"J PILOTE DE CHASSE"4")(4); (27);"T":(27);"W":(27);"Q" 5,):" BUT DU JEU "::M5-)" Mener a bien une mission aerienne"z5.)"de reconnaissance,d'une duree limitee"5/)"par:"::" - La perte d'un appareil."50)" - L'epuisement de votre carburant."51)" - Trois tirs rates."::62)"SCORE:"/66)" Il est en fonction du niveau de"r67)"difficulte choisi.":" Il s'affiche en haut de l'ecran une"68)"fois le premier point acquis."6:)::"Pour continuer,appuyez sur une touche"6<) R$:6@):7D)" STRUCTURE DU JEU "::07E)" Une patrouille est constituee par:":\7F)" - Un premier appareil charge de la"7G)"reconnaissance.(Avion blanc fixe )"7H)" - Un autre ,assurant sa protection":"le suit a peu de distance"7I)"(C'est l'appareil que vous pilotez. )")8J)" - Un avion de ravitaillement en vol"p8K)"permettant de prolonger la duree des ":"missions.(avion noir.)"8L):" ----------- ": 8M)" En permanence,(sauf pendant votre"8N)"ravitaillement.) votre coequipier est"19O)"menace par l'adversaire.(avion blanc clignotant).k9P):::"Pour continuer appuyez sur une touche.":R$:9Q):" CONDITIONS DE TIR "::9R)" PAR VOUS MEME :":" - Amener l'avion adverse dans votre":S)"collimateur,(croix blanche ) a l'aide"J:T)"des touches flechees.":" - Declencher le tir en appuyant sur"g:U)"la barre d'espacement.:V):" PAR VOTRE COEQUIPIER:":Y)" - Automatiquement lorsque l'ennemi ":Z)"est devant lui,(plus petit) et dans " ;[)"sa ligne de tir.(meme axe vertical.)"S;\):" PAR L'ADVERSAIRE:":" - Automatiquement si l'appareil de "};])"votre coequipier est devant lui,et";^)"s'il se trouve dans sa ligne de mire.";_)" - Automatiquement si vous tirez sur" <`)"l'adversaire,trois fois de suite sans":"l'atteindre."Lj)"vert) ou que vous etes en pilotage ":"automatique (voyant rouge)."7>k)" - L'avion ravitailleur (en noir),"c>l)"s'approche alors.Vous devez,a l'aide">m)"des touches flechees,l'ammener dans ":"votre collimateur.Ceci fait:">n)" - Appuyer sur la touche'ESPACE'pour"*?o)"synchroniser vos commandes sur celles":"du ravitailleur(voyant rouge)"W?p)" - Lorsque le ravitailleur est a une"?q)"distance suffisante,une porte s'ouvre"?r)"et un tuyau se deploie."::"Pour continuer appuyez sur une touche"?s)R$:@t):" ACCROCHAGE DU TUYAU"::/@u)" Le voyant passe alors au vert pour"[@v)"vous permettre d'amener l'extremite" @w)"du tuyau (le rond noir),au bout de la"@x)"perche de ravitaillement (en noir sur"@y)"la gauche de votre ecran)."Az)" Quand le rond noir se situe sur le"GA|)"bout de la perche:":" - Appuyez sur'ESPACE'pour savoir si" A})"le ravitaillement est rendu possible ":" (le voyant passe au rouge)"A~)" Le ravitaillement s'effectue alors":"automatiquement."B)" Apres le depart du ravitailleur,la "@B)"partie continue.":" Chaque ravitaillement augmente le"_B)"niveau de difficulte.":B)" ATTENTION: Vous n'avez droit qu'a":"deux ravitaillements."B)::"Pour continuer,appuyez sur une touche":R$:C):" NIVEAU DE DIFFICULTE"::1C)" Le nombre de points obtenus par tir"vC)"reussi est proportionnel au niveau de":"difficulte choisi.":C)::" Choisissez le niveau de difficulte"C)"de 1(facile) a 9 (difficile)."C) ND$C)ND(ND$)C) ND1 10633 D) ND9 10633;D)::" Choisissez le niveau sonore (0 a 5)"`D) SN$: SN$"0" SN$"5" 10638vD)SN(SN$):SNSN3D) SN0 PL4 :OI5D) D***************************************D***** PRESENTATION PILOTE DE CHASSE **E*--------------------------------------?E* 12000: CODAGE DES CARACTERES ]E*X0:2:: 6:(17):(6)|E*7,7,7,32000: BRUIT AVIONE**************************************E+*** GENERIQUE ***E+--------------------------------------F+0,0,0:150,1,20:400)F +V40 140EF+ZZ1: Z5 XX1:Z0PF +0,V,3dF*+ 115(X2),0,3rF4+ 1X,0,1F>+5(X2),0,3FH+1X,0,1FR+5(X2),0,3F\+1X,0,1Ff+VFp+V141 0 1Fz+ZZ1: Z5 XX1:Z0F+0,V,3G+ 115(X2),0,3G+ 1X,0,1#G+5(X2),0,30G+1X,0,1AG+5(X2),0,3NG+1X,0,1[G+V:(6)rG+ 0,0,0,0:49041,2G+ R%2 11222G+" ANDRE VEZON VOUS PRESENTE"G+11226G+" BRAVO !!! MISSION ACCOMPLIE" H+*************************************5H+**** MUSIQUE DE PRESENTATION ****aH+--------------------------------------|H+ I0 17: N: D: OH+ 3,0,10H+ 1,O,N,10H+7,0,7,2000: DH+0,0,0,0H,IH, R%2 H$, 8,30,2,10,20,2,12,25,2 I., 10,30,2,8,20,2,3,100,3$I8, 1,30,3,3,20,3,5,25,3@IB, 3,30,3,1,20,3,8,100,3\IL, 7,30,3,8,20,3,10,25,3xIV, 8,30,3,7,20,3,8,200,3I,**************************************I,***** ECRITURE TITRE **************I,--------------------------------------J,: 49001,4: 49041,42J, 120,150,0:1:80,49,1OJ, 120,150,0:0:80,49,1sJ,(27);"N ":(27);"N "J,49006,102:49046,102: PJ, 120,150,0:1: 68,49,1J, 120,150,0:0: 68,49,1J,:: 10J,49008,103: 49048,103: IK, 120,150,0:1: 56,49,17K, 120,150,0:0: 56,49,1DK-:: 10dK -49010,104: 49050,104: LK- 120,150,0:1: 44,49,1K- 120,150,0:0: 44,49,1K(-:: 10K2-49012,105: 49052,105: OK<- 120,150,0:1: 32,49,1 LF- 120,150,0:0: 32,49,1LP-:: 10 8LZ-49014,106: 49054,106: TVLd- 120,150,0:1: 20,49,1uLn- 120,150,0:0: 20,49,1 Lx-:: 10L-49016,107: 49056,107: EL- 49017,7: 49057,7: BLANCL- 120,150,0:1: 2,49,1L- 120,150,0:0: 2,49,1 M-:: 10*M-49019,108: 49059,108: dHM- 120,150,0:1: 10 ,49,1fM- 120,150,0:0: 10 ,49,1sM-:: 10M-49021,109: 49061,109: eM- 49022,1: 49062,1: ROUGEM- 120,150,0:1: 28 ,49,1M- 120,150,0:0: 28 ,49,1 M.:: 10 N.49024,110: 49064,110: C0LC0 3:L(LC)(46080(X8)(LC4)):UH0LC4 7:L(LC)(46080(X8)(LC4)): UR0CL0 7: 46080(Y8)CL,L(CL):U\0X72:Y111Vf0LC0 3:L(LC)(46080(X8)(LC4)): 2Vp0LC4 7:L(LC)(46080(X8)(LC4)):YVz0CL0 7: 46080(Y8)CL,L(CL):hV0X65:Y112V0LC0 3:L(LC)(46080(X8)(LC4)):V0LC4 7:L(LC)(46080(X8)(LC4)):V0CL0 7: 46080(Y8)CL,L(CL):V0X83:Y113"W0LC0 3:L(LC)(46080(X8)(LC4)):NW0LC4 7:L(LC)(46080(X8)(LC4)):vW0CL0 7: 46080(Y8)CL,L(CL): W0X69:Y114W0LC0 3:L(LC)(46080(X8)(LC4)):W0LC4 7:L(LC)(46080(X8(LC4))):X0CL0 7: 46080(Y8)CL,L(CL): X1