ZXTape! 2 Empires: Player 3 - Side AImperial Software1984EnglishStrategy: Management19.95NoneOriginal&TZXed by Andrew Barker For Lee FogartyEMPIRES [6J # # <@TAAA``\\\`\``` `1`1`\nX![!@P!!< W K SR P *23613=\,0:23614>\,0 0:0:0: """a",167 ,n=110 :.1}L,30+n:n 1:7 (2;0;2,13 ;"";7;"";2;"";6;3,14;"";7;"";6;"";4,14;"";7;;5,13 ;1;"";6,13 ;"" -410 ,1;" Copyright Imperial Software." 2M12 ,11 ;"MCMLXXXIII";14,5;"Program, Audio, Visual." 7?n=175K:.01z# =,40(:.01z# =,45-:n \,0:23672x\,0:23673y\,0:23674z\,0 :"EMPIRES"23509[,2060 : :65A EMPIRES [6[ :23614>\,0:23672x\,0:23673y\,0:23674z\,0 :"EMPIRES"23509[,2060 :  Xv>o>? ?@I$ ~H$HÁå@@ګ":]PP\HJMH\OUCH! @  pK@O``1{ `c3?x@p >O ` 1s` c p 8< <8@@O`@@3`@@0|@@p @@ p@8 O` s ?8`  8 p? |p  >'O`@c<<?`?,9`~@C׆p @c'?`c8<?`20@7@g?`c<0<?`?t O9@g9`~c0x| ~?ix TUA 񃠀k@ 1W@P<` +@ y0@ 0@ b+i m  |1 O0,)#|&聭 @@aGT  @ aAk@ ` C0d;@@? @ SGJ   `(@R 1@&J {/ @@?CC@  TQ @ "DŽk@ ,@@= @| /0 0? @ @R@3!,3xc `<@?=  >'uT00L|tk@ B$A8 n`` | .`q @ DL A$ !x!T8=x8ߏT:TPσ@x86E@!P`#0h HAh@|@  @U "`uA@ @NAvxz}@`d!T*@`xDP/@ v#п@"ӄ <"d<HH O`@;@ 9b 0*`@L@R 0/TP 0| PtP b&~` _K@$8 "28  v`0f@@ ?`2Xx 00&0A#ú: x_TQx`@)=x28;W.K@ q8HJX@( ?0 R`>%l@@H@3` Ao IՒB @@o~ @Qв軜 q|1<>?A OH@_?||| 00Hx2p>o#>KG$$$P_ tDڢP@J4` @C< 6 ~D(À>@?:;  M~ ?&?>@m`HPTA`@ "P@UH\"@`?0۠ pa À:]\po?@ %>>02@1!@Q@||| TAp_?O*A `00hB@p S# # <@ \\\D\=94EVV쿒\zX![!@P!!8 K SR PENTER SECURITY CLEARANCEی$CODE CONFIRMED$YOU ARE$CLEARED TO PROCEED$ROBOTRON $STATUS REPORT$POPULATION:$CREDITS AVL :`$WORLD INCOME:`$MINING COSTS:`$MILITARY COSTS:`$1 STATUS REPORT$2 MILITARY OVERVIEW$3 STRATEGIC COMMAND $4 MINING$5 END YEAR$ @ ROBOZONS FLEET $OPTIONS$1 COMMISSION FLEET$2 DESIGNATE FLEET$4 RETURN TO MAIN FILE$ROBOZONS$SC$BC$SS$SECTOR$NON COMMISSIONED$ROBOZONS STATUS REPORT$YOU HAVE THE$FOLLOWING AVAILABLE$FOR IMMEDIATE DISPATCH$SCOUT SHIPS:$BATTLE CRUISERS:$STAR SHIPS :$WHICH ROBOZON DO YOU WISH TO $DESIGNATE ?$ WHAT ARE YOU GIVING $ THAT IS NOT POSSIBLE $YOU HAVE `$WHAT IS YOUR DECISION ?ۃ$1 COMMISSION SCOUT SHIPS$2 COMMISSION BATTLE CRUISER$3 RETURN TO MAIN FILE$ SCOUT SHIP $ENTER NUMBER TO $BE COMMISSIONED$O.K.BUILDING HAS COMMENCED$ 1 DISPATCH ROBOZONS$2 DISPATCH MINING CO.$3 DEEP SPACE MOVEMENT$4 DEEP SPACE SCAN$5 RETURN TO MAIN FILE$DISPATCH WHICH ROBOZON ?$THAT ROBOZON IS NOT AVAILABLE$DISPATCH WHICH MINING COMPANY$THAT COMPANY IS NOT AVAILABLE$ COORDINATES $ DISTANCE $ LIGHT $ MINING $1 BUILD SHIPS $2 DESIGNATE MINING FLEET$3 COMPANYS STATUS$4 RETURN TO MAIN FILE$1 COMMISSION CARGO SHIPS$2 COMMISSION MINING STATION$3 RETURN TO FILE$ =YOU NOW HAVE THE CREDITS $TO COMISSION A STARSHIP $THE COST IS ` 450,000 $CONSTRUCTION TIME IS$5 YEARS.$DO YOU WISH TO COMMISSION ?$ THE HIGH ONES WILL NOW$RECESS $PLEASE SEND MOVEMENT FILE$FOR EVALUATION$INSERT BLANK TAPE THEN....$COMMENCE VERIFICATION$1 ROBOZONS$2 MINING COMPANYS$SELECT WHICH TYPE TO BE MOVED$ LOCATE WITH CURSOR FROM WHERE$YOU WISH TO TRAVEL$PLEASE WAIT THE COMPUTER$IS TRYING TO ESTABLISH$CONTACT WITH THAT$SECTOR$NO VESSELS REGISTERED IN THAT$SECTOR$ CONTACT NOW ESTABLISHED.$THE FOLLOWING HAS BEEN $ RECEIVED. $ THE ABOVE HAVE BEEN CONTACTED$SPECIFY NEW DESTINATION$WHICH ROBOZON$WHICH MINING COMPANY$ENTER NUMBER OR TO EXIT$ANY MORE$LOCATE CURSOR ON THE SYSTEM $YOU WISH TO SCAN $THIS SECTOR HAS NOT YET$BEEN EXPLORED BUT$A VESSEL IS ON ITS WAY$A SCAN OF THIS AREA IS NOT $POSSIBLE $ SYSTEM SCAN COMPLETED$COORD:$DIST:$ YEARS$SUNS $PLANETS $MINING POTENTIAL ` $ATMOSPHERE OF MINING PLANET$HAS RETURNED$DO YOU$WISH TO TERMINATE$THE CONTRACT$HAS$RETURNED$DO YOU$WISH TO RELIEVE$HIM OF COMMAND?$ HAS REACHED$DESTINATION AT SECTOR$MINE COMPANY STATUS REPORT$MINE.CO.$CS$MS$SECTOR$NON OPER.$CARGO SHIPS $MINING STATION $3 ROBOZONS STATUS$ ALERT $ SEVERE EARTH QUAKE....HAS..$STRUCK...OUR...PLANET....$MANY CASUALTYS.............$FUNDS HAVE BEEN DIVERTED TO$DEAL WITH THE SITUATION....$ dTHE MINING VALUE OF SECTOR$9,22 IS NOW EXHAUSTED...$SUGGEST YOU ALERT MINING $COMPANY TO WITHDRAW$ DESIGN FAULTS$ALL PRODUCTION OF SCOUT $SHIPS AND BATTLE CRUISERS$LOST$PUBLIC OPINION FOR YOU IS$LOW....SUGGEST THAT YOU$INCREASE MILITARY STRENGTH$STARSHIP DESTROYED.....$FREAK REACTOR EXPLOSION $IN MAIN DRIVE UNITS$ / STRATEGIC COMMAND $A REPORT NOW FOLLOWS....$ %PA:I:D1=480 &pPP=a '&pPP<38&pPP>16544, (8;7;""; ).001wn,502 *8;pPP; +a=a+1:38& ,PPp=32 40( -PPP=33!40( .PPp=2191:d1 /PPp=36$502 0a=a+1:38& 27a=a+1:.01z# =,40(:.01z# =,30: 5$L=65368X:LZ9 ;S$: 6j0:64162:64161,191:64160,117u:0:"":"":"":5097: 71::236099\,60<:23658j\,8:M$(10 ,14):A$(100d,18):P$(65A,10 ):D$(10 ,17):6000p 81:0:0:7::7,3;"WELCOME TO THE CHALLENGE OF";9 ,12 ;"EMPIRES";11 ,4;"PROGRAMED BY E.LOIGORRI.";13 ,4;"REALISATION AND ARTWORK";15,10 ;"BY G.MORLEY" 9"2;0;1,13 ;"kl";7;"m";2;"no";6;2,14;"p";7;"q";6;"r";3,14;"stu";7;4,13 ;"vwxyz";5,13 ;"{|}~(":5;19,2;1;"PLEASE ENTER YOUR CHOSEN NAME":59; :OX=113 :0;X,1;" ":X: ;C"ROBOZON :";P$(34"):"SECURITY CODE ";P$(5):0 <5:1:1: =-7;"[bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\" >Jx=113 :7;x,31;"a":7;x,0;"_":x ?E7;"]ccc";0;"ccccccccccccccccccccccc";1;"cccc^" @Mx=113 :0;x,1;" ":x AH5;1;15,0;" ef " B-0;"hbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbj" CAx=1720:0;x,0;"_";x,31;"a":x D-0;"gcccccccccccccccccccccccccccccci" EEx=1720:x-16;x,11 ;"d";x,14;"d":x Fs0;5;17,12 ;"hj";18,12 ;"gi";19,12 ;"hj";20,12 ;"gi" G0;5;17,1;"[bbbbbbbb\";18,1;"_ a";19,1;"_ a";20,1;"]cccccccc^" H0;5;17,15;"[bbbbbbbbbbbb\";18,15;"_ a";19,15;"_ a";20,15;"]cccccccccccc^" I7;6;1;18,29;"[\";19,29;"]^":6;0;18,2;"STARDATE";7;19,3;P$(6);".";P$(21)(12) KEA=23760\:I=7:PA=0:7,3;:O:0 LC"SECURITY CODE: ";P$(4):P$(4)P$(5)76L Mw58::4,9 ;:O:6,12 ;:O:8,7;:O:10 ,6;:O:;" ";P$(34") N7150:p$(1)058::6002r O 100d P~Q=0:A$(502)(514)="0000000000":I=7:58::P$(1)=0P$(1)="1":83S Q0:58::800 : RL58::P$(7)>10050000YưP$(8)>500000t$620l SAA=23927w]:18,16;" ";19,16;" ":X=1720:5;0;X-16;X,11 ;"d";X,14;"d":X:7;0;19,8;P$(21)(12):P$(21)>10 1;19,8;P$(21)(12) To3,7;:O:5,7;:O:7,7;:O:9 ,7;:O:11 ,7;:O U518,20;"MAIN";19,20;"FILE" V*="1"FLA=1:150:100d W*="2"FLA=2:150:200 X*="3"FLA=3:150:300, Y*="4"FLA=4:150:500 _="5"160 ` 86V d;A=23839]:100d:58::PA=1:I=7 n2,9 ;:O:PA=0:I=7:4,3;:O:P$(7):6,3;:O:P$(8);8,3;:O:P$(14);10 ,3;:O:P$(10 );12 ,3;:O:P$(11 ) q18,17;" STATUS ";19,18;" REPORT":0:18,18;" ";19,19;" " rR706 s 80P 18,20;" ";19,20;" ":1;FLA;5;16+FLA,11 ;"d";16+FLA,14;"d": Yx=1720:x-16;1;x,11 ;"d";x,14;"d":x:700 RA=23927w]:58::18,18;"MILITARY";19,20;"FILE" Spa=2:i=6:2,8;:A=24010]:O:pa=0:i=7 ʏ4,12 ;:O:6,6;:O:8,6;:O:A=26157-f:10 ,6;:O:A=24072^:12 ,6;:O 0 ="4"80P ="1"244 ="2"280 ="3"274 204 ܍A=24094^:KK=4:3,2;:O:3,13 ;:O:3,16;:O:3,19;:O:3,22;:O 0:PA=0:I=7:N=19 :DM=N:D$(DM)=" "MG=1:GM=DM::7100:A=241197^:KK,2;X$;KK,13 ;:O:KK=KK+1:N:240 7:0:1700:MG=1:GM=DM::7100:KK,2;X$;KK,13 ;AA;KK,16;BB;KK,19;CC:DD=0KK,23;D$(DM)(EE+1);",";D$(DM)(E+217) KK=KK+1:N 0:80P 58: .A=24367/_:2,4;:O:0 3A=24356$_:4,6;:O:P$(8) RA=24393I_:7,3;:O:9 ,3;:O:11 ,3;:O ="1"262 ="2"268  ="3"80P  256  58: A=24468_:PA=2:I=6:2,10 ;:O:I=7:PA=0:6,8;:O:8,8;:O:" ENTER NUMBER ";S:S=0200 wS*(P$(18)(12)*1000)>P$(8)A=24334_:10 ,5;:O:0: 450  `P$(8)=(P$(8)-(S*(P$(18)(12)*1000))):P$(XZ)="1"+" "+S  :A=24514_:10 ,3;:O:80P:80P  58:  A=24431o_:PA=2:I=6:2,8;:O:PA=0:I=7:A=24481_:6,8;:O:8,8;:O:" ENTER NUMBER ";S:S=0200 WS*(P$(17)(12)*1000)>P$(8)S=P$(8):264 `P$(8)=(P$(8)-(S*(P$(17)(12)*1000))):P$(ZX)="3"+" "+S ;A=24514_:10 ,3;:O:150:80P 0:58: <PA=2:I=7:A=24136H^:1,5;:O "P$(22)>0220 ]3,2;:A=24094^:O:3,13 ;:O:3,16;:O:A=241120^:3,20;:O:0:7:PA=0:KK=4:N=19 :DM=N:D$(DM)=" "MG=1:GM=DM::7100:KK,2;X$;KK,13 ;:PA=0:I=7:A=241197^:O:KK=KK+1:N:240 7:0:1700:MG=1:GM=DM::7100:KK,2;X$;KK,13 ;AA;KK,16;BB:DD=0KK,20;D$(DM)(EE+1);",";D$(DM)(E+217) KK=KK+1:N:240 .AA=0:BB=0:CC=0:58: RA=24159_^:2,10 ;:O:3,6;:O:4,5;:O A=24215^:P$(35#)="0":P$(36$)="0":P$(39')="0":6,6;:O:P$(15);8,6;:O:P$(3):P$(40()10 ,6;:O:P$(40() ^0:0:P$(15)=0ưP$(3)=0ưP$(40()=080P w:MG=1:GM=9 :58::7000X:A=24260^:1,2;:O:2,10 ;:O:298* A=24302^:58:::MG=1:GM=DM:7100:6,3;:O:8,(X$/2)-15;X$:"TYPE OF SHIP:";X$:"HOW MANY ?";AM:X$"S"X$"C"X$"ST"285 9X$="S"ON=15:AMǰP$(15)P$(35#)=AM 7X$="C"ON=3:AMǰP$(3)P$(36$)=AM  :X$="ST"ON=40(:AMǰP$(40()P$(39')=AM !'AM>P$(ON)S=P$(8):264 "KD$(DM)=" "AA=0:BB=0:CC=0:293% #R1700:D$(DM)(EE+1)=W1ưD$(DM)(E+2)=W2DD=0293% $:A=24676d`:10 ,1;:O:80P:80P %A1712:D$(DM)=AA+" "+BB+" "+CC+" "+"0"+" "+P$(24) &058::A=256568d:7,11 ;:O '="N"1800 (8="Y"RET=1:1800:RET=0:280 ) 295' * 0 +DM=:285 ,"G=0:L=W1:C=W2:900 - 58: .70;6;1;1,13 ;"!#$%&'" 1M=1100d 2OA$(M)(1516),A$(M)(1719);7;1;"*":M 4,1;W1,W2;"+": 0:0 5="0"323C 6;l=l+(="6")-(="7"):c=c+(="8")-(="5"):="X"80P 7L<1L=13 8C<1C=30 9L>13 L=1 :C>30C=1 ;<GL1,C1;1;0;8;1;8;" " <-L,C;1;8;8;" " =G=1:L1=L:C1=C B 3084 CBA=24766`:13 ,1;:O:13 ,22;L;",";C Ed0;7;18,17;" PROCEED ";19,18;" Y-N ":=""328H FB="Y"18,18;" ";19,20;" ": G="N"13 ,1;" ":18,17;" CONTINUE ";19,18;" ":L,C;0;1;" ":329I H 326F I 3073 J 58: PZHO=2L=P$(24)(12)C=P$(24)(34)300, QP$(25)=L+" "+C RKB=5:A=24766`:4,3;:O:6,13 ;L;",";C T1K=W1:K1=W2:K2=K-L:K2<0K2=K2*-1 UK2=0346Z V+TIM=(K1-C):TIM<0TIM=TIM*-1 W$TIM=TIM+K2:TIM1B=4 Xu YA=24797`:0;7;8,4;:O:A=24808`:8,13 ;TIM;:8,15;:O:8,22;P$(23)(1B):B=5:0:349] Z)TIM=K1-C:TIM<0TIM=TIM*-1 [ 343W ] 0 ` -65186,4:65002:80P  58: ٮA=26069e:PA=4:I=0:1,3;:O:3,2;:O:3,19;:O:3,22;:O:3,25;:O:PA=0:I=7 0:7:KK=4:N=19 :DM=N:M$(N)=" "GM=DM+9 :MG=1::7100:A=26118f:KK,2;X$;KK,19;:O:KK=KK+1:N:489 ۴1750:MG=1:GM=DM+9 ::7100:KK,2;X$;KK,19;AA;KK,22;BB:CC0KK,26;M$(DM)(DD+1);",";M$(DM)(D+214) KK=KK+1:N:489 0:0:80P  58: uA=24816`:18,19;"MINING";19,19;" FILE ";2,11 ;:I=0:PA=4:O PA=0:I=7:A=24825`:4,5;:O:A=24840a:6,5;:O:A=24865!a:8,5;:O:A=248833a:10 ,5;:O  ="1"5655 ="3"470 ="2"3500 ="4"80P  520 558::A=24367/_:2,4;:O:0:A=24356$_:4,6;:O:P$(8):A=24905Ia:7,4;:O:A=24930ba:9 ,4;:O:A=24958~a:11 ,4;:O 6="1"570: 7="2"580D 8="3"500 9 5666 :58::A=24918Va:PA=4:I=0:2,10 ;:O:PA=0:I=7:A=24481_:6,8;:O:8,8;:O:" ENTER AMOUNT ";S:S=080P ;YS*(P$(19)(12)*1000)>P$(8)S=P$(8):264 =`P$(8)=(P$(8)-(S*(P$(19)(12)*1000))):P$(XY)="1"+" "+S ?:A=24514_:10 ,3;:O:80P:80P D]58::A=24943oa:PA=4:I=0:2,9 ;:O:PA=0:I=7 FkA=24481_:6,8;:O:8,8;:O:" ENTER AMOUNT ";S:S<180P HXS*(P$(20)(12)*10000')>P$(8)S=P$(8):264 JaP$(8)=(P$(8)-(S*(P$(20)(12)*10000'))):P$(YX)="4"+" "+S N9A=24514_:10 ,3;:O:0:80P l1:58::A=24981a:I=7:2,4;:O:4,4;:O:6,5;:O:8,6;:O:9 ,12 ;:O:11 ,3;:O v0:0 w="N"58::83S {F58::P$(41))="5":P$(8)=(P$(8)-450000[) 7P$(7)=(P$(7)-(P$(7)/100d)) MA=24514_:58::6,3;:O:80P:58::83S s65186,3:65002:58::A=25113b:6,4;:O:8,12 ;:O:42* D$(10 )=P$(15)+" "+P$(3)+" "+(P$(40()+1)+" 0 "+P$(24):M$(10 )=P$(16)+" "+P$(13 )+" 0 "+P$(24) vP$(21)="0":P$(6)=(P$(6)+1):P$(7)=(P$(7)+10000'):R=1:100d R:R=0:58::A=25147;b:5,4;:O:7,8;:O "100d:10 ,2;:O bP$(33!)="000000000":P$(10 )="0":P$(11 )="0":P$(26)="0":P$(27)="0" k236066\,0:236077\,60<:" "D$():" "M$():N=1500:N:"P"P$():"A"A$() _5097:58::6,3;"DO YOU WISH TO SAVE AGIAN";8,13 ;"Y OR N"  0 :="Y"710 ˌ:10 ,5;:O:0:0:""D$():""M$():""P$():"A"A$()::1;9 ,14;7;" O.K.":100d:  4000 MJP$(21)=(p$(21)+1):P$(21)12 700 N 5500| TC=0:58: =18,17;"STRATEGIC";19,18;"COMMAND" eA=26659#h:PA=3:I=7:2,6;:O:PA=0:I=7:0:7 A=24547_:4,4;:O:6,4;:O:8,4;:O:10 ,4;:O:12 ,4;:O ="5"80P H="1"HO=2:301-:330J:58::950:80P >="2"301-:330J:TC=1:950:80P ="3"1900l ="4"3800  905 TC970:58:: UA=24651K`:58::2,5;:O::MG=1:GM=9 :7000X =""952 eK=0:P$(35#)="0":P$(36$)="0":P$(37%)="0":P$(38&)="0":P$(39')="0" $<491ů>579954 ]DM=:A=24676d`:D$(DM)=" "58::7,2;:O:0: Z1700:D$(DM)(EE+1)=W1ưD$(DM)(E+217)=W2DD=0959  80P dA=24676d`:AA=0BB=0CC=058::4,2;:O:0:80P 58::M=1100d:A$(M)(1516)=LưA$(M)(1719)=C1700:7500L:Z$=D$(DM)(1D-2):D$(DM)=Z$+" "+TIM+" "+L+" "+C:Z$=A$(M)(14):A$(M)=Z$+V$+A$(M)(1519):962 M: ƒ7,4;1;7;1;"NOW ENTERING WARP DRIVE":65186,1:65002:X=175K:X: sA=24706`:58::2,1;:O::MG=1:GM=9 :0:7000X:7:7000X  0 $<491ů>579972 DM= [58::M$(DM)=" "A=24736`:7,2;:O:0:80P pA=24736`:1750:AA=0BB=0CC=058::4,2;:O:0:80P Z1750:M$(DM)(DD+1)=W1ưM$(DM)(D+214)=W2CC=0983  ׆M=1100d:A$(M)(1516)=LưA$(M)(1719)=CưA$(M)(13 13 )=0Q=1:985 M: j1750:Z$=M$(DM)(1D-3):M$(DM)=Z$+TIM+" "+L+" "+C:A$(M)(13 14)=DM+"0"  962 E=9 :B=3:d=7:CS=5:AA=D$(DM)(12):AA>9 B=B+1:CS=CS+1:E=E+1:D=D+1 NBB=D$(DM)(BB+1):BB>9 CS=CS+1:D=D+1:E=E+1 ACC=D$(DM)(CSCS+1):CC>9 D=D+1:E=E+1 2DD=D$(DM)(DD+1):DD>9 E=E+1  ?AA=AA+P$(35#):BB=BB+P$(36$):CC=CC+P$(39')  tD=7:B=3:CS=5:AA=M$(DM)(12):AA>9 B=B+1:CS=CS+1:D=D+1 ABB=M$(DM)(BB+1):BB>9 CS=CS+1:D=D+1 4CC=M$(DM)(CSCS+1):CC>9 D=D+1  *AA=AA+P$(37%):BB=BB+P$(38&)  )MM=P$(ON):MM=MM-AM:P$(ON)=MM:RET  80P m58::A=24591`:2,6;:O:A=25237b:5,7;:O:7,7;:O:11 ,2;:O n 0 o="2"TC=1:1906r p="1"TC=0:1906r q 1903o r 58: {;A=25302b:6,2;:O:8,6;:O |O0:150:301-:L=W1C=W2S=P$(8):58::264 058::A=24591`:2,6;:O: hA=25351c:6,3;:O:7,4;:O:8,6;:O:9 ,12 ;:O N=1100d EA$(N)(1516)=LưA$(N)(1719)=C1955 N =A=25424Pc:9 ,2;:O:10 ,12 ;:O 150:80P w58::A=25461uc:2,4;:O:3,5;:O:4,6;:O:6,12 ;" " 'S$="TELEPRINT FROM SECTOR "+L+","+C _M=2̱S$:6,2;S$(1M);"":0.01z# =,40(:M:1973 (JU=7:2059 :TC1971 K:DM=DA:DM0MG=1:GM=DM:7100:JU,7;DM;" ";X$ Z:DM=DB:DM0MG=1:GM=DM:JU=JU+1:7100:JU,7;DM;" ";X$ R:DM=DC:DMMG=1:GM=DM:JU=JU+1:7100:JU,7;DM;" ";X$ R:DM=DE:DMMG=1:GM=DM:JU=JU+1:7100:JU,7;DM;" ";X$ TC:DM=DF:DMG=1:GM=DM:JU=JU+1:7100:9 ,9 ;(DM-9 );" ";X$:DA=0DB=0DC=0DE=0DF=01945  P1966:DA=0DB=0DC=0DE=0DF=01945 ;A=25539c:I=5:12 ,1;:O:502 NI=7:13 ,4;:O:200:HO=1:58::301- BTIM=(A$(N)(1516)-L):TIM<0TIM=TIM*-1 8K=A$(N)(1719)-C:K<0K=K*-1  TIM=TIM+K TIM=080P %58::TCDF=01945 TC21004 9 ,0:1966 &A=25593c:2,8;:O:  0 %<491ů>5792002 DM= AK=0:P$(35#)="0":P$(38&)="0":P$(39')="0" &D$(DM)=" "80P 1700:960:Z$=A$(N)(14):X$=A$(N)(1519):A$(N)(55)=DMA$(N)(56)="00" 9A$(N)(77)=DMA$(N)(78)="00" :A$(N)(9 9 )=DMA$(N)(9 10 )="00" =A$(N)(11 11 )=DMA$(N)(11 12 )="00"  80P  LDA=0:DB=0:DC=0:DE=0:DF=0:TC2066  XA$(N)(55)0A$(N)(66)"0"DA=A$(N)(55)  XA$(N)(77)0A$(N)(88)"0"DB=A$(N)(77) ZA$(N)(9 9 )0A$(N)(10 10 )"0"DC=A$(N)(9 9 ) ^A$(N)(11 11 )0A$(N)(12 12 )"0"DE=A$(N)(11 11 ) nTCưA$(N)(13 13 )0ưA$(N)(1414)0DF=A$(N)(13 13 )+9  46A=25628d:2,2;:O:="X"80P 5 1966 6 0 7%<491ů>57921026 8"DM=:DM(DF-9 )80P : 58: ;P$(33!,DM)="1"80P >GL=W1C=W2A$(N)(13 14)=DM+"0":M=N:985:80P B 983 C-QQ=0:A$(N)(13 14)="00" D 80P AAA=0:BBB=0:AA=0:BB=0:58::A=24159_^:2,10 ;:O:3,6;:O:4,5;:O:A=26128f:7,6;:O:P$(16):9 ,6;:O:P$(13 ):250 $P$(37%)="0":P$(38&)="0" @0:P$(16)=0ưP$(13 )=080P s58::A=25607d:2,5;:O:MG=1:GM=9 ::0:7000X:7:7000X  0 %<491ů>5793510 DM= |58::A=24302^:5,3;:O::GM=DM+9 :MG=1:7100:7,(X$/2)-15;X$ )"TYPE OF SHIP: ";X$:" HOW MANY ?";AM: 9X$="C"ON=16:AMǰP$(16)P$(37%)=AM 9X$="M"ON=13 :AMǰP$(13 )P$(38&)=AM X$"M"X$"C"3525 'AM>P$(ON)S=P$(8):264 =M$(DM)=" "AA=0:BB=0:3560 4M$(DM)" "AAA=AA:BBB=BB:U=1 [1750:M$(DM)(DD+1)=W1ưM$(DM)(D+214)=W2CC=03560 9A=24334_:8,6;:O:80P:80P J1765:M$(DM)=AA+" "+BB+" 0 "+P$(24):AAA=AAA-P$(37%) 8AAA=AAA-P$(37%):AAA0AAA=P$(37%): 7BBB=BBB-P$(38&):BBB0BBB=P$(38&) ZUU=0:P$(7)=(P$(7)-((AAA*400)+(BBB*1000))):3570 9P$(7)=(P$(7)-((AA*"100")+(BB*"10000"))) 058::A=256568d:6,11 ;:O 0 ="N"1800 2RET=1:1800:RET=0:3500  58: ;A=25665Ad:6,2;:O:8,7;:O J0:150:301-:U=1:58::340T:U=0 ZM=1100d:A$(M)(1516)=LưA$(M)(1719)=C3815 M:3820 A$(M)(66)="1"A$(M)(88)="1"A$(M)(10 10 )="1"A$(M)(12 12 )="1"A$(M)(1414)="1"5000:3820 F58::A=25777d:6,2;:O:8,10 ;:O 58::80P TN=42*47/:P$(N)(12)0ZX=N:P$(ZX)="0":4003 N TN=480535:P$(N)(12)0XZ=N:P$(XZ)="0":4010 N: TN=54659;:P$(N)(12)0XY=N:P$(XY)="0":4015 N SN=60<65A:P$(N)(12)0YX=N:P$(YX)="0":801! N:801! 150:58: 2A$(M)(33)="S"Z$="SULPHURIC BASED" /A$(M)(33)="C"Z$=" AIR BASED" (A$(M,3)="N"Z$="NITROGEN BASED" 'A$(M,3)="I"Z$="IODINIC BASED" 'A$(M,3)="M"Z$="METHENE BASED" (A$(M,3)="H"Z$="HYDROGEN BASED" &A$(M,3)="O"Z$="OXYGEN BASED" zA=25821d:2,5;:O:4,3;:O:4,9 ;L;",";C:4,15;:O:4,20;TIM;4,22;:O:;6,3;:O:6,8;A$(M)(11);6,15;:O:6,23;A$(M)(22);8,3;:O:A$(M)(44);"0,000";10 ,3;:O:12 ,8;Z$ 0:58:: 0236066\,162:236077\,249: 58::A=26175?f:3,11 ;:O:A=26332f:4,3;:O:6,3;:O:8,3;:O:10 ,3;:O:A$(66B)(44)="0":100d:82R 58::A=26175?f:2,11 ;:O:A=26189Mf:4,3;:O:6,3;:O:8,3;:O:10 ,3;:O:12 ,3;:O:P$(8)=(P$(8)-"4000000"):502 0P$(7)=(P$(7)/4):82R 58::A=26175?f:2,11 ;:O:A=26437Eg:4,9 ;:O:6,4;:O:8,3;:O:10 ,12 ;:O:100d -N=42*47/:P$(N)="0":N:82R  58::A=26175?f:2,11 ;:O:A=26507g:5,3;:O:7,3;:O:9 ,3;:O:120x  82R 58::A=26175?f:2,11 ;:O:A=26584g:5,4;:O:7,4;:O:9 ,4;:O:100d:P$(40()=(P$(40()-1)  82R |65186,0:65002:p$(8)<10 Űp$(7)<100d:6,4;"THE EMPIRE IS IN RUINS...";10 ,1;"DUE TO YOUR TOTAL INCOMPETANCE";12 ,4;"YOU ARE OUT OF THE GAME": }AP$(8)>5000000ŰP$(7)Ȱ"99999998"5110 hA$(66B)(44)"0"ưP$(10 )>15000:ưa$(66B,13 )>15100 PP$(15)>20ŰP$(3)>20ƺ(*10 )=05120 MP$(15)<2ưP$(3)<1ƺ(*8)=05130  8P$(40()>1ƺ(*3)=05140  82R pU=0:10 ,8;2;6;1;" NOW LOAD DATA ":9 ,10 :""D$():""M$():""P$():""A$():9997 ':P$(1)=0568 q 60< rDM=10 :1700:P$(15)=AA:P$(3)=BB:P$(40()=(CC-1):P$(41))=" "6005u swP$(41))=(P$(41))-1):P$(41))=0P$(40()=(P$(40()+1):P$(22)="1" tDM=10 :1750:P$(16)=AA:P$(13 )=BB:P$(26)=P$(10 ):N=19 :DM=N:D$(N)=" "N:6007w u=1700:AA=0BB=0CC=0N:6007w vMP$(11 )=(P$(11 )+(AA*502)+(BB*75K)+(CC*200)):N wP$(11 )=(P$(11 )-P$(26)):P$(27)=P$(10 ):N=19 :DM=N:M$(N)=" "N:6010z x21750:AA=0BB=0N:6010z y?P$(10 )=(P$(10 )+(AA*20)+(BB*150)):N zP$(10 )=(P$(10 )-P$(27)):P$(8)=(P$(8)+P$(14)+P$(9 )):P$(8)=(P$(8)-(P$(10 )+P$(11 ))):N=19 :DM=N:D$(N)=" "N:6020 {'1700:DD=0N:6020 |1700:DD=DD-1:D$(N)(DD+1)=DD:DD0ưD$(N)(EE+1)=W1ưD$(N)(E+217)=W26250j:N:6020 ~DD=062008:AQ=M:6300:M=AQ:l=D$(dm)(ee+1):c=D$(dm)(e+2):u=1:340T:u=0:5000 N @N=19 :DM=N:M$(N)=" "N:6056 '1750:CC=0N:6056 1750:CC=CC-1:M$(N)(CSCS+1)=CC:CC=0P$(33!,DM)="1":M$(N)(DD+1)=W1ưM$(N)(D+214)=W26112:6041 ,CC=0M=1100d:A$(M)(13 13 )=DMA$(M)(1414)="1":6301:l=M$(dm)(dd+1):c=M$(dm)(d+2):u=1:340T:u=0:5000:a$(m,3)"O"p$(10 )=(p$(10 )+10000'):P$(8)=(P$(8)-10000') cc06055 M N <N=42*47/:P$(N,1)=0N:6061 P$(N)(11)=(P$(N)(11)-1)+" "+P$(N)(3):P$(N)(12)0P$(3)=(P$(N)(3)+P$(3)):P$(N)="0" N <N=480535:P$(N,1)=0N:6067 P$(N)(12)=(P$(N)(11)-1)+" "+P$(N)(3):P$(N)(11)0P$(15)=(P$(N)(3)+P$(15)):P$(N)="0" N <N=54659;:P$(N,1)=0N:6080 P$(N)(11)=(P$(N)(11)-1)+" "+P$(N)(3):P$(N)(12)0P$(16)=(P$(N)(3)+P$(16)):P$(N)="0" N <N=60<65A:P$(N,1)=0N:6100 ­P$(N)(11)=(P$(N)(11)-1)+" "+P$(N)(3):P$(N)(11)0P$(13 )=(P$(N)(3)+P$(13 )):P$(N)="0" N 58::79O 1750:MG=1:GM=DM+9 ::7100:58::A=25926Fe:3,(X$/2)-15;X$:5,9 ;:O:7,12 ;:O:9 ,7;:O:11 ,9 ;:O  0 ="N"58::6130  58: 1750:6150:P$(16)=(P$(16)+AA):P$(13 )=(P$(13 )+BB):M$(DM)="":P$(7)=((BB*10000')+(100d*AA)+(P$(7))): 1750:6150: 1750:M=1100d:A$(M)(13 13 )=DMaa>0bb>0(AA*"10000")>((BB-1)+A$(M)(44))*"10000"P$(8)=(P$(8)+((BB-1)+A$(M)(44))*"10000"):6156  kA$(M)(13 13 )=DMAA>0BB>0P$(8)=(P$(8)+(AA*"10000")):6156   a$(m,13 )=dm6156   M:  a$(m,13 )="0": 8OM=1100d:A$(M)(55)=DMA$(M)(66)="1": =:A$(M)(77)=DMA$(M)(88)="1": B<A$(M)(9 9 )=DMA$(M)(10 10 )="1": G>A$(M)(11 11 )=DMA$(M)(12 12 )="1": LM: j 1700 t58::MG=1:GM=DM::7100:A=25977ye:3,(X$/2)-15;X$;5,9 ;:O:5,13 ;:O:7,12 ;:O:9 ,8;:O:11 ,8;:O y=""6265y ~="N"58:: dP$(15)=(P$(15)+AA):P$(3)=(P$(3)+BB):P$(40()=(P$(40()+CC) d$(dm)="":58:: T1700:MG=1:GM=DM::7100:58::65186,2:65002:A=26038e:2,7;"ROBOZON ";X$:4,10 ;:O:6,13 ;"HIS":8,5;:O:10 ,13 ;D$(DM)(EE+1);",";D$(DM)(E+217):A=266797h:42*:12 ,4;:O:42*: O1750:MG=1:GM=DM+9 ::7100:58::65186,2:65002:A=26038e:2,(X$/2)-15;X$;4,10 ;:O:6,13 ;"ITS";8,5;:O:10 ,13 ;M$(DM)(DD+1);",";M$(DM)(D+214):42*:12 ,3;:O:42*: X>G=4:M=MGGM:X$:G,10 ;M;" ";X$:G=G+1:M ]S"X.59","BOZO 16","ZEON.4","RISEK","GLISTN","ROBO.11","DROL.6","TALOS.4","TTZEP.2" b`"UNIT 75","ADMIN.4","UNIT 19Z","XHOSA.9","ADMIN.76","ZXAAT.0","UNIT.45X","TAXFR.K3","ROBOY.8S" c F=MGGM:X$:F: LQ$=A$(M)(13 14) MN$=A$(M)(9 10 ) NO$=A$(M)(56) OU$=A$(M)(78) PT$=A$(M)(11 12 ) Q`I=O$(11):J=U$(11):T=T$(11):K=N$(11) VEJ0TDMIDMKDMJ=DM:U$(22)="0":7520` WEI0JDMTDMKDMI=DM:O$(22)="0":7520` XEK0JDMIDMTDMK=DM:N$(22)="0":7520` YET0IDMJDMKDMT=DM:T$(22)="0":7520` [*JDMKDMIDMTDM:502:80P `lH$=I+O$(22):U$=J+U$(22):T$=T+T$(22):N$=K+N$(22) eV$=H$+U$+T$+N$+Q$: ' MG="1":W1=P$(24)(12):W2=P$(24)(3):PA="0":I="7":RET="0":Q="0":O="37":R="0":FL="0":P$(40()="0":LS="2":HO="2":B="5":P="1":ZX="42":XZ="48":XY="54":YX="59": STHIS PROGRAM IS NOT AN ORIGINAL! GET LOST OR BUY YOURSELF A BETTER COPIER!:HI BOB.HI NIGEL.HI JOHN.HI MUM. CAN I HAVE SAUSAGES FOR TEA?!@#*z:64162:"":0:"":s$="THIS PROGRAM IS NOT AN ORIGINAL! GET LOST OR BUY YOURSELF A BETTER COPIER!:HI BOB.HI NIGEL.HI JOHN.HI MUM. CAN I HAVE SAUSAGES FOR TEA?!@#*":Z=65368X:23613=\,0:23614>\,0:23672x\,0:23673y\,0:23674z\,0:"OUCH!"16384@,(65535-16384@):535 OUCH! @@M3 Wq MQ ?v>MVHM(>kP P P P33MMmZlZL8Wq !v>͎ _3 (>k `< !@#{ COPYRIGHT E.A.Loigorri 1984. Hi BOB! Hi NIGEL! Hi JOHN! Dedicated to Ajay:Dinham:StreetaBBBBB<Loygycode2:22+>G^_e -[/xdZd CHARSET 4 H JwEWUu((GEGEuwRBRr\TPT\EmUEETPP\ ~ | @ <<  >|||~d8>`  ~BZ~~~?  >o>? ?@I$ ~H$HÁå@@ګ":]PP\HJMH\@ $(0(D @6*""A !"", "* <i