%* GALACTIC EMPIRE!0:J BY PAUL KELLAMP:s 105 TUTELA HEIGHTS ROADy: BRANTFORD, ONTARIO CANADA N3T 1A4 : STANDING ORDERS ADDED BY : DAVID CAMPBELL - SALEM OREGON 1985:B C128 80 COLUMN CONVERSION DONE BYH:r BOB DODSON - SALEM OREGON 3/87x: 6,15S54272: AS S24: A,0::V53248: V21,0 WL$(40),WL%(40),LF%(10),HF%(10),O$(20)  A1 20:WL$(A)(64A):WL%(A)A:9 A21 40:WL$(A)(172A):WL%(A)44A:Z A0 10: PC%(A),PC$(A):g(8)"" A0 10: LF%(A),HF%(A):O$(0)"": A 1 20: O$(A)O$(A1)"":DS(A)((WX%(P)WX%(A))2(WY%(P)WY%(A))2)D1$PC$(0)""1D2$D1$"":D3$D2$""C PN$(0)"E !"M! 372r" $$$ $$$# $$$ SOUNDS $$$$ $$$ $$$% *** *** & *** ATTACKER'S FIRE ***+ ' *** ***] ( S5, 9: S6,20 : S24,15: S1,3 : S,200 ) S4,33: TM1 1 :: S4,0 * + *** *** , *** DEFENDER'S FIRE *** - *** ***(!. S5, 9: S6,20 : S24,10: S1,10: S,200=!/ S2,16: S3,4a!0 S4,33: TM1 1 :: S4,0g!1!2 *** ***!3 *** EXPLOSION OF HIT ***!4 *** ***"5 S5,9: S6,0: S24,10: S1,40: S,200*"6 S4,129: TM1 1 :: S4,00"7U"8 *** ***z"9 *** INPUT MISTAKE ***": *** ***"; S5,41: S6,249: S24,10: S1,15: S,200"< NT1 2#= LP1 40 2: S4,33:S4,32$#> LP21 S1,15LP: 644#? S1,55LPL#@: S1,20::S4,0R#Aw#B *** ***#C *** BATTLE STATIONS ***#D *** ***#E S5,41: S6,249: S24,12: S1,20: S,200$F NT1 4$G LP1 40: S4,33+$H S1,20LPD$I: S1,20:: S4,0J$Jo$K *** ***$L *** TELETYPE (1 PING) ***$M *** ***$N S5,21: S6,0: S24,15: S1,7 : S,50%O S12,21: S13,0: S8,100: S7,50'%P S2,0: S3,15`%Q S4,65: S11,129: TM1 1 :: S4,0: S11,0:%R *** ***%S *** WORLD CHARACTER INPUT ***%T *** ***%U IN$&V IN$"?" IN$(13) IN$"*" .&W (IN$)64 (IN$)85 U(IN$)64:]&X (IN$)192 (IN$)213 U(IN$)172:h&YU1:&Z *** ***&[ *** NUMERICAL INPUT ***&\ *** ***&]U0&^ IN$: IN$"" 94'_ IN$"?" IN$(13) M'` (IN$)47 (IN$)58 U10U(IN$)48:V1: 94X'aU1:}'b *** ***'c *** PLAYER'S INPUT ***'d *** ***'eW1'f WC%(W)P 106'gWW1: WWN 1022(hD1$"DMIRAL "PC$(P)PN$(P)D2$"CONTROLS NO WORLDS"S(i 56: TM1 1 :: 572:(jD1$"DMIRAL "PC$(P)PN$(P)PC$(0)":"D2$"RIGIN OF FLEET ?"(k 82(l IN$"?" 307: 98(m IN$"*" 221: 98(n IN$(13) 572:(o U0 118)p WC%(U)P 114<)qD3$"HAT'S NOT YOURS!": 56: 572: 106])rWRU:D2$"ESTINATION ? "f)s 82)t IN$"?" 307: 98)u IN$(13) 572: 106)v U0 D3$"NVALID NSWER!": 56: 572: 106)wWDU:V0:D2$"# OF SHIPS ? ")x 90*y IN$"?" 307: 98'*z U0 118N*{ V0 IN$(13) UWS%(WR): 126^*| U0 118*} UWS%(WR) D3$"OT ENOUGH THERE!": 56: 572: 106*~ 572:FMU: 129* F100 106** *** ***+ *** TRANSFER SHIPS FROM ***6+ *** WORLD TO FLEET ***[+ *** ***c+F1y+ FC%(F)0 137+WS%(WR)WS%(WR)FM:FC%(F)P:FD%(F)WD:FS%(F)FM+ZP:PWR:FT%(F)T(DS(WD).99)3:PZ:+FF1: F100 1344,D1$"ORKER'S STRIKE"D2$"HALTS ALL FLEET"D3$"LAUNCHES !": 56I, 572:P%(0)PN:n, *** ***, *** ARRIVAL OF FLEET ***, *** ***,WFD%(F):DEWS%(W):AKFS%(F),5,PC%(WC%(W)), I1 75- 1,WX%(W),WY%(W),"*",16- 1,WX%(W),WY%(W),WL$(W),0<-V- FC%(F)WC%(W) 175{- *** ***- *** ATTACK ***- *** ***-D1$;"TTACK ON WORLD ";WL$(W);"!"*.D2$;:CC$"EFENDER:": 200:PC$(WC%(W));:CC$PN$(WC%(W))4. 200r.D3$;:CC$"TTACKER:": 200:PC$(FC%(F));:CC$PN$(FC%(F)). 200: 66.D2$"S: ";:W2W: 571:" ".D3$"S: ";:W20:WS%(W2)AK: 571:" ". DE0 193: 174/I0:X1: DEFENDER FIRES6/II1:XX1: X20 43:X1X/ (0)G1AK(AKDE)G2 165/ 50:AKAK1:D3$"";:W20:WS%(0)AK: 571/ AK0 196: 174/ IDE 162/I0:X1: ATTACKER FIRES/II1:XX1: X20 37:X10 (0)G1DE(AKDE)G2 171U0 50:DEDE1:D2$"";:W20:WS%(0)DE: 571n0 DE0 185: 1740 IAK 1680 1610FC%(F)0: 572:0 *** ***0 *** REINFORCEMENTS *** 1 *** ***B1D1$;:CC$"ORLD "WL$(W)":": CC$: GOSUB 5900{1CC$((AK),2)" REINFORCEMENT": AK1 CC$CC$"S"1D2$;: CC$: GOSUB 59001CC$"HAVE ": AK1 CC$"HAS "1D3$;CC$;:CC$"ARRIVED": 2002WS%(W)DEAK:W2W:O$(W20(W21))4510(W21));: 571&2 174K2 *** ***p2 *** OUTCOME MESSAGES ***2 *** ***2 5722D1$;:CC$"HE ATTACKERS WON!": 2003WC%(W)FC%(F):WS%(W)AK: 5,PC%(WC%(W)): 1,WX%(W),WY%(W),WL$(W):K3O$(W20(W21))4110(W21))PC$(WC%(W))WL$(W)PC$(0);\3W2W: 570:f3 5723D1$;:CC$"HE ATTACKERS WON": 200:D2$;3CC$"WITHOUT A FIGHT !": 200: 1903 572 4D1$;:CC$"HE DEFENDERS": 200:D2$;:CC$"SURVIVED THE": 200E4D3$;:CC$"ATTACK!": 200:WS%(W)DE: WC%(W)0 191K4p4 *** ***4 *** TAP OUT MESSAGE ***4 *** ***4 LP1 (CC$)4(CC$,LP,1);: 754:5 *** ***75 *** BUILD SHIPS ***\5 *** ***l5 W21 WN5 AB0 WC%(W2)0 2135WS%(W2)WS%(W2)WI%(W2)5WC%(W2)0O$(W220(W221))4510(W221))PC$(0);:5715 W2:6 *** ***96 *** MOVE FLEETS ***^6 *** ***n6 F1 1006 FC%(F)0 2206 FT%(F)T 1406 F:6 *** ***6 ***'STANDING ORDER'OPTIONS ***7 *** ***B7PC$(3)" ' Ǡ ' OPTIONS"i7" "7PC$(1)"  ACGMR"7PC$(0)6)"- DD 'TANDING RDERS' "7PC$(0)6)"- ANCEL ALL 'TANDING RDERS' "86)"- O BACK TO PLAYING THE GAME"@86)"- ODIFY ONE 'TANDING RDER' "k86)"- EVIEW ALL 'TANDING RDERS' "8PC$(3)" HICH OPTION DO YOU WANT ?"8SCP: IN$8 IN$"A" 252:2218 IN$"C" 285: 2338 IN$"G" 551:9 IN$"M" 263: 22139 IN$"R" 241: 221M9 IN$(13) 551:\9 56: 2219PC3$"RDER # ROM O # OF SHIPS"9I1 20:S1$"@":S2$"@"9 SO(P,I,1)21 S1$(SO(P,I,1)64): 245: SO(P,I,1)20 S1$(SO(P,I,1)76)5: SO(P,I,2)21 S2$(SO(P,I,2)64): 247^: SO(P,I,2)20 S2$(SO(P,I,2)76)~: S1$"@" S1$" ":S2$" ": I,S1$,S2$,SO(P,I,3): I: "RESS ANY KEY TO CONTINUE": IN$:IN$"" : 250:551;572:D1$"DMIRAL "PC$(P)PN$(P)PC$(0)":"E;U0: X1 20: SO(P,X,3)0 X: 256N;257~;D2$;:CC$"20 TANDING RDERS": 56: 200:;S3$(X48): X9 IX10:S3$"1"(I48): X20 S3$"20";D2$;:CC$"#"S3$" TANDING RDER": 200< I13:SO(P,X,I)0: I: 572#< 289: U0 N<SO(P,X,1)SR:SO(P,X,2)SD:SO(P,X,3)SNk<SR0:SD0:U0:SN0: 253t<551<572:D1$"DMIRAL "PC$(P)PN$(P)PC$(0)":"< D2$;"TANDING RDER #?":X0<  90: U0 264<  U0 572:= XU: X20 270(= D3$"NVALID ANSWER!": 56: 264D= I13:SO(P,X,I)0: I]= 289: X1 264=SO(P,X,1)SR:SO(P,X,2)SD:SO(P,X,3)SN=SR0:SD0:U0:SN0: 264= EXECUTE SUBROUTINE=I1 20:S3$"": SO(P,I,1)0 283>WRSO(P,I,1):WDSO(P,I,2):FMSO(P,I,3)9> WS%(WR)FM WC%(WR)P 282f>572:D1$"DMIRAL "PC$(P)PN$(P)PC$(0)":">S3$(I48): I9 XI10:S3$"1"(X48)> I20 S3$"20">D2$;:CC$"AD RDER #"S3$: 200 : 283> 129> I> ? CANCEL ALL S. O.'S? X1 205? I13:SO(P,X,I)0: Il?  X: "LL TANDING RDERS RASED! ": 75: 75:?!D1$"DMIRAL "PC$(P)PN$(P)PC$(0)":"D2$"RIGIN OF FLEET ?"?" 82?# IN$(13) 572:U1: @$U0D3$"NVALID NSWER!":56:572:SR0:SD0:289@% WC%(U)P 295K@&D3$"HAT'S NOT YOURS!": 56: 572: 289l@'SRU:D2$"ESTINATION ? "u@( 82@) IN$(13) U1:@*SDU:V0:D2$"# OF SHIPS ? "@+ 90@, U0 292@- V0 IN$(13) UWI%(SR): 304'A.UWS%(SR)D3$"OT ENOUGH THERE!": 56: 572: 2897A/ U0 292FA0 572:SNULA1WA2U1:|A3 *** ***A4 *** HELP & UTILITY OPTIONS ***A5 *** ***A6PC$(3)" ELP / TILITY OPTIONS"B7" "CB8PC$(1)"  CEGQR"lB9PC$(0)6)"- HANGE THE # OF TURNS"B:6)"- ND THE GAME (FOR EVERYONE)"B;6)"- O BACK TO PLAYING THE GAME"B<6)"- UIT THE GAME (1 PERSON)" C=6)"- EVIEW THE INSTRUCTIONS":C>PC$(3)" HICH OPTION DO YOU WANT ?"EC? IN$]C@ IN$"E" 335:yCA IN$"R" 450: 307CB IN$"Q" 327CC IN$"G" 551:CD IN$"C" 328: 307CE IN$(13) 551:CF 56: 307 DG 335::OVED BAD CODE!!)DHPC$(0)"T IS NOW YEAR"T`DI"HERE WERE TO HAVE BEEN"TN" YEARS IN":"TOTAL."DJPC$(3)"OW MANY YEARS DO YOU WANT NOW"DK"("((T1),2)"-100) 99";: TTDL TTT1 TT100 56: 328DMTNTT:DNEO *** ***5EP *** END OF GAME ***YEQ *** ***|ERPC$(3)" INAL STATISTICS :"ES" "ETPC$(0)"DMIRAL NDUSTRY # OF ORLDS # OF HIPS"EU" "FVN0:N20:P1 PN:U0:S0:V0UFW W1 WN: WC%(W)P UU1:SSWS%(W):VVWI%(W)]FX WFY F1 100: FC%(F)P SSFS%(F)FZ FF[PC$(P);PN$(P);10);PC$(0);V;20);U;30);SF\ UN NU:N20F] UN N2N21F^ PF_ PN1 3698G`N30:"";: N21 PC$(3)"HERE IS A"N2"-WAY TIE!"pGaPC$(0)"ONGRATULATIONS TO DMIRAL";: N21 "S";Gb P1 PN:U0Gc W1 WN: WC%(W)P UU1GdWGeUN28)PC$(P)PN$(P);:N3N31:N31 24)PC$(0)"AND";Gf UN Hg PHhPC$(3)"VIEW MAP (Y/N) ?"*Hi IN$@Hj IN$"Y" 551\Hk IN$"N" 56: 360HlPC$(3)"NOTHER GAME (Y/N) ?"Hm IN$Hn IN$"Y" ""::Ho IN$"N" 56: 365Hp"OOD-BYE !"(9):Iq UWN "ONGRATULATIONS! OU HAVE SUCCEEDED!": 360MIr"'M GLAD YOU LOST...YOU DESERVED IT!": 360SIswIt *** ***Iu *** MAIN PROGRAM ***Iv *** ***Iw 409Ix 439Jy(14)PC$(3)"O YOU WANT TO SEE THE RULES (Y/N) ?"Jz IN$-J{ IN$"Y" 382AJ| IN$"N" 383PJ} 56: 378ZJ~ 450dJ 516nJ 538J 577: 588: 592JT0: 551:JD1$"OULD YOU LIKE A"JD2$"DIFFERENT MAP ?"J IN$K IN$"Y" 572:D1$"LEASE WAIT...": 384K IN$"N" 56: 389)K 572MK *** ***qK *** BEGINNING OF GAME ***K *** ***KT0K P0 PN:P%(P)0:KP(PN(0)1): P%(P)1 398KP%(P)1:P%(0)P%(0)1L 98: 274L P%(0)PN 398(L GOSUB 8500]LTT1:D3$""T"": 206gL 214L W1 WN:W2%(W)WS%(W):L TTN 397L 335LL *** ***L *** INTRODUCTION ***M *** ***MM(142)PC$(0)" WELCOME TO THE GAME OF"MPC$(9)17)"         "M17)"           "M17)"         "%N17)"            "bN17)"           "N17)"   ߒ      "N17)"           "N17)"        ")O17)"        "[O17)"        "OPC$(2)" ORIGINAL PROGRAM BY PAUL KELLAM"OPC$(2)" STANDING ORDERS MODIFICATION BY DAVE CAMPBELL 2/856PPC$(2)" C-128 80 COLUMN CONVERSION BY BOB DODSON 3/87MP S12,96: S13,0qP S5,9: S6,0: S24,15: 614PV53248:V16,0:V23,0:V29,0:V39,11:V40,11:V41,12:V42,12PV21,15:2040,11:2041,13:2042,14:2043,15QX1:X223: X10 320:XX1:X2X21-QY15070(X1115)MQV,X:V4,X:V2,X2:V6,X2mQV1,Y:V5,Y:V3,Y:V7,YQ X2255 X21:V16,10Q X1255 V16,15:X1Q TIT 614Q:V21,0: S4,0QQ *** *** R *** INITIALIZE VARIABLES ***DR *** ***YRP1:G1.8:G2.03}R *** ***R *** DIMENSION ARRAYS ***R *** ***R WS%(40),WC%(40),WX%(40),WY%(40),WI%(40),W2%(40),S FS%(100),FD%(100),FC%(100),FT%(100),P%(20)>S SO(10,20,4)DShS *** ***S *** INSTRUCTIONS ***S *** ***S""14)PC$(1)"NSTRUCTIONS"S14)""TPC$(3)"HE OBJECT OF THIS GAME IS TO CONTROL"NT"MORE PLANETS BY THE END OF THE GAME THAN"}T"ANY OF YOUR OPPONENTS. O DO THIS, YOU"T"SEND OUT FLEETS OF SHIPS TO OTHER STARS"T"(EACH OF WHICH HAS 1 HABITABLE, AND"U"PERHAPS OCCUPIED, PLANET). OUR HOME"6U"WORLD HAS AN INDUSTRIAL CAPACITY OF 10"eU"SHIPS PER YEAR. HE WORLDS YOU ATTACK"U"MAY HAVE INDUSTRIAL CAPACITY AND SHIPS"U"ON DEFENSE."UPC$(0)" RESS ANY KEY TO CONTINUE."UA$ V"";9);PC$(1)"NSTRUCTIONS ONTINUED".V9);""bVPC$(3)"RDERS FOR LAUNCHING FLEETS REQUIRE 3"{V"PIECES OF DATA :"VPC$(0)" 1. LANET OF ORIGIN (BY CODE)"V" 2. ESTINATION"V" 3. # OF SHIPS IN FLEET"WPC$(3)"OUR FLEET ORDERS WILL BE INVISIBLE AS"EW"YOU ENTER THEM TO PROTECT YOUR SECRECY."W"RESS "PC$(1)"ETURN"PC$(3)" WHEN YOU ARE FINISHED"W"ENTERING ORDERS. OR HELP, TYPE A '?'."WPC$(0)" RESS ANY KEY TO CONTINUE."WA$X"";9);PC$(1)"NSTRUCTIONS ONTINUED"6X9);""kXPC$(3)"LEETS TRAVEL AT A SPEED OF 3 PER YEAR"X"(1 TURN=1 YEAR) AFTER ONE ACCELERATION"X"YEAR IN WHICH THEY MOVE ONLY 2."X"EPARATE FLEETS ATTACK SEPARATELY, EVEN""Y"IF THEY ARRIVE AT THE SAME WORLD IN THE"LY"SAME YEAR. NCE A FLEET HAS BEEN"|Y"LAUNCHED, ITS ORDERS CANNOT BE CHANGED."Y"LAYERS WILL MOVE IN A RANDOM ORDER EACH"Y"TURN."YPC$(0)" RESS ANY KEY TO CONTINUE."YA$Z"";9);PC$(1)"NSTRUCTIONS ONTINUED"@Z9);""vZPC$(3)"TANDING RDERS ARE SELECTED BY THE '*'"Z"KEY. LEET ORIGIN, DEST. AND # OF SHIPS"Z" CAN BE DDED, ANCELED, ODIFIED, OR "["EVIEWED AS NEEDED. RDERS ONCE ENTERED"5["WILL OPERATE UNTIL ANCELED. UILD YOUR"f["FLEET FROM NEARBY WORLDS WITHOUT TYPING!"["'AD ORDERS' (NOT ENOUGH SHIPS) WON'T"[" LAUNCH. 'ETURN' GOES BACK TO MENU."[" T IS POSSIBLE TO SPY AFTER YOUR TURN!" \PC$(0)" RESS ANY KEY TO CONTINUE.")\A$U\"";9);PC$(1)"NSTRUCTIONS ONTINUED"w\9);""\PC$(3)"O PLAY SOLITAIRE, MAKE THE NUMBER OF"\"YEARS EQUAL TO THE NUMBER OF WORLDS."]"O WIN, YOU MUST CONTROL ALL PLANETS BY"%]"THE END OF THE GAME."V]" "PC$(2)"OOD UCK !"]PC$(0)" RESS ANY KEY TO CONTINUE."]A$]] *** ***] *** PLAYER INPUT (SETUP) ***^ *** ***8^PC$(3)(14):"OW MANY PLAYERS (1-10) 2";PNX^ PN1 PN10 56: 519e^ PN(PN)t^  A1 PN^ "LAYER #";A;"IS HO";: PN$(A)^  (PN$(A))9 PN$(A)(PN$(A),9)^  A^MN5: PN5 MNPN_"OW MANY WORLDS ("MN"-40) 10";: WN=_ WNMN WN40 56: 527J_WN(WN)_"OW MANY YEARS IN THE GAME (1-100) 1";: TNN_ TN1 TN100 56: 530_"O YOU WANT THE NEUTRAL WORLDS TO BUILD"_"DEFENSIVE SHIPS (Y/N) ?"$` IN$: IN$"Y" IN$"N" 56: 534>`AB0: IN$"Y" AB1W`"LEASE WAIT..."]`` *** ***` *** GENERATE STARS ***` *** ***`WX%(1)((0)40)`WY%(1)((0)20)a W2 WNa WX%(W) ((0)40)2a!WY%(W)((0)20):a"I1da# WX%(W)WX%(I) WY%(W)WY%(I) 544za$II1: IW 547a%a&a' *** ***a( *** SCREEN DISPLAY ***a) *** ***Db*(14);PC$(0);""b+A118:"۳ ":b," "c-" "^c." "c/" "c0" EAR :"Tc1"";d241)" R HP R HP"d3 W21 WNd4-d55,PC%(WC%(W2))Md6 1,WX%(W2),WY%(W2),WL$(W2)d7O$(W220(W221))4110(W221))PC$(WC%(W2))WL$(W2)"";d8 WC%(W2)0 570d9:d:S$((WI%(W2)),2):S$(" ",3(S$))S$:PC$(0);S$;e;S$((WS%(W2)),2):S$(" ",4(S$))S$:S$;:?e< *** ***ce= *** CLEAR BOX ***e> *** ***e?D1$" "D2$" "D3$" "e@eA *** ***#fB *** WORLD INDUSTRY SETUP ***GfC *** ***bfD P1 PN:WI%(P)10:rfE PNWN fF WPN1 WNfG (0).25 586fHWI%(W)WI%(W)1fI (0).67 584fJ WfKfL *** ***gM *** WORLD CONTROL SETUP ***