' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] JA AA 0 $ L/Š 鷎귭෍ᷩ췩緈JJJJx Lȿ 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)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?  , = #""*( (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!!+'2+4:'/+'2+4'??4)E81B $! h h Լ ռ ռ ռ`HJ>݌h Hh݌`IHɭ ɭ R`ӤL߼IHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LɜK JI8h hLߍ ԧ᜙߼IHͺ9ٜ췈뷠詷 뷍ߜLJ` H`ߜߜ8)H`H`H` L` R&ӛu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( 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 e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@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@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( > Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ 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˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵ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 ~(` d ֠z# u`/25,60 120,66114,57+ 116,72159,48> 150,78155,67Q 150,78147,74d 150,78149,83w 145,73152,83 !C1250:C *49234,0 4R064:R >35:A((1)8) HA0A4A5 \1122,66:RdX  5000::49234,0+R064:R?(35:A((1)8)P2A0A4A5W<AhF1140,35:RnP232,252:233,29LOC76767682BYTE:LOC,BYTE 1,0,4,0,15,5,0LOC L1,0,4,0,15,5,0 LOC 20 L!  5000::49234,0+R064:R?(35:A((1)8)P2A0A4A5W<AhF1140,35:RvPV1:X140ZY70190dV:((1)8)n1X,Y:VV1xV110ī30Y232,252:233,29LOC76767682BYTE:LOC,BYTE   &33,42 0150,57! :177,69+ D78,97 N219,84C O243,18N P24,72Y Q93,90f R183,105s X PHASER} {Y159 X33120 YY1 X,Y X Y159 X2301501 YY1 X,Y X  SMALL EXPLOSION  120,661115:DN3:160+? CF5:AB5:AE5:DN3:160\? CF(16336)(16336)(16336)(16336):?| "ALL IN ALL,":"YOU WERE ";A$::23? A1(A$):(A$,A,1)" "ı? A:A0::+> CN1250:(16384)127Ĺ16368,0:3> :Q> CF4:AB1:AE10:DN5:160o> CF1:AB5:AE20:DN3:160> CF1:AB25:AE30:DN5:160> CF6:AB20:AE20:DN50:160> CF1:AB75:AE75:DN30:160> CF4:AB11:AE15:DN2:160? CF1:AB100:AE9ĺ"CHASM TO SOUTH--";:=d P(1,1)30ĺ"CHASM TO NORTH--";p=n P(1,1)29P(1,1)30ĭD(2)ĺ"ROPE IS UP";:868:=x P(1,1)29P(1,1)30ĭD(2)ĺ"ROPE IS NOT UP"= "----------------------------------------";:34,(37):> Y(37):P9P:2520:Y1:PP9--";:S9ĺS9;" SOLDIERS ";e<2 R(P(1,1),8)R(P(1,1),9)ĺR(P(1,1),8);" SLD. ";R(P(1,1),9);" BLST.";<< S9R(P(1,1),8)R(P(1,1),9)ĺ"NOTHING";$FR(P(1,1),6)2P(1,1) TO SWING ON THE ROPE FROM THE ";S$;"?":820"J1:"THE PEOPLE SWINGING ARE--":" YOU":X12:P(1,1)P(X1,1)ĺ4);N$(X1):JJX"X:"OKAY, NOW":150:". . . UP, UP, AND AWAY--":255:J(4(1)1)Ğ:"EGAD, THE ROPE BROKE"::810*#"THE RGS--FLIES--AND ";:255:(1).5ĺ"MISSES.":"BETTER LUCK NEXT TIME.":!"CATCHES.":"GOOD SHOT!":D(2)1:Y(37):6:2650:Y1:!R(P(1,1),7)0P(1,1)P(4,1)1030!D(2)0ĺ"THE ROPE ISN'T UP!":8200"P(1,1)29P(1,1)30ĺ"HOW DO YOU EXPECTR(P(1,1),7C)1:P(1,3C)P(1,3C)1:2820:2710:820\ R(P(1,1),7)0P(1,1)P(4,1)1030 D(2)0ĺ"THE ROPE'S ALREADY UP!":820 P(1,1)29P(1,1)30ĺ"HOW DO YOU EXPECT TO CONNECT THE ROPE FROM THE ";S$;"?":820F!150:"THE ROPE SWIN710:820/VR(P(1,1),7)0P(1,1)P(4,1)1030Q[3000:A0A$($,A1):1125`"WHAT DO YOU WANT TO DROP, A SHIELD OR":" BLASTER (S OR B)?";A$eC1:(A$,1)"B"C2jP(1,3C)0ĺ"YOU AREN'T CARRYING A ";W$(C):8205 t"OK.":R(P(1,1),7C)1),7C)0ĺ"THERE AREN'T ANY ";W$(C);"S":" TO PICK UP":820."OK.":2820:R(P(1,1),7C)R(P(1,1),7C)1:P(1,3C)P(1,3C)1:2820:2710:820B"OK.":DP(1,1):C12:B7C:R(D,B)0āA1R(D,B):R(D,B)R(D,B)1:P(1,3C)P(1,3C)1:2820:ALC:2(1,1)P(4,1)1040S"YOU CAN'T DO THAT WHILE ENEMIES ARE IN THE ROOM!":820u3000:A0A$(A$,A1):1045"WHAT DO YOU WANT TO GET, A SHIELD, A":" BLASTER, OR ALL (S,B,OR A)?";A$C1:(A$,1)"B"C2(A$,1)"A"1090>$R(P(1,:970S$B$(R2)2S$S$" "R$(R3)" ROOM":bS$O$(R2)" OF THE "C$(R31)" CORRIDOR":S$"JUNCTION OF "C$(R21)" AND "C$(R31)" CORRIDORS":R11S$"HANGER DECK":S$"DETENTION CELL #"((R(R1,5)10)):R(P(1,1),7)0P A KILLING BLOW!":P(P1,1)0:2780:2710G2790:D10P(P1,3D1)0ı" A ";W$(D1);" WAS DESTROYED":P(P1,3D1)P(P1,3D1)1:2710R2(R(R1,5)100):R3(R(R1,5)10)R210:R4R(R1,5)(100R210R3):R4950,980,990,1000R32S$E$(R2)RP15890\" SOLDIER--HIT AND KILLED!":S8S81:S9S91:R(P(1,1),9)R(P(1,1),9)1:R(P(1,1),8)R(P(1,1),8)1:R(P(1,1),7)R(P(1,1),7)1:R(P(1,1),7)0S90:R(P(1,1),7)0p2780:2710(zD1(4(1)):P(P1,2)P(P1,2)D1:" A HIT!":P(P1,2)0ĺ" "YOU ARE DEAD.":P(1,1)0:2280k4:"WHAT IS YOUR COMMAND?";A$::C9114:(A$,(CM$(C9)))CM$(C9)830y9C9:1640>C91020,1110,1680,1420,1830,2130,1490,1580,1550,1160,1230,1430,1330,2200HA1A1D1(((1)7)3):A10ĺ" A MISS!":D10: P(4,1)P(4,1)0R1P(4,1):R131((1)12):P(P1,1)R1eP1:R1(30(0)1):R(R1,6)1R(R1,6)0y T8:D(1)1800:"THE FORCE FINALLY GAVE UP ON YOU."::810 :"THE DEATH STAR JUST EXPLODED.":"UNFORTUNATELY, YOU WERE STILL ABOARD": *0750S1S9:(1).1740QP1(5(1)1):P15ĭP(1,1)(P(P1,1))700"A SOLDIER FIRES AT ";N$(P1):A1S(S,2):D1S(S9,1):J54:P15D1P(P1,2):P(P1,4)0J1D1D1J:2750:840:P(1,1)0810S8P123:P(1,1)P(4,1)P(P1,1):P(1,1)P(4,1)680&P(4,6)1670"DARTH VADER SWINGS AT YOU WITH HIS LIGHT SABRE!":2800:A1P(4,2):D1P(1,2):P11:840:P(1,1)0810680"DARTH VADER SWINGS AT YOU WITH HIS FIST!";:A1P(4,2)2:D1P(1,2):P11:840:P(1,1)0810S9T8(50(1)76)11:P(4,1)P(1,1)610;DP(4,1)0610fNX(4(1)1):R1P(4,1):R(R1,X)1590XR1R(R1,X):P(4,1)R1:R1P(1,1)ğ:"***THE BAD DUDE HAS ARRIVED***"::2800:2710bC99620lT8(10(1))Ğ:"TIME IS ALMOST OUT":v820L SOLDIER,SHIELD,BLASTER,LIGHT SABRE: UNDAMAGED,DAMAGED BUT CAN BE REPAIRED,IRREPAIRABLY DAMAGED)P770788:A:P,A:: 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,2,3,96:I114:CM$(I)::GE,D,M,SABR,A,O,GI,L,F,TO,SW,TA,SAB,C:R11::1750:MACHINERY,CONTROL,TRACTOR BEAM,POWER,WEAPONRY,COMMAND,HANGER,EAST DETENTION,WEST DETENTION,BROWN,GREEN,BLUE,YELLOW,RED,ORANGE,BLACK,WHITEa WEST END,MIDDLE,EAST END,SOUTH END,NORTH END,NORTH,EAST,WEST,SOUTH,PRINCESS LEIA,THE WOOKIE,DARTH VADER,IMPERIA LIMITED AMOUNT OF TIME.":"MAY THE FORCE BE WITH YOU!"::"(HIT ANY KEY TO BEGIN YOUR MISSION)";:A$:A12:R$(A)::A13:B$(A)::A14:E$(A)::A18:C$(A)::A15:O$(A)::A14:P$(A)::A25:N$(A)::A13:W$(A)::A13:D$(A):HE":"HANGER DECK AND TAKE OFF IN THE":"MILLENIUM FALCON.":"AS WITH ANY JEDI HOPEFUL, YOU WILL ACT THROUGH THE FORCE. YOU WILL DO SO BY GIVING COMMANDS FOR YOUR ACTIONS. SIMPLYHITTING 'RETURN' LISTS ALL OF THE LEGAL COMMANDS":g"YOU HAVE A ANY":"BLASTERS YOU STRIP FROM DEAD SOLDIERS ORYOU MAY GIVE THEM TO PRISONERS YOU":"RELEASE.":="TO ESCAPE, YOU MUST RENDER THE TRACTOR BEAM INOPERABLE BY EITHER SABOTAGING THEPOWER MACHINERY ROOM OR THE TRACTOR BEAMROOM. YOU MUST THEN RETURN TO TSS LEIA":"YOU MIGHT EVEN BE ABLE TO SABOTAGE THE POWER MACHINERY ROOM IN SUCH A WAY AS TOMAKE THE DEATH STAR SELF-DESTRUCT!":20:"(HIT ANY KEY FOR FURTHER ORDERS)";:A$a:"YOU ARE EQUIPPED WITH A LIGHT SABRE AND A BLASTER SHIELD. YOU MAY USEINFAMOUS ";::"DEATH STAR":: |"THIS OF COURSE MEANS YOU ARE IN TROUBLE.BUT YOU ARE ALSO IN A POSITION TO DO GOOD THINGS FOR THE REBELLION, SUCH AS DAMAGING THE DEATH STAR, ELIMINATING IMPERIAL SOLDIERS, KILLING DARTH VADER, OR RESCUING PRINCEP(1,6)1:P(4,4)1:P(4,6)1:R(19,7)3:R(26,7)3:S1(20(1)5)d ^R1((1)301):R(R1,7)10350hR(R1,7)R(R1,7)1:S:D13:D(D)0::S80::3:"REBEL ";N$(1);"--"::"YOU ARE ABOARD THE MILLENIUM FALCON":"WHICH HAS JUST BEEN DRAGGED ABOARD THE 4,0,0,25,0,64,0,20,0,0,74,0,21,0,0,84,0,22,0,0,94,0,0,22,0,104,0,0,21,0,114,0,0,20,0,124 ,P(1,1)1:P123:R1((1)1231):P(P1,1)R1::P(2,1)P(3,1)300@ 6R1(29(1)2):P(4,1)R1:P114:X23:P(P1,X)(10(1)11):::P(3,2)P(3,2)2:P(1,4)1:0,0,17,242,20,0,26,18,321,21,42,37,19,462,22,41,38,20,262,0,40,39,21,562,0,34,33,24,572,23,35,32,25,272,24,36,31,26,472X " 25,19,0,27,421,26,0,28,29,552,0,27,0,0,211,27,0,0,-30,252,-29,0,0,1,452,0,25,0,0,14,0,24,0,0,24,0,23,0,0,34,0,0,23,0,44,0,0,24,0,51142:X15:R(R1,X):::30,2,0,0,4,3,4,1,0,102,0,0,0,2,221,0,5,2,0,202,10,6,4,8,103,0,7,5,0,302,0,0,6,0,311,5,0,0,9,412,8,0,0,0,111,11,0,0,5,212w  14,12,0,10,123,0,13,11,0,222,0,0,12,0,121,15,0,0,11,512,0,0,16,14,133,0,15,17,0,232,18,16,0,0,433,19,:13:1:(" <==A SCIENCE FICTION ROLE-PLAYING GAME BY DONALD BROWN==> ",X,40):A110:(16384)155Ĺ16368,0:13:868:X11:A11 ::13:"WHAT IS YOUR NAME?";N$(1):R7 :170CCN1CF:TAABAE:0,TA:1,DN:770:TA,CN::R(42,9),P(4,7),D(3),S(10,2),R$(2),B$(3),E$(4),C$(8),O$(5),P$(4),N$(5),W$(3),D$(3):CM$(14):I14:J17:P(I,J)0::::5:15);"WELCOME TO"::16::"STAR BATTLE":: X1100                              2,52175,48% 175,48161,52168,56F 168,56175,64175,72168,80L T0112,80123,760 123,76126,72126,64126,56J 126,56119,52112,48y 112,48119,52112,56105,64105,72112,80 175,48168,48161,52154,56 154,56154,64154,72159,76168,80 168,80175,80182,76187,72189,64 189,64189,5618196,100198,964 Z173,116175,120180,124182,128Y d161,120162,124166,128168,132 n168,132175,136182,137189,132191,128 x191,128190,124188,120186,116182,112 112,48105,4898,52 98,5291,5691,6493,7298,76 98,76105,8N :7"70,40105,245175,24210,40V(70,12077,11684,11291,108291,10898,106105,105112,107119,108<119,108126,112133,116140,120147,120F147,120154,120161,120168,118175,115 P175,115182,112187,108193,104  3,65% 117,65118,63128,63129,658 TORPEDO TUBEC XC123M YC75U R2] "S0g ,E6.6p 6J.1} @XCR,YC JISEJ TXR(I)XC ^YR(I)YC X,Y I  STARS !7 "171,9 #18,111 $189,114 %84,75 1,68111,65, 129,69133,74132,76133,77G 131,78114,78113,75T 116,68s 113,75102,7587,8182,91 85,9683,9877,8775,89 85,96 80,8784,7899,72103,69 106,66111,66 99,72102,75 84,7987,81 111,6513 33240,159195,133150,121108,121M(63,13236,1440,159g<173,87176,89168,97tF173,87P171,90167,81164,82169,92Z164,82147,75150,72167,81d147,75133,75n150,72143,69138,66133,66 x133,65133,6811  5 BYTE:LOC,BYTE3  1,0,4,0,56,54,45,36,7,0< LOCD 20_ $(4);"RUN MACK HELLO" "a  1000:49234,0)1:0:Y258(S190:SG21140,100V7N150:N`<S:0pFX602203KN150:NPX,190140,100ZXd6nT19012:TsN150:Nx1140,100:T232,252:233,29 LOC7676768 10 $29,12 &6,5 '14,3 I1 9 14,1220' 11,10211 22,9> 23,248H 25,9P 15[ 26,10b 9p 18,1616~ 15,1415 14,13 13,12 15 12,11 1 24,8 19,6 17,15 21,12 27,7 !10,14 "30,16 #4,z#     Ӡ! ٠Ӡ ҠŠ9ŠҠϠˠϠĠҠ ٠ŠŠŠƠŠӠ(B$):(B$,I,1);$ 6Z(16336)::4 @I1700:I: JB,0 216,0 : 2001 12:(A$)I:C (222)255Ĭ] B$"HELLO KURT ":300 B$"READY FOR ME TO BEAT YOU":300 B$"AT ALL THESE GAMES?":300 B$"GOOD LUCK KURT ":300 PAUSE12000:PAUSE "(4);"RUN DOORWAY" ,I1 F(32):80 PK$K$Z$:I1 ZK$"RAT"ī120 d:12:12:B$"IMPROPER REQUEST":300:10:B$"---------------------":300:14:14::B$"ACCESS DENIED":300: nX14000::::30 x:12:B$"ACCESS APPROVED":300:100,157:1012,56:1010,191:214< :30> :1011,213:1012,112:1010,102:214,128:150SA$"USER CODE -"^I16f4012:B$"USER CODE -":300:22:B$"COPYRIGHT (C) 1984 BY MICROSPARC,INC.":300:10(140:Z$:Z$(13)902Z$(32)Z$(21)70<(88):80   4B$"DELETE":/ B$;:198::K$:K(K$)48D ,K17KT16130 6CH1:CVSTK16:1000:C194(B$"RUN"B$"LOAD")B$"B"B$ @CH639:1000:B$B$(C):CH:1:868:B$:D$;B$:100 C1(CV8):C2CVC18:P1024128C240C1CH:C(P): D=4 EXIT=5..."f B$"RUN":1:(A$,39);:A$(A$,2)(A$,1):K(16384):K128āK175:K:K(0):130 16368,0:KK176:K1K5300 1:868:K5Ā "PRESS 'LETTER' YOU WISH TO ";:K1B$"LOAD" K2B$"LOCK" K3B$"UNLOCK" K3d::D$(4):D$"CATALOG":B(37)2:B22B22}nT0:CH4:CV023:1000:C160ĹP1,219:P,T193:P1,221:TT1:SCVw(1):"NAMES WITH * ARE GAMES." xCV:24:A$"TYPE LETTER TO RUN. NAMES WITH * ARE GAMES, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE  A(F,D)Qĺ"YOU MUST MOVE ALL ";A(F,D);" ";D$(D):480]A(T,D)A(T,D)Q:A(F,D)A(F,D)Q"WHAT SHORE? (1)NORTH, (2)SOUTH, (3)EAST OR (4)WEST?";LL4530&L15300A(T,(D5))L5((X)100)2557072000:200[W LINES 6Z"WHAT DEFENSE? (1)TROOPS, (2)PLANES, (3)ARTILLERY, (4)TANKS, OR (5)MISSILES?";DgD5450tD1450:"QUANTITY?";QQ0200A(F,D)Q500"YOU ONLY HAVE ";A(F,D);" ";D$(D);" IN ";N$(F):480FT520F65208FERS YOUR FORCES TO ANOTHER SHORE."ENTER COUNTRIES: (1)NO. AMERICA, (2)AUSTRALIA, (3)SO. AMERICA, (4)RUSSIA, (5)JAPAN, (6)AFRICA, (7)KOREA, (8)CHINA, (9)GREENLAND, (10)ENGLAND: (FROM,TO)?";F,TF10400F1400T10400T1400)ENGLAND?";RR10240'R1240J:::"STATUS REPORT: ";N$(R)P}"DEFENSE QUANTITY LOCATION"X15D$(X);16);A(R,X);29);A(R,X)0ĺL$(A(R,(X5)))S$:282X:200"LINES 400 TO 570 TRANS5200M1200.M240,400,600,800,1000xLINES 240 TO 282 PRINTS THE STATUS REPORT FOR THE SPECIFIED COUNTRY. "COUNTRY?: (1)NO. AMERICA, (2)AUSTRALIA, (3)SO. AMERICA, (4)RUSSIA, (5)JAPAN, (6)AFRICA, (7)KOREA, (8)CHINA, (9)GREENLAND, OR (10 SECTION" *MAIN PROGRAM LOOP*(4Y6Y61"MANEUVER: (1) COUNTRY STATUS, (2) TRANSPORT, (3) GLOBAL STATUS,"" (4) SPY, OR (5) ATTACK?":MM TROOPS IN THE FIRST LISTED COUNTRY(THE LOWEST #) ON THE FIRST LISTED SHOREFIGHT FIRST, FOLLOWED BY ITS OTHER FORCES IN ORDER AS DO YOUR FORCES. GOOD LUCK." LINES 200 TO 230 CAUSES A JUMP FROM THE MAIN PROGRAM LOOP TO THE APPRORIATE COMMAND:"M#4 WILL SPY OUT THE ENEMY IN A COUNTRY AT A COST OF 10 PLANES BUT YOU MAY NOT FIND OUT EVERYTHING OR ANYTHING AT ALL.""WHILE M#5 STARTS THE ATTACK. IF YOU OUTNUMBER THE ENEMY BY 1.5 TIME YOU WILL CAPTURE ITS REMAINING DEFENSES.":"ENEMYEACH COUNTRY ON COMMAND. M#2 TRANSPORTS BY SEA YOUR FORCES WHICH ARE THEN OPEN TO EITHER ATTACK OR STORMY WEATHER. M#3 WILL TELL YOU WHOSE TROOPS ARE IN EACH""COUNTRY AND WHO CONTROLS THE COUNTRY. ":"TO CONTINUE, HIT RETURN.";R${ EITHER DESTROY EACH OF THE OPPOSING 5 COUNTRIES FORCES OR CAPTURE THEM. THE COMPUTER WILL NOT ATTACK YOUR COUNTRIES NOR MOVE ITS DEFENSES, SOTHE CONTEST IS BASED UPON HOW AND HOW OFTEN YOU MANEUVER YOUR FORCES:"MANUEVER 1 LISTS YOUR FORCES IN 0 "WORLD POWER IS A WAR GAME PLAYED AGAINSTTHE COMPUTER FOR CONTROL OF 10 COUNTRIESWITH 4 SHORES EACH UTILIZING 5 DIFFERENTTYPES OF FORCES (TROOPS, PLANES, TANKS, ARTILLARY, AND MISSLES) GENERATED AT RANDOM WITHIN SET LIMITS." "TO WIN YOU MUST0:J25:C(X,J)(50(X))25:J:XQ xJ110:X610:C(J,X)(4(X))1:X:J X15:J110:A(X,J)C(X,J):C(X,J)0:J:X (27);(42);15);"WORLD POWER": "DO YOU WANT INSTRUCTIONS? TYPE 1 FOR YES AND 2 FOR NO.":Z: Z220 SO. AMERICA, RUSSIA, JAPAN, AFRICA^ (KOREA,CHINA,GREENLAND,ENGLAND,TROOPS,PLANES,ARTILLARY 2TANKS,MISSILES,NORTH,SOUTH,EAST,WEST FX110:N$(X):X PX15:D$(X):X ZX14:L$(X):X dX110:C(X,1)((5000(X))5000)10:X# nX11CE AGE **" :::1 LINE0:W3:S$" SHORE" LINES 10 TO 130 INITIALIZES ALL PARAMETERS, FILLS ASCII ARRAYS WITH NAMES, AND SETS RANDOM DEFENSES FOR BOTH ALLIES AND ENEMIES. A(10,10),C(10,10),N$(10),D$(5),L$(5)#  NO. AMERICA, AUSTRALIA,'  TODAYS DATE IS 12 NOV 784 WORLD POWER 6O LISTING IN APPLESOFTUz::11)"** WORLD POWER **"::"** WRITTEN BY JOE JAWORSKI ON 6/27/77 **""** MODIFIED BY T N TAYLOR ON 9/09/78 **" "** FM THE 2/78 ISSUE OF INTERFA          THE WORLD IN ";Y6;" MANEUVERS!"%% ::"SORRY, YOU BLEW IT."I$"ALL YOUR DEFENSES ARE GONE."::::5010$LINES 5000 TO 5010 PRINTS THE END OF THE GAME AND THE NUMBER OF MANEUVERS IT TAKES TO WIN WHEN THE ENEMY RUN OUT OF FORCES.$::"CONGRATULATIONS!"%"YOU HAVE CONQUERED 2550 CALCULATES THE CASUALTIES FOR THE PRESENT BATTLE.O# EE((E3)(X))2]# E0E0x# E1E1((E13)(X))2# E10E10# A(X,J)E1:C(X,C)E# #LINES 4000 TO 4010 PRINTS THE END OF THE GAME WHEN THE ALLIES RUN OUT OF FORCES.$X2"R332070!"R662080A""AMBUSH DURING TRANSPORT!"`""YOU JUST LOST ";X2;D$(D)" "TOTAL ARRIVED IN ";N$(T);"= ";A(T,D):""SNIPERS ON THE ";L$(A(T,(D5)))S$:2050" "VIOLENT SEAS SINKS A TRANSPORT SHIP":20507# LINES 2500 TO!E10E81:1270-!E1000E1E81:1270G!E1E1000E81:1270Q!1420!LINES2000-2080 CALCULATES THE LOSS OF FORCES DURING TRANSPORTATION.!R(100(X))1:X2(10(X))2:D1X2(100(X))2!A(T,D)X2X2A(T,D)"A(T,D)A(T,D)5))$ AE;D$(C);" WERE CAPTURED. "; BI13000:I:1020[ DC(X,(J5))A(X,(J5)):1020e PE,E1o Z2500 _E0E80:1270 aE10E81:1270 dE11000EE80:1270 iEE11000E81:1270 n1360 E,E1 2500 E0E80:1270N ";:1288"ALLIES IN ";EN$(X);" ON THE ";L$(A(X,(J5)))S$_"TOTAL CASUALTIES: "}"ENEMY ";D$(C);": ";OE("ALLIED ";D$(J);": ";O1E12E81C(X,J)C(X,J)A(X,J):A(X,J)0:1348 <A(X,C)A(X,C)C(X,C):C(X,C)0:A(X,(C5))C(X,(CC1ĭJ11420E,E1#25008E10E81:1270LE0E80:1270eE1E1.7E80:1270~EE11.5E81:12701165LINES 1270 TO 1348 REORTS THE VICTORY FOR THE BATTLE.E,E1::"***** A VICTORY FOR THE "; E81ĺ"ENEMY IES 1100 TO 1200, 1360 TO 1450 CALCULATES BATTLE CASUALTIES AND CHECKS FOR VICTORY.|LKK1::::(7);"BATTLE IN ";N$(X);V" ON THE ";L$(A(X,(J5)))S$;"!"`"ENEMY ";D$(C),"ALLIED ";D$(J)~OC(X,C):O1A(X,J):EO:E1O1J1ĭC11360K01000$H0:K0:X110:J159C(X,J)0KK1N A(X,J)0HH1b J:X:K05000p H04000 :"NO MORE ATTACKS POSSIBLE."200C1C(X,C)01080$CC1:C61020.10508A(X,(J5))C(X,(C5))1060RKLIN);C(T,X);34);6uC(T,(X5))0ĺL$(C(T,(X5))):890<xHzX:200LINES 1000 TO 1080 SEARCHES TO SEE IF BOTH SIDES ARE ON THE SAME SHORE IN A COUNTRY. IF NOT, THEN BACK TO THE MAIN PROGRAM.K0:X110:J15A(X,J)01040 J:X:::"SPY MISSION REPORT: ";N$(T)::H((X)100)20860lR(50(X))26ĺ"ALL PLANES LOST AT SEA":200W"PLANES SHOT DOWN OVER ";N$(T):200\"DEFENSE QUANTITY LOCATION"]^X15f((X)100)40ĂX:200pD$(X);18A, (9)GREENLAND, (10)ENGLAND: (FROM,TO)?";F,T;!T5810A"#"THERE IS NO NEED TO SPY ON YOUR ALLIES. JUST ASK FOR A STATUS REPORT."$200*A(F,2)9820+,"YOU DON'T HAVE ENOUGH PLANES IN ";N$(F):2004A(F,2)A(F,2)10">:C(X,F2)0K2K21{F2/|K20ĺ"NO":638:}"YES"A~XJ200 LINES 800 TO 890 COMPUTE THE RESULTS OF THE SPY MISSION. "ENTER COUNTRIES: (1)NO. AMERICA, (2)AUSTRALIA, (3)SO. AMERICA, (4)RUSSIA, (5)JAPAN, (6)AFRICA, (7)KOREA, (8)CHIN00 TO 640 PRINTS A GLOBAL REPORT OF POSSESSION AND IF THERE ARE ANY TROOPS IN EACH COUNTRY.X::10);"--- GLOBAL REPORT ---"ab"COUNTRY-OUR TROOPS-ENEMIES'-OURCOUNTRY?"clX110:N$(X);13);A(X,1);21);C(X,1);34);vK20:F215:SS1:QRSFX*&M(Q)M(Q)M(M(Q)8)84:2500Pl SCAN FOR UNUSED PT._D12100nRH2300}SV2200R2:S2:24004R22300>SV2200HRH:S2:2400SS1:DD:2400RRD` M(RSFX)152000 10002500@ MOVE NORTH5JM(Q)M(Q)M(M(Q)8)8HTSS1:QRSFXc^M(Q)M(Q)M(M(Q)2)2mr2500 MOVE EASTM(Q)M(Q)M(M(Q)4)4RR1:QRSFXM(Q)M(Q)M(M(Q))2500 MOVE SOUTHM(Q)M(Q)M(M(Q)2)2(R1SFX)151300%II1:CUT(I)3@M(R(S1)FX)151400SII1:CUT(I)4axI02000yI1I((1)I1)QRSFXCUT(I)1500,1600,1700,1800 MOVE WESTM(Q)M(Q)M(M(Q))RR1:QRSFXM(Q)M(Q)M(M(Q)4)4):S(V21):M(RSFX)159:"GENERATING MAZE.";:500U GENERATE RANDOM MAZE ALGORITHM HERE FROM ROGERS AND STRASSBERGERIWALK1NIZM(R1SFX)151100II1:CUT(I)1LM(R(S1)FX)151200VII1:CUT(I)2MG NORTH 8=TOP WALL- 4=RIGHT WALLB 2=BOTTOM WALLU 1=LEFT WALL] z FACE TOP RIT BOT LFT N 8 4 2 1 E 4 2 1 8 S 2 1 8 4 W 1 8 4 2 R(H21kMX279:MY157:VX(MX2):VY(MY2)40:XVXJp COMP. PERSPECTIVE PTSzJ18:DX(J)X:YU(J)VY(XVYVX):YD(J)VY(X(MYVY)VX):X(X710):JJJ(V1)FXI2H:M(IJJ)8:M(IFX)2J2V:M(IJFX)15:J:I MAZE VALUES, FACIN!";>7EH23:FX36:"MAZE SIZE-FROM 3X3 TO 35X27(H,V)";H,V`LH2H36V2V28850N"2-FF1:F4F1HF5361,5362,5363,5364[R0:S1:5370mR1:S0:5370R0:S1:5370R1:S0:53705500 FORWARD"ZM(HVFX)'TZ2(F1):TM(T128)6T05450; BUMPED INTO WALL GHT."%"SPACE BAR TO GO FORWARD.".100C GET KEYSTROKE_K(16384):K1285100m16368,0K1365200: <- K1495300: -> K1605400: SPACEK1555700: ESC(500:5020P LEFT <-ZFF1:F1F4)M(I)16BY:X PLAY? RANDOM INITIAL DIRECTIONhF((1)4)1:F5011,5012,5013,5014yF1:R0:S1R0:S1:5020R1:S0:5020R0:S1:5020R1:S0"LEFT ARROW <- TO TURN LEFT.""RIGHT ARROW -> TO TURN RIN4)03500!M DRAW EAST WALL*R X,Y7z X,YVZ> IE J` MARK RAT'S POSITIONv XHHZ1:YVVZ1 X1,Y1 XHZ2,YVZ2 XHZ2,Y X1,YVZ2 ADD REDUNDANT BITSX1MH:Y1MV $IXYFX:M(I)M(IDISPLAY TOP VIEW OF MAZE3D CALC DISPLAY SCALEQN HZ(278MH):VZ(158MV)Z :3i 1HZ,1VZ| 1HZ,MVVZ1 J1MV I2MH NM(IJFX):XIHZ1:YJVZ1 M(N2)03400 DRAW SOUTH WALL X,Y XHZ,Y H M( ".";:IWALK MHH:MVVK RANDOM PT AT SOUTH AS STARTING POINTb I((1)(MH1))2r M(I1FX)0 III2FX:M(II)M(II)M(M(II)8)8 H((1)(MH1))2 H1H:V1V 500 23:12:"MAZE COMPLETED. ":500 3600 SS1:QRSFX*&M(Q)M(Q)M(M(Q)8)84:2500Pl SCAN FOR UNUSED PT._D12100nRH2300}SV2200R2:S2:24004R22300>SV2200HRH:S2:2400SS1:DD:2400RRD` M(RSFX)152000 10002500@ MOVE NORTH5JM(Q)M(Q)M(M(Q)8)8HTSS1:QRSFXc^M(Q)M(Q)M(M(Q)2)2mr2500 MOVE EASTM(Q)M(Q)M(M(Q)4)4RR1:QRSFXM(Q)M(Q)M(M(Q))2500 MOVE SOUTHM(Q)M(Q)M(M(Q)2)2(R1SFX)151300%II1:CUT(I)3@M(R(S1)FX)151400SII1:CUT(I)4axI02000yI1I((1)I1)QRSFXCUT(I)1500,1600,1700,1800 MOVE WESTM(Q)M(Q)M(M(Q))RR1:QRSFXM(Q)M(Q)M(M(Q)4)4):S(V21):M(RSFX)159:"GENERATING MAZE.";:500U GENERATE RANDOM MAZE ALGORITHM HERE FROM ROGERS AND STRASSBERGERIWALK1NIZM(R1SFX)151100II1:CUT(I)1LM(R(S1)FX)151200VII1:CUT(I)2MG NORTH 8=TOP WALL- 4=RIGHT WALLB 2=BOTTOM WALLU 1=LEFT WALL] z FACE TOP RIT BOT LFT N 8 4 2 1 E 4 2 1 8 S 2 1 8 4 W 1 8 4 2 R(H21kMX279:MY157:VX(MX2):VY(MY2)40:XVXJp COMP. PERSPECTIVE PTSzJ18:DX(J)X:YU(J)VY(XVYVX):YD(J)VY(X(MYVY)VX):X(X710):JJJ(V1)FXI2H:M(IJJ)8:M(IFX)2J2V:M(IJFX)15:J:I MAZE VALUES, FACIN!";>7EH23:FX36:"MAZE SIZE-FROM 3X3 TO 35X27(H,V)";H,V`LH2H36V2V28850N"2-FF1:F4F1HF5361,5362,5363,5364[R0:S1:5370mR1:S0:5370R0:S1:5370R1:S0:53705500 FORWARD"ZM(HVFX)'TZ2(F1):TM(T128)6T05450; BUMPED INTO WALL GHT."%"SPACE BAR TO GO FORWARD.".100C GET KEYSTROKE_K(16384):K1285100m16368,0K1365200: <- K1495300: -> K1605400: SPACEK1555700: ESC(500:5020P LEFT <-ZFF1:F1F4)M(I)16BY:X PLAY? RANDOM INITIAL DIRECTIONhF((1)4)1:F5011,5012,5013,5014yF1:R0:S1R0:S1:5020R1:S0:5020R0:S1:5020R1:S0"LEFT ARROW <- TO TURN LEFT.""RIGHT ARROW -> TO TURN RIN4)03500!M DRAW EAST WALL*R X,Y7z X,YVZ> IE J` MARK RAT'S POSITIONv XHHZ1:YVVZ1 X1,Y1 XHZ2,YVZ2 XHZ2,Y X1,YVZ2 ADD REDUNDANT BITSX1MH:Y1MV $IXYFX:M(I)M(IDISPLAY TOP VIEW OF MAZE3D CALC DISPLAY SCALEQN HZ(278MH):VZ(158MV)Z :3i 1HZ,1VZ| 1HZ,MVVZ1 J1MV I2MH NM(IJFX):XIHZ1:YJVZ1 M(N2)03400 DRAW SOUTH WALL X,Y XHZ,Y H M( ".";:IWALK MHH:MVVK RANDOM PT AT SOUTH AS STARTING POINTb I((1)(MH1))2r M(I1FX)0 III2FX:M(II)M(II)M(M(II)8)8 H((1)(MH1))2 H1H:V1V 500 23:12:"MAZE COMPLETED. ":500 3600 iiL *e 1g   `0`B L`&ee  Ls L0ɀ` ig iiL *e 1g  `` Lp  i `LT  i `L  `0`B L`&ee  Ls L0ɀ` ig <((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP` @nnnooopp ep   1:868:B$:D$;B$:100R C1(CV8):C2CVC18:P1024128C240C1CH:C(P): 4 JI14 A(I)A(J)240( TA(I)6 A(I)A(J)A A(J)TH JO IW :` N14k L1Nz A(L);" "; L ::1000: " I140 "*"; I    I"LOAD")B$"B"B$ @CH639:1000:B$B$(C):CH:"THIS IS THE ARRAY REVERSED=", X:1000:7 ZN17B dTA(N)S nA(N)A(15N)a xA(15N)Th Nt J114 A(J);" "; J ::1000: -6,4,11,2,17,1,0,15,-7,31,11,4,-6,8 " THIS IS THE ARRAY IN NUMERICAL ORDER=" I114 I" THIS IS THE THIRD ARRAY DONE BY KURT WINN ON MAY 7, 1986."O] :1000:w KURT WINN, PERIOD 5A(14)I114(A(I)2A(I);" ";<TTA(I)FIK:1000:P:U" THE TOTAL OF THE ARRAY IS "TV W   .ϠQŠtؠԠנҠˠ:70 1,0,4,0I 109,56,63,63,44,45,45,13,8,63,31,63,63,56,56,56 48,146,45,69,41,33,33,33,33,219,23,23,18,36,35,12,56,155,4,0I1(A$):(A$,I,1);Z(16336)::I1700:I(222)255Ħ::10"THE SCORENK\GN1ĺ"DON'T BE SUCH A HOSER!! NOW PUT DOWN THE RIGHT NUMBER!":850df232,72:233,3:1:0ppI019wzJI768,J: 160,0,136,208,253,173,48,192,206,1,3,206,1,3,206,1,3,208,237,96I039JI840,J:I11500:I:NTAL SHOT, AND 90 FOR STRAIGHT UP.":9907 21:34,20B*P124"PLAYER ";P;:", WHAT IS YOUR NAME? ";P$(P):(P$(P))10ė:"PLEASE USE A NAME LESS THAN 10 LETTERS":820>:HD(X)(X(1))R"HOW MANY TOTAL GAMES DO YOU WISH TO PLAY";GYOUR OPPONENT BY SHOOTING AT THEPROPER ANGLE AND VELOCITY,":990y:A$"WHILE COMPENSATING FOR WIND AND TERRAIN.":990 A$"EACH GUNNER MUST ENTER THE GUN ELEVATIONAND THE SHELL VELOCITY.":990:(A$"THE ELEVATION MUST BE BETWEEN 0 FOR A HORIZOTHE NERDS ***":21(A$)2aI1(A$):(A$,I,1);:Z(16336)(16336)(16336)(16336):gxI12000:I22"WOULD YOU LIKE INSTRUCTIONS ? (Y/N) ";A$A$"Y"ė:800:3:A$"GAME RULES ARE SIMPLE:":990:@A$"BLOW UP TS **NNN5N:J14:KNN5J:A(K)A(K1):V(K)V(K1)::V(NN)V:A(NN)ANG:j** DRAW WIND VECTOR **7:142W,150143W,150SS(W)I15:Y150I:X140WSSIX,YX1,YY150I:X,YX1,Y:::10:A$"*** CASTLE OF )0:V(I)0::N13N1::80$:1040*DEN** DRAW THE CASTLE **|X6:XL(N)2:YH(L(N))1:I23:XI,Y1XI,Y2:bX4,Y4X4,Y2:X3,Y4X3,Y2:X,Y4X,Y2:X1,Y4X1,Y2lX4,Y4X4,Y2:X5,Y4X5,Y2:v** RECORD LAST SHO(N))3500B::768:"YOU HOSER--- DON'T DROP YOUR AMMO!":550e768:1X,Y:1X,Y:1X,Y:220:I1306:I:"POW";:768::30:768:"KABOOM!":768WINNKK11000:KKN3N&S(3N)S(3N)1:S(3N)S(N)GN10400I110:A(I6:YH(MN) hXX7(N2)( rX,Y:OX0U |XXV110:V1V1(WV1)30:X0X279220k YYV210:V2V26x Y1430 OXēOX,0:OX0 7:X,Y:440 OXX:N H(X2)Y2380 YH(X2)2:5 1X,Y (X2L(3N))3510 (X2L 34,20: V350310r "768:768:::"YOUR CANNON BLEW APART, YOU HOSER!!!":"NEXT TIME- - - - WATCH IT!!" 'I11000:I ,550 6630 @N2ANG180ANG JV1(ANG.0174533)V:V2(ANG.0174533)V T769,129:768 ^MNL(N):XL(N)2:10:"WIND AT ";W:650:I11500:I:NN1e :N3N:S5N4::28N27:P$(N);:5527N::P$(3N); I03:12I4:A(S4I);:: "LAST SHOTS";:I03:12I4:V(S4I);:I::934,22 N "CALL YOUR SHOT - (ELEVATION, VELOCITY)? ";ANG,V 28::"VICTOR":4 A180:R180(X3X11):NH(1)D1e IX11X31:AAR:H(I)(A.0174533)D1N: A0:R180(X2X31):NH(139)D2 IX31X21:AAR:H(I)(A.0174533)D2N: :"THE DAY OF RECKCONING HAS ARRIVED . . .":40) WD(100)501:6004 dN158D(58):IX2139:H(I)N::N2:600G nKK11000:KK xX3X1D(X2X120)10:H(X3)50D(100):NH(X3)2:D1NH(1)2:D2NH(139)2 :"THE SCORE: ";P$(1);:23:" =";S(1):13:P$(2);:23:" =";S(2) S(1)S(2)0160 21WIN:  :H(139):7208(** CREATE THE PROFILE **^25:I12782:I,H(I2)1I,159:d<F:23:" ONE CASTLE FOR EACH OF YOU....":N12PX120D(30):X280D(40):L(1)10D(X110):L(2)X2D(120X2) ZN158D(58):I0X1:H(I)N::N      .ԠA,ROBERT","FOX,MICHAEL J.","KHAN,GHENGIS","ARMSTRONG,NEIL" E 2A$(I)L <IX FI111d PVI11y ZA$(V)A$(I)140 dT$A$(I) xA$(I)A$(V) A$(V)T$ V I : " THESE ARE THE NAMES ALPHABETIZED=" :1000 L111 D KURT WINN ,PERIOD 5!- A$(11)Z " THESE ARE THE NAMES I HAVE SELECTED="f :1000rI111}A$(I): ( "ANDREWS,JOHN","FARRAGUT,DAVID ","KENNEDY,JOHN","NIXON,RICHARD ","MARTIN,DEAN","GLEASON,JACKIE ","NIMITZ,CHESTER","KENNEDY A$(L) L  % I140/ "~";6 I< B I  2 I1939' 0,39I.I615D10,2417R(14,2014`214,2020n<12,2217|F14,2020K14,2014P5ZC36201_5dC,16h0iC,16jF150:FnCdI "  2!I1939-(0,39I42I;<5F=Q12TF11,2515bP12,2516pZ13,2517~d14,2418n16,1714x14,181316,1216,1115" TORPEDO AWAY!"14,201410,241714,2020 14!",2014 12,2217" 14,2020/ C13107 15G K39201O 15X K,Kh Z1250:Zo 2x K,K K C1 "2 '150 613 @7,2918 J8,2817 T9,2716 ^9,2615 h10,2514 r12,2313 |15,2012