FIRE-COPTER ========C16= (P) 7/87 COMMODORE WELT[ =======================u( (C) BY PETER BERGEN2 HILDESHEIM<F BASIC V3.5P C16/116/PLUS4Z =======================d55,0:56,56::1900nA(TI)x1590:0,1:4,1::46K%(30,15):E1:N0:RU5:LA2Q:B3346:A223EE,7,4:E,B,A,ZV$"":E,B,AE,"":E,3,3:E,B,A2,"****"CE50::E,100,.1::1,2:E,14,8,FL$"FIRE- COPTER"FO$:AE2000::E,6:E,12,8,FL$" BITTE WARTEN!"FO$84:4,E:N,E:1080:W50:1420:1540T10:T20:T30:W50:SP2000:H11:V11:H1:V1:S110:S10:SO100:SC.06BO15:340:580E,10,(K%(H,V)E)2:E,H,V,RN$" "RF$:E,200,.4:BSE:5:ABO560"(1)129W3WWE:SCSC.001:540:570:BBE:AAEWAS24:U$"EINE AKUTE UEBERHITZUNG":340:980pBBOEKRKR1:290AAE:3,N,2:240"3,N,2:(1)0330,WE3306WWE:SCSC.001:540@290JASEBO:E,34,A,B4$:T1,10,4:ABO223:E,34,A,RN$B4$RF$::46^1,2:E,34,24,"":YhE,7,5:BSEBOE:570::290rE,2:A21SE:E,35,A,"":E,35,AE,"":E,35,A2,B2$|520:U$"EINE LUFTRAUM UEBERSCHREITUNG":7:E,7,4:ASEBOE:E,34,A,B4$:E,34,AE,ZV$""<E,34,A2,"":A:E,3,4:3,200,50:BA2A2EdE,34,B,"****":CE200:::4:530U$"TREIBSTOFFMANGEL":520:U$"EINE ZU HARTE LANDUNG":E,10,4:E,34,BO,RN$B4$:E,34,BOE,B4$RF$:E,10,4:A21"E,35,A,RN$"":E,35,AE,"":E,35,A2," "RF$:530/ASEnAAE:E,35,A,RN$"":E,35,AE,"":E,35,A2," "RF$:530{ASEAAE:4707:E,3,4:3,200,50:ASES2:E,34,A,"****"::4T1500::E,2:E,8,22,"":"###";W:E,7,5:&E,2:E,18,22,"":;P2:10E,3,2:E,34,A,"****":M:E,7,4:E,34,B,"":VD220jNVU1VU0:230}X(1)129360b(1)7T1T1.03l(1)3T1T1.03v(1)5T2T2.03(1)1T2T2.03(1)128T3T3SC:SPSP5:E,E,.2 T1.8T1.8T2.8T2.81T3.6T3.6{H1H1T1:V1V1T2:S1S1T3:H(H1.5):V(V1.5):S(S1.5):T3T3.02SPSP.2HEVE370:980H30H30:220:370:980V15V15:220:370:980K%(H,V)14VU1:K%(H,V)K%(HE,V)E,2::E,H,V,RN$"*"RF$1BO24K%(H,V)SE,34,BO2,B4$:E,34,BOE,B4$ E,10,4:E,34,BO,RN$B4$:E,34,BOE,B4$RF$:E,7,4E,34,S2,B4$:E,34,SE,ZV$"":E,34,S,"":E,34,SE,B4$RF$ SBO2860*S3370:9804E,2,20,""<>"#####";(T150.5),(T250.5),(T350.5),(SP)PHSPN400:980YR580d\239,0fT1.02T1.02T2.02T2.02T3.2440:980p450zHEH30900:Չ930VEV15910:Չ930W50:SC.06:P2P2P1:P10:540:550KRRUP5EP50:950QHP3VP4460:P1E:P51:550:P30:P40:E,24,20,B4$B${530:T1N:T2N:T3T3.6:SPSP20:580:E,2:E,2,8,RF$"SIE HABEN IHREN AUFTRAG ERFOLGREICH",C4$C3$"BEENDET. FLIEGEN SIE NUN ZU IHREM":C4$C3$"NAECHSTEN EINSATZORT!"1A12000::KSKSKR:RURU2:KR0:140n:E,6:E,E,5,"DER EINSATZ WURDE ABGEBROCHEN, WEIL "B4$C4$;U$;" VORLAG."E,3,5:C4$C4$C4$" IHRE BISHERIGEN LEISTUNGEN:"C4$" KRATERLOESCHUNGEN :";KSKR:" GERETTETE PERSONEN:";P22E,6:C4$C4$C4$" MOECHTEN SIE DENNOCH DEN NAECHSTEN"\C4$" EINSATZ FLIEGEN? (J=JA/N=NEIN)"dA$A$"J":KR0:KS0:P20:P10:180$A$"N".10408LA11270:LA2:Ռ1120:LA1BBE15:AE30:C:K%(A,B)C::(LBE15:AE30:E,10,(K%(A,B)E)2:E,A,B,RN$" "RF$::.Vo`5,4,5,5,6,6,5,4,3,2,2,2,2,2,2,3,4,5,6,7,8,9,8,7,7,6,5,4,4,3j4,5,6,6,7,7,6,5,4,3,2,2,2,2,3,4,5,6,7,8,9,10,9,8,7,6,6,5,5,4t5,6,7,7,7,8,7,6,5,4,3,2,2,3,4,5,6,7,8,9,10,11,10,9,8,7,6,5,4,3;~6,7,8,8,8,9,8,7,6,5,4,3,3,4,5,6,7,8,9,10,11,12,11,10,9,8,7,6,5,47,8,9,9,9,10,9,8,7,6,5,4,4,5,6,7,8,9,10,11,10,11,10,9,8,8,7,6,5,48,9,9,9,10,11,10,9,8,7,6,5,5,6,7,8,7,8,9,10,10,11,10,9,8,7,6,5,4,4 8,9,9,10,11,12,11,10,9,8,7,6,6,5,6,7,6,7,8,9,10,11,10,9,9,8,7,6,5,5\ 9,10,11,12,13,12,11,10,9,8,7,6,5,6,6,5,6,7,8,9,10,9,9,8,7,6,5,5,6,6 8,9,10,11,12,12,12,11,10,9,8,7,6,6,7,6,5,5,6,7,8,9,10,9,8,7,6,5,6,6 7,8,9,10,11,11,11,10,9,8,7,6,6,5,6,5,6,5,5,6,7,8,9,10,9,8,7,6,7,72!6,7,8,9,10,10,10,9,8,7,6,5,5,6,5,5,5,4,5,6,7,8,9,10,10,9,8,7,8,8u!5,6,7,8,9,9,9,8,7,6,5,4,4,5,4,4,4,3,4,5,6,7,8,9,10,10,9,8,9,9!5,5,6,7,8,8,9,8,7,6,5,4,3,4,3,3,4,4,5,6,7,8,9,9,10,11,10,9,10,10"4,4,5,6,7,8,8,7,6,5,4,3,3,3,2,2,3,4,5,6,7,8,9,8,9,10,11,10,11,11F"3,3,4,5,6,7,7,6,6,5,4,3,2,2,2,2,3,4,5,5,6,7,7,7,8,9,10,11,12,11"7,7,7,7,7,8,9,10,9,8,7,6,5,4,3,2,2,3,4,5,4,3,2,2,2,2,2,2,3,4"8,7,7,7,8,9,10,11,10,9,8,7,6,5,4,3,3,4,5,6,5,4,3,2,2,2,2,2,3,3# 8,8,7,8,9,10,11,12,11,10,9,8,7,6,5,4,4,5,6,7,6,5,4,3,2,2,2,2,2,2Z#8,8,8,9,10,11,12,13,12,11,10,9,8,7,6,5,5,6,7,8,7,6,5,4,3,2,2,2,2,2#7,8,8,8,9,10,11,12,11,10,9,8,7,6,5,5,6,7,8,9,8,7,6,5,4,3,2,2,2,2#(7,7,8,8,8,9,10,11,10,9,8,7,6,5,5,6,7,8,9,10,9,8,7,6,5,4,3,2,2,2*$27,7,8,8,8,8,9,10,9,8,7,6,5,5,6,7,8,9,10,11,10,9,8,7,6,5,4,3,3,3p$<7,8,8,8,9,8,8,9,8,7,6,5,5,6,7,8,9,10,11,12,11,10,9,8,7,6,5,4,4,4$F8,8,8,9,10,9,8,8,7,6,5,5,6,7,8,9,10,11,12,13,12,11,10,9,8,7,6,5,5,5%P8,8,9,10,11,10,9,8,7,6,5,5,5,6,7,8,9,10,11,12,11,10,9,8,7,6,5,5,6,6K%Z8,9,10,11,12,11,10,9,8,7,6,5,5,5,6,7,8,9,10,11,10,9,9,8,7,6,6,6,6,7%d9,10,11,12,13,12,11,10,9,8,7,6,5,5,5,6,7,8,9,10,9,9,10,9,8,7,6,7,7,7%n8,9,10,11,12,11,10,9,8,7,6,5,4,4,4,5,6,7,8,9,9,10,11,10,9,8,7,7,7,7'&x8,8,9,10,11,10,9,8,7,6,5,4,3,3,4,5,6,7,8,9,10,11,12,11,10,9,8,7,7,7p&8,8,8,9,10,9,8,7,6,5,4,3,3,4,5,6,7,8,9,10,11,12,13,12,11,10,9,8,7,7&E,2:AN24:E,33,A,RF$""B4$"":&E,33,N,"":E,33,24,""&E,6,4:A1823:E,E,A,RN$BL$RF$:0'E,2,19,B2$"L/R"B2$"O/U"B3$"FG"B3$"TA ":E,2,20,(BL$,21)b'E,6,5:E,2,N,"A B C D E F G H I J K L M N O"'BE:E,N,2,"":A3152:205,A:"#";B:BBE:'E,6,4:E,2,22,B2$"LF:"B3$B3$"PER:"B3$B3$:540:550'1560'P3HZ:P4VZ(E,6,4:E,24,19,"M/P ":E,24,20,B4$B$:E,21(B(P32.5)64U(E,25,20,"":;(B);(P42.5):g(AERU:1560(K%(HZ,VZ)14:E,3,3:E,HZ,VZ,RN$" "RF$::(HZ((E)27)2:VZ((E)12)2("K%(HZ,VZ)14K%(HZ1,VZ)141560(,)61670:A832849:B:A,B:)@832:C14847,)JA:A11640;)TCC1:C,AE)^1610c)hD65280:D18,(D18)251z)rD19,(D19)356)|)162,0,189,0,208,157,0,56,189,0,209,157,0,57,202,208,241,96)15,96,176,176,184,185,255,191*255,3,15,63,112,230,230,247"*255,0,128,224,16,8,38,35;*192,0,0,0,0,0,0,192Y*191,126,121,59,59,11,1,0{*255,0,255,255,254,254,255,31*255,0,254,63,31,31,63,255*248,254,31,239,231,230,232,0*1,1,3,3,3,7,7,7*128,128,192,192,192,224,224,224+7,7,7,15,31,29,24,162+224,224,224,240,248,184,24,8O+24,24,24,24,24,24,24,24h+0,0,0,255,255,0,0,0+136,170,34,0,136,170,34,0+&2,50,50,50,2,124,184,184+0184,128,184,76,68,72,76,192+:128,152,152,152,128,124,58,58,D58,2,56,36,68,36,100,2 ,N-1),X NACHSPANN ===========E,b FARBCODES/STEUERCODES_,lC4$(017):RN$(018)y,vC3$(029):FL$(130),FO$(132):RF$(146),B$" ":B2$B$B$:B3$B2$B$:B4$B3$B$,BL$B4$B4$:BL$BL$BL$BL$B4$B2$- * ZEICHENSATZ/GRAPHIK-ZV$(192)-3- =====================L- 12277 BYTES MEMORYf- 07658 BYTES PROGRAM- 02048 BYTES ZEICHEN- 00273 BYTES VARIABLES- 01001 BYTES ARRAYS- 00399 BYTES STRINGS- 00898 BYTES FRE(0).  =====================