"":"":%* 53281,0:53280,11=2 SET UP SOUNDx354296,15:WI54276:AI54277:HI54273:LI54272:VI54296d 20010 ***SOUNDSL **ATTACKERS FIREVX51342:HI,X:WI,33:AI,10:LI,200:jWI,32:AI1,15  **DEFENDERS FIRE8X40232:HI,X:WI,33:AI,10:LI,200:CWI,32I[ **EXPLOSIONX150.5:VI,X:WI,129:AI,15:HI,36:LI,85:2WI,128:VI,15:AI1,0wx **SUBSPACE COMMUNICATION&:X135 WI,33:AI,11:HI,((X)70):LI,200:WI,32%:6 **OK INPUT/PROMPTiWI,17:AI,5:AI1,0:HI,40:LI,200:X1220:tWI,16z?@ **ILLEGAL INPUT/MISTAKEJWI,33:AI,15^X5052:HI,15:LI,X:hX10052:HI,12:LI,X::WI,32q r **WHISTLING BOMB|H}X7249.19:VI,15:WI,33:AI,15:HI,X:LI,200:YWI,32:AI,0d 1810j **BATTLE STATIONSX116X3451:HI,X:WI,33:AI,15:LI,200:WI,32:AI,0 **TELETYPE X15141:VI,X:WI,129:AI,15:HI,40:LI,200:6 WI,128:AI,0:VI,15< S  **LONG EXPLOSION WI,129:AI,15:HI,15:LI,200:1890:X1600: &WI,128:AI,0 a b**SHAKE SCREEN cZ15:J015:53270,J:::53270,8: k l *INPUT REQUEST2!v"PRESS RETURN TO CONTINUE";K!w IN$: IN$"" 1911Q!d! **WORLD TONE!X15141:VI,X:WI,033:AI,15:HI,34:LI,075:!X15141:VI,X:WI,033:AI,15:HI,34:LI,075:!WI,32:AI,0:VI,15!" **CHARACTER INPUT"V0: 1510" IN$1" IN$""2020L" IN$"H" V10:2999a" IN$(13)2999" (IN$)48(IN$)57V1:2999" VV10(IN$):2020" " ***PLAYERS INPUT" " **CONTROL TEST" W1" WC%(W)P3100# WW1: WWN3040(# P$;P;" CONTROLS NO WORLDS."9# 1910:3999N# **INPUT ORDERSh# P$;P;" FROM WORLD:";#& 2010: CHARACTER INPUT#0 V10 9010:3010#: V03999#D V0VWN3170#N WC%(V)P3180#X :"YOU DON'T CONTROL THAT WORLD." $b 1610::3100$$l WRV:" TO WORLD:";A$v 2010: CHARACTER INPUT\$ :V10 9010:3010o$ V1VWN3170$ WDV: "NUMBER OF SHIPS:";$ 2010: CHARACTER INPUT$ :V10 9010:3010$ V1 3170% VWS%(WR)"YOU DON'T HAVE THAT MANY SHIPS THERE.": 3170% FMV;% 4010: SHIPS TO FLEETL% F50 3100R%|% TRANSFER SHIPS FROM WORLD TO FLEET%F1%FC%(F)04030%WS%(WR)WS%(WR) FM:FC%(F)P:FD%(F)WD:FS%(F)FM&FT%(F)T(((WX%(WR)WX%(WD))2(WY%(WR)WY%(WD))2).99)3:4999)&FF1:F504015y&"GALAXY-WIDE WORKERS' STRIKE HALTS ALL INTERSTELLAR FLEET CONSTRUCTION."&P%(0)PN&: 1400 :1910&& **COMBAT&WFD%(F):DEWS%(W):AKFS%(F)&(147):9);"SUBSPACE COMMUNICATION": '16)"WORLD ";W:"": 1410::' WC%(W)FC%(F)5040u'""P$;WC%(W);:" HAS REINFORCED HIS":"WORLD WITH ";'"";AK;"";" SHIPS.":WS%(W)AKDE:5300'"";AK;" SHIPS";"":"UNDER THE COMMAND OF":""P$;FC%(F);("":: "ARE RAPIDLY APPROACHING THE PLANET.":"( 1710p("";DE;" SHIPS UNDER THE COMMAND OF":""P$;WC%(W);:"ARE AVAILABLE ";("FOR DEFENSE.":( DE05080(DE05080("ATTACKER WINS WITHOUT A FIGHT.":WS%(W)AK:WC%(W)FC%(F):5300)"DEFENDER FIRES. HITS:";:I0!)II1: 1210B) (P)G1AK(AKDE)G25130Z)"*";:1310:AKAK1j)AK05130)AK0::"DEFENDERS FIGHT OFF THE AGRESSORS.")AK0""DE;" SHIPS LEFT.":WS%(W)DE:5300) IDE5090) *P"ATTACKER FIRES. HITS:";:I0*ZII1:11109*d(P)G1DE(AKDE)G25250R*n"";: 1310:DEDE1*xDE0::"ATTACKERS ARE VICTORIOUS":"";AK;:" SHIPS LEFT."*yDE0WS%(W)AK:WC%(W)FC%(F):5300*IAK5210*:5080*FC%(F)0:* 1910*o+p ***BUILD SHIPS+zW1WN5+AB0WC%(W)06040N+WS%(W)WS%(W)WI%(W)U+W[+W+X ***MOVE FLEETS/CONDUCT COMBAT+bF150+lFC%(F)07040+vFT%(F)T5010: COMBAT+F+?+@ ***WORLD DATA DISPLAY,J(147):"RESULTS FOR YEAR ";TG,T"WRLD CONT PROD SHPS WRLD CONT PROD SHPS"^,^ W(WN21.5)WN~,h32);W;39);WC%(W);: 1960,rWC%(W)045);WI%(W);: 8200: 51);W2%(W);,|:W,"" :W1(WN2.5),W;8);WC%(W);: 1960-WC%(W)014);WI%(W);20);W2%(W);!-: W0- 34,(37)6- L- W2%(W)100P35c- W2%(W)100P34i- v-(# **HELP-2#(147)-<# "G=GO BACKTO REGULAR TURN"-F#:"S=STARMAP"-P#:"L=STAR LOCATION CHART"-Z#:"R=RULES".d#:"Q=QUIT (YOU DROP OUT OF THE GAME)"9.n#:"E=END THE GAME (FOR EVERYBODY)"k.x#:"C=CHANGE THE NUMBER OF TURNS IN THE GAME".#::"WHICH DO YOU WANT?".#IN$:IN$""9201.#IN$"G"TT1:8010:TT1:9401.$IN$"S"30010:9400.$IN$"L"35010:9400/$IN$"R"27010:9010,/"$IN$"Q" 9510:9010E/,$IN$"E"9710:9010_/6$IN$"C"9910: 9010/T$"I DIDN'T GET THAT.": 1610:::9020/$ 1910:9010/$/% *QUIT/&%9810:IN$"Y"9599/0%F150:FC%(F)PFC%(F)0/:%F 0D%W1WN:WC%(W)PWC%(W)00N%W0%00% *EVERYBODY QUITSJ0% 9810:IN$"Y"9799c0%P%(0)PN:TTN:10010{0 &F150:FC%(F)0:F0G&0H& *QUESTION0R&:"ARE YOU SURE?"0S&IN$: IN$""98110&0& *CHANGE TURNS IN GAME0&(147)1&"THIS IS NOW GAME YEAR ";T:<1&"THERE ARE ";TN;" YEARS IN THE GAME.":r1&"HOW MANY YEARS DO YOU WANT IN THE GAME NOW";:V1&TVV100 1610:99101&TNV1'1' ENDING1'(147):34,0:NO1$':"HIT 'RETURN' FOR FINAL GAME STATISTICS.";: IN$2.'P1PN:V0$2B'W1WN:WC%(W)PVV1+2V'WK2`'P$;P;" HAS ";V;" PLANETS."X2j'VNNVa2t'P:r2'PPN1104002<(P1PN:V02P(W1WN:WC%(W)PVV12d(W2n(VN"CONGRATULATIONS TO ";P$;P"!"2x( P2( 16602(105003(VWN"CONGRATULATIONS!":1410:1050063("BETTER LUCK NEXT TIME.">3):f3)"HIT 'RETURN' TO END IT ALL";:IN$n3):3r)I136:("THIS IS CENTRAL CONTROL SIGNING OFF.",I,1);3|) 1760 :I3)I12000:I3)17603)(147)3)3*4 N ****MAIN PROGRAM4*N 21000244N 22010: INITIALIZE VARIABLESQ4>N 23010: DIMENSION ARRAYSl4RN 32010: SET UP SOUND4\N 25010: TITLE4fN"DO YOU WANT THE RULES?": 15104gNIN$: IN$"" 200714pNIN$"Y" 201204zNIN$"N" 201304N 1610:200705N 27010 : RULES45N 28010: PLAYERS' INITIALIZATIONQ5N 29010 :GENERATE STARSp5N 30010 : DISPLAY STARMAP5N"NEW SETUP?"5NIN$:IN$""201615NIN$"Y" "PLEASE WAIT WHILE I MAKE MORE STARS.": 20140-6NIN$"N""PLEASE WAIT WHILE I SET UP THE GAME.": 20200A6N 1610 : 20160d6N 31010: WORLD INDUSTRY SETUP6N 33010: WORLD CONTROL SETUP6N34010: WORLD SHIP SETUP6O35010: STAR LOCATION DISPLAY6O 36010: MAP PREPARATION INSTRUCTIONS7O 8010: WORLD DATA DISPLAY'7$OT1: GAME START=7)OP0PN:P%(P)0:`7.OP(PN(PN)1):P%(P)120270z73OP%(P)1:P%(0)P%(0)178O 3010: PLAYER'S INPUT7BOP%(0)PN202707LO 6010: BUILD SHIPS7VO 7010:MOVEMENT/COMBAT7`OW1WN:W2%(W)WS%(W):W8jO 8010: WORLD DATA DISPLAY38tOTT1:TTN20265H8~O 10010: ENDINGR8R::h8R ***INTRODUCTIONn8U8U ***INITIALIZE VARIABLES8UNVIWFPDEAKG1G2PNWN8VP18VP$"FLEET ADMIRAL "8VG1.8:G2.038Y8Y ***DIMENSION ARRAYS59Y WS%(40),WC%(40),WX%(40),WY%(41),WI%(40),W2%(40)[9Y FS%(50),FD%(50),FC%(50),FT%(50)h9Y P%(20)9Uj" HOWEVER IN GAMES WITH MORE THAN 10 PLAYERS, THE PLAYERS MAY AGREE";l>Vj" ONLY SOME FIXED MAXIMUM OF FLEET ORDERS.">j:"FLEETS TRAVEL AT A SPEED OF 3 PER YEAR (1 YEAR=1 TURN) AFTER";>j" ONE ACCELERATION TURN IN WHICH THEY MOVE ONLY TWO."=?j:"SEPARATE FLEETS ATTACK SEPARATELY, EVEN IF THEY ARRIVE AT THE SAME";]?j" WORLD ON THE SAME YEAR."?j:"ONCE A FLEET HAS BEEN SENT OUT, IT WILL NOT BE HEARD FROM AGAIN";?j" UNTIL IT REACHESITS DESTINATION. ITS ORDERS CANNOT BE CHANGED."?j 1910:""M@j"FOR MORE CHALLENGE, NEUTRAL WORLDS MAY BE ORDERED TO BUILD DEFENSIVE";\@j" SHIPS."@j:"EACH PLAYER WILL START WITH APPROX- IMATELY 100 SHIPS, BUT";@j" PLAYERS FAR FROM NEUTRAL PLANETS OR CLOSE TO OPPONENTS' PLANETS"; Aj" WILL RECEIVE MORE."AAk:"PLAYERS WILL MOVE IN A RANDOM ORDER EACHTURN."Ak:"DURING A PLAYER'S TURN HE MAY GET HELP BY HITTING THE 'H' KEY. ";Ak" THIS WILL ALLOWHIM TO EXERCISE ANY OF SEVERAL OPTIONS INCLUDING";Bk" VIEWING THE STARMAP, REVIEWINGTHE RULES AND QUITTING THE GAME."gB&k:"WHEN A PLAYER HAS NO MORE ORDERS TO ENTER HE SIMPLY HITS THE";B'k" RETURN KEY TO GO ON TO THE NEXT PLAYER."BNk1910:""Bbk:"TO PLAY THE GAME SOLITAIRE, MAKE THE NUMBER OF YEARS IN THE GAME";?Cck" EQUAL TO THENUMBER OF PLANETS. TO WIN YOU MUST CONTROL ALL THE ";jCdk"PLANETS IN THE GALAXY BYGAME'S END."Ck"************ENJOY THE GAME!************"Ck 1910C_mC`m ***PLAYERS' INITIALIZATIONDjm(147):"HOW MANY PLAYERS (1-20)?";PN$DtmPN1PN20 1610:280103D~mPN(PN):VDm "HOW MANY WORLDS (5-40)?";WNDmWNPN:"YOU MUST HAVE MORE STARS THAN PLAYERS.": 28052Dm 28055Dm"(THIS ISN'T BASKETBALL)":1610:28040EmWN40:WN;" IS TOO MANY STARS.": 1610:28040EmWN(WN):LEm "HOW MANY YEARS (TURNS) IN THE GAME":" (1-100)";TNEm"PLEASE WAIT WHILE I CREATE THE UNIVERSE.";EmTN1TN100 1610: 28070EmTN(TN):Fm"DO YOU WANT NEUTRAL WORLDS TO BUILD DEFENSIVE SHIPS?"FmIN$:IN$"" 281012FmIN$"Y"AB1: 28140KFmIN$"N"AB0:28140\Fm1610:28100Fm"PLEASE WAIT WHILE I CREATE THE UNIVERSE.";FGqFRqWX%(1)1((PN)20)F\qWY%(1)1((PN)20)FfqW2WN GpqWX%(W)1((PN)20)#GzqWY%(W)1((PN)20)+GqI1TGqWX%(W)WX%(I) WY%(W)WY%(I) 29040nGqII1:IW29070 &uGqW{G/uG0u STARMAPDISPLAYG:u"****************STARMAP**************"G;u "DO YOU WANT

RINTOUT, OR CREEN?";YY$: 302000HW2%(P)WS%(P)KHPKW1PNWNKWS%(W)WS%(W)(WI%(W)2.2)(W)K(W).67 34210KW2%(W)WS%(W)KL ***STAR LOCATION DISPLAYBLˆ"**********STAR LOCATION CHART**********"sL̈:" STAR X Y STAR X Y STAR X Y"LֈW(2WN31.7)WNL28);W;:33);WX%(W);:36);WY%(W):1960LꈂWL"":W(WN31.7)(2WN3.7)M15);W;:20);WX%(W);:23);WY%(W): 1960$MW:""8MW1(WN3.7)eM" ";W;:7);WX%(W);:10);WY%(W): 1960oM& W:uMM ***INSTRUCTIONS FOR PREPARING STAR MAPM"IT IS RECOMMENDED THAT YOU PREPARE A MAPOF THE STARS FOR READY";7N" REFERENCE. ON A SHEET OF GRAPH PAPER MAKE A 20X20 GRID WITH 1,1 IN";N" THE UPPER LEFT. USING THE ABOVE DATA, ENTER THE NUMBER OF EACH"N܌"STAR AT ITS APPROPRIATE COORDINATES."N挍 1910N