"";%N010:N120:N2N0N1N C$(13),C(10,2),N$(N2),T(N2,3),M$(1)y"";7);"** MISSIONE CALYPSO **":"STAI VOLANDO SU UN BOMBARDIERE B1""PROVENIENTE DA THULE. SEI IN STATO DI""ALLARME E TI TROVI SULL'ARTICO.":K"TI E' STATA AFFIDATA LA MISSIONE DI":"SGANCIARE UNA BOMBA ATOMICA DI UN""MEGATONE SU DI UNA CITTA' SOVIETICA CON":"PIU' DI UN MILIONE DI ABITANTI.":"IL RAGGIO D'AZIONE DELLA BOMBA E' DI":"250 KM. "::40000:"PER APRIRE LA BUSTA SIGILLATA"M"CHE TI SVELERA' L'OBIETTIVO PRINCIPALE"::12)"PREMI UN TASTO"_A$:A$""29tI113:C$(I):# AU,EC,EV,PH,NA,AL,RO,ST,RA,SE,AR,BO,CC(I1N2:N$(I),T(I,1),T(I,2):-N$(0)"THULE AFB":T(0,1)0:T(0,2)0-2 ARKHANGELSK,7880,5810,ASTRAKHAN',8210,7395,KIYEV,7200,6975k7 LENINGRAD,7420,6160,MOSKVA,7670,6575,MURMANSK,7700,5400< SEVASTOPOL,7340,7475,SVERDLOVSK,8740,6425,VOLGOGRAD,7970,7195AYEREVAN,7980,7920F DUBOWKA,7990,7150,KHAR'KOV,7540,7060,KONOSHA,7870,6130AK LIPETSK,7775,6830,OCHAMCHIRA,7800,7690,ODESSA,7155,7300zP ONEGA,7780,5870,PECHENGA,7625,5335,PINSK,7020,6780R PODOL'SK,7650,6610,PSKOV,7270,6320,ROSTOV,7755,6450T SARPA,8040,7340,SYKTYVKAR,8260,6130,TALLINN,7150,6150<V TBILISI,7990,7800,UKHTA,7520,5800,VINNITSA,7080,7065,VYBORG,7360,6095UZ YARAN'SK,8150,6450dA925000:A0100:C010:S4500:P6:F90:T0:E1.75iM$(0)"SAM":M$(1)"MIG"nX6700(0)2000:Y4200(0)1000xI1N2:T(I,3)0::A(25000(0)):A1A:R901C((0)360):C1C:T9((0)N01):T80:F18500UI110:C(I,1)0::F$"":I15xF$F$(((0)26)65)::L9.3:"":"OBBIETTIVO PRINCIPALE: ";N$(T9);".""CODICE DI INNESCO ";F$;".":"POSIZIONE BOMBARDIERE ="(X)","(Y):3"OBBIETTIVI SECONDARI:":J0:I1N0:IT9230[JJ1:12(J1)1);N$(I);:J3230jJ0:I9t::"BASI MISSILISTICHE SOVIETICHE:"J0:IN01N2:JJ112(J1)1);N$(I);:J3280J0::::"BUONA FORTUNA!";"670::"COMANDO (CC PER VEDERE I COMANDI)";A$:(A$)2310D'CM0P* 10000, FORI=1TO12:REM IFLEFT$(A$,2)=C$(I)THENCM=1:REM NEXT1CM03506"":"I COMANDI SONO :"::"RO PER CAMBIARE ROTTA" 7"AL PER CAMBIARE ALTITUDINE":"ST PER LEGGERE LO STATO"Y8"RA PER AVERE UN RAPPORTO RADAR":"NA PER AVERE I DATI DI NAVIGAZIONE"9"SE PER CERCARE UNA BASE MISSILISTICA":"AU PER INNESTARE IL PILOTA AUTOMATICO";"EV PER EFFETTUARE UNA VIRATA"<"EC PER USARE L'ECM"="PH PER LANCIARE UN MISSILE PHOENIX";>"AR PER INNESCARE LA BOMBA"_?"BO PER FAR CADERE LA BOMBA":z@T0T3(5(0)):1020^ CM 430,970,740,820,560,360,380,700,650,610,390,470,310h"":"NUOVA ALTITUDINE";A1:A1A9A1A9iA1A0A1A0rT0T13(15(0)):10204|"":"NUOVA ROTTA";C1:370BF92420o"":"CODICE DI INNESCO";A$:A$F$F91}F90410"BOMBA INNESCATA.":L910L9:370"CODICE ERRATO.":370"BOMBA GIA' LANCIATA.":370"TEMPO PER IL PILOTA AUTOMATICO (RETURN)";:A$" ")B$:B$""431@B$;:(B$)13439](B$)20A$A$B$:431(((B$)20)((A$)1))A$(A$,(A$)1)431A$A$" ":I0:J0:K0A$" "460I(A$):1650:A$" "460J(A$):1650:A$" "460K(A$)CII(I0):JJ(J0):KK(K0):T2TI60J3600K:1020QF92420_F90530x"":"OBIETTIVO";A$(A$)2540A$(A$,2):1760:((NN1)(NNN0))5401710:RA250550"CONFERMA LANCIO (S/N)";A$A$"S"370)I11500::N$(NN);" DISTRUTTO.":200026L9L915mT8NN:SS250:A0A050:F92:T0T3(5(0)):1020"BOMBA NON INNESCATA.":370"OBIETTIVO IMPROPRIO.":370&N$(NN);" FUORI TIRO.":3700"":"PER DOVE";A$:(A$)26001A$(A$,2):1760:NN1600(D1710:1600eEN$(NN);" DIREZIONE";(AN10)10;"T RAGGIO";(RA);"KM."NT0T40(41(0)):1020X"NON E' NELLA MAPPA.":590b"":I0:J1E4:NNN01N2:1710;RAJ640lT(NN,3)2640 v1600:(CAN)45(CAN)315640 wJRA:INN- :NNI:NN0580P "NESSUNA BASE IN VISTA.":590 "":"CONTATTI:":670:J0" NESSUN CONTATTO." T0T5((0)11):1020 J0:I110:C(I,1)0690 J1!M$((C(I,1)10));"-";C(I,1);"INTERCETTARE IN";C(I,2)T;"SECONDI."!:E!"":"ROTTA";(C);" VELOC.";S;"KMH"k!"ALTIT.";A;"M CARBURANTE";F;"KM"!F92"OBBIETTIVO PRINCIPALE: ";N$(T9)!P;"PHOENIX RIMASTI.":T0T20((0)21):"CODICE ";F$:1020"A1200(300(0)):(0).5A1A1 "AAA1"A014703"A1A:C160(60(0))G"(0).5C1C1l"CCC1:CC360(C360)360(C0)"C1C:I110:C(I,1)0810" J(82(C(I,1)10))(C(I,2)T):J.95J.95"(0)J810#M$((C(I,1)10));"-";C(I,1);"PERDE L'OBIETTIVO";*# C(I,1)10" - RITORNA ALLA BASE";<#!".":C(I,1)0[#*:T0T10(21(0)):1020h#4P0870#5"":"MISSILE PHOENIX ARMATO. OBIETTIVO";A$#6(A$)3A$(A$,3)#>A$"M"A$"MIG"A$"S"A$"SAM"900#?A$"N"A$"NONE"880$@(A$)2880$AA$(A$,2):1760+$HNNN01880A$I1710:RA200890\$J"PHOENIX VIA!":30000o$KII11300:II$RN$(NN);" BASE MISSILISTICA DISTRUTTA.":20002:T(NN,3)2:PP1$\T0T3(5(0)):1020$f"MISSILI ESAURITI!":860 %p"OBIETTIVO NON VALIDO.":860,%zN$(NN);"FUORI TIRO.":860P%J1E4:K0:I110:C(I,1)0920d%C(I,2)TJ920w%JC(I,2)T:KI%:"PHOENIX VIA!":30000:PP1:K0960%J10960%C(K,1)10(0).6960%C(K,1)10(0).85960&M$((C(K,1)10));"-";C(K,1);"DISTRUTTO!":20002/&C(K,1)0:860D&"MANCATO!":860_&I110:C(I,1)01010y&JE(.55(C(I,2)T))&J.97J.97&(0)J1010&M$((C(I,1)10));"-";C(I,1);&C(I,1)10"RITORNA ALLA BASE."'C(I,1)10" SI AUTODISTRUGGE"'C(I,1)0A':EE(.7.3(0)):T0T3(5(0)):1020['T3T0:I91:T0T1060u'I90:T3((0)301)T'I110:C(I,1)01050'C(I,2)T3T3C(I,2)'TC(I,2)101050'C(I,2)10T3T3C(I,2)10':(T2T)(T3T2)1060 (T3T2:I91(($T0T3T:A2A0T0:C2C0T0=(.A2(AA1)AA1h(8C2(360((CC1)180)(CC1))1100(BCCC2(C1C):CC360(C0)360(C360):1110(LCC1(VXXST0(C180)3600(`FF(S(T3T)3600)(jYYST0(C180)3600:TT3 )tF01490?)~DE0:CR0:I110:(C(I,1)0)(DE1)(CR1)1210R)C(I,2)T1200)"":"ESPLOSIONE IN ARIA !!!": 20002:R91:C(I,1)0:I91)AA(3000(0))(.5(0)):A0CR1)A1A:F(F(0)):S(S(.5.5(0))))(0).15DE1*1210*C(I,2)T101210Z*M$((C(I,1)10));"-";C(I,1);"A TIRO DI PHOENIX.":40000:I91k*:CR11470z*DE11480*F921270*NN1N0:1710:RA2501240*T(NN,3)01240*N$(NN);" A TIRO DELLA BOMBA.":T(NN,3)1:I91+T(NN,3)11260+RA2501260G+N$(NN);" FUORI TIRO DELLA BOMBA.":T(NN,3)0M+m+NNN01N2:T(NN,3)21440+(XT(NN,1))7501440+ (YT(NN,2))7501440+ 1710:RA7501440+RA200P01320+T(NN,3)11320+T(NN,3)1$,N$(NN);" BASE A TIRO DI PHOENIX.":40000:I919,(T(NN,3)11340J,)RA2001340X,*T(NN,3)0x,2N$(NN);" BASE FUORI TIRO.",<(0)L9(T0300)(A.125)1440,FJ0:K110:C(K,1)0JK,G:J01440,P(0).51380-ZC(J,1)(9(0)1):M6500:1390!-dC(J,1)212((0)7):M5000:-n1600:L(ANC)180f-xL(MM(S(L))2)((L))(S(L))-1710:C(J,2)T((3600RAL)1)-N$(NN);" LANCIA UN ";M$((C(J,1)10));"-";C(J,1);"."-I91-:NN0:1600:1710:L(CAN).(L30L330)RA6500T20001500".I912902.I911020c."B1 SI SCHIANTA SU UNA COLLINA.":R92:1510."B1 DISTRUTTO."R92:1510."B1 ESAURISCEIL CARBURANTE.":1470.NN0:1710:RAF1505."B1 SI RIFORNISCE IN VOLO DI CARBURANTE.":111500:/"B1 ATTERRA A THULE AFB."8/"MISSIONE COMPIUTA."e/:"SOMMARIO DELLA MISSIONE:":T801540/T8T9"PRINCIPALE";/T8T9"SECONDARIO";/" OBIETTIVO, ";N$(T8);" DISTRUTTO."/"BASI MISSILISTICHE DISTRUTTE:" 0J0:IN01N2:T(I,3)2156004);N$(I):J180:J04);"NESSUNA"k0"R91"L'EQUIPAGGIO MUORE PER LE RADIAZIONI."0,R92"L'EQUIPAGGIO E'MORTO."06"GIOCHI ANCORA ? (S/N)";A$:A$"S"10007"":"F I N E G I O C O":0@DXXT(NN,1):DYYT(NN,2)1JDY0AN90180(DX0):L1TAN(DXDY)180180(DY0)360(DX0)(DY0):b1r(A$,1)","16701|A$(A$,(A$)1):(A$)116501A$" "1A$(A$,(A$)1):1RA((XT(NN,1))2(YT(NN,2))2):1NN1:L0N2:A$(N$(L),2)NNL1:2"DI CHI ";A$:(A$)22050-2A$(A$,2)]2"POSIZIONE: ";:A$"B1"(X);",";(Y):290s21760:NN120502T(NN,1);",";T(NN,2):2902"NON E' NELLA MAPPA.":2902:I112:A$:2:I110:A$,B,C:2' A$"AU"CM13' A$"EC"CM23' A$"EV"CM3'3' A$"PH"CM4:3' A$"NA"CM5M3' A$"AL"CM6`3' A$"RO"CM7s3' A$"ST"CM83 ' A$"RA"CM93"' A$"SE"CM103$' A$"AR"CM113&' A$"BO"CM123'' A$"CC"CM133('3"N II8413#N II4$N 3,300,204&N II:'40u 8:II200100050442u 3,II,7>44uII:F4@ 8h4BLL13: 1,900,20: 1,700,10z4DII1300:II4FLL: