!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(@ wwjd:@78,"BATTER UP!!: A MICROBASEBALL GAME."jx@141,"WHEN REQUESTED, ENTER THE TEAM NAMES.j@198,"THEN WAIT UNTIL THE BATTER AND PITCHER ARE DISPLAYED.(k@263,"PRESS P FOR THE PITCH AND Q OR A TO SWING THE BAT."zk@408,"BY KARL SAVON":@903," COPYRIGHT (C) 1979 HAYDEN BOOK COMPANY, INC. "k@982,"ALL RIGHTS RESERVED";LlP15360:P524,143:P525,143:P588,191:P589,159:P590,132:P591,132:P652,191:P653,189:P654,148:P717,191:P718,181:P719,144:P752,160:P753,186:P754,191lP562,143:P563,143:P623,41:P624,136:P625,140:P626,175:P627,191:P689,168:P690,190:P691,191:I595606:PI,46:]mI360:PI,140:PI768,140:PI320,140:PI448,140::P2,188:P61,188:P770,143:P829,143:I6670664:PI,191:PI59,191:mmI15000:mTM1:IN1:A%(28)mm"WHAT IS YOUR TEAM'S NAME";A$(1)m(A$(1))9"THERE IS ONLY SPACE FOR 9 LETTERS":200n"wHAT IS THE HOME TEAM'S NAME";A$(2)Kn(A$(2))9"THERE IS ONLY SPACE FOR 9 LETTERS":220mn:H0:IN19IN18:TM2:1580nIN18A%(20)A%(19)1580nI111:(26)::" BALL STRIKE OUTnP15360n1490n"1650 o,FB1ʱP946,176o6SB1ʱP949,1764o@TB1ʱP952,176coJ:P399,48W:P415,48S:P431,48O:H$"oTO3O0:ININ1:TM4TM:FB0:SB0:TB0:I11999::240p^(18,6):(19,6):K138143:KP,32::(22,22T):(16,8):(17,8):P182,32:P183,32:P184,32:P185,32,phI161:D,L:PL,D128:AprB$:B$""370Wp|A$:A$"P"380qpA%(22TM)A%(22TM)1pT(5):T3T3:430pT3T2pT5T1 q P127,32:P126,32:P125,32:P124,176:P183,156:P184,143:P185,131:P121,189:P182,176RqK15:I16:MB1232I12K:(MB,K1):(MB2,K1):K1ʂ(MB2,K2)[qI,KhqT1492wqI12T2q(52I,3I):(53I,2I):q(542T,12T)qXB542T:YB2T2q(51,4):I116T:B$IrB$"Q"H$"A"ʱP1,32:P2,32:P3,32:P70,150:P135,140:P137,135:K138143:KP,131::BIT:H$B$rB$"A"H$"Q"ʱP1,32:P2,32:P3,32:P70,150:P135,140:P136,188:P137,180:K138143:KP,176:rB$"A"H$"Q"BIT:H$B$r(XB2I,YB):(XB22I,YB):sI31211:(I,YB)::(22,YB)2sT550,570,600,550Xs&H$""D$"BALL":1380:WW1:620ys0D$"STRIKE":1380:SS1:620s:H$"Q"560sDB13B16560sNH1:620sXH$"A"560sb580slP399,48W:P415,48SsvJ1750:sH1690 t(20,32T)HtS3OO1:W0:D$"OUT":A%(26TM)A%(26TM)1:S0:1380vtW4H1:D$"WALK":1380:J1699::1010t330tT2B16D$"HOMERUN":H4tH4A$"HOMERUNtT3B16H3:D$"POSSIBLE TRIPLEu(T2T3)B15H2:D$"POSSIBLE DOUBLE#uB15D$"POSSIBLE SINGLE5uEE168:1380DuJ1999:du:I126:D,L:PL,D128:uI164:P191I,131:P383I,131:511IP,140::P459,51:460P,51:P461,48u I195:P191(192),38:uI117:D,L:JDL:PJ,191:J,I v H4830;v*I164:P575I,132:P574I,32::P639,32v4P698,140:P699,132:P694,32:P695,188:A%(20TM)A%(20TM)1:970v>(0).5B31:850vHB33vRJ07236w\(0).5P758,172:P759,176:P760,185:P822,131:P823,32:P824,130:880TwfP822,187:P823,140:P824,142:P758,32:P759,32:P760,169:(112,35)~wp(J,B):I135:(JI,B):(JI1,B):Iwz(J35,B):BB2:JwH0A$"HITwH4A$"HOMERUNw(J1,B2)0950w(J1,B2)wA$"OUT":970-x(122,B2):I123127:(I,B2):J110::(I1,B2):Ax(127,B2):820LxK13xJ1(A$):P489J,((A$,J,1)):J:J1250:JxJ1(A$):P489J,32:J:J150:J,KxA$"OUT"W0:S0:OO1:240xx1480xP516,191#yP9,140:P24,131:P225,140:P336,140:P480,176AyI45213264:PI,191:[y$I517540:PI,176:y.P578,143:P579,143:P133,143:P134,143:P539,191:P540,191:P155,143:P156,143y8FB1P606,140yBSB1P94,140yLTB1P66,140yVL1H'z`I128:A(I.92)P580:C(.28I)64>zjL1A1,140:A,32`ztFB1542CP,140:P606C,32z~(SB1W4FB1)(SB1W4)ʱP94I,140:P95I,32:TC1zTB0(TB1W4SB0)(TB1W4FB0)1180zP130C,140:P66C,32zIE{(P578)140A%(18TM)A%(18TM)1:A%(IN)A%(IN)1:P578,143:1460:(26)(26);`{FB0:(P606)140FB1z{SB0:(P94)140SB1{TB0:(P66)140TB1{L{I1500::S0:W0:240|3,5,3,6,12,7,4,8,48,67,63,68,60,69,48,128,60,129,63,130,31,131,15,132,13,133,12,134,12,136,3,193,15,194,63,195,61,196,52,197,16,198,3,260,63,261,51,262,49,263,52,137,15,135,54,70,40,4,48,3,12,2,3,1F}8,55,12,56,3,57,3,58,60,59,8,120,45,121,60,122,61,123,60,124,60,125,20,126,12,127,2,186,11,187,47,188,63,189,60,190,48,191,32,249,56,250,62,251,63,252,15,253,3,254,50,312,51,313,63,314,3,315}8,694,12,695,3,696,3,697,60,698,41,760,60,761,61,762,52,763,59,822,12,823,14,824,63,825,63,826,63,827,61,828,40,887,62,888,63,889,63,890,15,891,3,892,34,951,51,952,59,953,23,954|~ 20,22,31,34,43,45,50,51,59,63,82,87,94,98,102,104,107,109,114,120,123,127,146,152,155,164,166,168,171,173,176,184,187,191~dK1(D$):P384EEK,((D$,K,1)):~nKK15:P384EEK,32:~xW4A%(24TM)A%(24TM)1I115:(26);::(29); K12CA$(K)12)A%(25K)22)A%(27K)31)A%(29K)39)A(K);QK1ʲ:K\EE0:zIN18A%(20)A%(19)1580(28);E256:I110:(26);:P501E,18:P505E,8I164:511PIE,131:703PIE,140:(26)(26)K12:TMK0IN19">";:1530(" ";iVIN2(32K)(2TM):A%(K22(IN2.5))0(TMK)0VV1A$(K);:I1V:V0114I)A%(2IK2)(24);ԀI:52)A%(18K)(24)56)A%(20K)(24)(26)(29);:KI19:P4604IE,48I:"E0:,:25)"GAME OVER7617)"THE FINAL STATISTICS ARE:UJE256:1490:E256:1650T(13):"DO YOU WANT TO PLAY AGAIN";Z$^(Z$,1)"Y"ʸ:180h:r(26)(29)" STATS PITCHES BB SO ERA MEN ON BASE.|" ----- ------- -- -- --- --1--2--3--`K12:A(K).1(10A%(21K)9(IN2.5).5)A$(K)12)A%(25K)22)A%(27K)31)A%(29K)39)A(K);K1ʲ:TEMP l':%SYS80 Sl'AUTOEXECOLD"o40500o(A$)13250o,:Ip6:"PLAYER NUMBER ONE, YOU ARE THE AWAY TEAM. PLEASE TYPE IN YOUR TEAM NAME AND PRESS ."kp@PO94:A110:40130:TM$(1)AN$pJ@3L,"PLAYER NUMBER TWO, YOU ARE THE HOME TEAM. PLEASE TYPE IN YOUR TEAM NAME AND PRESS ."pTPO286:A110:40130:TM$(2)AN$iq^TM$(1)TM$(2)ʲ@768,"SORRY, THAT NAME IS ALREADY TAKEN. PLEASE SELECT ANOTHER.":30005:@768,(60,32):340qh:"THE ";TM$(1);" ARE THE AWAY TEAM.":"THE ";TM$(2);" ARE THE HOME TEAM."qr@128,"AM I CORRECT (Y/N) ?":40500q|A$"Y"A$"N"ʍ370 rA$"N"310'rIN1:B1:TM1:BU0:B209rA$"D":40200mr@105,TM$(1);:15483,48:@169,TM$(2);:15547,48r@8,IN;:OT0:GO0:15982,179:15711,179:15952,179s31052,100:31053,170:31054,100:31055,200:31056,0:33100:31052,150:31053,254:31054,108:31055,126:31056,102,s@15,TM$(B);ds$GO11890:BL0:ST0:15433,48:15497,48:@200,OT;|s)BUBU1:BU10BU1s*31052,50:31053,100:31054,50:31055,200:31056,0:33100s.31052,150:31053,254:31054,103:31055,126:31056,102tL@648,BU;=tV@712,PL(B,BU,1);:@776,PL(B,BU,2);:@840,PL(B,BU,3);Yt@626,"SELECT A PITCH";tt@690,"<1> FAST BALL";t@754,"<2> CURVE";t@818,"<3> SLIDER";t@882,"<4> CHANGE UP";t@946,"<5> PITCH OUT";u40500:A$(27)1892:P(A$):P1P51260:30600,ux@626,"SELECT SWING";Cu@690," STEAL";^u@754," SACR. FLY";tu@818," BUNT";u@882," HIT";u@946,"

POWER HIT";v40500:A$"S"A$"F"A$"B"A$"H"A$"P"1460:A$"S"S1:A$"F"S2:A$"B"S3:A$"H"S4:S5!v30600UvS3ʑ31000:BA(1)179BA(2)179BA(3)1791400yvC0:PO0:15967,140:T12P:TvA$:A$(32)EL1:1600:15967PO,32:16031POC,140:T12P:TvPOPO64:PO192P2C2:PO192P3C2:C0wPO2561510\wA$:@861,(32);(191);(179);(191);(32):A$(32)2000:16287,140:T130:TzwA$:A$(32)EL0:1600wP41700wX(P):PXEL0:1600:1700w@EL1ʱ15967PO,32:16287,32wEP51900xH31052,40:31053,100:31054,0:33100'xI31052,150:31053,254:31054,108hxJ@989,"STRIKE";:STST1:@136,ST;:T1330:T:@989,(6,32);xOS1ʑ3000:OT3BUBU1:1820xTST3GO01200:GO11890x^@986,"STRIKE OUT";:T1330:T:@986,(10,32);:1800x16287,32=y31052,25:31053,200:31054,0:33100:31052,150:31053,254:31054,108KyP51900ny@989,"BALL";:BLBL1:@72,BL;yT1330:T:@989,(4,32);yS1ʑ3000:OT31820yBL4GO01200:GO11890:4000yOTOT1:@200,OT;yOT31060z&B1B1BU:B2BUz0B1B2:B1+z:B1ININ1AzDB1BUB1:BUB2PzIIN91040jzNSC(2)SC(1)B21890zSB1IN9SC(1)SC(2)1890zX1040zb@960,"THAT'S IT. THE GAME IS OVER. DO YOU WANT TO PLAY AGAIN? (Y/N)";{c40500:A$"Y"SC(1)0:SC(2)0:GO0:300:A$"N"1891S{d:"I HOPE YOU ENJOYED THE GAME. SEE YOU LATER."{e16396,201:MS!32767:16562,MS!256:16561,MS!(MS!256)256:16396,201:50:{l:{v@985,"PITCH OUT";:30001:30700{S1BL31705{31000:|BA(3)253ʱ15952,179:BA(2)253ʱ15711,179:BA(1)253ʱ15982,179e|@985,"CAUGHT STEALING";:30001:30700|OTOT1:@200,OT;:BLBL1:@72,BL;:OT3BUBU1:1830:1200|:|P51900|31052,25:31053,150:31054,0:33100 }31052,150:31053,254:31054,108*}S2100,2800,2900,2100,2100@}4S1S4X1:X2g}>3PL(B,BU,1)(P2X)(1000)5000v}CS1ʑ3600}HH(50)3XPL(B,BU,2)(P10)}RH5002200:H3002300:H1002400:2500!~@960,"LONG DRIVE";:30002:@990," HOME RUN!";:31078,0:33100:31078,102:30700:I4a~31000:BA(1)253BA(2)253BA(3)253ʲ@1010,"GRAND SLAM!";k~2600~@960,"LONG DRIVE";:30002:@990," OFF THE WALL IN CENTER FIELD";:I3:2600~` @960,"LINE DRIVE";:30002:@990," INTO THE CORNER";:I2:2600< @960,"GROUND BALL";:30002:" THROUGH FOR A SINGLE";:I1L( 31000:F41W- H1Ik< BA(1)253F11F BA(2)253F21P BA(3)253F31Z 32000:31000:d 30700:1060 : OT2ʲ@985,"FLY BALL";:30001:" HE'S OUT";:30001:30700:1800R @960,"DEEP FLY";:30001:" THE RUNNER IS TAGGING UP.";:30001:30700] 31000 BA(3)253F31:RN1:BA(2)253F21:RN2:BA(1)253F11:RN3:2890 32000ŀ" (RN)11800, RN2ʱ15952,179:RN3ʱ15711,179,6 @985,"HE'S OUT!";:30001:" DOUBLE PLAY";:30001:30700>@ OTOT1:1800iJ @985,"HE'S OUT!";:30002:30700:1800qT :^ @960,"A BUNT!";:30001:31000h BA(3)253F31r BA(2)253F21Ё| BA(1)253F11 F41:32000 PL(B,BU,3)25ʲ@969,"IT'S CLOSE AT FIRST!";:30001Y PL(B,BU,3)4P(95)ʲ@990,"HE'S SAFE";:30001:30700:1060 @990,"HE'S OUT";:30001:15982,179:30700:OT13F31SC(B)SC(B)1:@64B58,SC(B); 1800Ƃ : 31000:BA(3)253BA(2)253BA(1)253ʒ BA(3)253BA(2)253RN150:RN125< PL(B,BU,3)5P(RN)3500] BA(3)253F31:32000:3200& @985,"STOLE HOME!";:30002:307000 BA(2)253F21:32000:3300҃ @985,"STOLE THIRD";:30002:30700؃ BA(1)253F11: 32000$ @985,"STOLE SECOND";:30002:30700:a BA(3)253ʱ15952,179:BA(2)253ʱ15711,179:15982,179 @985,"OUT STEALING";:OTOT1 @200,OT;:30002:30700:31000:BA(3)253F31:32000:BA(2)253F21:32000:F11:32000:31000:F41BA(1)253F118BA(1)253BA(2)253F21`BA(1)253BA(2)253BA(3)253F31k32000u1060R(6):R5010,5020,5010,5030,5040,5050ㅒ@960,"GROUND BALL";:30002:" HE'S GOT IT!";:F1:5100 @960,"LINE DRIVE";:30002:" CAUGHT!";:F2:5100`@960,"FLY BALL";:30002:" EASY CATCH!";:F3:5100@960,"LONG DRIVE";:30002:" WHAT A CATCH!";:F3:5100܆@960,"POP-UP";:30002:" HE'S . . . ";:F330002:30700OT2ʍ5400 F15140:5300310001BA(3)253F31E(BA(2)253F21Y2BA(1)253F11t<F11F21F31ʑ32000PS1ʱ15982,179:@960,"OUT AT FIRST";:30002:30700:1800܇ZBA(2)253BA(1)253ʱ15952,179:5250$dBA(3)253BA(2)253BA(1)253SC(B)SC(B)1:@64B58,SC(B);:5250DnBA(1)253ʱ15711,179:5250Nx527015982,179:@985,"DOUBLE PLAY!";:30002:30700OTOT1:OT2F31SC(B)SC(B)1:@64B58,SC(B);180015982,179:@960,"OUT AT FIRST";:30002:30700:1800F25310:5400"S15320:5400-31000GBA(3)253F31:5360aBA(2)253F21:5360{BA(1)253F11:536032000ډBA(3)253ʱ16223,179:5380:BA(2)253ʱ15952,179:5380:BA(1)253ʱ15711,179@985,"DOUBLE PLAY!";:30002:30700OTOT1:1800:@990,"OUT!";:30002:30700:1800L1uT1280:T:^2uT1660:T:q5uT11000:T:wI05:@626IL,(14,128);:I:w@960,(62,32);:݊yBA(1)(15982):BA(2)(15711):BA(3)(15952)"yF10:F20:F30:F40,y}: }F41ʱ16164,2538}F11ʱ15913,253:15982,179X}F21ʱ15770,253:15711,179x(}F31ʱ16021,253:15952,1792}30001<}F41ʱ16041,253:16164,144‹F}F11ʱ15780,253:15913,32P}F21ʱ15893,253:15770,130Z}F31ʱ16154,253:16021,32 d}30001+n}F41ʱ15982,253:16041,32Kx}F11ʱ15711,253:15780,129j}F21ʱ15952,253:15893,32}F31ʱ16223,253:16154,160:31052,25:31054,0:33100:31052,150:31054,108ˌ}S1ʑ30001}Y(16223):Y253ʱ16223,179:SC(B)SC(B)1+}@64B58,SC(B);:IN9B2SC(2)SC(1)GO11}mL16526,31000(31000256)256:16527,31000256:J(0):POPO15360:AN$"":(AN$),A1:(AN$)2,(PO256):(AN$)1,PO(PO256)256:׍œA0:@PO,(A1,95);ÜAA140134:@POA,(95);8ĜA$:A$""40132:M(A$):M31M91ʲ@POA,A$;:AA1:40131iŜM840135:M1340138:M3140130:40131ƜA$:A$""40134:M(A$):40133ǜAA1ʲ@POA,(95)ǎȜAA1:A0A0:40131:40131ގʜ@POA,(A1A,32);˜40070:nUS(5)1023:US(6)20243:A$"S"US(1)15360:US(3)31730:US(1)31730:US(3)15360:M(US(0)):16526,M(M256)256:16527,M256{ J(0):4A$:A$""40500:Gi221,33,76,121,221,78,0,121,183,194,37,121,201,221,70,1,62,1,211,255,16,254,221,70,1,62,2,211,255,16,254,13,194,37,121,221,35,221,35,1,255,255,33,48,0,9,218,69,121,195,28,121j150,254,108,126,102,153,100,171,98,204,200,171,170,230,150,254,108,126,102,153,100,171,98,204,200,171,102,153,101,161,102,153,96,204,99,190,100,171,210,153,99,190,230,230,210,153k102,153,102,153,106,137,108,126,112,114,106,137,102,153,100,171,96,204,92,230,150,254,108,126,102,153,100,171,98,204,200,171,170,230,92,230,150,254,92,230,98,204,99,190,100,171-l240,153,102,153,106,137,255,126,255,126,108,126,106,137,102,153,100,171,99,181,100,171,240,153,250,137,255,126,0,0QÈ360,73,361,78,362,78,363,73,364,78,365,71,387,85,388,80,397,42,398,42,399,42,401,83,402,67,403,79,404,82,405,69,407,66,408,79,409,65,410,82,411,68,413,42,414,42,415,42,424,66RÈ425,65,426,76,427,76,428,83,488,83,489,84,490,82,491,73,492,75,493,69,494,83,552,79,553,85,554,84,616,130,617,136,618,160,676,144,677,132,678,129,683,130,684,136,685,160ESÈ707,160,708,136,710,191,711,179,712,191,714,132,715,144,737,144,738,132,739,129,750,130,751,136,752,160,768,160,769,136,770,130,780,129,781,132,782,144,798,144,799,132,800,129TÈ817,130,818,136,819,160,829,160,830,136,831,130,847,129,848,132,849,144,859,144,860,132,861,129,884,130,885,136,886,160,890,160,891,136,892,130,902,95,903,95,904,95,914,129UÈ915,132,916,144,920,144,921,132,922,129,936,65,937,84,939,66,940,65,941,84,951,191,952,179,953,191,981,191,982,179,983,191,1000,78,1001,85,1002,77,1003,66,1004,69,1005,82`VÈ1018,130,1019,136,1020,160,1042,144,1043,132,1044,129,1064,65,1065,86,1066,69,1067,82,1068,65,1069,71,1070,69,1085,130,1086,136,1087,160,1103,144,1104,132,1105,129,1128,72,1129,79WÈ1130,77,1131,69,1132,82,1133,83,1152,130,1153,136,1154,160,1164,144,1165,132,1166,129,1192,83,1193,84,1194,69,1195,65,1196,76,1197,83,1219,130,1220,136,1222,191,1223,179,1224,1913XÈ1226,132,1227,129,0,0Vj 700::AXHkW$"}k> !<>w#4# w#4# # >w#B>&>d = !P>> t u ev   w#-# jo.M-M-M !GOOD ! BURP ! AHH !! TASTY !CRUNCHYFRESH !SALTY !SWEET !BITTER SOUR ! ."ukW1((W$)1):W2((W$)2):W0W2256W1kV$"> ip q r   s ......"kV1((V$)1):V2((V$)2):V0V2256V1.lU$"!jN>=< >!jw=( (5!jN> >w>4......."[lU1((U$)1):U2((U$)2):U0U2256U1-mX$"!?8 ~(#~ O>!_jw!kj^#V!~k> @6d> @6V> 6L>@ 6B>H ?64>P A6&>0 ?6>( A6 >(@Gbm>(cl!lj~<Ýn........................."ZmX1((X$)1):X2((X$)2):X0X2256X1mY$"> >D  > >Ļ 1> !k5&>. >n  > >  > !k4>< K>@ (=(>@_K> ( =(@{_!kjs#r!j>dw^j!mo~(cl....."'nY1((Y$)1):Y2((Y$)2):Y0Y2256Y1hnT$"!kj^#V><( @r+s^j>K> (=@r+s......."nT1((T$)1):T2((T$)2):T0T2256T15o R$"!kj^#V@>w^j!kj^#V@r+s^j!kj^#V@r+s^j!kj^#V@r+s^j!jN!k~<<(<< >! ow>.COPYRIGHT 80-NW PUB. L.CHRISTOPHERSON."bo!R1((R$)1):R2((R$)2):R0R2256R14p"S$">(!j^!k~=< zo{o|o>( oo!mo>w^j!kj!kN &=i+}o}o ozo!mo>w!kN &=i w#-#  >> !mo6!_j6!o~!j6^j!j6....."ap#S1((S$)1):S2((S$)2):S0S2256S1eqdA$"ZZZZZZZZZZ"qeA1((A$)1):A2((A$)2)riB$".........."rjB1((B$)1):B2((B$)2)snC$".........."soC1((C$)1):C2((C$)2)tsD$".........."ttD1((D$)1):D2((D$)2)uG$"......."uG1((G$)1):G2((G$)2)=vH$"......."]vH1((H$)1):H2((H$)2)vI$"......."wI1((I$)1):I2((I$)2)wG1$"1111111"wG4((G1$)1):G5((G1$)2)cxH1$"2222222"xH4((H1$)1):H5((H1$)2)yI1$"3333333">yI4((I1$)1):I5((I1$)2)yG2$"4444444"yG7((G2$)1):G8((G2$)2)zH2$" "zH7((H2$)1):H8((H2$)2){J$"555"{J1((J$)1):J2((J$)2)|J1$"666666"|J4((J1$)1):J5((J1$)2)}J2$"7777777"}J7((J2$)1):J8((J2$)2)~K$"8888"K1((K$)1):K2((K$)2)K1$"999"K4((K1$)1):K5((K1$)2)K2$"000")K7((K2$)1):K8((K2$)2)Z$"!kjN> (=( !o>w jo!mo~cl!k>!<  yl/n! o~(6> !mo6 > k^j............."ځZ1((Z$)1):Z2((Z$)2):Z0Z2256Z1:Z032767Z0Z065536W04,V1:W05,V2:W089,105:W090,62:W0100,G1:W0101,G2:W0109,H1:W0110,H2:W0118,I1:W0119,I2:V07,A1:V08,A2:V015,B1:V016,B2:V023,C1:V024,C2V043,D1:V044,D2ۂU4((W089)256):U3(W089)(U4256):U02,U3:U03,U4-U6((W094)256):U5(W094)(U6256):U018,U5:U019,U6:U033,U5:U034,U6E16422,U1:16423,U2WB((W013)256):WA(W013)(WB256):Y0117,WA:Y0118,WB:Y0129,W1:Y0130,W2:Y0140,X1:Y0141,X2:UB((U06)256):UA(U06)(UB256):Y035,UA:Y036,UB:Y075,UA:Y076,UBX029,WA:X030,WB:X035,V11:X036,V2:X0173,R1:X0174,R2:X0152,Y1:X0153,Y2:X025,W11:X026,W2:X0166,WA1:X0167,WBńW9((W058)256):W8(W058)(W9256):Y0123,W8:Y0124,W9T01,WA:T02,WB:T020,W1:T021,W2:T027,1JR01,WA:R02,WB:R028,WA:R029,WB:R045,WA:R046,WB:R062,WA:R063,WBR025,W1:R026,W2:R042,W1:R043,W2:R059,W1:R060,W2:R076,W1:R077,W2:R019,V11:R020,V2(RZ((R0110)256):RY(R0110)(RZ256):R0102,RY:R0103,RZ:R0110,2:R079,U3:R080,U4:R083,UA:R084,UBxSB((S0119)256):SC(S0119)(SB256):S5((S03)256):S4(S03)(S5256)S09,U3:S010,U4:S013,UA:S014,UB:S061,S4:S062,S5:S0112,S4:S0113,S5:S070,WA:S071,WB:S0120,UA:S0121,UBS028,SC:S029,SB:S034,SC:S035,SB:S040,SC:S041,SB:S052,SC:S053,SB:S058,SC:S059,SB:S097,SC:S098,SB:S0103,SC:S0104,SB:S0109,SC:S0110,SB]S025,J1:S026,J2:S031,J4:S032,J5:S037,J7:S038,J8:S049,K4:S050,K5:S055,K7:S056,K8:S094,K1:S095,K2:S0100,K4:S0101,K5:S0106,J1:S0107,J2:W0151,S1:W0152,S2S067,W1:S068,W2:SZ((S0194)256):SY(S0194)(SZ256):Y0132,S4:Y0133,S5S03,1'S073,UA:S074,UB:S088,K1:S089,K2:S9((S0129)256):S8(S0129)(S9256):S091,S8:S092,S9׉SX((S045)256):SW(S045)(SX256):S0165,S4:S0166,S5:S0170,W11:S0171,W2:S0175,SW:S0176,SX:S0182,U5:S0183,U6:S0187,W1:S0188,W2:S0190,U5:S0191,U6XR((X022)256):XQ(X022)(XR256):X0163,X1:X0164,X2͊Z033,X1:Z034,X2:Z036,UA:Z037,UB:Z047,XQ:Z048,XR:Z026,S4:Z027,S5:Z050,T1:Z051,T2:Z053,RY:Z054,RZ:Z069,S4:Z070,S5:Z081,U1:Z082,U2:Z01,WA:Z02,WB3SR((S045)256):SQ(S045)(SR256):Z015,SQ:Z016,SR:Z084,W1:Z085,W2:Z023,S1:Z024,S2AQ10:Q20yQA$"OH, WOW ! I DON'T YIPES ! WHY ME ? "QB$" IT GOT ME ! BELIEVE IT ! THAT STINGS !POOR OL' ME ? E E E E E E !O O O O O O !A A A A A A !U U U U U U !I I I I I I !"njQC$"I DARE YOU TOREPEAT THAT !I'LL GET YOU FOR THIS ! JUST COME ON DOWN HERE ! OF ALL THE @!*@ LUCK ! OH, MOMMA ! I NEED YOU !IT CAN'T BE ! NO, NO, NO ! "QD$"THE SPCA SHOULDHEAR OF THIS ! GOOD-BYE, CRUEL WORLD ! THIS IS IT ! ALL RIGHT ! IT REALLY HAPPENED ! THE WORLD IS GROWING DARK ! STUPID BEE ! WHAT LUCK ! THEY OUGHT TO BAN ALL BEES ! "L1$"BEEWARY!"9L2$" "L3$""͎L4$""ێ"500:600@0,L1$; N6483264:@N,L2$;:N%@896,L3$;:@960,L4$;+hXPQ(40):W013,PQ196:W014,60:U06,PQ4:PQ434600b16422,Z1:16423,Z2:S03,2:Z063,1:Z075,2:W094,6:W066,35d670ďf505:660ӏgV01,(5)lN1(8):W01,(7)2:W058,(25)50q660:"0";:N3vQ$:Q$""615:(Q$)13650Q4(4)1:PY$(QC$,79Q426,13):"0";:PZ$(QC$,92Q426,13):2030EHQ4(6)1:PY$(QB$,53Q413,13):"0";:2030cIPY$"E E E E E E !":2030JPY$"O O O O O O !":2030KPY$"A A A A A A !":2030LPY$"U U U U U U !":2030ۚMPY$"I I I I I I !":2030"RQ4(3)1:PY$(QC$,1Q426,13):"0";:PZ$(QC$,14Q426,13):2030e\Q4(7)1:PY$(QD$,1Q430,15):"0";:PZ$(QD$,16Q430,15):f(7)2151,2152,2153,2154,2155,2156,2157g@PX384,"BEES ARE BEST !";:ԛh@PX384,"BEE POWER !!!";:i@PX384,"YEAH, BEES !";:j@PX384,"THAT'LL TEACH YOU !";:Ok@PX384,"TOO-TA-LOO,";:@PX320,"TARANTULA !";:l@PX384,"SO LONG,";:@PX320,"SPIDER-LADY !";:m@PX384,"BYE-BYE, BUG !";:@PX," ";:@PX64," ";:PY$" ":PZ$" ":"0";: PS(W090)256(W089)15360:Q1Q11:S03,2:WZ((W087)256):WY(W087)(WZ256):16422,WY:16423,WZ؝ P15(15):3500:W094,2:"0";:3500:W094,3:"0";:P:W094,1:"0";:PSPS197u @PS4,(143);:N13:N:@PS3,(3,(143));:N13:N:@PS2,(5,(143));:N13:N:@PS1,(139);:@PS7,(135);:N11:N:@PS,(178);:@PS8,(177); N150:N:N17:255,1:255,2:N̞ PSPS254:Q3(11)1:@PS,(W$,155Q37,7); N1100:N:4000 Q12:Q:16422,SY:16423,SZ:505`@215,"THE SCORE SO FAR:";:@458,"THE SPIDER: ";Q1;:@487,"THE BEE : ";Q2;柪@668,"PRESS:";:@786,(34);"ENTER";(34);" TO START NEXT GAME";:@842,(34);"CLEAR";(34);" TO RESET SCORE AND START NEXT GAME";Q$:Q$""4100:(Q$)134110:(Q$)314115% 41003505:999GQ10:Q20:4110MhESET SCORE AND START NEXT GAME";Q$:Q$""4100:(Q$)134110:(Q$)314115% 41003505:999GQ10:Q20:411j : ***** BLOWFLY ***** * C. CRANSTONE * * 17 HELEN ST * * CHRISTIES DOWNS * *******************rk:@20,"B L O W F L Y";: CARL CRANSTONE 1981 JULY **** "BLOWFLY" (C) N.B. 4K USERS DELETE LINES 10 TO 80k:"THIS GAME IS FOR TWO PLAYERS.":"EACH PLAYER HAS A FLY WITH WHICH THEY MUST CRAWL TO THE TOP OF THE WINDOW."0l("LEFT PLAYER USES '[' (ESC) TO CRAWL UP AND RIGHT PLAYER USES 'U'"l2:"YOU MUST CRAWL UP THE WINDOW DODGING THE SWATS.":"A SPIDER LIVES ON THE WINDOW AND MAY COME DOWN TO GOBBLE YOU UP!"l<"IF YOU STAY IN ONE SPOT FOR TOO LONG, YOU WILL START TO SLIDE DOWN!"omF"YOU CAN ALSO MOVE DOWN IF YOU GET COLD FEELERS!":"LEFT PLAYER PRESS DOWN ARROW (CNTRL) AND RIGHT PLAYER 'J'."mP"PRESS ENTER TO START";LK$nZ:200:P1$"!"(143)"!":P2$"#"(143)"#":P1974:P21004:SP$" "(184)(180)" "(26)(5,24)(167)(167)(155)(155)_ndPS$" "(180)(184)" "(26)(5,24)(155)(155)(167)(167)nn(143)" LEVEL 0 - 3 ";(143);:LEV:LEV0LEV390nx@96014,P1$;:@96044,P2$;:@0,(64,133);nK$"PASS"ʒoO1LEV10:O:IR$:IR$"["ʑ250:270o(14440)16ʑ250:2905oIR$"U"ʑ260:310Oo(14383)4ʑ260:330o(2)2ʁO1LEV4:JK(832)63:@JK,"SWAT!";:T1LEV10:T:@JK," ";:220:Oo(8)2ʑ480o(4)2ʑ250:290:(4)1ʑ260:330o140,pP1JKP1JK1P1JK2P1JK3P1JK4LO$"PLAYER ONE":380:opP2JKP2JK1P2JK2P2JK3P2JK4LO$"PLAYER TWO":380:upp@P1," ";:p@P2," ";:pP1P1128:P114WI$"PLAYER ONE":350:@P1,P1$;::pq"P1P164:P1974P1974:@P1,P1$;::q,@974,P1$;:Oq6P2P2128:P244WI$"PLAYER TWO":350:@P2,P2$;:Uq@qJP2P264:P21004P21004:@P2,P2$;:qT@1004,P2$;:r^WI$"PLAYER ONE"K$"PASS"::120:K$"":W1W11:W110430:@26,W1;:@1,Q1;:@36,W2;:@60,Q2;:P1974:P21004:~rhWI$"PLAYER TWO"K$"PASS"::120:K$"":W2W21:W210430:@36,W2;:@60,Q2;:@1,Q1;:@26,W1;:P21004:P1974:rr:r|LO$"PLAYER ONE"ʑ250:P11000:290:Q1Q11:Q110400:@1,Q1;:sLO$"PLAYER TWO"ʑ260:P21005:330:Q2Q21:Q210400:@60,Q2;:Os:(143)" BLOWIE NUMBER ";(LO$,3);" LOST! ";(143)s(LO$,3)"TWO"WI$"PLAYER ONE":(LO$,3)"ONE"WI$"PLAYER TWO"sBV2:430sBV2ʄs(143)" THE WINNING BLOWIE WAS ";(143);:BV0t" FLY-NUMBER "(WI$,3)" ";(143)::"PLAY AGAIN?"Rt"(FLY TALK FOR PLAY AGAIN!) BZZZ.. BZZZ..";:FLY$it(FL$,1)"Y"ʎ:ytSP(56)64tHSPSP102464t@H,SP$;:J120:J:@H,PS$;:J120:J:@H," ";(26);(6,24);" ";tH832550nu(P115360)("!")(P115361)143(P115362)("!")ʲ@H,"BURP!!";:P150:P:@H," ";:LO$"PLAYER ONE":380:140u(P215360)("#")(P215361)143(P215362)("#")ʲ@H,"BURP!!";:P150:P:@H," ";:LO$"PLAYER TWO":390:140uHu&:R2JS@*@"B!B"@!B"Br*B~# ("B*B"@RUN B A(31)C280C CSH15:ST15!C(23)=C@268,"TARGET PRACTICE"QC( TD1 1000:|C2::"THIS IS A GAME FOR TWO PLAYERS-"C3:6)"THE OBJECT OF THE GAME IS TO DESTROY AS MSANY TARGETS"C57)"AS POSSIBLE WITH YOUR FIFTEEN SHOTS. THE PLAYER ON"7D77)"THE LEFT USES THE LETTER 'Z' AND THE PLAYER ON THE"tD96)"RIGHT THE '/' TO FIRE THE MISSLE. THE SPEED OF THE"D:6)"MISSLE LAUNCHER MAY BE VARIED BETWEEN FAST AND SLOWT"D<:" ENTER THE NAME OF THE FIRST PLAYER";A$EF:" ENTER THE NAME OF THE SECOND PLAYER";B$DEP:"ENTER SPEED(1 FAST- 10 SLOW)"XEZ:A$;:" ";:AnE\ A1 A10 90E_:B$;:" ";:BEa B1 B10 95EdEi 1,2,3,4,5,U6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31Fj L1 31: A(L): L#Fn Z1 10/FxM(31)BF A(M)0 120TF M31 M10dF M2 M2oFNM32F MZ64 0 M10ZF@MZ64,"#"F@NZ64,"*"FAV(M)0F ZFY43F X0 127F (X,Y)F XF@960,A$;G@995,B$;GX63G Y3 42*G(X,Y)2G YLGCTCT1: CT150 800]G SH0 310lG X1 60uG"Y42G,(X,Y)G/ TD1 A: TDG0(X,Y)G1G$: G$""W 308G2 G$"Z" 460: 310G4 XG6 ST0 280G; X65 127H@Y42HJ(X,Y)$HM TD1 B: TD/HN(X,Y)EHOH$: H$"" 338`HP H$"/" 660: 280hHR XqHT280H@974," ";:SHSH1:@974,SH;" SHOTS LEFT";XH Y41 3 2H(X,Y)H W1 5H WH(X,Y)H YH;I@1007," ";:STST1:@1007,ST" SHOTS LEFT";NI Y41 3 2YI(X,Y)gI W1 5oI WzI(X,Y)I YII 280I ::10)"DO YOU WANT TO PYLAY AGAIN (Y/N)";:Q$I* Q$"Y" I4 Q$"N" 800J>::::20)"THANK YOU FOR PLAYING"*JH TD1 1000::0JRF YZ!<!YB!YgDâZDO THE FOLLOWING: 1. HOLD DOWN BREAK KEY AND PRESS RESET TO ACTIVATE NON-DISK BASIC. zCZ2. RELEASE BREAK KEY AND INPUT BASIC INITIALIZATION RESPONSES. 3. ENTER "SYSTEM". 4. ENTER "/" !Z<!RBðBYZ!<!YB!VER\usr\pc\exe # ====================================================================== # Switch to a script on the P: drive j :@335,(23)"Magic Cube":@596,"Solver":T8:920::(28)jA$"edge":B$"corner":C$"centre"kD$"front face ":E$"right face ":F$"left face ":G$"top face ":H$"bottom face ":I$"rear face "k(J$"a quarter turn clockwise":K$"a quarter turn anticlockwise":L$"a half turn":M$"Move to the next stage":N$"Repeat last stage"k2A1:B2:C3:D4:E5:F6:G7:H8:I9:J10:K11:L12:M13l<O$"Stage 1 -- Preparing the blue face":P$"Stage 2 -- The middle layer":Q$"Stage 3 -- The last layer":R$"First layer edge cubes":S$"First layer corner cubes":T$"Middle layer":U$" - Corner cubes":V$" - Edge cubes"lFW$" - Edge flips and corner twirls":Y$"Press any key to continue."mP:"This programme is a step by step method for solving the puzzle"::"of the magic cube. It is a 'repeatable step method that will":nZ"allow the user to repeat the steps in each stage until they"::"have that particular stage solved. They can then move on to":nd"the next stage until, finally, the cube is solved."::"First we will need to know the names of the small cubes."::Y$:900nn850nx:@64,O$o:"Locate the blue ";C$;" square."::"Turn the cube so this square is on the ";G$::Y$:900:X$"RED"+o:O$:R$:VV1oA;" If edge cube withBBASGAME200/00/00 B>'!"u2%jvbq^BOOT SYS`]DIR SYS  CUBE BASBB)  UBOAT BASBB ZODIAC BASBB  HUSTLE BASBB  STRTREK2BASBB6* GOLF BASBB3  BLOWFLY BASBB  BOA BASBB $" BINGO BASBB & DODGE BASBB'! STRSHOOTBASBB (! CLEANUP BASBB ! STRTREK4BASBB2)) MINDREADBASBB/" GENIUS BASBB .! BATTER BASBB$ MSTRMINDBASBB1 MURGAL BASBB 2" ROCKET BASBB4 RECALL CMDBB STRTREK3BASBB86  AIRPILOTBASBB5<  ROADRACEBASBB SNAKEGGSBASBB7A* TOWERS BASBBM ?ANDROID BASBB<G BASEBALLBASBB- BEEWARY BASBB7* BLUE and ";X$;" colour is on ":H$;"then move to 3 else continue":B;" Bring this cube to bottom by turning appropriate side face"pC;" If BLUE side of this cube is on the bottom then rotate":"bottom face until ";X$;" colour is on ";X$;" face then ":"rotate ";X$;" face until BLUE is on the BLUE face":D;" If ";X$;" side of this cube is on the bottom then rotate"hqH$;"through a quarter turn to bring BLUE":"colour of this small cube to a face adjacent to ";X$;" face":"then simply rotate this face until ";X$;" colour of the small"q"cube is on ";X$;" face then turn ";X$;" face until the BLUE":"colour comes to the BLUE face":Y$: 900qV200,210,220,230rX$"ORANGE":140rX$"YELLOW":140+rX$"WHITE":140r:@64,"We will need to explain two terms before proceeding with the":"remaining steps.":Ms"CLOCKWISE TURN - This is a turn in the direction of the clock":"of a particular face when it is the face nearest to you.":"Be sure to remember that this direction will appear different"t"on the other faces and in fact will appear to be ANTICLOCKWISE":"ON THE REAR FACE."::"ANTICLOCKWISE TURN - T his will be opposite to the above .":::"WE WILL REVIEW THE FACE NAMES":Y$:900:850+t:O$:S$tA;" If there are no corner cubes in the "H$:"press the 1 key or else press 2":900:Z350,280Iu:A;" Look at the three colours on this small cube and determine":"the position you require it to be moved to. Keeping the":"BLUE face to the top rotate the cube so that the new"v""position is at the front upper right hand corner":"*** You must remember the location of each face colour ***":B;"Turn the bottom face until the required small cube is at the"pv,"front bottom right hand corner (directly under the required":"location of this small cube.)":Y$:900:w6O$:R$:"Press 1 if the BLUE is on the ";D$:"Press 2 if the BLUE square is on the ";E$:"Press 3 if the BLUE square is on the ";H$: 900::O$:R$:Z320,330,340bw@"Blue square is on the ";D$:A;D$;J$:B;H$;J$:C;D$;K$:Y$:900:260wJ"BLUE square on the ";E$:A;E$;K$:B;H$;K$:C;E$;J$:Y$:900:260wT"BLUE square on THE ";H$:A;E$;K$:B;H$;J$:C;E$;J$:D;H$;L$:330x^:O$:R$:" Either you have finished and all the cubes in the top layer":"are in their correct position (in which case you press 1)":"otherwise you have a small cube that has to be removed from"_yh"the top layer and replaced in its correct position.":A;"Turn the whole cube so that the small cube to be moved is":" at the front upper right hand corner"yrB;E$;K$:C;H$;J$:C;E$;J$:"Press 1 to move to next stage or 2 to continue this stage":900::Z380,280z|:P$::"Turn the cube upside down so that the BLUE face is on the":H$;": From this point onwards we will not refer to":"specific colours but to specific faces and locations."{"Thus we will review the individual squares that":"go to make up a single face. Then we can continue.":::Y$:900:850:{:P$:"First locate an edge cube in the ";G$;"required in the":T$:"If there are none press 1 otherwise press 2":900::Z450,410N|P$:A;" Rotate the top face until the colours on the small edge":" cube are the same as the front face and the left face. Look ":"at the top square of this edge cube you want to move."|B;" Press 1 if it matches the centre square of the ";F$:C;" Press 2 if it matches the centre square of the ";D$:900::Z430,440P}P$:"Matching center square of ";F$::A;D$;J$:B;G$;L$:C;E$;J$:D;G$;J$:E;E$;K$:F;G$;L$:G;D$;K$::Y$:900:400}P$:"Matching centre square of ";D$::A;D$;J$:B;G$;L$:C;E$;J$:D;G$;K$:E;E$;K$:F;G$;L$:G;D$;K$::Y$:900:400<~:P$::"If all ";T$;" cubes are in their correct position press 1"::"If not then press 2":900:Z490,460~:P$::"This sequence will remove an unwantededge cube from the":T$;" and place it in a usable position."::"Turn the whole cube (keeping the BLUE face on the bottom)"d"around until the small cube you wish to shift is at the left":"hand front edge - that is facing you."::Y$:900:P$::A;D$;J$:B;G$;L$:C;E$;J$:D;G$;J$:E;E$;K$:F;G$;L$:G;D$;K$::Y$:900:400:Q$::"There is now only one layer to be completed. You will need to":"check which of the small cubes you need to move before you":"proceed. Some cubes will be in the right place but the wrong"K"way around whilst others will be in the wrong position. You":"will need to check which sequence of movements you require.":"To do this we will have a look at a series of possibilities" "in relation to the single face of the cube. When you feel that":"you have the correct shifting possibility just enter the":"number at the front of the sequence and the movements will""then be given. After you have executed those moves you will":"return to the diagram of possible moves. If you have all the":"corner cubes in place just press 5.":Y$:900:Q$:U$::"Rotate the top face until at least one corner cube is in the":"correct corner. Don't worry about position, just the corner":"Now study the diagram that follows and determine the required";"movement. The sequence will be corner to corner. Choose your":"situation and enter the appropriate number":"Don't worry if the cube seems chaotic during a sequence"&"This will sort itself out by the end of the sequence."::Y$:900(0810:@576,"1. 1 to 3 : 3 to 7 : 7 to 1":@640,"2. 1 TO 7 : 3 TO 1":@704,"3. 1 to 3 : 3 to 1":@768,"4. 3 to 7 : 7 to 3":@832,"5. to proceed to ";V$H:900:Z580,590,600,610,620D:Q$;U$::A;F$;K$:B;G$;J$:C;E$;J$:D;G$;K$:E;F$;J$:F;G$;J$:G;E$;K$:H;G$;K$::Y$:900:560N:Q$;U$::A;G$;J$:B;E$;J$:C;G$;K$:D;F$;K$:E;G$;J$:F;E$;K$:G;G$;K$:H;F$;J$::Y$:900:560}X:Q$;U$::A;D$;J$:B;G$;K$:C;I$;K$:D;G$;J$:E;D$;K$:F;G$;K$:G;I$;J$:H;G$;L$::Y$:900:560ۆb:Q$;U$::A;G$;J$:B;D$;J$:C;G$;J$:D;E$;J$:E;G$;K$:F;E$;K$:G;D$;K$::Y$:900:560l:810:@576,"1. 2 to 8 : 8 to 4: 4 to 2":@640,"2. 2 to 4 : 4 to 8 : 8 to 2":@704,"3. 2 to 8 and 8 to 2 : 4 to 6 and 6 to 4":@768,"4. 2 to 6 and 6 to 2 : 4 to 8 and 8 to 4"v@832,"5. To position colours once all this layer is located.":900:Z640,650,660,670,680h:Q$;V$::A;F$;L$:B;G$;J$:C;D$;K$:D;I$;J$:E;F$;L$:F;D$;J$:G;I$;K$:H;G$;J$:I;F$;L$::Y$:900:620؈:Q$;V$::A;F$;L$:B;G$;K$:C;D$;K$:D;I$;J$:E;F$;L$:F;D$;J$:G;I$;K$:H;G$;K$:I;F$;L$::Y$:900:620Z:Q$;V$::A;E$;L$:B;F$;L$:C;H$;J$:D;E$;L$:E;F$;L$:F;G$;L$:G;E$;L$:H;F$;L$:I;H$;J$:J;E$;L$:K;F$;L$::Y$:900:620܉:Q$;V$::A;E$;J$:B;I$;J$:C;G$;J$:D;I$;K$:E;G$;K$:F;E$;L$:G;D$;K$:H;G$;K$:I;D$;J$:J;G$;J$:K;E$;J$::Y$:900:620:Q$;W$::"Now all that is needed is for you to position the colours":"on each of the cubes in this final layer."::"Look at the cube very carefully.":::Y$:900:Q$;W$::"A twirl is determined as follows:":A;" Hold the whole cube so that the small cube to be twirled":"is at the upper right position."֋B;" If the colour of the square on the front face is the same":"as the colour of the centre square of the top face then this":"small cube will need to be twirled * CLOCKWISE *"C;" If the colour of the square on the right hand faceis the":"same as the colour on the top face then this small cube will":"need to be twirled * ANTICLOCKWISE *"::Y$:900G:Q$;W$::"CORNER TWIRLS"::"Press 1 for twirls (remember that if there are three corners":"to be twirled this sequence will need to be repeated until":"all cubes are twirled.)""Press 2 to review the definitions.":"Press 3 to flip the edges.":900:Z740,690,760=:Q$;W$::"Clockwise corner twirl"::A;E$;K$:B;H$;J$:C;E$;J$:D;D$;J$:E;H$;J$:F;D$;K$:G;" Rotate top face until the small cube to be rotated"ώ"anticlockwise is at the top right hand corner."::Y$:900::Q$;W$::H;D$;J$:I;H$;K$:J;D$;K$:K;E$;K$:L;H$;K$:M;E$;J$::Y$:900:720:Q$;W$::"EDGE FLIPS - To flip one pair"::A;" start with one of the pair in the top front position":B;D$;J$:C;G$;J$:D;H$;K$:E;F$;L$:F;G$;L$:G;H$;L$:H;E$;J$::Y$8900::"EDGE FLIPS - PART 2"::A;" Do not change the orientation of the cube.":B;" Rotate top face until other cube of pair being flipped is":" in the top right position." C;E$;K$:D;H$;L$:E;G$;L$:F;F$;L$:G;H$;J$:H;G$;K$:I;D$;K$::"Press 1 to repeat or 2 if completed.":900:Z760,790ِ:@386,(23)"CONGRATULATIONS." 800)*:@0,"The cube position numbers for the movement sequences below"u4@153,A:@158,B:@163,C:@281,D:@286,E:@291,F:@409,G:@414,H:@419,Iϑ>X4575:(X,4):(X,10):(X,16):(X,22):X:Y422:(45,Y):(55,Y):(65,Y):(75,Y):YՑHۑR\@10,"A single face of the cube showing names."f@202,B$:@214,A$:@226,B$:@458,A$:@470,C$:@482,A$:@562,"Hit any key":@626,"to return.":@714,B$:@726,A$:@738,B$pX1688:(X,4):(X,16):(X,28):(X,40):X:Y440:(16,Y):(40,Y):(64,Y):(88,Y):Yz900:Z$:Z$""900Z(Z$):(N1(T250):N:Xj :300:AZ:\k Z$" "kZ!((Z$)1):A!((Z$)2):M!256A!Z!:1M!:A1644616474:D:M!,D:M!M!1::TI$"SUBS N CHOPPERS"cl(T$(5,95)(176)(5,95)(26):L$T$(9,8)(140)(4,143)(3,131)"0":R$T$(11,8)"0"(3,131)(4,143)(140):F$T$(7,8)(142)(143)(141)l2E$(203)(26)(11,8)(203):S1$(130)(185)(147):S2$(186)(2,191):SB$(3,176)(190)(188)(4,176)Im<X1$(131)(140)(176)(140)(131)(140)(176)(140)(131)" ":X2$(140)(179)" "(179)(140)mFX3$(176)(140)(131)(140)(176)(140)(131)(140)(176):SB135:HH$L$:M30:L4:PB63:310mP200:JJL64M:@JJ,HH$;:210+nZ@0,"POINTS"PT;:@55,WI"SUNK";:B1ʑ210:90:PT599340:JS255(0):KB(14400)ndJS1KB8LL1:HH$F$:PB64:120:JS2KB16LL1:HH$F$:PB64:120:JS4KB32MM(4):HH$L$:PB63:120:JS8KB64MM(4):HH$R$:PB65:120:JS3KB128150nnJS0KB0SE1(257):MM(3)2;ox@JJ,E$;:M8M8:HH$R$:PB65:M43M43:HH$L$:PB63ToL0L0:L6L6oJJL64M:@JJ,HH$;:SE1(276):HV1ʒ:90oBB1:A1JJ133:A2A1(L213)PB:ZA1A2PB:@Z,(140);:SE1(200Z):Z576ʲ@Z,"/";:@Z," ";jp:@A2," * ";:TD1L:SE1(A23)::@A2,"///";:A2SPPTPT100:WIWI1:300:270:A2SP1A2SP1PTPT30:300:230:200pHH$L$SPSP(2):SB135:190:HH$R$SPSP(2):SB139:190:HH$F$ʲ@SP,"/";:SPSP64pSP1000SPSP128p@SP2,"//"(SB)"//";:90Aq@576,;:X611:(X,32)(62X2,"/")(X,32)::(62,"/");:qSX14(39):200:SY8(7):200:SPSXSY64:HV1:TD14:200:SE1(257):LL(3)2:120:DT140:::HV0.r@SP,(140);:SE1(9999):TD1200::@SP,(135);:SE1(6666):TD1200::@SP,(139);:SE1(3333):TD1200::HT0:B5:urZSPJJ64PB:@Z,(145);:SE1(200Z):Z576ʲ@Z,"/";:@Z," ";r:@SP,(SB)"///";:SS13:TD15:SE1(506):::290"s@JJ,X1$;:@JJ64,X3$;:TD1300::290:HTHT1:HT2ʲ@JJ,HH$;::@JJ64,X3$;:@JJ,X2$;:JJ64ʲ@JJ64,X1$;sTD1150:SE1(506)::290:@276,"THE SUB WON THIS TIME";:@SP64,(176);:@SP3,SB$;B:TD12000:::WI0:PT0:80 t200:@SP65,S1$;:@SP1,SS2$;:SG3333360030:SE1(SG)::@SP1,S1$;:SP640ʲ@SP65,"///";:@SP65," ";MtTD1500::TD13:200::WI4340:@SP1,"///";:210:90lt"@0,;:TD19:(254);::t,@0,"POINTS"PT;:@55,WI"SUNK";:%u6200:@16,TI$:210:SG3333360020:@SP(3)2,"O";:SE1(SG):::@16,TI$:@192,"STICK IT TO THE "SB$::"WITH YOUR 'STICK 80' JOY STICK"ru@50)L$:@512,"OR USE THE PLAIN OLD ARROW KEYS AND SPACE BAR"::11)SI$uJ"SINK FIVE "S2$" (OR GAIN 600 POINTS) TO WIN THE GAME";:TD145:SE1(276):DT1170::::vT:@80,TI$:200:@199,L$" YOU SANK"WI"SUBMARINES":@404,"AND SCORED"PT"POINTS "R$:@715,;:X1WI:SI$"//////";::@779,;:X1WI:S2$"//////";::@978," < ENTER > FOR NEW GAME ";v^(13)SE1(2570):350:WI0:PT0::80-wh:"RUN TO RE PACK STRING"::Z!((Z$)1):A!((Z$)2):M!256A!Z!:A1644616474:D:M!,D:M!M!1:wr205,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,201:"RUN TO RE PACK STRING"::Z!((Z$)1):A!((Z$)2):M!256A!Z!:A1644616474:D:M!,D:M!M!1:wr205,127,10,62,1,14,yj:Z$"THE ORIENTAL ZODIAC SIGNS."::A1792:A$jRAT,OX,TIGER,HARE,DRAGON,SNAKE,HOURSE,RAM,MONKEY,ROOSTER,DOG,BOAR,ROTATEjZ$::"ENTER BIRTH DATE YEAR <1792"kV:CA:V1792ʄ:3kCV10"kCC1:A$9kA$"ROTATE"ʐ:A$@k5}k :Z$::"THE YEAR ";V;"WAS THE YEAR OF THE ";"'";A$;"'"k S$:S$""11k 1EjZ$::"ENTER BIRTH DATE YEAR <1792"kV:CA:V1792ʄ:3kCV10"kCC1:A$9kA$"ROTATE"ʐ:A$@k5}k tjd:HUSTLE 1.0 PETER TREFONAS 28/9/79j: MODIFIED BY P J HYDE 10/10/79j,:AHEM!!! THE AUSTRALIAN RECORD IS 283k:THE NEW ZEALAND (AND PROBABLY THE WORLD!) RECORD IS HELD BY P J HYDE OF 131 RUAMAHANGA CRESCENT PALMERSTON NORTH - THE RECORD STANDS AT THE FIGURE OF 488 !!!!! - BEAT THAT YOU SNAKES IN THE GRASS!!!k:(ACTUALLY A SCORE OF >550 IS CERTAINLY NOT IMPOSSIBLE)NlX:(INCIDENTALLY, WHAT'S THE DIFFERENCE BETWEEN AN AUSTRALIAN AND A BUCKET OF POOHS AND WEES ?)sl: (THE ANSWER IS IN LINE 1900)}l : l: -- H U S T L E --l:WRITTEN BY PETER TREFONAS, U.N.O. (12/6/78)lL10:1300m::A,B,I,F,Q,U,X,Y:A$"":IZ0:IP1:IN1:X40:X20:X62:Y24:B256:A255:X11:Y10:F30:F0:F03:F40:IS0:X20:Q0:I00:IB1:P0:P1.9:IT1200:IQ0:F712:F879:FZ32:FY15360:FX15359:FW15361:I80:FV128:F964:n1200:I(IT):@402,(23)"H U S T L E DO YOU WANT DIRECTIONS";:A$:(A$,1)"Y"27008nx::20);"H U S T L E":sn"THE OBJECT IS TO SCORE AS MANY POINTS AS POSSIBLE BYn@"REACHING THE TARGET WITHOUT TOUCHING A LINE OR REVERSINGn"UPON YOURSELF. YOUR RATING REFERS TO THE NUMBER OF TARGETS9o"THAT YOU GOT MULTIPLIED BY YOUR SCORE, AND DIVIDED BY THE TIME.Qol:(THE BUCKET!!!!)go:"COMMANDS ARE:{o4(81),"MOVE UPo(65),"MOVE DOWNo(60),"MOVE LEFTo` (62),"MOVE RIGHTo "S","TO STOP PLAYINGp( @960,"TO START PRESS THE ENTER KEY ";:A$"p 5700 ::DRAW SCREEN>p 3100:3500:5200:2800NpT I014::rp :NEXT SBR. PROCESSES COMMANDSp A$:A$""ʒ:A$"S"ʎ:Q(A$)p Q44X1IN:Y1IZ:Q46X1IP:Y1IZ:Q81X1IZ:Y1IN:Q65X1IZ:Y1IPp qH :NEXT SBR. RESETS POINTERS AND MOVES DOTMq XXX1:YYY1:F3F3IP:F3ITF3IZ:IQIQITtqF0IZF0F0IP:FFIP:FITFIZqtUI(F):(UA,UB):I(F3)YBX:(X,Y)3900q(X,Y):q<P(Y3)64(X2):P1F4PF4P1F44000::4500 rQ(9):ISISQ:F0F0Q2:I8I81QrIIP8:@F4IN,(Q);" ";:2900:@F4IN,(183);(179);(187);:I{rhX2(I8IS1000(IQF3)):X2X4X4X2r@F4IP," ";:F4IP:IBIN:@197,IQF3;:@326,IS;:@515,X2;:@567,X4;:3800r0:YOU LOSE HEREEs:(23)10)"GAME OVER ":"FINAL SCORE:"IS:" CURRENT RATING:"X2:" HIGHEST RATING IN GAME:"X4\sIIZTI:I(I)IZ:ms\ISHIHIIS~sX4X5X5X4s$" HIT ENTER FOR NEW GAME";:A$s1200:5700:s:THIS SUBR PuTS BOXES ON SCREENtPIBIZIBIBIP::IBIZʲ@F4IP," ";:IBIN#t(IZ)P1:C06tCCIP:C10ʒtF4(F7)F9F8(FZ):IFXF4FWF4:U(I):UFZUFVIF4FWIP:I:5350:It|@F41,(183);:@F4,(179);:@F41,(187);:IB(65)25:t:FOLLOWING SUBR. DRAWS SCREEN uD:I146:(22,I):(103,I):*uI344:(26,I):(99,I):Ju I23102:(I,IP):(I,46):lupA$(183):I76114:@I,A$;:uI908946:@I,A$;:u8I213:@64I12,A$;:@64I50,(187);:u(101,4):(101,43)Sv@192,"TIME:";:@320,"SCORE:";:@448," RATING";:@181,"BEST SCORE";:@247,HI;:@501,"HIGH RATING";:@309,"BEST RATING";:@375,X5;:ABCDEFGHIJKjMNOPQRSTUVWXYZ[\]^_`acdefghiklmnopqrstuvwyz{|}~Lj^j200:D,S,G:j"ENTER YOUR NAME";V$::(23):@462,"STAR TREK"jE$"E":K$"K":B$"B":S$"*":T$(143):KK$"#"Uk S(8,8),R(6),D(8,8),J(10),G(8,8),CN$(4):SS$"."S$K$B$E$:CL$(30):CF$(31):PP512:SR$" . . . . . . . .":A04:CN$(A):A:QPPkGREEN,YELLOW,***RED***,DOCKED," "kDV6:A1DV:DV$(A):Ak(WARP ENGINES,S.R. SENSORS,L.R. SENSORS,PHASER CNTRL,PHOTON TUBES,DAMAGE CNTRLl2CC$"CSLPTDGI":CC(CC$)lnK1(10)10:S1(149)150:B1(9):C91:I18:J18:G(I,J)1:J,I:D1(((1999)2000)10)10:D340:D2D3D1:@578,"(THE COMPUTER GAME)":I1S1lxI100ʲ@974,"STARRING"::@974,V$::@966,"AS CAPTAIN KIRK":%m"A1(8):A2(8):S(A1,A2)8ʍ290:S(A1,A2)S(A1,A2)1:m,I1K1:A1(8):A2(8):S(A1,A2)S(A1,A2)100::I1B1:A1(8):A2(8):S(A1,A2)S(A1,A2)10:mE1(8):E2(8):E7(8):E8(8):P3000:C10:T110:2920n:"ORDERS: STARDATE =";D1::" AS COMMANDER OF THE UNITED STARSHIP ENTERPRISE, YOUR MISSION IS TO RID THE GALAXY OF THE DEADLY KLINGON MENACE. TO DO THIS, YOU MUST DESTROY THE KLINGON INVASION FORCE OF";K1;"BATTLE"o0"CRUISERS. YOU HAVE";D3;"SOLAR DAYS TO COMPLETE YOUR MISSION.":"(I.E. UNTIL STARDATE";D2;")."ol"THE ENTERPRISE IS CURRENTLY IN QUADRANT";E1;"-";E2:"SECTOR"E7;"-";E8::"DO YOU NEED FURTHER INSTRUCTIONS? (Y/N)"ovU$:U$""ʍ630:U$"N"ʍ1600:U$"Y"ʍ630wp:" THE GALAXY IS DIVIDED INTO 64 QUADRANTS WITH THE FOLLOWING COORDINATES: 1 2 3 4 5 6 7 8":6070:@230,"EACH QUADRANT IS SIMILARLY";:@294,"DIVIDED INTO 64 SECTORS.";Fq@768,"QUADRANT AND SECTOR COORDINATES ARE SPECIFIED AS 'ROW - COLUMN'.E.G. '2 - 4 MEANS 2 DOWN AND 4 ACROSS. A QUADRANT COORDINATE LESS THAN 1 OR GREATER THAN 8 MEANS YOU ARE OUTSIDE THE GALAXY.":6140q "COURSE = A REAL NUMBER IN DEGREES NUMBERS INDICATE DIRECTION STARTING AT THE TOP AND GOING CLOCKWISE THUS: ":A192:6360Ar@640,"NOTE: DUE TO THE VAGARIES OF THE WARP DRIVE, THE ENTERPRISE CAN ONLY TRAVEL IN THE EIGHT DIRECTIONS SHOWN":6140 s"WARP FACTOR = A REAL NUMBER FROM 0 TO 8. DISTANCE TRAVELLED = INTEGER (WARP FACTOR) QUADRANTS. WARP .2 = THE ENTERPRISE TRAVELS 1 SECTOR. ";7)".5 =";35)"4 SECTORS. "8)"1 =";35)"1 QUADRANT."s8)"2 =";35)"2 QUADRANTS.":6140:"FOR EXAMPLE, IF YOU TRAVEL FROM QUADRANT 1-1, SECTOR 1-1, IN THE DIRECTION OF 90 DEGREES AT WARP 2, YOU WOULD STOP AT QUADRANT 1-3, SECTOR 1-1 IN THE NEXT STARDATE."t$" NOTE 1: EVERY USE OF THE WARP ENGINES TAKES ONE STARDATE. IF THE ENTERPRISE IS BLOCKED BY SOMETHING DURING INTRA-QUADRANT TRAVEL IT WILL STOP IN FRONT OF IT. (AND WASTE A STARDATE)";u." NOTE 2: TRAVELLING OUTSIDE THE GALAXY IN ORDER TO AVOID OBSTACLES IS PERMISSIBLE, BUT THE POSSIBILITY OF RUNNING INTO A SPACE STORM IS INCREASED.":6140uj"SHORT RANGE SENSORS: THE SHORT RANGE SENSORS OF THE ENTERPRISE DISPLAY A DETAILED VIEW OF THE QUADRANT YOU ARE CURRENTLY IN. THE ENTERPRISE LOOKS LIKE '";E$;"' ON THE SCREEN."wv"KLINGON BATTLE CRUISERS LOOK LIKE '";K$;"' ON THE SCREEN. STARBASES LOOK LIKE '";B$;"' AND STARS LOOK LIKE '";S$;"'.":61400w"LONG RANGE SENSORS: THE LONG RANGE SENSORS OF THE ENTERPRISE DISPLAY THE NUMBER OF OBJECTS IN THE 9 CLOSEST QUADRANTS. EACH DIGIT OF THE NUMBER IN EACH BOX MEANS SOMETHING:"w" THE ONES DIGIT REPRESENTS THE NUMBER OF STARS. ";7)"TENS";43)"STARBASES. ";7)"HUNDREDS";43)"KLINGONS. FOR EXAMPLE: 319 MEANS 3 KLINGONS, 1 STARBASE AND 9 STARS.":6140zx"GALAXY MAP: EACH TIME THE SENSORS ARE USED THE INFORMATION DISPLAYED IS SAVED BY THE SHIP'S COMPUTER FOR RETRIEVAL AT ANY FUTURE TIME.":y(" PHASERS: ANY PORTION OF THE ENERGY AVAILABLE CAN BE FIRED. THE BATTLE COMPUTER DIVIDES THIS AMOUNT AMONG THE KLINGON CRUISERS IN THE QUADRANT AND DETERMINES THE VARIOUS DIRECTIONS"zZ"OF FIRE. THE EFFECTIVENESS OF A HIT DEPENDS MOSTLY ON THE DISTANCE TO THE TARGET. A KLINGON BATTLE CRUISER STARTS WITH 300UNITS OF ENERGY. IT CAN FIRE AN AMOUNT EQUAL TO WHATEVER ENERGY IT HAS LEFT.":6140z"PHOTON TORPEDOES: INITIALLY THE ENTERPRISE HAS 10 PHOTON TORPEDOES. ONE TORPEDO NORMALLY DESTROYS WHATEVER IT HITS. HOWEVER, PHOTON TORPEDOES ARE SUSCEPTIBLE TO ROUGH HANDLING AND MAY OCCASIONALLY";{"FAIL TO DETONATE. THE KLINGON'S SHIELDS WILL SOMETIMES HOLD AND PROTECT THE KLINGON CRUISER. IF A TORPEDO HITS A STAR IT WILL USUALLY SIMPLY BURN UP. SOMETIMES, HOWEVER, IT MAY CAUSE THE STAR TO GO NOVA. IF THIS"5|"OCCURS, THE CHANCES OF SURVIVAL ARE 50/50. IF THE STAR GOES SUPERNOVA, THOUGH, THE ENTERPRISE WILL BE DESTROYED!" }" THE RANGE OF PHOTON TORPEDOES (LIKE PHASERS) IS LIMITED TO THE CURRENT QUADRANT. THE COURSE OF A PHOTON TORPEDO IS SET THE SAME WAY AS THAT OF THE ENTERPRISE, BUT MAY BE SET TO ANY DIRECTION DESIRED.":6140}"DAMAGE CONTROL REPORT: THE DAMAGE CONTROL REPORT LISTS THE MAIN DEVICES AND THEIR STATEOF REPAIR. A NEGATIVE STATE OF REPAIR INDICATES A DISABLED DEVICE. DEVICES CAN BE DISABLED BY A SPACE STORM OR BY A KLINGON";~"BATTLE CRUISER. REPAIRS ARE NORMALLY MADE AT THE RATE OF ONE UNIT EACH STARDATE, BUT CAN BE FASTER DURING A STATE OF TRUCE. ALSO, ALL DAMAGE CAN BE REPAIRED BY DOCKING AT A STARBASE.":6140u""STARBASES: THERE IS AT LEAST ONE SUPPORTING STARBASE IN THE GALAXY. WHEN THE ENTERPRISE IS DOCKED AT A STARBASE (I.E. IS POSITIONED NEXT TO ONE) IT IS RESUPPLIED WITH ENERGY AND TORPEDOES.","ALSO, ALL DAMAGE IS REPAIRED AT THAT TIME.":614062200@:7000T4020@960,"COMMAND? ";:V$:Y2,A110:V$:V$""ʇA:C12CA0ʲ@113,CN$(2Y);:Y(Y2)gV$""ʍ1700:CA1ʄ:7000::C12CA0ʲ@113,CN$(2);t@PP,CF$A1CC:V$(CC$,A,1)C2A1:2000::2200€@PP,;:C26ʍ2180P:CA1:CB0:" ";:I18:I;" ";:::" ";:C249:2860:I18:I;" ";:J18:G(I,J)0ʲ": - ";:2020::": ### ";G(I,J);J:":":I:" ";:2860::"ENTERPRISE CURRENTLY AT";E1;"-";E2:1680́C213560,2400,3260,5180,5620,2300,2200,710:CA1:CB0:" YOUR CHOICES OF COMMAND ARE:":"C = COURSE DIRECTIVE (SET COURSE AND DISTANCE)":"S = SHORT RANGE SENSOR SCAN":"L = LONG RANGE SENSOR SCAN":"P = FIRE PHASERS":"T = FIRE PHOTON TORPEDOES""D = DAMAGE CONTROL REPORT":"G = GALAXY MAP":"I = INSTRUCTIONS":1680J@PP,CF$;:R(6)0ʍ2380:"DEVICE STATE OF REPAIR":C216:DV$(C2),R(C2)::1620uL "DAMAGE CONTROL NOT AVAILABLE.":1620` 2450:1620Ճ @PP,CF$;:R(2)0CB0:A07:@A64,SR$,;:A:@PP,"S.R. SENSORS ARE OUT": PQ1G(E1,E2)S(E1,E2) CB1:2920:A07:@A64,SR$,;:A\ I18:J18:D(I,J)0ʲ@(I1)64(J1)31,(SS$,D(I,J)1,1);x J,I:@240,E7;"-";E8;:, I11C2:"-";:::h L1E1L2E2ʒG L1E1:L2E2:I18:J18:D(I,J)0:J,I:D(E7,E8)4:PQ1:E11E18E21E28PQ0:3250::S(E1,E2)(S(E1,E2)10)100ʍ3100:I1S(E1,E2)(S(E1,E2)10)10| E3(8):E4(8):D(E3,E4)0ʍ3050:D(E3,E4)1:Ӆ (S(E1,E2)10)(S(E1,E2)100)100ʍ3170:I1(S(E1,E2)10)(S(E1,E2)100)100 E3(8):E4(8):D(E3,E4)0ʍ3120:D(E3,E4)3:Db (S(E1,E2)100)0ʍ3250:I1(S(E1,E2)100):J(I)300y E3(8):E4(8):D(E3,E4)0ʍ3200:D(E3,E4)2: CB1ʑ2450:::Ć @PP,CF$;:R(3)0ʲ"L.R. SENSORS ARE OUT":1620 "LONG RANGE SENSOR SCAN QUADRANT";E1;"-";E20 :C219:2860:IE11E11:JE21E21:I1I8ʍ3540C4 J1J8ʍ3520hH G(I,J)S(I,J):": ### ";S(I,J);t J:":" I:2860:1620 ": - ";:3470 ": - : - : - :":3490ׇ @PP,CF$;:A544:6360 @PP,"COURSE";:7200:C2N:DD1ʍ1620C P18:R(1)0ʍ3590:P1.2:R(1)3ʍ3590:P1((4R(1))2)10@PP64,"WARP FACTOR (0 - #.#)";P1;:7200:DD1ʍ1620:C3N:C30C38ʍ3590:C3P1ʍ3680:@PP128,"WARP ENGINES ARE DAMAGED";:@PP192,"MAXIMUM WARP = #.#";P1;:3590L`PP16C35:@304,CL$;P;:N1(8C3):N10ʍ3927:N2(C2.0174533):(N2).01N20sN3(C2.0174533):(N3).01N30A11N1:E3E7:E4E8:P1(E3N2.4):P2(E4N3.4):E7P1:E8P2:P11P18ʍ4490:P21P28ʍ4590:D(P1,P2)0ʍ4680(D(E3,E4)0:D(P1,P2)4-FCB1ʲ@(E31)64(E41)31,".";cPCB1ʲ@240,E7;"-";E8;:@(E71)64(E81)31,E$;{UV$:V$(31)ʇA1W@PP,CF$;:QPPҊZD1D11:@48,D1;:@496,D2D1;:I16:R(I)0ʍ3990:R(I)R(I)1劂R(I)0R(I)0I:4710IE71E71:I1I8ʍ4100CJE81E81:J1J8ʍ4090:D(I,J)3ʍ4180JJQIC10:PQ0ʍ4150:S(E1,E2)100C12:42406P500C11:4240::4240݋TC13:P3000:T110:I16:R(I)0::@304,CL$;P;:@368,T1;C10ʁI16:R(I)0C11::I@113,CL$;CN$(C1);:sC2(0):C2.25PQ10ʍ4370:C2.8PQ10ʍ4480:@Q,"SPACE STORM":QQ64:C13ʍ4330@Q,"STARBASE SHIELDS PROTECT ENTERPRISE":QQ64:4480C2(DV):DV$(C2);" DAMAGED":QQ4:R(C2)R(C2)5(0):C22ʍ4480:CB0:4480I16:R(I)0ʇI:4480{:@Q,"TRUCE, ";:DV$(I);" STATE OF REPAIR IMPROVED":QQ64:R(I)R(I)2(0):R(I)0R(I)04020:S2(P11):E1E1S2:E7(P1)8S2:L1E11̍P21P28ʍ4660S2(P21):E2E2S2:E8(P2)8S2:L2E2142920:@176,E1;"-";E2;:3920jHE7E3:E8E4:@PP,CF$;"ENTERPRISE BLOCKED AT";(P1);"-";(P2):QPP64:3930f4020:4260:4920:P0ʍ6350:D1D2ʍ6240:1620ڎ8PQ0ʍ5160:S(E1,E2)100ʍ5160:C13ʍ4950:4310VG1:H0:I1S(E1,E2)100tHH1:H8ʍ5020:H1:GG1.D(G,H)2ʍ4980쏦Q1GE7:Q2HE8:D4(Q1Q1Q2Q2):P5((J(I)1)):J(I)J(I)P5:C13ʍ5140:P6P5D4:PPP6:@304,CL$;P;:@Q,"ENTERPRISE HIT (";P6;"UNITS) KLINGON AT SECTOR";G;"-";H:QQ64:P610ʍ5140iA13(P6100):(A1)1ʍ5140:C2(DV):@Q,DV$(C2);" HAVE SUSTAINED DAMAGE":QQ64:R(C2)R(C2)(P642)(0):C22CB0|I:P0ʍ6260(<@PP,CF$;:R(4)0ʲ"PHASER CONTROL IS DAMAGED":1620ߐZ"PHASERS LOCKED ON TARGET. ";Gd@PP64,"ENERGY AVAILABLE =";P:"NUMBER OF UNITS TO FIRE";:7200:DD1ʍ1620:C2N:C2PC20ʍ5220PPC2:@304,CL$;P;:@PP,CF$;:QPP:S(E1,E2)100ʍ5570:P5C2(S(E1,E2)100):G1:H0:I1S(E1,E2)100ؑHH1:H9H1:GG1:G8ʍ5570D(G,H)2ʍ5340Q1GE7:Q2HE8:D(G,H)2ʍ53406D4(Q1Q1Q2Q2):P6P5D4:J(I)J(I)P6:@Q,"KLINGON AT";G;"-";H;"HIT (";P6;"UNITS) LEFT =";J(I):QQ64:J(I)0ʍ5560IhKD$KD$KK$:@Q," DESTROYED ";KD$:QQ64:I2I1S(E1,E2)100:J(I21)J(I2):I2:S(E1,E2)S(E1,E2)100:K1K11:@432,K1;:D(G,H)0:II1:CB1ʲ@(G1)64(H1)31,".";:G(E1,E2)S(E1,E2)PImK10ʍ6180:4920:1620@PP,CF$;:R(5)0ʲ"PHOTON TUBES ARE OUT":1620ϓT10ʲ"TORPEDO SUPPLY EXHAUSTED":1620F0APP32:6360:@PP,"TORPEDO COURSE";:7200:DD1ʍ1620:C2N:T1T11:@368,T1;:N2(C2.0174533):(N2).01N20mvN3(C2.0174533):(N3).01N30}P1E7:P2E8P1P1N2:P2P2N3:P1.5P18.5P2.5P28.5ʍ6050:CB1X(P1.6)64(P2.6)31:@X,T$;:A130:A:@X,".";D((P1.4),(P2.4))0ʍ5800U@PP,CF$;:QPP64:D((P1.4),(P2.4))5900,5930,5980:5800 @PP,CF$;"*** TORPEDO HIT STAR *** ";:CB1Y0:A110:@X,(" "S$,Y1,1);:A1150:A1:Y(Y1):A1@PP26,;:(4)1ʲ"BURNED UP":6010::S(E1,E2)S(E1,E2)1:(10)1ʑ7400:6260::7300:(2)1ʍ6260:6000x*(20)1ʲ"TORPEDO FAILED TO DETONATE":CB1ʲ@X,K$;:6010::6010Ö47500:(30)1ʲ@PP,"KLINGON SHIELDS HELD":CB1ʲ@X,K$;:6010::6010>KD$KD$KK$:@PP,"KLINGON DESTROYED ";KD$:S(E1,E2)S(E1,E2)100:K1K11:@432,K1;:6000R\"STARBASE DESTROYED ***":S(E1,E2)S(E1,E2)10pD((P1.4),(P2.4))0:CB1G(E1,E2)S(E1,E2)zK10ʍ61804920:1620ї@PP,CF$;"TORPEDO MISSED":QPP64:6010=Y19570764:@Y,(33,(131));:Y:X3354:Y19264064:@XY,(191);:Y,X:I18:@128I64,I;:I:t@960,;:"END OF PAGE. 'ENTER' TO CONTINUE";U$::$A12000::@PP,CF$;"IT IS STARDATE";D1:"THE KLINGONS HAVE BEEN DESTROYED":"THE FEDERATION IS SAFE.":"CONGRATULATIONS !!":6300`@32,"IT IS STARDATE";D1;tA12000::@PP,CF$;"THE ENTERPRISE HAS BEEN DESTROYED.":"THE FEDERATION WILL BE CONQUERED.":"THERE ARE STILL";K1;"ENEMY BATTLE CRUISERS.":"YOU ARE DEAD!!!!"陜"CAPTAIN KIRK: ANOTHER GAME? (Y/N)"U$:U$"Y"ʄ:5:U$"N"ʍ6310@A10,"0";:@A66,"315 45";:@A192,"270 90";:@A322,"225 135";:@A393,"180";:Y(A64)33:X(A(A64)64)26G@A195,(16,(140));:IA74A33064:@I,(191);:I:JY1:IX4X242:JJ1:(I,J):(I1,J):I:JY13:IX4X242:JJ1:(I,J):(I1,J):I:ڛXCA0:4020:@32,CL$;"STARDATE",D1;:@96,CL$;"CONDITION"," ";CN$(C1);:@160,CL$;"QUADRANT",E1;"-";E2;:@224,CL$;"SECTOR",;:R(2)0ʲE7;"-";E8;Mb@288,CL$;"ENERGY",P;:@352,CL$;"TORPEDOES",T1;:@416,CL$;"KLINGONS",K1;:@480,CL$;"DAYS LEFT",D2D1;:@PP,;:g C$"":"? ";:Y2:DD0#ZA(16417)256(16416)15360:@ZA,(95);%C12CA0ʲ@113,CN$(2Y);:Y(Y2)ޜ*A110:V$:V$""ʇ:72054V$" "C$C$V$:@ZA,V$;:7203"9V$(31)ʲ@ZA," ";:DD1:a>V$(13)N(C$):@ZA," ";:C12CA0ʲ@113,CN$(2);:::HV$(8)ʏ(C$)0ʲ@ZA1,(95);" ";:C$(C$,(C$)1):ZAZA1R7205ŝ"WENT NOVA":7500:A120::A1130:A1:(23):@520,"SUPERNOVA!!":A1135:A1,A::LCB1ʒ:Y50:A1Y:@X,(127(64));:A:A1Y:@X1,(127(64));(127(64));(127(64));:A:@X1," ";:A1Y:@X,(127(64));:AɞVA1Y:@X,(127(16));:A:@X,".";:N@"ENTER YOUR NAME";T$::(23);:@14,"STAR TREK":@130,"(THE COMPUTER GAME)":@462,"STARRING":@590,T$:@710,"AS CAPTAIN KIRK":}j: COPYRIGHT (C) 1979, INSTANT SOFTWARE, INC. (P)j: ALL RIGHTS RESERVED.j(1000):R(20),S(20),W(20):k:A(13),B(20),HS(19,8):I0:J0:UP1:UH1:Q2.3:P1:A(9).21:F1:500 k@W,"T":6:UX:VY2:IkZN64:Y3((Z))1:X(Z(Z))128:Pk6pkIXX8:(I,Y):(I,Y3):Ik IX1X9:(I,Y1):(I,Y2):I:k NRL:6:IYY42:(X,I):(X2,I1):(X4,I):(X6,I1):I: lNSL:6:IXX22:(I,Y):(I1,Y1):(I,Y2) lIX2ʃ(I3,Y1))lI:^lNWL:6:IXX62:(I,Y):(I,Y1):(I,Y2):I:l(Z(K):W10(Z100):B10(Z10W):C(KZ)1000l*Z(L):H(Z1000):GZH1000:D(LZ)1000m,@906,LA$(UP1);" PLAYING HOLE ";E;" ";G;"YARDS-PAR";H;m-EEE:HHHom.NW:5:NB:7:II1NR:RLR(II):12:II:II1NS:SLS(II):16:II:II1NW:WLW(II):26:IIum0m<SS1:@962,"STROKE";S;"FOR ";LA$(UP1);:mZZ1400:Z:m_S0:400:592mX0NP1:@(LO64X),X1;"- ";LA$(X):X:0n,I0NP1:@403I64,"ENTER PLAYER NO.";I1;:LA$(I)9n6I:Fn^F1395en_X1NP:Z1(X)HS(F1,X):Xqn`X1:Y1naZ1(X)Z1(XY)360ncXXY:Y1:370nhYY1nr(XY)NP1353nuHS(F,X)0390nwZ1(X)99nyZ1NP:HS(F,Z)0352o|Z:UHUH1:FUH:351oUPX:5oUPUP1:UPNP1398:IoUH2:F2:350:ToXX9:p"1 - CHANGE HOLE - NOW SET ON HOLE ";UH:"2 - CHANGE PLAYER - ";LA$(UP1);" NOW UP":"3 - CHECK SCORE":"4 - CHECK INSTRUCTIONS":"5 - PRACTICE PUTTING":"6 - CONTINUE"p"WHICH DO YOU WANT";XX,pXX6400GpXX440,450,9991,40000VpXX53001ipXX6490:400p:"SWITCH TO WHICH HOLE";UH:UH18UH1440p455p:LO128:200p"SWITCH TO WHICH PLAYER";UP:UPNP450pHS(UH,UP)0460 qFUH:PNUP:400tqLA$(UP1);", YOU HAVE";HS(UH,UP);"STROKES ALREADY FOR HOLE";UH;" - REPLAY IT";:A$:(A$,1)"Y"470q"YOU MUST CHANGE TO ANOTHER HOLE":90:400qB(10UP)B(10UP)HS(UH,UP):HS(UH,UP)0:400q:PNUP:FUH:r@275,"TRS-80 COUNTRY CLUB"K2578:L5589w?NR12:R(1)370:R(2)430:R(3)490:R(4)550:R(5)610:R(6)670:R(7)730:R(8)522:R(9)526:R(10)408:R(11)348:R(12)288?w@NS6:S(1)776:S(2)649:S(3)293:S(4)295:S(5)235:S(6)716wANW8:W(1)530:W(2)595:W(3)660:W(4)725:W(5)790:W(6)794:W(7)798:W(8)802:wHK5849:L4391wINR8:R(1)336:R(2)340:R(3)344:R(4)348:R(5)352:R(6)354:R(7)296:R(8)300xJNS3:S(1)550:S(2)554:S(3)428ZxKNW6:W(1)590:W(2)594:W(3)598:W(4)602:W(5)540:W(6)665:lxRK7653:L4387xSNR7:R(1)332:R(2)336:R(3)722:R(4)726:R(5)669:R(6)673:R(7)677yTNS10:S(1)488:S(2)612:S(3)484:S(4)468:S(5)528:S(6)595:S(7)599:S(8)486:S(9)610:S(10)470cyUNW7:W(1)280:W(2)344:W(3)348:W(4)412:W(5)416:W(6)420:W(7)424:uy\K5830:L4432y]NR9:R(1)520:R(2)528:R(3)536:R(4)490:R(5)150:R(6)524:R(7)532:R(8)494:R(9)154z^NS6:S(1)280:S(2)284:S(3)235:S(4)358:S(5)282:S(6)360z_NW14:W(1)204:W(2)270:W(3)337:W(4)403:W(5)535:W(6)467:W(7)535:W(8)539:W(9)543:W(10)603:W(11)607:W(12)611:W(13)615:W(14)619:zfK2853:L3142zgNR5:R(1)458:R(2)330:R(3)586:R(4)590:R(5)594{hNS2:S(1)527:S(2)599\{iNW9:W(1)270:W(2)336:W(3)402:W(4)406:W(5)410:W(6)472:W(7)474:W(8)539:W(9)604:n{pK7830:L4388{qNR5:R(1)336:R(2)210:R(3)214:R(4)218:R(5)4621|rNS14:S(1)469:S(2)407:S(3)605:S(4)607:S(5)484:S(6)486:S(7)488:S(8)427:S(9)429:S(10)233:S(11)236:S(12)371:S(13)409:S(14)411|sNW9:W(1)736:W(2)740:W(3)676:W(4)680:W(5)616:W(6)620:W(7)556:W(8)560:W(9)496:|zK3766:L4405|{NR4:R(1)355:R(2)359:R(3)740:R(4)744||NS3:S(1)722:S(2)792:S(3)794a}}NW11:W(1)596:W(2)600:W(3)663:W(4)538:W(5)542:W(6)546:W(7)480:W(8)534:W(9)473:W(10)477:W(11)612:s}K8236:L3221}NR1:R(1)498}NS7:S(1)488:S(2)422:S(3)554:S(4)300:S(5)368:S(6)429:S(7)298}NW1:W(1)292:}K2274:L4387~NR3:R(1)605:R(2)420:R(3)411)~NS1:S(1)745O~NW3:W(1)544:W(2)610:W(3)614:a~K8320:L5618~NR5:R(1)610:R(2)428:R(3)540:R(4)470:R(5)400~NS4:S(1)486:S(2)488:S(3)210:S(4)276~NW4:W(1)284:W(2)288:W(3)353:W(4)357:K3362:L4402NR1:R(1)360)NS1:S(1)550|NW8:W(1)403:W(2)407:W(3)470:W(4)474:W(5)540:W(6)544:W(7)605:W(8)609:K8125:L4336NR5:R(1)242:R(2)370:R(3)498:R(4)366:R(5)362NS2:S(1)183:S(2)313NW1:W(1)188:K2379:L43772NR4:R(1)416:R(2)544:R(3)280:R(4)406VNS3:S(1)660:S(2)664:S(3)730|NW3:W(1)798:W(2)483:W(3)548:K8359:L5530NR4:R(1)411:R(2)415:R(3)419:R(4)413NS9:S(1)664:S(2)666:S(3)668:S(4)670:S(5)550:S(6)524:S(7)530:S(8)656:S(9)552hNW8:W(1)723:W(2)727:W(3)731:W(4)735:W(5)739:W(6)813:W(7)805:W(8)809:zK7935:L3234NR1:R(1)471NS3:S(1)282:S(2)412:S(3)414ցNW3:W(1)290:W(2)356:W(3)420:K2775:L4437NR5:R(1)470:R(2)474:R(3)478:R(4)598:R(5)602KNS4:S(1)748:S(2)690:S(3)688:S(4)820_NW1:W(1)680:TTA(9):A(10)30A(10)90:A(10)0A(10)A(10)360΂$XA(10):30360:A(1)YT:XA(10):30376:A(2)YT:650:IA(5):JA(6)O1:2099WI1:XI1:YJ1:ZJ1:SF0:WF0:RF02(I,J)12050f((W,J)0)((X,J)0)((I,Y)0)(I,Z)02099((I,Y)1)((I,Z)1)2030((W,J)1)((X,J)1)2040̃((I,Y)1)((I,Z)1)2020((X,J)1)((X1,J)0)2070((W,J)1)((X1,J)0)20702099>((W,J)1)((X,J)1)2080d((W1,J)1)((X1,J)1)2070n2099((W,J)1)((X,J)1)2080((W1,J)1)((X1,J)1)20702099((I,Y)1)((I,Z)1)20802090((W,J)1)((X,J)1)30000((I,Y)1)((I,Z)1)2060V((W1,J)1)((X1,J)1)2080` 2070 ((I1,J1)1)((I1,J1)1)2080 ((W,Y)1)((X,Y)1)((W,Z)1)2080… 2090((I1,J2)1)((I1,J2)1)2070((I1,J2)1)((I1,J2)1)2070 20995(W2,J)0RF9?2099H SF9R!2099φ*@900,"SPLASH - YOU LOST YOUR BALL - BALL PLACED ON LAST LIE":WF9:A(7)UU:A(8)VV:(A(7),A(8)):(A(7)1,A(8)):60:21003(I,J):(I1,J)4(RF0)(SF0)2115 5SF92108I610000:@0,TA(9);"MPH FROM";R;" - ROUGH, CLUB 4-11 ONLY";Z7C:C321058@0,"ROUGH SHOT - CLUB LIMIT 4 THRU 11 - SELECT AGAIN";:90:10000:210092118<10000:@0,TA(9);"MPH FROM";R;" - SAND, CLUBS 5-11 ONLY";=C:C52105Z>10000:@0,"BUNKER SHOT - CLUB LIMIT 5 THRU 11 - SELECT AGAIN";:90:10000:2100C10000:@0,TA(9);"MPH WINDS FROM";R;"O'CLOCK - WHICH CLUB";DC:C9995EC1C112100F@48,"DIRECTION";:L:L132100G60:D22C262HE((24C)(482C))1006IWF9(UU,VV):(UU1,VV):2123@J2130TK(I,J):(I1,J)cRDD.5DErSRF02135TE0EEUDDDEWSF02139XE0EEYDD2DEɉZ((9)6)D0؉[DDD:2700\A30L90:AOAA360']D0ʲ@980,"SWISH - YOU MISSED THE BALL";:2100@fZ40(80):EZZ200MgZ0EEWpAAEXA:30360:A(3)Y:XA:30376:A(4)Y O02565 A(7)A(5):A(8)A(6) WF92569:2570ӊ IA(7):JA(8):2575 UUI:VVJ:IA(7):JA(8) DDA(9)' XA(10)A180:30360:ZDDTT2TDY8 HF0ʂ(I,J)R HIA(3)Q:KJA(4)Pj( XTD((111)C1)- IHA(1)X:JKA(2)X3 I125I1254 I1I15 J42J426 J4J4ߋ7 (I125)(I1)(J4)(J42)2620.8 @900,"YOUR BALL WENT OVER THE FENCE - 1 STROKE PENALTY":90:60:2640H< (I,J)1HF9:HF0S= (I,J)oA M(HA(7)):N(KA(8)){B NQPNF Z(MMNN)2580݌K @900," ";EE;"HOLE ";G;"YARDS-PAR";HH;" ";L 2700 P O0:A(7)I:A(8)J:HF0 (I,J)Z 2005C @995,"DISTANCE - ";(DD);"YARDS ";:o :@465,"ON THE GREEN IN ";S;" STROKES" HF0:XX590 :K25(75):L8(33) ZKK3:XLL1ʍ (Z,X):X:Z:D800 M5(117):N7(37) 4700 FL94500 (M,N):IM:JN_ 10000:@0,"HOW HARD DO YOU WANT TO HIT THE BALL (1=LIGHT TO 9=HEAVY) ";:Cm C93070 10000:@0,"WHAT IS THE O'CLOCK DIRECTION OF PUTT(NO WIND EFFECT)";:Lǎ L133070ώ 60 A30L90:A0AA360 XA:30360:A(3)Y:XA:30376:A(4)Y! E0502C YEE100E:ZY:Y2CY.001T! HF0ʂ(I,J)r& IMA(3)YQ:JNA(4)YP+ (I127)(I4)(J46)(J5)4200. 47000 FL94500ʏ5 (I,J)1HF9:HF0؏: (I,J):ED MI:NJ:3070h:@460,"OFF GREEN - 1 STROKE FOR CHIP SHOT"'i60:901r3000y:@465,(23);"K L U N K !":@650,S;" S T R O K E S":90:XX54009990:NP1ʑ350:FF1F19592ʐ@660,"G A M E O V E R ! ! ! !"@721,"DO YOU WANT TO PLAY AGAIN (Y/N) ?" I$:I$""4525 I$"Y"1 : P\(((M,N)1)((I,J)1)(ZD))FL9:FL0V]'HS(F,PN)HS(F,PN)S:B(10PN)B(10PN)S͑':"HOLE 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 SUM";ܑ'(64,140) 'X1NP:@6464X,(LA$(X1),6);:Y118B '6);:"###";HS(Y,X);:Y:61);:"###";B(10X);:X '(64,140);:"PAR 4 4 5 4 4 4 3 4 4 3 4 5 4 4 4 5 3 4 72";:XX3 'Z0:LO575:200:"FOR WHICH PLAYER IS THERE A SCORE CHANGE (0=NONE)";Z:ZNPZ0@'PNZ:"CHANGE WHICH HOLE";F:"WHAT IS THE CHANGED SCORE";ES:ES9ES9'B(10PN)B(10PN)HS(F,PN):HS(F,PN)ES:B(10PN)B(10PN)ES:9991Փ'@0," ";:ꓘvY(X.017453):vY(X.017453):9@:"YOUR CLUBS";17);"YARDS";33);"SCREEN DISTANCE":Z^" 1 1 WOOD 210 TO 270"_X149:(X60,7):X:X1162:(X108,7):Xh" 2 3 WOOD 190 TO 246"ߔiX142:(X60,10):X:X1162:(X102,10):Xr" 3 3 IRON 170 TO 222"2sX138:(X60,13):X:X1152:(X98,13):XS|" 4 4 IRON 150 TO 198"}X134:(X60,16):X:X1112:(X95,16):X" 5 5 IRON 130 TO 174"ؕX129:(X60,19):X:X1122:(X89,19):X" 6 6 IRON 110 TO 150"+X123:(X60,22):X:X1122:(X83,22):XL" 7 7 IRON 91 TO 125"}X118:(X60,25):X:X192:(X79,25):X" 8 8 IRON 72 TO 100"ϖX114:(X60,28):X:X192:(X74,28):X𖮜" 9 9 IRON 53 TO 75"!X112:(X60,31):X:X162:(X73,31):XB"10 LITE WEDGE 35 TO 49"rX15:(X60,34):X:X182:(X65,34):Xœ"11 FULL WEDGE 16 TO 24"×ÜX12:(X60,37):X:X162:(X62,37):X :"WHEN ASKED TO 'PICK CLUB' ENTER ANY NUMBER 1 THROUGH 11":430505Q::19);"12";44);"DIRECTION OF THEf[9);"11";30);"1";44);"BALL IS THE O'CLOCK\44);"NUMBER TOWARD WHICHe" 10";38);"2";44);"YOU WANT YOUR BALL":44);"TO MOVE. ENTER":44);"THE NUMBER BUT NOTESo"9";19);"BALL";41);"3";44);"WHICH DIRECTION THE":44);"WIND IS BLOWING SO":44);"THAT CORRECTIONSy" 8";38);"4";44);"CAN BE MADE. YOU":44);"MAY USE DECIMALS.10);"7";31);"5":20);"6"ƙ43050:"THE FAIRWAY KEY IS AS FOLLOWS:":"THE TEE "(46,"-"):W184:55:"GREENS "(46,"-"):N248:7$:"SAND - CLUB DISTANCE UP TO 50% OFF "(18,"-"):SL376:16:SL378:16Ϛ.:"WATER - BALL LOST - 1 STROKE PENALTY "(16,"-"):WL504:26:WL508:268:"ROUGH - CLUB DISTANCE UP TO 25% OFF "(17,"-"):RL632:12B43050::"WHEN PUTTING:"::"1 - ENTER HOW HARD YOU WISH TO HIT THE BALL (1 THRU 9)":8);"1 TAPS BALL ABOUT A HALF INCH":8);"9 HITS BALL HARD ACROSS SCREEN" "2 - ENTER O'CLOCK DIRECTION THE SAME AS ON FAIRWAYS":8);"NO WIND EFFECT"C*@960,"HIT ENTER TO CONTINUE.";:I$:I$""43050K4:j 1000:AZ:PO26:CZ0:CP1:CN1:KT15010:KN15009:KF15004:K015360:9000j 900:8000:950:P2P06:Q3Q04:(P,Q):(PCP,Q):R2R0CP:S3S04:(R,S):(RCP,S):C2k P1CP:Q1CZ:R1CN:S1CZ kd:A INPUT>kx(KF)4Q1CN:P1CZ:200\k(KF)2P1CN:Q1CZ:200|k(KF)128P1CP:Q1CZ:200k(KN)2Q1CP:P1CZkPPP1P1:QQQ1: (P,Q) (PCP,Q)300k(P,Q): (PCP,Q):CCCP:500k,:B WINS l6BSBSCP:W$"B":730l:B INPUT:l(KT)2 R1CZ:S1CN:600Yl (KT)4R1CN:S1CZ:600xl (KT)8R1CP:S1CZ:600l& (KT)32S1CP:R1CZlXRRR1R1:SSS1:(R,S)(RCP,S)700lb(R,S):(RCP,S):CCCP: 100l:A WINSmASASCP:W$"A"m:END ROUTINE0mW$"A"P5577:P5641@m @ P5,"*";Im950_m @ 769,"SCREEN";m @ 833,"";:"###";(100C2530.5);: "%";m @ 898,"FULL";mH$: H$"" 760 : (H$)13 760m:10m:BOXESmZ$(179)$nA$(1)(159)Z$(175):A$(2)(149)Z$(170)ZnA$(3)(181)(191)(186):B$(1)(151)Z$(175)nB$(2)(149)Z$(174):B$(3)(181)Z$(190)nP011(21):Q01(3):R038(21):S08(3)nU0P064Q0:L0R064S0o: I 0 2:@U064I,A$(I1);:@L064I,B$(I1);::o:SCORE5o @ 513,"SCORE:";Yo @ 578,"A";AS;: @ 642,"B";BS;_oko@:EDGEoJX0K0 15423: X0,131:oLX016320 16383:X0,176:oTR015:K064R,191:K064R7,191:K064R63,191:p^C16: K0C,191:K0C,191:phZK064:C901pjN16:ZZ1: Y: Z,Y:PplC9C91:C97ZZ58:8042oprZ705710: @ Z,(143);:up"p" 149,136,140,140,140,162,181,178,179,179,179,184p" 151,168,188,188,188,130,189,178,179,179,179,184q" 159,161,188,188,180,139,149,168,188,188,188,1285q" 143,143,143,143,143,143Bq(#:INSTRPq+#:9400:q2#"TWO PLAYERS USE THE KEYS BELOW TO MANEUVER THEIR SNAKES AROUND THE SCREEN. THE FIRST PLAYER WHO RUNS INTO SOMETHING LOSES."q#: 8)"PLAYER A";46)"PLAYER B"r#U$(91):D$(92):L$(93):R$(94)Qr#F$L$" Q KEY W "R$:S$L$" J KEY K "R$er# 12)U$;50)U${r# 12)"2";50)"I"r#6)F$;44)S$r#12)"A";50)"M"r$12)D$;50)D$6s$"A SOLITAIRE VERSION CAN BE PLAYED BY OPERATING BOTH SNAKES (!) AND TRYING TO MAXIMIZE THE %AGE SCORE SHOWN AT LOWER LEFT."\s"$ 19)"* HIT ANY KEY TO BEGIN *";xs,$H$:H$"" 9260 : s$W$(191):V$(189) s%X$W$(143)V$" "(190)(143)V$" "(190)(143)V$t&%Y$W$(142)V$" "W$" "W$" "W$(176)W$At0%Z$W$(188)(159)" "(175)(188)(159)" "W$" "W$lt<% @ PO,X$;: @ PO64,Y$;: @ PO128,Z$rtD%(143)V$t&%Y$W$(142)V$" "W$" "W$" "W$(176)W$At0%Z$W$(188)(159)" "(175)(188)(159)" "W$" "W$lt<%4k : ********** BINGO ********** * GEOFFREY EGEL * * 18 STURT ST. * * LOXTON 5333 * ***************************ok: 1000:: 25) "BINGO": (63,191): T$"/": A(180)ol@128, "THIS IS A GAME OF PURE CHANCE FOR TWO PLAYERS WHO MUST ENTER THEIR NAME AND SEVEN NUMBERS BETWEEN 1- 90 THE PLAYERS WHOSE NUMBERS COME UP FIRST IS THE WINNER OR THIS PROGRAM CAN BE USED FOR ACTUAL BINGO CALLING PRESS ENTER TO CONTINUE";xl( A$l2T0:" (1) FUN RAISER (2) GAME ";T: (T0)(T2) 50l<:M1:J0lF F1 90lPA(F)F:DF90:A(D)0mZ F: T2 310md J90 250"mn M0 130Dmx: 25) " BINGO": (63,140)TmM0:C(90)gm A(C)0 130mDC90:A(D)A(C):A(C)0:JJ1m T2 390m@512,(63,140)m Z1 Cm B$m Zn@ 576,15);C;" * ";B$;" * " ;C;58) J: :@640,(63,140)&n T2 430an:"OPTIONS (1) NEXT NUMBER (2) CHECK (3) NEW GAME "nA$: A$"" 240:: K(A$): (K0)(K3) 240: K 100,260,60n " ALL NUMBERS HAVE BEEN CALLED "n S91 180n A(S)0 290o A(S); o" S:M1o, 230,o6"FIRST NAME";C$Bo@ N1 7: C(N)0toJ"NUMBER";N;: C(N):(C(N)0)(C(N)90) 330}oT No^:"SECOND NAME";D$oh N1 7: B(N)0or"NUMBER";N;: B(N): (B(N)0)(B(N)90) 370o| N: 100o N1 7p C(N)C C(N)0'p B(N)C B(N)02p N :Pp @320,63):@320,C$;15)ypL7: N1 7: C(N)0 LL1: 460p C(N);p N: L0 47)"WINNER": 520p @ 384,63):@384,D$;15)pL7: N1 7: B(N)0 LL1: 500p B(N);$q N: L0 47)"WINNER": 520@q Q1 1500: Q: 130Jq 520q KELLY EYE, ONE LITTLE DUCK,UP A TREE,OFF THE FLOOR,LOOK ALIVEq IN A FIX,YOURE IN HEAVEN ,1 FAT LADY,DOCTORS ORDERS,DOWNING ST, LEGSr&ONE DOZ,UNLUCKY FOR SOME,1&4,1&5,SWEETEr0 OFTEN BEEN KISSED, AGE TO VOTE, 1&9,BLIND,KEY TO THE DOORr: 2LITTLE DUCKS,2&3,2 DOZ,QUARTER OF A DOLLAR, HALF A CROWNrD 2&7,2&8,2&9, BLIND,3&1,3&2,FEATHERS,3&4,3&5,3&6,3&7,3&8 sN ALL THE STEPS, BLIND, 4&1,4&2,4&3,DIANA DORS, HALFWAY THERE,4&6LsX 4&7,4&8,4&9,GOLDERN YEARS,5&1,5&2,5&3,5&4, ALL THE FIVES,5&6sb ALL THE VARIETIES, 5&8, BRIGHTON LINE,BLIND,6&1,6&2,6&3,6&4sl AGE TO RETIRE, CLICKITY CLICK,6&7,6&8,EITHER WAY, BLIND,7&1tv 7&2,7&3, 7&4, 7&5,TROMBONES, SUNSET STRIP,7&8,7&9,BLIND,8&1,8&2Xt 8&3,8&4,8&5,8&6,FAT LADY WITH WALKING STICK,TWO FAT LADIESxt ALL BUT, TOP OFF THE WASAABCDEFGHIJKLMNPQRSTUVWXYZ[\]^_`abcdefghijklmno/suvwxy|}~oj * NOT COMPATIBLE WITH DISK BASIC *j :1000:AN,PZ:OjO(1)" ":O(2)O(1):O(3)(8,191):O(4)O(1):O(5)O(3)6k400: "I",1,"SCORE/DAT": I110:#1,T(I):: 450: #1,S$: Bk 300k(" D O D G E LEVEL CURRENT HIGH SCOREk2I110:,I,T(I):k<" SELECT DIFFICULTY LEVEL (1-10)";DI:lFDI(DI): DI1 DI10 60!lPY7DI3: DM2(DI5): X60GlZSCSC1:P(14400):P127PP128eldP63PP64:DXDM :DX0lnP31PP32:DXDXDMlxXXDX:(X,Y1)150:(X,Y)lO((5));:90lCC1:270:(X,Y):C5ʲ@960,"COLLISION ";C;" SCORE =";SC:90m@960,"COLLISION 5 - TURN ENDS":YY3:mI110:270:I:(X,Y)qm@960," THIS WAS LEVEL";DI;" AND YOUR SCORE IS";SCmSCT(DI)T(DI)SC:NH1:" ###### NEW HIGH SCORE ######" : " HIGH SCORE AT THIS LEVEL";T(DI)jnSC0: C0: " PRESS FOR SAME LEVEL, TO LIST SCORES, TO END PROGRAM OR <1> TO <0> FOR LEVEL ONE TO TEN"; oI$:I$"S" :80 : I$"L" :40 : I$"1" I$"9" DI(I$):: 80 : I$"0" DI10::80 : I$"E" 240Xo NH 500: "O",1,"SCORE/DAT": I110: #1,T(I);: : #1,S$;: ^oto(X,Y):J116:Jzo"o,XXDX: DXDX: 120o I110: T(I)0: : 30oS$"": : o 260?k : ***** STARSHOOT ***** * D. ZWART * * PROOF RANGE * * PT. WAKEFIELD * * S.A. 5550 * *********************KkB$(16)mkA19:B$(A)".":A:B$(5)"X"uk(90k2Q12000::k<UU1:"PRESS ANY KEY WHEN READYkFA$:A$""70kPUU1:Z(A$):kZ:(23):@146,"# STARSHOOT #" ld@210,(13,"*")6ln@576,"DO YOU NEED INSTRUCTIONS? (Y/N)"Dlx70:UU1TlA$"N"250l" THE GAME STARTS WITH . . . . X . . . ."m" AND YOU MUST FINISH WITH X X X X . X X X X"~m" BY SHOOTING AT STARS NUMBERED 1 2 3 4 5 6 7 8 9"m60%n" THE STAR YOU HIT WILL EXPLODE AND AFFECT THE AREA AROUND IT. WHERE THERE IS A STAR IT WILL DISAPPEAR AND WHERE THERE IS NO STAR A NEW ONE WILL APPEAR."n"THE FOLLOWING CHART, WHICH CAN BE RECALLED DURING THE GAME WITHANY UNUSED KEY, IS DIVIDED INTO NINE PARTS. EACH PART SHOWS WHATAREA IS AFFECTED BY WHICH STAR. (THESE INSTRUCTIONS MAY BE RE- CALLED WITH AN 'I') "o60oo" 1 2 . 1 2 3 . 2 3 1 4 5 . 2 . . . 3 . 5 6 . . . . . . . . ."o" 1 . . . 2 . . . 3 4 4 . . 5 4 5 6 6 . . 6 7 . . . 8 . . . 9"Bp" . . . . . . . . . 7 4 5 . 8 . . . 9 . 5 6 7 8 . 7 8 9 . 8 9 "Jp60Wp:(23)dpA193p::" "B$(A)" "B$(A1)" "B$(A2)p::B$(5)"X"330p"B$(5)"X":T116:B$(T)"."B$(5)".":310 q,:"YOU TOOK ";U;" TURNS":50q6P116:B$(P)"X"330Cq@:"NO STARS LEFT YOU LOSE":50fqJ@10,"SHOOTING AT WHICH STAR?"nqT70q^Z1Z9UU1:370qhA$"I"ʍ140:210qrB$(Z)"."UU1:"NO STAR THERE TRY AGAIN":340q|Z390,400,410,420,430,440,450,460,470(rA1:480:A2:480:A4:480:A5:480:250LrA1:480:A2:480:A3:480:250yrA2:480:A3:480:A5:480:A6:480:250rA1:480:A4:480:A7:480:250rA2:480:A4:480:A5:480:A6:480:A8:480:250rA3:480:A6:480:A9:480:250$sA4:480:A5:480:A7:480:A8:480:250HsA7:480:A8:480:A9:480:250usA5:480:A6:480:A8:480:A9:480:250sB$(A)"."B$(A)"X"::B$(A)"."sILE0008CHKrclILE0009CHKrcnILE0010CHKrcpILE0011CHKrcsj :(23):6)"* * STAR TREK * *"::::10);"MICROWARE":::::"STAND BY FOR YOUR ORDERS ..."j 800:Z$(25," "):AZ:G(8,8),C(9,2),K(3,3),N(3),Z(8,8),D(8)\kT((0)2020)100:T0T:T925((0)10):D00:E3000:E0E:P10:P0P:S9200:S0:B90:K90:X$"":X0$" IS "kQ1((0)7.981.01):Q2((0)7.981.01):S1((0)7.981.01):S2((0)7.981.01)OlI19:C(I,1)0:C(I,2)0:I:C(3,1)1:C(2,1)1:C(4,1)1:C(4,2)1:C(5,2)1:C(6,2)1:C(1,2)1:C(2,2)1:C(6,1)1:C(7,1)1:C(8,1)1:C(8,2)1:C(9,2)1lI18:D(I)0:I:A1$"NAVSRSLRSPHATORSHEDAMCOMXXX"lI18:J18:K30:Z(I,J)0:R1(0)lR1.98K33:K9K93:30lR1.95K32:K9K92:30lR1.80K31:K9K91mB30:(0).96B31:B9B91Gm G(I,J)K3100B310((0)7.981.01)_m"J,I:K9T9T9K91mm$B9042m&G(Q1,Q2)200G(Q1,Q2)G(Q1,Q2)100:K9K91m(B91:G(Q1,Q2)G(Q1,Q2)10:Q1((0)7.981.01):Q2((0)7.981.01)n*K7K9:B91X$"S":X0$" ARE "Un,:"DESTROY THE";K9;"KLINGON SHIPS,BEFORE THEY ATTACK THE FEDERATION !":n." ON STARDATE";T0T9;",THIS GIVES YOU";T9;"DAYS.THERE";X0$;B9:" STARBASE";X$;" IN THE GALAXY FOR RESUPPLYING YOUR SHIP"::"HIT ENTER ..."o0I(0):X$:X$""48o2_o4Z4Q1:Z5Q2:K30:B30:S30:G50:D4.5(0):Z(Q1,Q2)G(Q1,Q2):Q11Q18Q21Q2870to6536::T0T58o8"MISSION BEGINS":"IN THE GALACTIC QUADRANT '";G2$;"'.":60o:"NOW ENTERING ";G2$;" QUADRANT ..."p<:K3(G(Q1,Q2).01):B3(G(Q1,Q2).1)10K35p>S3G(Q1,Q2)100K310B3:K3068bp@"COMBAT AREA CONDITION *RED*":S20068pB"SHIELDS DANGEROUSLY LOW"pDI13:K(I,1)0:K(I,2)0:IpFI13:K(I,3)0:I:Q$(192," "):A$"<*>":Z1S1:Z2S2:504:K3174?qHI1K3:500:A$"+K+":Z1R1:Z2R2:504:K(I,1)R1:K(I,2)R2:K(I,3)S9(.5(0)):ILqJB3178{qL500:A$">!<":Z1R1:B4R1:Z2R2:B5R2:504qNI1S3:500:A$" * ":Z1R1:Z2R2:504:IqP364qRSE10ʏE10D(7)086&rT:"** FATAL ERROR **":"YOUV'E STRANDED YOUR SHIP IN SPACE,WITH ZILCH ENERGY":352brVA$"":"COMMAND ";A$:I19:(A$,3)(A1$,3I2,3)90rXI96,80,202,216,248,300,310,406,356rZIs\"NAV SET COURSE":"SRS SHORT RANGE SENSOR SCAN":"LRS LONG RANGE SENSOR SCAN":"PHA FIRE PHASERS":"TOR FIRE PHOTON TORPEDOES"s^"SHE RAISE OR LOWER SHIELDS":"DAM DAMAGE CONTROL REPORTS":"COM LIBRARY-COMPUTER":"XXX RESIGN YOUR COMMAND"::82s`C10:"COURSE (0-9) ";C1:C19C11sbC11C19102td"LT. SULU REPORTS 'INCORRECT COURSE DATA, SIR !'":82)tfX$"8":D(1)0X$"0.2"dth"WARP FACTOR (0-";X$;") ";:W10:W1:D(1)0W1.2112xtjW10W18114tlW1082tn"CHIEF ENGINEER SCOTT REPORTS 'THE ENGINES WON'T TAKE WARP";W1;"!'":82up"WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = WARP 0.2":82-urN(W18.5):EN0122ut"ENGINEERING REPORTS 'INSUFFICIENT ENERGY AVAILABLE":"FOR MANOEUVERING AT WARP";W1;"!'"uvSNED(7)082vx"DEFLECTOR CONTROL ROOM ACKNOWLEDGES";S;"UNITS OF ENERGY":"PRESENTLY DEPLOYED TO SHIELDS.":82vzI1K3:K(I,3)0128Jv|A$" ":Z1K(I,1):Z2K(I,2):504:500pv~K(I,1)Z1:K(I,2)Z2:A$"+K+":504vI:330:D10:D6W1:W11D61vI18:D(I)0140vD(I)D(I)D6:D(I).1D(I)0D(I).1:140vD(I)0140wD11D11:"DAMAGE CONTROL REPORT: ";?wR1I:512:G2$;" REPAIR COMPLETED."SwI:(0).2152zwR1((0)7.981.01):(0).6148wD(R1)D(R1)((0)51):"DAMAGE CONTROL REPORT: ";w512:G2$;" DAMAGED"::152xD(R1)D(R1)(0)31:"DAMAGE CONTROL REPORT: ";1x512:G2$;" REPAIR STATUS:ImPROVING":UxA$" ":Z1(S1):Z2(S2):504xX1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):XS1:YS2:X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):Q4Q1:Q5Q2xI1N:S1S1X1:S2S2X2:S11S19S21S29172+yS8(S1)24(S2)326:(Q$,S8,2)" "162yS1(S1X1):S2(S2X2):"WARP ENGINES SHUT DOWN AT SECTOR";S1;",";S2;"DUE TO BAD NAVIGATION":164yI:S1(S1):S2(S2)yA$"<*>":Z1(S1):Z2(S2):504:196:T81yW11T8.1(10W1) zTTT8:TT0T9352z80rzX8Q1XNX1:Y8Q2YNX2:Q1(X8):Q2(Y8):S1(XQ18):S2(YQ28):S10Q1Q11:S18zS20Q2Q21:S28zX50:Q11X51:Q11:S11zQ18X51:Q18:S18zQ21X51:Q21:S21zQ28X51:Q28:S28zX50192{"LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAND:":"'PERMISSION TO CROSS GALACTIC PERIMETER":"IS HEREBY *DENIED* SHUT DOWN YOUR ENGINES.'":"ENGINEERING REPORTS 'WARP ENGINES SHUT DOWN"{"AT SECTOR";S1;",";S2;"OF QUADRANT";Q1;",";Q2;".'"|TT0T9352|8Q1Q28Q4Q51642|TT1:196:52F|EEN10:E0|"SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANOEUVRE.":SSE:E0:S0S0||D(3)0"LONG RANGE SENSORS ARE INOPERABLE":82}"LONG RANGE SCAN FOR QUADRANT";Q1;",";Q2:O1$(19,"-"):O1$K}IQ11Q11:N(1)1:N(2)2:N(3)3:JQ21Q21}I0I9J0J9N(JQ22)G(I,J):Z(I,J)G(I,J)}J:L13:": ";:N(L)0"*** ";:214}((N(L)1000),3);" ";~L:":":O1$:I:@757,"4 3 2";:@821,"5 * 1,9";:@885,"6 7 8";:@949,"":82;~D(4)0"PHASERS INOPERATIVE":82I~K30222~"MR.SPOCK REPORTS 'SENSORS SHOW NO ENEMY SHIPS IN QUADRANT'":82~D(8)0"COMPUTER FAILURE HAMPERS ACCURACY"~"PHASERS LOCKED ON TARGET, ";"ENERGY AVAILABLE =";E;"UNITS"1"NUMBER OF UNITS TO FIRE ";X:X082@EX0226ZEEX:D(7)0XX(0)H1(XK3):I13:K(I,3)0246H((H1((K(I,1)S1)2(K(I,2)S2)2)(0)2)):H.15K(I,3)238"SENSORS SHOW NO DAMAGE TO ENEMY AT";K(I,1);",";K(I,2):246{K(I,3)K(I,3)H:H;"UNIT HIT ON KLINGON AT SECTOR";K(I,1);",";K(I,2):K(I,3)0"*** KLINGON DESTROYED ***":242"(SENSORS SHOW";K(I,3);"UNITS REMAINING)":246K3K31:K9K91:Z1K(I,1):Z2K(I,2):A$" ":504%K(I,3)0:G(Q1,Q2)G(Q1,Q2)100:Z(Q1,Q2)G(Q1,Q2):K903625I:330:82cP0"ALL PHOTON TORPEDOES EXPENDED":82D(5)0"PHOTON TUBES ARE NOT OPERATIONAL":82ǁ"PHOTON TORPEDO COURSE (1-9) ";C1:C19C11ہC11C19258"ENSIGN CHEKOV REPORTS 'INCORRECT COURSE DATA, SIR!'":82X1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):EE2:PP1:X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):XS1:YS2"TORPEDO TRACK:"ƂXXX1:YYX2:X3(X.5):Y3(Y.5)X31X38Y31Y38298 (15," ");X3;",";Y3:A$" ":Z1X:Z2Y:530# Z30262IA$"+K+":Z1X:Z2Y:530:Z30280"*** KLINGON DESTROYED ***":K3K31:K9K91:K90362I13:X3K(I,1)Y3K(I,2)278I:I3ƃK(I,3)0:294A$" * ":Z1X:Z2Y:530:Z30284)"STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":330:82OA$">!<":Z1X:Z2Y:530:Z30252"*** STARBASE DESTROYED ***":B3B31:B9B91 B90K9TT0T9292'""THAT DOES IT, CAPTAIN !!! YOU ARE HEREBY RELIEVED OF YOUR COMMAND":"AND SENTENCED TO 99 STARDATES AT HARD LABOUR ON 'CYGNUS 12'":356z$"STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER":"COURT MARTIAL !":D00&Z1X:Z2Y:A$" ":504΅(G(Q1,Q2)K3100B310S3:Z(Q1,Q2)G(Q1,Q2):330:82*"TORPEDO MISSED":330:82,D(7)0"SHIELD CONTROL INOPERABLE":82|."ENERGY AVAILABLE =";ES;:":NUMBER OF UNITS TO SHIELDS";X:X0SX"":820XES3082"SHIELD CONTROL REPORTS 'THIS IS NOT THE FEDERATION TREASURY.'":"":82U4EESX:SX:"DEFLECTOR CONTROL ROOM REPORT:":"'SHIELDS NOW AT";(S);"UNITS PER YOUR COMMAND.'":82f6D(6)03248"DAMAGE CONTROL REPORT NOT AVAILABLE":D0082:D30:I18:D(I)0D3D3.1ˇ<I:D3082>:D3D3D4:D31D3.9@"TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;":"ESTIMATED TIME TO REPAIR:";.01(100D3);"STARDATES":"WILL YOU AUTHORIZE THE REPAIR ORDER (Y/N) ";A$:A$"Y"82BI18:D(I)0D(I)0:I:TTD3.1D:"DEVICE: STATE OF REPAIR":R118F512:G2$;(Z$,25(G2$));(D(R1)100).01.GR1::D003146H82BJK30{LD00"STARBASE SHIELDS PROTECT THE 'ENTERPRISE'":NI13:K(I,3)0350PH((K(I,3)((K(I,1)S1)2(K(I,2)S2)2))(2(0))):SSH:K(I,3)K(I,3)(3(0)):H0H15RH;"UNIT HIT ON 'ENTERPRISE' FROM SECTOR";K(I,1);",";K(I,2)CTS0354pV"":H20350X(0).6HS.02350ZR1((0)7.981.01):D(R1)D(R1)HS.5(0):512\"DAMAGE CONTROL REPORTS '";G2$;" DAMAGED BY THE HIT'"^I:!`"IT IS STARDATE";T:356wb:"THE ENTERPRISE HAS BEEN DESTROYED. THE FEDERATION ":"WILL BE CONQUERED":352؋d"THERE WERE";K9;"KLINGON BATTLE CRUISERS LEFT AT":"THE END OF YOUR MISSION.":::B90360f"VOLUNTEERS ?";A$:A$"Y"10h:j"CONGRATULATIONS, CAPTAIN ! THE LAST KLINGON BATTLE CRUISER":"MENACING THE FEDERATION HAS BEEN DESTROYED."::"YOUR EFFIENCY RATING IS";1000(K7(TT0))2:358njlIS11S11:JS21S21n(I.5)1(I.5)8(J.5)1(J.5)8370pA$">!<":Z1I:Z2J:530:Z313721rJ,I:D00:376PtD01:C$"DOCKED":EE0:PP0v"SHIELDS DROPPED FOR DOCKING PURPOSES":S0:380xK30C$"*RED*":380zC$"GREEN":EE0.1C$"YELLOW"ҍ|D(2)0384~:"*** SHORT RANGE SENSORS ARE OUT ***"::PO1$(33,"-"):O1$:I18:J(I1)241(I1)24223:" ";(Q$,J,3);:JwI388,390,392,394,396,398,400,40236);"STARDATE";55);(T10).1:404Ŏ36);"CONDITION ";56);C$:40436);"QUADRANT";55);Q1;",";Q2:40436);"SECTOR";55);S1;",";S2:404A36);"PHOTON TORPEDOES";55);(P):404k36);"TOTAL ENERGY";55);(ES):40436);"SHIELDS";55);(S):40436);"KLINGONS REMAINING";55);(K9)ƏI:O1$:ꏖD(8)0"COMPUTER DISABLED":82%A0:"COMPUTER ACTIVE AND AWAITING COMMAND ";A:A082M:H81:A1416,432,448,496,460,4149"FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:":"0 = CULMULATIVE GALACTIC RECORD":"1 = STATUS REPORT":"2 = PHOTON TORPEDO DATA":"3 = STARBASE NAV DATA":"4 = DIRECTION / DISTANCE CALCULATOR":"5 = GALAXY 'REGION NAME' MAP"::408ZH80:G51:"THE GALAXY":418"COMPUTER RECORD OF GALAXY FOR QUADRANT";Q1;",";Q27);"1 2 3 4 5 6 7 8":O1$" ----- ----- ----- ----- ----- ----- ----- -----":O1$:I18:I;:H80426GJ18:" ";:Z(I,J)0"***";:424a((Z(I,J)1000),3);mJ:430Z4I:Z51:536:J0(15.5(G2$)):J0);G2$;ʒZ55:536:J0(39.5(G2$)):J0);G2$;ܒ:I:O1$:82"STATUS REPORT:":X$"":K91X$"S"$"KLINGON";X$;" LEFT: ";K9g"MISSION MUST BE COMPLETED IN";.1((T0T9T)10);"STARDATES"}X$"S":B92X$""B91446ғ"THE FEDERATION IS MAINTAINING";B9;"STARBASE";X$;" IN THE GALAXY"ۓ310@"YOUR STUPIDITY HAS LEFT YOU ON YOUR OWN IN":"THE GALAXY ...YOU HAVE NO STARBASES LEFT !":310OK30220eX$"":K31X$"S""FROM THE ENTERPRISE TO KLINGON BATTLE CRUISER";X$H80:I13:K(I,3)0494ӔW1K(I,1):XK(I,2)C1S1:AS2:464z"DIRECTION / DISTANCE CALCULATOR:":"YOU ARE AT QUADRANT ";Q1;",";Q2;" SECTOR ";S1;",";S2:"PLEASE ENTER":"INITIAL CO-ORDINATES (X,Y) ";C1,A"FINAL CO-ORDINATES (X,Y) ";W1,XXXA:AC1W1:X0480ȕA0484ՕX0472A0C15:474C11(A)(X)4789"DIRECTION =";C1((((A)(X))(A))(A)):492`"DIRECTION =";C1((A)(X)):492rA0C13:486X0C15:474C17(A)(X)490ז"DIRECTION =";C1((((X)(A))(X))(X)):492"DIRECTION =";C1((X)(A))"DISTANCE =";(X2A2):H8182*I:82dB30"FROM ENTERPRISE TO STARBASE:":W1B4:XB5:458"MR.SPOCK REPORTS 'SENSORS SHOW NO STARBASES IN THIS QUADRANT.'":82R1((0)7.981.01):R2((0)7.981.01):A$" ":Z1R1:Z2R2:530:Z30500:S8(Z2.5)3(Z1.5)241:(A$)3"ERROR":US81Q$A$(Q$,189):rS8190Q$(Q$,189)A$:Q$(Q$,S81)A$(Q$,190S8):R1514,516,518,520,522,524,526,528טG2$"WARP ENGINES":G2$"SHORT RANGE SENSORS":G2$"LONG RANGE SENSORS":1G2$"PHASER CONTROL":J G2$"PHOTON TUBES":e G2$"DAMAGE CONTROL":G2$"SHIELD CONTROL":G2$"LIBRARY-COMPUTER":֙Z1(Z1.5):Z2(Z2.5):S8(Z21)3(Z11)241:Z30(Q$,S8,3)A$Z31:$Z54Z4540,542,544,546,548,550,552,554-556DG2$"ANTARES":574YG2$"RIGEL":574p G2$"PROCYON":574"G2$"VEGA":574$G2$"CANOPUS":574&G2$"ALTAIR":574̚(G2$"SAGITTARIUS":574*G2$"POLLUX":574 ,Z4558,560,562,564,566,568,570,572 .G2$"SIRIUS":57450G2$"DENEB":574L2G2$"CAPELLA":574f4G2$"BETELGEUSE":5746G2$"ALDEBARAN":5748G2$"REGULUS":574:G2$"ARCTURUS":574<G2$"SPICA">G51Z5578,580,582,584,578,580,582,584@BG2$G2$" I":DG2$G2$" II":.FG2$G2$" III":BHG2$G2$" IV":R2JS@*@"B!B"@!B"Br*B~# ("B*B"@RUN B A(31)C280C CSH15:ST15!C(23)=C@268,"TARGET PRACTICE"QC( TD1 1000:|C2::"THIS IS A GAME FOR TWO PLAYERS-"C3:6)"THE OBJECT OF THE GAME IS TO DESTROY AS MSANY TARGETS"C57)"AS POSSIBLE WITH YOUR FIFTEEN SHOTS. THE PLAYER ON"7D77)"THE LEFT USES THE LETTER 'Z' AND THE PLAYER ON THE"tD96)"RIGHT THE '/' TO FIRE THE MISSLE. THE SPEED OF THE"D:6)"MISSLE LAUNCHER MAY BE VARIED BETWEEN FAST AND SLOWT"D<:" ENTER THE NAME OF THE FIRST PLAYER";A$EF:" ENTER THE NAME OF THE SECOND PLAYER";B$DEP:"ENTER SPEED(1 FAST- 10 SLOW)"XEZ:A$;:" ";:AnE\ A1 A10 90E_:B$;:" ";:BEa B1 B10 95EdEi 1,2,3,4,5,U6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31Fj L1 31: A(L): L#Fn Z1 10/FxM(31)BF A(M)0 120TF M31 M10dF M2 M2oFNM32F MZ64 0 M10ZF@MZ64,"#"F@NZ64,"*"FAV(M)0F ZFY43F X0 127F (X,Y)F XF@960,A$;G@995,B$;GX63G Y3 42*G(X,Y)2G YLGCTCT1: CT150 800]G SH0 310lG X1 60uG"Y42G,(X,Y)G/ TD1 A: TDG0(X,Y)G1G$: G$""W 308G2 G$"Z" 460: 310G4 XG6 ST0 280G; X65 127H@Y42HJ(X,Y)$HM TD1 B: TD/HN(X,Y)EHOH$: H$"" 338`HP H$"/" 660: 280hHR XqHT280H@974," ";:SHSH1:@974,SH;" SHOTS LEFT";XH Y41 3 2H(X,Y)H W1 5H WH(X,Y)H YH;I@1007," ";:STST1:@1007,ST" SHOTS LEFT";NI Y41 3 2YI(X,Y)gI W1 5oI WzI(X,Y)I YII 280I ::10)"DO YOU WANT TO PYLAY AGAIN (Y/N)";:Q$I* Q$"Y" I4 Q$"N" 800J>::::20)"THANK YOU FOR PLAYING"*JH TD1 1000::0JRF YZ!<!YB!YgDâZDO THE FOLLOWING: 1. HOLD DOWN BREAK KEY AND PRESS RESET TO ACTIVATE NON-DISK BASIC. zCZ2. RELEASE BREAK KEY AND INPUT BASIC INITIALIZATION RESPONSES. 3. ENTER "SYSTEM". 4. ENTER "/" !Z<!RBðBYZ!<!YB!ۃt*Jtr#JtJtJuӀs.,V+&^vJuӀrJuӀrJuӁ뼀Juj :17)"T H E M I N D R E A D E R":17)(28,129)j(:"CHOOSE A LIST 1, 2, 3, 4, 5, 6"Mk2:"THINK OF A NUMBER FROM 1 TO 63 - DO NOT TELL ME WHAT IT IS -": "MEMORIZE THE NUMBER AND ANSWER THE QUESTIONS BY PRESSING OR !!"xk<:"NOW WHICH LIST WOULD YOU PREFER ?"kFIK$: IK$"" 70: A(IK$)kPA1A6 70kZ :Y1:N2kdA110,210,310,410,510,610kn 950: 1560lx23)"LIST NO. 1" l 1550'lIK$: IK$"" 1409lIK$"Y" 180AlU0Kl 190SlU1Zl glA2720yl 1050: 1560l23)"LIST NO. 2"l 1550lIK$: IK$"" 240lIK$"Y" 280lV0l 290lV2l" l,A3720m6 1150: 1560m@23)"LIST NO. 3"'mJ 1550AmTIK$: IK$"" 340Sm^IK$"Y" 380[mhW0emr 390mm|W4tm mA4720m 1250: 1560m23)"LIST NO. 4"m 1550mIK$: IK$"" 440mIK$"Y" 480mX0m 490mX8n nA5720 n 1350: 15605n23)"LIST NO.5"@n 1550ZnIK$: IK$"" 540ln&IK$"Y" 580tn0T0~n: 590nDT16nN nXA6720nb 1450: 1560nl23)"LIST NO. 6"nv 1550nIK$: IK$"" 640nIK$"Y" 680oZ0 o 690oZ32o )oA17208o A1 110qo@460,"LOOK AT ME CLOSELY WHILE I READ YOUR MIND!!!"o I 1 1000: : oMUVWXTZo@463,13)"I HAVE IT!!! THE NUMBER YOU SELECTED WAS-:o: I 1 1000: p" ";Mp Ap20)"TELL ME, WAS I CORRECT ?"[p IK$: IK$"" 800lp*IK$"N"880p4@0,19)"I TOLD YOU I CAN READ MINDS !!!"p>pH"WOULD YOU LIKE TO HAVE ANOTHER TRY ?";pRIK$: IK$"" 850p\IK$"Y" 20pfqp =qz@463,"WHAT!! IMPOSSIBLE. I DO N-O-T MAKE MISTAKES.Cqoq"YOU MADE AN ERROR. LET'S TRY AGAIN!!"q I 1 2000: q20qq@448,""q"1 3","5 7","9 11","13 15"qr"17 19","21 23","25 27","29 31"$r`r"33 35","37 39","41 43","45 47"frr"49 51","53 55","57 59","61 63"r rr@448,""r$"2 3","6 7","10 11","14 15"r.6s8"18 19","22 23","26 27","30 31""SUPER MASTERMIND ALLOWS YOU TO PIT YOUR WITS AGAINST THE"rH"COMPUTER."::"THE COMPUTER SELECTS A SERIES OF";9sR" NUMBERS AT RANDOM AND 'PRINTS' THEM INVISIBLY AT";ns\" THE TOP OF THE SCREEN. YOUR TASK IS TO FIND"sf"THE VALUE OF EACH NUMBER AND ITS CORRECT POSITION."sp:"TO DO THIS, YOU ENTER NUMBERS ONE AT A TIME AND";tz" THE COMPUTER":"PLACES THEM IN A ROW ON THE SCREEN";At", UNDER THE INVISIBLE ONES."}t"IT THEN COMPARES THE TWO SETS OF NUMBERS. FOR EACH";t" CORRECT":"NUMBER IN ITS CORRECT POSITION, THE";t" COMPUTER WILL PRINT AN *,":"FOR EACH OTHER CORRECT";u" NUMBER IN THE WRONG POSITION, THE"Vu"COMPUTER WILL PRINT AN 0. THE GAME ENDS WHEN YOU";u" EXACTLY":"DUPLICATE THE INVISIBLE NUMBERS."u:18);"ENTER ANY NUMBER TO CONTINUE";uC$:C$""975u ::v"YOU MAY CHOOSE ANY NUMBER OF COLUMNS, UP TO 10 AND";Hv" THE MAXIMUM":"VALUE FOR THE NUMBERS, UP TO 9.";yv" (0 IS NOT A VALID NUMBER).":"THE MORE";v" COLUMNS YOU HAVE AND THE HIGHER THE MAXIMUM VALUE,";v" THE":"HARDER THE GAME.":w"AT ANY TIME, YOU MAY ENTER 999, WHEN THE COMPUTER";Mw" WILL":"DISPLAY THE INVISIBLE NUMBERS AND THE GAME";uw$" WILL END."::26);"GOOD LUCK":w8:18);"ENTER ANY NUMBER TO CONTINUE";w=C$:C$""1085wB : Rj A(50)Xj j @206,"** AN ADVENTURE IN LEVEL 1 ***"j @270,"** BY GRAHAME MOAD **"jA(41)2:A(42)8:A(43)5:P2jI140: A(I):Ij( 5,5,1,6,5,5,4,8,10,10k* 3,3,3,7,1,4,8,8,8,4.k, 2,2,2,1,2,5,3,7,4,6Jk. 4,1,7,9,6,10,8,8,8,10k2@512,"ONCE UPON A TIME IN THE LAND OF MURGLE..."k3"WHATS THAT! YOU NEVER HEARD OF MURGLE."k4"WELL, BY CHANCE, WE HAVE ACCES TO A TIME RELOCATING SYSTEM"/l5"(MODLE 80) AND YOU CAN SEE FOR YOURSELF WHAT HAPPENED."kl8"ALL YOU HAVE TO DO IS ENTER THE SECRET CODE NUMBER 1"~l: A::A156l< 65:"WAIT! I DIDN'T GIVE YOU DIRECTIONS": 65l?"DONT LET THE HOOGLY LOOSE!": 65::7000mA A020: (60));"*": B020:B:A:m"I AM";:4m" IN A FOREST";:Pm" ON TOP OF A HILL";:mm" BESIDE A BUILDING";:m" IN A CLEARING";:m " WITH TREES ALL AROUND. ":m "-":m " BESIDE A STREAM. ":nH0:N1:S2:E3:W4:L5:O6:G7:R8:D9)n@832,"WHAT NOW";: XBn(X0) (X10)5020fnX0"ILLEGAL DIRECTIVE":5000n"COMMANDS: HELP NORTH SOUTH EAST WEST LOOK OPEN GRAB READ DIG"nX6100,6200,6300,6400,6500,6600,6700,6800,6900n5000o"GO NORTH":PA(P):7000%o8"GO SOUTH":PA(P10):7000Do"GO EAST":PA(P20):7000co"GO WEST":PA(P30):7000od"LOOK AROUND":@64,"";oiP 6510,6510,6510,6510,6510,6515,6520,6510,6525,6510ojPA(43)@87," AND A SHOVEL." pk (PA(42)) (A(41)1)@87," AND A KEY."pm50005pn"I CAN SEE LOTS OF TREES.":vps"THE FOREST APPEARS TO EXTEND ENDLESSLY IN ALL DIRECTIONS."pt"THERE'S A SMALL CLEARING TO THE SOUTH WEST.":px"IT DOESN'T LOOK TO DEEP.": q}"ITS A SMALL STONE BUILDING WITH NO WINDOWS AND A STURDY"Bq~"WOODEN DOOR. THERE IS A SIGN ABOVE THE DOOR.":tqP9"I DON'T KNOW HOW TO OPEN A TREE":5000qA(42)0"THE DOOR'S LOCKED":5000q"OH NO!!! IT'S THE HOOGLY!!!!!"q 65:"NOW WASN'T THAT FUN":r,(PA(42)) (A(41)1) (PA(43)) 67207r6"THE TREE'S JUST TOO HEAVY":5000ir@"OK, I'VE GOT THE ";:PA(42)"KEY":A(42)0rEPA(43)"SHOVEL":A(43)0rJ@87,"-":5000rT"THE TREE'S JUST TOO HEAVY":5000rP9"THE SIGN SAYS: 'DANGER - DO NOT OPEN DOOR'":5000!s"THE LEAVES ARE GREEN":5000YsA(43)0"I'M NOT DIGGING WITH MY BARE HANDS":5000s(PA(42)) (A(41)2)A(41)1:"I'VE FOUND SOMETHING":5000s"I DIDN'T FIND ANYTHING":5000sX8000:P8100,8100,8100,8100,8100,8200,8300,8100,8400,8100tb5000+t@A06:@A64," ":A:@0,"";:At1000:2000:3000et8150:I05:A(52):8160:I:tA714:@A64," ":A:t@520A,"[";:@583A,"[[[";:@646A,"[[[[[";t@709A,"[[[[[[[";:@775A,"(#)";:t 1000:2010:3010"u: 8150:@512,"- - - - - - -":@591,"- - - - -"SuD A8:8160:A16:8160:A20:8160:A50:8160:iul 1000:2000:3020uv 8150:I075:(I,32):I:I3095:(I,33):Iu I50127:(I,34):I:A15:8160:A45:8160u A10:8160:A49:8160:v 1000:2020:2030:2000:3010Dv 8150:@540,"- - - -":@602,"/ /":@664,"/ /"jv @729,"! ## !":@793,"! ## !"v A0:8160:A30:8160:A34:8160:A50:8160:\startup.bat p:\ccnet\startup.bat goto completed :netfail c: cd \ echo  echo ***********************************dj C30001 30040:C,0:Cj:23);"ROCKET ATTACK"j(:j2"A NUMBER OF NUCLEAR POWER STATIONS ARE LOCATED IN"j<"GREAT BRITAIN AND THEY ARE ALL UNDER IMMINENT ATTACK">kF"FROM A FOREIGN POWER. EACH POWER STATION IS DEFENDED BY A"qkP"COMPUTER CONTROLLED MISSILE LAUNCHING SITE."kZ" MISSILES ARE GUIDED BY THE MISSILE SITE COMMANDER WHO USES"kd"KEYS 1 TO 5 FOR NORMAL GUIDANCE AND THE SPACE BAR FOR EMERGENCY"/ln"BOOST.ANY KEY CAN BE USED TO FIRE A MISSILE."rlx" EACH MISSILE SITE COMMANDER IS RATED FOR ABILITY TO DEFEND"l"THE POWER STATIONS. AS MIGHT BE EXPECTED THE RATING IS BASED ON"l"A COMBINATION OF LUCK AND SKILL."m:"HOW MANY SITE COMMANDERS ARE THERE";CNm CN1150tm CN4 "THERE ARE ONLY 4 TRAINED COMMANDERS AVAILABLE IN GREAT BRITAIN":150m:"HOW MANY POSTINGS TO ACTIVE SERVICE CAN EACH COMMANDER UNDERTAKE";PNmPN1ʲ"ALL COWARDS WILL BE SHOT AT DAWN.":1809nPN3ʲ"ALL COMMANDERS GO INSANE IF MORE THAN 3 POSTINGS.":180_n 30035,CN: 30036,PN:CC1:PC1:vn APOINT COMMANDERn@649,"COMMANDER NO."CC"PRESS 'P'";n@716,"FOR POSTING NO. "PC;nA$:A$"P"250n30037,CC:30038,PCn300o, DRAW STATION AND LAUNCHER1o6 AZ:Y1:P15360:M867Vo@:@468,"AN ATTACK IS IMMINENT";oJT01000::@537,"STAND BY":T01000:oTo^@931,(191);:@930,(184);:@932,(180);ohC992998:@C,(191);:CorC969979:@C,(191);:Cp|C905915:@C,(191);:C1pC8428502:@C,(191);:C\p HORIZONTAL ROCKET ++ MISSILE CONTROLp 860:HX100Z:@747,"AIMING ABILITY"H"% ";pZZ1:D63:Q(20):R(3)pS(100(W10011))(11W)(26Z):S99S99q@683,"SURVIVAL CHANCE"S"%";q@811,"ROCKETS LAUNCHED"Z;5qZ26ZZ1:4000Dq(PD),179Uq(PD1),140fq(PD2),140wq(PD3),140q(PD4),140qA$:A$""550q@555," "qA67(A$):@875,"MISSILES FIRED"Y;:A62A62r&A0ʲ@555,"MISSILE"Y"READY";r0(PMV),42Hr:(PMVA)140 (PMVA)1791000\rD@(D4)," "lrN(PMV),32|rXDDR:VVArbV888V0:YY1:A0rlPD(P24Q)650:470r VERTICAL ROCKET + MISSILE CONTROLr(PD),188r(PD1),131 s(PD1),131s(PD64),143/sA$:A$""730Ks@555," ";}sA67(A$):@555,"MISSILE FIRED"Y;:A62A62sA0ʲ@555,"MISSILE"Y"READY";s(PMV),42s(PMVA)1311000s(PMVA)143(PMVA)1881000s(PD),32t (PD1),32t(PD1),32/t (PD64),32?t*(PMV),32Xt4(PD128)1912000it>DD64:VVAtHV888V0:YY1:A0tRD960400:650t\ t DESTROY ROCKETt@(D5),"BOOM ":(PMV),32tT0150: $u@(D5)," ":V0:YY1:@875,"MISSILES FIRED"Y;:A0JuXX1:@939,"ROCKETS DESTROYED"X;Su400ju HIT POWER SATIONu(PD128),32:WW1u@1003,"HITS ON STATION"W;u(D128)9603000u@(D66),"WOOMPH";uT0200:u @(D66)," ";u400v POWER STATION DESTROYED!v Av @683,"SURVIVAL CHANCE 0%";av @747,"AIMING ABILITY"H"%";v @811,"ROCKETS LAUNCHED"Z;v @875,"MISSILES FIRED"Y;v @939,"ROCKETS DESTROYED"X;v @1003,"HITS ON STATION"W;v T0100:w @905,"* VAROOM *";w T0100:Fw& NN1:N63120ELLSE@905" ";:3060sw0 @337,"NUCLEAR POWER STATION DESTROUED";w: @398,"ALL BUT YOU ARE DEAD WITHIN 50 MILE RADIUS";wD T02000:wN EHS100wX @581,"YOUR RATING ON THIS POSTING WAS"E"%";xb 9000!x POWER STATION SURVIVESCx@683,"SURVIVAL CHANCE 100%";bx@811,"ROCKETS LAUNCHED"Z;x@747,"AIMING ABILITY"H"%";x@464,"YOU SURVIVED THE ATTACK-CONGRATULATIONS";x3140x(# COMMANDERS RATINGS AND PROSPECTSy2#CC(30037):PC(30038):CN(30035):PN(30036);y<#EE30000(PC10)CC: EE,ERyF# CCCNPCPN9500eyP#CCCNPCPC1vyU# CCCNCC0yZ#CCCC1yd#220y%@581,"YOUR RATING ON THIS POSTING WAS"E"%";y&%@649,"PRESS 'R' FOR OVERALL RATINGS";z0%@714,"AND COMMANDERS' PROSPECTS";%z5%A$:A$"R"95255z:%:::::WzD%24)"RATINGS"46)"PROSPECTS"dzN%ZZ1CNzX%R130010ZZ:R230020ZZ:R330030ZZzb%E(ZZ)((R1)(R2)(R3))PNzl%E(ZZ)101 P$"PROMOTION AND KNIGHTHOOD" {v%E(ZZ)91 P$"PROMOTION AND DECORATION"4{%E(ZZ)81 P$"DECORATION AND VALOUR"a{%E(ZZ)71 P$"MENTIONED IN DESPATCHES"{%E(ZZ)61 P$"TO BE CONGRATULED"{%E(ZZ)51 P$"PUT IN COMMAND OF NAAFI"{%E(ZZ)41 P$"TO BE DEMOTED"|%E(ZZ)31 P$"REDUCED TO THE RANKS"'|%E(ZZ)21 P$"TO BE CASHIERED"S|%E(ZZ)11 P$"TO BE SHOT IMMEDIATELY"}|%"COMMANDER NO."ZZ 24)E(ZZ)"%"39)P$|%ZZ|%::|%"PRESS 'N' FOR NEW CAMPAIGN"|%A$:A$""9720|&A$"N"ʎ150:STEVE ASTEPHEN ASTEVEN  AS' _~2.%#~2P}&(&{(z6+(44##60{d8d4#60 8 4#0w~(D6@(6Dw{@D_!~w!_~~ݾ ~ݾ 6 (~8(A$,4,1)):A(266)((A$,5,1)):k A(256)B:A(257)C:A(258)D:A(259)X:A(260)Y:k BA(256):CA(257):DA(258):XA(259):YA(260):k :100:A,E,P,S,W,U,V,Z:GF$(5),A(279)::Fl GF$(0)" - ":GF$(1)" ":GF$(2)" ":GF$(3)" "nl GF$(4)" ":GF$(5)""JmSU$"w#1 :=@2 &A:=@A y 3 _G:=@ y G :=@ y AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"Sm460gm0:::(23)m(CM$)0O(CM$):CM$"":21m"ENTERPRISE and CREW":"AWAITING YOUR ORDERS, CAPTAIN."mB$,J:5)J;:9)B$:J1119nE:O99:"Orders";OnJA(A261)nO04810nO11(O)O16B$((30(B$))2," ")B$Br?K14:@512,B$:1:2Xr@@512,(30):1:2krA(13)ʇK:{rBK00:K:rC:A(268)0I2:89rDA(271)0I5:89rEO0rFP192255rGO3A(P)18A(P)0O3A(P)2473rHP:sI:U62:V14:415:387:413:5DsJ:"Object at";(B);(C);" is a ";B$;"."TsKA(P)2577~sL"READING";A(P)25;"units of ENERGY."sM418:72sNsO::B$,ZsPA(267)0I1:89sQ"Lt. Uhura here..."sR"DAMAGE CONTROL REPORTS THE FOLLOWING:":tSZ267275:B$,J:14)B$,HtTZ275A(276)0"** INOPERATIVE **":88ftUA(Z)0"OPERATIONAL":88tVA(Z)10"NEARLY OPERATIONAL"tWA(Z)9"** INOPERATIVE **"tXZ:337tY:(23):tZB$,J:IJ90t[@320,B$;" INOPERATIVE":417 u\N1J:Z267275u]A(Z)098:u^A(Z)A(Z)(5):A(Z)098Uu_A(Z)0::A(267)098lu`B$,J:JZ26696ua:@320,(23);B$;" OPERATIONAL":416ubZ:N:ucJ14A(261)udZ266(9):A(Z)0105ueA(Z)(25)J:A(267)0105uf:(23):vgB$,J:JZ2661035vh@320,"DAMAGE TO ";B$:417>viJ:Zvj:PX8Y192:U30:V14rvk387:413:Z338:MIvl:25)"sector:";X;YvmB$" *":Q1I51:C:156:113vn3:2:B$"-":I5ʑ156:112voZ336:B$")":156vpB$" ":156vqLL4 wrQ1118-ws(2)1J1J1X:K1K1Y:118YwtZ1(((XJ1)2)((YK1)2)):LL.6:ZlwuXJ1:YK1:122uwv423wwXXJ1:YYK1wxX0X7Y0Y7P1::129wyLL.6wzP(X)8(Y)192w{A(P)0119w|Q2w}:V15:A(P)18U28x~Q1I5A(P)25P1:130=xQ1I1A(P)18P1:130Fx387PxQ2tx413::25)"sector:";(X);(Y)xB$"* ":M5Q1160:3:2:136xB$"-":M5160:134xB$"(":160xI0ʩ3:2xB$" ":160xQ0:L(L):P1I0y379 yM5I1ʑ148:418:436.yI5144=y164:EELfyLA(261)75099:LLA(261)75:141pyE0yy435yI1148yA(P)A(P)L:A(P)25y148yL100y20)B$;" destroyed"y3:2yZ26438464:@Z,(16,191);:ZzZ25638464:@Z,(30):ZHzZ115:D:C:B:(21(17),12(5)):ZZzA(P)0:10:2xzA(P)(A(P))10000:SS10~zzNZ380z@N,B$;:B$" *"ʩAzN:Q1@380," "zzN3803381z@N,B$;:B$"* "ʩA{N:Q1@338," ";{@640,"";:1{3:2::W1(L50):(23);C{C:(28);:PU{W:1:2:163n{:A(273)0I7:89{10:@256,GF$(5){@640,(31);"SULU here..."{"COURSE (X,Y,Z)";B,C,D:2{P1170{"WARP FACTOR (0-8)";K:K0ʒ |K0K8(K)K172@|L(((A(256)B)2)((A(257)C)2)((A(258)D)2))U|E100LK3180w|@640,(31);"Scott here...":|"Sorry CAPTAIN,":"but we just don't have"|"enough energy."|418|EELK3:TT2LLK:9}1:I256310:@I,(179);" ";GF$(5);:I<}@311,(9,(191));:3:@311," ";Z}2:I256311:@I," ";:Iq}J(LLK):J092}10:2:6}A(266)0A(266)8:A(P)((A(P))10)108~A(265)0A(266)1A(266)7:A(P)A(262)1E4A(263)1E3A(264)1E2A(265)10A(266)~BX:CY:D3:33~A(266)1A(266)5427Q~A(266)7A(265)A(265)1r~N192255:A(N)0:N:A(P)18~N262265~A(N)0199~N262M(1500)250~N263M20~N264M19~N265M3~397:A(N)A(N)1:193~NA(266)7M2:397R0:403-R192255>A(R)24205K:K%0:vX((R192)8):YR192(X8):X1X:Y1Y(2)1213J1(A(259)X):K1(A(260)Y)A(R)125(E3)A(R)J1J1:K1K1 K%J12(3):K12(3):J1J1((2)1):K1K1((2)1)'XJ10XJ17X1XJ1DYK10YK17Y1YK1A(X18Y1192)0ZA(X8Y192):A(X8Y192)0:XX1:YY1:A(X8Y192)ZK%204J1A(259)X:K1A(260)YӀX1X:Y1Y:J2J1:K2K1A(261)3((J12)(K12))5Q2:118 P1219A(P)18204PXX1:YY1:J1A(259):K1A(260):Q0:L(A(R).7)lL100A(R)A(R)L:106u204:A(275)0A(276)0I9:89Q1:403@723,(31);E:"TORPEDO DIRECTION (0-8)";I:18)" ";I0I8224K%1:202"J1(IC1):K1(IC1):10FA(276)A(276)1:Q1:L8000:106_:A(274)0I8:89(23):@320,"CHEKOV here...""ENERGY";O:O0"Phasers locking on target."ӂP:C:L:B:G:K:DR0250:RR%192255A(R%)24239R%:K%1:202?X((R%192)8):YR%192X8MJ2X:K2YmJ1XA(259):K1YA(260):10Q2:118:Q0:J1J2:K1K2:LO:10P1246A(P)25238˃E100O0EEO:106ԃ238::A(269)0I3:89B$,J:J502490"SHIP'S COMPUTER command functions:":]4)J50;" DATA BASE SCAN TO LOCATE ";B$rJ54B$,J:2515)"5 LONG RANGE SENSOR SCAN FROM DATA BASE"̄5)"6 QUADRANT DETAILED DISPLAY":"Enter function";OO0O6(O)O248 O5259O4275,270%:<B$,J:J50O260y"ENTERPRISE CURRENTLY LOCATED at:";A(256);A(257);A(258)"Data base scan for ";B$;":":P0191O4A(P)0268҅ A(P)0O4269م 6 A(262O)0269 5:B;C;D, P::3371"Enter quadrant (X,Y,Z)";B,C,D:2?P1270F6lA(P)0"No data available.":418u342"enter quadrant (X,Y,Z)";U,V,W:ӆ@904,"LONG RANGE COMPUTER QUADRANT SCAN of";U;V;W;R1:352:A(270)0I4:89UA(256):VA(257):WA(258):R0X@899,"LONG RANGE SENSOR SCAN";:@938,"Quadrant";U;V;W;a352z:A(272)0I6:89Q1:403@723,(31);"HEADING (0-8)";I:@787,(31);͇I0I8284J1(IC1):K1(IC1):423 "SPEED (0-9)";J:A(271)018)" ";&!J0J92843"J0315D#@704,(31);[$10:A(X8Y192)0p%I11J:I0:321&XXJ1:YYK1:421:3'B$"ENERGY BARRIER"(P1E(E):305)BA(256)CA(257)9:Q1:185:10:A((X)8(Y)192)0:311%*9:WA((X)8(Y)192):B$"COLLISION"2+W0309],XXJ1:YYK1:A((X)8(Y)192)18:9l-W20305.JI11SS100:305/A(A(256)8A(257)A(258)64)100644ȉ0A(276)3:E4000:3071JI1161:99:Q1:403:W0:3072W2W3W1961:99:Q1:403(3421:10:I5:321=4I111:I1:313J5I5:321X6@723,"";f7C:P:I18A((X)8(Y)192)18:99W2W3W19323:E4000318Ŋ;(A(P))9999338:338ފ<(CM$)6ʒ:CM$""=TT.3:EEA(261)210:E0434:284>"docked":18)" ";7?E:E:E:G:E:338I@TT1:J2:92|AA(271)0@(Y)64(X)864,GF$(I);:@723,"";BCW210:2:A(P)((A(P))10)109ċD16)"orbit":18)" ";܋EC:G:L:P:K:338F:(23)G@266,"STATUS REPORT:":5)(14,"-")(H5)"stardate:";T";CM$;MTA$"":A$dUA$""ʒ:CM$A$:V:@384," ","coordinates:";B;C;DW" ","Klingons:";A(262),"star bases:";A(263)X" ","stars:";A(264),"planets:";A(265) Y:A(266)6A(266)2B$"None":347)ZB$,J:J30A(266)346P[" ","astronomical feature: ";B$:m\A(266)7B$"none":350]B$,J:J30A(266)349^" ","scientific interest: ";B$::_338Ǝ`@64,""aCV1V1:DW1W1:BU1U1b2cP1" unknown quadrant ";:368,dA$((A(P)),1)`eR0(A(P))(((A(P))10)10)5A(P)(A(P))fR1A(P)0" no data ";:368g(A(P))1R1A(P)5" void ";:368hA$"2"" large black hole ";:368iA$"3"" class O star ";:368:jA$"4"" pulsar ";:368fkR0A$"5"" space noise ";:368lA$"6"" Star Fleet HQ ";:368m6:A(262)0ʩFڐn" K";A(262);"B";A(263);"S";A(264);"P";A(265);" ";oA(262)0ʩHpB:" ";D:D:(26);:C&q@8,U1;:@28,U;:@47,U1;Ir@253,V1;:@509,V;:@765,V1;SsI191itZ153601619264|uZ16192I143vZ,I:Z19,I:Z38,I:Z57,I:ZwZ1134:Z13I143:I191ڑxA$(18,(140))(I)y@Z641,A$;A$;A$;(5,(140));zZ:@979,"";:338*{I0:B$"a tribble"N|A(P)2I4:B$"class M planet"r}A(P)3I4:B$"class G planet"~A(P)18I5:B$"star ship"A(P)19I3:B$"class F star"ՒA(P)20I2:B$"star base"A(P)24I1:B$"Klingon warship"379:I1ʩB:D7I1389,394,393,393,393,390=XZU7U1:(Z,V1):ZsZU4U5:(Z,V1):ZZU1U7:(Z,V):Z:(U3,V):@(V3)64((U8)2),GF$(I);:ؓF:ZU5U5:(Z,V):Z(U5,V1):(U4,V1):(U4,V1):(U5,V1)0(U1,V1):(U,V1):(U1,V1):H:JB(8)1:C(8)1:D3dUB1B1:VC1C1}U0U7V0V7401P8UV192:A(P)0397V:U3:A(P)M:͔:A(271)0I5:8910:2:A(P)(A(P)):@64,"";Z07:P192Z2558,A(P)0ʲGF$(0);:379:GF$(I);;P:Z:413l@650,"SHORT RANGE SENSOR SCAN of quadrant";A(256);A(257);A(258):18)" ";Q1Q0::33810:3啜(A(P))9999A(272)0(CM$)6ʒ:CM$"":284 @0,(63,"=");:@576,(63,"=");5Z0(5)2:@(512)63,"*";:Z:QA$:N030:G:D:419iA$:N05:1:419{A$:N0700(13)ʇN::N00:N:֖XB8X:B(X8):XXB8:YC8Y:C(Y8):YYC8ܖ (J1)(K1)K1K1(J1):J1J1(J1):425&J1J1(K1):K1K1(K1)FJ1(J11000.5(J1))1000hK1(K11000.5(K1))1000:nB$"LARGE BLACK HOLE":A(266)3B$"CLASS O STAR"A(266)4B$"PULSAR"ޗB$"AFTER FLYING INTO A "B$@320,"ON STARDATE";(T);", ";B$","8"THE ENTERPRISE & CREW WERE LOST TO SPACE."B::t:B$"AFTER DEPLETING ITS ENERGY SUPPLY":431:B$"WHILE DOING BATTLE AGAINST THE KLINGONS":431@448,"Destruction of a ";B$;" is grounds for court-martial.":"You are relieved of your command.")::a"STATUS",0,"DAMAGE CONTROL",1,"SCIENCE COMPUTER",2"SHIP'S COMPUTER",3,"LR SENSORS",4,"SR SENSORS",5̙"IMPULSE ENGINES",6,"WARP DRIVE",7,"PHASERS",8"PHOTON TORPEDOES",9,"ALERT",10,"REPAIR",11("KLINGON WARSHIPS",50,"STAR BASES",51M"CLASS F STARS",52,"PLANETS",53h"UNEXPLORED AREAS",54"GREEN",21,"YELLOW ALERT",22,"RED ALERT",23ƚ"black hole",32,"O star",33,"pulsar",34"space noise",35,"Star Fleet HQ",36,"G planet",372"unexplored M planet",38,"explored M planet",39g"PROMOTED",425,"DECORATED",350,"REASSIGNED",290"DEMOTED",190,"RESIGNED",-1,"EXECUTED",-32000˛"E",999,30111,31111,30101,20121,20201,2000110001,10111,10211,10321,10221,-99 1110,110,110,110,110*1111,1111,1211,1121,112173,3,2,2d121,121,211,211,311,311,321,321,221,221121,121,211,211,311,311,321,321,221,221,0K(SU$):16782,195ӜJ(K1):16783,J:J(K2):16784,J16402,201:415@704,"STAR TREK(tm) III, version 3.5 - by Lance Micklus (tm) Paramount Pictures Corporation - used by permission (c) copyright 1980 - Lance Micklus, Inc. Burlington, Vt. 05401 - all rights reserved"ʝV15:U54:I5:388B$,J:J999465P(191)1:A(P)0466J:J0A(P)J:4663P(150):MP:A(P)0468=5:9kBA(256)1A(256)1:CA(257)1A(257)1DA(258)1A(258)12P1A(P)10(A(P)10)5D:C:B:A(M)4ܞP(191)1:A(P)0475A(P):A(P)0A(P)A(P):475N0190:A(N)0A(N)1MN:A(256)7:A(257)7:A(258)2:A(276)3:P191E3999:T2200:H2470:Q0:A(191)1006:S0:C10.785398A(259)3:A(260)3:A(261)1:185:16:B$"":@384,B$;:"(L)oad or (S)ave game";B$(B$)016:B$(B$,1)B$"L"B$"S"16$B$"L"490C"<<< WRITING TO TAPE >>>"T#1,E,H,T,SdN027910#1,A(N),A(N1),A(N2),A(N3),A(N4),A(N5),A(N6),A(N7),A(N8),A(N9)̠@0,27(N10),:N:16"*** READING TAPE ***"#1,E,H,T,S N027910V#1,A(N),A(N1),A(N2),A(N3),A(N4),A(N5),A(N6),A(Nt@@ß@.@& @ @@Sj:200:gjTL758:BLTL64jT1$(144)(172)(140)(156)(132)(3,(128))(176)jB1$(159)(143)(191)(5,(143))(159)j@832,(64,(131));k@TL,T1$;:@BL,B1$;:I11000:9k@TL," ";:@BL," ";NkTLTL2:BLTL64pkTL750ʲ@BL9," ";k@TL,T1$;:@BL,B1$;:I1100:kTL734TLTL70kTL294260:200kSN$"AIRMAIL PILOT"kB2$B1$(3,(136))SN$l@TL," ";:@BL,(25,(128));1l"TLTL2:BLTL64Tl,@TL,T1$;:@BL,B2$;:I1250:jl6TL208320:280l@@TL," ";:@BL," ";lJTLTL2:BLTL64lT@TL,T1$;:@BL,B1$;:I175:l^TL192360:320 mh@TL," ";:@BL," ";mrTLTL2:BLTL645m|TL173390:360DmI1200:Qm:(23)km@210,"AIRMAIL PILOT"}mI12000::m:@87,"THE CHICAGO SUN"m@153,"JULY 18, 1922"m@283,"- WANTED -"m@343,"AIRMAIL PILOT FOR"n@407,"THE COLUMBUS TO"%n@471,"CHICAGO RUN. MUST"Cn@535,"BE WILLING TO FLY"`n@599,"IN EVERY TYPE OF"~n@663,"WEATHER. ONLY THE"n@727,"FOOLHARDY NEED"n@791,"APPLY."n@932,". . . IF INTERESTED PRESS /"n&I$n0I$"/"570:550"o::@143,"YOUR OBJECTIVE IS TO FLY THE MAIL"NoD@271,"FROM COLUMBUS TO CHICAGO IN THE"roN@404,"SHORTEST POSSIBLE TIME."oX@800,". . . TO SEE YOUR ROUTE PRESS /obI$olI$"/"630:610ov:@96,"COLUMBUS TO CHICAGO"o@163,"AIRMAIL ROUTE"7p@626,"COLUMBUS":(97,29):(96,29):Y29:X94902:(X,Y):p(89,30):Y31:X88762:(X,Y)::@743,"DAYTON":(75,33):(74,33)pY32:X75372:(X,Y)::@724,"INDIANAPOLIS":(37,33):(36,33)qX35:Y32:K8:L0K:(XL,YL)::@463,"LOGANSPORT";:(27,23):(26,23):(28,23)Rq(25,22):(24,21):(23,20):Y19:X22162:(X,Y):qX15:Y18:K3:L0K:(XL,YL)::@263,"CHICAGO";:(11,14):(10,14)q@928,". . . FOR YOUR BRIEFING PRESS /"qI$qI$"/"740:720q:@0,"BRIEFING:":-r3)"> PAY ATTENTION TO WEATHER REPORTS.":hr3)"> SUDDEN UP DRAFTS, DOWN DRAFTS, CROSS WINDS AND"r5)"ELECTRICAL STORMS ARE LIKELY.":r 3)"> CONSERVATIVE PILOTS SHOULD REFUEL AT EVERY OPPORTUNITY.":s3)"> WATCH FOR GROUND SIGNS SHOWING DISTANCE TO AIRPORT.":Ws 3)"> WATCH FOR COMPASS HEADINGS AND RUNWAY MARKERS.":zs*3)"> LAND ON RUNWAYS ONLY! s4@995,". . . TO CONTINUE PRESS /";s>I$sHI$"/"850:830sR@0,"LOGISTICS:":t\5)"YOUR PLANE: CURTIS JN4-D (JENNY)"(tf5)"FUEL CAPACITY: 26 GALS."Ktp5)"ENDURANCE: 2.6 HRS."rtz5)"CEILING: 11,000 FT.":t"CONTROLS:":t5)"TO CLIMB: PRESS U"t5)"TO DESCEND: PRESS N"t5)"LEFT RUDDER: PRESS Q" u5)"RIGHT RUDDER: PRESS P"1u5)"TO TAKE OFF: PRESS Z":bu21)". . . IF YOU'RE READY TO FLY PRESS /";kuI$uI$"/"990:970uTA$(160)(176)(176)(176)(176)(180)(176)(176)(176)(176)vBA$(140)(141)(140)(158)(143)(156)(140)(141)(132)cvLT731:LBLT65:A908:C924:E938:F951:LF960:LH980:LM772:LR64:MS768zvFV260:CV180:EV2vCA$(130)(179)(183)(179)(187)(191)(179)(179)(188)(156)vL1$(160)(134):L2$(152)(137)(152)(129)w:@LT,TA$;:@LB,BA$;0w$@832,(64,(131));tw.@900,"ALTITUDE";:@917,"COMPASS";:@933,"CLOCK";:@947,"FUEL";w8@982,"STANDBY - GASSING UP";:@C,CV;:@E," 0.00 ";:@A," 0000";:@F," ";wB@0,(63,(128));wL@MS,"0 COLUMBUS ==>";xV@794,(156);:@805,(172);:x`I026:J110:@F,I;:::G0cxjRI(5):RI2930,2950,2970,2990,3010xt@LF,(63,(128));:@982,"TO TAKE OFF PRESS Z";x~@LT,TA$;:@LB,BA$;xT$xEVEV2:@E,(EV)100;:I1150:xT$"Z"1190:1160xU$yLT641540yU$"N"15400yU$"Q"1990AyU$"P"2350PyWX31260ly@22,(20,(128));:WX0y@LR,(63,(128));:@128,(15,(128));y@LT," ";:@LB," ";yLTLT64:LBLT65y @LT,TA$;:@LB,BA$;"zAVAV1000:@A,AV;:DVAV:EVEV2:@E,(EV)100;=zMCMC1:MC0@MS,MC;oz(GG1:TT1:T1@982," ";z2T2@MS,(64,(128));z<M4AV4290zFM3AV4270zPM2AV4250zZM1AV4230zdM5AV1540znAV110001540{xFVFV2:@F,(FV)10;:FV03040&{G25FD13940:{G50FD12670U{G65FD1FV1703960i{G85FD23980~{G110FD22710{G125FD2FV1704000{G150FD34020{G175FD32750{G190FD3FV1704040{G2104060|G2352790|G2504080|1190#|N$4|N$"U"1190E|N$"Q"1990V|"N$"P"2350e|,WX41600|6@22,(20,(128));:WX0|@@LT," ";:@LB," ";|JLTLT64:LBLT65|T@LT,TA$;:@LB,BA$; }^DVDV1000:@A,DV;:AVDV:EVEV2:@E,(EV)100;2}hFVFV2:@F,(FV)10;:FV03040A}rDV02830\}|MCMC1:MC0@MS,MC;f}GG1z}G25FD13940}G50FD12670}G65FD1FV1703960}G85FD23980}G110FD22710}G125FD2FV1704000~G150FD34020~G175FD327504~G190FD3FV1704040D~G2104060T~G2352790d~G2504080|~RW(15):RW52310~RW102320~1540~&@LF,(63,(128));:@22,(20,(128));~0@968,"TO REFUEL PRESS F - IF READY TO TAKE OFF PRESS R";:RF$.DEVEV2:@E,(EV)100;:I1150:@NRF$"F"1900XXRF$"R"1890:1850vb@968,(49,(128));:1140lFVFV10:FV(FV):@F," ";:D0:T0:FZFZ1vFVFV1:EVEV2:@F,FV;:@E,(EV)100;:I1150:FV261930:1910C$$EVEV2:@E,(EV)100;:I1150:;C$"R"1960:1930Z@968,(49,(128));:FV260wM10:M20:M30:M40:M50RI(5):RI2930,2950,2970,2990,3010Q$V92350ǀDV01190؀Q$"U"1190Q$"N"1540Q$"P"2350 WX22070% @22,(20,(128));:WX0O@LT," ";:@LB," ";d LTLT3:LBLT65|*@LT,TA$;:@LB,BA$;4FVFV2:@F,(FV)10;:FV03040́>CVCV20:@C,CV;:EVEV2:@E,(EV)100;HMCMC1:MC0@MS,MC;RGG1\VV1:V92350fG25FD13940/pG50FD12670JzG65FD1FV1703960^G85FD23980sG110FD22710G125FD2FV1704000G150FD34020G175FD32750ՂG190FD3FV1704040G2104060G2352790G2504080RC(100):RC5032507RD(15):RD52330GRD102340Q1990} @22,"CAREFUL - CROSS WIND";:WX1:2350 @22,"CAREFUL - CROSS WIND";:WX2:1990Ճ @22," CAREFUL - UP DRAFT";:WX3:1190$ @22,"CAREFUL - DOWN DRAFT";:WX4:1540 . P$8 V91990'B DV011908L P$"U"1190IV P$"N"1540Z` P$"Q"1990ij WX12430t @22,(20,(128));:WX0~ @LT," ";:@LB," ";Ä LTLT3:LBLT65ۄ @LT,TA$;:@LB,BA$; FVFV2:@F,(FV)10;:FV03040, CVCV20:@C,CV;:EVEV2:@E,(EV)100;G MCMC1:MC0@MS,MC;Q GG1e VV1:V91990y G25FD13940 G50FD12670 G65FD1FV1703960 G85FD23980х G110FD22710 G125FD2FV1704000 G150FD34020 G175FD327503 G190FD3FV1704040C( G2104060S2 G2352790c< G2504080}F RC(100):RC503250P RD(15):RD52330Z RD102340d 2350n @LF3,"DAYTON BELOW - REFUEL? IF SO, APPROACH AT 220 ' AND LAND";x @MS1,"0 DAYTON ==> ";3 @800,(156);:@811,(172);G D2:DA1:MC0: @LF4,"INDIANAPOLIS BELOW - REFUEL? IF SO, APPROACH AT 260 '"; @MS1,"0 INDIANAPOLIS ==> ";· @806,(156);:@817,(172);⇴ D3:PO1:MC0:. @LF2,"LOGANSPORT BELOW - REFUEL? IF SO, APPROACH AT 300 ' AND LAND";N @MS1,"0 LOGANSPORT ==> ";n @812,(156);:@823,(172); D4:LP1:MC0:̈ @LF3,"CHICAGO BELOW - LAND AND UNLOAD THE MAIL. APPROACH AT 340 '"; @MS1,"0 CHICAGO ==> "; @818,(156);:@829,(172); D5:CH1:MC0:7 D2LB802G651830R D3LB808G1251830m" D4LB814G1901830, D5LB820G25041006 @LT,TA$;:@LB,BA$;@ 4310J @LF,(63,(128));T @970,"TOO BAD - YOU'RE SUPPOSED TO LAND ON THE RUNWAY";"^ I12000::@970,(47,(128));,h 3150jr @LR,"WEATHER REPORT: SEVERE ICING ABOVE 8000 FT.";:3030|| M19000:1140 @LR,"WEATHER REPORT: SEVERE TURBULENCE ABOVE 8000 FT.";:3030ъ M29000:1140 @LR,"WEATHER REPORT: HEAVY CLOUD COVER ABOVE 7000 FT.";:3030& M38000:1140j @LR,"WEATHER REPORT: SEVERE HAIL STORMS ABOVE 6000 FT.";:3030| M47000:1140ʋ @LR,"WEATHER REPORT: CEILING AND VISIBILITY UNLIMITED - FOR NOW.";:3030݋ M511000:1140 @128,(15,(131));: @LF,(63,(128));$ @0,(63,(128));K @982,"FUEL GONE - CRASH LANDING";u @LT," ";:@LB," "; LTLT64:LBLT65 @LT,TA$;:@LB,BA$;Ό DVDV1000:@A,DV;:DV10003120:3070& @LT,TA$;:@LB,BA$;0 DV0ʲ@LB," ";:@832,(64,(131));"5 43102: I11000:ID @LF,(63,(128));}N @981,"WE LOSE MORE MAIL THAT WAY";:I12000:X @LF,(63,(128));b @982,"TO TRY AGAIN PRESS /";l R$֍v R$"/"3200:3180퍀 @MS,(64,(128)); @LR,(63,(128));B LT731:LBLT65:AVDV:FV260:V0:CV180:EV0:T0:FD0:D0} M10:M20:M30:M40:M50:DA0:PO0:LP0:CH0:MC0:FZ0 @LT,TA$;:@LB,BA$;:1080 @MS,(64,(128));Ɏ @LF,(63,(128)); @979,"YOU'RE IN TROUBLE NOW - OLD CHAP"; 3450* @LT," ";:@LB," ";@ LTLT64:LBLT65X @LT,TA$;:@LB,BA$; DVDV1000:@A,DV;:AVDV:EVEV2:@E,(EV)100; FVFV2:@F,(FV)10;:FV03040Ə DV03350:3280 @LF,(63,(128));:Z0 @22," ";N* @969,"FORCED DOWN BY STORM - STANDBY UNTIL IT PASSES";:ZEV:T0:MC04 EVEV2:@E,(EV)100;:I1100::3450:EVZ103390:3380> Z0:3570H @LF,(63,(128));:1140ѐR @LF,(63,(128));\ @22," ";.f @970,"TOUGH LUCK OLD MAN - TRICKY STUFF, LIGHTNING";Lp AVDV:DV10003120:3070cz L(703):L63450 @L,L1$;:@L61,L2$;:@L123,L1$; @L," ";:@L61," ";:@L123," ";Α WW1:W63490:3460ޑ W0:3500: ML122:LCLB64:LDLB128 P1(MLT)(MLT10)0 P2(MLB5)(MLB9)J P3(MLC6)(MLC7)d P4(MLD7)(MLD2) P11P21P31P413410 Q1(G65)(FZ0) Q2(G65)(FZ1)ԒQ3(G65)(G110)(FZ1)Q4(G110)(G125)(FZ1)Q5(G110)(G125)(FZ2)1$Q6(G125)(G175)(FZ2)P.Q7(G175)(G190)(FZ2)o8Q8(G175)(G190)(FZ3)BQ9(G190)(G235)LK1(G235)(G250)VQ113780`Q213810ϓjQ313810ߓtQ413810~Q513840Q613840Q713840Q813870/Q913870?K113920ETFD11140cFD1:3900@LF2," BLOWN OFF COURSE - TRY FOR INDIANAPOLIS WITHOUT REFUELING";:3910:1140ǔFD21140֔FD2:3900(@LF3,"BLOWN OFF COURSE - TRY FOR LOGANSPORT WITHOUT REFUELING";:3910:11407FD31140F FD3:3900@LF4,"BLOWN OFF COURSE - TRY FOR CHICAGO WITHOUT REFUELING";:3910:1140FD41140(FD4:3900 2@LF3,"BLOWN OFF COURSE - FIND CHICAGO FAST. NO PLACE TO REFUEL";:G225:3910:1140+<@LF,(63,(128));:ZEV:cFEVEV2:@E,(EV)100;:I1100::EVZ30ʒ:3910mP3900ŖZ@LF4,"HOPE YOU FIND CHICAGO AGAIN - BEFORE YOUR FUEL RUNS OUT";:G225:3910:1140d@LH,"DAYTON AHEAD AT 220 DEGREES"; n@LM,"DAYTON ==>";:MC25:#x@MS,(63,(128));n@LF3," DAYTON NOW SOCKED IN - YOUR ONLY HOPE IS INDIANAPOLIS ";:@LF,(63,(128));:@LH1,"INDIANAPOLIS AHEAD AT 260 DEGREES";֗@LM,"INDIANAPOLIS ==>";:MC25:헠@MS,(63,(128));5@LF3,"RUNWAY NOW UNDER 2 FT. OF SNOW - TRY TO MAKE LOGANSPORT";:t@LF,(63,(128));:@LH,"LOGANSPORT AHEAD AT 300 DEGREES";@LM,"LOGANSPORT ==>";:MC25:@MS,(63,(128));@LF2,"LOGANSPORT DAM BURST - RUNWAY UNDER WATER - HEAD FOR CHICAGO ";:8@LF,(63,(128));:@LH,"CHICAGO AHEAD AT 340 DEGREES";X@LM,"CHICAGO ==>";:MC25:o@MS,(63,(128));@LF2,"CHICAGO NOW CLOSED DOWN - HIGH WINDS - YOU'VE HAD IT OLD BOY!";:@LF,(63,(128));:@22,(20,(128));?EV650@326,"ANOTHER LINDBERGH! - YOUR ELAPSED TIME WAS";(EV)100;:"HRS.";:4140EV750@324,"NOT BAD FOR A BEGINNER - YOUR ELAPSED TIME WAS";(EV)100;:"HRS.";:4140"@324,"PONY EXPRESS WAS FASTER - YOUR ELAPSED TIME WAS";(EV)100;:"HRS.";:4140$,Y14:X5123:(X,Y)::X123:Y1517:(X,Y):[6Y18:X12351:(X,Y)::X5:Y17151:(X,Y):~@I13000::@LF,(63,(128));J@LH,"TO START AGAIN PRESS /";TS$^S$"/"4200:4180h@256,(63,(128));:@320,(63,(128));r@384,(63,(128));:@704,(63,(128));6|@LF,(63,(128));:3200y@LR6,"ICE CLOGGED YOUR GAS LINE - THINK YOU WERE IN A 747?";M10:3070ќ@LR3,"STRONG WINDS BLEW OFF YOUR ELEVATOR - BUT YOU WALKED AWAY!";M20:3070,@LR1,"LOST IN THE CLOUDS AND RAN OUT OF FUEL - THINK YOU HAD RADAR?";H@F," 00.0";:M30:3040@LR7,"PLANE PELTED TO PIECES BY HAIL STONES - HARD LUCK!";M40:3070DV0LBLB64͝@LT," ";:@LB,CA$;ڝCRLB59@CR,(160);:I1400::@CR," ";*@CR65,(160):I120::@CR65," ";T@CR67,(160):I120::@CR67," ";@LB65,(160);:I120::@LB65," ";@LB1,(160);:I13000:LB,CA$;ڝCRLB59@CR,(160);:I1400::@CR," ";*@CR65,(160):I120::@CR65," ";T@CR67,(160):I120:{j * COPYRIGHT 1978 80-US PUBLISHING TACOMA, WA *j * DO NOT BE ALARMED AT THE FUNNY WAY THIS PGM LISTS!"j * CREATED FOR THE 80-US JOURNAL BY LEO CHRISTOPHERSON *kM,N,WZkk:300:.k#S$""Zk-T$"-SNAKE EGG-"vk2N1497464:@N,T$;:Nk<W$"!%>>aid= >ai= >ai= = "kAV$"!%>ia= "ldV4$"-7x7 "+lnV5$"LLߘZVVLLF "lxV6$"xZnȪZCNȪ "l1000lF1:P(F)49:7000:7105:@P(F)318,S$;lF2:P(F)561:7000:7100:@P(F)318,S$;mF3:P(F)320:7000:7100:@P(F)320,S$;'m19996m7853:250Om@P(1)349,T$;(30);im7200:F11:FF1:7129}mZ1ʑ7600:250mX14:8000:X:m@P(2)349,T$;(30);m7200:F12:FF1:7129:7850:Z1ʒm 7600:260n," SNAKE EGGS : INSTRUCTIONS TO PLACE A BET SUCH AS $123.45, PRESS 1,2,3,4,5, PAUSING BETWEEN EACH DIGIT TO SEE THAT IT HAS BEEN ACCEPTED. ";n-"TO CHANGE THE BET PRESS B.";(o." FINALLY, PRESS THE SPACER BAR TO ENTER THE BET. PRESS R TO START A NEW GAME."o/"AFTER THE FIRST TWO ROLLS, YOU MAY ROLL AGAIN UNTIL YOUR SCORE IS OVER 41... BUT, YOU LOSE IF YOUR TOTAL SCORE EXCEEDS 41.";o0" EACH ROLL RESULTS IN FROM 1 TO 22 POINTS."Dp1"YOU MAY WIN IF YOUR TOTAL SCORE IS CLOSER TO 41 THAN THE MACHINE'S.";p2" A ROLL OF ";(34);"SNAKE EGG";(34);" WINS. A ROLL OF ";(34);"SCRAMBLED EGG";(34);" LOSES.";q3" IF THE FINAL RESULT OF YOUR ROLLS IS THE SAME AS THE MACHINE'S... NO ONE WINS."q4"SNAKE LANGUAGE COMMENTS WILL BE TRANSLATED FOR YOU. THE COMPUTER CABLE TO THE TAPE AUX INPUT MAY BE CONNECTED TO AN AMPLIFIER'S AUX INPUT FOR SOUND EFFECTS !!!!!!"q514)"PRESS SPACER BAR TO BEGIN.";r6K$:K$" "ʒ:310rrF3:7000:7830:7820:7830:7835:7825:7845:@192,"YOU'VE REACHED";:@256,"YOUR LIMIT....";:9037:970r7853:7870:7850:CASH#1000000700:7945rW$"0":BET#0:@775,"BET ?";:@832,;:Q$;BET#;.sK$:(K$"/")(K$":")910:K$"B"900:K$"R"970:K$" "2015GsZB1:8000:ZB2:905sBET#BET#10(K$)100:@831,;:Q1$;BET#;:X910:9006sCASH#CASH#.000001sBET#CASH#ʲ@897,"BET TOO HIGH";:9003:9025:899s905>t@127,;:Q1$;BET#;:9030:@128," ";:CASH#CASH#BET#:CASH#1000000CASH#1000000Dtt@127,;:Q1$;BET#;:9030:@128," ";:CASH#CASH#BET#tt7850:@0," ";:@64," ";:@770,"NEW GAME ?";:@833,"...PRESS R ";uK$:K$"R"1999:8000u9751uH0$""IuH1$""auH2$""yuH3$""uI0$""uI1$""uI2$""uI3$""u8J0$"" v=J1$""!vBJ2$""9vGJ3$""QvLM1$""ivQM2$""vVM3$""v[M4$""v`M5$""veT1$""vjT2$""voT3$""wtT4$"")wyT5$""Aw~T6$""}wU1((V$)1):U2((V$)2):U3((W$)1):U4((W$)2)wV0U2256U1:V1V07:V2V011:V3V017 xW0U4256U3:W1W07:W2W010:W3W014:W4W018:W5W035:W6W039:W7W052:W8W056:W9W062!x16422,U3:16423,U4xU5((V4$)1):U6((V4$)2):U7((V5$)1):U8((V5$)2):U9((V6$)1):U0((V6$)2)xV4U6256U5:V5U8256U7:V6U0256U9xE0$""xE1$""xE2$"" yE3$"""yE4$"":yE5$""RyE6$""jyE7$""yE8$""yE9$""yN0$""yN1$""yN2$""y#N3$""z(N4$""z-N5$""-z2N6$""Bz7N7$""Wz<N8$""lzAN9$""zFO0$""zKO1$""zPO2$""zUO3$""zZO4$""z_OA$"":OB$"":OC$"":OD$""{dO6$""){iO7$""?{nO8$""U{sO9$""[{l{Q$"$$####,###.##":Q1$"+$$####,###.##":CASH#1000{7940:CASH#.000001.01970:899|@127,;:Q1$;BET#;:@128,"?";:8515:7870:R(1)1:240:S(1)O:ST(1)O"|R(2)1:260:S(2)O:ST(2)OB|7860:7880:W22000:2026g|7860:(S(1)20)(ST(1))412040q|7875|X130:K$:K$"1"2035:K$"2"2040:K$"R"15:8000|X:2026|R(1)R(1)1:249:S(1)O:ST(1)ST(1)O:2025|7850:2026,}7850:N14:8000:N:ST(2)312060:2050j}R(2)R(2)1:259:S(2)O:ST(2)ST(2)O:7860:S(2)212040} 7880:W22000:7200:7845:F2:7015:7850:7930:7900:2000}42000}X@P(F)64,H2$;:@P(F),H1$;:@P(F)128,H3$;:EP(F)1:)~]@P(F)64,I2$;:@P(F),E4$;:@P(F)128,I3$;:EP(F)4:b~b@P(F)64,J2$;:@P(F),E7$;:@P(F)128,J3$;:EP(F)6:t~f7015:7300:~gN1(3)1:7000:7005:9000:7000:7010:9000:N:7000:~l@P(F),H1$;:EP(F)1:~qEP(F)3ʑ7020~r@P(F),E0$;:EP(F)2: vEP(F)2ʑ7020'w@P(F),E1$;:EP(F)3:a{@P(F),E2$;:9000:@P(F),E3$;:9000:@P(F),E2$;:9000{|EP(F)7020,7025,7030(EP(F)4)(EP(F)5)ʒ:EP(F)3ʑ70007005(EP(F)6)(EP(F)7)ʒ:EP(F)3ʑ70007010@P(F),E4$;:EP(F)4:@P(F),I1$;:EP(F)5:S@P(F),E5$;:9000:@P(F),E6$;:9000:@P(F),E5$;:9000jEP(F)37050,7055@P(F),E7$;:EP(F)6:@P(F),J1$;:EP(F)7:؀@P(F),E8$;:9000:@P(F),E9$;:9000:@P(F),E8$;:9000EP(F)57065,7070ZB1ʒ:N1(4):7025:7030:N:7020:QZB1ʒ:N1(4):7050:9010:7055:9010:N:ZB1ʒ:N1(4):7065:9010:7070:9010:N:@P(F)192,N0$;:@P(F)256,N1$;:BP(F)1:@P(F)192,N8$;:@P(F)256,N9$;:BP(F)2:BP(F)27126:9000p@P(F)192,N2$;:@P(F)256,N3$;:9000:@P(F)192,N4$;:@P(F)256,N5$;:@P(F)192,N6$;:@P(F)256,N7$;:9000:7105BP(F)17123:9000@P(F)192,N6$;:@P(F)256,N7$;:9000:@P(F)192,N4$;:@P(F)256,N5$;:@P(F)192,N2$;:@P(F)256,N3$;:9000:7100BP(F)1ʲ@P(F)192,N2$;:@P(F)256,N3$;:N(2):N1ʒ:ZB1ʒ:N1(10):@P(F)199,(144);:9010:@P(F)199,(160);:255,1:255,0:N:@P(F)192,N6$;:@P(F)256,N7$;:N(2):N1ʒ:ZB1ʒ:N1(10):@P(F)196,(144);:@P(F)196,(160);:9010:255,1:255,0:N:qZB1ʒ:7100:N1(15):@P(F)200,(144);:9010:@P(F)200,(160);:255,1:255,0:N:΄ZB1ʒ:7105:N1(15):@P(F)195,(144);:@P(F)195,(160);:9010:255,1:255,0:N:F1:7010:7070:F2:7010:7070:F3:7005:7055:FF1:Z(8):Z17130:7014ȅ7115:@P(F),E8$;:@P(F)192,O6$;:@P(F)256,O7$;:9000:@P(F)327,(143)(183);:@P(F)192,O4$;:@P(F)256,O4$;:@P(F)326,(191)(131)(131);:@P(F)390,(170);a@P(F)192,O2$;:@P(F)256,O3$;:9001:@P(F)323,(163)(159)(135)(131);:@P(F)390," ";:@P(F)323,(131)(131)(131);:@P(F)387,OA$;:7105q@P(F),J1$;X910:O(22):NP(F)386P(F)384O1݆9000:9005:@N,OB$;:@N,OC$;:9005:@N,OD$;:@N,OA$;:9006QN:@N1,(191)(191);:W7,20:W8,(100)20:W1,1:"0";:9000:@N1,(30);:@N,(132)"( ROLL";R(F);")* =";O;oO217155:O217156:L14:@P(F)351," ";:9015:@P(F)351,"-SNAKE EGG-SNAKE EGG-SNAKE EGG-";:9004:L:aL14:@P(F)351," ";:9015:@P(F)351,"-SCRAMBLED EGG---SCRAMBLED EGG-";:9003:L: 7850:F3:7000:L(5):L7210,7220,7230,7240,7250*7825:7845ň+K(3):K7212,7213,7214,@193,"HERE WE GO";:7215 -7825:@192,"LET 'EM ROLL";:7215).7825:@193,"GET WITH IT";5/7845:E47815:7845b5K(3):K7222,7223,722467825:@192,"LET 'ER RIP";:721577840:@194,"EGGS AWAY";:7215ˉ8@192,"WHOMP IT OUT";:7215Չ>7825?K(3):K7232,7233,7237@7815:@192,"SHAKE AN EGG";:7215:A7815:@194,"LAY EGGS";:7215vE7840:@192,"SHAKE, RATTLE,";:@256,"AND ROLL..";:7215H7830:7820:7825:9005K@192,"GIVE US EGGS";:7215ŠR7825:7820ފU@194,"EGGS OUT";:72157000:L(7):L7310,7320,7330,7340,7350,7360,7370%7845:7815N7820:Y1:@P(F)384,"HAVE A HEART";f7845:9030:7855:|7820:7830:78357825:Y2:@P(F)384,"DO IT YOURSELF";:73157825:78207820:Y3:@P(F)384,"IT'S YOUR TURN";:7315 @P(F),E2$;:7835:7830'K(3):K7342,7343,7344T7820:Y9:@P(F)384," OH, WOW !";:73457825:Y4:@P(F)384,"YOU'RE KIDDING";:73457815:Y10:@P(F)384,"OH, BROTHER !";ƌ7845:7020:7315֌7825:78407815:Y5:@P(F)384,"SLAVE DRIVER";:73157@P(F),E2$;:9000:@P(F),E3$;:Y6:7815:7845OK(2):K7362,7366{7830:7830:7830:@P(F)384,"YOU ...";@P(F)448,;:N13:"@#! ";:9015:N͍7845:@P(F),E2$;:9000:7020:73157825:Y8:@P(F)385,"NOT AGAIN ?";:7365!Y7:7820:7835:7845:7825:7830\@P(F)384,"ONE MOMENT";:@P(F)448,"...PLEASE";:73157850:F3:7000:Y7610,7620,7630,7640,7650,7660,7670,7680,7690,77007840:7815͎K(2):K7612,76137835:@193,"I HAVE ONE";:76157825:@193,"IT'S BROKEN";:761547845:9030:7855:7850:D7815:7830\K(2):K7622,76247830:@193,"SASSY SNAKE";:76157835:@192,"IT'S YOUR JOB";:76157820:7835:7835֏K(2):K7632,76337830:@192,"DON'T BE FUNNY";:7615&7840:@192,"AFTER YOU BABY";:7615<7835:7830:7835TK(2):K7642,7643y7815:@193,"I'M SERIOUS";:76157815:7820:@193,"NOT AT ALL";:76157835:7845:7830:7840ܐK(3):K7652,7654,76567825:@194,"NO.....";@256,"SNAKE DRIVER";:7615;7815:@193,"CHEAP SHOT";:7615b7830:7825:@192,"GET YOUR TAIL";@256," IN GEAR";:76157825:7815:7815K(3):K7662,7663,7666ڑ7830:@192,"WELL, REALLY !";:76157815:7820:@192,"WELL NOW, A"; @256,"TALKING SNAKE";:7615F7825:7825:@192,"SAME TO YOU,";c@256," SISTER";:7615s7840:7820K(3):K7672,7673,7676@192," TIME'S UP !";:7615ג7825:@192,"HEY, LET'S GO";:76157835:7825:@193,"GET UP OFF";@256," YOUR ASP !";:7615*7825:7815GK(3):K7682,7683,7684g@192,"YES, AGAIN !";:76157830:@192,"DON'T COMPLAIN";:76157820:@192," HUSH UP";:7615 7815Փ K(2):K7692,7693 7825:@193,"HOW'S THAT ?";:7615! 7815:@193,"COME AGAIN ?";:761577825:7815:7815TK(3):K7702,7703,7706q@194,"THAT'S ME";:7615@193,"YES, SISTER ?";:76157835:7825:@192,"CRANK UP THE";Ԕ@258,"OLD TAIL";:7615QxZB1ʒ:PP(F)128:@P,T3$;:9005:N1(3)1:@P,T2$;:9000:@P,T1$;:9020:@P,T2$;:9002:@P,T3$;:N:9005:@P,I3$;:ΕZB1ʒ:PP(F)128:@P,T6$;:9005:N1(3)1:@P,T5$;:9000:@P,T4$;:9020:@P,T5$;:9002:@P,T6$;:N:9005:@P,J3$;:PP(F)128:@P,M4$;:X950:9006:@P,M5$;:8215:/PP(F)128:@P,M4$;:@P64,M1$;:8220:{PP(F)64:@P64,M5$;:X910:9006:@P,M1$;:X930:9006:@P,M2$;:8225:7825:@P,M3$;:8230:7825:@P64,M5$;:8235:ϖ7830:@P,M3$;:8240:@P(F)64,H2$;:@P(F)128,H3$;:9000:0@192," ";:@256," ";:`@P(1)349,T$;(30);:@P(2)349,T$;(30);:F3ʒ:@P(F)384," ";:@P(F)448," ";:@768,"TOTAL SCORES:";:@834,"PLAYER:";ST(1);:@897,"MACHINE:";ST(2);:!N70496064:@N," ";:N:vF3:7850:7000:7835:7815:7845:@193,"ROLL AGAIN ?";:@256,"YES(1) NO(2)";:W1:(S(1)21)(S(2)21)7920:(S(1)22)(S(2)22)7920S(1)217895:S(1)227890:S(2)217890:S(2)2278957850[F3:7000:7820:7825:7845:@192,"MACHINE WINS";:8510:9036:7870:7853:960:W2:e7850F3:7000:7820:7830:7845:@192," PLAYER WINS";:8520:9036:7870:7853:950:W2:ޙ(ST(1)41)(ST(2)41)7920ST(1)ST(2)7920ST(1)417890:ST(2)4178953ST(1)ST(2)7895:789097850:F3:7000:7815:7845:@196,"DRAW";:@128," ";:9036:7870:7853:W2:7000:7840:7825:7845:@P(F)448,"I WILL PASS";:9030:@P(F)448," ";:@4,"YOU HAVE:";:@64,;:Q$;CASH#;:i F3:7000:7820:7815:7830:7845:@193,"PLACE YOUR";:@257,"BET PLEASE";:s@8010JF(3):HP(7)OHP7000,7040,7045,8020,8020,8020,8060ߛTEP(F)8030,8030,8030,8040,8040,8050,8050X^EP(9)&cEP7020,7025,7030,7035,7035,8036,7080,7080,7080,d8hEP(9)mmEP7050,7055,7060,7060,8036,7085,7085,7800,7800yrEP(9)wEP7065,7070,7075,7075,8036,7090,7090,7810,7810|EP(3)ќEP7110,7115,7120眤F8110,8130,8120W2,1:W3,255:W4,255(X(5):X8112,8113,8114,8114,8114VW1,1:W5,1:N255150:W6,N:"0";:N:W1,1:W5,2:N225570:W6,N:W3,N:"0";:N:"0";:W2,3:W3,1:W4,2558111͝W2,4:W3,1:W4,1ם8111 W6,20:W7,2:W5,1:W1,10:8100/ W1,2:W5,20:W6,30:W7,1:W8,250:W9,200:8100b! W1,3:W5,20:W6,20:W7,1:W8,250:W9,20:8100& W6,15:W7,2:W8,250:W5,20:W1,25:8100+ W1,2:W5,20:W6,15:W7,1:W8,25:W9,20:81000 W1,1:W5,10:W6,2:W7,1:W8,200:W9,200:8100Y4!16422,U1:16423,U2:MV9V9N12:V1,(M):V2,(M1):V3,(M1):"0";:M:16422,U3:16423,U4:n>!V9V5:N22:8500C!V9V4:N12:8500H!V9V6:N84:8500(#M15:M:Ɵ)#M13:255,1:255,0:M:*#255,1:255,0:9010:255,1:255,0:A#1000:255,1:255,0:1+#M130:255,1:255,0:255,1:255,0:M:c,#W1,15:W2,20:W3,1:W4,1:"0";:W1,1:W2,1:t-#M110:M:.#W7,3:X9X99:W8,X9:W1,1:"0";:2#M13:M:7#M150:M:͠<#M112:M:ߠA#M1100:M:F#M1200:M:L#N13:8000:N:$M#9003:N113:8000:N:n:16409,1:(21);0o "";zo "";o "";p " ";Xp " ";p " >> ANDROID NIM <<";p " by ";6q " LEO CHRISTOPHERSON ";q "";q "Licensed to PowerSoft Products - Dallas, TX ";r "Copyright (C) 1979, 1986 - All Rights Reserved ";^r "";r "";r "";MD$"BRUTISH":'u?MD$"BARBARIC":>aid= >a0i= >ai= = "xnT$"!%>>ZaGiG= = "xx900x9000x10000xX91::@25,(34);"ANDROID NIM";(34); yX194:8000:@X,BQ$;&yX517:8000:@X,BQ$;?yX835:8000:@X,BQ$;iyY91:RW$(1)"0":RW$(2)"0":RW$(3)"0"yy1040:1050yX254:N17:XX7:8000:N:X570:N15:XX8:8000:N:X885:N13:XX9:8000:NyRW$(1)"7":RW$(2)"5":RW$(3)"3"z8200czN7733364:@N,(30);:N:N40265864:@N,(30);:N:N73098664:@N,(30);:N:@22," ";:z@540,"First move by you (1) or me (2) ?";z1060zX194:8005:X517:8005:X835:8005:{$8070:K$:K$""1060:K$"1"1110:K$"2"1075ELS1060{(1060|{3X92:@540,"OK, I'll start ! ";:O15:8070:O:@540," ";:1016|VX91:@540," Very well, you may start ! ";:X517:8010:X835:8010:X194:8010:M15:8070:M:@540," ";:1016}|@540,"Which one of us is ";(34);K$;(34);" ? ";:X835:8010:X194:8010:X517:8010:8112:1050|X@22," ";|]Y97020,7010,7010|^7200|bM(2):M7020,7200|lO112:8070:O:7275} Z1:7500:Z1Z0:Z2:7500:Z2Z0:Z3:7500:Z3Z0P}*Z4Z1Z2:Z5Z1Z3:Z6Z2Z3:Z4$(Z4):Z5$(Z5):Z6$(Z6)}48070:Z407230:Z0(Z4$):Y01:Z40:NZ011}6(Z4$,N,1)"1"Z4Z4Y0}7Y0Y02:N}>8070:Z507240:Z0(Z5$):Y01:Z50:NZ011~@(Z5$,N,1)"1"Z5Z5Y0~AY0Y02:NG~H8070:Z607250:Z0(Z6$):Y01:Z60:NZ011d~J(Z6$,N,1)"1"Z6Z6Y0s~KY0Y02:N}~M8070~R(RW$(3))Z47255~SRW3:8430:RN(RW$(3))Z4:RN$(RN):RN$(RN$,1):X91:8240~W(RW$(2))Z57260/XRW2:8420:RN(RW$(2))Z5:RN$(RN):RN$(RN$,1):X91:8240G\(RW$(1))Z67270]RW1:8410:RN(RW$(1))Z6:RN$(RN):RN$(RN$,1):X91:8240f8070:X80:(Z40)(Z50)7300kM(3)lM7277,7278,7279m(RW$(1))07278:RW1:7290:8410:X91:X80:8240X9174007600:8070:X194:8035:8110:X835:8035:8116:X517:8035:8116:@453,H5$;:8116:@771,H5$;:8116:@130,H5$;:8112:@130,HR$;8114:@771,HR$;:8116:@453,HR$;:8114:7420%1055:@536,MB$;:@472,MA$;:@600,MC$;:9540P@794,"New Game? Yes (1) or No (2)";8070:K$:K$""7425:K$"1"1012:74309620::1040:RW$(1)"0":RW$(2)"0":RW$(3)"0":@540,"Since you have given up ... ";:O18:8070:O:1040:74003L(RW$(Z))17505,7510,7515,7520,7525,7530,7535,7540>QZ00:IVZ01:U[Z010:a`Z011:neZ0100:{jZ0101:oZ0110:tZ0111:7700:W1$MD$ȃ7700:MD$W1$7601:W2$MD$7700:(MD$W1$)(MD$W2$)7602:W3$MD$,7700:(MD$W1$)(MD$W2$)(MD$W3$)7603:W4$MD$m7700:(MD$W1$)(MD$W2$)(MD$W3$)(MD$W4$)7604:W5$MD$7700:(MD$W1$)(MD$W2$)(MD$W3$)(MD$W4$)(MD$W5$)7605:W6$MD$ 7700:(MD$W1$)(MD$W2$)(MD$W3$)(MD$W4$)(MD$W5$)(MD$W6$)7606:W7$MD$@412,"THROUGH SOME ";W1$" ,";:B(W1$):9510:@468,W2$" ,";:B(W2$):9510:@468,W2$" , "W3$" ,";:B(W3$):9510:@468,W2$" , "W3$" , "W4$" ,";:B(W4$):9510@532,W5$" ,";:9510:@532,W5$" , "W6$" ,";:9510:@532,W5$" , "W6$" , "W7$" ,";:9510m@610,"STROKE OF FATE...";:B15:9510:8118:@678,"YOU WIN !?";:B7:9550sM(50)M50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99"A(RW$(1))77952:X205:d(RW$(1))67953:X212:7975(RW$(1))57954:X219:(RW$(1))47955:X226:Ň(RW$(1))37956:X233:7979(RW$(1))27957:X240:(RW$(1))17958:X247:X194:.(RW$(2))57962:X530:Q(RW$(2))47963:X538:7983t(RW$(2))37964:X546:7988(RW$(2))27965:X554:(RW$(2))17966:X562:X517:݈#(RW$(3))37972:X858:$(RW$(3))27973:X867:7992%(RW$(3))17974:X876:+&X835:H'N(3):N7976,7977,7978N()@X64,HP$;:@X127,HO$;:@162,HJ$;:@99,HI$;:@169,HD$;:@106,HC$;:͉*@X64,HD$;:@X127,HC$;:@176,HB$;:@113,HA$;:+N(3):N7980,7981,7982,%-@X64,HR$;:@X127,HQ$;:@176,HJ$;:@113,HI$;:Z.@X64,HD$;:@X127,HC$;:@183,HJ$;:@120,HI$;:|/N(4):N7984,7985,7986,79870͊1@X64,HD$;:@X127,HC$;:@482,HJ$;:@419,HI$;:@498,HB$;:@435,HA$;:2@X64,HB$;:@X127,HA$;:@482,HP$;:@419,HO$;:73@X64,HR$;:@X127,HQ$;:@490,HD$;:@427,HC$;:T4N(3):N7989,7990,7991Z56@X64,HD$;:@X127,HC$;:@490,HJ$;:@427,HI$;:ċ7@X64,HB$;:@X127,HA$;:@498,HP$;:@435,HO$;:8N(6):N7993,7994,7995,7996,7997,79939+:@X64,HP$;:@X127,HO$;:@812,HR$;:@749,HQ$;:i;X30ʒ:@X64,HD$;:@X127,HC$;:@130,HJ$;:@67,HI$;:<X30ʒ:@X64,HB$;:@X127,HA$;:@453,HP$;:@390,HO$;:=X30ʒ:@X64,HD$;:@X127,HC$;:@771,HJ$;:@708,HI$;:(@@X,BA$;:@X64,BB$;:@X64,HB$;:@X127,HA$;:@X128,FC$;:E8100:@X64,HD$;:@X127,HC$;:8100:@X64,HF$;:@X127,HE$;:8100:@X64,HH$;:@X127,HG$;:J8100:@X64,HF$;:@X127,HE$;:8100:@X64,HD$;:@X127,HC$;:8100:@X64,HB$;:@X127,HA$;:QO8100:@X64,HJ$;:@X127,HI$;:8100:@X64,HL$;:@X127,HK$;:8100:@X64,HN$;:@X127,HM$;:T8100:@X64,HL$;:@X127,HK$;:8100:@X64,HJ$;:@X127,HI$;:8100:@X64,HB$;:@X127,HA$;:IYM(2)1:L1M:8100:@X64,HJ$;:@X127,HI$;:8100:@X64,HB$;:@X127,HA$;:8100:@X64,HD$;:@X127,HC$;:8100:@X64,HB$;:@X127,HA$;:L:^8100:@X64,HP$;:@X127,HO$;:TB2ʒ:N(3):N1ʲ@X62,(181);(186);:9500:@X64,HP$;:_֏c8100:@X64,HR$;:@X127,HQ$;:AhTB2:M(3):L1M:8030:8100:@X64,HB$;:@X127,HA$;:8035:8100:@X64,HB$;:@X127,HA$;:L:TB1:m8100:@X4,BE$;:@X68,BF$;:8100:@X4,BG$;:@X68,BH$;:@X4,BI$;:@X68,BJ$;:8100:@X4,BK$;:8110:@X4,BL$;:[r8100:@X4,BK$;:X3X:8070:8070:XX3:8110:@X4,BI$;:@X68,BJ$;:8100:@X4,BG$;:@X68,BH$;:8100:@X4,BE$;:@X68,BF$;:8110:@X4,BC$;:@X68,BD$;:w@X64,HD$;:@X127,HC$;:N(3):N1ʲ@X61,(131);(158);:9500:@X64,HD$;:x |8100:@X64,HJ$;:@X127,HI$;:N(3):N1ʲ@X63,(173);(131);:9500:@X64,HJ$;:}`8100:@X64,HB$;:@X127,HA$;:@X62,(150);(169);:9500:@X64,HB$;:M(16):K(50)50:Y(18):8075:X3X8070:X308071:(M8)(M12)8071:8070뒇M78089:M8005,8015,8030,8035,8055,8060,80658079VY8076,8077,8078,7951,7952,7953,7954,7955,7956,7957,7961,7962,7963,7964,7965,7971,7972,7973bX194:nX517:zX835:X1(5)X18081,8070,8081,8070,8081ѓM8087,8088,8082,8083,8084,8085,8086@X127,H4$;:8100:@X127,HO$;:@X64,H5$;:8100:@X64,HR$;:?@X64,H2$;:8100:@X64,HD$;:c@X64,H3$;:8100:@X64,HJ$;:@X64,H1$;:8100:@X64,HB$;:@X64,H6$;:8100:@X64,HH$;:ϔ@X64,H7$;:8100:@X64,HN$;:M78090,8091,8092,8093,8094,8095,8096,8097,8098<@67,HO$;:@130,HP$;:@390,HC$;:@453,HD$;:8100:s@67,HQ$;:@130,HR$;:@708,HI$;:@771,HJ$;:8100:@390,HA$;:@453,HB$;:@708,HO$;:@771,HP$;:8100:@67,HQ$;:@130,HR$;:@390,HI$;:@453,HJ$;:@708,HO$;:@771,HP$;:8100:/@390,HO$;:@453,HP$;:@67,HQ$;:@130,HR$;:8100:o(X194)(X517)(X835)8120:@X,BM$;:@X64,BN$;:8100:(X194)(X517)(X835)8130:@X,BA$;:@X64,BB$;:8100:Җ@X4,BO$;:@X68,BP$;:8100:@X4,BG$;:@X68,BH$;:8100:N16:N:N150:N:(N1400:N::N1200:N:LN1100:N:eO1(2):8070:O:@X,BR$;:@X64,BN$;:8100:@X,BQ$;:@X64,BB$;:8100:= X80:X927000:X30:@11,"YOUR TURN *";:@40,"* YOUR TURN";:9550:K1130:8070:K$:K$""8201:(K$"0")(K$"4")8210:K$"R"7450:8201K K1:8200k RW(K$):RW8410,8420,8430 8070:K$:K$""8220:(K$"0")(K$"8")8225:K$" "ʑ8325:8220 8200ǘ! X92ܘ& RN$K$:RN(RN$)0 (RN(RW$(RW)))(X91)X813 (RN(RW$(RW)))(X92)X9155 RW8260,8270,8280i7 ((RW$(1))0)((RW$(2))0)((RW$(3))0)7300~: X808200:7270D @128,RN$;:X194:8300N @448,RN$;:X517:8300ϙX @768,RN$;:X835:83003l 8015:X3X:8070:XX3:8020:@X62,(150);(169);:9500:@X64,HB$;:8005:X3X:8070:XX3:8010Qv RN(RW$(RW))8320:8400[ 8025r RW8330,8340,8350 @128," ";:@192," ";: @448," ";:@512," ";:ƚ @768," ";:@832," ";:& 8405:8040:X3X:8070:XX3:8005:X3X:8070:8070:XX3:8045:8450:8500:8050:8010:8325j 8040:8005:X3X:8070:XX3:8045:8450:8500:8050:8010:8325{ @192,"1";: @512,"2";: @832,"3";:!RW8460,8470,8480 !X254:(RW$(1))08461:O1(RW$(1)):XX7:8015:O@ !X517:8030:X570:(RW$(2))08462:TB2:O1(RW$(2)):XX8:8030:O:TB1!X835:8030:X885:(RW$(3))08463:TB2:O1(RW$(3)):XX9:8030:O:TB1!X194:؜!X570:(RW$(2))08471:O1(RW$(2)):XX8:8015:O!X194:8035:X254:(RW$(1))08472:O1(RW$(1)):XX7:8035:Op!X835:8030:X885:(RW$(3))08473:TB2:O1(RW$(3)):XX9:8030:O:TB1|!X517: !X885:(RW$(3))08481:O1(RW$(3)):XX9:8015:O!!X517:8035:X570:(RW$(2))08482:O1(RW$(2)):XX8:8035:OE"!X194:8035:X254:(RW$(1))08483:O1(RW$(1)):XX7:8035:OQ#!X835:}4!Z1(RW$(RW)):Z2Z1RN:RW$(RW)(Z1RN)H!RW8530,8540,8550R!Z$"===-":Z3205:Z47:Z52547Z1:8560\!Z$"===-":Z3528:Z48:Z55708Z1:8560f!Z$"===-":Z3846:Z49:Z58859Z1:8560gp!M1RN:@Z31,"=";:NZ3Z53:@Z31,(143);:"0";:@N,Z$;:@Z31,"=";:Nu!9530:@Z5,FA$;:@Z564,FA$;:@Z564,FA$;:@Z5128,FA$;:@Z5128,FA$;z!@Z5,FB$;:@Z564,FB$;:@Z564,FB$;:@Z5128,FB$;:@Z5128,FB$;:NZ3Z53:@N," ";:N!Z5Z5Z4:M=!Y9Y91:X3X:8070:XX3:(#HA$"":HB$"":H1$"":HC$"":HD$"":H2$""̠2#HE$"":HF$"":HG$"":HH$"":H6$"" <#HI$"":HJ$"":H3$"":HK$"":HL$""NF#HM$"":HN$"":H7$"":BA$"":BB$""P#FC$"":HO$"":HP$"":H4$"":HQ$"":HR$"":H5$""d#BC$"":BD$"":BE$"":BF$"":BG$"":BH$"":BI$"":BJ$""Cx#BK$",-=":BL$"'-=":BM$"":BN$"":BO$"":BP$""{#FA$"":FB$"":BR$"":BQ$""#MA$""Ӣ#MB$""$MC$""'Y$T8(16422):T9(16423):T7(14312)G^$T1((S$)1):T2((S$)2)h$S0T1T2256:S1S07:S2S010:S3S014:S4S018:S5S035:S6S039:S7S052:S8S056:S9S062ȣ|$T3((T$)1):T4((T$)2)꣆$T0T3T4256:T5T07:T6T010$9600$D%S5,5:S6,(X4):N1(8)1:S1,(10):S7,(3):S8,(150):"0";:N:&%S1,B2:S2,5:S3,255:S4,255:S5,B2:S6,(100):S7,1:"0";:S2,1:8118:0%S1,1:S2,1:S5,5:S7,7:N2501016:S3,N:S4,N:S6,N:S8,N5:@Z31,"-";:"0";:@Z31,"=";:N::%9610:"0";:9600:FD%T5,16:T6,255:9610:"0";:9600:T5,1:T6,90:ťN%S1,12:S2,1:S3,1:S4,1:S5,50:S6,100:S7,50:S8,200:"0";:S2,1:S3,255:S4,255:@11," ";:@40," ";:ꥀ%14312,255:16422,T1:16423,T2:%14312,255:16422,T3:16423,T4:5%:14312,T7:16422,T8:16423,T9:;&'26)"ANDROID NIM"::"When you see an ";(34);"*";(34);" to the left of ";(34);"ANDROID NIM";(34);" it's your turn.";'"Then press the number, ";(34);"1";(34);", ";(34);"2";(34);", or ";(34);"3";(34);", of the row you wish toremove androids from. You need not press ";(34);"ENTER";(34);". If you change";ۧ$'"your mind, press the ";(34);"SPACE BAR";(34);"; it erases. If you wish to give"; .'"up... press the ";(34);"R";(34);" key."8':"RULES: You may remove as many androids as you wish from any rowwhen it is your turn. To win, you must remove the last android.";WB'"A test signal is now being output on the cable to the recorder'sAUX input... Plug this cable into an amplifier's AUX input andadjust the volume to enjoy sound effects during the game."L'K$:K$" "1000:@976,"Press ";(34);"SPACE BAR";(34);" to continue...";V'N115:255,1:255,0:255,1:255,0:Q100006:255,1:255,0:N:@976,(30);:8110:10060 j'00:FD%T5,16:T6,255:9610:"0";:9600:T5,1:T6,90:ťN%S1,12:S2,1:S3,1:S4,1:S5,50:S6,100:S7,50:S8,200:"0";:S2,1:S3,255:S4,255:@11," ";:@40," ";:ꥀ%1431qj : ==== THE TOWERS OF HANOI ====j: BYj: MICHAEL BYRNEj( 93j2: 1430: 1510:MAX10k< N(3),P1(MAX),P2(MAX),P3(MAX),SK(10MAX)3kFSC1:AL2:DN3:CT0:P1(0)99:P2(0)99:P3(0)99OkPNM0:J0:I0:SP0:B0:wkZ"HOW MANY DISCS WOULD YOU LIKE";CTkd CTMAX "THAT WILL TAKE SOME TIME AND FIRST YOU WILL HAVE TO CHANGE LINE 50":kn CT0 "SORRY, THAT'S NOT POSSIBLE": 90Vlx CT3 "YOU HAVE NO SENSE OF ADVENTURE - BUT I SUPPOSE YOU HAVE TO START SOMEWHERE"plN(1)CT:N(2)0:N(3)0m AN$"YES" AN$"NO" "TYPE 'A' IF YOU WANT ME TO DO ALL THE WORK (I.E. AUTOMATIC OPERATION) OTHERWISE TYPE 'M' FOR MANUAL OPERATION":"WHICH WOULD YOU LIKE ";Dm"AUTOMATIC OR MANUAL (A OR M)";MODE$[m MODE$"A" 280m"HOW FAST (0 IS FASTEST, 10 IS SLOWEST)";Sm:1160m540:SP4mSK(SP3)CT:SK(SP2)SC:SKK(SP1)DN:SK(SP)ALmBSP:SPSP4-nSK(SP3)SK(B3):SK(SP2)SK(B2):SK(SP1)SK(B1):SK(SP)SK(B)An CT1 260gnSPSP2:SK(SP1)1:SK(SP)3: 590pn270zn 820n@832,"";:510n: 1160:S0n" 540n,@832," ";n6@832,"FROM PEG";: Fo@@860,"TO PEG";: TBoJ F1 T1 F3 T3 "NO SUCH PEG": 300aoT FT "NOT ALLOWED": 300o^ N(F)0"THERE ARE NO DISCS ON PEG ";F:300ohIN(F):JN(T)or F 380,410,430o|T1P1(I)o T2 T2P2(J):: T2P3(J)o 440pT1P2(I): T1 T2P1(J):: T2P3(J)'p 440QpT1P3(I): T2 T2P2(J):: T2P1(J)qp T1T2 "NOT ALLOWED":300pSPSP2:SK(SP1)F:SK(SP)Tp 590p N(1)0 N(2)0 N(3)CT 480:: 300qM2CT1:@832," ":@832,"";gq NMM ʲ"CONGRATULATIONS! YOU DID IT" : NMMM0.15 ʲ"NOT BAD AT ALL"q"YOU TRANSFERRED ALL THE DISCS IN ";NM;" MOVESq"CARE FOR ANOTHER GAME (YES OR NO)";q AN$q AN$"N" AN$"NO" : : 80qJCT r& I1 CT"r0P1(I)J:JJ1: I(r:JrD:============= SHIFT DISCSlrNNMNM1:SESK(SP1):DESK(SP)rX I1 30S: IrbIN(SE):Y33(I2)rl SE1 640rvTDP1(I):X20: 670r SE2 660rTDP2(I):X52: 670rTDP3(I):X84sP2:SIZETDs 13402sIN(DE)1:Y33(I2)Ds DE1 720\sP1(I)TD:X20: 750ns DE2 740sP2(I)TD:X52: 750sP3(I)TD:X84sP1s 1340sN(SE)N(SE)1s N(DE)N(DE)1sSPSP2s @23,"MOVE ";NMs*&t4:============= HANOI(RECURSIVE PROCEDURE)It> SK(SP3)2 840 : 1010ZtHBSP:SPSP4qtRSK(SP3)SK(B3)1t\SK(SP2)SK(B2)tfSK(SP1)SK(B)tpSK(SP)SK(B1)tz 820tBSP:SPSP2tSK(SP1)SK(B2)tSK(SP)SK(B1)t 590 uBSP:SPSP4!uSK(SP3)SK(B3)14uSK(SP2)SK(B)IuSK(SP1)SK(B1)\uSK(SP)SK(B2)fu 820qu 1130uBSP:SPSP2uSK(SP1)SK(B2)uSK(SP)SK(B)u 590uBSP:SPSP2u$SK(SP1)SK(B2)u.SK(SP)SK(B1)u8 590vBBSP:SPSP2vLSK(SP1)SK(B),vVSK(SP)SK(B1)6v` 590BvjSPSP4Hvtgv~:============= DRAWPEGSv:: PROC DRAWPEGSv@256,"";:A$(191)v I1 7v" ";A$;" ";A$;" ";A$v Iv" ";w I1 44: A$;: IHw:" 1 2 3"VwY31:X20jw ICT 1 1{w J1 Iw (XJ,Y)w (XJ2,Y)w  Jw YY2w Iw(w2:============= SWITCH PROCEDURE x< P2 1390xF J1 SIZE7xP (XJ,Y):(XJ2,Y)?xZ JJxd 1420[xn J1 SIZEvxx (XJ,Y):(XJ2,Y)~x JxxD$(63,"*")x@256,D$x D$:x@463,"T H E T O W E R S"x@542,"O F H A N O I":x D$x D$yyI1 1000: IQy@896,"DO YOU WANT INSTRUCTIONS (YES OR NO)";: AN$qy AN$"Y" AN$"YES" wyy@23,"INSTRUCTIONS"y@87,"------------":y"" THERE ARE THREE PEGS. ON ONE OF THESE IS ARRANGED, z,"IN ORDER OF DECREASING SIZE, A NUMBER OF DISCS.":az6" THE OBJECT IS TO MOVE ALL THE DISCS FROM THE LEFTMOST"z@"PEG (1) TO THE RIGHTMOST PEG (3), SUBJECT TO THE FOLLOWING"zJ"CONSTRAINTS :-":zT" 1. ONLY ONE DISC MAY BE MOVED AT A TIME",{^" 2. A DISC MAY NOT BE PLACED ON TOP OF A DISC WHICH">{h"IS SMALLER"I{r 2000b{|@23,"PLAYING HANOI"}{@87,"-------------":{" THERE ARE TWO MODES OF PLAY. THESE ARE UTOMATIC"{"AND ANUAL AND YOU WILL BE ASKED TO SELECT ONE.":|"AUTOMATIC OPERATION"U|" THE COMPUTER WILL ASK YOU HOW MANY DISCS YOU WOULD LIKE"|"MOVED AND HOW FAST YOU WOULD LIKE THEM MOVED. IT WILL"|"THEN PROCEED TO TRANSFER THE DISCS FROM PEG 1 TO PEG 3"|"USING PEG 2 AS AN INTERMEDIATE."} 2000}@23,"PLAYING HANOI"7}@87,"-------------":O}"MANUAL OPERATION"}" HERE YOU WILL BE ASKED HOW MANY DISCS YOU WOULD LIKE"}"TO MOVE. THEN YOU WILL BE PROMPTED TO TYPE THE NUMBER OF"~"THE PEG THE DISC IS TO BE TAKEN OFF AND THE NUMBER OF THE"U~"PEG THE DISC IS TO BE PLACED ON. WHEN YOU HAVE SUCCESSFULLY"~&"TRANSFERRED ALL DISCS YOU WILL BE TOLD HOW MANY MOVES"~0"IT TOOK."~:2000~D@23,"SUGGESTION"~N@87,"----------":X" IF YOU ARE UNSURE OF THE GAME TRY AUTOMATIC OPERATION"[b"WITH ABOUT FOUR DISCS AND LOW SPEED (E.G. 10). THEN SIT"l"BACK AND LET THE COMPUTER DO ALL THE WORK - AFTER ALL THAT"v"IS WHAT IT IS THERE FOR.":" FOR A GIVEN NUMBER OF DISCS, N, THE SMALLEST NUMBER OF"&"MOVES REQUIRED IS GIVEN BY :-"E" M = 2[N-1"SO FOR 3 DISCS THAT'S 7 MOVES, 4 DISCS 15 MOVES UP TO""THE MAXIMUM OF 10 DISCS WHICH REQUUIRES 1023 MOVES.":Ԁ" HAVE FUN!"߀ 2000 @960,"PRESS WHEN READY"; D$: