!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYS!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYSPP PP PP PP H(PP P@#HP$A#($AP(@ wj120:EQ,TZ:AC::@210,"G A L A C T I C T R A D E R":@348,"VERSION 3.0")kF(20,20),EX(101),EA(101),DB(101),DC(101),ED(101),C(19),PA(19),PB(19),PC(19):ZE1:SD1:C(0):AL"WHAT":AN" DO YOU HAVE TO":AM"HOW MANY"kAO" WOULD YOU LIKE":AP"dO YOU ACCEPT?":AQ"wILL YOU":AR" MEET ME PART WAY?":AS" OFFER"::CT"TRADE":AT" FUEL":AU" MILLITS":::"LEVEL OF DIFFICULTY (1 EASY TO 10 HARD)";SO:SO11SO:SO13:P119:96flPP1:95:T9110:@585," PLANETFALL: ";C(P);:T81170::@586,(25," ");:T8130:T8,T9:P0124l@66,"ORBITING: ";C(P);:89:24Bm@385,"COMMAND MODE:";:@520,"=C= COMPUTER CENTRAL";:@584,"=E= EMBARK";:@648,"=t= INVITATION TO "CT;:@712,"=F="AT" CARTEL OFFICES";:90:A"Q"99:A"E"ʑ89:85:A"C"ʑ42:6cmA"T"ʑ89:24:A"F"77:6mT96525764:@T9,(39,32);:4n A(170)(26)(8):B(149)(26)(8):B5"":B6"":T1ZE:B5B5B:B6B6A::@0,(41,176);:@104,A;A;A;A;:@64,B;B;B;B;:@320,(41,179);:@234,(151);(20,131);(171);n @298,B5;:@319,B6;:@384,B;B;B;B;B;B;:@424,A;A;A;A;A;A;:@768,(41,131);:Z1ZE:ZE1ʲ@17164ZE,(20,32);:Z1ZE17o @23464Z1,(22,131);:T80:@29964Z1,(20,32);:T907:(RD(T9))0ʲ@299T8,CN(T9)": ";:@310T8,A5;(RD(T9));:T8T864::ro SDSD.01:@45,"STARDATE: ";(SD);:@170,"CARGO:";:15o89:95:T8130:@586,"SHIP UNDER ATTACK";:41:@586,(20,32);:T917:T9,T8:T714:T81130:255,8:255,3::40::KF0:99pRM1E10WE999:A5"#########":A4"##,#########":@29864Z1,"CASH: ";:A4;RM;:" CR";:@36164Z1,AT": ";:A4;RF;:" ML";:ZE1@300," HOLD EMPTY ";)qRQ0:WE9ʒ:@42664Z1,(21,32);:RTRMRF2:T907:RQRQRD(T9)P(T9)::SD100099:RTRQ50(RQ0RM50)122:KF1SK.5SD14:qF90ʑ103:F91:5:T907:G(T9)0::KF0:RFRFRW3:RF0RF0:15:87:P0RFRFRW2:15:15rP2P:F(P,P1)F(P,P1)1:Z1:95:@585,"DESTINATION: ";C(P1);:@643,"ESTIMATED ARRIVAL: STARDATE ";(SDE);:19:20&rX(Z)(40)20:Y(Z)7(2):rWE9:T1E:T8242:@20T864,"!";::@204,"- - - - + - - - - -";:SDSD1:RFRF(RW10(100)50)20:RF087:13:Z13:X(Z)40XNX(Z)2:XNX(Z)2rY(Z)9YNY(Z)1:YNY(Z)1#s(X(Z),Y(Z)):XN79XN1YN14YN3ʑ19:X(Z)XN:Y(Z)YNWs(X(Z),Y(Z)):Z,T:102:WE0:P10EGEG1:4:4sSFF(P1,P2)F(P2,P1):SF2121:95:@519,"A "CT"R APPROACHES.";:PS838:@650,"SHALL I ADMIT HIM?";:118:A"N"ʑ89:6:I1P:T07:I2H(T):94:123::89tP0ʲ@832,"GOOD MORNING "CM((10)1)".";:T07:PO(T)P(T)::@898,AL;AN;" SELL?":90:105:B"BDFGHJTPDNMKLMNPRSTV":A"AAEIOEIOUY":95:@580,"THIS IS MR. ";:T12(2)0u(B,(15),1);(A,(6),1);::", "CM(8)".";:@712,"(CALL =C= FOR ASSISTANCE)";:38:38:89:@832,"HELLO "CM((10)1)". "AL;AN" "CT"?";uKT0:113:A"N"114:@898,A;:XVXU:G(XU)175:G(XU)1:39:92:@832,AM;AN" "CT"?";:PS898:104:RN(B):39:R2P(XU)RN:X0:XX0:T907:T5(T9)0::RN174<A:(XP,YP):A"R"A"":89:119:42:(14400)3268:(14400)6469:(14400)870:(14400)1671:T417::(XP,YP):A""ʑ13:60:93:A"X"60=XLPA(XU)78602:YLPB(XU)176018:@898,A,"(";PA(XU);PB(XU);PC(XU);") ";:XN120:(XL,YL):41:(XL,YL):41:>(XP,YP)63:(XP,YP):XZ14::(XP,YP):60,?XZ019:XGPA(XZ)78602:YGPB(XZ)176018:XGXPYGYP64:65i@@898,C(XZ),"(";PA(XZ);PB(XZ);PC(XZ);") ";:T91500:AXZ:(XP1,YP)66:XPXP1:60B(XP,YP1)67:YPYP1:60łCXPXP1:YPYP1:60D(XP,YP):XP1XPXP1:62:62 E(XP,YP):XP80XPXP1:62:62-F(XP,YP):YP18YPYP1:62:62PG(XP,YP):YP35YPYP1:62:62HP(XU)R32.5RNP(XV)74:R6P(XU)R3P(XV)RN:R7RNP(XV)R6:R7R7P(XU):R71R71kIPS922:@832,"I'LL"AS" YOU "(R7);CN(XU);:@898,AP;:118:A"Y"W90:STR7:TXU:31:W9974:@832,AQ;AR;:PS898:118:A"Y"W99:R61E6R7R72(R6P(XU)):73:R7R7R6P(XU)(3):73J92:W90:@832,"I'M SORRY ";CM((10)1);".";:33K39:92:@832,"I BELIEVE THAT MATTER IS SETTLED, ";CM((10)1);".";:39:33L39:92:@832,"I DON'T LIKE A MAN WHO SELLS "AL;:@898,"HE DOES NOT OWN.";:38:92:@832,"YOU HAVE ONE MINUTE TO DEPART.";:SKSD:KF1:38:92:89:6DMPS920:89:@832,"GOOD DAY ";CM((10)1);". "AM;AU;:@898,AT;AO"? ";:104:RN(B):41:92:@832,AQ" PAY CASH?";:PS898:118:A"N"79:RMRMRN2:RM0RMRMRN2:88:83:RFRFRNON39:6O40:92:@832,AL;AN;AS"?";:113:A"N"114:@898,A;:39:92:@832,AM" DO YOU"AS"?";:PS898:104:RN(B):I1P:I2H(XU):TXU:94:123:92:R2P(XU)RN4SP@832,"i'LL"AS;(R2);"MILLITS FOR THEM.";:@898,AP;:PS921:118:A"Y"81:@832,"WELL THEN...";:79Q@832,"GOOD...";:RD(XU)RN76:RD(XU)RD(XU)RN:RD(XU)1RN0ZEZE1RRFRFR2:9:41:92:@832,AO" ANY MORE"AT"?";:PS898:118:A"Y"79:114SRNRM2:RN179:84oT@832,"I'LL SELL YOU ";(RN)AU".";:RMRM(RN)2:@898,"YOU CAN "CT" FOR THE REST.";:RFRFRN:39:79UWP9:@832,"YES SIR.";:@898,"WHERE TO?";:90:A"R"ʑ92:6:93:92:A"X"85:@832,A;:@580,C(P);:I1P:48:P1XU:40:WP0:89:92:@832,"AYE AYE, "CM(8);:39V92:PP1ʲ@832,"I MEAN NO SIR!!!";:@898,"THAT'S WHERE WE ARE NOW!";:38:92:6:RW10:T907:RWRWRD(T9)::8:17CW:38:T130:@(1023),"*";:41::38:@583,"YOU ARE LOST IN THE VOID OF SPACE";:38:@720,"DRIFTING....";:38:@810,"OUT OF"AT"...";:38:38:@930,"SO SORRY...";:RF0:38:99X92:@832,"SORRY ";CM((10)1);", WE GIVE NO CREDIT!!";:39:92:ɊYT838570564:@T8,(39,32);::Y1835:(1,Y):(80,Y)::ZA:13:A""90:[XU07:(CN(XU),1)AACN(XU):::A"N"ʒ:A"X":B\@832,(42,32);:@896,(42,32);:r]XU019:(C(XU),1)AAC(XU):::A"X":^E((PA(I1)PA(I2))2(PB(I1)PB(I2))2(PC(I1)PC(I2))2):ދ_@385,"COMPUTER CENTRAL REPORTING:";:`T9(19):C(T9)""ʋC(T9)::96ɌaP04:PA(P)(30)23:PB(P)(30)23:PC(P)(5)5::P514:PA(P)(45)15:PB(P)(45)15:PC(P)(15)::P1519:PA(P)(60):PB(P)(60):PC(P)(15):P:RM1000:RF1000:T07:H(T)(20)1:CN(T)b::P09:CM(P):::P0:9:17cWE9:9:89:SCRM:T07:SCSCRD(T)P(T)::@579,"ASSET VALUE: ";SC;" CREDITS !";:@460,"GAME OVER!";:@714,"SCORE: ";SC(SD100);:92:@832,"WANT TO PLAY AGAIN?";:A:90:WE0::F90{d(A,1)"Y"ʎ::"GALACTICA","PROYC","ALHAMBRA","YANG-TZU","MOONSWEEP","SPARTA","JAVINY","BOK","EVENTIDE","LLYTHLL","OOTSI","UTOPIA","TWRYX","DRASSA 2","FARSIDE","KGOTLA","NOVENA","VIEJO","ZOE","HARKON",e"TENIBLES","SILICATES","HEMPITES","FEELIES","MICROBES","DOPAE","PYLATES","VHIOLANS","BWANA","SAHIB","BUDDY","FRIEND","EFFENDI","BROTHER","CAPTAIN","MISTER","SIR","COMRADE"̏f@212,(174);(132);:40:@211,(136)(191)(157);:40:@148," ";:@204,(22,32);:@210,(160)(190)(191)(191)(180);:@275,(139)(143)(143)(129);:40Ng@207,(32)(176)(184)(188)(188);(7,191);(189)(188)(188)(176)(144);:@269,(160)(188);(17,191);(189)(180);:40:ːhA:A""104:A"C"WA9:42:WA0:104:(A)48(A)57104:@PS,"";:A;:BA:T91200:A:A(13)ʒ:BBA:A;::viA"N"ʑ92:@898,"NOTHING";:39:92:110:91:A"X"RD(XU)1ʑ90:105:92:@898,A;:39:92:@832,"I'LL GIVE YOU ";(P(XU).9);" CREDITS EACH";:@898,AP;:A1A:PS919j118:A"N"ʲ@832,"WELL THEN, "AO" TO SELL";:@898,"ANYTHING ELSE? ";:PS914:118:A"Y"ʑ92:@832,AL"?";:90:105:110Pk92:@832,AM" "A1;AN;" SELL? ";:PS898:104:ST(B):ST1ST0:109:RD(XU)STSTRD(XU)l39:92:@832,"OK...";:RD(XU)ST1ZEZE1͒mRD(XU)RD(XU)ST:RMRMST(P(XU).9):9:92:117:" TO SELL?";:90:105nPS898:@832,AO" TO MAKE ANY PURCHASES?";:118:A"Y"111:114to89:@832,"HERE ARE MY PRICES....";:@898,AL" WOULD YOU LIKE TO BUY?":112:113:A"N"114:115ʓpT03:@450T64,CN(T);PO(T);"EA";::T47:@469(T4)64,CN(T);PO(T);"EA";::/q90:A"C"XAXU:WA9:42:XUXA:WA0:113:91:A"X"113:A"N"ʲ@898,"NOTHING";(20,32);::|r40:92:@832,"I'LL TAKE MY LEAVE THEN. GOOD DAY, SIR.";:38:89:92:6s92:@832,AM" "A;AO" TO BUY?";:PS898:A1A:104:R(B):AA1:R1ʑ92:111:RMRP(XU)0ʑ88:115:RMRMRP(XU):RD(XU)0ZEZE1Qt92:@832,"OK...";:RD(XU)RD(XU)R:9:92:117:"?";:113:A"N"114:115ju@832,AL" ELSE"AO;:̕v90:A"N"ʲ@PS,"NO";:39:92::A"Y"ʲ@PS,"YES";:39:92::A"C"WA9:42:WA0:118:118w@896,(42,32);:x92:@832,"YOU JEST, ";CM((10)1):38:92:34y89:95:@516,"INTERMEDIARY CONSORTIUM NOW HAS";:@580,"EXCLUSIVE ON "C(P1)"-"C(P2);:@644,CT" ROUTE. WE MUST LEAVE.";:38:38:38:38:89:6zWE9:92:89:38:95:@520,"SITUATION HOPELESS.";:@655,"TAKE UP FARMING.";:38:38:99F{RY(T1)(1.1SO150)(E1):RY32000P(T)RY::P(T)32000:|89:95:(2SO2EG)1EG1ʲ@578,"EMPEROR HAS HAD YOU ASSASSINATED.";:@647,"TOUGH LUCK, ";CM((10)1)".";:38:38:89:99:@519,"TRIPS TO GALACTICA: ";EG;R}@583,"PROBABILITY OF ASSASSINATION";:@650,"ON NEXT VISIT: ";(100(2SO2EG));"%";:38:38:89:BM4019 DRV BMCOLORDRV ueBMGRX DRV +BP8II DRV j * 'AWARI' IS COMPATIBLE WITH LEVEL 2 AND DISK BASIC *j:20);"AWARI"j15);"MILSON LINE COMPUTERS"j 0j B(13),G(13),F(50): Nj::E0k I0 12:B(I)3:kC0:F(N)0:B(13)0:B(6)0(k# 500@k("YOUR MOVE";: 110Ok- E0 80ak2 MH 100pk7 E0 80k<"MY MOVE IS ";: 800kA E0 80kF MH ",";: 800kK E0 35kP:"GAME OVER" lUDB(6)B(13): D0 "I WIN BY";D;"POINTS": 20.lZNN1:D0 "DRAWN GAME": 20Pl_"YOU WIN BY";D;"POINTS": 20^ld"AGAIN";ln M: M7 M0 MM1: 130lx"ILLEGAL MOVE": 100l B(M)0 120lH6: 200l 500lKM: 600lE0: K6 KK7 mCC1: C9 F(N)F(N)6K)m I0 5: B(I)0 2301m I7mXm I7 12: B(I)0 E1:bm 220pm:" ";m I12 7 1: 580m Im:I13: 580m" ";: B(6):" ";m  I0 5: 580m Im::nD B(I)10 " ";nI B(I);:.nXPB(M):B(M)0Wn] PP 1 1:MM1: M13 MM14knbB(M)B(M)1: Png B(M)1 M6 M13 B(12M)0 625nlnqB(H)B(H)B(12M)1:B(M)0:B(12M)0:n D99:H13n% I0 13:G(I)B(I): Io* J7 12: B(J)0 885-o/G0:MJ: 600Jo4 I0 5: B(I)0 845[o9LB(I)I:R0yo> L13 LL14:R1: 830oC B(L)0 L6 L 13 RB(12L)RoH RQ QRoM IoRQB(13)B(6)Q: C8 875oWKJ: K6 KK7+p\ I0 N1: F(N)6K(F(I)6(7C).1) QQ23pf IPpk I0 13:B(I)G(I): Iepp QD AJ:DQmpu JpzMA: (42M);: 200p I0 N1: B(I): IpA B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  Qj:200ej 24);"BATTLE"j 18);"MILSON LINE COMPUTERS"jAA1j( DIM F(6,6),H(6,6),A(4),B(4),C(16),L(3)j2 X1 6j3 Y1 6j4F(X,Y)0j5 Yj6 Xk< I1 3kFN4IkP J1 2/kZA(6(0)1)AkdB(6(0)1)SknD(4(0)1)gkx F(A,B)0 90okM0k D 150,340,550,740kB(1)BkB(2)7:B(3)7k K1 Nk M1 240k B(K)6 230k F(A,B(K)1)0 230lB(K1)B(K)1 l 280lM2:l B(1)B(2) B(1)B(3) ZB(1)_l B(2)B(1) B(2)B(3) ZB(2)l B(3)B(1) B(3)B(2) ZB(3)l Z1 90l F(A,Z1)0 90lB(K1)Z1l Kl"F(A,B)92IJl, K1 Nl6F(A,B(K1))F(A,B)m@ K mJ 990mTA(1)A m^B(1)B@mhA(2)0:A(3)0:B(2)0:B(3)0Nmr K1 N^m| M1 460zm A(K)1 B(K)1 450m F(A(K)1,B(K)1)0 450m F(A(K)1,B(K))0 F(A(K)1,B(K))F(A(K),B(K)1) 450mA(K1)A(K)1mB(K1)B(K)1n 530 nM22n A(1)A(2) A(1)A(3) Z1A(1)Xn A(2)A(1) A(2)A(3) Z1A(2)~n A(3)A(1) A(3)A(2) Z1A(3)n B(1)B(2) B(1)B(3) Z2B(1)n B(2)B(1) B(2)B(3) Z2B(2)n B(3)B(1) B(3)B(2) Z2B(3)o Z16 Z26 90!o F(Z11,Z21)0 90Ro F(Z1,Z21)0 F(Z1,Z21)F(Z11,Z2) 90boA(K1)Z11roB(K1)Z21{o Ko 950o&A(1)Ao0A(2)7:A(3)7o: K1 NoD M1 640oN A(K)6 630oX F(A(K)1,B)0 630obA(K1)A(K)1 pl 680pvM26p A(1)A(2) A(1)A(3) ZA(1)[p A(2)A(1) A(2)A(3) ZA(2)p A(3)A(1) A(3)A(2) ZA(3)p Z1 90p F(Z1,B)0 90pA(K1)Z1p KpF(A,B)92IJp K1 NpF(A(K1),B)F(A,B)p Kq 990qA(1)AqB(1)B.qA(2)7:A(3)7@qB(2)0:B(3)0Nq  K1 N^q M1 870zq  A(K)6 B(K)1 860q* F(A(K)1,B(K)1)0 860q4 F(A(K)1,B(K))0 F(A(K)1,B(K))F(A(K),B(K)1) 860q>A(K1)A(K)1qHB(K1)B(K)1rR 940 r\M22rf A(1)A(2) A(1)A(3) Z1A(1)Yrh A(2)A(1) A(2)A(3) Z1A(2)rj A(3)A(1) A(3)A(2) Z1A(3)rp B(1)B(2) B(1)B(3) Z2B(1)rr B(2)B(1) B(2)B(3) Z2B(2)rt B(3)B(1) B(3)B(2) Z2B(3)sz Z11 Z26 90"s F(Z11,Z21)0 90Rs F(Z1,Z21)0 F(Z1,Z21)F(Z11,Z2) 90bsA(K1)Z11rsB(K1)Z21zs KsF(A,B)92IJs K1 NsF(A(K1),B(K1))F(A,B)s Ks Js Ist"THE FOLLOWING CODE OF THE BAD GUY'S FLEET DISPOSITION" X2 195lA X0 40lF X2 200!lP X3 2003lZ X12 200Cl} X5 220Sl X6 220cl X8 220sl X9 220l X10 220l X4 220l: X,"NATURAL......A WINNER!!!"l: X"PAYS EVEN MONEY,YOU WIN"F"DOLLARS"l 210m: X,"SNAKE EYES....YOU LOSE"/m:"YOU LOSE"F"DOLLARS";m F0FEm 210dm: X,"CRAPS.....YOU LOSE"m:"YOU LOSE"F"DOLLARS"m F0Fm RRFm 320m X ,"I WILL ROLL AGAIN"m H(7(0))m Q(7(0))m DHQm D1 230n D7 290n D0 230/n DX 310Vn D, "NO POINT, I WILL ROLL AGAIN"`n 230n": D,"CRAPS.....YOU LOSE"n#:"YOU LOSE $"Fn$F0Fn% 210n, 320n6: X,"A WINNER..........CONGRATS!!!!!!" o7: X "AT 2 TO 1 ODDS PAYS YOU ...LET ME SEE..."2F"DOLLARS"-o8 F2F7o9 210No@:"PLAY AGAIN";M$^oK R0 334noL R0 336~oM R0 338oN: "YOU ARE NOW UNDER $";RoO 340oP:"YOU ARE NOW AHEAD $"RoQ 340oR:"YOU ARE NOW EVEN AT 0"pTII12000::(M$,1)"Y"27#pU R0 3503pV R0 353CpW R0 355vp^:"TOO BAD, YOU ARE IN THE HOLE.COME AGAIN.":p_ 360pa:"CONGRATULATIONS----YOU CAME OUT A WINNER.COME AGAIN!"pb 360qc:"CONGRATULATIONS----YOU CAME OUT EVEN, NOT BAD FOR AN AMATURE"qhj * A GAME OF RUSSIAN ROULETTE WRITTEN IN LEVEL 2 BASIC. CONTAINS SOUND. NOT COMPATIBLE WITH DISK BASICj:100: 15); "RUSSIAN ROULETTE":15);"MILSON LINE COMPUTERS" k: : @k "THIS IS A GAME OF >>>>>>>>>>RUSSIAN ROULETTE"]k :"HERE IS A REVOLVER."k "TYPE '1' TO SPIN CHAMBER AND PULL TRIGGER."k "TYPE '2' TO GIVE UP."k "GO";kN0k Ik I2 35k :@448, 22);"CHICKEN!!!!!"l! 72 l#NN1%l( (0).833333 705l- N10 80Gl2 "- CLICK -"Sl<: 30lF:@390, " BANG!!!!! YOU'RE DEAD!"lG@454, "CONDOLENCES WILL BE SENT TO YOUR RELATIVES."lH::: N1 1000:lK "...NEXT VICTIM...": 20mP:@384, "YOU WIN!!!!!"DmU@448, "LET SOMEBODY ELSE BLOW HIS BRAINS OUT."WmW N1 2000:cmZ : 10imcUTILS Y&CONFIG OLDaZ&INTRAY u''ACONFIG MINq|mj:1000: 16);"GAME OF EVEN WINS"j 16);"MILSON LINE COMPUTERS"j::j"DO YOU WANT INSTRUCTIONS (YES OR NO)";A$j (A$,1)"N" 20 k::"THE GAME IS PLAYED AS FOLLOWS:"Lk"AT THE BEGINNING OF THE GAME, A RANDOM NUMBER OF CHIPS ARE"k"PLACED ON THE BOARD. THE NUMBER OF CHIPS ALWAYS STARTS"k "AS AN ODD NUMBER. ON EACH TURN, A PLAYER MUST TAKE ONE,"l "TWO, THREE, OR FOUR CHIPS. THE WINNER IS THE PLAYER WHO"Dl "FINISHES WITH A TOTAL NUMBER OF CHIPS THAT IS EVEN."l "THE COMPUTER STARTS OUT ONLY KNOWING THE RULES OF THE"l "GAME. IT GRADUALLY LEARNS TO PLAY WELL. IT SHOULD BE"l "DIFFICULT TO BEAT THE COMPUTER AFTER 20 GAMES IN A ROWm"TRY IT!!!!":Cm"TO QUIT AT ANY TIME TYPE '0' AS YOUR MOVE.":hm"TO START GAME PRESS THE D KEY"{mA$:A$""18m: R(1,5)mL0:B0m I0 5m(R(1,I)4m2R(0,I)4m< ImFA0:B0mZP((13(0)9)2)21md P1 530(nn:"THERE ARE";P;"CHIPS ON THE BOARD."1nxE1E:nL1LOnE(A2(A2))2jnL((P6(P6))6.5)n R(E,L)P 320nMR(E,L)n M0 370nPPMn M1 510n"COMPUTER TAKES";M;"CHIPS LEAVING";P;"... YOUR MOVE";nBBMo MoM(M) o M1 4500o M4 460@o MP 460Po MP 360Zo"PPMdo,AAMno6 100~o@ P1 550oJ"COMPUTER TAKES";P;"CHIPS."oTR(E,L)Po^BBPoh B2(B2) 420or"GAME OVER ... YOU WIN!!!":p R(E,L)1 480pR(E,L)R(E,L)1!p 70Ap"GAME OVER ... I WIN!!!":Jp 70Zp M0 570p M;"IS AN ILLEGAL MOVE ... YOUR MOVE";p 230p R(E1,L1)1 70pR(E1,L1)R(E1,L1)1p 70q"COMPUTER TAKES 1 CHIP LEAVING";P;"... YOUR MOVE"; q 2201q"THERE IS ONE CHIP ON THE BOARD.";q 120Yq&"COMPUTER TAKES 1 CHIP."cq0 340q::@448,8)"GOODBYE, HOPE YOU ENJOYED YOURSELF."qD N1 2000: N:qNk B(K)6 230k F(A,B(K)1)0 230lB(K1)B(K)1 l 280lM2:l B(1)B(2) B(1)B(3) ZB(1)_l B(2)Rj : j2000:AU,WZ:FL0:L528::16722,1::*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*wkFM$(17),FB$(1),FE$(13),FL$(4),FC$(6):FV!(FL)::*=*=* *=*=* *=*=* 'FROGS' BY WILLIAM DEMAS JULY/AUGUST 1980 *=*=*&l(CA$"":::*=*=* MINIMUM SYSTEM REQUIRED - TRS-80 LEVEL II 16K *=*=* *=*=* *=*=*l2VL(L):S$"++":SP!(S$):VL0VLVL65536::*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* l<BS999:SP!1SP!SP!65536lmFSS$"!n#^#V~+ O#F>> #1{ WILLIAM DEMAS":S1((SS$)1):S2((SS$)2):16792,S1:16793,S2:SSS2256S1:S9SP!256:S8SP!S9256:SS2,S8:SS3,S9mP(16396)201"T":300:300mZFL8:FL3ʁX120:::FL5ʁX17:::FL7ʁX12::XndTFTF1:TVFL:@L8,FE$(12);:@L136,FM$(1);:@L140,;:S$A$(2):::S$A$(1)::TVFLʲ@L8,FE$(8);:120::@L136,FM$(2);:140nnTFTF1:TVFL:@L8,FE$(11);:@L136,FM$(0);:@L143,;:S$A$(2):::S$A$(1)::TVFLʲ@L8,FE$(8);::@L136,FM$(3);:140nxTF6Z(TU)5:TF0::!oZ33Z33:TU,Z:TN,Z:::TU,Z:TN,Z:oS$A$(3):Z14:160::@L8,FE$(13);:Z12:160::PL136:T1(5)1:@P,FM$(4);::160:@P,FM$(5);::160:@P,FM$(4);::160:@L8,FE$(8);::160:9p@P,FM$(7);:Z12:160::@P,FM$(6);:160:Z113::@L8,FE$(8);:120:Z12:160::170:FL0730:Z(6):Z210,200Ep90::pUVI1:Y24:@L9,FE$(Y);:90:::Y411:@L9,FE$(Y);:90:::pZ1(6)1:90::@L8,FE$(9);:90::@L8,FE$(8);:90::@L8,FE$(10);:90::@L8,FE$(8);::190:230MqPL136:Q1(11)3:(10)630,640,650,660,670,680,690,700,710,720:(3)3cq:@L8,FE$(8);:qVIVI1:T06:@L134,FC$(T);::Y1(20):90:::T501:@L134,FC$(T);::,rVIVI1:Q(2):@L8,FE$(Q8);:90::@L8,FE$(Q10);:P1(30):90:::@L8,FE$(Q8);:90::@L8,FE$(8);:nrVIVI1:@L9,FE$((3)4);:P1(15):90:::@L8,FE$(8);:rL529RL32:RL165sO(4):O1@R,"I'LL FALL OFF!";::O2@R,"I'M OUT OF";:@R64,"WALKING ROOM!";::O3@R,"THIS IS AS";:@R64,"FAR AS I GO!";::@R,"I CAN'T GO";:@R64,"THAT WAY!";s(4)220,200,170,210:Z115:90:X19::::@R," ";:@R64," ";:tS$A$(3):KV8@L,"";:@L8,FE$(9);:Y12:90:::(L15838)134180:@L150,FB$(0);::T12:90:::290EtKV8ʏ(16722)1@L," ";:LL4::::::t@L8,FE$(10);:Y12:90:::(L15677)128180:@L129,FB$(1);::Y12:90:::290:(16722)1::::LL4:L15360,128:::Nu"P1619316211:(P)128ʇ::(16722)1P,32:P2,128:::P216191P2,128:::P,128:KV8LL2:::@L," ";:LL2:,v," ˠ ˪ ˪ ˪":AU$"WM. DEMAS":L2VL256:L1VLL2256w6F$"":F1((F$)1):F2((F$)2)w@L$"":O1((L$)1):O2((L$)2)CxJHA$(CA$,12):N$"":FE$(1)""HA$N$:FE$(2)""HA$N$:FE$(3)""HA$N$:FE$(4)(FE$(3),23)""xTN$"":FE$(5)""HA$N$:FE$(6)""HA$N$:FE$(7)""HA$N$|y^N$(CA$,14):FE$(8)""N$""N$"":N$(CA$,13):FE$(9)""N$""N$"":FE$(10)""N$""N$""yhFE$(12)""N$""N$(FE$(10),51,12):FE$(11)""N$""N$(FE$(9),51,12)zrN$(CA$,14):HA$""N$"":FC$(0)HA$"":FC$(1)HA$"":FC$(2)HA$"":N$N$"":FC$(3)""N$""N$""N$""{|FC$(4)""N$""N$""N$"":FC$(5)""N$""N$""N$""|FC$(6)""N$""N$""N$""|FL$(0)"":FL$(1)"":FL$(2)"":FL$(3)"":FL$(4)"":FB$(0)"":FB$(1)""|}FM$(8)"":FM$(9)"":FM$(10)"":FM$(11)"":FM$(12)"":FM$(13)"":FM$(14)"":FM$(15)""}FM$(16)"":FM$(17)""~FL$"!@<#|> ~ ((!%SSA(9((((!T!T !T!T!T[SA####!%((>B@!%(B |>(~ #*SA> w#SSA BY WILLIAM DEMAS ......................"]FM$"!n> :RA 5544@? :RA {A 2RA S >2RA !=##>q#!O,!%!N!#%WILLIAM DEMAS":V1((FM$)1):V2((FM$)2)ATL$"X!bX~<x0(8[ @(#> !~n5>9_~<#:(޼                WILLIAM DEMAS"%TR$"Y!FY~<x0(8[ @(#> !~n5>9_~<#:(޼                WILLIAM DEMAS"āN$(0)"":N$(1)"":N$(2)"":N$(3)"":N$(4)""cN$(5)"":N$(6)"":N$(7)"":N$(8)"":N$(9)""FE$(13)(FE$(8),54)"":FM$(2)"":FM$(3)"":FM$(4)(FE$(13),55,13):FM$(5)""FM$(0)"":FM$(1)"":FM$(6)"":FM$(7)"":@406,(FL$,184,20):L658:CL:Z117429:@C,(F$,Z,29);:CC64::16803,201:Z125:Y(8):Y160,170,190,200,210wY175:Y,Z:VAV2256V1:VAVA(VA32767)65536:M1((FL$)1):M2((FL$)2):M!M2256M157:M!M!(M!32767)65536:16422,V1:16423,V2:VA2,L1:VA3,L2:VA93,O1:FV!1FV!FV!65536VA94,O2:VA117,F1:VA118,F2:16804,M1:16805,M2:SKM!34:T04:Z((FL$(T))1):Y((FL$(T))2):M!,Z:M!1,Y:M!M!5::T1((TL$)1):T2((TL$)2)TL!T2256T1:BT!TL!146:TT!TL!88:Q2FV!256:Q1FV!Q2256:TL!TL!(TL!32767)65536:TL!50,Q1:TL!51,Q2:W2BT!256:W1BT!W2256:V2(TT!256):V1(TT!V2256):TL!2,W1:TL!3,W2:TL!5,V1:TL!6,V2TUTL!23:16732,T1:16733,T2:R1((TR$)1):R2((TR$)2):TR!R2256R1:TX!TR!88:TR!TR!(TR!32767)65536:BX!TX!58:TR!50,Q1:TR!51,Q2:Y2BX!256:Y1BX!Y2256:Z2TX!256:Z1TX!Z2256F&TR!2,Y1:TR!3,Y2:TR!5,Z1:TR!6,Z2:TNTR!23:16780,R1:16781,R2:A$(1)" +":A$(2)" +":A$(3)"+":800t0:610:950:15892,128:16205,128:L532:χ:VIVI1:(5)3:A$:A$""KV(A$):KV8KV9260:KV91100::KV81KV113110D90::V(9):V2ʑ90::570@NZ(20):Z5220:570::Z7170:570::Z3200:570:Z2210:570:570b"FROGONALOG";:Y347:(1,Y):(127,Y)::ˈlZ64:T17:@Z,"";:ZZ64::vS$"+":@P,FM$(8);::%S$"+":@P,FM$(9);::SS$"+":@P,FM$(10);::S$"((((((((((((((((((+":@P,FM$(11);::S$" +":@0,FM$(12);::݉S$"+":@P,FM$(13);:: S$"+":@P,FM$(14);::9S$"+":@P,FM$(15);::gS$"$$$$$$$$$$$$$$$$$$+":@P,FM$(16);::S$" +":@P,FM$(17);::Ê16803,201:190:SCVIFT.5:SC999SC999ފL529RL32:RL16aZ(5):Z1@R,"GOOD MEAL!";:Z2@R,"SLURP!";:Z3@R,"SMACK!";:Z4@R,"CRRROAK!";:@R,"THANKS FOR";:@R64,"THE MEAL!";T15:860::250:SC$(SC):LE(SC$):LE4NP217:LE3NP220:NP222*S$" +":Z197NP8:@Z,"";:@443Z,"";::S$"  +":@91,"YOUR SCORE";:Z2LE:A((SC$,Z,1)):@NP,N$(A48);::NPNP5:SCBSBSSC:S$"?\`@p][`kH_T+":@148,"* B E S T S C O R E *";:1 Z115:860::@R," ";:@R64," ";:190` @R,"WANT TO PLAY";:@R64,"AGAIN? (Y-N)";860:A$:A$""790:A$"Y"A$"y"250:930A$"N"A$"n"790:: @458,"DO YOU WANT TO SEE THE INSTRUCTIONS ? (Y - N)";:D66:E130:F194:G258:H322:TU,58:TN,58V*860:A$:A$"N"A$"n"560:A$""(A$"Y"A$"y")8104:610:@86,"YOU'RE A HUNGRY FROG";:L530:VL:Y117429:@V,(F$,Y,29);:VV64::R19:860::16205,128:@L," ";::LL2:@E,"SITTING ON A LOG - WAITING FOR A CHANCE TO CATCH YOUR DINNER.";>FL2:@F,"YOU CAN MOVE ALONG THE LOG BY PRESSING THE LEFT & RIGHT ARROW";:@G,"KEYS (] ^). TRY IT NOW, AND THEN PRESS 'ENTER' TO CONTINUE.";:PP0:840:870+HFL1:A$:A$""KV(A$):KV13::KV8KV9260::QQ1ʏKV91100:940::KV81KV113110:940GR(10)4860:840:840\PP1(2)2::(8)220,160,170,160,200,160,210,160:90:]f620:@D,"THE LOG IS FLOATING IN A POND IN AN AREA WHERE THE FLIES ARE";:@E,"PLENTIFUL. YOU MUST CATCH BETWEEN 7 AND 14 FLIES BEFORE YOUR";:@F,"APPETITE IS SATISFIED. AFTER YOU HAVE CAUGHT ALL OF THEM - A";p@G,"SCORE WILL BE DISPLAYED. YOUR SCORE DEPENDS ON THE NUMBER OF";:@H,"FLIES CAUGHT AND THE AMOUNT OF TIME TAKEN TO CATCH THEM ALL.";:@402,"PRESS 'ENTER' TO CONTINUE.";:PP1:840ђz620:ZZ(58)384:XX(5)1:@ZZ,FL$(XX);:@D,"HERE IS A FLY. YOU CATCH IT BY DARTING YOUR TONGUE OUT AT IT.";:@E,"THE UP ARROW ([) DARTS YOUR TONGUE DIAGONALLY UP TO YOUR LEFT";a@F,"AND THE 'Q' KEY DARTS YOUR TONGUE DIAGONALLY UP TO YOUR RIGHT";:@265,"CATCH THIS FLY OR PRESS 'ENTER' TO CONTINUE.";:QQ1:840:QQ06620:@D,"THE FLIES WILL BE HOVERING ABOVE YOU, MOVING RANDOMLY IN ALL";:@E,"DIRECTIONS. BE AWARE THAT YOUR TONGUE WILL BECOME SHORTER AS";:@F,"YOU USE IT MORE OFTEN, MAKING FLIES MORE DIFFICULT TO CATCH."; @G,"CONNECT THE AUX JACK FROM THE TAPE CABLE ON THE COMPUTER TO";:@H,"AN AMPLIFIER FOR SOUND EFFECTS. REMEMBER: BE QUICK, BUT MAKE";:@386,"EACH SHOT COUNT.";:@465,"PRESS 'ENTER' TO BEGIN GAME.";:FL0:840%PP0:620:950:570OTN,58:TU,58:FL1:@ZZ,FL$(XX);:Օ16803,195:FL0:VI0:C15424:Z17:VC:O1(2):V(25),128:VV29:FLFL1::CC64::TN,58:TU,58:TF0:16722,(2):FTFL::Wj::AS,UZj(16396)201ʱ16526,224:16527,127:PZ32736:"T":0&HBFE0:PZ&HBFE0jE3028:Z2:PZE3,Z2:j16561,220:(16396)201ʱ16562,127:16562,191j1200bk 205,127,10,62,1,14,0,237,91,61,64,69,47,230,3,179,211,255,13,40,4,16,246,24,242,37,32,241,201k W$(10):W$(0)"**********":W$(1)"BEGINNER":W$(2)"AMATUER":W$(3)"AVERAGE":W$(4)"MARKSMAN":W$(5)"*EXPERT!*"l H415::(23):"********* SAUCERS **********"::"COPYRIGHT 1979 BY SIMUTEK ENT. ":"ALL RIGHTS RESERVED":A$(183)" "(187)::"INSTRUCTIONS 1/YES 2/NO";G:G15000lT6100:B$(191):H415:D$(191)(140)(140)(191):D1$" "(179)(179)" ",mA4285:A6541:A1346:A2410:A3474:E$(140)(140):CL$" ":1100m-D$(1)(176)(176)(176)(176)(176)(176)(176):D$(2)(191)" "(191):D$(3)(191)(176)(176)(176)(176)(176)(191):D1733:D2797:D3861?n2M(1)73664:M$(1)(191):M(2)80064:M$(2)(191):M(3)D3164:M$(3)(176)(176):M(4)D3464:M$(4)M$(3)nd:(188);:(62,(140));:(188):X6489664:@X,(191):@X63,(191);::X1632016383:X,131::@833,(62,(176));:@415,A$;:@949,W$(0);ne@D1,D$(1);:@D2,D$(2);:@D3,D$(3);Joi@898,"** TIME LEFT: ";(191);"*** HITS: ";(191);"*** LEVEL:";onT6T6.14:@911,(T6);:XQ(650):T602000:E1120osX(120)4:Y(33)4:E1:X1X:Y1YoxE10T(4):E1(7)$pE1E11:T140,145,150,160:(X1,Y11):(X11,Y1):(X11,Y1):(X1,Y):(X1,Y):(X,Y1):170@pY6X1X:Y1Y:YY1:hpE0:(X,Y1):(X1,Y):(X1,Y):115pY39X1X:Y1Y:YY1:p(X1,Y):(X1,Y):(X,Y1):115pX6X1X:Y1Y:XX2:p(X,Y1):(X1,Y):(X1,Y):115qX122X1X:Y1Y:XX2:)q(X,Y1):(X1,Y):(X1,Y):115Eq@H,A$;:T$:T$""175qT$"Z"D1:T$"X"D2:T$","D3:T$"."D4:D5rD145,140,160,150,180:(X11,Y1):(X11,Y1):(X1,Y11):(X,Y1):(X1,Y):(X1,Y):@D1,D$(1);:@D2,D$(2);:@D3,D$(3);:@M(D),M$(D);:110r16096,191:16032,191:15968,191:15904,191:15840,191:CV110:@H,D$;:QA(780):TH12::@H,D1$;::@H,A$;:D0:16073,128:15968,128:15904,128:15840,128r16096,176:16032,128:X62X69Y18Y20195:1000r110sZ13:QB(276):@A1,E3$;:@A2,E4$;:QB(270):@A3,E3$;:@A4,E5$;:@A6,E5$;:QB(266):@H,CL$;:XQ(268):@A1,CL$;:@A2,CL$;:@A3,CL$;:@A4,CL$;:@A6,CL$;:XQ(277)::E0:SS1:@927,S;sS25W5:S18W4:S12W3:S7W2:W1t@949," ";:@949,W$(W);:1100:tLE5$"":E3$"":E4$"":X117:E3$E3$((30)161)" "::X117:E4$E4$" "((35)129)::X113:E5$E5$((30)157)" "::tFX62X69Y18Y20190:1000t:W22050u(23):::" NOT VERY GOOD!!!!":"USING ANYONES STANDARDS!!!" KEY MOVES YOU RIGHT>====>>"x" SPACE BAR FIRES LASER GUN."::"HIT ENTER WHEN FINISED";G$::M*!gD0@BAD PARAMETER CMDBBASGAMES00/00/00 3k +wÍח0>^BOOT SYS` POTHOLE BASBB," RATS BASBB+4]DIR SYS  GALLEY BASBB8$ GALATRADBASBB/) TYCOON BASBB ; BACKGAM BASBB8<+ SUPREME BASBBKB. PLUSZEROBASBB J B1BOMBERBASBBK BATTER BASBBN AWARI BASBB! BATTLE BASBB# CRAPS BASBB! CONVOY BASBB RUSSIAN BASBB SUPERHANBASBB EVENWINSBASBB  FROG BASBB,  MINERS BASBB ROADRACEBASBB POWER BASBB SAUCERS BASBB" HILO BASBB HORSE BASBB# LANDER BASBB% VALKERIEBASBB:.  MAZE3D BASBB% ORBIT BASBB " STEEPL BASBB1  TRACK BASBBi! BASEBALLBASBB BEEWARY BASBB SNAKE BASBB +!Qj:100ajS1306:AA4tj 15);"HI LO"j 15);"MILSON LINE COMPUTERS"j::j$jd "THIS IS A GAME OF HI LO.": kn "YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE"Okx "HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS. IF YOU"k "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!"k "THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY. HOWEVER," l "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS.":lR0lB0:-lY(100(0))Al "YOUR GUESS";Il ASlBB1cl AY 300sl AY 270l "YOUR GUESS IS TOO LOW": 280l "YOUR GUESS IS TOO HIGH"l : B6 200l": "YOU BLEW IT...TOO BAD...THE NUMBER WAS";Y m'R0: 350@m,: "GOT IT!!!!!!!!!!!! YOU WIN ";Y;"DOLLARS."Jm6RRY{m@ "YOUR TOTAL WINNINGS ARE NOW";R;"DOLLARS."mB A1 2000 : AmCm^: "PLAY AGAIN (YES OR NO)";mh A$: A$"YES" 170ms:@472,"GOODBYE":::I11000::j * 'HORSE RACE' SHOULD RUN IN LEVEL 2 AND DISK BASIC *j COPYREIGHT (C) 1979, INSTANT SOFTWARE, INC.jj" HORSE RACE"j(Z1500:ZjZA(600)kd R1 9999-kn 1500: SHOW THE ENTRIES FOR THIS RACEHkp 1600: GET THE BETS[kx RUN THE RACEfk 1200k RACE IS OVER, WAIT 10 SECONDS AND GO AGAINkI11500:Ik COMPUTE WINNINGSk 1800k SEE IF ANYONE HAS MONEYkA(405)0l J1 A(400)#lA(405)A(405)A(100J)+l J@l A(405)0 240ll: "EVERYONE'S BROKE": J1 2000: Jvl 100~l Rl *** CREATE A HORSE AT (M,N) ***l THE HORSE IS CONTAINED IN A 3X7 RECTANGLEm WITH ORIGIN AT THE LOWER LEFT CORNERm DRAW LEGS*m(M1,N): (M4,N):m DRAW BODYmm(M1,N1): (M2,N1): (M3,N1): (M4,N1)}m DRAW HEADm(M5,N2): (M6,N2)mm *** MOVE HORSE AT (M,N) D SPACES TO THE RIGHTm D1 1065n SLIDE HORSE OVER ONE UNIT+n(M7,N2): (M5,N1): (M5,N)8n(M2,N)gn(M1,N1): (M1,N): (M4,N): (M5,N2)tn MM1: n$ FIRST ERASE THE HORSE AT (M,N)n) 1100n. DRAW A NEW HORSEn8MMD: 1000nB nL *** ERASE THE HORSE AT (M,N) ***oV(M1,N): (M4,N)Eo`(M1,N1): (M2,N1): (M3,N1): (M4,N1)`oj(M5,N2): (M6,N2)foto~ *** DRAW A RACE TRACK WITH HORSES AT STARTING GATEo A(I) = PRESENT POSITION OF HORSE, Ip W = NUMBER OF HORSES PAST THE FINISH LINEpW0pM8.p@0,"START":@58,"FINISH"v@ *** GET BETS ***DvBNvDA704[vEA(404)0xvF R1 BA(400): 1620vH GIVE EVERYONE 100 DOLLARSvN "ENTER NUMBER OF BETTORS";BvOA(400)BvP GIVE ALL BETTORS 100 DOLLARS wQ I1 B:A(100I)100: IwT I1 BNwh @ A,"BETTOR ";I;" YOU HAVE ";A(100I);" DOLLARS"fwi A(100I)0 1650}wj BETTOR IS BROKE!wk "YOU ARE BROKE --- SORRY --- COME AGAIN"wl J1 2500: JwmA(500I)0wn 1710xr "ENTER NUMBER OF HORSE YOU'RE BETTING ON ";H3x| (H8) (H1) II1: 1710BxA(200I)Hsx "ENTER 1,2 OR 3 FOR WIN,PLACE OR SHOW ";Px (P1) (P3) II1: 1710xA(300I)Px "ENTER AMOUNT OF BET ";Tx (T0) (TA(100I)) II1: 1710yA(500I)TyA(404)A(404)T+y JA A192 64jy @ J," ";ry Jzy Iyy A(404)0 y "NO ONE BET ANYTHING - RUN NEXT RACE"yRR1y 1600y COMPUTE WINNINGS OR LOSINGSzBA(400): NUM OF BETTORS#z I1 BFz& TEST WHETHER THIS BETTOR WONez0HA(200I): HORSE BET ON|z: HA(401) 1860z; BETTOR'S HORSE WONz< A(300I) 1853,1854,1855z=F6:1890z>F2:1890z?F1:1890zD HA(402) 1870{E BETTOR'S HORSE PLACED2{H A(300I) 1880,1867,1868@{KF3:1890N{LF2:1890e{N HA(403) 1880{O BETTOR'S HORSE SHOWED{R A(300I) 1880,1880,1876{TF3:1890{X BETTOR'S HORSE LOST{ZA(100I)A(100I)A(500I){[ 1897|bA(100I)A(100I)FA(10H)A(500I)$|i I*|jS|lA(100I)A(100I)A(10H)A(500I)FY|ve|A(15)~| I1 A: A$: I| SKIP REST OF FIRST NAMES AND GET SECOND|B(15)| IA1 B15: B$: I|| THE HORSES' FIRST NAMES*} COUNTRY,GRANITE,PERFECT,MONARCH,JEFFREY'ST} COLONEL,BUSTING,SHARP,YOUNG,COUNTRYx} FAST,SWEET,TRUE,FLYING,SUPERB} THE HORSES' LAST NAMES} STAR,CASH,TRICK,MIRACLE,DYNAMO}  KNIGHT,MONEY BOY,SKIPPER,DEVIL} BUNNY,SUPER STAR,FIRE~  LIGHTNING,THUNDER,FLASHRj:1000j : rEAL tIME lUNAR lANDER 1.0 fROM wAL sMITH vIA l r aPPERLEY 20-jULY-1980 iMPROVED & iNSTRUCTIONS ADDED BY p j hYDE 21-jULY-1980 k 254,162k:AG,IZ:: 6200 : INSTRUCTIONSokAD16428 : SPARE ADDRESS (PRINTER DCB) TO STORE THRUSTk AD,0:P0:Q0:M0: : 5000: @66,"FUEL":@81,"HEIGHT"k( @194,"SPEED THRUST TIME"k2 Y1 15:(0,Y):(51,Y):Yl< X0 51:(X,15):(X,1):X7lF F2500:H(5000)33000:S50:T0AlP8000]lU 9000 : COUNTDOWN...uldV$: V$"" 102leP(AD): 105lfP(V$): AD,Pli F0 P0ljZZPlnFFP:TT1:P5P:SSPlsHHSlx H0 H0m F0 F0:P0 mPZZ$mINH0ʑ8000:8010Mm H0 ʲ@145,"0 ";: 1000:500Xm 1000im F0 105tm 100m@512,;: S1ʲ"CONGRATULATIONS, A PERFECT LANDING !!":601mS3S11ʑ10020m7000n S10550: S1 510,515,520,525,530,535,540,545,548n7000#n601Jn"ALMOST PERFECT!! - WELL DONE!":sn"CAN'T DO MUCH BETTER THAN THAT!":n"YOU'RE PRETTY GOOD AT THIS AREN'T YOU?":n "GOOD.. BUT YOU COULD DO BETTER YOU KNOW.":o"COULD YOU GO A LITTLE SLOWER NEXT TIME? I'M THE NERVOUS TYPE":Mo"HEY! - COMPUTERS ARE FRAGILE YOU KNOW!!":|o"NOT MUCH DAMAGE - EXCEPT TO YOUR EGO!":o!"KEERRUNCCHHH!!!":o$"aNY FASTER THAN THAT AND YOU'LL BE SORRY!!!":Hp&17);"<<<<<<< C R A S H ! >>>>>>>":7000: S100ʲ"YOU'VE JUST CAUSED THE BIGGEST MOONQUAKE IN";5(S20)"YEARS!!":601|p+ (S10) 560,565,570,575,580,585,590,595,598p,7000:601p0"TOO BAD! - JUST A LITTLE BIT SLOWER AND YOU WOULD HAVE MADE IT":p5"TSK TSK, SPEEDING AGAIN I SEE...":Cq:"JUST A LITTLE BIT EAGER TO GET ON THE GROUND NOW AREN'T WE??":q?"YOU REALISE THAT YOU HAVE TO PAY FOR EVERY LANDER YOU CRASH?":qD"DON'T TELL ME - YOU THOUGHT GREEN CHEESE WOULD MAKE A SOFT LANDING...":rI"I GUESS WHEN YOU'VE GOTTA GO, YOU'VE GOTTA GO...":HrN"SO YOU WANT TO DRILL FOR OIL THE HARD WAY...":rS"WHO LET YOU NEAR THESE THINGS IN THE FIRST PLACE???":rV"UNFORTUNATELY, YOUR HEAD IS SOFTER THAN THE mOON IS...":rY@ 731,"ANOTHER TRY? ";(14);:A$ sZA$:A$"Y"A$"N"602@s[ A$"Y" @73113,"YES";(15);:T1700:T:20is\ A$"N" @73113,"NO";(15);::xs]A$: 603s O((H.125)100)s OO42:H01013tOO1: S111012:1020:X6777:(X,48(3)):(X,48(3)):X:X7074:(X,43):(X,44):(X,45)::1013t1020:(71,45):(75,45):(70,44):(76,44):(69,45):(77,45):(71,45):(75,45):(70,44):(76,44):(69,45):(77,45)t QO t H31750 @100," ";:t (73,Q):(73,O):(72,Q1):(74,Q1):(72,Q2):(74,Q2) u (72,O1):(74,O1):(72,O2):(74,O2)T50:P1(153713X64Y)}tHTT1:T1ʒ:@53,S;tR@113X64Y,"X";t\@113X64Y,(P1);:I1100:Itf840tptz:" MAZE COMPLETE":u"EXIT IS AT";X1;"EAST, 1 NORTH"$u:950:4u"READY";Z$>u1470Du^u"YOU ARE AT";X;"EAST|u" ";11Y;"NORTHu" FACING ";uZ990,1000,1010,1020u"NORTH":1030u"EAST":1030u"SOUTH":1030u"WEST"uu%vS1ʲ"SORRY - YOU RAN OUT OF POINTS !":4v$Y112740`v.@0,"COMMAND? ";:Z$:Z$""1070~v8Z$"L"SS5:ZZ1:1130vBZ$"R"SS5:ZZ1:1130vLZ$"H"SS2:16405,0:560:16405,1:1470vVZ$"F"SS2:1410jw`@0,"L FOR LEFT,R FOR RIGHT,F FOR FORWARD,H FOR HELP";:I12000:I:@0," ";:1070wjZ1ZZ4:Z4ZZ4wt1150:1470w~wB10ʍ1260wFA(A,B)wZ11220wI2ZwF(F2)(F(F2)2)8wIxCF(F2)2xD(F4)(F8)21xE(F2)(F4)27x=xNxC0:D0:E1TxZx hxE01370wxZ1BB1x(Z2AA1x2Z3BB1x<Z4AA1xFxPxZE1ʲ@532,"NO WAY !!";xdJ11000:JxnxxxAX:BYx1150 y1290yXA:YB#yE01050)y5yAX:BY?y1150JyT15Ty1570cyE01050my1290wy1150yE21050yTy1050y"T1580,1700,2060,2370,2590y,:@0,"LAST COMMAND ";Z$;:@45,"SCORE";Sy6E0E1ʒ z@VV15360:I7196764zJVVI,191+zTVVI44,1912z^I2160~HI401405~RVVI,131~\VVI256,176~fI~pD02220~zK297:M809:P140:Q140:1790KK1:MM1:P176:Q131:17903KK63:MM65:P131:Q176:1790sKK1:MM1:P140:Q140:1790:KK1:MM1:P176:Q131:1790}2260I421425VVI,131VVI256,176II40666664VVI,191VVI14,191IE0 I407419 VVI,131$ VVI256,176+$ I1. 78 EB C02410L K407:M663:P140:Q140:1790:KK1:MM1:P176:Q131:1790V KK65:MM63:P131:Q176:1790` 2430j K471:M599:P140:Q140:1790:KK1:MM1:1790t KK1:MM1:1790 ~ D02470K K419:M675:P140:Q140:1790:KK1:MM1:P176:Q131:1790o KK63:MM65:P131:Q176:1790y 2490 K481:M609:P140:Q140:1790:KK1:MM1:1790Á KK1:MM1:1790偺 K474:M480:P188:Q188:1790 KK64:MM64:P191:Q191:1790- KK64:MM64:P143:Q143:17907 E0F I475479T VVI,140f VVI128,140m Is y  C02630( VV475,1762 VV603,131< 2640F VV539,179ςP D02680߂Z VV479,176d VV607,131n 2690 x VV543,179 VV540,191) VV542,1913 E0C VV541,179I ^ @468,"WAY OUT";d j @980,"* * * * * * * * * *" @980," T H E M A Z E "Ƀ @980,"* * * * * * * * * *"σ t "YOU WILL BE PLACED AT A POINT IN A TEN BY TEN CELL MAZE AND HAVETO FIND THE WAY OUT. YOUR SCORE WILL BE CALCULATED ON THE NUMBER OF LOOKS AND MOVES YOU MAKE." "YOU CAN ASK FOR A PLAN AT ANY TIME IF YOU GET STUCK BUT THIS WILL REDUCE YOUR SCORE CONSIDERABLY."K :"YOU CAN TURN LEFT BY PRESSING 'L' AND RIGHT BY PRESSING 'R'"s "YOU MOVE FORWARD BY PRESSING 'F'"" "GET HELP BY PRESSING 'H' - (REDUCES SCORE !!)"ޅ, :" MAKING MAZE - PLEASE WAIT A MOMENT":Qj:500kj@448, 15);"ORBIT":j@576, 15);"MILSON LINE COMPUTERS"jA1200::j::j "SOMEWHERE ABOVE YOUR PLANET IS A ROMULAN SHIP."jk A 1 1000 : A8k "THE SHIP IS IN A CONSTANT POLAR ORBIT. ITS"pk "DISTANCE FROM THE CENTRE OF YOUR PLANET IS FROM"k "10,000 TO 30,000 MILES AND AT ITS PRESENT VELOCITY CAN"k "CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS."k#l% A1 2000 : Al&Bl( "UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE SO"yl- "YOU ARE UNABLE TO SEE THEM, BUT WITH A SPECIAL"l2 "INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR"l7 "PHOTON BOMB EXPLODED. YOU HAVE SEVEN HOURS UNTIL THEY"!m< "HAVE BUILT UP SUFFICIANT POWER TO ESCAPE"@mA "YOUR PLANET'S GRAVITY."FmF]mH A1 3000 : AcmImK "YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HOUR."mPmU "AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED TO GIVE AN"(nZ "ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF"in_ "100 MILES (BETWEEN 100 AND 300), AFTER WHICH YOUR BOMB'S"nd "DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN."ninn "AN EXPLOSION WITHIN 5,000 MILES OF THE ROMULAN SHIP"no "WILL DESTROY IT."or: N1 3000 : N:Oos "HERE IS A DIAGRAM TO HELP YOU VISUALISE YOUR PLIGHT."Uot[ouo " 90"o " *"oo " * * "o p " 180-* PLANET *-0"pIp " * *"zp " -ORBIT"p " *"p " 270"p : A1 3000 : A:q "ON THE DIAGRAM, THE ROMULAN SHIP IS CIRCLING"Rq "COUNTER CLOCKWISE AROUND THE PLANET. DON'T FORGET"q "WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE"q "AND ORBITAL RATE WILL REMAIN CONSTANT."qq "GOOD LUCK. THE FEDERATION IS COUNTING ON YOU."r N1 2000: rA(360(0))6rD(200(0)200)Jr"R(20(0)10)Rr,H0br6 H7 490lr@HH1rrExrFrJ "HOUR";H;", AT WHAT ANGLE DO YOU WISH TO SEND"rO "YOUR PHOTON BOMB";rT A1s^ "HOW FAR OUT DO YOU WISH TO DETONATE IT"; sh D1smsnsrAAR1s| A360 400=sAA360KsT(AA1)]s T180 430isT360TsC(DDD1D12DD1(T3.14159180))s "YOUR PHOTON BOMB EXPLODED";C;"*10[2 MILES FROM THE"s "ROMULAN SHIP"s C50 470t 3107t: "YOU HAVE SUCESSFULLY COMPLETED YOUR MISSION."=tht"THE EARTH SURVIVES FOR ANOTHER DAY."rt 500t N1 1000: N:: "YOU HAVE ALLOWED THE ROMULANS TO ESCAPE."t "ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT."u "DO YOU WISH TO TRY AND DESTROY IT";u C$$u :TA,(255):TA1,45:TA2,0:X(TA):(3)840,850,8606|H@256,"A BIT MORE EFFORT AND YOU WOULD MAKE IT OVER EASIER!";:c|R@256,"PRETTY GOOD BUT NOT EXCELLENT";:|\@256,"AT LEAST YOUR TRYING! KEEP UP THE STANDARD!";:|f|pTA,(255):TA1,43:TA2,0:X(TA):(4)890,900,910,920}z@256,"ONLY 1 POINT!! NOW TRY FOR MORE!";:<}@256,"A CORGIE COULD DO BETTER!!";:`}@256,"SHAPE UP OR SHIP OUT";:}@256,"A BIT WEAK! COME ON, YOU CAN DO BETTER THAN THAT!";:}}TA,111:TA1,90:TA2,0:X(TA):(4)950,960,970,980~@256,"I SAY!! WELL DONE OLD CHAP!!";:B~@256,"BRILLIANT!! ABSOLUTLY BRILLIANT!!";:t~@256,"AWWWFULLY GOOD!! WELL DONE I SAY!";:~@256,"WHAT A JUMP!!! WUUUUNDERFUL!!";:~9IP777JU$J4SC(V)SC(V)1:@448,"YOUR HORSE HIT WATER! LOSE THE POINT!";:O1400:O:@448," . . . . . . .";:IP777JU$J6SC(V)SC(V)1:@448,"YOUR HORSE LANDED IN THE MUD! LOSE THE POINT!";:O1400:O:@448," . . . . . . . . .";:TA,50:TA1,75:TA2,0:X(TA)::"** WINNERS **"cT1NP:WI$(T)"Y"ʱTA,20:TA1,20:TA2,0:X(TA):NA$(T):T:TT1NP:WI$(T)"Y"1060"DRAW! NO WINNER!"$.:8:@15,SC$;ȀB:(64,176) LT1NP:(143);" ";NA$(T);(20(NA$(T)),32);"SCORED "SC(T):T_VNP1ʏSC(1)SC(2)SC(1)SC(3)SC(1)SC(4)SC(1)SC(5)SC(1)SC(6)WI$(1)"Y"`NP2ʏSC(2)SC(1)SC(2)SC(3)SC(2)SC(4)SC(2)SC(5)SC(2)SC(6)WI$(2)"Y"jNP3ʏSC(3)SC(1)SC(3)SC(2)SC(3)SC(4)SC(3)SC(5)SC(3)SC(6)WI$(3)"Y"XtNP4ʏSC(4)SC(1)SC(4)SC(2)SC(4)SC(3)SC(4)SC(5)SC(4)SC(6)WI$(4)"Y"~NP5ʏSC(5)SC(1)SC(5)SC(2)SC(5)SC(3)SC(5)SC(4)SC(5)SC(6)WI$(5)"Y"NP6ʏSC(6)SC(1)SC(6)SC(2)SC(6)SC(3)SC(6)SC(4)SC(6)SC(5)WI$(6)"Y",(64,131):1030:T13000:T::@15,SC$;C:"ANOTHER GAME?"u(143);(8);:TA,187:TA1,9:TA2,0:X(TA)(15359)01190:K(15359)TA,100:TA1,100:TA2,0:X(TA)ǃK2ʎC:C(143)::@0,(64,143);::0@64,C;:T214:@T641,C;C;:T:@79,SC$;:@270,H1;:@390,FM$;E@896,(64,188);N$" ** 'STEEPLECHASE' WRITTEN BY C. CRANSTONE (C) 1981:CHRISTIE DOWNS, ADELAIDE, SOUTH AUSTRALIA.:MODIFIED FOR SYSTEM-80/PCM-80/VIDEO GENIE AND TRS-80 MODLE 1 A"N$N$"ND MODEL III COMPUTERS **"%V60q VV1:V(N$)V0:@577,(N$,V,62);:TA,255:TA1,14:TA2,0:X(TA)T120:T1290(:2(3)2ʒ<@640,EM$;:TTATA502:T,50:T1,T(TA2):T:TA51,0:TA52,0:X(TA)F@640,EM$PTA,120:TA1,24:TA2,0ZT6506902:@T,FM$;:@T6464," ";:O130:O:@T,C$;:@T1,FB$;:@T6564," ";:O130:O:@T1,C$;:X(TA):T׆dTA16,0:@T64,CM$;:TTATA152:T1,200:T,T(TA2):T:X(TA)0n@448,"YOU'VE FALLEN OFF YOUR HORSE AND BROKEN YOUR LEG!!";:U1400:U:@448,(30);MxTA,13:TA2,189:TA2,0T448485:@T,A1$;:O115:O:@T,A2$;:O115:O:@448,(30);:@512,(30);:@576,(30);:X(TA):T:@T1,A1$;:@755," "(26)(8,24)" ";:@485,A1$;X1700:X280?:T145:@(896),".";:T:@79,SC$;@0,(64,143);:@896,(64,188);:@64,(143);:T214:@T641,(143);(143);:T:@959,(143);:VK2ʒψ@209,"WELCOME TO STEPPLECHASE!";@257,"THE GRAND OLD DUKE OF NAGSVILLE HAS INVITED YOU AND YOUR . .";S@321,"ASSOCIATES TO A STEEPLECHASE IN HIS HONOUR.";@449,"DUE TO AN OLD WAR WOUND THE DUKE CAN NOT PARTICIPATE. . ."; @513,"THE DUKE WILL BE WATCHING AND MAKING VARIOUS COMMENTS ON YOUR ";:@577,"EXPERTISE. (OR LACK OF IT!!!)";Ŋ@641,"IF YOU RIDE VERY BADLY THEN YOU RISK THE CHANCE OF A BROKEN ";:@705,"LEG. (OR TWO!!). iF YOU DO MANAGE TO BREAK A LEG YOU WILL BE";:@769,"TAKEN AWAY IN THE AMBULANCE.";@847,"PRESS ANY KEY TO CONTINUE";(15359)01540VK2:1440:VK0@321,"PRESS THE 'S' KEY TO START THE RIDE.";:@449,"PRESS THE 'J' KEY TO JUMP.";:@577,"THE WINNER AND SCORES WILL BE DISPLAYED AT THE END OF THE DAY.";:@705,H1;:@847,"PRESS ANY KEY TO CONTINUE";"(15359)01570,1206@32,144,32,32,32,32,32,184,144,26,24,24,24,24,24,24,24,24,24,130,130,188,188,188,188,190,135,131,26,24,24,24,24,24,24,24,24,24,32,168,169,129,32,130,150,180::EM$ʌJT146:A:EM$EM$(A):T136,179,129,171,129,183,129,183,129,183,153,170,32,170,147,129,151,129,181,186,168,179,148,166,147,170,147,129,26,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,136,140,129,138,32,141,132,141,132!^133,32,138,140,138,140,132,141,132,133,138,138,32,133,140,134,138,140,132:T185:A:SC$SC$(A):h32,168,183,176,190,180,26,24,24,24,24,24,24,24,32,150,190,159,163,141,32,26,24,24,24,24,24,24,24,32,136,153,145,32,32:H7rT135:A:H7H7(A):TY|32,164,32,32,32,160,144,26,24,24,24,24,24,24,24,32,160,175,188,188,159,131,26,24,24,24,24,24,24,24,136,137,129,32,130,182,164:T137:A:H8H8(A):T168,191,191,191,148,27,24,24,24,24,24,32,160,176,144,32,26:T117:A:J1J1(A):136,191,132,27,24,24,24,160,176,144,26:T111:A:J2J2(A)::191,191,27,24,24,160,144,26:T18:A:J3J3(A)::136,191,132,27,24,24,24,160,176,144,26,32,32,32,32,32,26,24,24,24,24,24,87,97,116,101,11427:T128:A:J4J4(A):T121:J9J9(131)(35)(38)::191,140,140,140,191,27,24,24,24,24,24,176,32,32,32,176,26:T117:A:J5J5(A):191,191,27,24,24,160,144,26,32,32,32,26,24,24,24,77,117,100,27:T119:A:J6J6(A):T:160,32,32,32,144,26,24,24,24,24,24,32,137,191,134,32,26,24,24,24,24,24,160,134,32,137,144:T127:A:FM$FM$(A):T32,144,32,32,160,26,24,24,24,24,24,32,130,164,152,129,26,24,24,24,24,24,32,152,139,135,164:T127:A:FB$FB$(A)::32,160,164,152,144,26,24,24,24,24,24,32,153,139,135,166:T116:A:CM$CM$(A):T32,32,32,32,32,176,32,144,26,24,24,24,24,24,24,24,24,136,137,176,184,191,176,190,143,132,26,24,24,24,24,24,24,24,24,24,32,160,167,135,131,139,153,144,26,24,24,24,24,24,24,24,24,32,129,129,32,32,32,130,130:T161:A:H9H9(A)h:32,32,32,160,188,176,32,184,144,26,24,24,24,24,24,24,24,24,24,160,134,188,191,191,189,190,135,131,26,24,24,24,24,24,24,24,24,24,32,152,169,129,160,134,130,148,32:T147:A:H5H5(A):(32,144,32,160,179,176,32,184,144,26,24,24,24,24,24,24,24,24,24,130,130,188,188,191,189,188,159,131,129,26,24,24,24,24,24,24,24,24,24,32,168,169,129,32,130,150,148:T147:A:H6H6(A):32,32,151,131,131,131,131,147,131,131,171,131,139,164,144,32,32,32,26,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,32,32,149,32,176,176,147,135,129,32,130,131,131,179,179,147,131,148,26,24,24,24,24,24,24,24,24,24,24,24,24,2424,24,24,24,24,32,136,141,134,166,179,134,140,140,140,140,140,134,166,179,134,140,141:T192:A:A1$A1$(A):T:32,32,32,160,179,176,32,184,144,26,24,24,24,24,24,24,24,24,24,32,150,188,191,191,189,190,135,131,26,24,24,24ݗ24,24,24,24,24,24,32,168,169,129,32,130,150,148,32:T147:A:H1H1(A):T:32,136,144,32,184,188,151,160,180,32,26,24,24,24,24,24,24,24,24,24,24,32,32,130,188,190,189,188,159,131,129,26,24,24,24,24,24,24,24,24,24,24,3232,32,137,153,144,130,166,164,32:T152:A:H2H2(A)::32,32,32,176,179,144,160,180,32,26,24,24,24,24,24,24,24,24,24,168,169,188,190,191,188,159,131,129,26,24,24,24,24,24,24,24,24,24,160,166,134,160,152,153,129,32,32T147:A:H3H3(A):T:32,32,32,160,179,176,32,160,32,26,24,24,24,24,24,24,24,24,24,168,169,188,191,191,189,188,175,189,26,24,24,24,24,24,24,24,24,24,32,168,169,129,32,130,150,164:T146:A:H4H4(A):{32,32,151,131,131,131,131,131,131,131,171,131,139,164,144,32,32,32,26,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,32,32,149,32,176,176,144,32,32,32,130,131,131,179,179,147,131,148,26,24,24,24,24,24,24,24,24,24,24,24,2424,24,24,24,24,24,32,136,141,134,140,153,134,140,140,140,140,140,134,140,153,134,140,141:T192:A:A2$A2$(A):&Sj100:FOR LEISURE PLEASURE kiiiiiiiii123456789 ...69978632U lk!k8+4>+>+ww> 6N < :?=o.llFkmmm8m;mHmYm_mmmmTnnnnnnno oo!o2o;o>okoom'l![@6!!FjRnfR+nfRut##nfRmn!yj#j  _o#FGn0o~RݾS(1!0kT84R l!k w#wqR!yjUv( 5Fo5>݆8  ~@0>w#̈́k5IU~(U~Rݖ0 ~wRm.!n !?!=+^ V #V(++++ r#s# r#s#n  @=z!j F( F( 5F iw#!yj~M(˿UwmFI>ݾV(F~Q8 j!j~Q8!j#!j 6#4Q!yjUv mEkoV~(rOrP4P>P04O݆84~=O8> F ~84V~V>2 m.........RpdA$"*":A1256((A$)2)((A$)1)123:A12,100:A13,0:A0(A1256):A2A1(256A0):A9256(16549)(16548):A9,A2:A91,A0mpi1000:XZ:AG,KL:UpkZI"..."plZT(1)"8":ZT(2)"8":ZT(3)"8":ZT(4)"8"iqnZ0$"":SS)6A3`H{E3b3oCpD6)38/)lN1C8G9)l~.l4)Hٸ$~0)26]JR 323rC|ٞC{oXgG S ܖ]d2]/3ro:qqErrrM/)DsCqD)asAtodtrrqodssp1qmup~q)2spe2tT+3unNrmDup-:u8qnOrIFt6~n_q،uuOtPwt܇tteNsov03Grp:ynDDvlvzn<`v*dmIDydyNyF`vvٰm'8mnm;v}ٲmm3w3vvr:m+:vL[lWm,tWm0ΤCxv{xxyyFvn{|GCsq:{*{6{DA}.6}wA~ 6eE||a|ں}.3})ܹ}p:}2}D{ll|~|څ3~|%}3{pG|p|p3~pOspO~oGN}sr:Ip^/Ood/D)e***TMF*^NDA^}^wpF;TDI;4D:Yw2Iv4~I0^KJ0TO*Y*L*F2*C*^vq_^D**rD*M^* ts:5`Gdp&E՗傟EEĀE)aEKD8E2뺂p2om0VDp8N1|߂Wus3rp^ll΃J΀ut:O@ᅱqDAĆGĉIEp D 89p;23pZ*9p3,ܳp2)0FpD  xpJ^FFF}3O6WFG+6uu:eSڎaD5D`a@pE;,e8Xbe030F ;:pr9ܳ泋0o"9pOnGpOߋltrLp4Yvv:OmE5 t@O/O`J4r^U3 eEJE٦N5|~ڻ+0OsJm*+x 8090X505|35_Oi E+Z܇_Z+Z+U3V5}vw:d,esyo&ME'F;*oM8m渐p|m/ߐO'0C._5ڟFǒ5VNowx:pDD 9":U(19),UB(90),FB(90),F(3),FI(3),FK(9,3),AL(18),BM(18):A11:PH256((Z0$)2)((Z0$)1)4:PJ256((ZO$)2)((ZO$)1)4:CN332:A00:RN%1:MG$"A NOSE 1/2 HEAD A HEAD A NECK 1/2 LENGTH3/4 LENGTHONE LENGTH1-1/4 LGTH":MM$" LENGTHS":MT$"A DEAD HEAT"ZF"$$#,###,###":ZG"$$#,###,###,###":ZB(1)"WIN":ZB(2)"PLACE":ZB(3)"SHOW":ZB(4)" QUINELLA ":ZB(5)" DOUBLE ":ZB(6)" TREBLE ":ZB(7)" W I N D O W ":ZB(0)"CHOICE NUMBER- ":ZC(1)"1ST - ":ZC(2)"2ND - ":ZC(3)"3RD - ":ZW" RACE "~ZD(0)"YOU ALREADY PICKED THAT HORSE":ZD(1)"BET IS ACCEPTED AND RECORDED":ZD(2)" I N V A L I D B E T":ZD(3)"YOU HAVE INSUFFICIENT FUNDS":ZY" THIS IS NOT A ":ZD(4)ZY"DOUBLE"ZW:ZD(5)ZY"TREBLE"ZW:ZD(6)" BET TYPE REGISTER IS FULL "=ZD(7)"ALL CHOICES ARE NOW ENTERED":F10:ZM(4)"QUIN.":FT13:ZM(FT)ZM(4):F(FT)F1:FI(FT)F1:F1F130::FT572:ZM(FT)"TREB.":ZM(FT1)"DOUB."::ZM(9)ZM(7):BS256(16549)(16548) A8BS696:A6BS115:AYBS97:V8$(1)"++++ MASTER MENU ++++":V8$(2)"++++ ACCOUNTS MENU ++++":V8$(3)"++++ PRINTER MENU ++++":V2$"YOUR CHOICE "(62)" "(191):V4$(191)" "(60)" YOUR CHOICE":232:ZH:" PLEASE BE PATIENT WHILE THE COMMITTEE SELECTS STARTERS":167:TS%(4):A0A01:AD(A0)(3)4:ZC"CLASS 1 CLASS 2 CLASS 3 CLASSES 1-2CLASSES 2-3CLASSES 1-3"F@335,"SELECTING STARTERS FOR RACE 1";:@458,"THE PRESENT TRACK SURFACE IS CLASSED AS ";ZS(TS%):@596,"HORSE";:@610,"RIDER";:156iA0A1ʒ:A0A01:A09A010O%(6):O%CC(A01)156:RL%(A0)((2)4)(O%3):RL$(A0)(RL%(A0)):CC(A0)O%:RL%(A0)8RQ$RL$(A0)" FURLONGS ":RL$(A0)RL$(A0)" FLNG ":RL$(A0)" 1 MILE ":RQ$RL$(A0)D19:JM%(150):HM%(10)(((25)1)30HC%(D)):O%4HC%(D)(O%1)10:158:O%6HC%(D)(2)10:158:HC%(D)((O%2)1)10ΌA12ʲ@659," ";HM%;" ";:@673," ";JM%;" ";D118D:JM%AL(D1)160:D18D::JM%(150):158NHM%BM(D1)ʇ:165:D18D::HM%(10)(((25)1)30HC%(D)):158J%(A0,D)JM%:AL(9D)JM%:H%(A0,D)HM%:BM(9D)HM%::D119:AL(D1)AL(D19):BM(D1)BM(D19)::9@768,(3,255);" ";:@773,"HORSES OR RIDERS DO NOT APPEAR IN CONSUCUTIVE RACES":@843,"AND HORSES MUST MEET CLASS REQUIREMENTS";:nAF1177:AF1:983:@611,"CALCULATING ODDS--";EL19:OD%(EL)11::EL18:178:ێTS%3174:B19:(H$(B),12,1)"1"ʇ:174:OD%(B)OD%(B)1:8AD(RN%)6175:B19:((H$(B),21,1))79(H$(B),19,1)"1"ʇ:175:OD%(B)OD%(B)1:eE10:B1:EL19:OD%(EL)BE1E11::yE18ʑ179:175@897,ZA;:@960,"";:EL19:OD%(EL);::⏲B19:(H$(B),11EL,1)"1"ʇ::OD%(B)OD%(B)1::B19:OD%(B)OD%(B)1:::(23):@320,"BETTING NOW CLOSED FOR RACE ";RN%:@448,"WAITING FOR THE STARTER------":BAYAY26:B,128::B1:AC14((TS%1)2):AZAY1:EI14AC1:197:BB2:ϐAZAY17:AC16:AD(RN%)6AC15B1:EIAC3AC1:197:BB2:LAO256((ZI)2)((ZI)1):AZAY27:AP013:AZAP,(AOAP)::AZ1,(RL%(RN%)1)EL116:10)"THEY'RE OFF !!!":::@981,"FURLONGS TO RUN-";RL%(RN%);:L19:EI19((H$(L),21,1))79ʇ:198:(H$(L),EI,1)"1"ʇ:198:AZL,(AZL)B: 10)"WAITING---":wTA%0600:191:215:262:RN%9400:TA%0:AF0:RN%RN%1:ASTS%(3)2:AS5AS0TS%AS:220:220ȒA818000AA8256:A1A8(A256):16526,A1:16527,A:Q(0)::A8:Q(0)::V05:VK1:V$(1)" THE MEMBERS STAND ":V$(2)" ACCOUNTS SECTION MENU ":V$(3)" COURSE RULES AND INFO ":V$(4)" SEND FIELD TO STARTER ":V$(5)" LINE PRINTER MENU ":1000:VZ600,550,221,210,990Г300:309:310:320:350:365:220:ZH:@150,"++ MEMBERS STAND ++":@192,"RACE ";RN%;" ";RL$(RN%);" ";(ZC,CC(RN%)1110,11);:@257,ZM(RN%);8)"TRACK ";ZS(TS%);22)Z1(AD(RN%));:K522392764:@K5,(191);::$@527,"CREATED FOR YOUR LEISURE PLEASURE";:@606,"BY";:@664,"RAY WILKINSON";:@733,"AND";:@791,"DISTRIBUTED BY";:@858,"MOLYMERX";:G7972:G8993:229:TA%1ʒ:@417,"THE ACCEPTED STARTERS WILL";:@481,"BE POSTED ON THE RACE BOARD";:@545,"AND RIDER'S NAMES WILL BE";:@609,"ADDED FOLLOWING VERIFICATION.";:@737,"WHEN THE FIELD IS COMPLETE";&@801,"BETTING WILL BE OPENED FOR";:@874,"RACE ";RN%;:c@G7,"PRESS A KEY TO START ";:@G8,"THE RACE MEETING";:@448,"750 CLASSIFIED, NAMED HORSES-- WITH PERFORMANCE CHARACTERISTICS":30)"+++":" 150 NAMED & CATALOGUED RIDERS AND APPRENTICE RIDERS":30)"+++"" 9 NUMBERED BETTING ACCOUNTS WITH DEBIT & CREDIT FACILITIES":30)"+++":" 5 FURLONG TO 1 MILE RACE LENGTHS FOR CLASS 1 TO CLASS 3 HORSES";:233:225:234:230:234:155:223:227:243:983:G7611:G8677:229:DD0400:238::m:KF%0:HF%0:RI%0:I%1566:TX$(ZT(1),3)((RI%),1)(ZT(1),2):RI%RI%1:@I%,TX$;:@I%320,TX$;::@128,ZH;:טWH%(8)6327:EO256((ZT(1))2)((ZT(1))1):RI%(15360WH%3):EJEO3EO4815:EJ,RI%:238:gDY1400:238::@WH%," ";:AX0:DYWH%64889:237::@889," ";:DY384WH%64:237::@WH%64," ";:@WH%,ZT(1);:HF%HF%1RI%56:EJEO3EO4815:EJ,RI%::ÙAXAX1:@DY,ZT(AX);:238:238:AX4AX0::YT$:YT$""ʒ:30600:153:220yVN6:PKPH:K320:A19:H$(A)((A),1)" ":NHH%(RN%,A):530:V%14:H$(A)H$(A)N1$(V%)::540:H$(A)H$(A)N$:N$"":@K,H$(A);:KK64::VN5:PKPJ:J$"":K320:A19:NHJ%(RN%,A):530:V%15:J$J$N1$(V%)::545:H$(A)H$(A)" "J$:J$"":@K,H$(A);:KK64::#TA%1ʑ244::240:242:170:TA%1:]V1%0:V%32083264:V1%V1%1:@V%,H$(V1%);::170:223:243:@228,"+++ OFFICIAL RESULT +++";:@298,"OF RACE ";RN%;:EL19:EIA6A68:(EI)ELEP(EL)EI(A61):EV(EL)((EI18)32)(EI9):EIA68::::~EL13:EM(EL)EV(EL1)EV(EL):EM(EL)61EM(EL)EM(EL)20:267::265:EZ(EM(EL)60)1:M$(EL)((EZ),((EZ))1)MM$: EL13:@EL128225,Z1(EL)(H$(EP(EL)),10)Z1(4)M$(EL);::@737,"THE REST FINISHED";:EL49:@752(2(EL3)),EP(EL);:ĝ @417,OD%(EP(1))3;" - 1";43)OD%(EP(1))2;" - 1";53)OD%(EP(1));" - 1";:@545,"";43)OD%(EP(2))2;" - 1";53)OD%(EP(2));" - 1";:@673,"";53)OD%(EP(3));" - 1";:2100:A1A11:155:OP929:2990: EM(EL)21E35:E421:268:E320:E481: E1E31E4E3:EM(EL)E1ʇ:M$(EL)(MG$,(E1E3)109,10):E1E4::,:@9,"+++ THE INSIDE TRACK INFORMATION SERVICE +++":(63,45):"ALL SUCCESSFUL BETS HAVE THE STAKE RETURNED IN ADDITION TO ODDS CHECK YOUR BET-- A LAID BET CANNOT BE WITHDRAWN !!"."HORSE CLASSIFICATION (1 TO 3)= HORSE HAS HAD 0,1 OR 1+ PAST WINSA WIN BET PAYS OUT ONLY IF THE CHOSEN HORSE WINS THE RACE A PLACE BET PAYS OUT IF THE HORSE FINISHES FIRST OR SECOND"{0"A SHOW BET PAYS OUT IF THE HORSE COMES FIRST, SECOND OR THIRD THE QUINELLA WINDOW WILL ASK YOU TO CHOOSE TWO HORSES IN A RACE IF THEY COME FIRST & SECOND (EITHER ORDER)-- YOU COLLECT !!"?2"TREBLE CHANCE RACES ARE 5,7 AND 9-- DOUBLE CHANCE ON 6 AND 8 THE TREBLE WINDOW IS FIRST AVAILABLE FOR RACE 5, AND YOU MAY MAKE A SELECTION FOR THAT RACE ONLY-- IF YOUR CHOICE WINS"4" THEN YOU WILL BE ABLE TO CHOOSE A SECOND LEG BEFORE THE 7TH RACE-- ETC. THE DOUBLE CHANCE OPERATES SIMILARLY.":ҡ5OP977:2990:~6:@25,"+++ MORE INFO +++":(63,45):"A FAVOURITISM GUIDE (BASED ON CALCULATED OFF-COURSE BETTING) IS PROVIDED UNDER THE HEADING OF ++ TOTE INDEX ++, READING FROM"D7" LEFT TO RIGHT (HORSES 1-9) GIVES CLUES TO FAVOURITISM ORDER THE OFFICIAL RACE RESULT SHOWS WIN, PLACE & SHOW PAY-OUT ODDS QUINELLA, DOUBLE & TREBLE PAY-OUTS ARE DISPLAYED IN DOLLARS"8" FOR INSTANCE-- QUINELLA PAID $91-- MEANS THAT ODDS OF 91 TO 1 ARE PAID TO THE SUCCESSFUL QUINELLA TICKETS"#:"THE ONLY LIMITATION IMPOSED ON BET NUMBERS IS A MAXIMUM OF 30 BETS OF EACH TYPE PER RACE."<"N O T E : THERE ARE NO PREDETERMINED RACE RESULTS-- EACH RACE ISRUN AS YOU SEE IT ON THE SCREEN- ACCORDING TO THE DISPLAYED RACEDESCRIPTION, CONDITIONS- AND THE ABILITIES OF HORSES & RIDERS.":@OP977:2990:^:@15,"+++ HOW TO READ THE FORM POINTERS +++":(63,45):"STARTING FROM THE LEFT POINTER--- 1 MEANS GOOD WET WEATHER ABILITY (WATCH THE TRACK CONDITIONS) 1 MEANS GOOD STARTING ABILITY (THERE ARE TWO STARTING POINTERS)"Ԧh"1 MEANS GOOD STARTING ABILITY (BOTH POINTERS ARE VALID) 1 MEANS STAMINA IN THE FINAL DASH (IF NOT AN A/A RACE) 1 MEANS STAMINA IN THE FINAL DASH (IN ANY KIND OF RACE) 1 MEANS STRONG FINISH ABILITY (THERE ARE TWO FINISH POINTERS)"Qj"1 MEANS STRONG FINISH ABILITY (BOTH POINTERS ARE VALID) 1 MEANS GOOD RESPONSE TO WEIGHT REDUCTION (VALID ONLY IN A/A)"ۧl" A/A MEANS THAT APPRENTICE RIDERS ARE ALLOWED A WEIGHT REDUCTION YOU CAN IDENTIFY AN APPRENTICE RIDER BY HIS FIRST INITIAL,(O-X)":mOP977:2990:j:@16,"+++ FINAL STATE OF ACCOUNTS +++":@128,"A/C";10)"BALANCE";27)"DEPOSITS";41)"SHARE OF POOL (UNITS)":(63,45)UF0:UI0:AE19:UFUFU(AE):UIUIU(AE10)::UH0UI(UI(UIUH))4UI0UF0ʎ:AE19:UG(AE)(UI(UFU(AE))):AE;:5)ZG;U(AE);:20)ZG;U(AE10);:50)UG(AE)::(63,45):OP977:2990:PX0:NH31PD((NH1)5)PK:531:PX((NH1)30)158:PD(PKPX)((NH((PX158)30))5)5PD32767PD1(65536PD):532:PD32763SG1:ZBZP(6):V15:SGSG2:N1$(V)(ZP(5),SG,2):539.V1VN:R0:N(V)(PD(V1)):VN6V5V6:539N(V)5N1$(V)(ZP(2),N(V)21,2):539:N(V)216C0(N(V)236):N1$(V)(ZL,((N(V)216)(C019))2C0,2):5396N(V)108SG1:VL13821626:SGSG2:N(V)VLN1$(V)(ZP(4),SG,2):VL216::539::N(V)N(V)108:R1:N(V)5N1$(V)(ZP(1),N(V)21,2):539SG1:VL3010826:SGSG2:N(V)VLN1$(V)(ZP(3),SG,2):VL108::539:C1(N(V)5)26:C2N(V)C126:C3C25:C4C2(C35)1:R0N1$(V)(ZV,C4,1)(Y(C1),C3,1):539:N1$(V)(Y(C1),C3,1)(ZV,C4,1):pGMN(5):GS256:N$N$" ":D4701:GSGS2:GGMGS:G0GMG:N$N$"1":::N$N$"-"::!V14:(J$,V,1)" "ʇ::JT$(J$,V1)"."(J$,(J$)V):J$JT$::s&V04:VK2:V$(1)" DISPLAY ACCOUNT BALANCES ":V$(2)" DEPOSIT BETTING FUNDS ":V$(3)" RETURN TO MASTER MENU ":V$(4)" CLOSE A/C'S & DIVIDE POOL ":1000:VZ4050,4000,220,400X155:223:227:243:1600GT22592964:@GT,(30,32);::AJ0ʄ:(23):@320,"YOU DON'T HAVE A PRINTER !!!":DY01000::220V04:VK3:V$(1)" RETURN TO MASTER MENU ":V$(2)" PRINT TODAY'S RACE CARD ":V$(3)" PRINT RIDER CATALOGUE ":V$(4)" PRINT STABLE REGISTER ":1000:VZ220,30500,30010,30050-:ZH:" ";(191);:@190,(191):" ";(62,131):@654,(188);(30,140);(188):V2$;45)V4$:14)(32,131);VZV0:VYR100:@147,V8$(VK);:@266,"----CHOOSE YOUR OPTION FROM THE FOLLOWING----";¯VP720(V064)59264:@VP,V$(VZ);:VZVZ1:VZ0VZV0:@720,V$(VZ);:VZVZ1:VZ0VZV03@961,"--- USE PERIOD KEY TO SCROLL ------ ENTER KEY TO SELECT ---";m(14368)641006:SF$:SF$(13)1006:1008:1005VZVZ1:VZV01VZ1SF$(13)ʒ:1002@704,Z;:@751,Z;:DY060::@704,V2$;:@749,V4 ;:DY060::@2900:OP865:LV3:L0:UV1:FG23455464:LL1:UVUV10:@FG,L;" ";:ZF;UV;::@FG," 7 ";ZB(4);:@FG64," 8 ";ZB(5);:@FG128," 9 ";ZB(6);:@OP," CHOOSE A BETTING WINDOW";:OSOP15360BFV(5)0EKI0:KF1:K010:@OP68,"(OR PRESS ENTER FOR MENU)";:3000:KE7KE92000:2900:3100:@291,ZB(KE3);ZB(7);:OQ483:@430,"$10";:LV5:KF0:KIKE6:UV10:FI(KI)KI30ʑ2500:KI1612,1620,1620FLX2:2700:LX6:2700:1600]LEF12:@OP," "ZC(EF)ZB(0)" ";:2810:3000:KE101600:FV(EF)KE:EF2FV(EF)FV(EF1)LX0:2700:EFEF1::@OQ,ZC(EF)ZB(0);FV(EF);:OQOQ64:@OP3,ZC(2);::FV(5)1:2017TRN%52200:(RN%(5(KI2)))12200,1631,2200,1632,2200,1632_@OP," "ZC(1)ZB(0)" ";:2810:3000:KE101600:FV(1)KE:@OQ,ZC(1)ZB(0);FV(1);:FV(5)1:OQOQ64:2017@`FK(FV(0),KI)1ʁDY0500::1600:3010[aKU1LX7:2700:1600b@OQ,ZC(1)ZB(0);FV(1);:OQOQ64:RN%9ʲ@OQ,ZC(2)ZB(0);FV(2);:OQOQ64c@OP," "ZC(FV(LV)1)ZB(0)" ";:2810:3000:KE101600:FV(FV(LV)1)KE:@OQ,ZC(FV(LV)1)ZB(0);KE;Wd2600:X"0"1600:KE111636:FV(LV)FV(LV)1:3200:1600KE9220:FV(LV)KE:UV110KE:2900:3100:@291,ZF;UV;:ZB(7);:OQ483:2500:2800:K010:KF0:3000:KE101600:FV(1)KE:@OQ,"HORSE NUMBER- ";FV(1);:OQOQ64{@OP," WIN,PLACE OR SHOW (1,2 OR 3)";:K04:3000:KE101600:FTKE:@OQ,"TYPE OF BET-- ";ZB(FT);:OQOQ64/@OP," HOW MANY TICKETS ? ";:K010:3000:KE101600:UVKEUV:UVU(FV(0))1LX2:2700:LX3:2700:1600:FV(LV1)KE:@OQ,"VALUE OF BET-";:ZF;UV;:@739,(28,32);n2600:X"0"1600:KE112018:(LV1)23190,3195:160014BT0:BB1:@865,"CHECKING ";:BF874:LV3:FT13:BD(FT1)0:@BF,ZB(FT);" ";:F2FT:F1F(FT)(FT1)301:F31FT:(((FB(F1)),4,1))EP(F3)UZFB(F1):3300:BD(0)OD%(EP(F3))(4FT):21895::F(FT)F11::LV5:F22:BD(1)(((OD%(EP(1))3)(OD%(EP(2))3))OD%(EP(1)))OD%(EP(2)):@BF,ZB(4);:F1FI(1)11:UZUB(F1):33008FV(1)EP(1)FV(2)EP(2)FV(1)EP(2)FV(2)EP(1)BT1:UX10:2190D9:FI(1)0:@800,ZB(4);"PAID";:ZG;BD(1);:RN%5ʲ@864,(219);:x:F123:BD(F1)(BD(F1)OD%(EP(1)))OD%(EP(1)):;RN%(RN%2)2KI(RN%4)2:BB2:BTBB:BC30:2109׹<KI((RN%4)2)1:BB3:BTBB:BC60=@BF,ZB(BB3);:RN%7BD(BT)BD(BT)10BTI>F1FI(BB)BC1:(UB(F1)105)KI2113:UZUB(F1):LV5:3300?FV(KI)EP(1)UB(F1)0:FK(FV(0),BB)FK(FV(0),BB)1:2113@RN%82113:F20:UX10:2190A:RN%7KI1FI(BB)BC:@864,ZB(BT3);"PAID";:ZG;BD(BT);::@864,(219);:UX110FV(LV)LU(FV(0))U(FV(0))(FV(LV1)UX)(FV(LV1)(BD(BT)UX)):oLX2:2700:LXKI2:2700:1600LX2:2700:LX6:2700: @OP," YOUR ACCOUNT NUMBER ? ";c K010:3000:KE91600:FV(0)KE:@OQ," --- A/C NUMBER ";FV(0);"---";:OQOQ64:RN%6KI1ʲ@739," YOU HAVE";FK(KE,KI);"LIVE";(ZD(KI2),15,7);:FK(KE,KI)1ʒ:"S";: @739,"BALANCE- ";:ZG;U(FV(0));:ü( @OP," PRESS IF BET IS OK ";:KF1:3000: L15:@801,ZD(LX);:DL0100::@801,(221);:DL050:::2 @OP,(94)" HORSE NUMBER ? ";a @OP65,"(OR PRESS ZERO TO CANCEL BET)";:T GT22592964:@GT,(30,32);::Ž KF1:K01:OSOP15360:@OP2,"PRESS TO CONTINUE";뽸 X:KE(X):X(13)KF1KE11: X"0"KE10::KE0KEK0ʒ8 (OS)143ʱOS,143:3000:OS,62:3000 KU0:EK((KI1)30)1FI(KI):(UB(EK)10(UB(EK)10))FV(0)(UB(EK)100000)1(RN%9)ʇ:KU1:ɾ KKEK:EKFI(KI)::UZUB(KK):3300: @226,(27,176);:@290,(27,191);:@354,(27,131);:v F(FT)F(FT)1:3200J{ FI(KI)FI(KI)1:FK(FV(0),KI)FK(FV(0),KI)1 UZFV(0):EF1LV:UZUZ(FV(EF)10EF)::KI1RN%63203:U(FV(0))U(FV(0))UVſ RN%6LV4UB(KK)UZ:LX1:2700:뿄 LV4UB(FI(KI))UZ:FB(F(FT))UZ LX1:2700:G EFLV11:FV(EF)UZ(110EF):UZUZ(FV(EF)10EF)::FV(0)(UZ.5):4090:AA04005:K010:KF0:OP970:OSOP15360:@OP2,"WHAT IS YOUR ACCOUNT NUMBER ?";:3000:KAKE:4085:4080:KE4U(KA)U(KA)(110KE):U(KA10)U(KA10)(110KE)@320,(31);:4085:DY01000::220AA1:@128,"IF YOUR GAMBLING LAWS PERMIT IT, YOU MAY WISH TO MATCH YOUR ACCOUNT DEPOSITS WITH A POOL OF DOLLARS, CENTS-- OR EVEN BUTTONSIF SO-- YOU MAY NEED TO DEDUCT A HOUSE PERCENTAGE FROM THE POOL"¦"THE INSIDE TRACK WILL AUTOMATICALLY SUBTRACT ANY PERCENTAGE AND DIVIDE THE DEPOSIT UNITS BETWEEN THE ACCOUNTS ACCORDING TO THEIR FINAL BALANCE.":AE06:20)AE;" ";AE5;"%": çK07:KF0:OP977:OSOP15360:@OP2,"SELECT YOUR HOUSE PERCENTAGE";:3000:KE7UH100(KE5)è4090:@320,"YOU MAY WISH TO TAKE THIS OPPORTUNITY TO MAKE AN EQUAL DEPOSIT IN ALL BETTING ACCOUNTS SIMULTANEOUSLY-":4080:KE10220:AE19:U(AE)110KE:U(AE10)U(AE)::220H:@15,"+++ CURRENT STATE OF ACCOUNTS +++":@128,"A/C";10)"BALANCE";27)"DEPOSITS";41)"LIVE DOUB.";53)"LIVE TREBS.";:(63,45)AE19:AE;:5)ZG;U(AE);:20)ZG;U(AE10);:46)FK(AE,2);58)FK(AE,3)::OP977:2990:220PL0:UV1:@595,L;" ";:ZF;L;:AE65978764:LL1:UVUV10:@AE,L;" ";:ZF;UV;::K04:KF0:OP977:OSOP15360:@OP,(31);:@OP2,"SELECT YOUR DEPOSIT";:3000:@OP,(31);:@320,"CURRENT ACCOUNT BALANCE IS";:ZF;U(KA);::@23,"+++ DEPOSITS +++":Q:uVN5:W%3:PKPJ:HS$"RIDER CATALOGUE":30580:30090:NG150:GH1:NHNGNG10050:30530:J$(GH)"":V15:J$(GH)J$(GH)N1$(V)::30100:30200:GHGH1:DuNG;5)J$(1);26)NG50;31)J$(2);52)NG100;57)J$(3):::22)"* SIGNIFIES APPRENTICE RIDER":(4,10):991{buVN6:W%3:PKPH:HS$"STABLE REGISTER":30580:30090:NX1601150:P1(NX150)1:NGNXNX49:GH1:NHNGNG10050:30530:N$"":V%14:N$N$N1$(V%)::30540:N2$(GH)N$:GHGH1:luNG;5)N2$(1);26)NG50;31)N2$(2);52)NG100;57)N2$(3):::13)" 1 1 1 1 1 1 1 1"^Ȁu13)"MUDLARK-GOOD START-STAMINA-STRONG RUN-RESPONSE"::33)"PAGE ";P1:::NX601ʑ30090:::N$"":991Ȋu(W%,10):24)"+++ THE INSIDE TRACK +++":28)(16,45):28)HS$:28)(16,45)::ɔuV14:(J$(GH),V,1)" "ʇ::JT$(J$(GH),V1)"."(J$(GH),(J$(GH))V):J$(GH)JT$::=u(J$(GH))79ʒ:J$(GH)J$(GH)"*":$wZ2(1)"1":Z2(2)"2":Z2(3)"3":Z2(4)"1-2":Z2(5)"2-3":Z2(6)"1-3":W%1:HS$" RACE CARD":30580:30090:A1A119:155::A010:A11:V%192-wV3%0:V1%V%V%1:V3%V3%1:V%9V3%2:::23)"RACE ";V%;" CLASS ";Z2(CC(V%)):VX%19:20)N$(V3%1,VX%):::(3,10):V%19:V3%19:N$(V%,V3%)"":::N$"":991.wD19:PKPH:VN6:NHH%(V1%,D):30530:N$((D),1)" ":V2%14:N$N$N1$(V2%)::30540:N$N$" ":VN5:PKPJ:NHJ%(V1%,D):30530:V2%15:N$N$N1$(V2%):p8wV2%2225:(N$,V2%,1)" "ʇ:NT$(N$,V2%1)"."(N$,(N$)V2%):N$NT$:=wN$(V3%,D)N$:::30590:VX%19:N$(V3%1,VX%);40)N$(V3%,VX%):::BwPX0:NH31PD((NH1)5)PK:30531:PX((NH1)30)158:PD(PKPX)((NH((PX158)30))5)5CwPD32767PD1(65536PD):30532:PD32763SG1:ZBZP(6):V15:SGSG2:N1$(V)(ZP(5),SG,2):30539DwV1VN:R0:N(V)(PD(V1)):VN6V5V6:305394EwN(V)5N1$(V)(ZP(2),N(V)21,2):30539:N(V)216C0(N(V)236):N1$(V)(ZL,((N(V)216)(C019))2C0,2):30539FwN(V)108SG1:VL13821626:SGSG2:N(V)VLN1$(V)(ZP(4),SG,2):VL216::30539::N(V)N(V)108:R1:N(V)5N1$(V)(ZP(1),N(V)21,2):30539GwSG1:VL3010826:SGSG2:N(V)VLN1$(V)(ZP(3),SG,2):VL108::30539:IwC1(N(V)5)26:C2N(V)C126:C3C25:C4C2(C35)1:R0N1$(V)(ZV,C4,1)(Y(C1),C3,1):30539:N1$(V)(Y(C1),C3,1)(ZV,C4,1)Kw: LwGMN(5):GS256:N$N$" ":D4701:GSGS2:GGMGS:G0GMG:N$N$"1":::N$N$"-"::[Qw:AH14:(J$,AH,1)" "ʇ::JT$(J$,AH1)"."(J$,(J$)AH):J$JT$::/tw:@22,HS$::"BECAUSE OF THE ENORMOUS AMOUNT OF MEMORY REQUIRED TO STORE 750 HORSES NAMES (PLUS PERFORMANCE CHARACTERISTICS & CLASSIFICATION)AND THE NAMES OF 150 RIDERS-- IN ASCII OR STRING ARRAY FORMAT--"uw"THE INSIDE TRACK USES A UNIQUE FORM OF FILE COMPRESSION. AS A RESULT, ALL FILE INFORMATION MUST BE DECODED BEFORE IT CAN BE MADE AVAILABLE TO YOUR PRINTER IN RECOGNISABLE FORM, AND"vw"MEANS THAT YOUR PRINTER WILL SPEND A LOT OF TIME WAITING FOR THECOMPUTER TO SUPPLY IT WITH TEXT. THE FOLLOWING ARE APPROXIMATE PRINTING TIMES-"ww" RACE CARD------- 14 MINS RIDER CATALOGUE- 8 MINS STABLE REGISTER- 48 MINS":8~w:3)"RACE ";V%;" CLASS ";Z2(CC(V%));43)"RACE ";V%1;" CLASS ";Z2(CC(V%1)):҈w:@320,"DO YOU HAVE A PRINTER CONNECTED AND READY TO RECEIVE TEXT Y/N";ҒwX:X""30610:X"Y"AJ1Ҝwj:COPYRIGHT (C) 1979, 1980 PETER G. HARTLEY, 57 MAIN AVE., FREWVILLE, SOUTH AUSTRALIA. 'SNAKE' SHOULD RUN IN LEVEL 2 AND DISK BASIC.j33kK0KK:D$:D$""5;kS(D$):S91S10S46S445::ZSAkPkZ10YY1_kZ46XX2nkZ44XX2}k Z91YY1k M15359(Y)64X:C(M):C19128k C42C3517k M,42:KKKK.25k K1K1.125:K1330K1330kA1A11:A1K1A10)lA(A1),32:A(A1)M:A2(100):A29430?lA28531:3::3nlP(Y64X):Z(5):Z18,19,20,20,21,22:23lD$"CRUMP!":lD$"YAROOH!":lD$"BANG!":lD$"SMASH!":lD$"THUD!":%mX57XX9:17::@P,D$;:D$"":T0500:::(23):"YOUR SCORE WAS";H::"PLAY AGAIN?";=mD$"":D$:D$""23MmD$"Y"ʎ43\mD$"N"23m:(23):"BYE FROM SNAKE...":T0500:::mA3(20)5:HHA3:@984," SCORE";H;"###########";:mX1(30)21:Y1(11)1:M15359X12Y1641:n29:(M)32ʱM,191:@n29:(M)191ʱM,32:A2(40)5:HHA2:28Fn kn!:@532,(23);"SNAKE":T0200:n"::D$"":"DO YOU REQUIRE INSTRUCTIONS?":n#D$:D$"Y"D$"N"35n$D$"N"43o%:" THIS IS A GAME OF SKILL - WITH JUST A LITTLE BIT OF CHANCE THROWN IN FOR INTEREST. THE PLAYER IS REQUIRED TO CONTROL A SNAKE OF ********* WITH THE FOUR CONTROL KEYS... *";ap&" UP * UP ARROW OR DOWN * DOWN ARROW OR LEFT * < RIGHT * > "p'" IF THE HEAD OF THE SNAKE SHOULD COLLIDE WITH THE BOUNDARY,":"OR WITH ANY PART OF THE SNAKE ITSELF... THE GAME ENDS.": q("PRESS <> TO CONTINUE...";D$:q)::"FROM TIME TO TIME TARGETS WILL APPEAR ON THE SCREEN...":"YOU ARE REQUIRED TO HIT THESE IN ORDER TO INCREASE YOUR SCORE.":"EACH TARGET HAS A LIMITED LIFE... IF IT ISN'T HIT BEFORE ITS":"LIFE EXPIRES... YOUR SCORE IS DEBITED WITH ";r*"T W I C E ITS VALUE.":"AS THE GAME PROGRESSES THE SNAKE WILL GRADUALLY INCREASE IN":"LENGTH, AND THE SPEED OF THE GAME WILL INCREASE..."::T070::"G O O D L U C K !":T02000::43r+200:::16553,255@s,B$(63,"#")" ":K115:B$;::B$(63,"#"):B$;:B$"#"(61," ")"# ":@64,"";:K113:B$;:s-10:M,A,S,X,Y:H:SV64:SH2:A(330):KK50:X(15)215:Y(3)4:Z(4):Z46,47,48,49:M154231638364:M,128::10s.Z91:s/Z10:s0Z44:s1Z46:s2D$:D$""48t3Z(D$):D$;Z;" ";:50j : ****************** * (C) S.CROCKETT * * 19 MICHELLE DR * * WENTWORTHVILLE * ****************** :k1000:AZ: A$(6),P$(10,2),P(24),B(4),P1(10),S(13),O2(10)nk:C$(5,128)(26)(5,8)(26)(5,128):A256k(@A,(20,155);:@A27,(10,155);:@A44,(20,155);k2AA64:@A,(20,166);:@A27,(10,166);:@A44,(20,166);!l<AA64:@A,(20,153);:@A27,(10,153);:@A44,(20,153);7lFA832A704:40lP 128,166,191,153,128,138,171,191,151,133,160,191,131,191,144,128,166,143,153,128,138,171,191,151,133,176,158,131,173,176)mZ 128,157,79,174,128,128,60,191,62,128,160,47,128,92,144,136,153,79,166,132,128,62,191,60,128,176,47,131,92,176md140,179,191,179,140,128,141,188,142,128,160,191,143,191,144,140,179,191,179,140,128,143,188,143,128,184,143,143,143,180#nn128,128,128,128,128,190,179,188,179,189,187,131,151,151,183,128,128,128,128,128,186,179,143,179,181,183,171,171,131,187nx139,180,176,184,135,160,159,175,143,180,140,135,131,163,189,138,183,128,187,133,160,159,191,175,144,188,147,131,139,140o128,176,128,176,128,174,188,191,188,157,140,183,131,187,140,186,179,188,179,181,130,157,140,174,129,130,181,128,186,129o150,179,131,179,169,149,128,79,128,170,186,143,131,143,181,150,179,131,179,169,149,132,45,136,170,171,183,131,187,151oO117:O212:J13:I15CpX:P$(O1,O2)P$(O1,O2)(X):I:P$(O1,O2)P$(O1,O2)(26)(5,24): J,O2,O1:O21:I810:O1(7):P$(I,1)P$(O1,1):P$(I,2)P$(O1,2):ISpB$(5,131)p 64,69,74,79,85,91,96,102,108,113,118,122pI112:X:P(I)X:pI112:P(I12)P(13I)448:pB(1)277:B(2)294:B(3)725:B(4)742:H1:V0qN1:S0:D1:F14qP(5)P(5):P(8)P(8):P(17)P(17):P(20)P(20)-rA$(0)"* * P O T H O L E ** BY STEPHEN CROCKETT USE ARROW KEYS TO MOVE THE POT-HOLE COVER TO TRY AND SAVE THE MAN BEFORE HE FALLS IN THE HOLE. <> :- (0-9) 0-FAST 9-SLOW"LrA$(1)(A$(0),64)(64,32)rS(1)9:S(2)35:S(3)65:S(4)120:S(5)170:S(6)250:S(7)320:S(8)420:S(9)560:S(10)690:S(11)750:S(12)890:S(13)1300&sA0:I5755121:AA1:K120:K:K$:K$""K$"/"K$":"290:@I,(A$(0),1,A);:I:A0sI1(A$(A))63:K$:K$""K$"/"K$":"290:@512,(A$(A),I,64);:K120:K:I:A1A0:270:A1:280s"K3:@512,(A$(1),64);:@51264,(A$(1),64);:I17:O2(I)1:I:SK(K$):E9SK504t,A$(5)"HELP":A$(6)"AHHHH":A$(2)"OOPPS":A$(3)"X#$Z!":A$(4)"OH NO"Wt6I1N:TI1E9100N32:A$st@A$"." HH1:H3 H2tJA$","HH1:H0 H1tTA$(91) VV1:V1 V0t^A$(10)VV1:V2 V1th@B(B),(5,128);:@B(V2H),B$;:BV2Htr TI5u|@45,"S C O R E ";S;" ";:S250ʏS10KK1:S11wuP1(I)P1(I)1:D1N:P1(I)P1(D)IDP1(I)P1(I)1:430:Du@P2(I),C$;:@(P(P1(I))),P$(I,O2(I));:P2(I)(P(P1(I))):O2(I)1O2(I)2:O2(I)1uP(P1(I))0 440uP1(I)24P1(I)0+vI:E9E91:E9E9(E9):SM1ʑ550:310:310?v DID HE FALL ?MvF13470v S0 SS(F) N10 SM1:FF1:E9SK.650vP(P1(I))192B(B)0 SSN:540vN1NN1:SM0vP3P2(I):R(4)1:O(P(P1(I)))(P(P1(I)))320 64>w@P3,C$;:@O,P$(I,2);:@(P(P1(I)))320,C$;:P3O:@(P(P1(I))),A$(R);]wO:@(P(P1(I)))," ";xA1$P$(I,1):A2$P$(I,2):P1P1(I):O1I9:P$(O1,1)P$(O11,1):P$(O1,2)P$(O11,2):P2(O1)P2(O11):P1(O1)P1(O11):O1:P1(10)P1:P$(10,1)A1$:P$(10,2)A2$:O1N110:P1(O1)0:O1.xE9SK50:KK1:K06004xox&P1(N)13P1(N)4P1(N)16P1(N)1P1(N)10P1(N)22ʒzx0O1Nx:P1(O)1P1(O)0ʒxDOxNSM0:NN1:xXS10:V0:H1:K3:SM0:F1:SHSHSS9ybI110:@(P(P1(I))),C$;:P1(I)0:I:@600,"G A M E O V E R";:@10,"HIGH SCORE";HS;:S0:N1:270Oj248}jDy *@T]##(^#V##~#Z "(@S...jZy..jS**@6jS**@< kSf%@s#r%@}(.-$"*@ d%@s#r**@e%@s#r>2@h%@######"@**@<R"#@ %@dkS%@ r%@%@m%@,%%@,%@%@!8>=(:8@(:f8@:8lS:@8(02@:@ !%@**@'%@:@ G~#:8 %@ d%@ e%@:@0ɷ2@f%@^#Fb@+!<06#6+_(G>A> %@%@.Xl S>sO%@6=o xp0t8>sO%@**@ 6B#6#s#r_?(#w=o l S**@ >vO%@s#r< >O%@~ w= l SH%@^#V#~8w# O lS~(5N>O%@w#wA %@FmS:8@(! 8>(%@>(%@!8>@(%@>(%@>(%@>(%@>(%@>(%@mS>pO%@####> ,>0%##^#V*#@RѷR 6!"@5(3=(5# :,@wsH%@>0*(@~ 8 ####>(`>o 5:@ G*@N<%@>ݞ G!@x00~w>ݞ G>_?!<-w>>2,@+V+^*#@R%@6>OA%@s#r%@= %@%@nS!<-6*@N<%@F >G>_(= nSH%@^#V#~8w# O nSf%@#~ =we%@^#V@Br+soS%@%@(oSf%@~= < 6N#6O#6R#6T#6H 6S#6O#6U#6T#6H 6E#6A#6S#6T6W#6E#6S#6T..qS*@~?$02,@:,@0w<8(:,@( Z%@ %@N<%@~ 2,@#%@8O%@~p8NA%@~o(6nw@~< wAO%@~@wUqS*@~@o(>O%@6n= NA%@~@w%@:"@*(@w%@6*@~@oNA%@~w@|q S*@###^#VBr+s>2,@%@q!S!@~24*@###^#V Br+s>2,@r#S*@N<%@*(@~2"@G %@*@^>*(@~w=%@m%@%@:,@8%@*@F=%@%@:8 >2,@:@(:@8 :"@*(@w^>#~w?:@8@ >ݾ>(w>:"@*(@w:@8 >:@8 > >\%@A r%D="VOYAGEOFTHEVALKYRIE!"(C)(P)1980LEOCHRISTOPHERSONPLAYMUSIC?YES(Y)ORNO(N)$s'GENERGY:012345Vs,SH%@^#V#*#@~!8 8w#O #ys-S4%@66%@6:%@6;%@6s.S4%@66%@6:%@6;%@6s/SH%@^#V#~!8w#O #s0S/%@/%@!=>O%@ ~# @ = +t1S%@~O%@ %@###>w#= t2SH%@>N> #^#V#>(>@B= >@B= >(>C= >C= t3S24%@u4Dooo o^oooo o^oo^oo^ ^Jooo^oo~i~~ioSo oo~i~~ioSoooSSoS S S.u5S26%@v6Dooo o~oo~oooo o oXXX~XcXoXcXo X~XX~X XJJ~JcJSJXJcJXJSJXJcJXFSFXFc Ao XiScXoc~ o vocvXoooo o~oo~oooo o oXXX~XcXoXcXo X~XX~X XJJ~JcJSJXJcJXJSJXJcJXFSFXFc Ao XiScXoc~ o~J ~ov~o S.Kw7SH%@>> ~#V^  W>x(zV _>x({^ = #Xw8S7:%@ew9S7;%@w:Dxxxxxxxxvcxcxcvxvxv w;Dx vx0}w<DD=GQw=DD>HRx>DD<FP x?DD@JTx@DDAKU'xADDBLV 4xBDD?ISAxFDDGG=NxGDDHH>[xHDDFF<hxIDDJJ@uxJDDKKAxKDDLLBxLDDII?xPDDQQ=xQDDRR>xRDDPP<xSDDTT@xTDDUUAxUDDV V BxVDDSS?yZS!ٿ6T#6R#6A#6N#6S#6P#6O#6R#6T#6I#6N#6G> A!<-<(66Q(B `&>.A T \- l--$ %@..y[SZ%@y\S!<-6>AAAA >͹ydG f??????????????3zeGg;zfDAzhD^ziSj%@~zjD0zmS>sO%@####~8@0Gn%@=o {nSH%@> > o%@#5%@@wG +N%@#~nf(@ @2 >* ' B @ > BR[#@R<|0><%>R0>B@{8? >B,8 >Bw#>ww##s#r%@.x|oS%@^Vs#r %@@[#@R>R8ut:"@o(+s8 6<##^#V@Br+s##_(w66p%@>q%@>r%@>s%@>2@>2,@|pD@g|qDVGf|rD?f |sDFf}vGg@@@7.-. 9+CASTLETORDENLAG.}wGg@@:6% !!%MOUNTAINPASSRSTPASS}xGg962 ,(=@@SJAELBJERGKDNBGQHRo~yGg61 /+--,*1CASTLELUFTIGLEOCHRIS~zGg@@7;%!!'MOUNTAINPASSRSTPASSZ{Gg  @@@@@@MOUNTAINS|Gg  @@@@@@MOUNTAINSY}Dg@93+*()@@CASTLEANGREP.΀~Gg@@1890202CASTLEDRAGEAGg@ :8:<50.(CASTLEFRYKTGg@@@"=))* @CASTLEGEVAERGg@@>9201;.CASTLEJAMMERzGg@@@363010 CASTLENEDGAAՂGg@@@211:=1CASTLEVAKKER?Gg@@@@+4/11 CASTLEAEKELGg @@@@@@@MOUNTAINS. Gg@@@@@@@@OCEAN...%Gg@@@@@@@@@FOGBANK8Zn{zCn*KZnCn^ZnćCnqZnCn ZnCnZnCnZnCnZn|CnЄZnCn ㄤZn|CnZn{zCn Zn{|wCnZnCn/Zn{zCnBZnCnUZnz{CnhZnwzCn;{Zn{zCn9Znzw{Cn8Znw‡w{Cn?Zn{wzCn@DžZn|wCnڅZnwzCnA텲Znwz|{Cn7ZnwzCn$Zn|w{Cn#&ZnCn9Zn|wCn:LZn||Cn _Zyz|{Cn.rZnw{CnBZn{CnZnz{Cn1ZnƇzCn͆Zv|>v LAEKELHAWKSZy>y IVAKKERHAWKSZqv>qTORDENCONDORS3Zy|>yDNEDGAAOSPREYSUZr|{ywCr+LUFTIGFALCONSwZvz{|>v 5JAMMERHAWKSZy|{By%GEVAEREAGLESZyCy FRYKTFALCONS݇Zp~>p2DRAGEOSPREYSZs}>sANGREPCONDORSZnxz{|Cn-;GQf >54lGeg >52:G#g >508͈GMf >82G g :59!Gf57;JG f >54nGf >68GSf >66;ljGUf >64:G f >95G f :7:;G f68<_Gf >68GCf=86GAf=85:Gf>848 Gf=95/Gf;79ZGf67;GGf=86GSh867: G <----G 6#/%@D<   D>ASPILOTOFTHEATTACKSHIPVALKYRIE,YOUMUSTCAPTURETHETENCASTLESOFFUGL0YANDDEFEATTHEFUGL0YAIRFORCE.YOUWILLGAININRANKANDWEALTHASYOUPROCEED.REFERTOYOURFLIGHTINSTRUCTIONSFORALLTHEDETAILS...ANDGOODLUCK!D=VIEW:FIGHTINGABILITYWEAPONS: HAWKS:LOW OSPREYS:LOW CONDORS:MEDIUMPROGRESSREPORT:FALCONS:HIGH EAGLES:HIGHGOLDD (T2EAGLES0)((Q3)199)ʲ@622,"YOU HAVE WON!!";:(53):300UN%10:Z(Q3):320,@960,(30);:@981,"ANOTHER GAME? YES (Y)";6K$:K$"Y"249;(X20)(X27)ʑ4000<310O@3030:(49):D0:LZ:4500:((Q0)111)(Z199)(Z188)ʲ@962,(30);"CONTINUE? YES (SPACE BAR) OR NO (*) DEMAND SURRENDER (S)";:D1:330E@960,(30);:@971,"CONTINUE GAME? YES (SPACE BAR) OR NO (*)";JK$:K$""334:K$" "255:K$"*"249:(K$)13ʱ16412,1:(K$)31ʱ16412,28K(K$)91ʱQ32,1:(K$)10ʱQ32,3:(K$)9ʱQ32,5:(K$)8ʱQ32,7BL4700dNAA%0AA%0:X26:3000:259O(Z(Q35))(RANK7)ʑ3030T4200:D1ʏK$"S"ʑ4310:D0:325^330LEVEL0ʑ3021:4600:3005:1015:4600(X26)(AA%0)AA%0@242,"**#,##";AA%;A:T20:GULD#0:N279:L1981891:4500]T1(Q0)111:T10T10T2T2T1:(Q0)111GULD#GULD#((12(Q5))((Q1)111))199998˚(Q0)110ʲ@N7,"- YIELDED! ";:1035T10ʲ@N7,"- CAPTURED";:@N14,":###";T1;D NN64:L:EAGLES0ʲ@388," DEFEATED ";:@398,"###";EAGLES;|@207,"####";TT2EAGLES;:@271,"####";T2EAGLES;ÛRANK((TT2EAGLES)F)1:@812,S$;:@814,(RN$,14(RANK1)1,13);@881,"**$#,########";GULD#;:RN$" PRIVATE CORPORAL SERGEANT CADET LIEUTENANT CAPTAIN MAJOR COLONEL BRIGADIER GENERAL PRINCE REGENT" RM$"SHIELDS WERE DOWN! WEAPONS OUT! RAN INTO MOUNTAIN! RAN INTO CASTLE! LOST AT SEA! OUT OF ENERGY! ":> N110:(18):S1(50):S::S1(50):S,N: @968,(30);"SELECT LEVEL: (EASY) 0-1-2-3-4-5-6-7-8-9 (HARD)"; K$:K$""3006:(K$"/")(K$":")LEVEL(K$):3006g @960,(30);:BIRDS0:L1981891:4500:B5LEVEL(10):BIRDSBIRDSB:Q1,B111:L:EAGLES((LEVEL)5)LEVEL10:EEAGLES:TBIRDSEAGLES:F(T10):AA%20000:(11): (7):K$:K$"Y"ʯ(45):K$"N"ʯ(46):3021 ˞ LZ:4500:EAGLES0ʒ:Z189ʱQ0,110 Q34,EAGLES111:L(34)154:Q35,L:(Z189)(ZL)ʱQ0,EAGLES111 ON%N%1:N%0N%40:@620,(RM$,19(X21)1,18);:{N%20ʲ@620," DESTROYED! ";::hM%2:LZ:4500:(X27)(Z188)((Q0)111)4202:(Z199)((Z188)((Q0)110))((Z189)((Q0)111))AA%AA%391:M%1:AA%AA%9iAA%20000AA%20000:M%2Mj@242,"**#,##";AA%;:N%N%1:N%0N%5:ak(Q0)1114220mR$" CONDITION GREEN!":M%1ʲ@620," REFUELING! ";:n(Z199)(Z189)ʲ@620,R$;:rN%2ʲ@620,S$;:@620,R$;: wN%4ʲ@620,S$;:@622,"CASTLE ";C$;:xb|N%2ʲ@620,S$;:Z189ʲ@621,"FUGL0Y AIR FORCE";::@621,C$;" AIR FORCE";:N%4ʲ@620,S$;:@620," RED ALERT! ";::@960,(30);:(RANK6)((16411)20)(AA%8000)(((Q0)111)((Q1)111)(RANK10))4330CQ0,110:@976,"CASTLE ";C$;" SURRENDERS TO YOU!";:1020:(51):LZ:4500:@970,"CASTLE ";C$;" DECLINES TO SURRENDER TO YOU!";:S110:4200:N120:N,S:0(L):Q0(16424)(16425)256:Q1Q010:Q4Q012:Q5Q013:Q032767Q0Q065536 Q132767Q1Q165536'Q432767Q4Q465536AQ532767Q5Q565536G}X(16428):X27ʱ16428,19:16412,2::16428,7::L(Q3):4500:(241):(48)\N(Q32):N1V$"NORTH":N3V$"SOUTH":N5V$"EAST ":V$"WEST "a(16412)1R$"ON ":R$"OFF"6f@442,(Q4);:@502,V$;:@568,R$;:@4800zj:S0444:J01266:(J,S):J,S:I034:J:jI01206:J:J0ʇI:K1J:L,M:NL4M4:(I,N):Z16:Z:N,K,IkI113:J,K:L1J:M:NK6K65:(N,M4):Z16:Z:N,L,Ik7,208,342,410,477,967,784,662,602,541,54,237,359,419,480,200,337,407,475,776,657,599,539,878,744,612,545,174,296,420,481,814,680,612,545l2,0,2,5,7,2,1,2,6,7,2,0,1,5,6,2,0,2,5,7,0,1,0,2,1,5,6,1,0,2,1,5,6,1,5,7,1,0,1,0,2,1,2,5,7,0,1,5,7,1,5,7,0,1,6,7,1,5,7,0,0l4,0,0,1,5,6,6,1,0,1,2,5,6,7,5,3,0,1,5,6,7,4,4,0,1,5,7,1,6,0,1,7,0,3,9,5,6,7,5,10,0,1,2,5,7,3,11,0,1,2,2,15,5,7,3,16,5,6,7,3,18,5,6,7,2,19,5,7lI3648:J:(I,J)::(52,2):(53,1):I7383:J:(I,J):1m25,25,26,26,27,27,28,27,27,26,26,25,25,20,20,21,22,23,24,25,26,27,28,28m @832,"Copyright 1980 by Med Systems. All Rights Reserved.";:X11999:mAZ:G:G(41),A(43,23),B(231),D(301),F(34)::30000:40000::I034:F(I):n:@525,"Do you want instructions (Y or N)?";:20000:A$"Y"ʑ31000`n:@529,"Are you a novice (Y or N)?";:20000:A$"Y"TR0:TR1!o@525,"Do you want a little maze (Y or N)?":20000::A$"Y"ʲ@532,"A small maze it will be!";:TX10:TY7:TL12:TC45:@525,"OK! A large maze! You may be sorry!";:TX21:TY11:TL40:TC300/oHI0:QU0o:@525,"Please wait while I set up the maze.";:TX21ʲ@589,"Patience! This may take 3-5 minutes!";:@589,"This should only take 20-60 seconds.";pX(TX)21:Y(TY)21:L(12)TL:SXX:SYY:A(X,Y)2:C0:S0:B(0)100SXSYAp2@0,"*":@0," ":I(4):I90,110,130NpFX1150zpPA(X2,Y)2XX2:A(X1,Y)1:160:150pZY1150pdA(X,Y2)2YY2:A(X,Y1)1:160:150pnXTX21150pxA(X2,Y)2XX2:A(X1,Y)1:160:150qYTY21150/qA(X,Y2)2YY2:A(X,Y1)1:160:150FqCC1:C8180:50wqA(X,Y)2:C0:SS1:B(S)100XY:SL170:50qEXX:EYY:220qX1ʏA(X2,Y)280qY1ʏA(X,Y2)2100qXTX21ʏA(X2,Y)2120qYTY21ʏA(X,Y2)2140irA(SX,SY)0:I1S:X(B(I)100):YB(I)100X:A(X,Y)0:A((SXX)2,(SYY)2)0:SXX:SYY::30:CH80 S.CrB0:J1TY212:I1TX212:A(I,J)2ʑ270r@IJ,"*";:@IJ," ";::rB0220:400rC0:D(4):D310,340,370rI1290:300#s"A(I2,J)2A(I1,J)1:A(I,J)2::s,CC1:C4BB1:Ls6J1320:330rs@A(I,J2)2A(I,J1)1:A(I,J)2:sJCC1:C4BB1:sTITX21350:360s^A(I2,J)2A(I1,J)1:A(I,J)2:shCC1:C4BB1:srJTY21380:390t|A(I,J2)2A(I,J1)1:A(I,J)2:6tCC1:C4BB1::280TtC0:D(4):D440,470,500otA(EX1,EY)1420:430tB(L1)100EXEY200EXEX2:530tCC1:C44000tA(EX,EY1)1450:460tB(L1)100EXEY2EYEY2:530uCC1:C44000uA(EX1,EY)1480:490CuB(L1)100EXEY200EXEX2:530WuCC1:C44000ruA(EX,EY1)1510:520uB(L1)100EXEY2EYEY2:530uCC1:C44000:410uLL1:B(L)100EXEY:@63,"*"::400vKL05:IKL:A(XPIP2,YQIQ2)0KL6::$vA$:A$""3820vCN(A$):CNIʲ@83,"You can't go THAT far!";:OP11000::@83,(214);:4010:CN0ʏA$"0"ʲ@83," Try again ";:OP01000::@83,(214);:4010:4010vZCNTC3850:3860w :@536,"You have STARVED":OP01000:::CNTCZ1wAN1CN:XXP:YYQ:ZZ1:D(Z)100XY::SM0:XEXYEY8900:ZTC1ZTC1::9000::4110w<Z(TC32)ʄ:@522,"The hint guru only goes with a winner":AN01500:::4110wFAN0L:B(AN)100XYAN300::xPAN3013940@19,"Caught in a landslide";:c@19,"No escape from reality";:@23,"Open your eyes";:@19,"Look up to the skies";:@27,"And see";:ۃ@20,"I'm just a poor rat";:@20,"I need no sympathy";:@24,"Because I'm";:.@26,"Easy come";:D@27,"Easy go";:X((SCTX9)(((TX2))2))7002,7003,7004,7005,7006,7007,7008Y@779,"We will pretend this never happened":ׄZ@788,"The PERFECT rat":[@786,"You were born a rat":\@785,"Rat substitute material":8]@791,"Acceptable":Z^@787,"Average dog's score":~_@786,"Average human's score":`@791,"Disgraceful":!BCF΅!(B214,B):(B215,B):(B214,47B)公!(B215,47B)::`"BCFj"(108B2,B):(109B2,B):(108B2,47B)6t"(109B2,47B)::<"K"@397,T6$;{"@917,"Delicious... BURP!":AS15000:(#:TX109040:S0444:J01266:(J,S):J,S2#J0422:I1212:A(J,I)0PJ3:QI21:MQQ2:(P,M):7#:;<#J1412:I0222:A(J,I)0PJ32:QI2:MPP4:(M,Q):CA#:MF#9110‡P#I0426:J012012:(J,I):(J1,I):::J0202:I1132:A(J,I)0PJ6:QI32:MQQ4:(P,M):(P1,M):ʇU#: Z#J1192:I0142:A(J,I)0PJ64:QI3:MPP9:(M,Q):_#:d#S0Z:A(D(S)100):BD(S)A100:(6A,3B):(6A1,3B):I125::(6A,3B):(6A1,3B)::A$:@979,"Press any key to continue";n#A$:A$""9181:(EX6,EY3):(EX61,EY3):(EX6,EY3):(EX61,EY3):9070;#S0Z:A(D(S)100):BD(S)A100:(3A,B2):I125::(3A,B2):g#A$:@979,"Press any key to continue";}#A$:A$""9181#(EX3,EY2):(EX3,EY2):9172Ɖ#:QU1ʲ@279,"Too bad you quit"#SCZLHI5:@390,"You made";Z;"move";:Z1"s";/#" in the maze and used";HI;"hint";:HI1"s"#@461,"The main trail was";L;"units long":QU19185:@532,"Your score is";SC:7000:9190ۊ#@525,"You receive no score for quitting":@786,"We frown upon quitters"#A$:@584,"Do you want to see the maze again (Y or N)?";4#20000:A$"Y"ʄ:9000l#A$::@527,"Do you want to play again (Y or N)?";$20000::A$"Y"ʎ14:'15965,191:15966,179:15967,179:15968,191: NA$:A$"N"A$"Y"A$"y"A$"n"20000:A$"y"A$"Y":!N0uT1$"These are the hardest of the graphics to understand. Note that moving forward one space in example 3 results in example 2. ":uT2$" Facing a wall,ʃ Facing a wall, Ǫ no openings toopenings to left or right˰ left or right 12 "֍DuT3$" Move one step forwardÃð Hallway receding to Ǫ and move left or rightųinfinity, openings From above: Űà to left or right 3ӏ[4 "NuT4$"ð Hallway receding toŗð Looking into a ³ª infinity, no openingsÕ·ª deadend, no openingsà to left or rightȵà to left or right 56"oSuT5$"Available Commands: ] or 4Turn to the left ^ or 6Turn to the right \ or 2Turn around [ or 8Move forward one step AXX=0-5, Accelerate X moves forward Shift 8Hint RRedraw the screen HHelp - Print instructions"/UuT6$"Ѱ ĠȂ à °ѠĿ ;ǰ‰ð ͿŊĠĈÃĈ Ϳ"5Xuy:T5$;:" ";(209);"Q";(202);"Quit, display maze Note that only '[' moves you. The other arrows simply rotate youin place to the left, right, or back. This allows you to check all directions prior to moving. ";ry"Rotating in place does not countas a move, so does not bring starvation any closer.";:31010!y:T1$;T2$;T3$;T4$;"yA$:A$""31010:u@G(0)"":G(1)"":G(2)"":G(3)"":G(4)"":G(5)""UJG(6)"":G(7)"":G(8)G(3):G(9)G(4):G(10)"":G(11)"":G(12)"":G(13)""&TG(14)"":G(15)"":G(16)"":G(17)"":G(18)"":G(19)"":G(20)"":G(21)G(17):G(22)G(18):G(23)"":G(24)"":G(25)"":G(26)"":G(27)""ݔ^G(28)"":G(29)"":G(30)"":G(31)G(27):G(32)G(28):G(33)"":G(34)"":G(35)G(23):G(36)G(24):G(37)"":G(38)"":G(39)"":G(41)""_G(40)""OÒj ** COPYRIGHT 1982 80 MICRO MAGAZINE ** A DIVISION OF WAYNE GREEN INC. DOCUMENTATION CONTAINED SOLELY IN 80 MICRO CALL 800-258-5473 FOR BACK ISSUESk:ANDROID PICTURE GALLERY BY M.K.COOK G8HBRk )k 10003k AZSk( PA(9,4),FG$(1,31),SG$(15)k2BA0 :0 FOR DISK BASIC 1 FOR LEVEL iik<kF A1 9kP FT(A)kZkd(23)::(32,42);kn A1 9kx RT(A)kl"** ANDROID PICTURE GALLERY **";l(32,42)9l::"DO YOU WANT THE RULES ? ";Hl A1 31`l FG$(0,A),FG$(1,A)flul A1 15l SG$(A)llA$: A$"" 230lA$l A$"Y" 390l(28)l@256,m"YOU ARE THE CURATOR OF THE ANDROID GALLERY",m""IN THE SIMPLE GAME YOU HAVE TO - "^m,"CLEAR THE GALLERY READY FOR THE EXHIBITION"m6"YOU DO THIS BY USING YOUR ANTI-ANDROID DUSTER"m@"THIS WILL CLEAR AN OCCUPIED FRAME BUT UNFORTUNATELY"mJ"FRAMES NEAR BY WILL BE REVERSED"3nT"CORNER - CENTER - MIDDLE OF ROW ----- EACH PRODUCE A"rn^"DIFFERENT (BUT CONSISTENT) PATTERN OF CHANGE AND SOUND."nh"IN THE FULL GAME YOU HAVE TO GET ALL THE GIVEN FRAMES OCCUPIED"nr"BY HAPPY ANDROIDS (THEY'RE NOT HAPPY OUT OF A FRAME)."8o|"TYPING A 'Q' WILL QUIT THE CURRENT GAME AND START A NEW ONE"}o"TYPE S FOR THE SIMPLE GAME ":"ANY KEY FOR THE FULL VERSION ";oG$: G$"" 400oG$o A$"Y" 460o"DO YOU WANT TO ENTER YOUR OWN ":"STARTING POSITIONS ? ";pDA$: DA$"" 440pDA$;,p:SET UP FACE STRING8p" OK"Fp N0 7SpF$(N)""bp N11 8jp TpF$(N)F$(N)(T)p N1,Np N1 9p& N11 4p0 PA(N,N1)p: N1,NpDBL$(35,"A")pNA((BL$)2):B((BL$)1)qXAD!A256B,qb AD!32768 C9AD!65536 : C9AD!\ql BA0 1C9:"T" : 16527,A: 16526,Boqv AC9 C929q T: (A),Tqqq DA$"Y" 860q N1 9:BC(N)0:q(23);"TYPE IN ANDROID POSITIONS"q"TYPE X WHEN FINISHED"r::"ANDROIDS AT -";!r 21304r A$"X" 750GrBC(N)1: 720Ur N1 9arBF(N)1ir Nor r G$"S" 1090r  N1 9:BF(N)0: Nr*(23);"ENTER FRAME POSITIONS":"TYPE X WHEN FINISHED":r4"FRAMES ARE AT - ";r> 2130sH A$"X" : 1090(sRBF(N)1: 8306s\NA1:NF0Dsf N1 9XspBC(N)0:BF(N)0^szs G$"S" A$SG$((15)): TT$(A$,2): 2080 : 2200 : 1010sC(31)sA$FG$(1,C)sTT$(A$,2)s 2080s N1 9sBF(N)BC(N)st A1 9:BC(A)0:*tA$FG$(0,C)" "5t 2080Ft N1 (4)Tt A1 9xtTF(RT(A))BF(A):TC(RT(A))BC(A)~tt A1 9t$BC(A)TC(A):BF(A)TF(A)t.t8tBTN0tL F1 9tV BF(F)1 1740t` Ftj F1 9ut BC(F)1 1840u~ F uP38bu G$"S" @P,"CLEAR THE GALLERY"; : @P,"ANDROID GALLERY";nuPP128u@P," 7 8 9 ";:PP64u@P," 4 5 6 ";:PP64u@P," 1 2 3 ";:PP128v DA$"Y" @P,"CAN BE COMPLETED IN ";TT$; vPP128/v@P,"TURN NUMBER ";TN;:PP128Qv@P,"ENTER NUMBER - ";:PP64ivA$: A$"" 1260uvTNTN1v A$"Q" 660v F(A$)v@694,A$;v@562,TN;v( F6 FF6 : 1340v2 F4 FF6v< BC(F)0 1260 vFCFwPBC(F)0: 1980wZ N21 4,wdFPA(C,N2)=wn F0 1410nwx BC(F)0 BC(F)1: 1840 : BC(F)0: 1980ww N2wET1:AC1w N1 9w BC(N)BF(N) ET0w BC(N)1 AC0w Nw AC1 G$"S" 1590 x AC1 G$"S" 1500x ET0 1260/x@806,"THAT'S IT !! ";Qx@934,"HIT KEY FOR NEW GAME";dx A9 1 1wx(C914),FT(A)x BA0 X1(150) : X(150)x A11 30:xx"A$: A$"" 1570x, 660x6@806,"YOU CAN'T WIN NOW";x@ 1510 yJTCF:TR1yT TC4 16502y^TCTC3:TRTR1=yh 1620QyrTCTC1:TRTR1Wy|gyX(12TC)1{y TC2 XX1yY64(TR5)1yLXYyX(TC24)12:YTR15yFP(X,Y)2yy 1610yX1TC25:X2TC2522z YTR15 TR1515+z(X1,Y):(X11,Y):(X2,Y):(X21,Y)3z YLzY1TR15:Y2TR1515ez XTC25 TC2522yz(X,Y1):(X,Y2)z Xz&z0 1610z:1670zD FP1 @L,F$(0);: @L,F$(1);zNLL64zX BF(F)1 @L,F$(2);: @L,F$(7);zbLL64{l@L,F$(3);{vLL64A{ BF(F)1 @L,F$(4);: @L,F$(6);L{LL64[{@L,F$(5);n{(C914),FT(F){ BA0 X1(100) : X(100){{ 1610{ 1670{ FP1 @L,(8,131); : @L,(8,128);{ N1 4{LL64|@L,(8,128); | N|(C914),FT(F)B|  BA0 X1(200) : X(200)H|V| L(A$)2d|* A1 L{|4BC(((A$,A,1)))1|>|H|RA$: A$"" 2130|\ A$"X" |fN(A$)|p N6 NN6 : 2180|z N4 NN6|A$;",";| } A1 9}BF(A)1}"}Z} 60,70,80,90,100,110,120,130,140,3,6,9,2,5,8,1,4,7} 1,2345678913,1346,789 5,25,12345610,25,134678911~ 3,159 3,134679,124579 6,124,3678910,5,1234678911,456,12310,1379,5 9,9,1 8,12346789,5 5,2,5 8,12358,12346789 7~ 5,2 4,5,1379 9,2,1345678911,5,46 7,258,2468 7,19,1 6,8,1238 7,1,36789 8,124,3678910,19,37 8,5,19 7,5,456 8,258,134679 9~ 19,137910,258,12346789 3,357,159 8,1,37 4~ 13579 9,1 6,13789 5,2468 4,135 5,1234678 4,138 5$ 2 9,137 4,5 5,123456789 5,159 3,37 6,1289 8,12358 3J 131,179,147,131,131,163,179,131p 128,176,144,128,128,160,176,128 176,181,176,176,176,176,186,176$ 191,189,191,183,187,191,190,191. 191,181,179,179,179,179,186,1918 176,176,176,190,189,176,176,176.B 191,181,188,188,188,188,186,191TL 176,176,186,176,176,181,176,176rV 2,4,5,0,1,3,0,0,2,5,6,0` 0,1,7,0,2,8,4,6,3,9,0,0j 4,5,8,0,7,9,0,0,5,6,8,0t 205,127,10,14,1,219,255,203,119,32,2,203,217,6~ 100,0,16,253,121,238,3' 211,255,79,43,124,181,32,240,201pj::" O I L T Y C O O N"::j 16553,255:42:B,D,G,I,M,N,T,U:A(32):F$" #########,":"NAME OF COMPANY 1 ";A$:"NAME OF COMPANY 2 ";B$4k:G(100)125:T(2)1:I14:A(I)2E6::A(13)500:A(14)500:A(15)1E5:A(16)1E5^kd1000:U(T1):@832,;:T0A$;:B$;~k(A(T21)0)((100)5)200k", YOU'VE SUFFERED A BLOWOUT !!":"DAMAGE : $";:Q75A(T21):A(T3)A(T3)Q:A(T21)0:A(T27)0:F$;Q;lI14000::700 l(A(T9)0)((100)8)280l", YOU'VE SUFFERED A TANKER SPILL !!":"DAMAGE :";:QA(T9)(0):A(T9)A(T9)Q:RQ:F$;Q;lQ20R:A(T3)A(T3)Q:" BARRELS, $";:F$;Q;:180m", ENTER YOUR DESIRED TRANSACTION :":"(1=R&D, 2=EXPLORE, 3=DRILL, 4=REPRICE, 5=PASS) ";MKm"@832,(31);:@832,;:M300,400,500,600,700m,"ENTER AMOUNT (THOUSANDS) : $ ";Q:QQ1E3:QA(T3)M1:290m@A(T31)A(T31)Q(.4(0))2E6:A(T31)1A(T31)1mTA(T3)A(T3)Q:700@nA60A(T31)20(40):B1E3(1(9)):C1E4(10):D9(41):E4E3(C1E3D)B:A(T3)A(T3)En"GEOLOGIST'S REPORT:":"REPORT COST= $";(E1E3);"THOUSAND,";:33);"DRY HOLE PROBABILITY=";(A);"%"o"DEPTH=";B1E3;"K FT, FLOW=";(C1E3);:"K BARRELS, VOLUME=";D;" X FLOW";:@854,;Jo@854,;:"DO YOU WISH TO DRILL (1=YES, 2=NO) ";N: N2M5:290oA(T23)B2E3((3)2):A(T25)C(.5(0)):A(T27)DA(T25)(.5(0)):(100)AA(T23)1E6oA(T21)0:M3:290oA(T27)0"YOU MUST FIRST EXPLORE !":1805pA(T3)A(T3)A(T15):A(T21)A(T21)2E3:A(T21)A(T23)530Sp"SORRY, NO OIL YET":180p"YOU'VE HIT OIL !!":A(T5)A(T5)1:A(T7)A(T7)A(T25):A(T21)0:A(T23)0p&A(T29)A(T29)A(T27):A(T25)0:A(T27)0:180 qXA(T5)0"YOU HAVE NO OIL TO SELL !":180GG1:G0860sH1000:@832,"GAME OVER -- ";:A(1)A(2)A$;:B$;sR" WINS !!!";:900s\MT:TU:UM::TU:100s900(t:@29,A$;47);B$:"TOTAL NET WORTH ---------- $":"CASH HOLDINGS ------------ $"t"NUMBER OF WELLS ---------- ":"OIL FLOW (BARRELS) ------- ":"OIL RESERVES (BARRELS) --- "t"OIL SALES (BARRELS) ------ ":"PRICE/100 BARRELS -------- $":"DRILLING COST/2000 FT ---- $"Tu"NET OIL PROFIT (LOSS) ---- $":"RATE OF RETURN (%) ------- ":"CURRENT DRILL DEPTH (FT) - "huI164:"-";:uI1212:@32I60,F$;A(I);:46);F$;A(I1);::UPREME RULER" :8200:@256," JMG Software International Proudly Presents >>Hj .... B A C K G A M M O N ....Rj 100_jd:(23)tjn @64,(32,"*");jx@128,"*";:@190,"*";j@192,"* B A C K G A M M O N *";j@256,"*";:@318,"*";j@320,(32,"*");k I1 1500: Ik AZ::%kCY$"BRUTUS":T$""+kZk.@394,"B A C K G A M M O N - VERSION 1.01"k8@458,"COPYRIGHT (C) 1979 BY NORMAN J. WAZANEY JR."k;@522,"PUBLISHED BY HAYDEN BOOK CO. INC."k@ I 1 3000: IlB P(27),D(4),S(2),OM(24),PC(2),XA(24),VI(30),VJ(30),VD(30)1lD HT(15),V1(15),V2(15)7lG=lL[lV .... START OF GAME ....al`lb@ 458,"HELLO!! MY NAME IS BRUTUS AND BACKGAMMON IS MY GAME"lj .. FIND OUT WHO IS PLAYING THE GAME ..lt@ 586,"WHAT'S YOUR NAME";: PY$)m .. GO READ STARTUP POSITIONS INTO ARRAY 'P' ..4m 1560Tm .. INIT END GAME VALUE .._mEG120m .. INIT NUMB COMP STRATEGIES ..mCS8mm .. DET WHO ROLLS THE DICE ..m@458,"DO YOU WANT TO ROLL DICE ";PY$;: A$m n A$"YES" DR1 : DR0/n .. DET WHO SHOULD GO FIRST ..Yn@458,"DO YOU WANT TO GO FIRST";: A$_nn@458,"HOW MANY SECONDS DO YOU WANT PIECES"n@522,"TO BLINK BEFORE THEY MOVE";: CFn  A$"NO" T$CY$ : T$PY$n  .. PRINT BOARD ..o" 100006o( .. SET GAME STATUS FOR COMP/PLAY TO STANDARD ..Ho2S(1)1:S(2)1NoFhoP .... MAIN LINE ....noZod .. GO ROLL DICE - THEN PRINT THEM ..on@198,(17," ");:@198,T$;:@180," ";:@187," ";: 1640px .. CHECK WHOSE TURN TO MOVE - THEN DO MOVE ..-p T$CY$ 2250: 1510@p 20000: 3330bp .. GO DO GAME EVALUATION ..mp 1920p .. IF GAME OVER - THEN TERMINATE ..p S(1)4 1390p 1520pp .... SUBR - READ STARTUP POSITIONS INTO ARRAY 'P' ....qq L0 27: P(L): L7q- L1 15: HT(L): LTq. L1 15: V1(L): Lqq/ L1 15: V2(L): Lwq6}q@qJ .... SUBR - ROLL DICE ....qTq^ .. IF PLAYER ROLLS - INPUT DICE ROLL ..qh DR0 1690ri@24,"INPUT DICE ROLL";:K94: @K," ";rj 23000sXesb .... SUBR - GAME EVALUATION ....kslsv .. SET COMP/PLAY GAME STATUS TO STANDARD ..sS(1)1:S(2)1s .. DET IF PLAYER OR COMPUTER WIN ..s P(26)15 1990.t@192, "CONGRATULATIONS ";PY$;" YOU BEAT ME!!!!!";: 2170Ft P(27)15 2040t@192, "TOO BAD ";PY$;" I WON-BETTER LUCK NEXT TIME!!";: 2170t .. SET PLAY/COMP STATUS IF MEN ON BAR ..t P(0)0 S(1)2t P(25)0 S(2)2u  .. SET PLAY/COMP STATUS IS BEARING OFF ..$u L0 188u  P(L)0 2110@u* LKu4S(1)3Zu> L7 25quH P(L)0 2200yuR Lu\S(2)3: 2200up .. SET PLAY/COMP STATUS TO GAME OVER ..uzS(1)4:S(2)4:M0uuu .... SUBR - PLAYER MOVE ....v#v .. DO GAME EVALUATION ...v 1920Iv .. ANY MOVES LEFT ..Zv M0 2640zv .. TEST FOR MEN ON BAR ..v P(0)0 SL0:EL0:LM24: 2450v$ .. BEAR OFF TEST ..v. S(1)3 SL19:EL24:LM25: 2450v` .. ALL OTHER MOVES ..wj SL1:EL24:LM24>w .. DO PLAYER VALID MOVE ANALYZER ..Iw 2920lw .. ANY VALID PLAYER MOVES ..~w U1 2510w 20000w @215, "YOU HAVE NO VALID MOVES";w Q1 1000: Qw @215,(27," ");:M0: 2640x .. PRINT DICE ..x IV1 20000'x IV0: 21000Cx I$"R" 10000: 2510_x I$"H" 3200: 2510wx I$"BAR" I$"0"x( I(I$)x2 .. GO PROCESS PLAYER MOVE ..x< 2690: 2250xP T$CY$: 20000xZ xd yn .... SUBR - PROCESS PLAYER MOVE ....yx y LZ1 U13y VI(LZ)I 2860My VJ(LZ)J 2860dy IJ25 2750ry J26Iy ..PLAYER 'FROM' MOVE..y K(P(I)): 22000:P(I)P(I)1: 17000:IIJy P(I)1 BX1: P(I)1 : P(I)P(I)1: BX0z K(P(I)): 22000:(X,Y): 17000Cz BX0 BX0: I25: P(I)P(I)1: 2764cz D(VD(LZ))D(M):MM1: 2880lz, LZz6 @215,"INVALID MOVE-TRY AGAIN";:IV1z@ zJ zT .... SUBR - PLAYER VALID MOVE ANALYZER ....z^ zh U1zr LSL EL{| P(L)1 3030{ N1 M6{ LD(N)LM 3020d{ (P(LD(N))1) (LM25) 3020{ VI(U)L:VJ(U)D(N):VD(U)N{ U1 3010{ (VJ(U)VJ(U1))(VI(U)VI(U1)) 3020{ UU1{ N{ L{ S(1)3 3160 | L19 24"| P(L)1 31503| N1 MP| LD(N)26 3130x| VI(U)L:VJ(U)D(N):VD(U)N| U1 3120| (VJ(U)VJ(U1))(VI(U)VI(U1)) 3130|0 UU1|: N|D 3160|N L|X |b $}l .... SUBR - 'HELP'-PRINT PLAYER VALID MOVES ....*}v ?} LD1 U1 3f} L0 128 64:@L,(50," ");: Lo} LLD} LB0 128 64} @LB,"FROM ";} VI(L)0 "BAR";: VI(L);} @LB12,"POS ";VJ(L);} LL1: LU1 3252} LB~ @215,"HIT ENTER";(~ QP$: QP$"" 32531~ LDF~ @215,(27," ");L~ g~ .... DATA AREAS ....~ 0,2,0,0,0,0,-5,0,-3,0,0,0,5,-5~ 0,0,0,3,0,5,0,0,0,0,-2,0,0,0~ 2,2,2,0,0,0,4,4,4,1,3,1,3,1,3 21,23,25,21,23,25,21,23,25,22,22,24,24,26,269 38,36,34,38,36,34,38,36,34,37,37,35,35,33,33? d .... SUBR - COMPUTER MOVE ....j s KS0| RI0 MI0 .. COMPUTER STRATEGIES ..* .. KS=1 - MEN ON BAR ..4 .. KS=2 - BEARING OFF ..> .. KS=3 - COVER KEY MEN ..%H .. KS=4 - 1 MAN TO COVER ..@R .. KS=5 - DOUBLES ..\\ .. KS=6 - END GAME ..ya .. KS=7 - SAFE MOVE ..f .. KS=8 - RANDOM MOVE ..p 5780րz KS 3540,4710,5070,5570,5930,6140,5300,4330耄 M0 3440 T$PY$: 20000  = .... SUBR - COMPUTER STRATEGY - MEN ON BAR ....C m .. CHECK FOR COMPUTER MAN ON BAR .. P(25)0 3840 .. HIT A PLAYER OPEN MAN ON ENTRY IF POSSIBLE BUT .. .. ALSO KEEP TRACK OF A COMPUTER OPEN MAN .. LX0 L1 M N1 MX9 OM(N)19 3640[ 25D(L)OM(N) 3640y$ P(OM(N))1 3780. LXL8 NB L΂L .. HIT A COMPUTER OPEN MAN IF POSSIBLE ..V LX0 LLX: 3780t .. NO OPEN MEN-TRY ANY VALID MOVE ON ENTRY ..+~ L1 MI P(25D(L))0 3780Q L@215, "I CAN'T ENTER FROM BAR";:M0: 3840 .. SETUP THEN PROCESS THE VALID ENTRY FROM BAR MOVE ..I25:JD(L):D(L)D(M):MM1: 3890:RI1 # .... SUBR - PROCESS COMPUTER MOVE ....)C(..COMP 'FROM' MOVE..Q2K(P(I))r3@180," ";: @187," ";4 I25 @180,"BAR"; : @180,I;DŽ5@187,J;: 22000:P(I)P(I)1: 17000:IIJބ< I1 I27: BX0F P(I)1 BX1: P(I)1 : P(I)P(I)1: BX05PK(P(I)): 22000:(X,Y): 17000bx BX0 BX0: I0: P(I)P(I)1: 3920n} 20000tz .... SUBR - SCAN BOARD FOR OPEN MEN PLUS COMPUTE .... .... POINTS TO BEAR OFF .... .. INITIALIZE ARRAYS AND VARIABLES ..+"PC(1)0:PC(2)0:MX1c@ .. LOOP THRU BOARD UPDATING OPEN MEN ARRAY AND ..J .. COMPUTING TOTAL POINTS REQ TO BEAR OFF ..T L1 24^ P(L)0 4270h (P(L))1 OM(MX)L:MXMX1 P(L)0 42601 PC(1)PC(1)((25L)P(L))(P(0)25): 4270^ PC(2)PC(2)(L(P(L)))((P(25))25)f LsOM(MX)0y .... SUBR - COMPUTER STRATEGY - RANDOM MOVE ....ŇJX0 L1 24:XA(L)L: L L24 2 1! :QK(L) 0 P(XA(QK))0 45501: N1 MRD XA(QK)D(N)1 4540vN P(XA(QK)D(N))1 4540X IXA(QK):JXN XA(QK)D(N)7 M2 4550ֈ (P(XA(QK)))1 4610ሼ N XA(QK)XA(L) L JX0 4610M0I@215,"I HAVE NO VALID MOVE";: 20000: 4650r .. SETUP TO PROCESS RANDOM MOVE ..JD(JX):D(JX)D(M):MM1: 3890*4ى> .... SUBR - COMPUTER STRATEGY - BEARING OFF ....߉HR .. IF IN BEARING OFF STATUS-DET IF ONE DIE WILL GET ..A\ .. 1 MAN OFF EXACTLY ..Vf S(2)3 5020dp L1 Mz P(D(L))0 ID(L): 4970 L .. IF MEN FURTHER OUT-MOVE THEM ..ފ .. INSTEAD OF BEARING OFF ..슶 L1 M N6 2 1 P(N)0 4850G ND(L)0 4860 : IN: 4970R NZ L .. BEAR OFF THE FURTHEST GUY-(NOT EXACT) .. L1 M N6 1 1ϋ$ P(N)0 IN: 4970ڋL NV L` .. SET TARGET AND PROCESS COMPUTER MOVE ..:jJD(L):D(L)D(M):MM1: 3890:RI1@F .... SUBR - COMPUTER STRATEGY - COVER KEY MEN .... .. CHECK FOR KEY OPEN MAN .. MX1 5230ތ .. HIT KEY MAN IF POSSIBLE .. NMX1 1 1 L1 M% OM(N)D(L)24 5130J OM(N)6 P(OM(N)) 1 5120h M2 D(1)D(2) 5130 P(OM(N)D(L))1 P(OM(N)D(L))2 5170Ǎ P(OM(N)D(L))0 OM(N)6 5170ҍ  Lڍ N 5230( .. SETUP THEN PROCESS KEY COVER ..B2IOM(N)D(L):JD(L):D(L)D(M):MM1: 3890:RI1HnN .... SUBR - COMPUTER STRATEGY - SAFE MOVE .... L24 2 1 P(L)3 5360 N1 MՎ LD(N)1 5350 (LD(N)1) (P(LD(N))1) 5380 N L 5390GIL:JD(N):D(N)D(M):MM1: 3890::RI1MS .... SUBR - COMPUTER STRATEGY - 1 MAN TO COVER .... .. CHECK FOR ANY OPEN MEN ..ȏ MX1 5730 .. MOVE SINGLE COMP MAN TO COVER IF POSSIBLE .. N1 MX1, P(OM(N))1 5650= L1 M] OM(N)D(L)1 5640 P(OM(N)D(L))0 5670 L N 5730͐&IOM(N):JD(L):D(L)D(M):MM1: 3890:RI1Ӑbِlv .... SUBR - COMPUTER ANALYSIS ....; .. GET NXT STRATEGY OR REPEAT PRESENT ONE ..P RI0 KSKS1YRI0l KSCS KS2 .. DET IF A MOVE HAS BEEN MADE .. MIM 5870MIM .. DO GAME EVALUATION AND SCAN FOR OPEN MAN .. 1920: 4130  S(2)3 KS2I  .... SUBR - COMPUTER STRATEGY - DOUBLES ....Om  .. CHECK FOR DOUBLES ..* M2 D(1)D(2) 6090> .. DET IF ANY VALID DOUBLES MOVE ..ɒH L724 2 1R L7D(1)1 6090\ P(L7)2 P(L7)3 6000$f P(L7D(1))2 6030-p L78z 6090U .. MAKE DOUBLE MOVE ..uIL7: JD(1): MM1: 3890IL7: JD(1): MM1: 3890KSCSߓ .... SUBR - COMPUTER STRATEGY - END GAME .... .. DET IF IN END GAME ..% PC(1)EG PC(2)EG 6310R .. FIND THE FURTHEST COMP VALID MAN ..e L24 7 1} P(L)0 6220$ N1 M. P(LD(N))1 6250B NL L̔V 6310` .. MOVE FURTHEST VALID COMP MAN ..!jIL:JD(N):D(N)D(M):MM1: 3890:KSCS'B' .... DRAW BOARD ....o':X10:X296:HC0:HS48: 11000: 120008'X1104:X216:HC52:HS8: 11000: 12000: 13000핒' @257,"12 11 10 9 8 7 6 5 4 3 2 1 BAR OFF";7' @961,"13 14 15 16 17 18 19 20 21 22 23 24 BAR OFF";S' 14000: 15000: 19000k' @52,"FROM POS";' @192,"TURN: ";T$;' @0,"";**..DRAW HORIZONTAL LINES..͖*@320HC,(HS,131);+@384HC,(HS,140); +@576HC,(HS,140);+@640HC,(HS,140);- +@832HC,(HS,140);E*+@896HC,(HS,176);K4+o. .... DRAW VERTICAL LINES ..... X X1 X1X2 8. Y 15 28. (X,Y):(X,Y16)/ YǗ/ X͗/2 .... DRAW VERTICAL CLOSING .... 2 X 0 96 48(2 Y 29 30:(X,Y): Y02 X62M6 .... LEGEND ....a6 X 123 127w6 (X,21):(X,36)6 X6(124,21):(126,21)6 @445,"ME";6 @765,"YOU";ǘ6 @0,"";͘7: .... PRINT ALL PIECES ....: I0 27: P(I) 0 15060": 170008: K1 (P(I))O: 16000:(X,Y)Y: Ka: Iv> .... OBTAIN AN X-Y COORDINATE ....> I0 IM13: YV1(K): 16010ә> I27 IM14: YV1(K): 16010> I25 IM13: YV2(K): 16010> I26 IM14: YV2(K): 16010O> I13 IM12I: YV1(K) : IMI13: YV2(K)d>X(IM8)2HT(K)j>^B .... PRINT WHO IS ON THIS POSITION ....hB I0 X106: Y17: 17020ۚiB I27 X114: Y17: 17020jB I25 X106: Y42: 17020kB I26 X114: Y42: 17020KmB I13 IM12I: Y17 : IMI13: Y42ZrBX(IM8)2p|B P(I)0 17025}B L90 4:(XL9,Y): L9B 17060B L90 4:(XL9,Y): L9ܛB P(I) 0 (X1,Y): (X3,Y)⛤BFF ....DRAW DICE BOXES ....PF I0 9M 12&ZF J0 8PdF (IJ,0):(IJ,8):(I,J):(I8,J)ZF JbF IhF.J .... DRAW I/P BOXES ....8J I102 116 14BJ JI I11ȜLJ (J,4):(J,10)Ҝ`J JjJ J4 10tJ (I,J):(I11,J)J JJ IJ7N .... RESET & PRINT DICE ....L N I0 128 64a*N @I,(23," ");i4N I{9N M0 20900>N 18000:X2fN I1 MʝpN D(I) 20600,20300,20500,20200,20400,20100ߝN(X,4): (X4,4)N(X4,2): (X,6)LO(X,2): (X4,6): 20700'O(X4,2): (X,6)<P(X,2): (X4,6)IxP(X2,4)TPXX12\@Q IbQQ .... I/P PLAYER MOVE ....R@187," ";R .... I/P 'FROM' ....!RI$""˞#R@180," ";՞&RK1800R 23000DR@215,(27," ");:AS(Z$)>ER AS8 K180 @K," ";: KK1:I$(I$,(I$)1): 21040`FR AS8 AS9 AS10 21040NR AS13 @K," ";: 21500XRI$I$Z$bR@K,Z$;lRKK1R K183 21025ßR 21040S I$"H" I$"R" 21900TZZ$""T@187," ";TK187$T 23000:AS(Z$)]8T AS8 K187 @K," ";:KK1:ZZ$(ZZ$,(ZZ$)1): 21540p9T AS8 21000:T AS9 AS10 21540BT AS13 J(ZZ$): @K," ";: 21900ĠLTZZ$ZZ$Z$РVT@K,Z$;ڠ`TKK1jT K189 21510tT 21540U@215,(27," ");U*U..BLINK PIECE..6U 16000\U Z11 CF30:(X,Y):(X,Y): Z1bVyY..BLINK CURSOR ..Y@K,(191);Y BQ1 15YZ$Y Z$"" 23110Z BQ͡ Z@K," ";ݡZ BQ1 15ZZ$(Z Z$"" 231102Z BQ>>>>> SUPREME RULER <<<<<< "l10);"Copyright (C)(P) 1982 By JMG Software."l(@849,"Press to Continue."l2S(176)" "km<X17:@524X,"> ";:@556X," <";:T0ʲ@1,(62,130);:@129,(62,136);:@961,(62,160);:T1:::T0:@961,(62,144);:@1,(62,129);:@129,(62,132);:mF(13)200 :T1ʲ@855,"";:60 ::@855," ";:60m:(63,"*"):@384,(63,"*")bn@192,SC;"Would you like to recall a SAVED Game ?";:8400:I1ʲ@258,SC;"Are you Sure ?";:8400:I1ZY1:PN9:230:8800:400: : @258,SC;n@192,(30);"How Many HUMAN Countries ? ";:8900:PHI:I9PNI:230bo@256,SC;:@192,SC;"How Many COMPUTER Countries ? ";:8900:I9PHʲ@320,SC;"Maximum is";9PH;"!";:220::PCI:PNPCPH:PN2@320,SC;"You Must Have at Least 2 Countries !";:210o P(PN,ZV),PO(PN),PB(PN,2),PA(PN,PN),P$(PN),S(3),SI(2)pF2$"###,###,### ":F1$"$##,"F2$:F3$"$###,"F2$:P$(0)"World Mrkt":S(1)"Income Tax ":S(0)"Corporate Tax ":S(2)"Sales Tax ":S(3)"Import Duty ":H100:G1000:SASC"How Much ":SB"Recommended "pSI(0)"Defense":SI(1)"Agriculture":SI(2)"Other",qZY1ZY0: : :If Loading Game, then lines 230-255 are a subroutine. (ZY is set). Called in 205.qPH0@192,(31);:@384,(63,"-"):T1PH:@192,"Name of HUMAN Country #";T;": ";:ID0:IT0:IL10:8500:P$(T)S:rPC0ʲ@384,(63,"="):T1PC:@192,"Name of COMPUTER country #";T;": ";:IL10:ID0:IT0:8500:P$(TPH)S:MrT125:P(1,T)::T2PN:X1125:P(T,X1)P(1,X1)::r" 100000000,0,20,1750000,50000,0,0,14,0,7500,80,500,100000000,40,30,10,15,100,100,100,50000,20000,100,10000,2000000 s,T1PN:P(T,5)51000(1100):P(T,11)80(2):P(T,12)500(10):ssTNTN1::S" Year "(TN):8150:TI15(5)(TN):TWH(((70)))(25):@207,"Weather Quality (in Percent) :";TW;"%";:@258,"ARMY STATISTICS :";!tT1PN:PB(T,1)P(T,11):PB(T,2)P(T,12)::4400 : N0:P70:T1PN:P(T,7)0ʇ::NNP(T,7):P7P7P(T,7)P(T,6):ytN0P(0,6)(30)60 :: P7P7GG:NN10G:P(0,6)P7N(5):P(0,6)999P(0,6)999t@970,"";:8300t9000+uCP1PN:CPO(CP):P(C,0)13550:Z$P$(C):S"Year"(TN)" Report for "Z$:8150:ZP(C,4):ZAP(C,1):ZCP(C,10):ZDP(C,5):ZEP(C,11):ZFP(C,12)uZQP(C,23):ZSP(C,25):P(0,7)50000000(10000)H:P(ZC(P(C,20)H)(P(C,18)H)(P(C,19)H)10000)2:P(P6)(((H)950)G):ZSZ.9PPZSZuZQHPP(ZQH)vP1Z.85P(P(C,15)H): P1P1(((15)H)H)vP2P(P(C,20)H)(P(C,18)H)((Z)(((10)45)H))(P(C,14)H) : P3PZ(((30)50)H)(P(C,16)H) : P4(ZC7500)(Z450)(((15)85)H)(P(C,17)H)w&@196,"INCOME :";:@218,S(1)" "F1$;P1;:@282,S(0)" "F1$;P2;:@346,S(2)" "F1$;P3;:@410,S(3)" "F1$;P4;w0P5P(C,2)(P(C,3)H):P6ZA(P(C,8)H):P5P5:@474,"Interest /Wrld Loans"F1$;P5;:@538,"Interest / Treasury "F1$;P6; : ";:8910:I41310:I01330:TI ~(@384,SC;"New Rate : ";:IL2:ID0:IT1:8500:I60ʲ@448,"Maximum is 60 % !";:1320:P(C,13T)I:1310~2:~x:9080:"Food Supply (in Food Units): (";Z$;")":(63,"-"):"Harvest: "F2$;P1,:" Reserve: "F2$;P(C,21),:P(C,21)((P(C,21)P1))~" TOTAL: "::SB" Minimum to Distribute to People:"F2$;Z@180,F2$;P(C,21);:@320,(63,140);:" *** WORLD MARKET for Food Units ***":" Country Avail. $/u. : Country Avail. $/u.":(63,"-");:X0PN:@576X32,(30);P(X,7)0P(X,0)0ʲ"## % % ##,###,### ### :";X;P$(X);P(X,7);P(X,6);:::l@896,(63,131):"Choose: <1> to BUY Food, <2> to SELL Food, or : ";:8910:I21440: I1450,1470 :14909@960,SC;"From which Country (Give number, or ) : ";:S"99":ID1:IL2:IT1:8500:I991440:IPN1450:P(I,7)01450: TI:PZAP(I,6):PP(I,7)ICP(((P(I,7)))):P(I,7)P::P(((P)))@960,SA"(Max. ="F2$") in units : ";P;:8920:N(N):NPN01460:P(C,21)P(C,21)N:P(T,7)P(T,7)N:TCZAZANP(T,6):P(T,1)P(T,1)NP(T,6):ZA0ZA0:1420::1420:1420p@960,SA"Would You Like to Put on the Market ? ";:8920:N(((N))):NP(C,21)N01470: N01420:P(C,21)P(C,21)N:PN@960,SC;"What Price ? ";:ID0:IT1:IL3:8500:N01480:P1P(C,7)P(C,6)PN:P(C,7)P(C,7)P:P(C,6)P1P(C,7):1420P(C,21)((P(C,21))):@960,SA"for the Population ? ";:S((Z)):8930:N(N):NP(C,21)2N(Z)2:@960,SC;"You Must Release More !!";:X11500::1490NP(C,21)1490:P(C,21)P(C,21)N:ZSÑ4510 :w.m. Loans@:"***** Government Services - Spending *****":(46,"="):" Government Services Include : All Municipal Projects, Roads, Public Facillities, Medicare, Education, Social Security, Unemployment, ETC."J9090:P1((P1)):9190:@640,SB" Minimum Amount to Spend : "F1$;P1:@768,"Total Available Treasury : "F1$;ZAT@896,SA"Would You like to Spend ? ";:S((P1)):8940:N0NZA1620:NZA2NP12ʲ@960,"You Must Spend More Than That !";:1620::9120qA$""::S" Industry Conditions ("Z$")":8200:@256,"Conditions of Industries (Relative to Start of Year 1) :":S"## % % :#### "(37):I02:@38464I,S;I1;SI(I);P(C,18I):I38451264:@I," ";:I@704,"If you would like to Subsidize an"A$" Industry then":SC;"Type the Number of that Industry, otherwise just : ";:8910:I31710:I01740:1800:TI:@320I64,">";:9190:A$"other":@704,SC:@768,SA" (TREASURY ="F1$") :";ZA;:8950:NZA1730:9150:1710I1820:PP(C,I):P120P(PH)H11:P150P(PH)H15:KP(C,I)P:I:X1417:TP(C,X)(40(8)):T0X1100T2:T1820:P(C,T)(P(C,T)X1)H:TTX:ZE(ZE)::S" The "Z$" ARMY":8200:@192,"CURRENT STANDING :":" No. of Soldiers : "F2$;ZD:" Units Available : ";ZF:" Efficiency : ";ZE;"%"9100:"Soldiers Drafted last Year :"F2$;P(C,22):@640,"Minimum Pay "SB": "F1$;P1:"Minimum Operations/Maintenance "SB" : "F1$;P21860:@896,SA"to Spend on Soldier's Pay ? ";:S((P1)):8940:NZA1820:PP1:9110?&1860:@896,SA"to Spend on Oper./Maint. ? ";:S((P2)):8940:NZA1830:PP2:911001860:@896,SA"to Spend on New Equipment ? ";:8950:NZA1840:ZAZAN:P(C,9)P(C,9)N:1860:P(Z80):@896,SC"How Many Soldiers (Max =###,###) to Draft ? ";P;:S(P):8930:NP1850:9130:1900@D9190:@768,"Current Treasury : "F1$;ZA;:l:S" Battle Plans for "Z$:8200:T0:@192,"Army Efficiency : ";PB(C,1);:@320,(63,132):@960,SC;:mv1940:@960,"Type the number of the Country to Attack, or : ";:8910:I01950:IPNIC1910:P(I,0)1ʲ@960,SC"That Number Is Not An Active Country !";:X11500::1910:T1I,@384T64,"## % % :";T1;P$(T1);:@960,SC"How many Units to send ? ";:IL5:IT1:ID0:8500:I0ʲ@384T64,SC;:1910::IPB(C,2)1920:@405T64,I;"Units";:PB(C,2)PB(C,2)IoPA(C,T1)PA(C,T1)I:TT1:T9ʍ1910 : @960,"";:8300: 1950@256,"Army Units Still Available : ";PB(C,2);SC;: 3500֍ "Please Wait a Bit...";: Comp PZAZG:P0ʏP(C,2)1E9P(C,2)P(C,2)(P):ZAZA(P):X1517:P(C,X)P(C,X)(3)1:::X1417:P(C,X)40:::PZ250ʏP(C,2)0P(C,2)P(C,2)P:ZAZAP:P(C,2)0ZAZA(P(C,2)):P(C,2)0ێ PZ250X1415:P(C,X)P(C,X)3::X1617:P(C,X)P(C,X)1: X1417:P(C,X)2P(C,X)4:::P(C,X)40P(C,X)40:Z 9080:P1P(C,21)P1:P(Z):P1PʏP(C,7)0P1P1P(C,7):P(C,7)0֏ P1PP(0,6)150(10)P2PP150G:P1P1P2:ZAZAP2P(C,6)::P13PP(C,7)(P(C,7)P14):P1P1.75:P(C,6)275(50) P1P1.5P2P1::P2P1.5 P1P1P2:P(C,21)(P1):ZSP2:9090:P3P1:9100:PP1P2:ZAPNZA2::PZA.1NP(.9(9)10)::ZAP3NP2::P2P3.75P:ZAP2NP.6::ZAP22NP(.9(9)10)::NZA.3 9110:P1P3:P1ZA.7NZA.7::P1ZA.5NZA.58::NP11.1k 9120:N(Z80):P(C,9)P(C,9)ZA.6:ZAZA.4:9130:T3:NZA(55(10))100:9150:T1:NZA.5:9150:T2:NZA.9:9150:1740 TN1X4(PN):X4C3130:TPB(C,2)((20)10)100:PA(C,X4)T:PB(C,2)PB(C,2)T:3130::N1E6:X40:X1PN:P(X,0)1XCʇ::PB(X,2)PB(X,1)NNPB(X,2)PB(X,1):X4X:::ʒ& ((PB(C,2)PB(C,1)N.7)(X40))(X40)3130:(10)5PA(C,X4)(PB(C,2).6):PB(C,2)PB(C,2)PA(C,X4)::X(PN):P(X,0)0XCTPB(C,2).6:PA(C,X)T:PB(C,2)PB(C,2)T0 (5)3X(PN):P(X,0)0PA(C,X)0XCTPB(C,2)2:PA(C,X)T:PB(C,2)PB(C,2)T3: @964,"";:8300E End-of-turnY P(C,8)(10)10 ZC(((ZC(ZQH)P(C,20)H(P(C,18)H)(P(C,19)H)((ZS(Z)))(75(P(C,14)35))(75(P(C,16)60))(60(P(C,17)40))((80(P(C,15)50))))7500))7500 10< P(C,7)0P(C,6)45(15)ZAZAP(C,7)P(C,6):P(C,7)0 P(C,4)Z:P(C,1)ZA:P(C,10)ZC:P(C,5)ZD:P(C,11)ZE:P(C,12)ZF:P(C,23)ZQ:P(C,25)ZS” CP : :S" End of Year "(TN):8200:Z0 9000:CP1PN:CPO(CP):P(C,0)14000:: T1PN:TCP(T,0)1PA(C,T)0ʇ:4000::@256,(63,191);:X1200::@256,SC;"BATTLE :":@448,SC;P$(C)" On the Offence With";PA(C,T)"Units,"I Z1:SC;"Against ";P$(T);" With";PB(T,2);"Units:":PB(T,2)PB(T,2)2:P1(PA(C,T)PB(C,1)100(85(30))100):P2(PB(T,2)PB(T,1)100(80(40))100):P3PB(T,2)P1:P4PA(C,T)P2:P30P1(P3):P30 P(T,24)0PB(T,2)0:@640,(31);P$(T)" Has No More Land !!":@960,(63,176);:@896,"";:8300:T:4000IP4((P4)1)P4:P2PA(C,T)P4:P5PB(T,2)P3:P(T,12)P(T,12)P5:PB(T,2)P3:P60:P30P6P1500:P(T,4)P6P6P(T,4):P(T,4)0::P(T,4)P(T,4)P6xP30ʏP2P1PA(C,T)P2PA(C,T)::P2P2P1ؗZAP(T,12):P(T,12)((ZA)1)ZA:P(C,12)P(C,12)P2:P7(P52P660):P7P(T,24)P7P(T,24)$P1P7P(T,24):PP(T,4)P1:P6P6P:P(T,4)P(T,4)P:P(T,5)P(T,5)P(T,5)P1:P(T,13)P(T,13)P(T,13)P1:P(T,1)P(T,1)P(T,1)P1:P(T,3)P(T,3)P120.5:P(C,24)P(C,24)P7:P(T,24)P(T,24)P7:P(C,12)((P(C,12))1)P(C,12)S.@640,SC;P$(C)" Units Destroyed :";P2:9175:SC"Land Taken over by "P$(C)" : ";P7;" Sq. km":SC;P$(T)" Civilian Casualties :";:F2$;P6:@896,"";:83008P(T,5)P(T,5)(P52)100:P(T,5)P(T,12)100P(T,5)P(T,12)(100(5))BP(C,5)P(C,5)P2100:P(C,5)P(C,12)100P(C,5)P(C,12)(100(5)):::$CP:9180:9010::S" Year"(TN)" Summary.":8200@256," Country Land Population GNP/c Ind. Conditions (%)":X1PN:P(X,0)0ʲ"# % % ##,### "F2$"##,### D: ### A: ### O: ###";X;P$(X);P(X,24);P(X,4)P(X,5);P(X,10);P(X,18);P(X,19);P(X,20)`T1PN:PA(X,T)0:: X:@896,"";:8700:9050:T1ʄ:" ":9160:P$(T);" is the WINNER !!! ":i400z0 Disp. Army#:@325," Country Personnel Units Effic. %";:T1PN:P(T,0)1:::@325T64,"## % % "F2$" ##,### ###";T;P$(T);P(T,5),PB(T,2),PB(T,1);:::S" World Market Loans ("Z$")":8200:P(C,2)((P(C,2))):P(C,2)0P(C,3)TI:P11E9::P(C,3)P(C,3)3(3):P11E9P(C,2)n@256,"Your Current World Market Loan Interest Rate : ";(P(C,3));"%":@384,"Your Treasury : "F1$;ZA:P(C,2)0ʲ@576,"Would you like to take out a loan ( or ) ?";:8400:I4550:@448,"Current Loan : "F1$;P(C,2):P10ʲ@576,"Choose : <1> Take More loan, or <2> Pay Back, or : ";:8910:I24530:I4550,4540:U@576,SA"to Pay Back ? ";:8950:NP(C,2)NZA4540:P(C,2)P(C,2)N:ZAZAN:@576,SA"to Take (Max. ="F1$"): ";P1;:S((P1)):8940:NP14550:P(C,2)P(C,2)N:ZAZAN:Ξ PGPRTA10/LIBZ:" "(62,131);:@129,(62,140);:X015360:X015:X0X64,149:X0X6463,170::15360,151:15423,171:15488,157:15551,174:@68,S;:m PGPRTB10/LIB :@1,(62,131);:@129,(62,140);:@960,(63,176);:15360,151:15423,171:15424,149:15487,170:15488,141:15551,142:16383,176:@68,S;:l :Qv X00:X1(16417)256(16416)15360:"Please Press to Continue."; S4:S4(13)X0X01:X018ʲ@X113," ";:8320::X030X00:@X113,"";:8320::8320٠ @X1,(33,32);:@X1,"";: : X20 S2:S2""X2X21:X210ʲ" ";:8420::X220ʲ"?";:X20:8420::8420::S2"Y"S2"y"ʲ"? Yes";:I1::S2"N"S2"n"ʲ"? No ";:I0::8420ɡ (14);:S2:(15);:S2(13):S2(8)ʲ"";(30);:8420::8430֡4!:INPUT'>!X5(16416):X6(16417):IT3ʲ(IL,95);:16416,X5:16417,X6::((S1),32);GH!S4(95)"":X20:S2S:S""R!S3:S3""X2X21:X210ʲ(143);"";:8530::X220X20:IL(S)ʲ" ";:8530::S4;:8530::8530X\!X3(S3):X344ʏ(IT)(((X345)(X357))(X347))8530:((IT1IT3)(X348))(S)ILʏX346(S)IL2IT3SS"000":8600::8530:SSS3:IT38600:S3;:8530kf!IL(S)" "; p!X38(S)0S(S,(S)1):IT38600:IL(S)1" ";:8530::S4;"";S4;:8530::X324(S)0IT3S"":8600::S4;:X1(S):"";S4;::S"":8530z!X3138530D!(S)0ʏIDSS2:IT3ʲS;:::::8530!N0:I0:IT3X31:8600::(IL(S)1,32);:S""N(S):N((N)):N32767N32768:IN:::/!16416,X5:16417,X6:(S)0ʲ((S1),32);:8530::S1;((S));:X30N(S):::(S)0(S,1)"0"S(S,(S)1):8530::85307!:"0:@896,SC;:X00:X1(16417)256(16416)15360:"Press to Continue, or to Save Game, or nd.";6"S4:S4(13)8715:S4"S"S4"s"8750:S4"E"S4"e"ʑ9200:8700::X0X01:X014ʲ@X16," ";:@X130," ";:@X151," ";"X021X00:@X16,"";:@X130,"";:@X151,"";: 8710 ::8710 "@X1,(30);:.": SAVE GAME !!!!!!!!!!!!!f3"(16399)2018780::@896,SC;"assette, isk, or bort ? ";:ID1:S"D":IL1:IT0:8500:S"C"S"c"ʅ"T":8780::S"A"S"a"@896,SC;:8700::S"d"S"D"87558"@896,SC;"Saving ...";: 8775:"O",1,"SRGAME/DAT":#1,123456:#1,TN;TW;TI;PH;PC;PN:X1PN: #1,P$(X):X00ZV:#1,P(X,X0):: : : 0 : WHEW!="@896,SC;"Would you like to ontinue, or nd ? ";:ID1:S"C":IL1:IT0:8500:S"C"S"c"ʒ ::S"E"S"e"8765: :9200B"0:ȨG"@960,"Disk Error. Save not completed.";: : 8700{L"@896,SC;"Ready Cassette and , or press to Abort.";:9210:S(13)@896,SC;:(16399)2018700:"R":8700 ::@896,SC;"SAVING ...";:#1,123456,TN,TW,TI,PH,PC,PNbQ"X1PN:#1,P$(X),P(X,0),P(X,1),P(X,2),P(X,3),P(X,4),P(X,5),P(X,6),P(X,7),P(X,8),P(X,9),P(X,10),P(X,11),P(X,12),P(X,13),P(X,14),P(X,15),P(X,16),P(X,17),P(X,18),P(X,19),P(X,20),P(X,21),P(X,22),P(X,23),P(X,24),P(X,25),123456 :zR"(16399)201ʅ"R"V"8765`": Load a game.Ge"@256,SC;:@192,SC;:(16399)2018850 :"Load from assette, isk, or bort ? ";:ID1:S"D":IL1:IT0:8500:S"C"S"c"ʅ"T":@192,SC;:8850::S"A"S"a" 10j"S"D"S"d"8805:@192,SC;"Loading ...": 8890:"I",1,"SRGAME/DAT": #1,N: N123456ʞ99 : #1,TN,TW,TI,PH,PC,PN: X1PN:#1,P$(X): X00ZV:#1,P(X,X0)::o": 0: ""Ready Cassette. Press to Continue, to Abort.":9210:S(13)ʏ(16399)201ʎ10::"R":10: :@192,SC;"Loading ..." : 8890Ӭ"#1,N,TN,TW,TI,PH,PC,PN: N123456ʞ99 : X1PN"#1,P$(X),P(X,0),P(X,1),P(X,2),P(X,3),P(X,4),P(X,5),P(X,6),P(X,7),P(X,8),P(X,9),P(X,10),P(X,11),P(X,12),P(X,13),P(X,14),P(X,15),P(X,16),P(X,17),P(X,18),P(X,19),P(X,20),P(X,21),P(X,22),P(X,23),P(X,24),P(X,25),N㭡"N123456ʞ99: :(16399)201ʅ"R":8815: :8815D"106ʲ@192,SC;"Can't find Save-Game file."::@192,SC;"Loading Error.":(16399)201ʅ"R"""Press to try again, or to Abort & Restart Program.":9210:S(13)ʟ8800: 10"ID0:IL1:IT1:8500ݮ"ID1:S"0":IL1:IT1:8500"ID0:IL8:IT3:S1F2$:8500"ID1:IL8:IT3:S1F2$:8500>"ID1:IL11:IT3:S1F3$:8500_"ID0:IL11:IT3:S1F3$:8500(#X1PN:PO(X)X::X1PN2:X1(PN):X2(PN):X3PO(X1):PO(X1)PO(X2):PO(X2)X3::2#N0::X1PN:P(X,0)19040::P(X,4)100000P(X,24)5009040:" ";P$(X);" Has Been Destroyed !! The few remaining civilians have fled !! Any remaining land has been taken by the other Countries."Q<#P(X,0)1:P(X,7)0:9050:T0" But ... ALL COUNTRIES HAVE BEEN DESTROYED !!! The World Market has moved in to take over. "::17::P(P(X,24)T):X11PN:P(X1,0)0P(X1,24)P(X1,24)P:X2X1̱F#:T1" "P$(X2);" Is The Winner !!! All Other Countries Have Been Taken Over !!! Congratulations!! "::8300::8300ݱP#N0X:::Z#T0:X11PN:P(X1,0)0TT1d#:n#N1:XC:9020Tx#P1(2200000(P(C,19)H)(P(C,24)10000))((TW15)H):e#P1(Z)500:#P1ZD1500:P2ZF500000:ݲ#ZAZAN:ZE(ZE(NG)(PG)80)2:ZEHZE(ZEH)H:ZE120ZE(ZEH)H10:::::#ZQ(ZQ(NP1)H)2:ZAZAN:C#P(C,22)N:ZDZDN:PP(C,9)2000000:N(ZD(ZF100))100:PNPN#ZE((P80ZFZE)(PZF1)):ZF(ZFP.5):P(C,9)P(C,9)P2000000:#ZAZAN:P(C,13)P(C,13)N10:T1P(C,18)P(C,18)N(ZF100000ZDH1000000)5:::P(C,17T)P(C,17T)NZ.2:#X1PN:P(X,0)0TX!#:f#N((P52)1)(P52):N0ʲSC;P$(T)" Units Destroyed :";N:::#Z0@256,"No Battles.":@835,"";:8300:::#ZA((ZA)):#N((N)):#@896,SC;"Are you SURE that you want to End this game ?";:8400:I0ʒ: 10 :End Game.>#S:S(13)S"A"S"a"ʒ:9210h250hy *@T]##(^#V##~#D "(@SiS!!9 6 Fe%@##pi%S>dA i2Sd%@s#r %@3%@4%@j3Sd%@^#Vbk6#6#6>2>)j4Se%@^#Vbk6#6#6Dj5S>*@!< 4}j7SF%@<%@d%@^#Ve%@^#VR >2+@:,@OG j<S:8:@8 &% .@5H .=-@ .-P .C% .@0 .= .(.C=%@3k=Sd%@^#V(R>;>@@}8=*(@^#V(>r+s(3%@>2+@kFSe%@^#V#~DbkBO >; G%@>@(@}8=0bk6#6#6*(@s#r4%@kGS$%@!%@%%@ %@!*@5 3%@4%@kdD>keD%>lQ0(16548)(16549)25613:Q2(Q0256):Q1Q0Q2256:16421,195:16422,Q1:16423,Q2#lH0l:@202,(34);"PLUS ZERO";(34);" (C) 1981 LEO CHRISTOPHERSON":7)"CONNECT TAPE AUX PLUG TO AMP FOR SOUND EFFECTS"l@325,"TO START, ENTER SPEED FACTOR: 1 (SLOW) TO 5 (FAST)")m":23)"INSTRUCTIONS:":"(1) PRESS ";(34);"CLEAR";(34);" TO END ACTION"Xm,"(2) USE THE ARROW KEYS TO MOVE THE PLUS"m6"(3) IF THEPLUSAND ZERO HIT EACH OTHER, YOUR SCORE INCREASES BY THE NUMBER OF DOTS LEFT ON THE SCREEN BEHIND THE ZERO"n@"(4) IF YOU HIT A DOT, YOU'RE OUT!"vnJ"(5) IFYOU ALLOW THE ZERO TO BOUNCE OFF THE SCREEN EDGE 20 TIMES WITHOUT SCORING A HIT, THE GAME IS OVER!"nTK$:K$""340n^(K$"1")(K$"5")340:(K$)360,370,380,390,400nhS255:410nrS200:410n|S150:410nS100:410oS704o16428,S::T0:@405,"ONE MOMENT PLEASE!"o(6):L(16424)(16425)256:N156:R(56):ALN:BLR:C(A):A,(B):B,C:No:16426,20:16427,1:"$27":(16427)440,450,490,480o:(16426)0480:510p16426,0:"5":TT(16426):"#":@408,"HIT: SCORE ";T%pTHHTDp@472,"HIGH SCORE ";H:420np"#":@405,"GAME OVER: SCORE ";T:500p"#":@404,"YOU'RE OUT: SCORE ";Tp@472,"HIGH SCORE ";Hp:@527,"ANOTHER GAME? Y(ES) OR N(O)p22)"C(HANGE SPEED)?"4qK$:K$""530:K$"Y"410:K$"C"270:K$"N"ʎ"MENU"=q530[j C(10,2),C$(12)ajjI15:::18);"** B-1 NUCLEAR BOMBER GAME **":j24);"COPYRIGHT 1980 BY"::27);"AVALON HILL"j23);"MICROCOMPUTER GAMES":I14::k(I13000::"WORKING..."%k2N010:N1202k<N2N0N1GkF N$(N2),T(N2,3)]kKI112: C$(I):kL"AU","EC","EV","PH","NA","AL"kM"CO","ST","RA","SE","AR","BO"kPI1N2:N$(I),T(I,1),T(I,2):kQ"ARKHANGEL",8261,5922,"ASTRAKHAN",8631,7947$lR"KIYEV",7391,7467,"LENINGRAD",7661,6427QlS"MOSKVA",7956,6937,"MURMANSK",8056,5452lT"SEVASTOPOL",7506,8152,"SVERDLOVSK",9311,6682lU"VOLGOGRAD",8331,7692,"YEREVAN",8381,8657lV"DUBOVKA",8350,7650,"KHARKOV",8850,7450 mW"KONOSHA",8153,6325,"LIPETSK",8100,7210A$""900:(A$)2880:A$(A$,2):2000{HIN01880:2010:FR200890:"PHOENIX MISSILE AWAY!"I{RN$(I);" DEFENSE COMPLEX DESTROYED.":T(I,3)2:PP1d{\T0T3((0)5):1020{f"NO MORE MISSILES.":860{p"INVALID TARGET.":860{zN$(I);" OUT OF RANGE.":860{J1E4:K0:I110:C(I,1)0920|C(I,2)TJ920:JC(I,2)T:KI5|:"PHOENIX MISSILE AWAY!":PP1:K0960[|J10960:C(K,1)10(0).6960|C(K,1)10(0).85960:FII:IK:2030:IFI:FM$;" DESTROYED."|C(K,1)0:860|"MISSED!":860|I110:C(I,1)01010:JE(.55(C(I,2)T))}J.97J.97&}(0)J1010:2030:FM$;u}C(I,1)10ʲ" LOSES TARGET LOCK AND RETURNS TO BASE.":" SELF-DESTRUCTS."}C(I,1)0}:EE(.7.3(0)):T0T3(5(0)):1020}T3T0:I91:T0T1060:I90:T3((0)301)T~I110:C(I,1)01050:C(I,2)T3T3C(I,2)E~TC(I,2)101050:C(I,2)10T3T3C(I,2)10m~:(T2T)(T3T2)1060:T3T2:I91~$T0T3T:A2A0T0:C2C0T0~.A2(AA1)AA1:AAA2(A1A)~8C2(360(CC1)180)(CC1)1100 BCCC2(C1C):CC360(C0)360(C360):1110LCC1:VXXST0(C3.14159265180)3600S`FF(S(T3T)3600)~jYYST0(C3.14159265180)3600:TT3tF01490~I0II1:C(I,1)01210:C(I,2)T1200"NUCLEAR AIRBURST!":R91:C(I,1)0:I91AA(3000(0)(.5(0))):A01470<A1A:F(F(0)):S(S(.5.5(0)))U(0).151480:1210C(I,2)T101210:2030:FM$;" IN PHOENIX RANGE.":I91I101151:F921270I1N0:2010:JFR:J2501240:T(I,3)01240 N$(I);" IN BOMB RANGE.":T(I,3)1:I91,T(I,3)11260:J2501260\N$(I);" NO LONGER IN BOMB RANGE.":T(I,3)0bIN01N2:T(I,3)21440(XT(I,1))7501440́ (YT(I,2))7501440:2010:JFR:J7501440J2001320:T(I,3)11320:T(I,3)13N$(I);" DEFENSE COMPLEX IN PHOENIX MISSILE RANGE.":I91^(T(I,3)11340:J2001340:T(I,3)02N$(I);" DEFENSE COMPLEX OUT OF PHOENIX MISSILE RANGE."<(0)L9(T0300)(A.125)1440ƂFK0GKK1:C(K,1)01360:K101351H1440P(0).51380+ZC(K,1)(9(0)1):M6500:1390LdC(K,1)212((0)7):M5000|n2020:L(FAC).0174532:S1S(L):S2S(L)xL(MMS1S1)(3.141593(L))(S2)܃2010:FII:IK:2030:IFI:C(K,2)T(3600FRL1)N$(I);" DEFENSE COMPLEX LAUNCHES A ";FM$;"."I917:I0:2020:L(CFA):2010](L30L330)FR6500T20001500qI91290:1020"B-1 CRASHES INTO HILLSIDE.":R92:1510"B-1 DESTROYED.":R92:1510"B-1 RUNS OUT OF FUEL.":1470"B-1 LANDS AT THULE AFB. mISSION COMPLETE."7"MISSION SUMMARY:":T801540]T8T9ʲ"PRIMARY";:"SECONDARY";" TARGET, ";N$(T8);" DESTROYED.""DEFENSE COMPLEXES DESTROYED:":J0:IN0N2؅T(I,3)21560:5);N$(I):J1:J0ʲ"NONE."$"R91ʲ"THE CREW WILL DIE FROM RADIATION EXPOSURE."<,R92ʲ"CREW DEAD."y6A$"":"GO AGAIN (Y/N)";A$:A$A$" ":(A$,1)"Y"100:I0II1:(N$(I),2)A$ʒ:IN22001I0:ˆI0FR(XXYY):FXXT(I,1):FYYT(I,2):FR(FXFXFYFY):0FXXT(I,1):FYYT(I,2):FY0FA90180(FX0):gFA180((FXFY)3.141593(FY0)2(FY0FX0)):FM$(C(I,1)):FM$(FM$,(FM$)1)C(I,1)10FM$"SAM-"FM$:FM$"MIG-"FM$