@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} @ |||DDOS DOSDOS SYS }}}} }CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u x-ACHBAOLDGEHASDOLENGT V} PROG = SA.SSI9@@d'B7t@d9A@;@@,(!!MAIN **************W}********2 @TITLE<)6-AV)GOSUB 220:REM READ FONTF ApCHAINPTITLE *************Z' +@X}'0@@@d&-@@&(@THEn,-@@,(@ SHATTEREDx+-@Y}@+(@ALLIANCE/-@@/(@ by john lyon++(# @ 1981 Strategic Simulations, Inc.,Z}((( HIT TO START ,$ BINIT *************6-AV6-F:,9 +'0@[}9AR@#6-F:A,#6. D:OZHT.FNTW6-$AV"6-AU&F:,(1F:,"?\}AU&M6-%@W A`\6-&@  F:A,,A86-B+\0@]}6-%@6-$AV"AP, 6-B:,6-&&@6-@6@@"6-@:7,,"F:^}%,APJ"@::,APT ^ ApAph&r @@|>!(LOADING SSI _}CHARACTER SET,6-@:X,>AR@f-A#$)@,%?(>:,>:@0,M6-A&Q \`}@f A& 6-B:,6-&&@-@6@*6-@:7,,%*"@::,APa} ( FONT LOADED$&6-&LOAD FONT CHECK ****-@-!F:A%@$,"@:b}D,-6-@   $jjFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFc}FFFFFFllDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDkkDDDDDd}DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDkkFFFFFFFFFFFFFFFFFFFFFFFe}FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFkkDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDf}DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDllDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDg}DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD$kkSDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDh}DDDDDDDDDDDDDDDDDDDDDDDDD.mmDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDi}DDDDDDDDD8llSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSBkkSSj}SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSLqqSSSSSDDDDDDDDDDDDDDDk}DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDFFLFLFVqqDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDl}DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD`llDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDm}DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDjmmDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDn}DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDtppDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDo}DDDDDDDDDDDDDDDDDDDDDDDDDDDDD~ooDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDp}DDDDDDDDDDDDDDDjjDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFkq}kDSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS8J< +'0@r}-<CHAIN ******BJ8-@@8(ǠΠGJ%D:OIPTLJM-@@s}>(ENTER>:@4,D:OIPT>:@4,A(D(M(CONTVJ*-@'AB@*&`JAB@t} @D2:FIVEDGEHASDOLENGT fffxx~~fl0fF   00< 80~~< w}f @PP@f``f<ffffbx`bbx``||ff~fff xlxxl```b x}`<|<fffff<fff<<f<|   **** ">??? {}???U@@UUUTTTTAAUUUUTTTTPPUUUUTTTTUUUUTTTTPPPPPU@T@U@ |}PUP@@PP@U@@UPUTTTAAUTTUTTTTPPUTTUTTTTUTTUTTTTPPPPPT@T@T }}PTTPxx~~fl0fF   00<?@AB}CDEFGHIJK@LMNOPQR}STUV PROG = OIPT @0 **@@ D:DEL.OBJ (-@}@$)@(  @6-6)@A6%,6-%@6 @@""6}-?:A6<@0<AE, B'@@'@@@( A8 AA@INIT2;@@}, A8`<(>:AS, AFH4X*4X$P@-<67$@ %@<$@ %@ ,.@} Za4C*4C6-+6-&@16.; ApA6-G6-M6.W Apa APdK +'0@}9@@dKB7t@dn--(%CHOOSE LEVEL OF SOLITAIRE DIFFICULTY.xN(( 1. BEGINNER.,( } 2. ADVANCED./(;(WHICH ?F4N6.8f%6-@:7@<@,,&@H; @)!@R6.Only '1,2' l}egal\ A)`f @F( (1(#CHOOSE SIZE OF YOUR OPPONENT'S ARMY4(F( 1. REGULAR.d9(1 2. INCREASE TRAINING }CLASS BY ONE GRADE.d(& 3. SAME AS 2 + INCREASE ARMY BY 25%.%%( 4. SAME AS 2 + DOUBLE ARMY.&((WHICH }4&6.88g%6-@:7@<@,,&@H; @)!@S6.Only '1-4' legal.] A)`g @}16-6-&@%4C+6-16-6-%@//A A0APA0A@D -66}7$@ %@<$@ %@ ,.: D AP41A  A` AP -.6-$@ %}6.7<,.4AA 4B6.A A 4C6.B A" 6.C,6-$@ %67<,.}6 @ A0J9 -68,-@%$8,+68,-8,/ 9 APT9 -68,-@$8,+68,-8,/ }9 AP^$h 6.4C6.r0XERAp|OO67$@ %@<$@ %@ ,.S36264}S36262S1XXXXXXOO67@$@ %@<@$@ %@ ,.S200XXXXXXXXXXXXXXXXOO67@$@ %@<}@$@ %@ ,.S200XXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.S201XXXXXXXXXXXXXXX}XOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXOO67@$@ %@<@$@ }%@ ,.S204XXXXXXXXXXXXXXXXH:@,!?f$O67@$@ %@<@$@ %@ ,.S3586}0S35863XXXXXXXXdH:@,!?367@<A,.S36462S36465XXXXXXXX$0ALXApOO67@$@} %@<@$@ %@ ,.A36971A36770XXXXXXXXOO67@ $@ %@<@ $@ %@ ,.A3687}0A36670A208XXXXOO67@$@ %@<@$@ %@ ,.S200XXXXXXXXXXXXXXXXOO67@$@ %@}<@$@ %@ ,.S200XXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.S200XXXXXXXXXXXXXX}XXOO67@$@ %@<@$@ %@ ,.A36171S1XXXXXXXXXXXXOO67@$@ %@<@$@ }%@ ,.A36868S1XXXXXXXXXXXX&OO67@$@ %@<@$@ %@ ,.A36267A36974XXXXXXXX0H:@},!?@$:OO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXDOO67@ $@ %@}<@ $@ %@ ,.A1XXXXXXXXXXXXXXXXXXNOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXX}XXXXOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXbOO67@$@ %@<@$@ }%@ ,.A1XXXXXXXXXXXXXXXXXXlOO67@$@ %@<@$@ %@ ,.S1XXXXXXXXXXXXXXXXXXvOO67@}$@ %@<@$@ %@ ,.S1XXXXXXXXXXXXXXXXXXgO67@$@ %@<@$@ %@ ,}.A36267A36671XXXXXXXXdH:@,!?@g$O67@$@ %@<@$@ %@ ,.A36467A1XXXXXXXXXXX}XdH:@,!?P67@$@ %@<@$@ %@,.A35965XXXXXXXXXXXX$0CARA}OO67$@ %@<$@ %@ ,.A36266XXXXXXXXXXXXXXOO67@$@ %@<@$@ %}@ ,.A200XXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A200XXXXXXXXXXXXXXXXOO67@}$@ %@<@$@ %@ ,.S201XXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.S2}02XXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A35965XXXXXXXXXXXXXXOO67@$@ %@}<@$@ %@ ,.S205XXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.S205XXXXXXXXXXX}XXXXX$ 0VIKApOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXX OO67@}$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXX*OO67@ $@ %@<@ $@ %@ ,.A}1XXXXXXXXXXXXXXXXXX4OO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXX>OO67@$@ %@}<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXHOO67@$@ %@<@$@ %@ ,.S1XXXXXXXXXXXX}XXXXXXROO67@$@ %@<@$@ %@ ,.S35669S1XXXXXXXXXXXX\$f0MGLA `pOO67@}$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXzOO67@$@ %@<@$@ %@ ,.}A206XXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.S206XXXXXXXXXXXXXXXXOO67@ $@ %@}<@ $@ %@ ,.S1XXXXXXXXXXXXXXXXXXH:@,!?$O67@$@ %@<@$@ }%@ ,.A36468XXXXXXXXXXXXXXdH:@,!?U67A!<A@,.A36066XXXXXXXXXXXXXXdH:@,!?Pd}67@ $@ %@<@ $@ %@ ,.A35866S1XXXXXXXXXXXX$0ROMA`OO67$@ %}@<$@ %@ ,.A36064XXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A35863XXXXX}XXXXXXXXXOO67@$@ %@<@$@ %@ ,.A35963XXXXXXXXXXXXXXOO67@$@ %@<@}$@ %@ ,.A35762XXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A36062XXXXXXXXXXXXXXO}O67@$@ %@<@$@ %@ ,.S35764S1XXXXXXXXXXXXOO67@$@ %@<@$@ %@} ,.A36664A35957S1XXXXXXdH:@,!?`d67@$@ %@<@$@ %@ ,.A35661A35957S1XX}XXXX$$0GONA`.OO67$@ %@<$@ %@ ,.S1XXXXXXXXXXXXXXXXXX8OO67@}$@ %@<@$@ %@ ,.S1XXXXXXXXXXXXXXXXXXBOO67@$@ %@<@$@ %@ ,.A1}XXXXXXXXXXXXXXXXXXLOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXVOO67@$@ %@}<@$@ %@ ,.S1XXXXXXXXXXXXXXXXXX`OO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXX}XXXXXjOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXtOO67@$@ %@<@$}@ %@ ,.A1XXXXXXXXXXXXXXXXXX~$0MORA`OO67@$@ %@<@$@ %@ ,.S}1XXXXXXXXXXXXXXXXXXOO67@ $@ %@<@ $@ %@ ,.S1XXXXXXXXXXXXXXXXXXOO67@$@ %@}<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXX}XXXXXXOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXOO67@$@ %@<@$}@ %@ ,.A1XXXXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXOO6}7@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXX$0HUMAOO67$@ %@}<$@ %@ ,.A35962A35963XXXXXXXXOO67@$@ %@<@$@ %@ ,.A35862A35863X}XXXXXXX OO67@$@ %@<@$@ %@ ,.A35762A35763XXXXXXXXlO67@$@ %@<@}$@ %@ ,.A35662A35663S1XXXXXXlH:@,!?@APOO67$@ %@<$@ %@ ,}.A36063XXXXXXXXXXXXXX(OO67@$@ %@<@$@ %@ ,.A35963XXXXXXXXXXXXXX2OO67@$@ }%@<@$@ %@ ,.A35863XXXXXXXXXXXXXX<OO67@$@ %@<@$@ %@ ,.A35763S1XX}XXXXXXXXXXFO67@$@ %@<@$@ %@ ,.S35664S1XXXXXXXXXXXXdH:@,!?f67@<A},.S35661S36061S36263S1PO67@$@ %@<@$@ %@ ,.S35564S1XXXXXXXXXXXXdH:@,!?f}67A<A ,.S35960S36263S1XXXXXXZO67@$@ %@<@$@ %@ ,.S35666S1XXXXXXXXXX}XXdH:@,!?f67A!<A@,.S36060S36262S1XXXXXXd$n0BEAAxOO67@$@ %@}<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.S1XXXXXXXXXXXXXXXX}XXOO67@ $@ %@<@ $@ %@ ,.A1XXXXXXXXXXXXXXXXXXOO67@$@ %@<@$@ }%@ ,.A1XXXXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXOO67@}$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.}A1XXXXXXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXX$0NORA}OO67$@ %@<$@ %@ ,.S35962S36365S1XXXXXXOO67@$@ %@<@$@ }%@ ,.S36465S1XXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A36057A36764A36767XXOO67@}$@ %@<@$@ %@ ,.A35659A36159A205XXXXOO67@$@ %@<@$@ %@ ,}.A36364XXXXXXXXXXXXXXOO67@$@ %@<@$@ %@ ,.A36260A36664A36667XXOO67@$@ }%@<@$@ %@ ,.S205XXXXXXXXXXXXXXXX"$, 0FAR$6OO67@$@ %@<@$@ }%@ ,.A35964XXXXXXXXXXXXXX@OO67@$@ %@<@$@ %@ ,.A36666XXXXXXXXXXXXXXJOO67@ }$@ %@<@ $@ %@ ,.A35967A35668XXXXXXXXTOO67@$@ %@<@$@ %@ ,.A}35967A35668XXXXXXXX^OO67@$@ %@<@$@ %@ ,.A1XXXXXXXXXXXXXXXXXXhOO67@$@ %@}<@$@ %@ ,.A36065XXXXXXXXXXXXXXrRO67@$@ %@<@$@ %@ ,.S35864S1XXXXXX}XXXXXXR$|&0LFTA 2&267@<@ ,.A35961XXXXXXXXXXXXXXR&R67@$@ %@<@}$@ %@ ,.A35161S35761S35661A1R&R67@$@ %@<@$@ %@ ,.S35864S200XXXXXXXXXX}R&R67@$@ %@<@$@ %@ ,.S35963S200XXXXXXXXXX&&0RITAR&R67@}$@ %@<@$@ %@ ,.A36065A1XXXXXXXXXXXXR&R67@$@ %@<@$@ %@ ,}.A204XXXXXXXXXXXXXXXXg +'0@@@9-@@C(ŠU@@dgB7t}@d%-@@%( Ġ&$-@@$( Š0=-@@"(YOU MAY:%(=( 1.} PLAY A NEW GAME:$$( 2. PLAY A GAME YOU'VE SAVEDD( 3. WATCH A DEMO GAME N((WHICH X41A b}42A# l43A'v.6.ONLY '1-3' LEGAL$ A)`. AK +'0@}9@@dKB7t@d-@@$$(CHOOSE A SCENARIO FROM BELOW+(+( Ӡ͠}Ԡ٠J(&( 1. Ambush of the Unicorns.J( 2. Battle of the Two Kingdoms.!!( 3. Defeat of the Beasts.&}(&(ҠӠӠJ(/($ 4. Carthage VS Alexander the Great.J( 5. Romans VS Vikings.=#( 6. Xerxes} VS Genghis Khan.=( 7. Gondor VS Mordor.%((Which 4%6.026-@:,&@H2!* @A} P/6.Only '1-7' legal!% A)`/ A0 416.ASC1&6. D1:MWOODS0 A!  0 426.ASC2&6}. D1:MMIXED0 A! / 436.ASC4%6.D1:MOPEN/ A!  / 446.ASC5%6.D1:MOPEN/ A! *0 4}56.ASC6&6. D1:MMIXED0 A! 4/ 466.ASC7%6.D1:MOPEN/ A! >/ 476.ASC8%6.D1:MPASS}/ A! H A!0R+6-@6. A1+6-\56-6-&@' A'p5ARMY ROSTERf' 6}-6- A'p'ARMY ROSTERpK +'0@@@9@@dKB7t@dzA-@@}A(& The Computer program can play eitherC-@C((or both sides. To have the Computer play?-}@?(%a side enter 'C' for that side's CIC.(-@@((ŠӠk-@@6(Enter L}eft side (White) ArmyP( Commander-In-Chief Tk67@<@,. 0C6.Xk-@@ 6(Enter }Right side (Blue) ArmyP( Commander-In-Chief Tk67@<@,. 0C6.X4C*4C6-@i}b-@b(GEnter a COUNTDOWN time from 5 to 60 seconds. (RETURN = 12 seconds.)+ 6.4!6-@}+ A"'6-@6.'-@B:,11@:7<,, @H)@:7<,,!@WA"u!67<,.7<,!6}-%@  6.4A"pO 6-A:," @)!@`;6.Only '5-60' legal!E A)`O A"`c}6-@(c(KIf you wish to see the detail displays for morale and combat enter (Y)es. 4Y6- /} @p A0! A5/CHAIN TO OM K +'0@9@@dKB7t@d C6(}.Please insert disc with your SAVed game on it.9(C A)$ (Enter game NAME . 9 6.6.D1:'67B:,%@},.*(9(LOADING 8 @@B )@6- READ UTL K;@ $+%@,,K;@ },;@,;@ $+%@,,V GG9%@,9%@,9,9,9,9,9,9,9,9,` 9%@,}9%@,j 79@1,$-@1368,-A7 t 68,-~ 59%@, -1}68,-%@5  ;68,-A)68%@,-A56-;6- g-6-@ ' A5 c67$}@ %@<$@ %@ ,.7@<@ ,g  b6-@ A5 06.7@<@,: A5 b67@}<@,.7@<@, @)@)@*)@7)@@MORALE 1-)@'}68,-+ 1ROW 4-)@'68,-+ 4COLUMN 0- A5`$68,-( 0COUNT 0-} A5`$68,-( 0COUNT 1-)@'68,-+ 1ROW 1-)@'68},-+ 1ROW 9-)@/68,-&@P3 9ROW 9-)@/68,-&@P3 9R}OW 1-)@'68,-+ 1ROW 0- A5`$68,-( 0COUNT 7)@)@}*)@7)@ 7)@)@*)@7)@( *)@)@*)@}2 )@)@< 6-@  A5 6.F /6-@ A5 6.) A5 /6.P 0C*0C}A&`Z g-6-@ ' A5 c67$@ %@<$@ %@ ,.7@<@ ,g d @}n '('(Please insert the GAME disc.x ( A) ; 6."7@ <@ ,4M;67@ <@ ,.   A0} A5 !!DEMO GAME ***************** C6-@i6-@i#6.C+6.C76-@C6-@ '6.ASC}86.D1:MPASS' A1 56-6-&@' A'p5ARMY ROSTER ' 6-6- A'p'ARMY ROSTER ! }@p A0! A5 *6. LEFT SIDE"*6. RIGHT SIDE  +'0@3AVE-@ }@[( ARMY ROSTER - m@@dB7t@d 2(2(' *  ) }6-@&!@)6-@ 6-@ - x6-$@ ,6.7%@<%@ ,8-N6-@: }7<,,&@ex(7$@%@<$@%@, !-@!(7<%@," ?6-A:7<%@,,?( 7 }@$<@$%@,, ,-@(7<,$-@6,(8,6 $-@7<,4Y$(SH@ G-@!% }6-A:7<%@,,G(7@$<@$%@,J S-@)%6-A:7<%@,,1S(7@$<@}$%@,T # 6-%!@##6-@#^  h "A)Pr -A | AVA$}$ %( A)"AVA$%$ ! 0-@@"!( A-AT@+A/ AA} $ ' (HIT WHEN READY. $'$ W +'0@3AVE@@d}WB7t@d @-@@@(%ؠӠ̠Šנ a3;@ $@",;@$@}$@",96.HB:,"@a67@ <@ ,.M @@ -@! 6-@ } A5  ??67$@ %@<$@ %@ ,.7@<@ ,   -@! 6-@6 A5}  ??67$@6%@<$@6%@6,.7@<@6,&  0 @6-: $D N ;.(&Pleas}e insert disc with your scenario.1(; A)X !!DIRECTORY FUNCTION ??!!??!!b !(Enter scenario NAME !l 16-Bp}6-Bv'6-@1 A6v = 6.6.D1:'67B:,%@,.*(=(LOADING ARMIES @@} )@6- READ UT II;@ $+%@,,;@ ,;@,;@ $+%@,, GG9%@},9%@,9,9,9,9,9,9,9,9, 9%@,9%@, 79@1,$-@136}8,-A7  68,- 59%@, -168,-%@5  ;68,-A)68%@},-A56-;6- - 6-@  A5  ??67$@ %@<$@ %@ ,.7@<}@ ,   A6-@ A5 A67@<@,.7@<@, A6-@ A5 A67@<@,}.7@<@, B)@)@+6-$@96-$@BMORALE 1-)@'68,-}+ 1ROW* 4-)@'68,-+ 4COLUMN4 0- A5`$68,-( 0COUNT> 7)@})@*)@7)@H 7)@)@*)@7)@R *)@)@*})@\ @f -p 68,-8,CURRENT COUNTz ;68,-,4NOR)4HUM)4GON;68,- }@ 68,-MAGIC !68,-!BATTLE SCORE 68,-ROUT SCORE @68,-@NUMBER !}OF CONSECUTIVE LOSSES WITHOUT MOVING --6-A:7$@ %<$@ %%@,, *#68,-$+8,'@ ,%@' *$"} //GET N CHARACTERS INTO STRING A$ *********  6.-@ >)@6.>:,>67B:,%@,.7@<@#},   $ 3)@)@3GET K > 256 ******* 6-$AV% $ A7POLD 29000$}$.`&jC +-@@1@@dCB7t@dt'-@@(#6-%%}' ~<( ( ((CONT'-@9AB@<&AB@A6$ B&}ss;@@,;@",;@",;@,;@",;@,;@,;@ ,;@,;@",9'}@,'6-6-'6-+;@ ,+6.A1XXXXXXXXXXXXXXXXXX $6-F:AV,] +(}'0@9AR@K@@d]B7t@d(#6-F:A,#6. D:OZHT.FNT2W6-)}$AV"6-AU&F:,(1F:,"?AU&M6-%@W A8<6-&@  F:A,,A86*}-B+\0@n@@dB7t@dF6-%@6-$AVPA9+}Z 6-B:,6-&&@d-@6@n"6-@:7,,"F:%,A9x"@::,A@ ,} AAA@& @@>!(LOADING SSI CHARACTER SET,6-@:X,>AR@f-}-A#$)@,%?(>:,>:@0,M6-A&Q \@f A@@&!!!!! 6-B:,.}6-&&@-@6@*6-@:7,,%*"@::,A@ ( FONT LOADEDAV/}$&6-&LOAD FONT CHECK ****-@-!F:A%@$,"@:D,-6-@"   $,T0}ABLES ************6%;@$@,%UNIT TYPES@''6.QQHI LHIMI LMILI EHCHC MC LC J(;@$@ ,(MELE1}E WEAPONST666.,QQQQLANCEJAV SWORDPIKESL SPRJAV 2 HNDSWORD^';@$@,'FIRE WEAPONSh6.QQQQJAV ROCK2}SBOW r!;@$@,!TRIBES|BB6.8CENTUARDWARVESELVES HUMANS HUMANS UNICORNHOZGIT AMAZON II67B:,%@3},.1DEMONS DWARVESZORGS HUMANS HUMANS LIZ/MANORCS 4;@,6.0121344TERRAIN EFFECT TABLE/;@$@4},/TERRAIN COST BY TYPE6. QQQQQQQQQQQQFILLER)$67B:,%@,. 121824122430)HI*$67B:,%@,. 105}1721102029*LHI)$67B:,%@,. 121824122430)MI*$67B:,%@,. 101720102028*LMI)$67B:,%@,. 096}1518091827)LI*$67B:,%@,. 061925079999*EHC)$67B:,%@,. 061825079999)HC)$67B:,%@,. 0617}825079999)MC)$67B:,%@,. 041621059999)LC8;@$@ ,8WEAPONS FACTORS FOR MELEE CRT6. QQQQ8}QQQQQFILLER*"67B:,%@,. Q444453455*LANCE&("67B:,%@,. Q334452243(JAV0*"67B:,%@,. Q22339}51122*SWORD:*"67B:,%@,. Q334454565*PIKESD/"67B:,%@,. Q223342445/LONG SPEARN("67B:,%@,.:} Q112231243(JAVX."67B:,%@,. Q444444444.2 HAND'ERb*"67B:,%@,. Q001120011*SWORDl7;@$@;},7WEAPONS FACTORS FOR FIRE CRTv6. QQQQQQQQQFILLER("67B:,%@,. Q001110011(JAV*"67B:,%@,.y}ZZZZZZZZZZZZZZZZZZZZZAAAAAABBCEEAAAAAAAZZAAAAAABBDDAAAAAAAZZAAAAAAABBEEAAAAAAAZZAAAAAABCEEAAAEEAAZZAAAAAAABCEAAAEFEAAZZAAAAAA=}BCEEAAAEEAAZZAAAAAAACEEAAAAAAAAZZAAAAAABCEAAAAAAAAZZAAAAAAAEFFAAAAAAAAZZAAAAAAAEFFAAAAAAAZZAAAAAAAAAAAAAAAAAAZZAAAAAAAAAAAAAA>}AAAZZAAAAAAAAEFFAAAAAAAZZAAAAAAAEFFAAAAAAAZZAAAAAAACEFEAAAAAAAZZAAAAAABCEEEAAAAAAZZAAAAAABCCEEAAAAAAAZZAAAAABBCCEEAAAAAAZZAAA?}AABBCCEEAAAAAAAZZAAAABBBCCEEAAAAAAZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ///////////////////////////////////  @}//      //A}       //   B}//  //C}//  // D}    //    //E}    ///////////////////////////////////////CEAAAEFEAAZZAAAAAAk[]C05BN080003G005Z[]C05BN080003G005ZE03CY050000G004ZE03CY050000G004Z#$E03CN080003G003ZE01CY050000G006ZG}B01CN070000G005ZD06BY010000G013ZtuO03DN080003G002ZtuO03DN080003G002Z`aM01CY050000G006ZpqO01CY060001G006ZdeM03CYH}050000G004ZtuO03DY060001G003Z|@L07CY020001G010ZlmL07CY010000G010ZGONMOR;@==>=>=>=>33=@=<>=?=BBFFGGCD[RI}\ N080003G005ZE03CY050000G004ZE03CY050000G004Z#$E03CN080003G003ZE01CY050000G006Z10 REM PROG = OMPT11 GOTO 3012 OPEN #1,4,0,"D:DEL.OBJ"13 FOR X=1 TO 6:GET #1,Y:NEXT X14 TRAP 16:X=015 GET #1,Y:POKE 1536!K}+X,Y:X=X+1:GOTO 1516 CLOSE #117 X=USR(1536,30,4510)18 GOTO 1901020 POKE 82,1:POKE 83,40:? CHR$(253)30 GOSUB 1210:DIM BL$!L}(40)40 BL$=" "50 GOSUB 650:POSITION 8,21:? "HIT TO START. ";:IF DM<>69 THEN INP!M}UT A$60 GOTO 69070 FOR I=0 TO UT:R0=U0(I)-U0(U):R=ABS(R0):C0=U1(I)-U1(U):C=ABS(C0):D=C:IF R>C THEN D=R80 IF R0<0 AND C0>=0!N} THEN D=R+C90 IF R0>0 AND C0<=0 THEN D=R+C100 I0(I)=D:NEXT I:RETURN 110 FOR I=0 TO UT:IF R<>U0(I) THEN 140120 IF C<>U1(I)!O} THEN 140130 F=I+100140 NEXT I:RETURN 150 FOR I=0 TO 7:I1(I)=0:NEXT I:D=1160 R=U0(W):C=U1(W):GOSUB 4800:I1(D)=N:D=D+1:IF !P}D<7 THEN 160170 FOR I=0 TO UT:IF I0(I)<>1 THEN 190180 A=W:B=I:GOSUB 200:I1(D)=I+100190 NEXT I:I1(0)=I1(6):I1(7)=I1(1):RETU!Q}RN 200 R0=U0(B)-U0(A):R=ABS(R0):C0=U1(B)-U1(A):C=ABS(C0):IF R0<0 AND C0>=0 THEN D=1:RETURN 210 IF R0>=0 AND C0>0 AND R0 AND C0>0 AND R>=C THEN D=3:RETURN 230 IF R0>0 AND C0<=0 THEN D=4:RETURN 240 IF R0<=0 AND C0<0 AN!S}D R=C THEN D=6:RETURN 260 D=0:RETURN 270 IF F7<>0 THEN RETURN 280 IF U0(U)0 THEN RETURN 310 IF U$(1,2)="Z+" THEN ? "";:R!U}ETURN 320 IF F<>0 THEN ? U$(3,4);:RETURN 330 ? U$(1,2);:RETURN 340 IF F7<>0 THEN RETURN 350 IF M>6 THEN STOP 360 ON M GO!V}TO 370,380,390,400,410,420370 B$="":GOTO 430380 B$="":GOTO 430390 B$="":GOTO 430400 B$="":GOTO 430410 B$=" ":GO!W}TO 430420 B$=" ":GOTO 430430 IF F1<>0 THEN STOP 440 ? B$;:RETURN 450 FOR I=0 TO 2460 K=INT(RND(1)*10):IF K<1 OR K>6 THE!X}N 460470 IF J=0 THEN 500480 IF K=1 THEN K=3490 IF K=6 THEN K=4500 DI(I)=K:NEXT I:RETURN 510 IF U4(U)=0 THEN B$="NO SPELL!Y} POINTS LEFT.":GOSUB 4520:RETURN 520 GOSUB 650:POSITION 1,20:? "1. EDGE ENHANCER":? "2. SHIELD":? "3. HASTE":? "4. COURAGE";!Z}530 POSITION 20,20:? "POINTS LEFT=";U4(U):POSITION 20,21:? "WHICH SPELL ";:INPUT A$:IF A$="" THEN A$="0"540 IF A$="Q" THEN ![}RETURN 550 G=ASC(A$)-48:IF G>0 AND G<5 THEN 570560 B$="ONLY '1-4' LEGAL":GOSUB 4520:GOTO 510570 IF G=3 THEN W=1:GOTO 6205!\}80 POSITION 20,22:? "HOW MANY POINTS ";:INPUT A$:IF A$="" THEN A$="0"590 W=VAL(A$):IF W=0 THEN RETURN 600 IF W<=U4(U) THEN !]}620610 B$="NOT ENOUGH POINTS LEFT":GOSUB 4520:GOTO 510620 U4(U)=U4(U)-W:IF G=4 THEN U8(U)=U8(U)+W:RETURN 630 U5(U)=G*100+W!^}:RETURN 640 RP=U0(U)-51:CP=(U1(U)-49)*2-U0(U)+50:RETURN 650 FOR I=20 TO 23:POSITION 1,I:? BL$;:NEXT I:RETURN 660 I=U*20+SK!_}:J=T*20+SK:U9(U)=U3(U)/20*VAL(UW$(I,I+1)):U9(T)=U3(T)/20*VAL(UW$(J,J+1)):RETURN 670 A=0:B=LU-1:IF U31 THEN TQ=0720 IF TI=144 THEN 5070730 GOSUB 1180:GOTO 690740 IF U0(U)<50 THEN 690750 TS=ST:GOSUB 70:IF LM<1 OR RM<1 THE!b}N 19000760 F1=0:GOSUB 270:IF F1=0 THEN F=2:GOSUB 300770 F=0:GOSUB 1120:IF U$(SI,SI)<>"R" THEN 790780 GOSUB 3350:GOTO 9107!c}90 IF U$(SI,SI)<>"M" THEN 830800 F=0:GOSUB 3500:IF F=1 THEN 760810 IF F<>0 THEN 910820 U$(SI,SI)="G":UW$(U*20+1,U*20+20)=U!d}$:GOSUB 1120830 IF U$(SI,SI)<>"P" THEN 850840 GOSUB 3470:GOTO 910850 IF U=LU AND RP$="C" THEN GOSUB 3830:GOTO 880870 GOSUB 1290880 IF A$<>"S" THEN 900890 GOSUB 510:GOTO 760900 IF A$="" THEN B$=!f}"":GOSUB 4520:A$=U$(SJ,SJ):GOTO 910910 D=ASC(A$)-48:IF D<0 OR D>6 THEN 950920 F=0:GOSUB 3160:IF F=0 THEN 690930 IF TS<1 TH!g}EN A$="0":GOTO 910940 F=0:GOTO 760950 IF A$="M" THEN GOSUB 1210:GOTO 760960 IF A$<>"A" THEN 1030970 IF U$(SJ,SJ)="F" THEN!q}RB'DOS SYSB*+DUP SYSB UFIVE B uOZHT FNTB~DEL OBJBOIPT B <MPASS BFASC8 BJOMPT B# OZGOPT B,TSAVE B 4MMIXED B >MOPEN B HMWOODS BRASC1 BVASC2 BYASC4 B]ASC5 BaASC6 BdASC7 BgSA SSIBwAUTORUN SYS 1020980 GOSUB 1580:E$="":IF F5<>0 THEN F5=0:F=2990 IF F=1 THEN 7601000 IF F=2 THEN U0(U)=22:U1(U)=22:GOTO 6901010 IF F2=!r}0 THEN F2=121020 A$="0":GOTO 9101030 IF U$(SJ,SJ)="F" THEN 10201040 IF A$<>"F" THEN 10901050 GOSUB 2460:E$="":IF F5=2 THE!s}N F=2:F5=01060 IF F=0 THEN 7601070 IF F=2 THEN 10001080 GOTO 10201090 IF A$="E" THEN 50701100 IF A$<>" " THEN B$="NOT A !t}LEGAL CHARACTER!":GOSUB 4520:GOSUB 1120:GOTO 8701110 A$=U$(SJ,SJ):GOTO 9101120 GOSUB 650:H=1:IF U>=LU THEN H=251130 POSITI!u}ON 3,0:? LM;" ";RM;" ";:POSITION H,20:? U$(1,2);:K=ASC(U$(SB))-65:? " ";M3$(K*7+1,K*7+7);1140 POSITION H,21:G=VAL(U$(SC,SC+1!v})):W=VAL(U$(SF,SF+1)):K=VAL(U$(SH,SH+1)):? M0$(G*3,G*3+2);" ";U$(SD,SD)1150 POSITION H,22:IF U$(SE,SE)="Y" THEN ? "SH ";116!w}0 ? M1$(W*5,W*5+4);" ";:IF K<>0 THEN ? M2$(K*5,K*5+4);1170 POSITION H,23:? U3(U);" ";U8(U);:POSITION 19,23:? U$(SJ,SJ);:POSI!x}TION 13,21:? "ENTER ORDER";:RETURN 1180 POSITION 36,0:? 1;:POSITION 38,2:? 2;:POSITION 36,4:? 3;1190 POSITION 33,4:? 4;:POS!y}ITION 31,2:? 5;:POSITION 33,0:? 6;1200 POSITION 33,2:? "TIME";:POSITION 34,3:? TI;:RETURN 1210 GRAPHICS 0:SETCOLOR 2,0,0:PO!z}KE 756,P:POKE 752,1:J=1:I=1:POKE 16,64:POKE 53774,641220 POSITION 0,I-1:? " ";X$(I*36,I*36+35):J=J+2:I=I+1:POSITION 0,I-1:?!{} " ";X$(I*36,I*36+33)1230 I=I+1:IF I<=20 THEN 12201240 O=U:GOSUB 1180:FOR U=0 TO UT:U$=UW$(U*20+1,U*20+20):F1=0:GOSUB 270!|}:GOSUB 300:NEXT U1250 U=O:U$=UW$(U*20+1,U*20+20):GOSUB 1260:RETURN 1260 RESTORE :A=PEEK(560)+256*PEEK(561)+24:POKE A,130:FO!}}R I=1 TO 16:READ A:POKE 1536+I,A:NEXT I1270 DATA 72,169,80,141,10,212,141,23,208,169,118,141,24,208,104,641280 POKE 512,1:P!~}OKE 513,6:POKE 54286,192:RETURN 1290 POKE 764,255:K=TS:H=18:A$="":GOTO 13501300 B=PEEK(764):IF B<>255 THEN 13701310 POSITI!}ON H,22:IF K=9 AND W=9 THEN ? " ";1320 IF K<10 THEN H=19:POSITION H,221330 ? K;".";W;CHR$(30);CHR$(30);:FOR I=0 TO 2:NEXT!} I:W=W-1:IF W<0 THEN 13501340 GOTO 13001350 W=9:K=K-1:TS=K:IF K>=0 THEN 13001360 TS=K:RETURN 1370 OPEN #2,4,0,"K:":GET #2!},B:CLOSE #2:IF B=155 THEN B=321380 B$=CHR$(B):A$=B$(1,1):POSITION 19,23:? A$;" ";:IF A$<>"H" THEN RETURN 1390 POSITION 15!},22:? "HALTED";:INPUT A$:POSITION 15,22:? " ";:GOTO 12901400 POSITION 18,22:INPUT B$:IF B$="" THEN B$=" "1410 A$=B$(1,1):!}RETURN 1420 G=TQ+N:IF G>31 THEN G=G-321430 IF TQ(G)<>9999 THEN 14501440 TU(U)=9999:TQ(G)=U:RETURN 1450 W=TQ(G)1460 IF TU!}(W)=9999 THEN G=W:GOTO 14801470 G=TU(W):IF TU(G)<>9999 THEN W=TU(G):GOTO 14601480 TU(G)=U:TU(U)=9999:RETURN 1490 G=01500 !}W=TQ(G):IF W=T THEN 15701510 IF W=9999 THEN 15501520 K=TU(W):IF K=T THEN 15601530 IF K=9999 THEN 15501540 W=K:GOTO 15201!}550 G=G+1:IF G<32 THEN 15001560 TU(W)=TU(K):RETURN 1570 TQ(G)=TU(W):RETURN 1580 GOSUB 2680:IF F<>0 OR A$="Q" THEN RETURN !}1590 IF F8<>0 THEN 16101600 GOSUB 650:POSITION 13,20:? "MELEE FACTORS";:H=1:IF U>=LU THEN H=221610 O=U:D=T:TF=1:GOSUB 1950:!}IF F8=0 THEN POSITION H,21:? "WF=";WF;" TF=";TF;" RF=";RF;1620 XU=X:I=T*20+SI:IF UW$(I,I)="R" THEN XT=0:WF=0:TF=0:RF=0:GOTO !}16401630 O=T:D=U:TF=0:GOSUB 1950:XT=X1640 GOSUB 2410:GOSUB 2190:U3(U)=U3(U)-XT:U3(T)=U3(T)-XU:U6(U)=U6(U)+VU:U6(T)=U6(T)+VT!}:GOSUB 6601650 IF VU=VT THEN U8(U)=0:U8(T)=0:GOTO 17401660 IF VU>0 THEN U8(U)=0:GOTO 16901670 IF U8(U)>0 THEN U8(U)=01680!} U8(U)=U8(U)-11690 IF VT>0 THEN U8(T)=0:GOTO 17201700 IF U8(T)>0 THEN U8(T)=01710 U8(T)=U8(T)-11720 IF U>=LU THEN LM=LM+V!}T:RM=RM+VU:GOTO 17401730 LM=LM+VU:RM=RM+VT1740 G=ASC(U$(SD,SD))-64:G=5-G:IF U8(U)+G<>0 THEN 17901750 U$(SI,SI)="R":UW$(U*2!}0+1,U*20+20)=U$:POSITION H,22:? "ROUT!";1760 F=1:D=U:GOSUB 4830:A$=STR$(U):IF U>9 THEN 17801770 A$="0":A$(LEN(A$)+1)=STR$(U!})1780 I=T*20:UW$(I+SG,I+SG+1)=A$:UW$(I+SI,I+SI)="P":GOSUB 1490:TU(T)=TQ(TQ):TU(U)=T:TQ(TQ)=U:F=1:F2=100:GOTO 18601790 I=T*2!}0:G=ASC(UW$(I+SD,I+SD))-64:G=5-G:IF U8(T)+G<>0 THEN 18601800 IF UW$(I+SI,I+SI)="R" THEN 18601810 I=T*20+SI:UW$(I,I)="R":POS!}ITION H,22:? "ROUT!";:F=1:D=T:GOSUB 4830:F=0:GOSUB 14901820 TU(U)=TQ(TQ):TU(T)=U:TQ(TQ)=T1830 A$=STR$(T):IF T>9 THEN 18501!}840 A$="0":A$(LEN(A$)+1)=STR$(T)1850 U$(SG,SG+1)=A$:U$(SI,SI)="P":UW$(U*20+1,U*20+20)=U$:F2=1001860 IF U3(U)<1 THEN U3(U)=0!}:D=U:GOSUB 2370:F5=21870 IF U3(T)<1 THEN GOSUB 1490:U3(T)=0:D=T:GOSUB 23701880 F=0:POSITION 13,21:? "RETURN TO GO";:IF F9=0!} THEN 19001890 FOR I=0 TO 350:NEXT I:GOTO 19201900 INPUT A$:GOTO 19201910 F=11920 IF U3(T)<1 THEN RETURN 1930 X=U:U=T:U$!}=UW$(U*20+1,U*20+20):F1=0:GOSUB 270:IF F1=0 THEN GOSUB 3001940 F=0:U=X:U$=UW$(U*20+1,U*20+20):RETURN 1950 I=D*20+SC:J=O*20+!}SF:G=VAL(UW$(I,I+1)):W=VAL(UW$(J,J+1)):K=W*10+G:WF=VAL(WF$(K,K))1960 GOSUB 2060:I=2:J=1:GOSUB 450:RF=DI(0)-DI(1):IF F7=1 THE!}N RF=01970 J=O*20+SD:IF UW$(J,J)="D" AND RF>1 THEN RF=11980 IF UW$(J,J)="A" AND RF<-1 THEN RF=-11990 IF UW$(J,J)="B" AND R!}F<-1 THEN RF=-12000 G=WF+TF+RF:IF G<-1 THEN X=0.01:GOTO 20502010 IF G=-1 THEN X=0.02:GOTO 20502020 IF G=0 THEN X=0.03:GOTO!} 20502030 IF G>0 AND G<6 THEN X=0.02+(G*0.02):GOTO 20502040 X=0.15+((G-6)*0.05)2050 I=INT(X*U3(O)):X=I:RETURN 2060 R=U0(O!}):C=U1(O):GOSUB 4810:G=M:R=U0(D):C=U1(D):GOSUB 4810:W=M:A=VAL(TE$(G,G)):B=VAL(TE$(W,W))2070 K=A-B:IF K>0 THEN K=02080 TF=TF!}+K:IF UW$(O*20+SB,O*20+SB)="B" AND UW$(D*20+SB,D*20+SB)="K" THEN TF=TF+12090 IF UW$(O*20+SB,O*20+SB)="I" THEN TF=TF+12100 I!}F UW$(D*20+SB,D*20+SB)="N" THEN TF=TF-12110 B$=UW$(D*20+1,D*20+20):IF B$(SE,SE)="N" THEN TF=TF+12120 G=VAL(B$(SC,SC+1)):IF !}B$(SE,SE)="N" AND (G=3 OR G=4) THEN TF=TF+12130 IF U5(O)=0 THEN 21602140 G=INT(U5(O)/100):IF G<>1 THEN 21602150 W=U5(O)-10!}0:TF=TF+W2160 IF U5(D)=0 THEN RETURN 2170 G=INT(U5(D)/100):IF G<>2 THEN RETURN 2180 W=U5(D)-200:TF=TF-W:RETURN 2190 GOSUB!} 650:H=1:IF U>=LU THEN H=292200 POSITION 10,20:? "** BATTLE REPORT **":POSITION H+3,20:I=U*20+SA:? UW$(I,I+1);:POSITION H,21!}:? "BEG=";U3(U);2210 POSITION H,22:? " - ";XT;:POSITION H,23:? "NOW=";U3(U)-XT;:H=1:IF T>=LU THEN H=292220 POSITION (H+3),!}20:I=T*20+SA:? UW$(I,I+1);:POSITION H,21:? "BEG=";U3(T);:POSITION H,22:? " - ";XU;2230 POSITION H,23:? "NOW=";U3(T)-XU;:VU=!}0:VT=0:B$=UW$(T*20+1,T*20+20):IF E$="F" OR B$(SI,SI)="R" THEN RETURN 2240 IF XT>XU THEN 23102250 IF XU=XT THEN 23602260 G=!}U3(T)/20:IF G>XU THEN 23602270 H=(XT+10)/10:IF XU=LU THEN H=212290 POSITION H,23:!}? "WINNER!";:H=21:IF U>=LU THEN H=122300 POSITION H,23:? "LOSER!";:RETURN 2310 G=U3(U)/20:IF G>XT THEN 23602320 H=(XU+10)/!}10:IF XT=LU THEN H=212340 POSITION H,23:? "WINNER!";:H=21:IF T>=LU THEN H=122350 !}POSITION H,23:? "LOSER!";:RETURN 2360 POSITION 18,23:? "DRAW";:VU=0:VT=0:RETURN 2370 X=U:U=D:GOSUB 270:R=U0(U):C=U1(U):GOSU!}B 4810:GOSUB 340:U=X:U0(D)=29:U1(D)=292380 IF D0 THEN RETURN 2420 H=1:IF T>=LU THEN H=222430 POSITION H,21:? "WF=";WF;" TF=";TF;" RF=";RF;:POSITION 10,22:? "H!}IT RETURN TO CONTINUE. ";2440 IF F9=0 THEN INPUT A$:RETURN 2450 FOR I=0 TO 200:NEXT I:RETURN 2460 IF U$(SH,SH+1)<>"00" THE!}N 24802470 B$="CAN'T THROW THEM THINGS!":GOSUB 4520:A$="Q":RETURN 2480 GOSUB 2680:IF F<>0 OR A$="Q" THEN RETURN 2490 IF F8!}<>0 THEN 25102500 GOSUB 650:POSITION 13,20:? "FIRE FACTORS";:H=1:IF U>=LU THEN H=222510 O=U:D=T:GOSUB 2590:IF F7<>0 THEN 25!}302520 IF F8=0 THEN POSITION H,21:? "WF=";WF;" TF=";TF;" RF=";RF;2530 XU=X:XT=0:WF=0:TF=0:RF=0:B$=UW$(T*20+1,T*20+20):IF B$!}(SI,SI)="R" THEN 25702540 B$=UW$(D*20+1,D*20+20):G=VAL(B$(SH,SH+1)):IF G=0 THEN 25702550 IF I0(D)>G THEN 25702560 O=T:D=U:!}GOSUB 2590:XT=X2570 IF F7<>0 THEN RETURN 2580 GOSUB 2410:GOSUB 2190:U$(SJ,SJ)="F":UW$(U*20+1,U*20+20)=U$:U3(U)=U3(U)-XT:U3(!}T)=U3(T)-XU:GOSUB 660:GOTO 18602590 I=D*20+SC:G=VAL(UW$(I,I+1)):J=O*20+SH:W=VAL(UW$(J,J+1)):WF=VAL(FF$(W*10+G,W*10+G)):TF=0:!}GOSUB 21102600 RP=U0(D)-50:CP=U1(D)+2-U0(D):II=RP*20+CP:G=ASC(T$(II,II))-64:IF G=2 THEN TF=TF-12610 IF G=3 THEN TF=TF-2262!}0 IF UW$(O*20+SB,O*20+SB)="A" OR UW$(O*20+SB,O*20+SB)="C" THEN TF=TF+12630 I=D*20+SJ:IF UW$(I,I)<>"0" THEN TF=TF-12640 I=2:!}J=1:GOSUB 450:RF=DI(0)-DI(1):IF F7<>0 THEN RF=0:GOTO 20002650 IF RF>1 THEN RF=12660 IF RF<-1 THEN RF=-12670 GOTO 20002680!} IL=0:E$=A$:IF A$="F" OR U$(SJ,SJ)="0" THEN 27002690 F=0:GOSUB 3500:IF F<>0 THEN RETURN 2700 XU=U:U=UT+1:U$="Z+000010000000!}"2710 U0(U)=U0(XU):U1(U)=U1(XU):R1=U0(U):C1=U1(U):R2=R1:C2=C1:R=R1:C=C1:GOSUB 4810:E0=M:XT=0:D1=0:F2=0:FD=02720 IF F7<>0 TH!}EN A$=G$(RA,RA):RA=RA+1:F1$(LEN(F1$)+1)=A$:GOTO 27902730 GOSUB 650:POSITION 10,21:? "ENTER DIRECTION (0-6,Q). ";2740 IF XU=LU AND RP$="C" AND E$="F" THEN GOSUB 4450:GOTO 27902770 IF XU>=LU AND RP$="C" AND E$="A" THEN GOSUB 4420:GOTO 27902780 IN!}PUT A$:IF A$="" THEN A$="0"2790 IF A$="Q" AND FD=0 THEN 31502800 IF A$="Q" THEN FD=70:GOTO 29402810 D=ASC(A$)-48:IF D>0 AN!}D D<7 THEN 28402820 IF D=0 THEN 30702830 B$="ONLY '0-6,Q' LEGAL.":GOSUB 4520:GOTO 27202840 IF D1=0 THEN D1=D2850 IF D1=D !}THEN 29302860 G=D+1:IF G=7 THEN G=12870 IF D1=G AND F2=0 THEN 29202880 G=D-1:IF G=0 THEN G=62890 IF D1=G AND F2=0 THEN 29!}202900 IF F7<>0 THEN GOSUB 3150:F=1:RETURN 2910 B$="NO CURVES!":GOSUB 4520:FD=69:GOTO 29302920 F2=12930 IF FD=0 THEN 2980!}2940 F1=0:GOSUB 270:IF F1<>0 THEN 29802950 F=0:R=R2:C=C2:GOSUB 110:IF F<>0 THEN 29702960 GOSUB 340:GOTO 29802970 W=U:U=F-!}100:U$=UW$(U*20+1,U*20+20):F=0:GOSUB 300:U$="Z+000010":U=W2980 IF FD=69 THEN 27102990 IF FD=70 THEN 31503000 R=R2:C=C2:GOS!}UB 4800:U0(U)=R:U1(U)=C:R2=R:C2=C:F1=0:GOSUB 270:IF F1=0 THEN F=1:GOSUB 3003010 E=M:IF E0<=4 THEN 30403020 IF E<5 THEN 3060!}3030 GOTO 30703040 IF E<>1 THEN 30703050 F=0:GOSUB 110:IF F<>0 THEN 31003060 FD=FD+1:W=VAL(UW$(XU*20+SH,XU*20+SH+1)):IF E!}$="F" AND FD0 THEN 31003080 IF F7<>0 THEN GOSUB 3150:F=1:RETURN 3090 B$="NO!}BODY THERE!":GOSUB 4520:FD=69:GOTO 29303100 T=F-100:IF T=LU THEN 31403110 IF T>=LU AND XU0 THEN GOSUB 3150:F=1:RETURN 3130 B$="THOSE ARE YOUR GUYS!":GOSUB 4520:FD=69:GOTO 29303140 GOSUB 3150:GOTO 19103150 U=X!}U:U$=UW$(U*20+1,U*20+20):F2=0:F=0:RETURN 3160 R=U0(U):C=U1(U):IF D=0 THEN 32303170 GOSUB 4800:IF M<26 THEN 31903180 B$="IM!}PASSABLE TERRAIN!":GOSUB 4520:F=1:RETURN 3190 IF N<32 THEN 32103200 GOTO 31803210 F=0:GOSUB 110:IF F=0 THEN 32303220 B$="!}NO STACKING!":GOSUB 4520:F=1:RETURN 3230 GOSUB 270:RP=U0(U)-50:CP=(U1(U)-49)*1-U0(U)+51:I=RP*20+CP:M=ASC(T$(I,I))-643240 IF!} D=0 THEN G=VAL(U$(SC,SC+1)):N=VAL(TC$(G*12+1,G*12+2))3250 GOSUB 340:U0(U)=R:U1(U)=C:U$(SJ,SJ)=A$:UW$(U*20+1,U*20+20)=U$:IF !}D<>0 THEN U8(U)=03260 F1=0:GOSUB 270:IF F1<>0 THEN 32803270 GOSUB 3003280 IF F2<>0 THEN N=F23290 IF U$(SB,SB)="F" THEN N=!}N-13300 IF F2=100 THEN 33403310 I=INT(U5(U)/100):IF I<>3 THEN 33303320 N=13330 GOSUB 14203340 F2=0:RETURN 3350 POSITION!} 15,22:? "ROUT MOVE";:D=20:A=0:B=LU-1:IF U3!} THEN 34003380 A=U:GOSUB 200:D=D+3:IF D>6 THEN D=D-63390 A$=STR$(D):GOSUB 4940:GOTO 34203400 POSITION 15,22:? "٠٠!}";:F2=12:F=0:GOSUB 3510:IF F<>0 THEN 34203410 U$(SI,SI)="G":UW$(U*20+1,U*20+20)=U$3420 IF U>=LU THEN 34403430 LM=LM-1:RM=R!}M+1:GOTO 34503440 LM=LM+1:RM=RM-13450 IF A$<>"0" THEN POSITION 19,23:? A$;3460 RETURN 3470 POSITION 15,22:? "PURSUE!";:B=!}VAL(U$(SG,SG+1)):A=U:IF U3(B)=0 THEN A$="0":F2=1:GOTO 34903480 GOSUB 200:A$=STR$(D):GOSUB 49403490 U$(SG,SG+1)="QQ":U$(SI,S!}I)="G":UW$(U*20+1,U*20+20)=U$:RETURN 3500 POSITION 13,21:? "MORALE CHECK"3510 I=3:J=1:GOSUB 450:RF=0:FOR I=0 TO 2:RF=RF+DI(!}I):NEXT I3520 G=U2(U)-U3(U):J=U2(U)/10:K=INT(G/J):G=-1:A=0:B=LU-1:IF U>=LU THEN A=LU:B=UT3530 FOR I=A TO B:IF I0(I)<=3 AND !}UW$(I*20+SI,I*20+SI)<>"R" THEN G=G+13540 NEXT I:GOSUB 670:FOR I=A TO B:IF I0(I)<=3 AND UW$(I*20+SI,I*20+SI)<>"R" THEN G=G-1!}3550 IF I0(I)<=3 AND UW$(I*20+SI,I*20+SI)<>"R" AND UW$(I*20+SB,I*20+SB)="I" THEN G=G-13560 NEXT I:WF=RF-K+G+U6(U)+U7(U):GOSU!}B 650:IF F8<>0 THEN 35903570 POSITION 10,20:? "ŠԠ":? "DICE=";RF:? "CLOSE=";G:? "DEAD=-";K;3580 POSITION 12,21:!}? "BS=";U6(U):POSITION 12,22:? "RS=";U7(U):POSITION 12,23:? "TOTAL=";WF;3590 POSITION 30,20:? "RESULT":POSITION 31,21:G=ASC(!}U$(SD,SD))-64:A$="G":IF G<1 OR G>4 THEN STOP 3600 ON G GOTO 3610,3640,3670,3700:STOP 3605 REM MMMMMMMM3610 IF WF>=4 THEN ?!} "ˠ";:GOTO 37703620 IF WF>=0 THEN 37303630 GOTO 37503640 IF WF>=4 THEN ? "ˠ";:GOTO 37703650 IF WF>=2 THEN 37303660!} GOTO 37503670 IF WF>=6 THEN ? "ˠ";:GOTO 37703680 IF WF>=3 THEN 37303690 GOTO 37503700 IF WF>=8 THEN ? "ˠ";:GOTO 37!}703710 IF WF>=4 THEN 37303720 GOTO 37503730 IF U$(SI,SI)="R" THEN F=3:A$="0":? "";:GOTO 37703740 ? "";:A$="0":F=6!}969:F2=20:GOTO 37703750 IF U$(SI,SI)="R" THEN F=3:A$="0":? "";:GOTO 37703760 D=U:F=1:GOSUB 4830:U$(SI,SI)="R":UW$(U*20+!}1,U*20+20)=U$:? "";:F=13770 POSITION 28,22:? " TO GO";:IF F9=0 THEN 37903780 FOR I=1 TO 400:NEXT I:RETURN 3790 INPU!}T B$:RETURN 3800 A$="00":A$(LEN(A$)+1)=STR$(G):I=1:J=2:IF LEN(A$)=3 THEN I=2:J=33810 IF LEN(A$)=4 THEN I=3:J=43820 F$(LEN(!}F$)+1)=A$(I,J):RETURN 3830 GOSUB 1120:POSITION 15,22:? "THINKING";:G=0:GOSUB 670:FOR I=A TO B:IF I0(I)=1 THEN G=13840 NEXT !}I:IF G>0 THEN 43003850 IF U$(SH,SH+1)="00" OR U$(SJ,SJ)="F" OR A$="Q" THEN 39503860 R=VAL(U$(SH,SH+1)):E$="F":GOSUB 4540:E$!}="":F$=E$3870 T=A:W=-200:V=03880 IF I0(T)>R THEN 39103890 I=VAL(UW$(T*20+SK,T*20+SK+1)):IF V>I THEN 39103900 IF I1(T)>W T!}HEN W=I1(T):G=T:V=I3910 T=T+1:IF T<=B THEN 38803920 IF W>-200 AND W<0 AND 2*VAL(U$(SK,SK+1))>V THEN I1(G)=-1002:GOTO 38703!}930 IF W>-200 THEN GOSUB 3800:I1(G)=-1000:GOTO 38703940 IF F$<>"" THEN GOSUB 4620:IF A$="F" THEN RETURN 3950 IF OU$(U*20+1,!}U*20+2)<>"A1" THEN 40303960 T=A:D=20:W=1000:G=A3970 IF UW$(T*20+SI,T*20+SI)="R" THEN 40003980 IF I0(T)>=D THEN 40003990 D!}=I0(T):W=U9(T):G=T4000 T=T+1:IF T<=B THEN 39704010 A=U:B=G:GOSUB 200:IF I0(B)=1 THEN 42304020 A$=STR$(D):GOTO 49404030 IF!} OU$(U*20+1,U*20+2)<>"S1" THEN 40804040 IF U$(SJ,SJ)="F" THEN D=1:GOTO 42304050 G=0:GOSUB 670:FOR I=A TO B:IF I0(I)=2 THEN !}G=14060 NEXT I:IF G=1 THEN 42304070 GOTO 39604080 IF OU$(U*20+2,U*20+2)<>"2" THEN 41704090 B=VAL(OU$(U*20+3,U*20+4)):IF U!}W$(B*20+SI,B*20+SI)="R" THEN 39604100 IF I0(B)>2 THEN 41604110 D=VAL(UW$(B*20+SJ,B*20+SJ)):IF D>0 AND D<7 THEN A$=STR$(D):G!}OTO 49404120 IF A$="Q" THEN 39604130 I=ASC(U$(SJ,SJ))-48:II=U*20+1:IF OU$(II,II)="A" AND I>0 AND I<10 THEN A$=U$(SJ,SJ):GOT!}O 49404140 II=U*20+1:IF OU$(II,II)="A" AND (I=0 OR I>10) THEN 39604150 GOTO 40404160 A=U:GOSUB 200:A$=STR$(D):GOTO 494041!}70 IF OU$(U*20+2,U*20+2)<>"3" THEN OU$(U*20+1,U*20+20)=A1$:GOTO 38304180 A=U:B=UT+1:U0(B)=VAL(OU$(U*20+3,U*20+4)):U1(B)=VAL(!}OU$(U*20+5,U*20+6)):GOSUB 200:IF D<>0 THEN 42104190 IF OU$(U*20+7,U*20+7)="X" THEN OU$(U*20+1,U*20+20)=A1$:GOTO 38304200 OU!}$(U*20+1,U*20+14)=OU$(U*20+7,U*20+20):OU$(U*20+15,U*20+20)="XXXXXX":GOTO 38304210 A$=STR$(D):R=U0(U):C=U1(U):GOSUB 4800:F=0:!}GOSUB 110:IF F<>0 OR N>32 THEN 49404220 RETURN 4230 G=0:GOSUB 670:FOR I=A TO B:IF I0(I)=1 THEN G=I+1004240 NEXT I:IF G=0 T!}HEN 42804250 A=U:B=G-100:GOSUB 2004260 D=D+3:IF D>6 THEN D=D-64270 A$=STR$(D):GOTO 49404280 IF U8(U)>=0 THEN A$="0":RETUR!}N 4290 GOTO 42604300 IF U$(SJ,SJ)="F" THEN 39504310 R=1:E$="A":GOSUB 4540:E$="":G=A:R=99:K=0:B=UT4320 IF I1(G)<=0 THEN 43!}704330 II=G*20+SI:IF UW$(II,II)="R" THEN R=G:GOTO 43704340 IF B<>UT THEN 43604350 B=G:K=W:GOTO 4370:IF U8(B)99 THEN B=R:GOTO 43904410 GOTO 38504420 IF IL<>0 THEN A$="Q":RETURN 4430 IF U4(XU)<>0 THEN U5(XU)=100+U4(XU):U!}4(XU)=04440 A$=F$:RETURN 4450 IF IL=0 THEN 44704460 REM 4470 A$=F1$(RA,RA):RA=RA+1:UW$(XU*20+SJ,XU*20+SJ)="F":RETURN 448!}0 D=INT(RND(1)*10):IF D<1 OR D>6 THEN 44804490 A$=STR$(D):D=20:FOR I=A TO B:II=I*20+SI:IF UW$(II,II)="R" THEN 45104500 IF I!}0(I)"" THEN POSITION 15,20:? B$;4530 FOR I=0!} TO 254 STEP 4:POKE 712,I:NEXT I:POKE 712,0:IL=IL+1:RETURN 4540 FOR I=0 TO UT:I1(I)=0:NEXT I:T=A:O=U:F7=U+1004550 IF I0(T)>!}R OR I0(T)=0 THEN 46004560 IF E$="F" THEN GOSUB 2510:GOTO 45904570 O=U:D=T:TF=1:GOSUB 1950:XU=X:II=20*T+SI:IF UW$(II,II)="R!}" THEN XT=0:GOTO 45904580 O=T:D=U:TF=0:GOSUB 1950:XT=X4590 I1(T)=XU-XT4600 T=T+1:IF T<=B THEN 45504610 XU=F7-100:F7=0:RET!}URN 4620 LO$(LEN(LO$)+1)="XXXXXXXXXXX":LO$(4,4)=LP$(1,1):LO$(5,5)=RP$(1,1):LO$(6,14)=MP$(1,9)4622 A=U:B=VAL(F$(1,2)):GOSUB !}200:RA=I0(B):A$=STR$(D):B$=STR$(D+1):IF D=6 THEN B$="1"4630 LP$=A$:LP$(LEN(LP$)+1)=A$:LP$(LEN(LP$)+1)="0":RP$=A$:RP$(LEN(RP$!})+1)=B$:RP$(LEN(RP$)+1)="0"4640 MP$=B$:MP$(LEN(MP$)+1)=A$:MP$(LEN(MP$)+1)="0":IF RA=2 THEN G$=LP$:G$(LEN(G$)+1)=RP$:G$(LEN(G!}$)+1)=MP$4650 IF RA=2 THEN G$(LEN(G$)+1)="Q":GOTO 46804660 G$=A$:G$(LEN(G$)+1)=LP$:G$(LEN(G$)+1)=A$:G$(LEN(G$)+1)=RP$:G$(LE!}N(G$)+1)=B$4670 G$(LEN(G$)+1)=RP$:G$(LEN(G$)+1)=A$:G$(LEN(G$)+1)=MP$:G$(LEN(G$)+1)=B$:G$(LEN(G$)+1)=MP$:G$(LEN(G$)+1)="Q"46!}80 RA=1:F1$="":F7=1:A$="F":GOSUB 2680:IF F=0 THEN A$="F":F7=0:G$="":RA=1:GOTO 47154690 I=LEN(G$):G$=G$(RA,I):IF G$(1,1)<>"Q"!} THEN 46804700 I=LEN(F$):IF I<>2 THEN F$=F$(3,I):GOTO 46224710 F7=0:A$="":F$=A$4715 LP$=LO$(4,4):RP$=LO$(5,5):MP$=LO$(6,14!}):B$=LO$(1,3):LO$=B$:RETURN 4720 IF D<1 OR D>7 THEN STOP 4730 ON D GOTO 4740,4750,4760,4770,4780,47904740 R=R-1:RETURN 47!}50 C=C+1:RETURN 4760 R=R+1:C=C+1:RETURN 4770 R=R+1:RETURN 4780 C=C-1:RETURN 4790 R=R-1:C=C-1:RETURN 4800 GOSUB 47204810!} RP=R-50:CP=(C-49)*1-R+51:I=RP*20+CP:M=ASC(T$(I,I))-64:IF M>10 THEN N=99:RETURN 4820 J=VAL(U$(SC,SC+1)):K=J*12+M*2-1:N=VAL(T!}C$(K,K+1)):RETURN 4830 G=D:X=U:U=D:GOSUB 70:D=G:U=X:IF D=LU THEN A=LU:B=UT:H=214860 FOR I=A TO B:IF I0(I)>3 THEN 49004870 U7(I)=U7(I)-1:IF I=D THEN 49004880 IF UW$("}I*20+SI,I*20+SI)="R" THEN 49004890 IF F=1 THEN UW$(I*20+SI,I*20+SI)="M"4900 NEXT I:A=0:B=LU-1:IF D3 THEN 49304920 U7(I)=U7(I)+14930 NEXT I:RETURN 4940 IF A$="0" THEN A$="1"4950 W=U:GOSUB 150:F=0:D=V"}AL(A$):G=I1(D):K=D:W=1:IF RND(1)>0.5 THEN W=-14960 IF I1(D-W)6 THEN K=K-"}64980 IF I1(D+W)6 THEN K=K-64990 IF K<1 THEN K=K+65000 IF G<99 THEN F=0:A$=STR$(K):GOTO 5050"}5010 IF F=1 THEN 50405020 D=D+3:IF D>6 THEN D=D-65030 F=1:G=I1(D):A$=STR$(D):K=D:GOTO 49605040 F=0:A$="0":RETURN 5050 IF "}A$="7" THEN A$="1"5060 RETURN 5070 GOTO 1900019000 GRAPHICS 0:SETCOLOR 2,0,0:POKE 756,P:POKE 16,64:POKE 53774,6419005 GOT"}O 1219010 POSITION 8,12:? "Ǡ̠Š"19020 POSITION 2,2:? "ENTER";CHR$(34);"D:OZGOPT";CHR$(34):? :? :? "CONT""}19030 POSITION 2,0:POKE 842,13:POKE 559,2:STOP 19040 POKE 559,34:POKE 842,12:GOTO 1034);"D:OZGOPT";CHR$(34):? :? :? "CONT" V10 PROG=OZGOPT20 REM GAME OVER30 REM 40 REM DIM BL$(40):BL$=" "50 REM GOSUB 1010:REM& } INIT60 GOTO 11070 IF U0(U)<50 THEN F1=5:RETURN 80 RP=U0(U)-51:CP=(U1(U)-49)*2-U0(U)+5090 POSITION CP-1,RP:RETURN 100 FO& }R I=20 TO 23:POSITION 1,I:? BL$;:NEXT I:RETURN 110 GRAPHICS 0:SETCOLOR 2,0,0:POKE 16,64:POKE 53774,64120 POSITION 12,4:? "& }Šҡ"130 IF TI>=144 THEN POSITION 10,6:? "Night has fallen."140 FOR I=0 TO UT:REM LEFT ARMY DISPLAY150 U8(I)=(U2(I)& }/20)*VAL(UW$(I*20+SK,I*20+SK+1))+10:REM WRG PTS-START160 U9(I)=(U3(I)/20)*VAL(UW$(I*20+SK,I*20+SK+1))+10:REM WRG PTS-NOW170&} NEXT I180 I0(0)=0:I1(0)=0:A=0:B=LU-1:REM GOT UNIT VALUES,ADD FOR ARMY'S190 FOR I=A TO B200 I0(0)=I0(0)+U8(I):REM LEFT ARM&}Y-START210 IF UW$(I*20+SI,I*20+SI)="R" THEN 230220 I1(0)=I1(0)+U9(I):REM LEFT ARMY-NOW230 NEXT I240 POSITION 1,8:? "LEFT &}ARMY":POSITION 1,9:? "STRENGTH LEFT"250 POSITION 2,10:L=100*(I1(0)/I0(0)):? INT(L);" %"260 I0(1)=0:I1(1)=0:A=LU:B=UT:REM GO&}T UNIT VALUES,ADD FOR ARMY'S270 FOR I=A TO B280 I0(1)=I0(1)+U8(I):REM RIGHT ARMY-START290 IF UW$(I*20+SI,I*20+SI)="R" THEN&} 310300 I1(1)=I1(1)+U9(I):REM RIGHT ARMY-NOW310 NEXT I320 POSITION 23,8:? "RIGHT ARMY":POSITION 23,9:? "STRENGTH LEFT"330&} POSITION 24,10:R=100*(I1(1)/I0(1)):? INT(R);" %"340 IF LM<1 THEN POSITION 1,12:? "-15 % Retreat";:L=L-15350 IF RM<1 THEN P&}OSITION 23,12:? "-15 % Retreat";:R=R-15360 K=ABS(L-R):IF K>9.99 THEN 380370 POSITION 16,16:? "Draw":GOTO 440380 A$="WINNER&}":IF L"C" AND RP$<>"C&%}" THEN 900890 FOR U=0 TO UT:A$=OU$(U*20+1,U*20+20):GOSUB 930:NEXT U900 CLOSE #2910 ? :? B$;" WRITTEN":? :? "PLEASE INSERT &&}THE GAME DISC. "920 ? :? "HIT WHEN READY. ";:INPUT A$:RETURN 930 I=LEN(A$):REM PUT THE STRING A$ *************940 F&'}OR J=1 TO I:K=ASC(A$(J)):PUT #2,K:NEXT J950 RETURN 960 REM PUT X WHEN > 256 *********************970 I=INT(X/256):J=X-I*25&(}6980 PUT #2,I:PUT #2,J990 RETURN 1000 RUN "D1:SA.SSI"1010 DIM A$(99),B$(99)1020 UT=3:DIM U0(UT),U1(UT),U2(UT),U3(UT),U8(&)}UT),U9(UT),I0(2),I1(2)1030 LM=3:U2(2)=500:U3(2)=2501040 RM=3:U2(0)=500:U3(0)=2401050 TI=1441060 DIM UW$(20*(UT+1)):SI=1:S&*}K=1:LU=2:RU=2:P=2241070 FOR I=0 TO UT:UW$(I*20+1,I*20+20)="12345678901234567890":NEXT I1080 DIM X$(18*2*23):FOR I=0 TO 35:X&+}$(I*23+1,I*23+23)="12345678901234567890123":NEXT I1090 RETURN 5678901234567890":NEXT I1080 DIM X$(18*2*23):FOR I=0 TO 35:X$@[]C05BN080003G205Z[]C05BN080003G205ZE03CY050000G204ZE03CY050000G204Z#$E03CN080003G403ZE01CY050000G006Z*-}B01CN070000G005ZD06BY010000G013ZtuO03DN080003G502ZtuO03DN080003G002Z`aM01CY050000G506ZpqO01CY060001G406ZdeM03CY*.}050000G504ZtuO03DY060001G403Z|@L07CY020001G410ZlmL07CY010000G410ZGONMOR=?=?55?A>=>=?@ABEFFGCD[R*/}\[+\*0}aUiiQy'MKvN  ,D1:MPASSMXCA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1*1}XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXS1XXXXXXXXXXXXXXXXXXS1XXXXX*2}XXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXXXXXXXXXXA1XXXXXXXXXX*3}XXXXXXXXBN080003G205Z[]C05BN080003G205ZE03CY050000G204ZE03CY050000G204Z#$E03CN080003G403ZE01CY050000G006Z(ZZZZZZZZZZZZZZZZZZZZZFEEECBAAAAAAAAAAAAZZBBEECADAAAAADAAAAZZEEBCEAAAAAAAAAAAAAZZFEBBAAAAAAACCCAAAZZCEEEAAACAAACEECCAAZZBEEAAA.5}AAAAACECAAAZZCCEAAAAAAAAACCAAACZZBAAAAAAAAAAAAAABCZZAAAAAAAAAAAAAAACBCZZAAAAAAAAAAAACCCBCZZAAAAAEBBCAADACCCBCZZAAAAEBBBCAAAAC.6}CCBZZAAAAACBEEAAAAAAAAAZZADBAAEAEAAAAAAADAZZABCCAAEEAACAAAAAAAZZABBCAAAAACCAAAABAZZCDBCCAAAACBCAAAAAAZZBDDDEEBAAAADAAAAAZZBDC.7}CBBBCAAAADAAAAAZZECCCBCCCEEEEEAAAAZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ///////////////////////////////////    .8}  //     //  .9}      // .:}//// .;} //    //  .<}//  //.=}      ///////////////////////////////////////AAACEECCAAZZBEEAAA,kZZZZZZZZZZZZZZZZZZZZZAAAAAAAAABCCCCCCCCZZAAAAAAAAABBCCCBCCZZAAAAAAAAAAABBCBBCCZZAAAAAAAAAAAABBBBCZZAAAAAADAAAAAAAAAAAZZAAAADD2?}DDAAAAAAAAAZZAAAAADDDAAAAAAAAAAZZAAAAADDAAAAAAAAAAZZAAAAAAAAAAAAAAAADDZZAAAAAAAAAAAAAAEEEZZAAAAAAAAAAAAAAEEEEZZAAAAAAAAAAAAAE2@}EEEZZAAAAAAAAAAAAAAADEEZZAAAADDDAAAAAAAADEZZAAAAADDDAAAAAAAAAEZZAAAAADDDAAAAAAAAAZZAAAABCEEEEEAAAAAAAZZAAABCCEEEEAAAAAAAZZAAA2A}BCCCCEEEAAAAAAAZZAABCCCCEEEAAAAAAAZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ///////////////////////////////////2B}////2C}//2D}//   //    2E}    //   //2F} //         //2G}      ///////////////////////////////////////AAAAAAAAAAZZAAAADD0kZZZZZZZZZZZZZZZZZZZZZAAAAABCFCBCCCBBCCCZZAAAAABCEBBBCCBCCCZZAAAAAABCDBBBCBBBCCZZAAAAAAABBAAABBBCCZZAAAAAAAAAAAAABBCCBZZAAAAAA6I}AAAAAAABCCBZZAAAAAAAABBAAAAACBBZZAAAAAAAABBBAAABBBZZAAAAAAAABBCBAAABCCZZAAAAAAABBCCBAAABCZZBBAAAAABBCCBAAABBCZZBBAAAABBCCCBAA6J}ABCZZCCBBABBCCCBBAAABCCZZCCCBBCCCCBAAAAABBZZECCCBCCCCCBBAAABCCZZEECBCCCBCCBAAAABCZZEEEDCCCBCCBAAAAABCZZEEEDECBBCCBAAAAAAZZEEE6K}EDDBBBBBBCAAAAAZZEEEEDBBCCCBBBAAAAZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ/////////////////////////////////// 6L} ////6M}//6N}////6O}//// 6P}  //       // 6Q}       ///////////////////////////////////////AAAAABBCCBZZAAAAAA4k^_A07BY010003G012Z^_A07BY010003G012Z^_A07BY010003G012Z&F09DN030000G006Z&F09DN030000G006Z&F09DN030000G006Z&:S}F09DN030000G006ZvwK04CN070002G004ZfgK04CN070000G003ZfgK04CN070000G003ZhiK05DY080000G003ZhiK05DY080000G003ZhiK05DY:T}080000G003ZhiK05DY080000G003ZxyK05DY080002G004ZUNIZRG:;;@AAB>@B?C?C@CDEGGHHHDEIECKJhhh##$! :U} A07BY010003G012Z^_A07BY010003G012Z^_A07BY010003G012Z&F09DN030000G006Z&F09DN030000G006Z&F09DN030000G006Z&8 []C05BN080003G005Z[]C05BN080003G005Z<>F09CN010001G008ZA07BY010000G011ZH02BY050000G007ZD06CY010000G012Z<>>W}D09CN020001G008Z`aI01CN070000G005ZlmL07CY010000G010ZnoL09CN020001G008ZnoL09CN020001G008ZdeM03CY050000G004ZdeM03CY>X}040000G004ZxyM05BN080003G005ZNORFAR;=<89:7;:=89<:=?><<<<jB01CN070000G005ZH02BY050003G008ZE02BY040000G007Z[]C05BN080003G005Z<>F09BN030003G008Z<>A09CN030003G007Z<>BZ}D09CN030003G007Z`aI01BY050000G007ZxyK05DN080002G002ZfgK04CN070000G003ZfgK04CN070000G003ZvwN04CN050002G004ZdeN03CYB[}050000G004ZdeN03CY050000G004ZpqN01CY050001G007ZHUMBEA:987879=><:>;=<====<<F09BN030003G008Z<>A09CN030003G007Z<>@E01BY050000G006ZE03CY050000G004ZE03CY050000G004Z[]E05CY060001G004Z[]E05CN080003G003Z^_D07CY020001G010Z<>F^}D09CY020001G008Z<>D09CY020001G008ZbcM02BY040000G007ZrsM02CY050001G007ZdeM03CY040000G004ZdeM03CY040000G004ZvwM04CYF_}050001G005ZxyM05CY080002G004ZxyM05CN080003G003Z|@L07BY020001G011ZCARALX>=?<@;:7AA?=?>@<>=>=?<;:FGEDFDECC1F`}CBD Y050000G004ZE03CY050000G004Z[]E05CY060001G004Z[]E05CN080003G003Z^_D07CY020001G010Z<>D E01BY050001G008Z E01BY050001G008Z E01BY050001G008Z#$E03BY050001G008Z#$E03BY050001G008Z[]E05CN080003G003Z<>Jb}D09CN030003G007ZpqM01BY060001G007ZpqM01BY060001G007ZrsM02BY060001G007ZbcM02BN070000G006ZbcM02BN070000G006ZxyM05CNJc}080003G003ZnoL09CY020003G009ZROMVIK<:;9<:;:;:;<=;=<<;;:9BBCCCCD 05CN080003G003Z<>Hj E01CY060001G006Z#$E03CN080003G003Z#$E03CN080003G003Z#$E03CN060003G003Z^_D07CY020003G012Z<>D09CN030003G007Zz{Ne}L06BY010003G015Zz{L06BY010003G015Z|@L07BY010003G013ZnoL09BY020003G011ZXERMGL>=?<>==>?@>=>=<;EEEG.Nf} 060001G006Z#$E03CN080003G003Z#$E03CN080003G003Z#$E03CN060003G003Z^_D07CY020003G012Z<>D09CN030003G007Zz{L j ACHBAOLDGEHASDO Rh}PROG = SA.SSI9@@d'B7t@d9A@;@@,(!!MAIN **********************2 Ri}@TITLE<)6-AV)GOSUB 220:REM READ FONTF ApCHAINPTITLE *************ZK +@'0@Rj}@@9@@dKB7t@dd&-@@&(@THEn,-@@,(@ Rk}SHATTEREDx+-@@+(@ALLIANCE/-@@/(@ by john lyon++(# @ 1981 Strategic Rl}Simulations, Inc.,((( HIT TO START ,$ BINIT *************6-AV6-FRm}:,] +'0@9AR@K@@d]B7t@d#6-F:A,#6. D:OZRn}HT.FNTW6-$AV"6-AU&F:,(1F:,"?AU&M6-%@W A`6-&@  F:A,Ro},A86-B+\0@n@@dB7t@d6-%@6-$AVRp}"AP, 6-B:,6-&&@6-@6@@"6-@:7,,"F:%,APJ"@::,ARq}PT ^ ApAph&r @@|>!(LOADING SSI CHARACTER SET,6-@:X,>ARRr}@f-A#$)@,%?(>:,>:@0,M6-A&Q \@f A& 6Rs}-B:,6-&&@-@6@*6-@:7,,%*"@::,AP ( FONT LOADEDRt}$&6-&LOAD FONT CHECK ****-@-!F:A%@$,"@:D,-6-@   $8JQ +Ru}'0@-?@@dQB7t@dBJ8-@@8(ǠΠRv}GJ%D:OIPTLJM-@@>(ENTER>:@4,D:OIPT>:@4,A(D(M(CONTVJ*-@'ABR|}EiͩkΩ͙kCop j`j {j`Hi͝Νh`Vx}L"ISS.AS:1D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`T Q001110011*ROCKS("67B:,%@,. Q001110011(BOW$8JW +'0@3AVE@z}@dWB7t@d=J @BJ1-@@1(ǠΠ͠LJM-@@>(ENTER>:{}@4,D:OMPT>:@4,A(D(M(CONTVJ<-@'AB@9AY@<&`J1AY@4'}}@*&`JAB@ @D:SA.SSI P>AB@1 @D:OIPTCBISUWU2U3GFSFU0U1U4U5U6U7U8U9I0I1TQTUTTRLRSSSS)