U ---------------------- HELICOPTER /VZ 8530.01 .@ A,B,C,D= FLAGS DISABILITAZ. CANN. (D=DEPOSITO COLPITO)@ BY = COORD. Y BOMBA ELICOTT.A CA(12,2) = COORD. OBIETTIVI SUOLO " > 1: COORD.X 2: POSTAZ"9A " > GRUPPO (12)"[A DA = 1: EL. DANNEGGIATO{A DI = 1: EL. DISTRUTTOA I,J,K = CONTR. CICLI FOR NEXTA X,Y = COORDINATE UFO (BR)A X1,Y1 = COORD. UFO PRECED. (BR)B MX,MY = COORDINATE PROIETTILI1B% SU(38) = ALTEZZA SUOLO (X)B( VO = 1: SPOST. UFO VERSO DX -1: " " " SNB- VV = 1: " " " BASSO -1: " " " ALTOBn ----------------- VIDEO PICTURE .Cp SU(38),CA(14,2)TCq 0,1: 1,2: 4,6,3: 1,1: ,10,5,"H E L I C O P T E R"Cs ,160,130,30,,,,,120: 160,130: I0 359 120: 30;ICu 160,130: : ,14,20, "SVS SOFTWARE": I1 1000: Dx 0,14,5: 1,1: 4,2,3 : 0,1HD ,0,20,"ߒ֑Εߒ"D ,23,20,"ߒ֑ߒ": ,7,20," "D ,9,19," ": ,35,20," " : I0 26: ,I,21," ": E ,33,21," ": Y22 23: X0 39: ,X,Y," ": X,YFE X0 38: ,X,24," ": : ,0,0,""E 4: 1,750,5: PU0: 1,1 ,24,"PUNTI: ": A0: B0: C0: D0E 6000E:E ------------------------- START .FU$"֩ʱ": U1$"   "=F1VO(3(1)1)2: VO0 305eF2VV(3(1)1)1: VV0 306F6X(32(1)): Y(10(1)2) : DISTR0: DANN0: 3FI:FJ ------------------ LOOP CENTRALE . GT 1,X,Y,U$: X1X: Y1Y: DAN1 350: 3,300,1EG^ M$: M$"" 400: M$"4" M$"0" 400Ge (M$)1 8500,8510,8520, 8530,8540: DISTR1 240GXXVO: X32 X0 VOVO: 400GYYVV: (Y15 DA0) Y2 VVVV: 405"H DA1 7500: D1 7000: DISTR1 240YH (15(1))5 DA0 8000: D1 7000rH 1,X1,Y1,U1$: 340Hp ------------- PARAMETRI SUOLO .Hu ---------- MORFOLOGIA SUOLO (Y)Iz 20,20,20,20,19,20,20,19,19,18, 18,18,19,20,20,20,20,20,19,19,19,19 ,20QI 20,20,20,20,21,21,20,21,21,21, 20,20,19,19,19lI I0 37: SU(I): I ---------- COORDINATE OBIETTIVII 3,1,4,1,5,1,15,2,16,2,29,3,30, 3,18,4,19,4,20,4,21,4,22,4 J I1 12: J1 2: CA(I,J): J,I: JW:=JX ------------- DEPOSITO COLPITO .pJb 1,12,17," ": 1: 3,0 ,0: 3,50,3000Jl V1 7: T1 50: : V: : 1,X3,20," "Jv 1,X2,19,"::": 1,X1,18, "' ' '": I1 50: K 1,X2,19," ": 1,X1,18, " "MK 3,0,0: V7 0 1: V: 3,600,8: K ,10,1,"ALTRA PARTITA (S/N)?" : A$: A$"S" 7110K A$"N" 9010: 7050KK 113KK:KL -------------- CADUTA ELICOTT. .*LV KX1 X5: SU(X)Y2 7610: 1,X1,Y1,U1$cL[ ,X,Y,"   " : J1 70: L` ,X,Y,".:''  :.." : J1 70: Le ,X,Y,"   " : 3,0,0: V7 0 1 Mj V: 3,200,3: V: DISTR 1: KX5EM~ I1 12: JX X5: CA(I,1)J 7600iM CA(I,2) 7560,7565,7570,7575MA1: ,3,22," ": I14: 7600MB1: ,16,22," ": 7600MC1: ,30,23," ": I14: 7600MD1: I14M J,I N K: N?;N@ ------------------- BOMBA ELIC. .ND 5: BYY3 SU(X3)2 2 : ,X3,BY,"": 1,9002 BY,3NF ,X3,BY," ": : ,X3, SU(X3),"*": I1 70: OJ ,X3,SU(X3)," ": ,X2,BY 1,"": I1 70: NOL ,X2,SU(X3)1," ": ,X1 ,SU(X3)2,":.::": I1 70: xOO ,X1,SU(X3)2," ": 1 ,0,0OT I1 12: CA(I,1)X3 8040OV CA(I,2) 8023,8024,8025,8026OWA1: ,3,22," ": I14: 8040!PXB1: ,16,22," ": I14: 8040QPYC1: ,30,23," ": I14: 8040_PZD1: I14ePhPr 3,0,0: V7 0 1: V: 3,400,7: : 2P| DANN0 : 3 ,900,3000: P3!:P4! -------------- PARAMETRI LANCIO .3Q>! A1 : MX3: MY 18: SP2: M$"": 8600mQH! B1 : MX16: MY 18: SP0: M$"!": 8600QR! C1 : MX30: MY 19: SP2: M$"": 8600Q\!: ______ X IMPLEMENTAZ.Q!:Q! ---------------- PROIETTILI .R! MYMY 0 2: MXMXSPaR! 1,MX,MY,M$: MYY2 MYY 8680: MXX4 MXX 8680gR!R! ----------------- BOOM PICTURE .R! I1 3: 1,X,Y,U$: 1 ,X,Y,U$,1: J1 20: J,IS! 1,X,Y," * ": ((1)21 )1 8800ES! ,X,Y,U1$: ,X1,Y1,"": ,X1,Y1,"": ,X1,Y,""S! ,X3,Y,"": ,X1,Y1," ": ,X1,Y1," ": ,X1,Y,""S! ,X3,Y," "S! ,X1,Y2,"'": ,X2,Y,".": ,X1,Y2,".": ,X4,Y,"."T! ,X1,Y2," ": ,X2,Y,"": ,X1,Y2,"": ,X4,Y," "TT! ,MX,MY,"": 8700: MY0: DISTR1: 8690gT! 1,MX,MY," "T!: DISTR0 8695: PUPU2: 1,8,24,""(PU)"": T! DANN1 PUNTIPUNTI1T! 1,8,24,""(PU)"": T!U! ------------------ BOOM SOUND .NU! 3,0,0: V8 0 1: V: 3,400,5: : TU_":U`" ------------ ELIC. DANNEGGIATO .Ue" DANN1 8640Uj"DANN1: U1$U1$"": 2: 3,900,4000: ,MX,MY,""Uo"MY0: ,X,Y,U1$: 8690V(# A$ V2# 0: V<#