' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLL- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d ֠z# u`ժՂՀժՂՀժժժժժժժŪժժժժժժժՀժՀժժժժժժՠժժժժՀժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժժժժժՀժՀժժՀժՀժժժՀժժՀժժՂՀժՂՀժժժժժժժŪժժժժժժժՀժՀժժժժժժՠժժժժՀժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժժժժ. <*,.$$<.<ժՀժՀժ$ժՀժՀժժժՀժժՀժժԀժԀժժժժժժժժժժժժժЪժՀЪժՀժժժժժժՊԪժժժՊժժժժժժժժժժժՀժժժժժժժժժժժժժժժժժժժժժ""*"$ $"""ժժժ $ ժՀժՀժԪժՀԪժՀժժԀժԀժժժժժժժժժժժժժЪժՀЪժՀժժժժժժՊԪժժժՊժժժժժժժժժժժՀժժժժժժժժժժժժժժժժժժժժժ >" *"$$"$">"ժժժ$>>$ժՀժՀժԪժՀԪժՀժժЀժЀժժժժժժժժժժժժժԪժՀԪժՀժժժժժժժѪժժժժժժժժժժժժժժժժՊժՊժժժժժժժժժժժժժժժՂժՂժ&"""*"$$""&$"&""ժժժ$&""$ժՀժՀժЪժՀЪժՀժժЀժЀժժժժժժժժժժժժժԪժՀԪժՀժժժժժժժѪժժժժժժժժժժժժժժժժՊժՊժժժժժժժժժժժժժժժՂժՂժ   <<ժժժ<<ժՀժՀժЪժՀЪժՀժժժժժժժժժժժժժժժժժՀժժՀժժժժժժժŪժժժժժժЪժժժժժժժժժՂժՂժժժժժժժժժժՊѪժѪժժժՊժՊժ" " ժժժժՀժՀժժՀժՀժժժժժժժժժժժժժժժժժՀժժՀժժժժժժժŪժժժժժժЪժժժժժժժժժՂժՂժժժժժժժժժժՊѪժѪժժժՊժՊժ  ժժժ LժՀժՀժժՀժՀժ ˿ ˿/ A K /EAEKHJJ݌h ʿ ˿ ˿ ˿ ˿F HhHh݌FG$Ki K ,KLHhG04Hh$Hh e- GLAA# GȄGL@L)L'HJJ݌h Hhꝍ݌``Lݥcpq` [` ~ /Hh/ ۠-H x( ( $8 H` jH     ;' X,Y OF UNITSL;' 2,1,1,2,2,1,2,3,2,2,4,3,2,5,3,1,1,1,1,2,1,1,3,3,1,4,2,1,5,1`;' STRENGTH/MOVEz;' 15,12,12,7,11,7 ;.16368,0:24::"HIT ANY KEY TO RESUME";:1;.:950;.16384,128:16368,0;.;}Y15::X112:M%(X,Y);"/:j' R,R,O,O,R,F,R,C,O,F+:t' O,F,O,O,R,O,O,F,O,R@:~' COMBAT RESULTSn:' 12,12,12,02,03,03,11,12,12,02,02,03:' 21,21,11,11,12,12,21 ,11,11,11,12,01:' 20,21,21,22,12,01,30,31,21,21,11,12:' 40,30,30,31,21,11,40,40,30,30,21,110916384,128:A$::0 92XX1735&9'89' DATA X-MOVEL9' 0,1,1,0,-1,-1_9$' Y-ODD:Y-EVEN9.' -1,-1,0,1,0,-1,-1,0,1,1,1,098' TERRIAN9B' F,O,O,O,R,F,O,O,R,R9L' F,O,O,O,R,F,F,O,R,R9V' O,F,F,R,R,O,O,R,R,R9`' O,F,O,F,F,O,O,O,F,RE8:21:"THE RESULT OF THIS GAME WAS A ":B$;" ";A$;" : SCORE ";VF;"/";VE;v824:1:"HIT ANY KEY TO HAVE ANOTHER GAME.";89508X112:Y15:M%(X,Y)250588TP((M%(X,Y)100))1:I7:DX0:FC0:300:ITP4:FC2:3008:816368,N72000: NEXT TURN7 ENDING87A$"*** DRAW ***":B$""7VFVEVE81A$"VICTORY":VE81B$"MARGINAL":VE66B$"SUBSTANTIVE":VE51B$"DECISIVE"7VEVFVF81A$"DEFEAT":VF81B$"MARGINAL":VF66B$"SUBSTANTIVE":VF51B$"DECISIVE"PX%(N):M1PY%(N):3230:B0:S%(N)0:PX%(N)0:PY%(N)0:TY%(N)0:E(C%(L1,M1)10):DC%(L1,M1)10E:100:VEVE10:39996 I1Q:MC:4X1,Y16:4X1,Y16:3:75:4X1,Y16:4X1,Y16:6 I7:DX0:FC0:3006 ITY%(N):DX0:FC3:300620906A$""::MY%(XS)0:E(C%(X,Y)10):DC%(X,Y)10E:100:FC0:DX0:I7:300:FC3:ITY%(N):300\5 A$"X"2090g5 MINE~5 EMC:DMC:100:905 I7:DX0:FC0:3005 905 QXF5 MVMV((1)XF1):S%(N)S%(N)((1)XF1):MV0MV0k6 S%(N)0B1:L1RM%(L1,M1)2"4 C%(L1,M1)FM%(L1,M1)3-4 B1ı<4 M%(X,Y)1E4 XF0R4 MI110|4 XMX%(MI)YMY%(MI)XFMS%(MI):XSMI4 4 XF0A$"X"20904 XF02090K5 A$"X"MS%(XS)MS%(XS)((1)S%(N)1):MV0:MS%(XS)1MS%(XS)0:MX%(XS)01)O3190!3& XN1:YO1:I7:DX0:FC0:300G30 XN1:YO1:ITY%(N):DX0:FC3:300P3v XS0o3 MVMVM%(N1,O1):MV1XS13 PX%(N)N1:PY%(N)O1:XPX%(N):YPY%(N)3 X,Y:Q1300:3 C%(L1,M1)OM%(L1,M1)13 C%(L1,M1)CIM%(L1,M1)24 C%(L1,M1)PY%(N):3239!2 MZM:MV%(M)0İ65:302152 J16:MV%(J)0M2 L1PX%(N):M1PY%(N)p2 N1L1XM%(M):Z0O1M1YE%(M)2 Z1O1M1YO%(M)2 ITTY%(N)2 XL1:YM1:X0N1:Y0O1:IIT:3502 XL1:YM1:E(C%(X,Y)10):DC%(X,Y)10E:1003 C%(N1,O68,01 1:1:TY%(N)03999)1 2:TY%(N)X1,Y1A1 (16384)1273024o1 TY%(N)X1,Y1:A1A11:A160A$" ":3025y1 30201 A$:M(A$):(M1M6)A$" "A$"S"Ĺ16368,0:65:A1A17:30211 A$"S"İ12000:30152 A$" "A$"X":XPX%(N):Y DISPLAY0 23)0 XPX%(N):YPY%(N):90:Y1Y16m0 21:7:N;" ";:18:TU;" ";:34:MV;" ";:23:34:" ";0 22:34:S%(N);" ";0 24:1:"(SPC):";:I16:MV%(I)0ĺI;":";0 :A10:800 X(36):" ";:XX1:X2230170 950:163Y%(N))2209$/TY%(N)1S%(N)S%(N)1:2209o/S%(N)S%(N)((1)S%(N)2):S%(N).8TS%(TY%(N))S%(N).8TS%(TY%(N))/A$"X"MV1Ē3:90:TY%(N)X1,Y16:3999/SĢ24:1:"NO MOVEMENT POSSIBLE";:950:Q11000::1:1:MV0:2090/ MOVEMENTI1:J1: MOVEMENT CHECKm.>II1:400:II1:400:JJ1:400:JJ1:400:II1:400:II1:400:JJ1:400:JJ1:400.I16:MVMP%(I)MV%(I)0..S0:I16:SSMV%(I):.S%(N)13999.(A$"X"MVTM%(TY%(N)))2209/S%(N).8TS%(T4):Y((1)51):T((1)21):S((1)64FE):M%(X,Y)11850P-DM%(X,Y)(100TS):Y-lTU0_--I110:S%(I)TS%(TY%(I)):-700:N110:XPX%(N):YPY%(N):MVTM%(TY%(N))::800:950-S%(N)03999-800-*Z2(X2(X2)):CT0.4TY%(J),90:Y1Y16:7X1,Y1&,3:IX1,Y1,,?,X112:Y15X, C%(X,Y)OM%(X,Y)1r, C%(X,Y)CIM%(X,Y)2, C%(X,Y)RM%(X,Y)2,C%(X,Y)FM%(X,Y)3,:,I110:XPX%(I):YPY%(I),M%(X,Y)1:,0I1107-:X((1)9 +X112:Y15-+E(C%(X,Y)10):DC%(X,Y)10E;+EDİ100C+:O+@I110b+JPX%(I),PY%(I)n+OTY%(I)t+T+^I13:TS%(I),TM%(I):+hFS1700+rI13:TS%(I)TS%(I)3:TM%(I)TM%(I)1:+J110+0+XPX%(J):YPY%(J):I:XF1XF0:1005*&*I16:XM%(I):;*I16:YO%(I):P*I16:YE%(I):g*X112:Y15:A$}*A$"O"C%(X,Y)O*$A$"F"C%(X,Y)F*.A$"R"C%(X,Y)R*8A$"C"C%(X,Y)CI*B:*VI18:J16:CR%(I,J)::*RN1İ830Y128X17,Y114X1,Y1)>)60,0:61,4:62,255:63,07:66,0:67,8I)768:c) PROGRAM STARTS HEREl)XF0x)I110)X((1)103):Y((1)51))MX%(I)X:MY%(I)Y:MS%(I)((1)73))J1I:MX%(J)MX%(I)MY%(J)MY%(I)IJXF1 *I:" ":I:A$G(|16384,128:B$:B$"Y"II1:S(}A11ı(~I::A$;:XP(36):C1XP30:" ";:::(HD0ı(X1(X1)217:Y1(Y1)28:X2(X2)Y1Y114(HD )X1,Y1X114,Y1X121,Y114X114,Y128X1,EMENT":880'gB$"Y"MT19'hA$"SOUND OFF":880:B$"Y"SO0a'iA$"HEX DRAW OFF":880:B$"Y"HD0'jB$"Y"ĢI1:" ";'lA11:I20'mA$"IS THIS CORRECT?":880'nB$"Y"850'o'p SUB"(zII1:&ZA$"INCREASED ENEMY STRENGTH":880.&[B$"Y"FE1T&\A$"NO ENEMY REINFORCEMENTS":880f&]B$"Y"RE1&^A$"INCREASED ENEMY REACTION":880&_B$"Y"RC1&bA$"INCREASED ENEMY MOVEMENT":880&cB$"Y"MT1:872'fA$"DECREASED ENEMY MOVL1((1)210):M1((1)32):C%(L1,M1)CI:B1:3230:B0:I%R STARTING VALUES\%SA10:SO16336%T::" *** OPTIONS *** ":::"TYPE Y/N":I4%VA$"RANDOM TERRAIN":880%WB$"Y"RN1%XA$"INCREASED FRIENDLY STRENGTH":880%YB$"Y"FS1(VF10):B1VF10A1:A1;B1;"/";:A1(VE10):B1VE10A1:A1;B1;<$*Q$> RANDOM TERRAINZ$@B11o$BM115:L1112$DA1((1)31):(1).15A11$FA11C%(L1,M1)O$GA12C%(L1,M1)R$HA13C%(L1,M1)F$JB1A1:B1:3230:B0$L:3%M%(X,Y)TP100):ITP4:FC3:300:VEVE3SE'#-#3# P#!(VE99)(VF99)ġ:5000#%1:21:"UNIT #";:12:"TURN #";:25:"MOVEMENT ";:22:25:"STRENGTH ";:23:1:"DIRECTION:";:23:23:"RESISTANCE ";6$'(VF)(VE)Ģ24:23:"VICTORY PT ";:A13230:B0'"E(C%(X,Y)10):DC%(X,Y)10E:1000"775R"CB%1RX1RC1RXRX1:715"I110:PX%(I)CX%PY%(I)CY%VFVF3S%(I):I10"" FIRST ROW DRAW"X1:Y15:M%(X,Y)2793!#I7:DX0:FC0:300:TP((M%(X,Y)100))1:SE(MX1770!M%(X1,Y)17701!M%(X1,Y)M%(X,Y):783?!YY1773g!M%(X,Y1)0M%(X,Y1)M%(X,Y):783p!775!M%(X,Y1)0M%(X,Y1)M%(X,Y):783!775!::B112B16:C11:758!MT1D11D11:756! 786!L1X:M1Y:B1:1:733 B17A11MT1B17:7331  MOVE ON CITYG (CB%)MT1786P D10f A1CX%:B112:C11 XA1B1C1:Y15:XXXCX%:YYYCY%:M%(X,Y)2775 (1).5775 XX1764 M%(X1,Y)1770 M%(X1,Y)M%(X,Y):783 X(1).5739(1).5749:M%(X1,Y)0M%(X1,Y)M%(X,Y):747fM%(X1,Y1)0M%(X1,Y1)M%(X,Y):747M%(X1,Y1)0M%(X1,Y1)M%(X,Y):747749L1X:M1Y:B1:3230:B0:E(C%(X,Y)10):DC%(X,Y)10E:100::MT1A11(C1)C17(T((1)21):S((1)42):CB%1SS2FE?M%(X,Y)(100TS)m(CB%1RC1)((TU5)TU5)A1A14:717 MOVE FORWARDA11:B112TU2A19TU3A15XA1B1Y15:M%(X,Y)2749B17(1).5739MT1(X,Y)1710CB%1:CX%X:CY%Y":6CB%1VEVE2QY15:M%(1,Y)2714[RB%1a~RE1(RC1CB%1)725A11(1).5Y((1)2)41:X((1)39):719X12:Y((1)51)A1A11:A114724M%(X,Y)171(VF99)(VE99)ı"TUTU1:TU1ı7CB%0:RB%0:C10:21:3::" ------------------------------ ":22:3:" *** ENEMY MOVEMENT PHASE *** ":23:3:" ------------------------------ "::23:950X912:Y15:C%(X,Y)CI710M%E:AX:KY:LI:XU:YV:100:XA:YK:IL,MV%(CT)1JS%(N)S%(N)A%:S%(N)0ıfB1:L1X:M1Y:3230:B0sVEVE10E(C%(X,Y)10):DC%(X,Y)10E:100B1:L1PX%(N):M1PY%(N):3230:B0PX%(N)0:PY%(N)0:TY%(N)0S%(N)0:MV0UM":MVMV2:70(~S%5Z$"LIGHT ":MVMV1:70A23:34:Z$;:1:950TDI((1)6)1cMV0MV0D%(CR%(S%,DI)10):A%CR%(S%,DI)10D%SHSHD%:M%(U,V)(100TPSH):SH0670B1:L1U:M1V:3230:B0E(C%(U,V)10):DC%(U,V)10CISS2+jC%(X,Y)CIC%(U,V)CITY%(N)1SS2:lS.5S%1NnS1S.5S%2aoS2S1S%3tqS3S2S%4sS4S3S%5uS5S4S%6wS6S5S%7yS6S%8{S%2Z$"HEAVY ":MVMV3:70|S%2S%6Z$"MEDI1[TY%(N)3TP2SS1+\TY%(N)1TP1SS3D]TY%(N)3TP1SS1]^TY%(N)1TP2SS2}aC%(X,Y)FC%(U,V)FSS3cC%(U,V)FC%(X,Y)FSS3eC%(X,Y)RC%(U,V)RSS1gC%(U,V)RC%(X,Y)RSS1iC%(U,V)CIC%(X,Y)XII,YJJ)100))1:S(M%(XII,YJJ)A100):SESE(ICS)ENZII0JJ1ıZOZII0JJ1ısPM%(UII,VJJ)1ıQQ110:PX%(Q)UIIPY%(Q)VJJSFSF(ICS%(Q))RSX RESOLUTIONYTY%(N)2TP1SS2ZTY%(N)2TP2SSTP4:DX0:FC3:300:XA:YD:IK&II1:JJ1:IIII1:580:IIII1:580:JJJJ1:580:JJJJ1:580:IIII1:580:IIII1:580:JJJJ1:580:JJJJ1:5800SSFSE:600CDZII0JJ1590EZII0JJ15900FM%(XII,YJJ)1A((M%(  COMBAT CALC SF0:SE0:IC.30-SFS%(N)eTP((M%(XI,YJ)100))1:SE(M%(XI,YJ)TP100)oSHSE~S%(N)0ıA$"X"SFSFMVUXXM%(CT):Z0VYYE%(CT)!Z1VYYO%(CT)$AX:DY:XU:YV:KI:I7:DX0:FC0:300:I1N2)14:0:IM,N2:Z014:60:IMZX0,N2ZY0:IMZX0,N2ZY0::3:IX1,Y1:\ZI0J1ıpZI0J1ıS%(N)0ıCTCT1:MV%(CT)1MP%(CT)M%(XI,YJ)M%(XI,YJ)1MV%(CT)0:500:M%(XI,YJ)0MV%(CT)0:D:X1C,Y1X112C,Y1:C%(X,Y)CI200"L90:Y1Y16:0:7X1,Y1:3:8X1,Y1:,FC:X1(X1)217:Y1(Y1)28:X2(X2)Y1Y114JDX0ĔIX1,Y16TDX1ĕIX1,Y16YJ^90:MX1:N2Y1:XX0:YY0:90:N2N26:Y1Y16:X0(X1M)14:Y0(Y28:X2(X2)Y1Y114_d90:X1X11:Y1Y11:C0:X1X1:Y1Y1:I16:E:X1C,Y1X112C,Y1:D:X1C,Y11X112C,Y11:Y1Y12:CC1:E:X1C,Y1X112C,Y1:Y1Y11:I16:D:X1C,Y1X112C,Y1:E:X1C,Y11X112C,Y11:CC1:Y1Y12:SO)(SO)(SO):@ WRONG KEY SOUND8AVM110:SM(SO)::KF COMBAT SOUNDpGSV1(505S%):SM(SO)(SO):vJK MINE SOUNDLVM15:SM(SO)(SO):MP SWITCH UNIT SOUNDQSM(SO)(SO)RZX1(X1)217:Y1(Y1)0:16304,0:16297,0:16301,0:950:21:3::" ----------------------------- ":22:3:" *** SETTING UP SCENARIO *** ":23:3:" ----------------------------- "::23:950X112:Y15:900::21000; MOVEMENT SOUND<SM(SO)(19)ĺ"":112A15RN0:FS1:FE0:RE1:RC0:MT1:25`A14RN0:FS0:FE1:RE1:RC0:MT1:25sA13RC1:25A12RN1:FS1:FE1:RE0:RC1:MT1:25A11RN1:FS0:FE1:RE0:RC1:MT1:25850 CTD:1:0:3:955:19:" 4 ":14:13:" 5 ":10:13:" C ":19:"1.. HARDEST SCENARIO":20:"5.. EASIEST SCENARIO":21:"C.. SCENARIO OPTIONS":23:"HIT THE APPROPRIATE KEY TO CONTINUE";X(1):(16384)12715X(16384):16368,0:A1X176:(A10A16A101:R12:CI03 VF0:VE0:RN0:HD34 MC2:SO16336:RX0l CR%(8,6),C%(12,5),M%(13,6),MX%(10),MY%(10),MP%(12) :12:"*** REBEL FORCE *** " :13:"BY ROGER KEATING."# 12:16:"SCENARIOS"::9:19:" 1 ":10:25:" 2 ":14:25:" 3 ":1 mLyL a  COPYRIGHT BY R.J.KEATING P.O.BOX 448 DOUBLE BAY AUSTRALIA 2028 w ::(774)1294 60,0:61,64:62,00:63,69:66,0:67,112:768 774,129:54,240:55,253:56,27:57,253 27500 24577 O00:F                                    0 '` '`0 '`MOVEMENT EXECUTION 膢 ȱ " <67 L  8ij v vo>?????????N)-------5????????-------???????------5??????7------5??????w-----?????.----5?????.----???--?366-$$$,-626L$$aMI(((e-` --??????????????,-------------????????????'-----------?????????g-------;?????g --MIII???????????7--------------->???qe 86$ ,8?6` `8H`ED`)-'(m*e `HI $366#$$$36666$$$$2666 $$66%d 8????666666vI -6?'$>.5?--?2----D$ %g% -(-6???????7-------??????*-5----...----(????888???'7'7'7????$'<$$$$%$''$$$$66666552>.>.>.57->N----d $<7?8 d6..%''$ -V????'*---555---- ed$$$$$$$$$36666666??$$$$$$??'$d66--566666.-%?'$$$$$-6.,$,.5->v$56%$.(( 8?<'-%de8?$>6$7666--.---??????$$$d666.-%@@ @ @            0 `إ8i 0`Ii 0`wvvw LJJJJJJJi `00e` CGCG7ұ2Iα%Iβ*HILLS+Iϱ6Iϲ*LAKECICGCG.1LIFL1^I&ϭLD1CGCG7dIұ8GCG.4HͭLD1LT15CGCG2%H?α1H@β*TREES:HJFL1GHTCGCG.4_H^έLD1LT15CGCG2eHαqHβ*HILLSwHϱHϲ*LAKEHCGCG.1HFL1H&ϭLD1CGCG7Hұf5CGCG2Àαπβ*HILLSՀϱϲ*LAKECGCG.1FL1&ϭLD1RGVCGCG.84G`LC(TU(LT5000)T(X,Y).001)500EGḙLC.1LC.1XGj̭LC1CGCGLC^G̱mG̲*BUILDINGzGCGCG.3GFL1G̭LD1LT15CGCG2.5GͱGͲ*SECONDARY BASEGFL1GwͱGxͲ*PRIMARY BASEGFL1GͱGͲ*BIG CRATERHCǭH1XX1FǭH2YY1*FǭH3XX19FǭH4YY1JFLTLT1:FL0F ȴT(X,Y)52100,52200,52300,52400,52500,52600,52700,52800,52900,53000FCC1FȭFL150999Fȫ50200F ˲**TERRAIN TYPESF˲*CLEARF˱F˲*OFF BOARDFK̳GL̲*CRATERE"ĭC1050600: ROTATE6E,ĭC10051000: MOVEMENTiE6ĭC100LL1:CC(L):50200: MOVEMENT COMPLETEtE|IJ*WAITELTLTC10:LL1:CC(L):50200EŲ*ROTATEEHHCEŭH0H4EŭH5H1ELTLT1:LL1:CC(L):50200E7DZE8Dz*MOVEMENT FRDED:DXTR(13,8)10FL2:: SQUARE CAN'T BE GUARDED YETDbFL1:C(1)101:C(2)1:C(3)101:C(4)1:C(5)101:C(6)99:: GUARD THE BASE SQUAREDPò**PATH ANALZERDL1:H2:XXB(1):YYB(1)1:LT0:CC(1)1:CG1DíC100L2:CC(2):LT1EĭC0ij: ERRO:C(9)102:C6C6:C6C(7)1136Cʨ: COUNTERCLOCKWISELC$C7C7:C7C8C8C.C(5)106C7:C(6)1:C(7)107C8:C(9)101C7:: FRONTC૲**CHECK FOR BASE SQUARE DESTROYEDCDT(13,7)5ı: NO CORRECTION NECESSARYDNTR(13,7)10ı: SQUARE ALREADY GUAC4:C(6)1:C(7)106C3:C(8)1:C(9)104C4:C(10)1:C(11)102:: SIDE #B]B**OTHER ATTACKStB\C5C51:C52C50BfC(1)102:C(3)113:C(5)106C5:C(7)103:C(8)1:C(9)100C5:: CLOCKWISECC(1)102:C(2)1:C(3)103:C(4)1:C(5)108:C(6)1:C(7)112#C3AC1C11:C12C10]AC(5)104:C(6)1:C(7)107:C(8)1:C(9)101:C(10)1:: REAR #DqA**SIDE ATTACKSAtC2C21:C26C20A~C(3)C(3)C2:C(6)1:C(7)108C2::SIDE #AAؤC3C31:C35C30AC4C41:C43C40HBC(3)102C3:C(5)101YC(5)101C1:C(6)1:C(7)109:C(8)1:C(9)C(9)C1:: REAR #C1Y@^C1C11:C12C10@cC(5)101C1:C(6)1:C(7)108:C(8)1:C(9)C(9)C1:: REAR #C2@hC1C11:C12C10AmC(5)101C1:C(6)1:C(7)107:C(8)1:C(9)C(9)C1:C(10)1:: REAR ATTACKS ?C(3)111::REAR #A19?C(3)110::REAR #A2Z?C(3)109:C(6)1::REAR #A3?C(1)102:C(3)111:C(5)106:: REAR #B1?C(1)102:C(3)110:C(5)106:: REAR #B2?C(1)102:C(3)109:C(5)106:C(6)1:: REAR #B3?TC1C11:C12C10B@>НTR(16,8)10TR(16,7)10TR(16,6)10TR(16,5)10TR(14,5)10FL1o>ڝT(16,4)10T(15,4)10T(14,4)10FL1>C(2)1:C(4)1:C(5)104:C(6)1:C(7)102:C(9)101:C(11)1:C(12)50:C(13)103:C(14)1:C0C(13)104:C(17)102>: GUARD #D?(**REAR :C0C(10)104:C(14)102*=: GUARD #B|=lTR(16,8)10TR(16,7)10TR(16,6)10TR(16,5)10TR(15,5)10TR(14,5)10FL1=vC(2)1:C(4)1:C(5)103:C(6)1:C(7)102:C(8)1:C(9)50:C(10)103:C(11)1:C(12)110:C0C(10)104:C(14)102=: GUARD#CDTR(13,5)10FL1X: CLEAR4H?: OFF BOARD4?3:0:5X,Y:: CRATER4@: BUILDING4t@: SECONDARY BASE4@: PRIMARY BASE5(RP).4R(12(RP)):2999: ROTATE H(RP).7R101(9(RP)2):2999: MOVE RR11(9ۂ:: TEMPORARY SHUTDOWN?****ORDER EXECUTION FOR PLAYER PLKLN110\VRPR(PL,N,0)`RP01900: THIS ROBOT HAS NO ORDERSjRR(PL,N,RP)R0İ2000: GET RANDOM MOVER100İ3000:1900: MOVE AHEADR10İ4000:1900: WAIT:: BEEPS1,35:2,5:L14:889,129:865:816:889,130:865:::RATTLE ROTATE1,25:2,5:L110:0,200(1)55:816:865::: CLANK ROTATE3,40:4,10:L1011:2,L2:825::: GOOD-BYE1,10:L116:L1315:2,L1L:0,53L:816::128:865:816:889,130:865::: RATTLEp1,10:2,5:L115:0,200(1)55:816:865::: CLANK CLANK CLANK1,20:2,1P:0,255:816:0,201:816:0,168:816:0,125:816:0,168:816:0,201:816:0,255:816:: ARPEGGIO 1,1:2,10:0,100I:816112:2,L:816:865::: DEVICE DISABLEDY1,255:L3013020:2,L:865::: BUBBLES1,50:889,128:2,1:865:2,2:865:2,3:865:2,5:865:2,9:865:2,15:865:2,25:865:889,130:865:: SPLASH916:915:: LAKE(1,20:2,3:L15:889,STATIONS31,1:2,1:3,60:4,100:825:: PHASERs1,5:2,1:889,129:865:889,130:865:2,2:865:: GUNSHOTL15:909:L:: WEST ROBOT EXPLODES1,10:2,1:3,40:4,100:825:: EAST ROBOT EXPLODES908:: BASE EXPLODES)1,40:Lй4,100:825:904:: WHISTLING BOMB f1,20:2,1:L160:0,15240(L):816::: SUBSPACE MESSAGE1,1:2,1:3,200:4,100:825:3,100:4,200:825:3,200:4,100:825:3,100:4,200:825:: SIREN1,2:2,1:L15:3,200:4,100:825::: BATTLE 5:: TYPEWRITER ~1,5:2,1:889,128:865:889,129:865:889,130:1,25:L110:2,L:865::2,15:865:: SHORT EXPLOSION1,10:2,1:889,128:865:889,129:865:889,130:1,80:L110:2,L:865::2,15:865:: LONG EXPLOSION$1,10:2,1:3,40:)0MP(P)1:H(P,N)4P2:NC(P)N:X(P,N)XB(P):Y(P,N)YB(P):899SRNN1:N11840_\MP(P)0eu****SOUNDS1,20:2,1:0,190:816:0,255:816:0,190:816:0,255:816:0,190:816:0,255:816:: PROMPT1,5:2,1:889,128:865:889,130:86SE ROBOTUPD5MP(P)MP(P)1:R(P,NC(P),MP(P))0:MP(P)2MP(P)2:R(P,NC(P),1)101mMP(P)21PD4:620(BTP)K2680  RELEASE ROBOT*R(P,NC(P),0)1:H(P,NC(P))42P/920: ARPEGGIO4 FIND UNUSED ROBOT>N1?HR(P,N,0 ";::R(P,NC(P),MP(P))100:680X hPD3ĖP201::"WAIT ";::R(P,NC(P),MP(P))10:680r l33,20:32,P20::23 vMP(P)1;" ";OD$(PD):1203 PD0PD1PD4R(P,NC(P),MP(P))OD(PD):MP(P)21MP(P)MP(P)1:R(P,NC(P),MP(P))0PD4İ800: RELEAR100A$"MOVE "+ 33,20:32,P20::23L MP(P)1;" ";A$;(PD):1203i &R(P,NC(P),MP(P))R(PD) 0MP(P)MP(P)1:R(P,NC(P),MP(P))0 5MP(P)21PD4:620 :(BTP)K2570 W X***ACCEPT AN ORDER ]PD(PD) gPD2ĖP201::"MOVE MOVE ORDER% 300: PRINT AN ORDER, "P2 +u ,PD(P)K0:P201:OD$(PD);:(BTP)K2İ600: PRINT AN ORDER{  PD(P)K11:P206:(PD);:(BTP)K2İ500: PRINT A VALUE  ***ACCEPT MOVE OR WAIT VALUE R10A$"WAIT " 290: SKIP IF NO ROBOTS AVAILABLE/ OP1230C P1I1İ35000P P1290 MP(P)1MP(P)2:R(P,NC(P),1)101:R(P,NC(P),2)0: FIRST MOVE IS ALWAYS A STRAIGHT AHEAD MOVE RR(P,NC(P),MP(P)) R10R100İ400:290: IN THE MIDDLE OF A WAIT OR41 d(H1)16:PL1X,Y:: DRAW OR ERASE ROBOTF ****ORDER ENTRYQ P01 MP(P)0MP(P)MP(P)1:MP(P)0İ901:22:P201:"REPAIRS COMPLETE ";:23:P201:" ";:24: REPAIR DELAY MP(P)0290! MP(P)0İ820:MP(P)0ı@10000: MAIN PROGRAM   THE FINAL CONFLICT COPYRIGHT 1982 THOMAS G. CLEAVER URSINE ENGINEERING 6805 CAROLYN ROAD LOUISVILLE, KY 4021                                         ī50999-8Dź:"HOW MANY ";A$;" DO YOU WANT";?8NŹ16368,0:TFe8XŭTF0TF30TF(TF)İ907:50500k8bűq87DZ IS ROOM TO PUT IT, THE PROGRAM WILL 'HANG.'U7"A$"BUILDINGS":50500:TF(3)TFv7,A$"CRATERS":50500:TF(5)TF76A$"LARGE CRATERS":50500:TF(8)TF7@A$"TREES":50500:TF(9)TF7JA$"HILLS":50500:TF(11)TF7TA$"LAKES":50500:TF(12)TF8:XXB(1)2XB(1)2'6DT(X,YB(1)2)T:6NT(X,YB(1)1)TA6XXX6bT(XB(1)2,YB(1))Tq6lT(XB(1)2,YB(1)1)T6vT(XB(1)2,YB(1))T6T(XB(1)2,YB(1)1)T6Oñ6Pò CUSTOM DESIGNED TERRAIN27ĺ:"WARNING: IF MORE TERRAIN IS SELECTED THEN THEREAR TERRAIN SURROUNDING BASES. TERRAIN VALUE PASSED IN T.I5̿*WEST BASE`5ֿXXB(0)2XB(0)2s5T(X,YB(0)1)T5T(X,YB(0)2)T5X5T(XB(0)2,YB(0))T5T(XB(0)2,YB(0)1)T5T(XB(0)2,YB(0))T5T(XB(0)2,YB(0)1)T50*EAST BASE64DX44&4***DRAW GRID-4t3=4~X427616L4X,8X,152S4Xc4ؤY815216r4⤓4,Y276,Yy4줂Y44૲**FILL IN A SQUARE WITH A COLOR4DL1Y168:L2Y1684NLX1612X1644XL,L1L,L24bL4ǯ95h**SET OR CLENK3#3*UPDATE TERRAIN ARRAY03DX11=3DY11Z3ʣSL(0,DX1,DY1)041970m3ԣL4: BUILDING3٣SH5L3: CRATER3ޣSH8L7: BIG CRATER3㣭SH9L8: WOODS3裭SH11L9: HILLS3SH12L10: LAKE3T(XDX,YDY)L4DYY0Y1629L5:SH3L722:X0L,Y08X0L,Y08K2X08,Y0LX08,Y0L}2@X08,Y0LX08,Y0L2B32G2H*PLOT TERRAIN FEATURE2R32\SH12Ē6: LAKE2fSHX164,Y163pSH9Ē7:10X164,Y16:3: TREE TRUSL(0,1,2)1ēX1611,Y168X163,Y168l1*SL(0,2,0)1SL(0,2,1)1ē(X1)1611,Y168(X1)163,Y1681/SL(0,2,1)1SL(0,2,2)1ē(X1)1611,Y168(X1)163,Y1681314*ERASE OUTER GRID LINES16SH5SH8SH12ī41799280:X0X164:0,2,2)1ēX164,(Y1)167X164,(Y1)167p0SL(0,0,0)1SL(0,0,1)1ē(X1)1611,Y168(X1)163,Y1680SL(0,0,1)1SL(0,0,2)1ē(X1)1611,Y168(X1)163,Y1680 SL(0,1,0)1SL(0,1,1)1ēX1611,Y168X163,Y168)1%SL(0,1,1)1SL(0,2,0)1ēX164,(Y1)167X164,(Y1)167m/SL(0,0,1)1SL(0,1,1)1ēX1612,Y167X1612,Y167/SL(0,1,1)1SL(0,2,1)1ēX164,Y167X164,Y167/SL(0,0,2)1SL(0,1,2)1ēX1612,(Y1)167X1612,(Y1)167-0SL(0,1,2)1SL( TEST FOR OVERDRAW.FL0+.DX118.DY11R.T(XDX,YDY)141660n.SL(0,DX1,DY1)1FL1v.DY~.ƢDX.㢱.䢲*ERASE INTERNAL GRID LINES.颒0.SL(0,0,0)1SL(0,1,0)1ēX1612,(Y1)167X1612,(Y1)1671/SL(0,1,0)1SL(SH,0,0)-k)-lSL(0,0,0)SL(SH,2,0)B-mSL(0,0,1)SL(SH,1,0)[-nSL(0,0,2)SL(SH,0,0)t-oSL(0,1,0)SL(SH,2,1)-pSL(0,1,1)SL(SH,1,1)-qSL(0,1,2)SL(SH,0,1)-rSL(0,2,0)SL(SH,2,2)-sSL(0,2,1)SL(SH,1,2)-tSL(0,2,2)SL(SH,0,2)-u-.SL(SH,1,0)#,`SL(0,2,2)SL(SH,2,0)),aB,bSL(0,0,0)SL(SH,2,2)[,cSL(0,0,1)SL(SH,2,1)t,dSL(0,0,2)SL(SH,2,0),eSL(0,1,0)SL(SH,1,2),fSL(0,1,1)SL(SH,1,1),gSL(0,1,2)SL(SH,1,0),hSL(0,2,0)SL(SH,0,2),iSL(0,2,1)SL(SH,0,1) -jSL(0,2,2)SL(SH,2,0)#+USL(0,2,1)SL(SH,2,1)<+VSL(0,2,2)SL(SH,2,2)B+W[+XSL(0,0,0)SL(SH,0,2)t+YSL(0,0,1)SL(SH,1,2)+ZSL(0,0,2)SL(SH,2,2)+[SL(0,1,0)SL(SH,0,1)+\SL(0,1,1)SL(SH,1,1)+]SL(0,1,2)SL(SH,2,1)+^SL(0,2,0)SL(SH,0,0) ,_SL(0,2,1)1))*̡RN16*.**GET SHAPE LOCATIONSP*&RN141550,41560,41570,41580[*041599t*NSL(0,0,0)SL(SH,0,0)*OSL(0,0,1)SL(SH,0,1)*PSL(0,0,2)SL(SH,0,2)*QSL(0,1,0)SL(SH,1,0)*RSL(0,1,1)SL(SH,1,1)*SSL(0,1,2)SL(SH,1,2) +TSL(0,2,0)R0)h((1)51)41330,41340,41350,41360,41390A)rXX1:41370R)|XX1:41370c)YY1:41370m)YY1)X1X17Y1Y941320)41399)X(117(1)):Y(19(1))))*RANDOM ROTATION)SH3SH9SH11RN0:41420*¡RN(4(141200/(,41700: ERASE INTERNAL GRID LINESS(141780: ERASE OUTER GRID LINESj(641800:DRAW SHAPE(@41900: SET TERRAIN ARRAY TO APPROPRIATE SHAPE(S(T*GENERATE RANDOM LOCATION)^SH5SH8SH12SC141390: SC IS THE SHAPE COUNTEL(8,2,2)1 '*SHAPE 12 - LAKE>'SL(12,0,1)1:SL(12,1,2)1D''a'(***DRAW TERRAIN FEATUREu' TEST AND DRAW'41300: GET RANDOM LOCATION'41400: RANDOM ROTATION'41500: GET SHAPE LOCATIONS'41600: TEST TO AVOID OVERDRAW("FL9000: FORBID TERRAIN SURROUNDING BASES-&?Y&@***TERRAIN FEATURE SHAPE PARAMETERSf&SH012r&DX02~&DY02&œSL(SH,DX,DY)0&ǜDX1DY1SL(SH,DX,DY)1&̜DY&֜DX&SH&t*SHAPE 8 - BIG CRATER '~SL(8,2,1)1:SL(8,1,2)1:SRAW ARROW%X14:Y7:%Ě7X164,Y16: DRAW EAST BASE\%ΚT(13,6)5:T(14,6)5:T(15,6)5~%ؚT(13,7)5:T(14,7)6:T(15,7)5%XB(1)14:YB(1)7%욘32:YY1:13X164,Y16: DRAW ARROW%P01%X(P,1)XB(P)%(Y(P,1)YB(P)%2P'&xT5.5:43X0,Y13!$X016,Y0X016,Y18$X116,Y0X116,Y1M$$X1,Y03X1,Y13S$K_$LX4:Y3f$Q3m$V0$`6X164,Y16: DRAW WEST BASE$jT(3,3)5:T(4,3)6:T(5,3)5$tT(3,4)5:T(4,4)5:T(5,4)5$~XB(0)4:YB(0)3 %YY1:13X164,Y16:D8:X151648%#ژY03168:Y14168L#39400: ERASE LINES FOR WEST BASEj# X0131648:X1151648#*Y06168:Y17168#439400: ERASE LINES FOR EAST BASE#>39500#虓X03,Y0X13,Y0#X0,Y016X1,Y016#X03,Y1X13,Y1 $X0,Y0276,152"Lw4,8276,8)"Vw4,152276,152L"w*CLEAR AREA SURROUNDING BASES["wT1:49000c"Px24"ZxA$"DO YOU WANT ANOTHER LAYOUT?""dx14300"nx:::"xxFL130100"x3"x24"y"X***DRAW BASES"**ERASE LINES"Ƙ0 #ИX031642:X!!vY10:X118:T(X,Y)2:X9! v39000: DRAW BASESg!*v40000: TERRAIN FEATURE SHAPE PARAMETERSt!\vSH312!fvTF(SH)030350!pvSC1TF(SH)!zv41000: DRAW TERRAIN FEATURE!vSC!vSH!$w*DRAW OUTLINE!.w3!8w4,84,152"Bw276,8i905: WHISTLINGBOMB _m6 0u***TERRAIN GENERATOR< uC u1Y u42000:DRAW GRIDo u***SETUP TERRAIN{ uX117 uY19 uT(X,Y)1 uTR(X,Y)0 uY uX uX0:Y110:T(X,Y)2:Y vX18:Y110:T(X,Y)2:Y! vY0:X118:T(X,Y)0fOD(0)1:OD(1)1:OD(2)100:OD(3)10:OD(4)0 gTU3.020: INITIAL VALUE OF TURN COUNTER (USED IN DETERMINING CRATER COOL-DOWN)ZiWI1wixi****CLOSEOUTi16298,0i:i255iA$"GOOD-BYE "NA$i11100: CENTERi12:A$ R(I,J,K)1fK$&fH(I,J)4I2:0fX(I,J)0:Y(I,J)0A:fJHDfI\NfMP(0)1:MP(1)1pOfNC(0)1:NC(1)1XfOD$(0)"LEFT TURN "bfOD$(1)"RIGHT TURN"lfOD$(2)"MOVE "vfOD$(3)"WAIT "fOD$(4)"RELEASE "fOD$(5)"CANCEL "5800d50000gd:"HOW MANY MINUTES DO YOU WANT TO SPEND WRITING ORDERS BEFORE MOVEMENT BEGINS";yd16368,0:TPdTP0TP30İ907:25800dTPTP400ee**INITIALIZE VARIABLESeI01eJ010fK021fR(I,J,K)0 fK0(12)0:25800LcTF(3)1:TF(5)0:TF(8)0:TF(9)10:TF(11)10:TF(12)1:25800dTF(3)7:TF(5)0:TF(8)0:TF(9)5:TF(11)5:TF(12)1:258002dTF(3)4:TF(5)1:TF(8)1:TF(9)2:TF(11)2:TF(12)0:25800ddTF(3)19:TF(5)2:TF(8)1:TF(9)4:TF(11)4:TF(12)1:2 TERRAIN."cOc" 6. CUSTOM - DESIGN THE TERRAIN YOURSELF."Uc$c"SELECT THE NUMBER OF YOUR CHOICE: ";.c16368,0:IN8cIN25500,25550,25600,25650,25700,25750Bc907:25390 cTF(3)18:TF(5)0:TF(8)0:TF(9)0:TF(11)0:TF1. CITY - LOTS OF BUILDINGS."$b`b" 2. COUNTRYSIDE - LOTS OF TREES AND HILLS."fbb" 3. TOWN - MIXTURE OF THE ABOVE TWO."cc" 4. DESERT - FEW TERRAIN FEATURES." c c" 5. WASTELAND - EXTREMELY CLUTTERED (12)0:TP2:25830pb:8b"SELECT THE GAME SPEED:"Pb:" 1 = SLOW"fb" 10 = FAST"~b::"YOUR CHOICE";b16368,0:TIbTI1TI10İ907:25250bTI(100(TI60(TI10)61))b:b"TERRAIN MAPS AVAILABLE:"b:" ORDERS U U***PLEASE WAIT&U8V(12(34)2)PVA$"PLEASE WAIT..."dV11100: CENTERl"VA$rSVa***GAME STARTER b::bA$"DO YOU WANT THE STANDARD GAME?" b14300*bFL1TI20:TF(3)9:TF(5)0:TF(8)0:TF(9)2:TF(11)2:TFOCATION(SSL(12,2,2): SHAPE LOCATIONSTF(23): TERRAIN FLAG. TELLS IF A CERTAIN TERRAIN FEATURE EXISTS AND HOW MANY ARE PRESENT.STR(18,10): TERRAIN ROBOTS. TELLS IF A CERTAIN LOCATION IS OCCUPIED BY A ROBOT.TC(30): COMPUTER GENERATED R(1,10,21): ROBOTS*HSH(1,10): HEADING>RSOD(4): ORDERS\\SOD$(5): ORDER STRINGyfSNC(1): CURRENT ROBOT #pSMP(1): CURRENT MOVEMENT POINTER VALUEuSXB(1),YB(1): BASE COORDINATESzST(18,10): TERRAINSX(1,10),Y(1,10): ROBOT LRCT0RBT16287+RK050:K130:K21274RRN0=RDY0URX00:Y00:X10:Y10cRH00:H10mRA$""wRB$""RCA(20(1))RCG0:C00:C10:C20:C30:C40:C50:C60:C70:C80RNA$""RD$(4): CTRL-D4S DIMENSION STATEMENTS>S?8**PRINT A$ AT BOTTOM OF SCREEN & WAIT FOR RESPONSEE8Z811100: CENTER k824::A$;:~8901: PROMPT 814400: GET KEY 9R****DEFINE VARIABLES:RP0:PL0:PD0:N0:RP0lROP0:L0vRI0RJ0RK0RKY0SIREN "8:14310?8v@8**GET KEY GET A KEYBOARD CHARACTER AND RESEED RANDOM NUMBER GENERATORJ816368,0T8RN2000RNRN2000:901: PROMPT ^8RNRN1:KY(16384):KY12814420h816368,0r8RN(934.7(RN.1))8ONTINUE"71450077**YES/NO PRINT QUESTION A$ & WAIT FORY/N RESPONSE. RETURN RESULTIN VARIABLE FL AS 0/1.7901: PROMPT7A$;714400: GET KEY8KY217FL1:" YES":143998KY206FL0:" NO":143998907: 4902: TYPEWRITER4"5(5?6***KEYBOARD INPUTn7 **PAUSE AND PRINT 'CONTINUE' MESSAGE712040: PAUSE(714200: PRINT 'CONTINUE' MESSAGE AT BOTTOMOF SCREEN w7x7** PRINT 'CONTINUE' MESSAGE7A$"HIT ANY KEY TO CSE 1 SEC).DY12000:::PAUSE 2 SECSJ/DY14000:::PAUSE 4 SECS[2***DISPLAYS4 **CRAWLER A BANNER PRINT OF A$4B$" "A$44L1(B$)4B$(B$,2)(B$,1)423:(B$,40);T TO MAINTAIN PROTECTION INTEGRITY9****SCREEN CONTROLi\+**CENTER CENTERS A$ ON SCREEN}f+(A$)3811199p+(40(A$))2+.***PAUSES.DY1200::::PAUSE 0.2 SEC.DY1500::::PAUSE 0.5 SEC.DY11000:::PAU****MAIN PROGRAM/'21000: DEFINE VARIABLESL'25000: GAME STARTER^(22000: WAIT(26000: INITIAL-IZE VARIABLES((30000: TERRAIN GENERATOR)1000: MAIN MODULE*27000:CLOSEOUT"*1009,76:1009: EMULATES PRESSING OF RESEEASE WAIT..."W tOPFL: OP=0 FOR THE COMPUTER AND 1 IF THE OPPONENT IS ANOTHER PERSON] ~x D$;"BLOAD CHAIN,A520" 520"THE FINAL CONFLICT" 1009,76:1009: THERE IS AN ERROR IF THE PROGRAM GETS HERE...KILLS DOS FOR PROTECTION SCHEME'***5:: GUNSHOT8 L15:909:L:: WEST ROBOT EXPLODESq 1,10:2,1:3,40:4,100:825:: EAST ROBOT EXPLODES 908:: BASE EXPLODES ******MAIN MODULE L23 VA$"DO YOU WISH TO PLAY AGAINST A HUMAN OPPONENT?" ` j14300 o"PLd 1,1:2,1:3,200:4,100:825:3,100:4,200:825:3,200:4,100:825:3,100:4,200:825:: SIREN 1,2:2,1:L15:3,200:4,100:825::: BATTLE STATIONS 1,1:2,1:3,60:4,100:825:: PHASER 1,5:2,1:889,129:865:889,130:865:2,2:86z#?      ΠԠŠү׮̤̠Šo³ ²"±fŠҠϠ!àϠ! àϠ"àР2Š̠ԠC ҠĠ Ӯ̤  ! À ̀OFR@CI@VFVERNHD@MCSO@RXX A1FSFERERCMTYX16Y1`҇  `` K ͋Lԋr K @  ͩ``L Џ [ [` Џ [0 [` Џ  ` Џ 0 ` Џ,` Џ08(ԅ̠ӄф˹fйxҾ  ׏˹ _ !` ̅ʅ ׏˥ !,ɱɺ`` Ly ΠٛFOoٚ L" , H!Hɰɺ  H H```,,` Џ8鰦 i   Ly H0h(Ԫㅬ o @ҝӝʝ˝q:& @`   ͋ ԋ / 2 `PFFA<722(ȴF<<72-(( ,P,W,R,T ]         XLeLeePRWUuvwxTQL88 ,`X00` (Hh P(``@(`(` @ `hH p`xPp( ( p@ !"#$%&'()*+,-./0123456789LLLL`ª`LQLYL͍ⷵ(HЈ(H( 0ȸ888P( ( `XX8( Ш HH8H 88( ȸȸHP8 8HX8(ذH ec&&&2&7wo"ذ"؁` P`@L00?0 ?`p@0@0@0@0FAA1FAA1@AAqCAAqG@qG@aC@q@@1GAAqGAAFAAq@AA1@p@0@p@0 `p0#px|~??~|xp?`~|||||~| 33 33>>3?3333333333333??3;333?3333 ? 33?!3?3333137;333333333303? 33333?633=@?CL, )2;DMV_hqz %%%%% xqG^k#1;BN33333  ?33 ?3003??0333?00 333333>0'eʥeː ,Т ,ТϊH*Ҿo/IQh`… ҹo/8IQҥeʥeː͢Lh`&&&8`zO{P`1LQL o<>B ِ аЦ؅؆ХѦمنѥҦҩʅ˥8ЅхХ Ѕ8ҢIiƅŽ LW… إ L) !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&''''''' @ o/J,%  ׏%Lк`  "$%'(*+-.0135689;<>?ABDEGHJKMNPQSTVWYZ\]_`acdfgijlmnpqstuwxz{|~`po/Ցȩ o/*ȩU `Ցȩɺ` @`  8  I8  Ii ee `iko/ Iii ]8`  ׏``i8 (索i8  `Ahio/i `&&&*8e`Fejf`Ii (IiIi`$IiIi (IiIi "iWR#iX΢Ϥҹo~/Х fJ &Jf0Ӑ ԰0ԐйӐ԰ &jmWWXL&`?W`?W`Ho/h =8`߰8 )PPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?=,,]} i } tL?  l`(Lk  0H&0CIi@܅H (Iii^J iЅةх٩ҩ  o`((((((((((((((((((((((((((((((((PPPPPPPP &(IiIii` ׏ b aHeڅڥeۅۥeh$ ׏$ J ʥH$#e܅ܥe݅ݥe eܐܥhE)    #`2`  L i ` > Ʈ   0 y L Y `l 0 l0Jell ee$i O$L B:L e $i($i(Ŭ   i" e  š /(ơ, /  ]`Ii$e  ` Џ8 `eCH hH $ he, q8i`i` i q8)  `` rL`L`L`,2qL```` c Ϛ  i ☥eii ☥  2!i22 LժժժժժժժժժժժGAAAAAAqժժʪʪժԪժժoժժww{ժժժժժՔժժժժժokwW`zժժժժժժժժժժժp``ppժժҪժʪժժoժժwW*U*U*UzժժժժժժժʪժԪok>||xxpp``@@?~< #px|~?~<|~~?|xp#~?A?~?~|# ><|xxpp``@?Wzժժժժժժժժժժժ0`ppժժҪժժԪҪժժoժժwW*U*U*UzժժժժժժժժժժoknwW`zժժժժժժժժժժժg`spժժժժԪժʒoժժwwn{``ժժժժժժժժժժժpժժժժժժժժҪժժwժժ{ժժժժժժժҪժժwwf{``ժժժժժժժժժժժpժժժժҪɢժժʪժwժժ{ժժժժժժժժժժժժժww{ժժժժժժժժժժժժժժ0@p@@@pժժҪŪժԪҪժժwժժ{ժժժժժժժժժժժժժwwff{`ժժժժժժժժժժժppժժժժժժwժժ{ժժժժժժԪժժʪwW*U*UzW*U*U*UzժժժժժʪҪժժժ/U*U*U*uW*U*U*UzҪժԪժժժʪժժժժpW*U*U*Uzժժժժժժժժժժժo+U*U*uW*U*U*UzժժժժҪժժժժoժժww>f@{ժժժժժԪժժժժժ/U*U*U*uW*U*U*Uzժժժժժժժժժժժ/U*U*U*uW`zժժժժժժժժժժժG`sw{ժժժժŪժՒժժժoww>@{ժժժժժժժժժժժokf~wW`zժժժժժժɪժժժժ00pw<@{Ʉժժժժժդժʪժ/U*U*U*uW*U*U*UzժժժժժժժժժժժokfwW`zժժժժժժժժժժժgpwW*U*U*UzժԪժժժҪժʪoժժww@{ժժժժժժժժժժժokfwW`zժժժժժժժժժժժ`p0pwf@{ժժժժժժԪժʪժ/U*U*U*uw{ժժժժժժժժժժժokwW`zժժժժժժժժժժժ7@qGAAAAAAqժҪժժԪժʪժoժժwwf@{ժժժժժժժԪժժokfwWx`zժժժժժժժժժժժpW*U*U*UzժԪժժժԪժoժժwW*U*U*Uzժժժժժժժժժժo+U*U*u0 ЩGҢ0 (`L j8o/!0o/!`0io/QȩQȩQȩQȩQȩQ`0i8iF%i&J䊢o/Q-`&ՂҊ8  ТѢzLZТѢfLZТѢLZТѢLZ`ѩЩҥ L&РѼmL Щѩoҥ #Щѩoҥ %ЩѩoҥLGҽo/ȑpNޥJJJi)8Х)ѩөԢ0  0 H) Ƈh0``hihià…ȱ…ȱ…ȱH sh$ɀ ) ҆ eЅХҠl8e…à`  / [ q  [ ` ! Щ8 i Hҩh ` } }  Lx L*8 &(i 瘟`HJ h)L҆i `L80`H5 _h ׏( Хi`Ƃ35689;..̓΃ЂтӂԂցׁفځ܁݀߀ԊԊԞ #  $00000000034:5=<96;7>55=68;n{``ժժժժժժժժժժժpժժժժժժժժҪժժwժժ{ժժժժժժժҪժժwwf{``ժժժժժժժժժժժpժժժժҪɢժժʪժwժժ{ժժժժժժժժժժժժժww{ժժժժժժժժժժժժժժ0@p@@@pժժҪŪժԪҪժժwժժ{ժժժժժժժժժժժժժwwff{`ժժժժժժժժժժժppժժժժժժwժժ{ժժժժժժԪժժʪwW*U*UzW*U*U*UzժժժժժʪҪժժժ/U*U*U*uW*U*U*UzҪժԪժժժʪժժժժpW*U*U*Uzժժժժժժժժժժժo+U*U*uW*U*U*UzժժժժҪժժժժoժժww>f@{ժժժժժԪժժժժժ/U*U*U*uW*U*U*Uzժժժժժժժժժժժ/U*U*U*uW`zժժժժժժժժժժժG`sw{ժժժժŪժՒժժժoww>@{ժժժժժժժժժժժokf~wW`zժժժժժժɪժժժժ00pw<@{Ʉժժժժժդժʪժ/U*U*U*uW*U*U*UzժժժժժժժժժժժokfwW`zժժժժժժժժժժժgpwW*U*U*UzժԪժժժҪժʪoժժww@{ժժժժժժժժժժժokfwW`zժժժժժժժժժժժ`p0pwf@{ժժժժժժԪժʪժ/U*U*U*uw{ժժժժժժժժժժժokwW`zժժժժժժժժժժժ7@qGAAAAAAqժҪժժԪժʪժoժժwwf@{ժժժժժժժԪժժokfwWx`zժժժժժժժժժժժpW*U*U*UzժԪժժժԪժoժժwW*U*U*Uzժժժժժժժժժժo+U*U*uժժժժժժժժժժժGAAAAAAqժժʪʪժԪժժoժժww{ժժժժժՔժժժժժokwW`zժժժժժժժժժժժp``ppժժҪժʪժժoժժwW*U*U*UzժժժժժժժʪժԪok*U*U*U*U*U*U*U*U*_*U*U*U*Uz*U*U_*U*U*U*Uz_*U*U*U*Uz+U*U_*U*U*U*Uz_*U*U*U*Uz*U*U_*U*U*U*UjW*U*U*U*Uz*U*U_*U*U*U*UjW*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U~*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*U*U*U*U*U*Uz*U*U_*U*U*U*UjW*U*U*U*Uz*U*U_*U*U*U*UjW*U*U*U*Uz*U*U_*U*U*U*UzU*U*U*U*U*U*U*U*U_*U*Uz*U*U*U*U*U*U*U*U*U_*U*U~*U*U*U*U*U*U*U*U*U_*U*U~*U*U*U*U*U*U*U*U*U^*U*U~*U*U*U*U*U*U*U*U*U^*U*U~*U*U*U*U*U*U*U*U*U~*U*U^*U*U*U*U*U*U*U*U*U~*U*U^*U*U*U*U*U*U*U*U*U~*U*U^*U*U*U*U*U*U*U*U*U~*U*U^*U*U*U*U*U*U*U*U*U~*U*U^*U*U*U*U*U*U*U*U*U*U*U*U*}U*U*U*?U*U*U*U*U*U*U*U*}U*U*U*/U*U*U*U*U*U*U*U*}U*U*Uj/U*U*U*U*U*U*U*U*}U*U*Uj/U*U*U*U*U*U*U*U*uW*U*Uj/U*U*U*U*U*U*U*U*eW*U*Uj+U*U*U*U*U*U*U*U*uW*U*Uj+U*U*U*U*U*U*U*U*uW*U*Uz+U*U*U*U*U*U*U*U*UW*U*Uz+U*U*U*U*U*U*U*U*UW*U*Uz+U*U*U*U*U*U*U*U*U_*U*Uz**U*U*U*U_*U*U*U*U*U*U*U|+U*U*U*U_*U*U*U*U*U*U*Uz+U*U*U*U_*U*U*U*U*U*U*Ur+U*U*U*uW*U*U*U*U*U*U*Uz+U*U*U*uW*U*U*U*U*U*U*Uj/U*U*U*uW*U*U*U*U*U*U*Uj/U*U*U*}U*U*U*U*U*U*U*Uj?U*U*U*}U*U*U*U*U*U*U*U*?U*U*U*}U*U*U*U*U*U*U*U*?U*U*U*?U*U*U*U*U*U*U*U*?U*U*U*?U*U*U*U**u_*U*U*U*U*Uz/U*U*U*U*U*}W*U*U*U*U*UJ?U*U*U*U*U*U*U*U*U*U*U*?U*U*U*U*U*?U*U*U*U*U*U*~U*U*U*U*Uj?U*U*U*U*U*U*}U*U*U*U*Uj/U*U*U*U*U*U*}W*U*U*U*Uj/U*U*U*U*U*U*uW*U*U*U*Uz+U*U*U*U*U*U*u_*U*U*U*Uz+U*U*U*U*U*U*U_*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U*U*U*U~    pq      0000@000 0            0 0 0000Ӡ                    000000000   0hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)L lL&lLlpd`8Hh`vEba b 0`8dl8`il8`xdP<(`ba bIv0ԠΠ٠0LJɢ  Ȉ ϴX)HЄ ȹ)eHe󈁈""">"""" "$$""""""" ">$ $>$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0>$ $>>$>$$$$$""""**8"   "" """"*,"""">2"""<""">"" PPP@P@@@@@P@T P @P@T T TP@DPT @@@PPPPPP(((    (  ((ԔĔЀԕ`  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њhhl  . $ ; LNg0`L,gL2g0`LFgLLg gJFg8ȹge8ИLg`Lgø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# ! h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A=?<) < `JJJ>Ie"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?~?|xp`@~? ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPx|x|x|x| 7 :(2):"<1> FINAL CONFLICT"::"<2> REBEL FORCE"X:"<3> SUBMARINE COMMANDER"s:"WHICH-->";:A$:A$A(A$)#10(A1A3102A1ĺ(4);"RUNTFC HELLO"<A2ĺ(4);"BRUNREBEL FORCE"F(4)"RUNSUBMARINE COMMANDER"OP((P((PPP(`` ` 0` ` ` 5I` 5Iй` f fl;8L~LlPWRvN^Ȅ)w XL;~=~M~m~0=~M~m~ lL2~ gL2~~M~=~L-~L[PP(PP(x@@8<<<|||||x ŠŠԠҠį)*a(ϠŠԠŠԠŠ)+a(ĠӠѠԠĠɫ)\p.a(@````````@?OOwss3@@@@@@@>??OCCAA@@x|||||<<<8 ŠŠԠҠį)*a(ϠŠԠŠԠŠ)+a(ĠӠѠԠĠɫ)\px|xTTTxx|xxwP"" wLxTx|U~a(ĠӠѠԠĠɫ)\p00 @            00000000000                   00000000000     pqr     0 00 0    @  00c0 0 f f      0 0 000 0 0                            0000000000           ` `  0 0c00           000 000 000            0 0 0         @ 00 @          0 000000 0 &D                     0000000000    LJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4$`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8! L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`څʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J`L3L2 33*3**COPYRIGHT NOTICE43A$""H411100: CENTERU424:A$;[W4X4**TYPED MESSAGE PRINTS OUT A$ WITH TYPEWRITER SOUNDb4L1(A$)g4(16384)12713450l4(A$,L,1);v4902:TYPEWRITER4DY1100FANCY DISPLAY OF A$63:*@31,10:2,3>J3L1(40(A$))2NT3L21(A$)gY3(16384)12713240y^3B$(A$,L2,1)c3B$" "13230h3L2421r3L:L1:B$;|3D0,L10:8163L1:" ";33L:L1:B$;3D0,L10:8163L1L110.5 SECONDS=N/DY11000(D1)::: PAUSE UP TO 1 SECOND oX/DY12000(D1)::: PAUSE UP TO 2 SECONDSl/DY14000(D1)::: PAUSE UP TO 4 SECONDS/DY18000(D1)::: PAUSE UP TO 8 SECONDS2***DISPLAYS,3**BUBBLE UP .DY1500::::PAUSE 0.5 SEC@.DY11000:::PAUSE 1 SECa.DY12000:::PAUSE 2 SECS/DY14000:::PAUSE 4 SECS0/DY18000:::PAUSE 8 SECSF/DY1200(D1)::: PAUSE UP TO 0.2 SECONDS I/DY1500(D1)::: PAUSE UP TO (A$)3811199! p+(40(A$))2' +I +**FREEZE TOP OF TEXT WINDOWX +(36)0ĺ +"---------------------------------------" +34,(37) #, $,**THAW TOP OF TEXT WINDOW .,34,0 , .***PAUSES .DY1200::::PAUSE 0.2 SEC 00: SOUND SETUP% '23000: TITLE7 (22000: WAITZ (26000: INITIAL-IZE VARIABLESv <(29000: LOAD SHAPES P(33000: LOAD R/W SUB *1000: START THE GAME * ****SCREEN CONTROL \+**CENTER CENTERS A$ ON SCREEN f+1:2,1:3,60:4,100:825:: PHASERc 1,5:2,1:889,129:865:889,130:865:2,2:865:: GUNSHOT{ ****START THE GAME 16368,0 LD$;"RUN TFC SETUP"  '*******MAIN PROGRAM t'20000: STARTUP '21000: INITIALIZE VARIABLES '320:: WHISTLING BOMBU 1,20:2,1:L160:0,15240(L):816::: SUBSPACE MESSAGE 1,1:2,1:3,200:4,100:825:3,100:4,200:825:3,200:4,100:825:3,100:4,200:825:: SIREN 1,2:2,1:L15:3,200:4,100:825::: BATTLE STATIONS# 1,Rm 1,5:2,1:889,128:865:889,129:865:889,130:1,25:L110:2,L:865::2,15:865:: SHORT EXPLOSION 1,10:2,1:889,128:865:889,129:865:889,130:1,80:L110:2,L:865::2,15:865:: LONG EXPLOSION  1,10:2,1:3,40:4,100:825:904+0(4);"MAXFILES 1":103,1:104,64:16384,0M 10000: MAIN PROGRAM V **f****SOUNDS1,20:2,1:0,190:816:0,255:816:0,190:816:0,255:816:0,190:816:0,255:816:: PROMPT 1,5:2,1:889,128:865:889,130:865:: TYPEWRITE! !!!!!!!!!""" " " " " """""CREEN GRAPHICS' 16304,0: GRAPHICS/ :P " PRESENTS..."h ,D$;"RUN TFC INTRO"n UN TFC INTRO" Y PRECEDING BYTE.( d0 n10U x" URSINE ENGINEERING"[ " 6805 CAROLYN ROAD" " LOUISVILLE, KY 40214" D$;"BLOAD PIC.URSINE LOGO,A$2000" 16297,0: HIRES 16302,0: FULL-S$ n(12):(19) x"BY"% (14); Y((40(B$))2)D (Y)L B$V (20) "COPYRIGHT (C) 1982 HAYDEN BOOK CO.,INC." (22):(10) "ALL RIGHTS RESERVED" X1500: 103,1:104,64:16384,0 (4);"RUN TFC INTRO"(4);"R(4);"MAXFILES 1"KA$"THE FINAL CONFLICT":B$"THOMAS G. CLEAVER"V D$""\j16302,0zX1500:X(:2(4):(8)<"HAYDEN BOOK COMPANY, INC."F(6):(16)P"PRESENTS"Z(10)\X((40(A$))2)_(X) dA!! ! ! 865:: SHORT EXPLOSION 1,10:2,1:889,128:865:889,129:865:889,130:1,80:L110:2,L:865::2,15:865:: LONG EXPLOSION 1,10:2,1:3,40:4,100:825:904:: WHISTLING BOMB 1,20:2,1:L160:0,15240(L):816::: SUBSPACE MESSAGE ****SOUNDSq 1,20:2,1:0,190:816:0,255:816:0,190:816:0,255:816:0,190:816:0,255:816:: PROMPT 1,5:2,1:889,128:865:889,130:865:: TYPEWRITER  1,5:2,1:889,128:865:889,129:865:889,130:1,25:L110:2,L:865::2,15:r010000: MAIN PROGRAM TFC SETUP COPYRIGHT 1981 THOMAS G. CLEAVER URSINE ENGINEERING 6805 CAROLYN ROAD LOUISVILLE, KY 40214"""               D$;"BLOAD LAST LINE R/W.A$900.L$100"*τtiHq***LOAD SHAPE TABLESIq232,0: LOW BYTE OF SHAPE INDEX ADDRESSvq233,16: HI BYTE OF SHAPE INDEX ADDRESSqD$;"BLOAD SHAPES.A$1000.L$1000"/u} CLEAVER SOUND SETUP }D$;"BLOAD CLEAVER SOUND"瀱耲***LOAD LAST LINE R/W$򀺰12010: PAUSE$(Z13300:COPYRIGHT=-Z(16384)12723999Z2Z906: SUBSPACE MESSAGEs7Z(16384)12723999N255UNoR****DEFINE VARIABLESwlRL0vRI0RJ0RK0RKY0RCT0RRN0RDY0RA$""RB$""RNA$""RD$(4): CTRL-DUU***PLEASE WAI(AA)15160.;AAA(L):LLL!8;1B;L1L15220EL;LLLL1D1D1VV;A(L)A(LD1)\`;ij;A(L1)AAqt;L1~;((37)):11100:" ";;***CALCULATE MEAN (AVERAGE) OF A(1) TO A(AN) AND RETURN RESULT IN AM;AM0;L1AN 0: CENTER 824::A$;:/8901: PROMPT E814400: GET KEY S8KY13ĺY9~:***MATHEMATICAL UTILITIES:**SORT A(1) TO A(AN), SMALLEST TO LARGEST;A$"SORTING...":11100:A$;L11AN1;AA9E35;LL1AN $;A(L) CHARACTER AND RESEED RANDOM NUMBER GENERATOR@J816368,0gT8RN2000RNRN2000:901: PROMPT ^8RNRN1:KY(16384):KY12814420h816368,0r8RN(RN)88**PRINT A$ AT BOTTOM OF SCREEN & WAIT FOR RESPONSE8 81110N A$ & WAIT FORY/N RESPONSE. RETURN RESULTIN VARIABLE FL AS 0/1.S7901: PROMPT\7A$;q714400: GET KEYw78KY217FL1:14399: YES8KY206FL0:14399: NO8907: SIREN "814310?82@8**GET KEY GET A KEYBOARD7 **PAUSE AND PRINT 'CONTINUE' MESSAGE?712040: PAUSE{(714200: PRINT 'CONTINUE' MESSAGE AT BOTTOMOF SCREEN w7x7** PRINT 'CONTINUE' MESSAGE7A$"HIT ANY KEY TO CONTINUE"7145007A7**YES/NO PRINT QUESTIO(DY): 4L44J4 **CRAWLER A BANNER PRINT OF A$4B$" "A$44L1(B$)4B$(B$,2)(B$,1)423:(B$,40);4902: TYPEWRITER4556***KEYBOARD INPUT,