ZXTape! 0Created with Ramsoft MakeTZXATRAM DDjF "ATRAM" "ATRAM""A",21*8  "ATRAM" ( +ATRAM @?@` @  @A HD < !    @<|<@D~`~0    @!BBffBbD@BBBDfBB@ D 8 @  @  @ !A!@BZZBRB|B(BBBZBB@D p 80 0@@@@@  @! "B@BBB~JB@|(B~BB|~@D @?@@@@ @ @@A BBBBBBBFD@D($BDBDB@ D @ @p0?@@ @<BB~D ~0@@ 0` @@@@P@H<@`> 8 @ B  P @`( @>` !Ã}ýÁ@~ G_p@f׽@x>0O@x'O@  '׽^`@@ @!p @^￁@   @ 0` !>f߿  @  !ÿýÁ~,? @  @@  !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888JATRAM X 0c@@@@<A>>>?*>"""(D(   `. pBBBBB< ATRAM r=A;E=0:START=0:0:TI=0:TY=0 UAFLAG=0:ACT=2:P$=" ":236099\,20:23658j\,8 d1B$="GR V F S " n1F$="FRS F S " xXC$="" T$="" "G$=" " K$=" " 0 320,1;"COMPLETE ACTIONS TO BE PLAYED" A$ A$=""240 A$="LOAD"9860& A$(1)>"9"230 ANO=A$ ANO5258 e21,12 ;"4+ OR MORE":0:0:21,12 ;" ":7:230 <20,1;" ACTION 1-MAP PREPARATION ":0 520,1;" ROYAL NAVY STARTS Y/N? "  A$  A$="Y"U$="Y":300,  A$="N"U$="I":300,  265  ,Y$(38&,6) .I$(38&,6) 1Y$(1)="LBFBFB" 2I$(1)="LBFBFB" 3Y$(2)="LBFBFB" 4I$(2)="LBFBFB" 5Y$(3)="LBFBFB" 6I$(3)="LBFBFB" 7Y$(4)="LBFBFB" 8I$(4)="LBFBFB" 9Y$(5)="LBFBFB" :I$(5)="LBFBFB" ;Y$(6)="AMF FM" <I$(6)="AMF FM" =Y$(7)="AMF FM" >I$(7)="AMF FM" ?Y$(8)="AMF FM" @I$(8)="AMF FM" AY$(9 )="AMF FM" BI$(9 )="AMF FM" CY$(10 )="AMF FM" DI$(10 )="AMF FM" EY$(11 )="AMF FM" FI$(11 )="AMF FM" GY$(12 )="AMF FM" HI$(12 )="AMF FM" IY$(13 )="AMF FM" JI$(13 )="AMF FM" KY$(14)="AMF FM" LI$(14)="AMF FM" MY$(15)="AMF FM" NI$(15)="AMF FM" OY$(16)="AMF FM" PI$(16)="AMF FM" QY$(17)="AMF FM" RI$(17)="AMF FM" SY$(18)="AMF FM" TI$(18)="AMF FM" UY$(19)="AMF FM" VI$(19)="AMF FM" WY$(20)="AMF FM" XI$(20)="AMF FM" Y(38&,3) I(38&,3) VY(1,1)=72H:Y(1,2)=12 :Y(1,3)=1 VI(1,1)=72H:I(1,2)=12 :I(1,3)=1 VY(2,1)=72H:Y(2,2)=12 :Y(2,3)=5 VI(2,1)=72H:I(2,2)=12 :I(2,3)=5 VY(3,1)=72H:Y(3,2)=12 :Y(3,3)=9 VI(3,1)=72H:I(3,2)=12 :I(3,3)=9 WY(4,1)=72H:Y(4,2)=12 :Y(4,3)=13 WI(4,1)=72H:I(4,2)=12 :I(4,3)=13 WY(5,1)=72H:Y(5,2)=12 :Y(5,3)=17 WI(5,1)=72H:I(5,2)=12 :I(5,3)=17 UY(6,1)=32 :Y(6,2)=8:Y(6,3)=1 UI(6,1)=32 :I(6,2)=8:I(6,3)=1 UY(7,1)=32 :Y(7,2)=8:Y(7,3)=5 UI(7,1)=32 :I(7,2)=8:I(7,3)=5 UY(8,1)=32 :Y(8,2)=8:Y(8,3)=9 UI(8,1)=32 :I(8,2)=8:I(8,3)=9 VY(9 ,1)=32 :Y(9 ,2)=8:Y(9 ,3)=13 VI(9 ,1)=32 :I(9 ,2)=8:I(9 ,3)=13 YY(10 ,1)=32 :Y(10 ,2)=8:Y(10 ,3)=17 YI(10 ,1)=32 :I(10 ,2)=8:I(10 ,3)=17 XY(11 ,1)=32 :Y(11 ,2)=8:Y(11 ,3)=1 XI(11 ,1)=32 :I(11 ,2)=8:I(11 ,3)=1 XY(12 ,1)=32 :Y(12 ,2)=8:Y(12 ,3)=5 XI(12 ,1)=32 :I(12 ,2)=8:I(12 ,3)=5 XY(13 ,1)=32 :Y(13 ,2)=8:Y(13 ,3)=9 XI(13 ,1)=32 :I(13 ,2)=8:I(13 ,3)=9 YY(14,1)=32 :Y(14,2)=8:Y(14,3)=13 YI(14,1)=32 :I(14,2)=8:I(14,3)=13 YY(15,1)=32 :Y(15,2)=8:Y(15,3)=17 YI(15,1)=32 :I(15,2)=8:I(15,3)=17 XY(16,1)=32 :Y(16,2)=8:Y(16,3)=1 XI(16,1)=32 :I(16,2)=8:I(16,3)=1 XY(17,1)=32 :Y(17,2)=8:Y(17,3)=5 XI(17,1)=32 :I(17,2)=8:I(17,3)=5 XY(18,1)=32 :Y(18,2)=8:Y(18,3)=9 XI(18,1)=32 :I(18,2)=8:I(18,3)=9 YY(19,1)=32 :Y(19,2)=8:Y(19,3)=13 YI(19,1)=32 :I(19,2)=8:I(19,3)=13 YY(20,1)=32 :Y(20,2)=8:Y(20,3)=17 YI(20,1)=32 :I(20,2)=8:I(20,3)=17 XY(21,1)=64@:Y(21,2)=8:Y(21,3)=0 XI(21,1)=64@:I(21,2)=8:I(21,3)=0 YY(22,1)=64@:Y(22,2)=8:Y(22,3)=16 YI(22,1)=64@:I(22,2)=8:I(22,3)=16 Y(23,1)=0 I(23,1)=0 Y(24,1)=11 I(24,1)=11 Y(25,1)=22 I(25,1)=22 Y(26,1)=0 I(26,1)=0 Y(28,1)=11 I(28,1)=11 Y(30,1)=22 I(30,1)=22 Y(32 ,1)=0 I(32 ,1)=0 Y(33!,1)=4 I(33!,1)=4 Y(34",1)=8 I(34",1)=8 Y(35#,1)=12 I(35#,1)=12 Y(36$,1)=16 I(36$,1)=16 Y(37%,1)=20 I(37%,1)=20 =Y(38&,1)=392:Y(38&,2)=24 =I(38&,1)=392:I(38&,2)=24 U$="I"650 DONEY=0:DONEI=0 H7::5:0,0;"RN TASK FORCE AIRFORCE STATUS" B=0:A=1 N=120 A21B=B+8 B$(15)="GR V" N5B$(7)=N F$(67)=N TN5B$(9 10 )=Y(N,1):B$(13 14)=Y(N,2) IF$(9 10 )=Y(N,1):F$(13 14)=Y(N,2)  N>5541  EA=Y(N,3):7:1:A,B;B$(17):0 Y$(N,1)="L"5 .Y$(N,1)="A"Y$(N,1)="J"7 Y$(N,1)="D"2 (A=A+1:A,B;B$(814) %1:A,B;B$(1521) )A=A+1:A,B;B$(2228) V6300:A,B;P$:A=A+1:P$(26)=Y$(N,26):A,B;P$ 6355:A,B;P$  548$ F$(15)="FRS":A=Y(N,3):7:1:A,B;F$(17):5:0:Y$(N,1)="D"2 .Y$(N,1)="A"Y$(N,1)="J"7 (A=A+1:A,B;F$(814)  A,B;F$(1521) !)A=A+1:A,B;F$(2228) " 6000p #[A,B;P$(17):A=A+1:P$(26)=Y$(N,26):A,B;P$ $A=A+1:N %DONEY = 1635{ &DONEY=1 'AFLAG=10: +,7:21,0;"LAND AIRCRAFT" -A$ 0A$=""635{ 7LENGTH = A$:N=1 :4F=N+1:N=F:F=N+1:N>LENGTH626r < A$(N)="L"A$(N)="A"577A ? 570: AA=N-2:B=F-2 BA=0587K D A$(A)="L"A$(A)="A"587K IE$=A$(AB):590N K E$=A$(B) N#S=E$:E$(1)>"9"626r P2>S595S QE$(2)>"9"626r SE=E$ q!E>0E<21628t r,0:21,0;"INCORRECT " s0:555+ t+C=B+1:A$(C)="L"Y$(E,1)="L" uA$(C)="A"Y$(E,1)="A" y F>LENGTHB=0:491 z 570: {57:0:21,0;"OK Y/N? " |A$ ~!A$="Y"DONEI=0651 !A$="Y"DONEI=1900 A$="N"555+  635{ DONEI=0:DONEY=0 ^A=1:B=0:7::4:0,0;"US MARINE CORPS AIRFORCE STATUS" N=120 :B$(15)="AV8B":F$(15)="AV8C" A21B=B+8 N5B$(7)=N F$(67)=N TN5B$(9 10 )=I(N,1):B$(13 14)=I(N,2) IF$(9 10 )=I(N,1):F$(13 14)=I(N,2) N>5679 EA=I(N,3):7:1:A,B;B$(17):0 .I$(N,1)="A"I$(N,1)="J"7 I$(N,1)="D"2 I$(N,1)="L"4 (A=A+1:A,B;B$(814) %1:A,B;B$(1521) )A=A+1:A,B;B$(2228) V6400:A,B;P$:A=A+1:P$(26)=I$(N,26):A,B;P$ 64557:A,B;P$ A=A+1:N EA=I(N,3):7:1:A,B;F$(17):0 .I$(N,1)="A"I$(N,1)="J"7 I$(N,1)="D"2 I$(N,1)="L"4 (A=A+1:A,B;F$(814) %1:A,B;F$(1521) )A=A+1:A,B;F$(2228)  6050 \:A,B;P$(17):A=A+1:P$(26)=I$(N,26):A,B;P$ A=A+1:N DONEI=1830> DONEI=1 AFLAG=10 AFLAG=1 50:7:21,0;"LAND AIRCRAFT" A$ A$=""830> LENGTH=A$:N=1 4F=N+1:N=F:F=N+1:N>LENGTH792  A$(N)="L"A$(N)="A"750  735 A=N-2:B=F-2 A=0765  A$(A)="L"A$(A)="A"765 E$=A$(AB):767  E$=A$(B) #S=E$:E$(1)>"9"792 2>S770 E$(2)>"9"792 E=E$ !E>0E<21800  #21,0;"INCORRECT " 0:720  +C=B+1:A$(C)="L"I$(E,1)="L" %+C=B+1:A$(C)="A"I$(E,1)="A" / F>LENGTHB=0:651 4 735 >,7:21,0;"OK Y/N? " CA$ H*0:A$="Y"DONEY=1900 MA$="N"720 R!A$="Y"DONEY=0491 W 830> EE=0:START=START+1:U$="Y"N$="RN TASK FORCE":5 ,DF=0:Z$=" ":S$=Z$:DT=0 'U$="I"N$="US MARINE CORPS":4 RAFLAG=1:C=1:DONEY=0:DONEI=0:LIN=3:COL=0 ;:0,0;N$:0,19;"ACTION NO ";ACT A$:LENGTH=A$ A$=""6520x A$="V1"491 A$="V2"651 A$="V3"5000 A$="V4"5500| 1A$(1)="V"START=START-1:900 7A$="SAVE"9800H&:START=START-1:900 A$="END"9500% ES=0:R=0:A=1:B=2:A$(AA)=" "6520x A$(A)>"9"6520x B>LENGTH929 A$(B)>"9"929 $F=A$(AB):B=B+1:931 A$(A)>"9"6520x ,F=A$(A):F<1F>226520x "F<1F>226520x CU$="Y"S$=Y$(F):F>5F<21Z$=Y$(F):S$=" " CU$="I"S$=I$(F):F>5F<21Z$=I$(F):S$=" " S$(5)="D"6520x 8F<21S$(1)="D"Z$(1)="D"6520x (U$="Y"S=Y(F,2):R=Y(F,1) (U$="I"S=I(F,2):R=I(F,1) B>LENGTH9000(# "A$(B)="S"62008:938 !A$(B)="E"955:938 <A$(B)="J"1036 :A=A+1:B=B+1:938 A$(B)="D"8000@ <A$(B)="G"85004!:A=A+1:B=B+1:938 "A$(B)="F"8700!:938 "A$(B)="B"6500d:938 /A$(B)="L"8900":B=B+1:938 BLENGTH9000(# %A=A+1:B=B+1:938  6520x 0A=B+1:B=A+1:A>LENGTH6520x B>LENGTHB=LENGTH A$(B)>"9"960 A$(A)>"9"6520x $E=A$(AB):B=B+1:962 A$(A)>"9"6520x  E=A$(A) A$(B)="R"1200 r0:20,0;M$:M$=" ":0:START=START-1:E=0:900 A$(B)="M"966  6520x #E>20E<38&6520x )A=B+1:B=A+1:B>LENGTHB=A 3A$(A)>"2"A$(A)"0"M$="INVALID AIMS":963 U$="Y"S$=I$(E) U$="I"S$=Y$(E) /S$(1)="D"M$="ALREADY GONE":963 A$(A)="2"M=2-M A$(A)="1"M=1-M  6100 E=38&980 .S$(26)=" "S$(1)="D" "Z$=" "U$="Y"Z$=Y$(F) "Z$=" "U$="I"Z$=I$(F) "Z$(1)="L"Z$(1)="A" A$(A)="2"994  x=2 "Z$(X)="M"Z$(X)= " ":998 X=6992 X=X+4:988 M$="AIMs?":963 NZ$(2)="M"Z$(6)="M"Z$(2)=" ":Z$(6)=" ":998  992  6370  U$="Y"F$(67)=F  U$="I"F$(67)=F A$(B)="G"85004! A$(B)="D"8000@ A$(B)="S"62008 A$(B)="L"8900" A$(B)="F"8700! ;U$="I"F$(9 10 )=R:F$(13 14)=S  ;U$="Y"F$(9 10 )=R:F$(13 14)=S    %A$(B)="J"S=S*2:R=R*2  PF<6S$(16)="J ":P$=" ":R>72HR=72H PF>5Z$(16)="J ":P$=" ":R>32 R=32  1:7:1 BF$(15)="FRS":U$="I"F$(15)="AV8C" F$(67)=F /LIN,COL;F$(17):LIN=LIN+1  0 !Z$(1)="L"U$="Y"5 Z$(1)="D"2 !Z$(1)="L"U$="I"4 3F$(9 10 )=R:F$(13 14)=S LIN,COL;F$(814) $ LIN,COL;F$(1521) )[LIN=LIN+1:LIN,COL;F$(2228):6370:LIN,COL;P$(17) .GLIN=LIN+1:P$(26)=Z$(26):LIN,COL;P$ 3 = 7 BP$=" ":Z=2 CX=26 DS$(X)=" "P$(Z)=" " EZ=Z+1:X FBF$(15)="FRS":U$="Y"F$(15)="AV8C" G U$="Y"F$(67)=E H U$="I"F$(67)=E JQU$="I"F$(9 10 )=Y(E,1):F$(13 14)=I(E,2) LQU$="Y"F$(9 10 )=I(E,1):F$(13 14)=I(E,2) Q81:LIN,COL;F$(17):LIN=LIN+1 V/0:S$(1)="D"2:1120` `LIN,COL;F$(814) e1LIN,COL;F$(1521):LIN=LIN+1 j-LIN,COL;F$(2228):LIN,COL;P$ oGLIN=LIN+1:P$(26)=S$(26):LIN,COL;P$ q t;0:U$="Y"5:20,0;"COMMIT Y/N?" w;0:U$="I"4:20,0;"COMMIT Y/N?" yO$ zO$=""1145y |3O$="N"START=START-1:E=0:900 ~O$="Y"1155  1145y )U$="Y"Y$(F)=Z$:E=01160 (U$="Y"I$(E)=S$:TI=TI+DT:DT=0 )U$="I"I$(F)=Z$:E=01165 (U$="I"Y$(E)=S$:TY=TY+DT:DT=0 %TY=15TI=159500% "U$="I"R0I(F,1)=R "U$="I"S0I(F,2)=S DF=18010J "U$="Y"R0Y(F,1)=R "U$="Y"S0Y(F,2)=S !E=0:S=0:R=0 Z$=" ":S$=Z$ %20,0;"END ACTION Y/N?" O$ (O$="N"START=START-1:900 O$="Y"1181 ASTART2ACT=ACT+1:9100#:ACT>ANO9500% U$="Y"U$="I":900 U$="I"U$="Y":900 A=B+1:B=A+1 E>38&6520x B>LENGTH6520x !A$(A)="1"M=0:964 !A$(A)="2"M=1:964 M$="RANGE?":963 0::5 50,0;"RN TASK FORCE TARGETS " >7:4,0;"INVINCIBLE CLASS CARRIERS 21-22" 610 ,0;"AIRSTRIPS 23-24-25" 614,0;"RAPIER S.A.M. BATTERIES " 618,0;"STRATEGIC TARGETS TANKER38" T1:7:2,1;"TARGETS LOST ";TY;" ACTION NO ";ACT:0 N=2138& N>225100 A=5:B=Y(N,3) %5:Y$(N,5)="D"2 A,B;C$(116) ĄA=A+1:A,B;C$(1732 ):1:C=B+1:D=B+12 :7:A,C;"F";Y(N,1):A,D;"S";Y(N,2) %5:Y$(N,5)="D"2 RA=A+1:A,B;C$(33!480):A=A+1:A,B;C$(49164@) C=B+8:A,C;N FC=B+2:7:A,C;"4":Y$(N,4)="D"2:A,C;"4" FC=B+6:7:A,C;"3":Y$(N,3)="D"2:A,C;"3" GC=B+10 :7:A,C;"2":Y$(N,2)="D"2:A,C;"2" GC=B+14:7:A,C;"1":Y$(N,1)="D"2:A,C;"1" )A=A+1:A,B;C$(65A80P) N N>255200P .1:5:A=11 :B=Y(N,1) Y$(N,5)="D"2 A,B;T$(110 ) )A=A+1:A,B;T$(11 20) B7:0:A,B;"4":Y$(N,4)="D"2:A,B;"4" FC=B+3:7:A,C;"3":Y$(N,3)="D"2:A,C;"3" 5:C=C+1:A,C;N 6Y$(N,5)="D"2:0:A,C;N:1  F7:C=B+6:A,C;"2":Y$(N,2)="D"2:A,C;"2" F7:C=B+9 :A,C;"1":Y$(N,1)="D"2:A,C;"1" 5:1 Y$(N,5)="D"2 :A=A+1:0:A,B;T$(110 ):1 N PN>315300 S%N=27N=29N=31N U%5:A=15:B=Y(N,1) W;E=N+1:Y$(E,3)="D"Y$(N,3)="D"2 ZA,B;G$(19 ) _)A=A+1:A,B;G$(10 18) d0:0:C=B+1:7:A,C;N:C=B+6:D=N+1:A,C;D:C=B+1:Y$(N,3)="D"2:A,C;N i>C=B+6:D=N+1:Y$(D,3)="D"2:A,C;D nD1:1:A=A+1:5:A,B;G$(1927) qe1:Y$(E,3)="D"Y$(N,3)="D"2:0:A,B;G$(1927):1 sN %A=19:B=Y(N,1):5 N=38&5400 Y$(N,3)="D"2 A,B;G$(14) )A=A+1:A,B;G$(10 13 )  C=B+1 P0:7:A,C;N:Y$(N,3)="D"2:0:A,C;N:1 ;1:5:A=A+1:A,B;G$(1922) JY$(N,3)="D"2:0:A,B;G$(1922):1 N A=19:B=Y(N,2) "%5:Y$(N,3)="D"2 ,A,B;K$(18) 6(A=A+1:A,B;K$(9 16) @)A=A+1:A,B;K$(1724) JL0:7:A=A-2:A,B;"FUEL":B=B+5:A,B;Y(N,1) T 0: |0::4:0 50,0;"US MARINE CORPS TARGETS " >7:4,0;"TARAWA CLASS CARRIERS 21-22" 610 ,0;"AIRSTRIPS 23-24-25" 614,0;"CHAPARRAL S.A.M. BATTERIES " 618,0;"STRATEGIC TARGETS TANKERS38" ]1:7:0:2,1;"TARGETS LOST ";TI;" ACTION NO ";ACT:0 N=2138& N>225600 A=5:B=I(N,3) .4:0:I$(N,5)="D"2 A,B;C$(116) A=A+1:A,B;C$(1732 ):1:C=B+1:D=B+12 :7:0:A,C;"F";I(N,1):A,D;"S";I(N,2) %4:I$(N,5)="D"2 RA=A+1:A,B;C$(33!480):A=A+1:A,B;C$(49164@) C=B+8:A,C;N FC=B+2:7:A,C;"4":I$(N,4)="D"2:A,C;"4" FC=B+6:7:A,C;"3":I$(N,3)="D"2:A,C;"3" GC=B+10 :7:A,C;"2":I$(N,2)="D"2:A,C;"2" GC=B+14:7:A,C;"1":I$(N,1)="D"2:A,C;"1" 24:A=A+1:A,B;C$(65A80P) N N>255700D %4:A=11 :B=I(N,1) I$(N,5)="D"2 $1:A,B;T$(110 ) )A=A+1:A,B;T$(11 20) B0:7:A,B;"4":I$(N,4)="D"2:A,B;"4" F7:C=B+3:A,C;"3":I$(N,3)="D"2:A,C;"3" 4:C=C+1:A,C;N 6I$(N,5)="D"2:0:A,C;N:1 F7:C=B+6:A,C;"2":I$(N,2)="D"2:A,C;"2" F7:C=B+9 :A,C;"1":I$(N,1)="D"2:A,C;"1" 4:1:  I$(N,5)="D"2  :A=A+1:0:A,B;T$(110 ):1  N DN>315800 G%N=27N=29N=31N I%4:A=15:B=I(N,1) K;E=N+1:I$(N,3)="D"I$(E,3)="D"2 NA,B;G$(19 ) S)A=A+1:A,B;G$(10 18) X0:C=B+1:0:7:A,C;N:C=B+6:D=N+1:A,C;D:C=B+1:I$(N,3)="D"2:A,C;N ]?C=B+6:D=N+1::I$(D,3)="D"2:A,C;D bD1:1:A=A+1:4:A,B;G$(1927) edI$(N,33)="D"I$(E,3)="D"2:0:A,B;G$(1927):1 gN %A=19:B=I(N,1):4 N=38&5900  I$(N,3)="D"2 A,B;G$(14) )A=A+1:A,B;G$(10 13 )  C=B+1 P0:7:A,C;N:I$(N,3)="D"2:0:A,C;N:1 <1:A=A+1::4:A,B;G$(1922) JI$(N,3)="D"2:0:A,B;G$(1922):1 N  %4:A=19:B=I(N,2) I$(N,3)="D"2 A,B;K$(18)  (A=A+1:A,B;K$(9 16) *)A=A+1:A,B;K$(1724) 4LA=A-2:0:7:A,B;"FUEL":B=B+5:A,B;I(N,1) > 0: pP$=" ":Z=2 zX=26 Y$(N,X)=" "P$(Z)=" " Z=Z+1:X  P$=" ":Z=2 X=26 I$(N,X)=" "P$(Z)=" " Z=Z+1:X  E=38&6180$ M=2M=3 E>56150 X=262 $S$(X)=" "S$(X)=" ":M=M-1  M<0 X X=352 $S$(X)=" "S$(X)=" ":M=M-1  M<0 X  X=264  $S$(X)=" "S$(X)=" ":M=M-1  M<0 X X=352 $S$(X)=" "S$(X)=" ":M=M-1  M<0 X  $S$(3)="D"963 )+M=2S$(3)="D":DT=DT+1 . 8A=B+1:B=A+1 9A>LENGTH6520x :(F>5F<21Z$(1)="D" ;F<6S$(1)="D" <2F>5F<21Z$(1)="J"6206> ='F>5F<21Z$(1)="A" >'F<6S$(1)="J"6208@ ?F<6S$(1)="A" @B>LENGTHB=A:6230V BA$(B)>"9"6230V G#A$(A)>"9"M$="SPEED?":963 L%Z=A$(AB):B=B+1:6250j V Z=A$(A) j*S=S-Z:S<0M$="SPEED?":963 t)R=R-Z:R<0M$="FUEL?":963  P$=" "  M=2 X=262 Y$(N,X)=" "P$(M)=" " M=M+2:X  M=3 X=352 Y$(N,X)=" "P$(M)=" " M=M+2:X  /P$=" ":Y$(N,4)="B"P$=" "  P$= " ":Y=2 X=26 Z$(X)=" "P$(Y)=" " Y=Y+1:X  P$=" "  M=2  X=262 I$(N,X)=" "P$(M)=" " M=M+2:X  M=3 #X=352 (I$(N,X)=" "P$(M)=" " -M=M+2:X 2 7/P$=" ":I$(N,4)="B"P$=" " < dA$(B)="S"62008 nA$(B)="B"6530 xM$="INVALID INPUT":963 >PASS=0:A=B+1:B=A+1:B>LENGTH6520x A$(B)>"9"6520x A$(A)>"9"6520x  E=A$(AB) #E>20E<38&6590  6520x U$="Y"PASS=0Z$=I$(E) U$="I"PASS=0Z$=Y$(E) E>257500L %E>25B=B+1:6700, A=B+1:B=A+1 A>LENGTH6653 B>LENGTHB=A (A$(A)="D"B=A:8000@:6780| DA$(A)="S"B=A:62008:A=B:B=A+1:A>LENGTH6649 )A$(A)="G"B=A:85004!:B=A+1 A$(A)="L"8900" BA$(A)="J"B=A:1036 :A=A+1:B=A+1:6620 )A$(A)="F"B=A:A=A-1:8700! ALENGTH6780| A$(A)="P"6660 E>257500L E>256700, &A=A-1:B=B-1:6780| "P=A$(B):B=LENGTHB=B+1  P>46520x )Z$(P)="D"M$="ALREADY GONE":963 " Z$(P)="D" 'aZ$(1)="D"Z$(2)="D"Z$(3)="D"Z$(4)="D"Z$(5)="D":DT=DT+1 ,S$=" "67073 .U$="Y"PASS=0S$=Y$(F) 1U$="I"PASS=0S$=I$(F) 3PASS=1 6X=262 @"S$(X)="B"S$(X)=" ":6745Y JX TM$="LGBs?":963 YBLENGTH6780| ^/B=B-1:S$(1)="L"S$(1)="A" hA=LENGTH6780| r 6610 |P$=" ":Y=2 X=26 S$(X)=" "P$(Y)=" " Y=Y+1:X BB$(15)="GR V":U$="I"B$(15)="AV8B" B$(7)=F B$(9 10 )=R B$(13 14)=S  "B$(7)=F:1:7 81:LIN,COL;B$(17):LIN=LIN+1  0 S$(1)="D"2 !S$(1)="L"U$="Y"5 !S$(1)="L"U$="I"4 3B$(13 14)=S:B$(9 10 )=R LIN,COL;B$(814)  LIN,COL;B$(1521) 1LIN=LIN+1:LIN,COL;B$(2228) *6780|:LIN,COL;P$(17) GLIN=LIN+1:P$(26)=S$(26):LIN,COL;P$ S$(4)=" "6945! P$=" ":LIN,COL;P$ ! &E>257600 +E>227300 0+U$="I"5:Z$(5)="D"2 5U$="I"F>204 :+U$="Y"4:Z$(5)="D"2 ?U$="Y"F>205 DLIN,COL;C$(116) I"F>20X=R:U=S:6990N L(U$="I"X=Y(E,1):U=Y(E,2) M(U$="Y"X=I(E,1):U=I(E,2) NLIN=LIN+1:LIN,COL;C$(1732 ):C=COL+1:D=COL+12 :1:7:LIN,C;"F";X:LIN,D;"S";U:0 X+U$="I"5:Z$(5)="D"2 ]U$="I"F>204 b+U$="Y"4:Z$(5)="D"2 gU$="Y"F>205 lbLIN=LIN+1:LIN,COL;C$(33!480):LIN=LIN+1:LIN,COL;C$(49164@) vC=COL+7:LIN,C;"C";E JC=COL+2:7:LIN,C;"4":Z$(4)="D"2:LIN,C;"4" JC=COL+6:7:LIN,C;"3":Z$(3)="D"2:LIN,C;"3" KC=COL+10 :7:LIN,C;"2":Z$(2)="D"2:LIN,C;"2" KC=COL+14:7:LIN,C;"1":Z$(1)="D"2:LIN,C;"1" 1LIN=LIN+1:LIN,COL;C$(65A80P) F>20E=0 2U$="Y"5:20,0;"COMMIT Y/N?" 2U$="I"4:20,0;"COMMIT Y/N?" O$ O$="Y"7130 >O$="N"F=0:E=0:START=START-1:900  7100 IU$="Y"Y$(F)=S$:Y(F,1)=R:Y(F,2)=S:E=07135 U$="Y"I$(E)=Z$ U$="Y"TI=TI+DT U$="I"TY=TY+DT %TY=15TI=159500% IU$="I"I$(F)=S$:I(F,1)=R:I(F,2)=S:E=07145 U$="I"Y$(E)=Z$  E=0 Z$=" ":S$=Z$ DF=18010J .0:20,0;"END ACTION Y/N?" O$ O$="Y"7200   (O$="N"START=START-1:900  7160  ASTART2ACT=ACT+1:9100#:ACT>ANO9500% "%TY15TI159500% $U$="Y"U$="I":900 %U$="I"U$="Y":900 COL=COL+3 U$="Y"4 U$="I"5 Z$(5)="D"2 (1:LIN,COL;T$(110 ) 1LIN=LIN+1:LIN,COL;T$(11 20) &0:COL=COL+4:LIN,COL;E _COL=19:7:0:0:LIN,COL;"4":Z$(4)="D"2:LIN,COL;"4" P7:COL=COL+3:LIN,COL;"3":Z$(3)="D"2:LIN,COL;"3" PCOL=COL+3:7:LIN,COL;"2":Z$(2)="D"2:LIN,COL;"2" PCOL=COL+3:7:LIN,COL;"1":Z$(1)="D"2:LIN,COL;"1" G4:LIN=LIN+1:COL=19:LIN,COL;T$(110 ) @U$="I"Z$(5)=" "5:LIN,COL;T$(110 ) 92:Z$(5)="D"LIN,COL;T$(110 ) 0:7090 L4Z$(3)="D"M$="ALREADY DESTROYED":963 VZ$(3)="D" [DT=DT+1 ` E>317800x COL=COL+3 #1:5:U$="Y"4 /E=26E=28E=30N=E+1 /E=27E=29E=31N=E-1 U$="Y"O$=I$(N) U$="I"O$=Y$(N) O$(3)="D"2 LIN,COL;G$(19 ) 1LIN=LIN+1:LIN,COL;G$(10 18) 1LIN=LIN+1:LIN,COL;G$(1927) "LIN=LIN-1:COL=COL+1  E>N77302 2:0:LIN,COL;E dCOL=COL+5:LIN,COL;N:O$(3)=" "7:0:0:LIN,COL;N:DT=DT-1 ( 7090 2\0:LIN,COL;N:O$(3)=" "DT=DT-1:7:0:0:LIN,COL;N <:2:COL=COL+5:LIN,COL;E:1:0 F 7090 x#1:2:COL=COL+6 }E=38&8800`" LIN,COL;G$(14) 1LIN=LIN+1:LIN,COL;G$(10 13 ) 1LIN=LIN+1:LIN,COL;G$(1922) L0:0:LIN=LIN-1:COL=COL+1:LIN,COL;E:7090 "B$(7)=E:1:7 BB$(15)="GR V":U$="Y"B$(15)="AV8B" 81:LIN,COL;B$(17):LIN=LIN+1  0 #7:S$(1)="D"2 QU$="Y"B$(9 10 )=I(E,1):B$(13 14)=I(E,2) QU$="I"B$(9 10 )=Y(E,1):B$(13 14)=Y(E,2) ?LIN,COL;B$(814):LIN,COL;B$(1521) "1LIN=LIN+1:LIN,COL;B$(2228) , 6780| 6 6915 ; @DF=1 E'DF=1:H=B:BLENGTH6520x G J)H=H+1:J=H+1:J>LENGTHJ=H TA$(J)"9"8100 ^ E=A$(H) hU$="Y"I$(E,1)="D" rU$="I"Y$(E,1)="D" |A$(J)="D"E=0: H=J:8010J  E=A$(HJ) U$="Y"I$(E,1)="D" U$="I"Y$(E,1)="D"  E=0 H=J+1:HLENGTH A$(H)="D"  8010J !4#F>5F<218600 ! !9S$=" "U$="Y"S$=Y$(F) !;S$=" "U$="I"S$=I$(F) !> X=2 !@S$=" "S$(1)="D": !C"S$(X)="B"S$(X)=" ":8590! !EX=68530R! !HX=X+2:8515C! !R X=3 !\X=5S$(1)="D" !b"S$(X)="F"S$(X)=" ":8590! !cX=58590! !fX=X+2:8540\! ! ! X=2 !Z$=" "U$="Y"Z$=Y$(F) !Z$=" "U$="I"Z$=I$(F) !Z$=" "Z$(1)="D": !"Z$(X)="M"Z$(X)=" ":8590! !X=68630! !X=X+4:8610! ! X=3 !X=5Z$(1)="D" !"Z$(X)="F"Z$(X)=" ":8590! !X=58590! !X=X+2:8640! !#F=21F=228791W" !)A=B+1:B=A+1:B>LENGTHB=A !A>LENGTH6520x "FUEL=A$(AB) "6U$="I"I(38&,1)=I(38&,1)-FUEL " 6U$="Y"Y(38&,1)=Y(38&,1)-FUEL " >U$="Y"Y(38&,1)0Y$(38&,3)="D" ">U$="I"I(38&,1)0I$(38&,3)="D" " R=R+FUEL ")F>58780L" ".R>72HR=72H "8A=B:B=B+1: "LR>32 R=32 "VA=B:B=B+1: "WR=64@:S=8 "[A=A+1:B=B+1: "`(2:U$="Y"X=I(38&,1) "b(2:U$="I"X=Y(38&,1) "c!U$="Y"S$(3)=" "4 "d!U$="I"S$(3)=" "5 "eLIN,COL;K$(18) "j0LIN=LIN+1:LIN,COL;K$(9 16) "t1LIN=LIN+1:LIN,COL;K$(1724) "~QLIN=LIN-2:7:0:LIN,COL;"FUEL":COL=COL+5:LIN,COL;X " ""F>5F<218950" "S$(1)="D" "S$=" "8920" "U$="Y"S$=Y$(F) "U$="I"S$=I$(F) "S$(1)="L" " "Z$(1)="D" "Z$=" "8965# "U$="Y"Z$=Y$(F) #U$="I"Z$=I$(F) #Z$(1)="L" #  #(>F>20LIN=3:COL=0:E=F:Z$=S$:69600 #2<F>5F<21LIN=3:COL=4:1040 #<1F<6LIN=3:COL=4:6850 #AE=09055_# #F3E>20LIN=3:COL=16:6950& #P=E<21E>5LIN=3:COL=16:1085= #Z2E<6LIN=3:COL=16:7900 #_"F>5F<211140t #d 7090 #N=15 #`Y$(N,1)="L"Y$(N,26)="BFBFB":Y(N,1)=72H:Y(N,2)=12 #`I$(N,1)="L"I$(N,26)="BFBFB":I(N,1)=72H:I(N,2)=12 #{Y$(N,1)="A"Y(N,1)=Y(N,1)-Y(N,2):Y(N,2)=12 :Y(N,1)0Y$(N,1)="D" #{Y$(N,1)="J"Y(N,1)=Y(N,1)-Y(N,2):Y(N,2)=24:Y(N,1)0Y$(N,1)="D" #{I$(N,1)="A"I(N,1)=I(N,1)-I(N,2):I(N,2)=12 :I(N,1)0I$(N,1)="D" #{I$(N,1)="J"I(N,1)=I(N,1)-I(N,2):I(N,2)=24:I(N,1)0I$(N,1)="D" #N #N=620 #_Y$(N,1)="L"Y$(N,26)="MF FM":Y(N,1)=32 :Y(N,2)=8 #_I$(N,1)="L"I$(N,26)="MF FM":I(N,1)=32 :I(N,2)=8 #zY$(N,1)="A"Y(N,1)=Y(N,1)-Y(N,2):Y(N,2)=8:Y(N,1)0Y$(N,1)="D" #{Y$(N,1)="J"Y(N,1)=Y(N,1)-Y(N,2):Y(N,2)=16:Y(N,1)0Y$(N,1)="D" #zI$(N,1)="A"I(N,1)=I(N,1)-I(N,2):I(N,2)=8:I(N,1)0I$(N,1)="D" #{I$(N,1)="J"I(N,1)=I(N,1)-I(N,2):I(N,2)=16:I(N,1)0I$(N,1)="D" #N $hY(38&,1)=Y(38&,1)-8:Y(38&,1)0Y$(38&,3)="D" $hI(38&,1)=I(38&,1)-8:I(38&,1)0I$(38&,3)="D" $:Y(21,2)=8:Y(22,2)=8 $:I(21,2)=8:I(22,2)=8 $START=0: %)Y=0:I=0:TY>TI9700% %&TI>TY9600% %5N=120 %: Y$(N,1)="D"I=I+1 %D I$(N,1)="D"Y=Y+1 %NN %XY>I9600% %]I>Y9700% %v&7::10 ,14;"DRAW" %{)12 ,10 ;"RN ";TI;" USMC ";TY %|,13 ,4;"AIRCRAFT ";Y;" ";I %}0:1 %+5::10 ,10 ;"NAVY WINS" % 9595{% %-4::10 ,10 ;"MARINES WIN" % 9595{% &H 7: &R.0:10 ,8;"LOAD BLANK TAPE" &\320,2;"REMOVE EAR LEAD FROM RECORDER" &a)21,6;"PRESS RECORD BUTTON" &fSTART=0 &z"ATRAM PROG"900 & & 7: &*10 ,6;"LOAD SAVED DATA TAPE" &620,0;"START THE TAPE AND PRESS ANY KEY" & 0 &"ATRAM PROG" etarflacB*GR V 1F72S12 F#AV8C1 F72S12 CQTG K nUY&LBFBFBD LBFBFBLBFBFBLBFBFBAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FM &LBFBFBLBFBFBLBFBFBLBFBFBLBFBFBDMF FMDMF FMDMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FMAMF FM DDD ?&H C H H H                @@   ?&H H H H H                @@   oneonebamzcioengts rCfyasphudjONM N RN TASK FORCEZ S AV1P