!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(@ wPj1000fjDXHXCX:DYHYCYj(DX0ʏDY0DSDY:MV2::DSDY:MV8:j2DY0ʏDX0DSDX:MV6::DSDX:MV4:j<DS(DX):DS(DY)DS(DY)jFDY0ʏDX0MV3::MV1:kPDX0MV9::MV7:\kZFG0:C(I,4)0C(I,4)0:@8762I," ";:@9402I," ";:FG1::kdLF0:K1NC:@468,F$(K8);:C(K,0)LFLF1:K:KknLF0ʒ:4000kxNXPX:NYPY:MV130,140,150,160,,170,180,190,200kNXPX1:NYPY1:kNYPY1:lNXPX1:NYPY1:"lNXPX1:0lNXPX1:FlNXPX1:NYPY1:TlNYPY1:jlNXPX1:NYPY1:l@109,"SHIELD RAISED ";:HTʲ@875,"Y";:HD1::@8762I,"Y";:C(I,5)1:m@109,"SHIELD LOWERED";:HTʲ@875,"N";:HD0::@8762I,"N";:C(I,5)0:mHTMMHL:MMC(I,7)`m@10764MM,MM;M$;:HTʒ:K13:J125:@468,F$(J);:J,K:mHTʲ@938,"##";HS;::@9392I,C(I,4);:mL17174764:@L,(21,32);:L:m@64PY3PX,".";:@64NY3NX,P$;:mAN0:BD(NX,NY)2AN1::!n"FG0:BD(NX,NY)1FG1::Xn,FG0:BD(NX,NY)2 BD(NX,NY)BD(PX,PY)FG1::n6FG0:RN(8):RN320,330,340,350,360,370,380,390n@NX7:NY5:400nJNX8:NY6:400nTNX9:NY7:400n^NX8:NY8:400nhNX7:NY9:400nrNX6:NY8:400o|NX5:NY7:400 oNX6:NY65oHXNXHYNY310moK13:N125:@468,(F$(N),1)P$(F$(N),1);:N,KoJ1NC:@468,(F$(J),1)P$(F$(J),1);:C(J,0)0440oC(J,1)NXC(J,2)NY310oJ:HT4600pC(I,1)NX:C(I,2)NY:C(I,4)C(I,4)1:90:FGC(I,0)0:100::220:250:@469," ";:270:qpHXNX:HYNY:HSHS1:HS06000:220:250:@469," ";:270:p:150:AZ:C(8,8),BD(14,14),F$(25)p:(23);:@398,"ARENA OF OCTOS":@718,"BY AL JOHNSTON":@782,"APRIL 25, 1981"qY014:X014:BD(X,Y)2:X,Y9qY15:X16Y:X28Y:1040:Y:1050bqXX1X2:BD(X,Y)0:BD(X,14Y)0:X:qY68:X113:BD(X,Y)0:X,Yq$X4:Y3:1070:X9:1070:Y10:1070:X4:1070:1080q.BD(X,Y)1:BD(X1,Y1)1:BD(X1,Y)3:BD(X,Y1)3:(r8X3:Y5:1090:X10:1090:Y8:1090:X3:1090:1100^rBBD(X,Y)5:BD(X1,Y1)5:BD(X1,Y)4:BD(X,Y1)4:rLX68:BD(X,5)2:BD(X,9)2:XrVY68:X59:BD(X,Y)2:X,Yr`BD(7,6)1:BD(6,7)1:BD(7,7)1:BD(8,7)1:BD(7,8)1sjI125:F$(I)(128(63))(128(63))(128(63)):I?st:@450,"DO YOU WANT INSTRUCTIONS?qs~A$:A$""1150:A$"Y"5000:A$"N"1150s"DO YOU WANT A PRACTICE SESSION?sA$:A$""1170:A$"Y"DD0:A$"N"DD1:1170sNC0sNCNC1:DD0NC2DD1:NC1*tY0:I0:1220:Y5:1220:Y7:1220:Y8:1220[tY4:I8:1220:Y6:1220:Y3:I3:1220:1230ttX18:C(X,Y)I:X:tI18:X,Y:C(I,1)X:C(I,2)Y:It 5,1,9,13,13,5,1,9,9,1,5,13,13,9,1,5tI1NC:C(I,0)1:I:HT0u:X2659:(X,2):(X,42):.uY1529:(0,Y):(1,Y):(84,Y):(85,Y):nuY14:X224 2:(X,Y):(X1,Y):(84X,Y):(85X,Y):YY1:u Y30:X224 2:(X,Y):(X1,Y):(84X,Y):(85X,Y):YY1:uX,Y:X01320:IXY3:@I,".";:I:1300ev 79,91,140,158,201,225,262,292,323,359,387,402,408,423,451,463,475,487,515,530,536,551,579,615,646,676,713,737,780,798,847,859,0,0v(X4144:(X,19):(X,25)::X3940:(X,20):(X6,20):(X,24):(X6,24)::Y2123:(37,Y):(38,Y):(47,Y):(48,Y):Cw2A$(130)(129):@269,A$;:@284,A$;:@394,A$;:@415,A$;:@586,A$;:@607,A$;:@717,A$;:@732,A$;w<A$(160)(144):@205,A$;:@220,A$;:@330,A$;:@351,A$;:@522,A$;:@543,A$;:@653,A$;:@668,A$;wF@834,"ARENA";:@897,"OF OCTOS";xP@811,"H 1 2 3 4 5 6 7 8";:@866,"SHIELD:";:@928,"STRENGTH:";ZxZI1NC:@(64C(I,2)3C(I,1)1),I;:@8762I,"N";:@9402I,"8";:Iuxd@875,"N";:@938,"10";xnHT1:PX7:PY4:P$"H":HS11:310:270:HD0:HM10:HL0:DD3000:@98,"PRACTICE";:@164,"COMBAT";:3000xHT(HT1):HT3000!yI1NC:@468,F$(I);:C(I,0)02620_yP$((I),1):@46,"OCTON NUMBER ";P$;:260:C(I,7)0:HC3vyC(I,5)ʑ210:220yC(I,7)C(I,7)1:C(I,7)C(I,6)2620yWK1:L1NC:@468,F$(L);:C(L,0)02060:C(L,4)C(I,4)WK0:2060:2060y LzCXC(I,1):CYC(I,2):30'z CLC(I,6)C(I,7)16z*CL22250Ez4CL12140Uz>DS12340ozHHS1LF12130:2340zRWK2340:2350z\DS12180zfLF12170zpHS22350:2380zzWK2340:2350zDS22220zLF12210zHS12370:2380{WK2380:2370 {LF12240<{C(I,4)HS62370:2380O{WK2380:2370_{DS12310n{LF12280{SBSB0:AN1:2380:2350{WK2300{SBSB0:2360:2350{SBSB0:2380:2350{ LF12330{ 2370{ WK2380:2370|$ 210:M$"RAISE SHIELD":230:20404|. SB1:2580:2040>|8 2460g|B PXC(I,1):PYC(I,2):120:2390:2040|L ANAN0:2460:2370:MVMV2(MV5):RT1:2370|V M$"ADVANCE":RTM$"RETREAT":RT0|` 280:ANM$M$" & HIT WALL":230:Q}j 290:FGM$M$" INTO PIT":230:@64PY3PX,".";:310:C(I,4)0ʒ:@64PY3PX,".";:C(I,7)8:n}t HXNXHYNYʑ2460:2390}~ J1NC:@468,F$(J);:C(J,0)02450} C(J,1)NXC(J,2)NYʑ2460:2390} J:2560 ~ RN(2):RNRN2:MV2470,2480,2490,2500,,2510,2520,2530,2540(~ RNMV2:2550:MV4:2550G~ RNMV1:2550:MV3:2550f~ RNMV2:2550:MV6:2550~ RNMV1:2550:MV7:2550~ RNMV3:2550:MV9:2550~ RNMV4:2550:MV8:2550~ RNMV7:2550:MV9:2550 RNMV6:2550:MV8:2550  120:: 270:C(I,1)NX:C(I,2)NY:300:FGʑ230: (2)1ʑ230::M$M$" AND TRIP":230:220:C(I,7)C(I,7)1:C(I,7)C(I,6)ʒ:M$"GETTING UP":GG64C(I,2)3C(I,1):@GG,(95);:230:@GG,P$;: M$"SWING":220:HD2600:HCHC4:HC9HC9* (10)HCM$M$" - DEFLECTED":230:^( M$M$" AND HIT":230:HSHS1:HS0ʲ@938,HS;:2 @64HY3HX,".";:@938,HS;:N14:J125:@468,F$(J);:J,N:6000؀< N15:J125:@468,F$(J);:J,N:260:I:2000 @46,"HUMAN'S TURN ";:260:P$"H":HL0 HDʑ210:220= I1NC:@468,F$(I);:C(I,3)3:IU HLHL1:HLHM2000^ I26r II1:I03040 A$:@468,F$(I);:A$""3050 A$"1"A$"9"3190  A$"U"A$"7":3190 :A$"I"A$"8":3190 :A$"O"A$"9":3190 :A$"J"A$"4":3190j A$"L"A$"6":3190 :A$"M"A$"1":3190 :A$","A$"2":3190 :A$"."A$"3":3190 A$"S"A$"R"A$"P"3050 A$"R"M$"RAISE SHIELD":230:210:3030 A$"P"M$"PASS":230:N14:J125:@468,F$(J);:J,N:20006& M$"SWING":220:I1NC:@468,F$(I8);:C(I,0)03140X0 K(C(I,1)HX):L(C(I,2)HY){: K1L1C(I,8)1:C(I,8)0D I:I1NC:@468,F$(I);:C(I,0)0C(I,8)03180փN C(I,3)C(I,3)4:C(I,3)9C(I,3)9dX C(I,5)0(10)C(I,3)M$M$" AND HIT":230:C(I,4)C(I,4)1:HT0:250:HT1:90:FGC(I,0)0:100:@64C(I,2)3C(I,1),".";:3030::3030b M$M$" - DEFLECTED":230:3030l I:M$M$" AND MISSED":230:3030ʄv A$"5"3040:M$"MOVE"턀 MV(A$):PXHX:PYHY:120:280 ANM$M$" AND HIT WALL":230:3030> I1NC:@468,F$(I);:C(I,0)03240\ C(I,1)NXC(I,2)NY3280c I BD(NX,NY)1M$M$" INTO PIT!":230:@64PY3PX,".";:310:3030 270:HXNX:HYNY:300:FG(FG(2)1)ʑ230:3030v M$M$" AND TRIPS":220:230:HLHL1:HLHM2000:GG64HY3HX:@GG,(95);:M$"GETTING UP":230:K13:M125:@468,F$(M);:M,K:@GG,"H";:3030 X1NX:Y1NY:PXNX:PYNY:120ц M$"PUSH":280:ANC(I,3)C(I,3)4:C(I,3)9C(I,3)9 ANM$M$" OCTON TO WALL":230:3030# J1NC:@468,F$(J);:C(J,0)03330p C(J,1)NXC(J,2)NYC(I,3)C(I,3)4:230:C(I,3)9C(I,3)9:3030:3030 J:@64HY3HX,".";:@64Y13X1,"H";:HXX1:HYY1 BD(NX,NY)1M$M$" INTO FIREPIT":230:HT0:P$((I),1):310:@64Y13X1,"H";:HT1:P$"H":HDʑ210:3030:3030W @(64NY3NX),((I),1);:C(I,1)NX:C(I,2)NY:300 FGM$M$" ACROSS STONE":230:3030:230:3030G$"":NC1G$"S":@325,"CONGRATULATIONS! YOU HAVE SUCCEEDED IN FIGHTING"NC"OCTON WARRIOR"G$".":DD4080:NC24060I" YOU HAVE COMPLETED THE FIRST HALF OF TRAINING."v" TO CONTINUE TRAINING, PRESS ";A::1190߉" THIS IS THE END OF YOUR TRAINING. YOU ARE NOW READY TO START THE CONTEST." " PRESS TO BEGIN";:A::1190NNC84110:G$"ST":NC2G$"ND":NC3G$"RD":NC3G$"TH"Њ"YOU HAVE COMPLETED THE"(NC);G$" CONTEST IN THE OCTON CHALLENGE. YOU MAY REST IF YOU WISH, THEN PRESS ANY KEY TO CONTINUE."A$:A$""4100:NCNC1::1200,:(23):@320,"YOU HAVE WON THE OCTON CHALLENGE"" BUT REMEMBER... IF YOU SHOW ANY SIGN OF COWARDICE (EVEN IF YOU TYPE 'RUN') YOU WILL BE CAPTURED ONCE AGAIN..."::"4130̋:@20,"ARENA OF OCTOS"" YOUR STAR CRUISER HAS BEEN CAPTURED WHILE TRAVELING THROUGH SPACE CLAIMED BY THE OCTON DYNASTY. AFTER SOME DELIBERATION, THE COUNCIL OF EIGHT HAS GRANTED YOU THE CHANCE TO EARN YOUR FREEDOM BY ACCEPTING THE 'OCTON CHALLENGE'."" YOU WILL BE PLACED IN AN ARENA, WITH A SWORD AND A SHIELD. YOU WILL THEN ENGAGE ONE OCTON IN COMBAT. IF YOU SURVIVE, YOU WILL THEN FIGHT TWO, THEN THREE.... UNTIL THERE ARE EIGHT OCTONS IN THE ARENA."F" THE OCTONS HAVE EIGHT MOVES, AND A 'STRENGTH' FACTOR OF EIGHT. THIS MEANS THAT AN OCTON CAN RECEIVE EIGHT DIRECT BLOWS BEFORE HE IS REMOVED FROM THE ARENA."m@976,"PRESS TO CONTINUE";A$:A$""5050E:" THE ARENA OF OCTOS IS AN EIGHT-SIDED STRUCTURE. THERE ARE EIGHT STONES PLACED IN THE ARENA, TO TRIP THE CONTESTANTS. IN THE CENTER OF THE ARENA IS ANOTHER HAZARD, THE FIRE PIT."ޏ" THE COUNCIL OF EIGHT HAS DETERMINED THAT HUMANS ARE TO BE ALLOWED TEN MOVES, AND TEN STRENGTH POINTS SINCE HUMANS ARE DECIMAL CREATURES."ΐ" IF YOU CROSS A STONE DURING THE CONTEST, YOU HAVE A 50% CHANCE OF TRIPPING AND LOSING A TURN. IF YOU ENTER THE FIREPIT, YOU WILL LOSE ONE STRENGTH POINT, AND YOU WILL LOWER YOUR SHIELD AND BLINDLY ESCAPE IN ANY DIRECTION."@976,"PRESS TO CONTINUE"; A$:A$""5100u:@44,"7/U";:@53,"8/I";:@61,"9/O";:@172,"4/J";:@189,"6/L";:@300,"1/M";:@309,"2/,";:@317,"3/.";X96121:(X,7)::Y310:(108,Y):(109,Y)::Y2:X961042:(X,Y):(X1,Y):(X16,Y6):(X17,Y6):YY1:- Y12:X961042:(X,Y):(X1,Y):(X16,Y6):(X17,Y6):YY1:@0," YOU MOVE IN THE ARENA BY";: @64,"PRESSING KEYS 1-9 OR THE LETTER KEYS";: @128,"INDICATED BY THE CHART, TO MOVE IN";@192,"ONE OF THE EIGHT DIFFERENT";: @256,"DIRECTIONS.";v(@384," YOUR ONLY OTHER COMMANDS ARE: SWING YOUR SWORD RAISE YOUR SHIELD

PASS (AND FORFEIT REMAINING MOVES)"-2" IF AN OCTON HAS HIS SHIELD RAISED, YOUR FIRST SWING HAS A 10% CHANCE OF CONNECTING. tHE SECOND SWING HAS A 50% CHANCE, AND AFTER THAT THERE IS A 90% CHANCE OF A HIT."T<@976,"PRESS TO CONTINUE";iFA$:A$""5190P:@256," THE COUNCIL OF EIGHT HAS GRANTED YOU A 'PRACTICE' SESSION, TO FAMILIARIZE YOU WITH THE ARENA."::1160pG$"":NC1G$"S"z:@325,"YOU HAVE LOST IN YOUR BATTLE AGAINST"NC"OCTON WARRIOR"G$".":DDʲ" YOU WILL NOW REMAIN AN OCTON SLAVE, AND BE FORCED TO WORK AT THE OCTAL PALACE FOR SCRAPS OF FOOD."" YOU WILL HAVE TO TRY AGAIN WHEN YOU THINK YOU ARE ":6" SINCE THIS IS A PRACTICE SESSION, YOU ARE ALLOWED TO TRY AGAIN."m" PRESS TO CONTINUE PRACTICE";:A::12003/.";X96121:(X,7)::Y310:(108,Y):(109,Y)::Y2:X961042:(X,Y):(X1,Y):(X16,Y6):(X17,Y6):YY1:- Y12:X961042:(X,Y):(X1,Y):(X16,Y6):(X17,Y6):YY1:@0," YOU MOVuj :@282,"BOMBARDMENT":@409,"COPYRIGHT BY"j@534,"CREATIVE COMPUTING"j@657,"MORRISTOWN, NEW JERSEY 07960"j(I11500:j2 k<"YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU"GkF"HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED."kP"YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST."kZ"THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."kdkn"THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE"3lx"OUTPOSTS OF THE ENEMY. IT WILL DO THE SAME TO YOU."kl"THE ONE WHO DESTROYS ALL OF THE ENEMY'S PLATOONS"l"FIRST IS THE WINNER."ll"GOOD LUCK...AND TELL US WHERE YOU WANT THE BODIES!!"ll" PRESS ANY KEY TO CONTINUE"mA$:A$""190mM(200):!mR151mI(R1)51UmI11)I122)I233)I344)I4;rmI1ʲ" "(191):(191)ymRm@320,(49,131)mC(25)mD(25)m"E(25)m,F(25)m6CD280m@CE290mJCF300mTDE290m^DF300 nhEF300>nr@384,"WHAT ARE YOUR FOUR POSITIONS";:G,H,K,LNn|@384,(30)Tnn"WHERE DO YOU WISH TO FIRE YOUR MISSLES";YnX((Y1)5):Z1(Y1)(5X):@X64Z111," ";n@384,(31);nYCYDYEYF530n490nM(25)o700oXGXHXLXK620#o510Ko"HA, HA YOU MISSED. MY TURN NOW."Xo::450o"I MISSED YOU, YOU DIRTY RAT. I PICKED"M". YOUR TURN."o::400oQQ1oQ4600o&"YOU GOT ONE OF MY OUTPOSTS"o0Q570,580,590p:"ONE DOWN, THREE TO GO":::4507pD"TWO DOWN, TWO TO GO":::450]pN"THREE DOWN, ONE TO GO":::450pX"YOU GOT ME, I'M GOING FAST. BUT I'LL GET YOU WHEN"pb"MY TRANSISTORS RECUPERATE":plZZ1pvZ4680q"I GOT YOU. IT WON'T BE LONG NOW. POST"X"WAS HIT" q"THREE","TWO","ONE"3q:V1Z:N$:aq"YOU HAVE ONLY "N$" OUTPOSTS LEFT.":400q"YOU'RE DEAD. YOUR LAST OUTPOST WAS AT"X" HA HA HA"q"BETTER LUCK NEXT TIME":qPP1qNP1qT1NqMM(T)450qTqXMrM(P)M r470M(200):!mR151mI(R1)51UmI11)I122)I2Pj8030_jC202050j@896,(31);PN$(PC);"'s unable to locate a move - game terminated.":jX0180:CL(X)0:CP(X)0:CX(X)LI(X,0):Xj X081:CZ(X)BX(X,0):XkCC81:LN0k X1C2/k*CP(CY(X))0PL(PC)12360Zk4@896(PN$(PC))16,"lets see maybe ";k>((LI(CY(X),1)22)848);((LI(CY(X),2)10)365);",";kHCY(X)91Y8:Z0:Y0:Z3kR((LI(CY(X),1)22Y)848);((LI(CY(X),2)10Z)365);9l\DB1@960,"FROM:";X;"TO";C2;" CRNT:";CY(X);" LOW:";CC;" LINE:";LN;tlfCB0:C41:CL(C4)CY(X):CP(CY(X))CY(X):CX(CY(X))CY(X)lpLI(CY(X),3)0C3LI(CY(X),4):CZ(C3)CZ(C3)1:2180:C3LI(CY(X),3):CZ(C3)CZ(C3)1mzLI(CY(X),4)0CZ(LI(CY(X),4))CZ(LI(CY(X),4))1mCZ(C3)32270!mY14}mCX(BX(C3,Y))0C4C41:CL(C4)BX(C3,Y):CP(BX(C3,Y))BX(C3,Y):CX(BX(C3,Y))BX(C3,Y):Y4mYmCZ(C3)CZ(C3)1:CBCB1mLI(CL(C4),3)C3LI(CL(C4),3)0C3LI(CL(C4),3):CZ(C3)CZ(C3)1:22508nLI(CL(C4),4)C3LI(CL(C4),4)0C3LI(CL(C4),4):CZ(C3)CZ(C3)1:2260NnCZ(C3)4CBCB1enCBCC2290:2180nLI(CY(X),4)0CZ(LI(CY(X),4))3C3LI(CY(X),4):2190nCBCCCCCB:LNCY(X)nY1C4nLI(CL(Y),3)0CZ(LI(CL(Y),3))CZ(LI(CL(Y),3))12o LI(CL(Y),4)0CZ(LI(CL(Y),4))CZ(LI(CL(Y),4))1Jo CX(CL(Y))0:CL(Y)0Qo Yfo$ CC1C4C2XC2~o. DB1ʲ@854,(,5);o8 XoB LN03520:2040o~ X$"X"3040o C10:C20:X0o DB1ʁY02:16919Y,0:Y:@832,(,5);o Y181p BX(Y,0)3XY:Y81!p Y:X02660.p X1180Cp LI(X,0)02520p BX(LI(X,3),0)2BX(LI(X,4),0)2C1C11:CX(C1)X:C2C21:CY(C2)Xp Xp DB1ʲ@843,(30);(,5);p C10X(C1):LNCX(X):3520:2030pF "Hummm ";qP BX(LI(LN,3),0)3BX(LI(LN,4),0)32430BqZ BX(LI(LN,3),0)3XLI(LN,3):XLI(LN,4)Mqd Y14qqn LI(BX(X,Y),0)0LNBX(X,Y):Y4~qx Y:3520q PC0PC1:PC0r @0,"Line:";LT;" Score: ";(183)(179)(187);" ";PN$(0);":";PS(0);" ";(3,191);" ";PN$(1);":";PS(1);'r @896,(31);PN$(PC)"'s turn - ";;r PL(PC)02630er "enter move co-ordinates ? ";r 6830:HE$X$:HE$""3080r 6830:RE$X$:RE$""3090:",";r 6830:TH$X$:TH$""3100r& 6830:ER$X$:ER$""3110s0 HE$"P"RE$"R"TH$"N"ER$"T"ʑ6430:3040?s: HE$"S"RE$"A"TH$"V"ER$"E"7030sD @896,(30);PN$(PC)"'s turn - verify co-ordinates ";HE$;RE$;",";TH$;ER$;" ? ";sN 6830:X$""3150sX X$"N"3050sb X$"Y"X$"X"3530sl HE(HE$)48:HE0HE93530$tv (RE$)("A")(RE$)("J")3530Et TH(TH$)48:TH0TH93530kt (ER$)("A")(ER$)("J")3530tf HE22HE8:RE10((RE$)65)3tp TH22TH8:ER10((ER$)65)3tz HETHREER3530t HETHREER3530t HETH(HETH)83530u REER(REER)335302u HETHHETH:THHE8Ku REERREER:ERRE3u HETHLN((HE228)8)(((RE10)3)9):LN90((RE103)3)(((HE22)8)9)u LI(LN,0)03630u @896,(31);PN$(PC)"'s Boo-Boo! - ";:3060u.LTLT1:LN903650-v8XLI(LN,1)1LI(LN,1)7:(X,LI(LN,2)):X:3660[vBXLI(LN,2)1LI(LN,2)2:(LI(LN,1),X):XvLLI(LN,3)0BX(LI(LN,3),0)BX(LI(LN,3),0)1vVLI(LN,4)0BX(LI(LN,4),0)BX(LI(LN,4),0)1v`LI(LN,0)LNvSC0vLN903910 w BX(LI(LN,3),0)4SCSC1:3880wPC03880[wYLI(LN,2)2LI(LN,2)1:XLI(LN,1)1LI(LN,1)7:(X,Y):X,Yw(BX(LI(LN,4),0)4SCSC1:4030w2PC04030w<YLI(LN,2)1LI(LN,2)2:XLI(LN,1)1LI(LN,1)7:(X,Y):X,Y:4030wFBX(LI(LN,3),0)4SCSC1:3940 xPPC03940KxZXLI(LN,1)7LI(LN,1)1:YLI(LN,2)1LI(LN,2)2:(X,Y):Y,XoxdBX(LI(LN,4),0)4SCSC1:4030~xnPC04030xxXLI(LN,1)1LI(LN,1)7:YLI(LN,2)1LI(LN,2)2:(X,Y):Y,XxSC0X$"":3030xPS(PC)PS(PC)SC:BTBTSCyBT814230yX$"X"2640:3040ByPS(0)PS(1)PW0:PX1:PW1:PX0^y@0,(30);:@832,(31);ty5030:X1500:Xy:@448,22);"The winner is:"yX1250:X:5430yX13y:@448,(23);(32(PN$(PW)))2);PN$(PW)yY1250:Y:5430zXTz:@0,"The final score was: ";PN$(PW);PS(PW);"to ";PN$(PX);PS(PX);"!!!":5230yz@896,"Another game ? ";z6830:X$""4340zX$"N"9830zX$"Y"4330zBT0:LT0:LN0:PS(0)0:PS(1)0zX0180z&LI(X,0)0:X82BX(X,0)0{0X?{:@896,"Same players (winner goes first) ? ";U{D6830:X$""4420f{NX$"N"8150{XX$"Y"4410:PCPW:8230{RO012:RO$(RO)""{RO15070:RO15060{X1180:RO$(RO)RO$(RO)(LI(X,0)75):X:5150 |X181:RO$(RO)RO$(RO)(BX(X,0)128):X:5150V|CO850:XRO64CO15360:RO$(RO)RO$(RO)((X))e|RO25140{|CO10CO485140|YRO3RO32:CO48Z1:Z0|XCO2CO2Z|(X,Y)ʂ(X,Y):(X,Y)| X,Y|CO|RO:|nRO012}xRO15270:RO15260C}X1180:LI(X,0)((RO$(RO),X,1))75:X:5280v}X181:BX(X,0)((RO$(RO),X,1))128:X:5280}@(RO1)64648,RO$(RO)}RO:}6}@Y110:CX(Y)(127):CY(Y)(47):Y}JY110%~T(CX(Y),CY(Y)):(CX(Y),47CY(Y)):(127CX(Y),CY(Y)):(127CX(Y),47CY(Y)),~^YA~hY(2):Y15440U~rY1100:Y::d~X22948s~Y10373~~(X,Y)~X865690:Z((X228)8)(((Y10)3)9):LI(Z,1)X:LI(Z,2)Y~&Y345700:BX(Z,1)Z:BX(Z,2)Z90LI(Z9,3)Z:LI(Z,4)Z?:Y37Z90((Y103)3)(((X22)8)9):LI(Z,1)X:LI(Z,2)YLDY,X:Z0WNX19kXY90X162X9bZZ1:BX(Z,3)Y:BX(Z,4)Y9:LI(Y9,3)Z:LI(Y,4)ZlYvLI(X,3)0:LI(X81,4)0:LI(90X,3)0:LI(90X81,4)0X:PC01DPL(PC)0::"What is the name of player #";PC1;:PN$(PC):PN$(PC)""5840LPC}PN$(0)"TRS80"PN$(0)"COMPUTER"PC0:6030PN$(1)"TRS80"PN$(1)"COMPUTER"PC1:6030Հ::"Levels of play are:":"1 = ";PN$(PC);" is infallible. 10-360 seconds per move."\"2 = ";PN$(PC);" may make minor mistakes. 10-60 seconds per move.":"NOTE: Level of play is effective during scoring situations."Ё:"Which level should ";PN$(PC);" use? ";6830:X$""6080PL(PC)(X$)48:PL(PC)1PL(PC)26030:8V:"Depress any key for ";TX$;Q`6830:@192,(31);:@960,"Ready the printer then depress any key.";‚(6830:X(14312)240:X486430:@960,(31);:16425,12X115::X:(27);(71)<24);(14);"CONNECTING DOTS";F:36);(15);(14);"(C) 1981 by Charles E. Wooster"]P36);(198)(58,211)(185){Z(27);(72):X110::Xd@946,(31);nRO153601632064:(42,32);xCO063ʃX(ROCO)ڃX32XX64X127X192XX32(X);CO:'RO:(18);(20);(27);(72)GX166((16425)1)::X:oX$"":X(16417)256(16416):Y176|X,Y:Z0X$:X$""6870:ZZ1:Z56850Y304Y:6840X$"0"(X$"9"X$"A")X$"Z"X$"":" ";:X$;4v5030::"Place cassette in record then depress any key.":6830V:"Saving game onto tape..."#1,BT,DB,LT,PC,PN$(0),PS(0),PL(0),PN$(1),PS(1),PL(1)X012:#1,(34);RO$(X);(34):XՅ:"Save completed...":"Continue current game ? ";6830:X$""7090.X$"N"X$"Y"7080EX$"N"4330:7280>:5630::"Place cassette in play then depress any key.":6830H:"Reloading game from tape..."R#1,BT,DB,LT,PC,PN$(0),PS(0),PL(0),PN$(1),PS(1),PL(1)\X012:#1,RO$(X):X!f:"Reload completed..."Np:"Players are: ";PN$(0);" and ";PN$(1)z"Do you want to change the players ? ";6830:X$""7300X$"N"7330ɇX$"Y"7290:5830:7410އPC0PC1:PC0PL(PC)07400#:PN$(PC);" is playing at level ";PL(PC);"."V"Do you want to change the level ? ";l6830:X$""7370}X$"N"7400X$"Y"7360:6030PC0PC1:PC0ƈ16916,0::5230:3040و^:1000:AZ:3hBX(81,4),CL(180),CP(180),CX(180),CY(100),CZ(81),LI(180,4),PL(1),PN$(1),PS(1),RO$(12)Rr@0,24);"CONNECTING DOTS"|16);"(C) 1981 by Charles E. Wooster":16916,3@192,"Menu: 1 Start game."Չ" 2 Resume a previously saved game."" 3 Instructions."" 4 If you are a poor sport."B:"What is your menu selection? ";[6830:X$""8120:X(X$)48:X1X58070:X8150,7230,9030,9830,8140DB15830:PC0:16916,0& NJ0 X09: @1344(X1),X;:@200X64,(65X);D X:5630:3040UF#@192,(31);"The game of Connecting Dots is a two player game. Each player"P#"in turn draws a line between two adjacent dots. The line may be"Z#"either horizontal or vertical. If a box is formed by the line,"*d#"the player scores a point and receives another turn. When a"qn#"game board has been completed the player with the highest score"~x#"wins."#TX$"more instructions.":6230猌#"A move is entered by typing the move co-ordinates NL,NL where"-#"the first NL is the number-letter combination that forms the"s#"'FROM' location and the second NL is the number-letter combin-"#"ation that forms the 'TO' location. The computer will generate"#"the separating comma. If NL,NL is PR,NT the screen will be"E#"sent to the printer. If NL,NL is SA,VE the game will be saved"#"on cassette tape for later completion. A menu selection of 2"Ŏ#"will resume a game which was saved in this manner."ώ#6230#"After the co-ordinates are entered they must be verified. If"]#"they are not correct respond 'N' and you will be given another"#"chance. If they are correct respond 'Y' or 'X'. If the response"$"is 'X' and a box is formed the computer will continue forming",$"boxes for you until no more can be formed (a time saver)."6$6230|"$"If 'TRS80' or 'COMPUTER' is entered as either player that",$"player will be the computer. If both players are entered as"6$"'TRS80' and/or 'COMPUTER', then the computer will play with"@$"itself.":_J$"There are 2 levels of play when the computer is one or both of"T$"the players. The level specified takes affect when the game"^$"has progressed to the point where drawing a line will allow"1h$"the other player to score. At level 1 the computer will play"wr$"its best but slowest game. At level 2 the computer may make a"|$"minor mistake or two but will play a faster game."˒$TX$"good luck.":6230$"TRS80 wishes you the best of luck and may the better computer" $"win!!!!!"F$TX$"menu selection.":6230:8070pf&16916,0::@448,23);(23);"Bye-Bye"p&X1500:X::50:Ŏ#"will resume a game which was saved in this manner."ώ#6230#"After the co-ordinates are entered they must be verified. If"]#"they are not correct respond 'N' and youj : * * * * * * * * * * * * * * * SOFTSIDE PRESENTS * * ENGINEER * * BY DAVID BOHLKE * * * * * * * * * * * * * * *j:AZk@22,"E N G I N E E R":Xk("To become an engineer, you must construct a trestle bridge"k2"connecting the two blocks at the top of the screen. This"k<"is done by placing beams in accordance with the Inspector's"!lF"specifications. Just move the blinking guide to the position"flP"you wish to place the beam, then enter the direction you want"lZ"to set the beam. Your starting position must be below the"ld"Inspector's feet. Several players may compete to see who can"mn"construct the bridge in the fewest days.":Wmx"David J. Bohlke Coggon, IA Jan 12, 1979":m"Press =ENTER= to begin . . .";:Z$:m@128,(4,191):@188,(4,191)m *** SET CANYON ***mX0127:(X,43):mY8:D114:X6n(X2,Y):(X3,Y):(XD2,Y):(XD3,Y)@n(X,Y):(XD,Y):(X1,Y):(XD1,Y)^nYY1:(9)2XX1:DD2rnY43220:180nX45(30):Y42n1030nM(50)40:N0n@25,"E N G I N E E R";n(M,N1)280nNN1:260nNN10:N0 N0 o"(M,N):(M1,N)+o, *** POSITION BEAM ***go6@960,"Move guide : ] = LEFT ^ = RIGHT \ = DOWN";o@C$:C$""(M,N):(M1,N):290oJ(C$)9380oT(C$)8400o^(C$)10420oh290or *** SET BEAM ***o| (M2,N)440p(M,N):(M1,N):MM2:290)p(M1,N)440Hp(M,N):(M1,N):MM2:290Zp(M,N1)440yp(M,N):(M1,N):NN1:290p@960,(31);:A$pNY@960,"Stick must start below Inspector";:(M,N):(M1,N):I11000::240q@960,"Press direction to set beam ( 1-3 ) ";Lq@761,"1 2";:@825,(140);" 3";:@887,"DIR.";kqC$:C$""480 : D(C$)q D1 D3 440q@761," ";:@825," ";:@886," ";qDADA1:M1M:N1Nq I1 18q M122 N4 M2 620r(M,N):(M1,N):(M2,N))r&(M3,N) 770Cr0 D 570,580,590,600cr:II(2):NN1:I1I11:610xrDMM2:NN1:610rNMM2:610rXMM2:NN1rb Irl(M2,N1)1 D1 770rv@960,(31);:MM1:NN1r *** ILLEGAL PLACEMENT ***9s@960,"The right end of the beam must be supported !";HsI1666:msI118:(M,N):(M1,N):(M2,N)s D 690,700,710,720sNN1:730sMM2:NN1:730sMM2:730sMM2:NN1s N2 M125 750sI t@832,"Day ";DA;:@960,(31);t240%t@960,(31);Ht  *** MOVE INSPECTOR ***ft@960,"Inspection . . .";}t  W0 W1 : W0t*I1 (40)10t41050t> W1 880tH(X2,Y1)0(X,Y1)0(X2,Y1)0YY1:910tR(X1,Y)0XX1:910u\(X,Y1)0YY1:910uf910Gup(X,Y1)0(X3,Y1)0YY1:910buz(X3,Y)0XX1:910}u(X,Y1)0YY1:910u1030:Y6 X8 X122 930u Iu@960,(31);u@832,"Day ";DA;u *** CHECK FOR COMPLETED BRIDGE ***vI151155:J48$v(I,J)9900vJ:2407vIHv@960,(31);v@960,"You've finished ! Press =ENTER= for another game ";:Z$:v *** SET INSPECTOR ***v(X,Y):(X1,Y1):(X2,Y):(X1,Y3)w(X,Y2):(X1,Y2):(X2,Y2):0w(X,Y):(X1,Y1):(X2,Y):(X1,Y3)Uw$(X,Y2):(X1,Y2):(X2,Y2):1I11:610xrDMM2:NN1:610rNMM2:610rXMM2:NN1rb Irl(M2,N1)1 D1 770rv@960,(31);:MM1:NN1r *** ILLEGAL PLACEMENT ***9s@960,"The right end of the beam must be supported !";HsI1666Ljwj **ROBERT C. HALL, III (12/31/78)**j **PRINT THE INSTRUCTIONS**j 1000j :(23)j "Input Player One's name:"j B$j :"Input Player Two's name:"k C$ k%k **SET UP THE BOARD**CkX0127:(X,4):(X,47):qkY546:(0,Y):(1,Y):(126,Y):(127,Y):k& **PLAYER 1'S POSITION (X,Y): INCREMENTS A,B**k(X10:Y10:A0:B0k, **PLAYER 2'S POSITION (C,V): INCREMENTS D,E**l-C120:V40:D0:E0o M32 M42 : SCSC40:@55,SC;:@P," ";:@Q,"*";: 2500ao@P," ";: SC1000 PQ: 610o @Q,"*";:TT10:SCSCT:@1,"Bonus";: 2520o* I1 35:@I," Bonus:"T;: J1 30::o4@I,(203);:@55,SC;: 2510oM0: I1 10p SCSC(I) MIp: M0 21008p@153,"Congratulations;";gp@208,"Your Score is one of the Top Ten.";p@278,"Please ENTER your Name";p SC$"":@479,;: SC$: SC$"" 2060p:SC$(SC$,15)p  I1 M:SC(I1)SC(I):SC$(I1)SC$(I): q*SC(M)SC:SC$(M)SC$-q4: (23)"Top Ten Scores":Aq> I10 1 1tqH SC$(I)"" SC$(I),SC(I) : "..."," ...."zqRq\ 9010::"Press =ENTER= to play againqf (13) 2150 : 70q K0 2:J(4778) (4742):: r K0 4:J(7764) (7746)::gr J(8814): K0 1:J(8792) (8778) (8765) (8778) (10328) (10350)::r(#B16396:B1(B):B2(B1): B,60: B1,201:r2# B,B1: B1,B2: 9000: I1 26mP130(11)64(59): (VP)32 410 : @P,"o";:2nXT1000:SC0: I1 99:@P,"*";:@(P),(143);:Lnb@P,"*";:I(51pj ====================================j** NUCLEAR REACTOR * LEVEL II 16K **j**** WRITTEN BY MICHAEL WINTER *****j(******* NEW CANAAN CT. 06840 *******k2***** VERSION 3.7 ** JUNE 1979 *****Bk<====================================[kF * SET UP PROGRAM *kkP 23:PC1:wkZ:::kd" * * * NUCLEAR REACTOR TEST * * *"kn:kx" In this simulation you are the commander of a" l"nuclear power plant, and while you are in command"^l"random disasters will come up and you will have to the"l"best of your ability try to get the plant back under"l"control. If you fail you will experience a massive melt-"m"down which will cause the elimination of all life within"Zm"a 250 mile radius of the plant. The computer will take"m"your skill level into consideration when it is testing"m"to see if you have won. To win you must have all the"mPC1n"Press =ENTER= to continue";D$n:::Hn"meters reading as close to 5 as possible, with the"n"exception of the radiation level meter, and the emergency"n"core cooling level meter. The computer will consider," o"depending on your skill level, any reading on the radiation"Eo"level meter below 2 as safe, and any reading on the"o""emr. core cooling meter above 2 as safe. The computer"o,"will time you, and as in a real plant, you will have"p6"to react quickly to avoid a melt down! Also, each command"Bp@"has its advantages, and its disadvantages. You will have"pJ"to weigh the two and make a logical decision. To help"pT"you, here is a partial list of the commands, their"p^"advantages and disadvantages:"qh"Press =ENTER= to continue";D$qr:::Cq|"COMMAND ADVANTAGE DISADVANTAGE"q" O Cools core Raises water pressure"q" V Lowers water pressure Raises core temp"q" S Lowers core temp Stops turbine"&r" [ C Speeds up turbine Raises core temp."br" \ C Lowers core temp. Lowers turbine speed"r" E Lowers core temp. Lowers emergency core cooling"r" +P Raises critical mass Lowers turbine speed"s" -P Lowers critical mass Raises core temp."Us" +T Speeds up turbine Raises core temp."s" -T Slows down turbine Raises water pressure"s"press =ENTER= to continue";D$s:::s"COMMANDS EXPLAINED:" t" T - Speeds up or slows down turbine"1t" P - Adds or takes out plutonium"Tt" O - Opens main water valve"yt&" V - Opens main run-off valve"t0" C - Gives you control of the control rods, either up or down"t:" S - Starts reactor scram"UuD" E - Releases emr. core cooling: you can only release the amount shown on your emr. core cooling level meter"uI" I - Prints out these instructions"uN"press =ENTER= to continue";D$: SG2 uX"What level of play: -1-Novice, -2-Easy, -3-Hard"vb"-4-Very Hard, -5-Expert";LVvl LV5 BN10:EN10:RD1 : LV4 BN9:EN11:RD2 : LV3 BN8:EN12:RD3 : LV2 BN7:EN13:RD4 : LV1 BN6:EN14:RD5 : "Invalid -- try again!!": 600vv * DRAW METER BOXES *vw S0 8: (2,S):(39,S):(42,S):(79,S):(82,S):(119,S): Scw S12 20: (2,S):(39,S):(42,S):(79,S):(82,S):(119,S): Sw S23 32: (2,S):(39,S):(42,S):(79,S):(82,S):(119,S): S!x S2 39:(S,9):(S,21):(S,33): S: S42 79:(S,9):(S,21):(S,33): S: S82 119:(S,9):(S,21):(S,33): S6x *LABEL METERS*x@5,"Water Level";:@22,"Core Temperature";:@42,"Room temperature";x@259,"Water Pressure";:@278,"Crtical Mass Lev.";:@298,"Control Rod Lev.";y@516,"Turbine Speed";:@535,"Radiation Lev.";:@554,"Emr. Core Cooling";Cy * PRINT SCALES IN EACH METER *zy P1130 170 20:@P1,"1 2 3 4 5 6 7 8 9";: P1y P1386 426 20:@P1,"1 2 3 4 5 6 7 8 9";: P1y P1642 682 20:@P1,"1 2 3 4 5 6 7 8 9";: P1z * IF COMING FROM PROGRAM RETURN *z  GS1 ?z * GET A RANDOM DISASTER *Nz :DA(16)]z* X1 DAz4 D$,D1,D2,D3,D4,D5,D6,D7,D8,D9,I1,I2,I3,I4,I5,I6,I7,I8,I9z> XzH 950zR * INCREMENT EACH METER *{\D1D1I1:D2D2I2:D3D3I3:D4D4I4:D5D5I5:D6D6I6:D7D7I7:D8D8I8:D9D9N{f D7D4 D7D42 : D7 D42 D7D42r{p TM 1 ZXD6 : ZX(D62){z ZX5 930: * GIVE A REALISTIC METER LEVEL DEPENDENT ON CONTROL ROD LEVEL *w| ZX1 D1D18:D2D26:D4D48:D7D78 : ZX2 D1D16:D2D24:D4D46:D7D76 : ZX3 D1D14:D2D23:D4D44:D7D74 : ZX4 D1D12:D2D22:D4D42:D7D72(} ZX6 D1D12:D2D22:D4D42:D7D72 : ZX7 D1D14:D2D24:D4D44:D7D74 : ZX8 D1D16:D2D25:D4D46:D7D76 : ZX9 D1D18:D2D26:D4D48:D7D78D}D3D22:D8D24:D9D92d} PC1 PC2:1060 : 1080} * FORMULA TO COMPUTE SCREEN POS. FOR EACH METER *}MP64D12}M284D22}M3104D32}M4320D42}M5340D52}M6360D62 ~M7576D72~M8596D82*~M9616D925~ 1450~ * IF FIRST PASS ON NEW FORMULA THEN CONVERT OLD SCREEN POSITIONS TO THE NEW FORMULA *~$D1D12:D2D22:D3D32:D4D42:D5D52:D6D62:D7D72:D8D82:D9D92 . * CORE TEMP. TOO HIGH? IF SO, YOU LOSE *!8 M2102 3220KB * REACTOR STABLE? IF SO, YOU WIN *L M7594 D70:I70:D10:I10:D29:I21:D38:I31:D40:I40:I50:D88:I81:D90:I90IV TM5 D1BN D1EN D2BN D2EN D3BN D3EN D4BN D4EN D5BN D5EN D6BN D6EN D7BN D7EN D8RD D9BN6 3380y` * ERASE OLD METER READINGS FOR NEW ONES *׀j@MP," ";:@M2," ";:@M3," ";:@M4," ";:@M5," ";:@M6," ";:@M7," ";:@M8," ";:@M9," ";Nt * NEW FORMULA FOR CALCULATING SCREEN POSITIONS -- ALLOWS FOR MORE ACCURATE READINGS OF 1-9 IN INCREMENTS OF .5 *~MP64D1:M284D2:M3104D3:M4320D4:M5340D5:M6360D6:M7576D7:M8596D8:M9616D9ہ * CHECK FOR TOO HIGH OR TOO LOW READINGS * MP 66 MP66 MP 82 MP82 M2 86 M2865 M2 102 M2102M M3 106 M3106e M3 122 M3122} M4 322 M4322 M4 338 M4338 M5 342 M5342ł M5 358 M5358݂ M6 362 M6362 M6 378 M6378  M7 578 M7578% M7 594 M7594= M8 598 M8598U( M8 614 M8614m2 M9 618 M9618< M9 634 M9634F D10 D12P D20 D22Z D30 D32уd D40 D42n D50 D52x D60 D62  D70 D72 D80 D820 D90 D92U * DISPLAY NEW METER READINGS *w@MP,"\";:@M2,"\";:@M3,"\";@M4,"\";:@M5,"\";:@M6,"\";@M7,"\";:@M8,"\";:@M9,"\";@775,"An event has occurred -- stand by to take command"; * DISPLAY PROBLEM *5@838,"THE EVENT IS -- ";D$;]@903,"COMMAND?";:@923,"TIME:";TM; * REAL TIME CLOCK, EVERY 3 SECONDS METERS CHANGE *ԅTMTM1:MMMM1: MM3 MM1 PC1 MM0:MXMX1: 860 MX 2 MX0:D9D94: D917 D916 * * FLASHING CURSOR * *@911,(14);: TD1 42: TD: @911,(15);: TD1 23: TD:@911,(14);: TD1 42: TD:@911,(15);: TD1 23: TD:@928," ";" * KEY PRESSED? IF SO, GO TO COMMAND SUBROUTINE *,CM$: CM$"" 1510 6 1790@ 860+J * DISASTER DATA *mT "Water Level Low!",3,7,6,4,5,5,4,2,4,-1,1,1,-1,0,0,-1,-1,-1^ "Water Pressure Low!",4,7,6,3,5,5,3,2,4,-1,1,1,-1,0,0,-1,1,-1h "Low Critical Mass!",5,7,6,5,3,5,6,3,5,0,1,1,0,-1,0,1,1,04r "High Critical Mass!",5,3,4,5,7,5,4,1,5,0,-1,-1,0,1,0,-1,0,0u| "Water PresBBASGAME300/00/00 1t[K^BOOT SYS` *ARENA BASBB-( BOMBARD BASBB EDOTS BASBB*]DIR SYS  ENGINEERBASBB " ENTRAP BASBB  kMAZESWP BASBB  MELTDOWNBASBB8 TARGYLE88BASBB CRAZY8S BASBB FCRYPTO BASBB$ DOMINOESBASBB1  "DRAG BASBB  KIZMET BASBB!! MAZE BASBB$$ MINER BASBB' STAKE BASBB!(& RECALL CMDBB  ALIEN BASBB1,  pBALLOON BASBB91  MONOPOLYBASBBm7 PARAVIA BASBB7B  oSIFTER BASBB)G( WALLST BASBBL KRIEGII BASBBsure High!",6,5,5,7,4,5,7,1,6,1,0,0,1,0,0,1,0,1 "Water Level Very Low!!",2,8,7,3,5,5,3,4,3,-1,1,1,-1,0,0,-1,1,-1 "Water Pressure Very Low!!",3,8,7,3,5,5,2,4,4,-1,1,1,-1,0,0,-1,1,-1O "Very High Critical Mass!!",5,2,3,5,8,5,3,1,5,0,-1,-1,0,1,0,-1,0,0 "Very Low Critical Mass!!",5,8,7,5,2,5,7,4,5,0,1,1,0,-1,0,1,1,0߉ "Emr. Core Cooling Failure",3,7,6,4,5,5,4,2,1,-1,1,1,-1,0,0,-1,1,-1# "Pump Power Failure",4,7,6,2,5,5,1,2,4,-1,1,1,-1,0,0,-1,-1,-1n "Very High Radiation Level!!",3,7,6,4,5,5,6,5,4,-1,1,1,-1,0,0,1,1,-1 "Very High Radiation Level!!",2,8,7,3,5,5,7,6,3,-1,1,1,-1,0,0,1,1,-1 "High Turbine Speed!",6,4,4,7,5,5,7,1,6,1,0,0,1,0,0,1,0,1? "Very High Turbine Speed!!",6,4,4,8,5,5,8,1,6,1,0,0,1,0,0,1,0,1 "Water Pump Failure!",4,7,6,1,5,5,1,3,4,-1,1,1,0,0,0,0,1,-1 * COMMAND SUBROUTINE * CM$"V" 1890ȋ CM$"C" 2010݋ CM$"E" 2480 CM$"P" 2600& CM$"S" 28500 CM$"O" 29701: CM$"T" 3080FD CM$"I" 3200LNqX * LET OUT WATER, COMMAND 'V' *ڌb@967,"How far would you like to open your run-off valve (2-8)?";:W1$: W1$"" 1890 : W1(W1$)Jl W18 W12 @967,"Invalid!! ";: DL1 1000: DL: 1890v * ADJUST ALL METERS IN PROPORTION TO HOW FAR VALVE IS OPEN *D1D1W1D2(D2W13)D3D21čD4D11֍D7(D7W13)荲D8(D8W14)D9(D9W13)3 * RAISE OR LOWER CONTROL RODS, COMMAND 'C' *@967,"Enter a '-' to lower control rods, a '+' to raise them ";:DF$: DF$"" 2010Ԏ@967,"Enter amount you would like to raise or lower them ";FD$: FD$"" 2030 : CR$DF$FD$:CR(CR$)C * IF A '-' ENTERED THEN GO TO ROUTINE TO LOWER THEM *Y (CR)1 2150q  * ADJUST METERS *D6D6CR2 D2(D2CR)*D3D214D4D4CR2>D7D7CR2ʏHD8(D8CR)ՏR 2220\ * ADJUST METERS FOR LOWERING THEM *fD6D6(CR2)$pD2(D2(CR))0zD3D21BD4D4(CR)2TD7D7(CR)2gD8(D8(CR)) * GRAPHICALLY DISPLAY CONTROL POSITIONS *:17)"CURRENT CONTROL ROD POSITIONS"吶 Y3 46:(6,Y):(121,Y): Y X6 121:(X,46): XSC0:PR0= DS64 960 128:SCSC1:@DS,SC;: DSS D62 0 D60j D62 9 D618 D62 2300,2310,2320,2330,2340,2350,2360,2370,2380MS0: 2390đ MS2: 2390ԑ MS4: 2390 MS6: 2390$ MS8: 2390. MS10: 23908 MS12: 2390'B MS14: 23908L MS14: 2390GV BL$(191)c` * DRAW CONTROL RODS *j RP0 MS:PRPR64: RP0 PRPR64t @78PR,BL$;:@79PR,BL$;:@82PR,BL$;:@83PR,BL$;:@86PR,BL$;:@87PR,BL$;:@90PR,BL$;:@91PR,BL$;:@94PR,BL$;:@95PR,BL$;~ @98PR,BL$;:@99PR,BL$;:@102PR,BL$;:@103PR,BL$;:@106PR,BL$;:@107PR,BL$;:@110PR,BL$;:@111PR,BL$;: RP DL1 1234: DLՓ Y$"": D62 9 D618 : D62 1 D62擜 GS1: 640: * CORE COOLING, COMMAND 'E' *s @967,"How much coolant would you like to enter the core? ";:CL$: CL$"" 2480 : CL(CL$)۔ D9CL0 @967,"You don't have enough coolant ";: DL1 1000: DL: 2480 * ADJUST METERS * D9D9CL D1D13 D2(D2CL2)* D3D226 D4D11H D7(D7CL3)Z D8(D8D22)`  * ADD OR REMOVE FUEL, USED TO ADJUST CRITICAL MASS, COMMAND 'P' *( @967,"How many fuel units would you like to remove, or enter ";: DL1 232: DLX2 @967,"Enter a '-' to remove fuel, and a '+' to add fuel ";: DL1 232: DL< @967,"Each unit will increase or decrease critical mass by 1/2";: DL1 232: DL F @967,"Enter the sign, then the #- (1-9) ";:XC$: XC$"" 2630?P CX$: CX$"" 2640 : UR$XC$CX$:UR(UR$)mZ * IF '-' GO TO ROUTINE TO REMOVE FUEL *d (UR)1 2770n * TEST FOR TOO MUCH ADDED *x (D5UR2) 17 @967,"You can't enter that much ";: DL1 1000: DL: 26001 * ADJUST METERS *C D5(D5UR2)U D2(D2UR2)a D3D22s D4(D4UR2) D7(D7UR2) D8(D22) D5(D5(UR)) D2(D2(UR))̘ D3D22ߘ D4(D4(UR)) D7(D7(UR)) D8(D22) 9 * LOWER CONTROL RODS - SCRAM, COMMAND 'S' *" @967,"Verify reactor SCRAM? ";:VR$: VR$"" 2850 : VR$"Y" , * ADJUST METERS *˙6 D1D11י@ D2D25J D3D34T D4D43^ D618h D7D73r D8(D8D22)#| D9D91) V * FLOOD CORE WITH WATER, COMMAND 'O' * @967,"How much water would you like in the core (1-9)? ";:MV$: MV$"" 2970 : MV(MV$)Ԛ * ADJUST METERS *暮 D1(D1MV2) D2(D2MV3) D3D22 D4D12! D7(D42)20 D8(D22)B D9(D9MV3)H u * CHANGE TURBINES SPEED, COMMAND 'T' *ܛ @962,"What % of total turbine speed would you like: 9=90% ...";:TS$:TS$"" 3080 : TS(TS$) * ADJUST METERS * TTTS.01& D7(D7TT)0 D1D43?: D410 D2D24 : D2D24KD D3D23]N D4(D4TT2)lX D8(D22)xb D9D93l @952," ";:v * PRINT INSTRUCTIONS, COMMAND 'I' *؜ :::SSG2: 370:SG1: 640뜊 * YOU LOSE * :::(23) :::) " DANGER - DANGER - DANGER"> X1 3232: XJ ::: " The reactor temperature has reached an uncontrollable point -"ĝ "You have failed your mission -- stand by --" "I, the TRS-80 Computer System, am now starting the"4 "nuclear disaster log -- you have approximately"l "3 1/2 hours to clar all people within a 200 mile" "radius of this plant before the core completely"ݞ "melts through the reactor core building and causes" "a massive release of radiation -- so long, good bye --"J " By the way -- YOU'RE FIRED! * * * *" "Would you like to play again";PL$: (PL$,1)"Y" 60 : 3490* * YOU WIN *4 :::՟> A$"EVENT OVER -- EVENT DURATION:"H X1:TM$(TM)cR B$(A$,X,1):B$;: DL1 32: DL: XX1: X29 3410 : T1 (TM$):T2$(TM$,T,1):T2$;: DL1 57: DL: T::\ Y0 72:(Y,12): DL1 23: DL: Yf DL1 323: DLp " You have done it!! The reactor is under control!"z "And it only took you";TM;"seconds -- good work!"T "I am going to have a talk with the Nuclear Regulatory" "Commission about a Christmas bonus for you!! You deserve" "it!! So long, good bye!!":"Would you like to play again";PL$: (PL$,1)"Y" 60 23) :::) " DANGER - DANGER - DANGER"> X1 3232: XJ :^j SPACE COLONYj A SIMULATION GAME OF SHIFTING COALITIONSj::AZ:P,R,T,V:V(5),M(2),T(2),C(5),F(2)j"WELCOME TO ARGYLE 88!!": k("YOU ARE ABOUT TO JOIN THE ARGYLE 88 PLANETARY COUNCIL."Rk2"THERE ARE FOUR OTHER MEMBERS - YOU ARE #5."ZkAX0ykFI15:V(I)1000(0)50:kPM(1)2:M(2)2:N0kZF(1)1:F(2)3:P2.2:R2.3kdT(1)V(1)V(2):T(2)V(3)V(4)knC(1)1:C(2)1:C(3)2:C(4)2kxC(5)0l:"YOU ARE WORTH";V(5):1200%l930bl -------------END INITIALIZATION-----------------------l:"WHICH COALITION DO YOU WISH TO JOIN: 1 OR 2";Yl Y1 O2: 190l Y2 "REPLY 1 OR 2";Y: 160 lO1 m"AS CHIEF (C) OR MEMBER (M)";A$:A$(A$,1)%mA$"C"F(Y)5:220UmA$"M"ʉ"REPLY C OR M";A$:A$(A$,1):200mT(O)T(Y)V(5)V(5)1000(0)50:"LAST MINUTE CHANGES: YOU ARE NOW WORTH";V(5):220mT(Y)T(Y)V(5):M(Y)M(Y)1mC(5)Yn---------CONFRONTATION--------------------------------- nXX1.nX16258mn:"CONGRATULATIONS, YOU HAVE SURVIVED 15 CONFRONTATIONS."n"YOU MAY NOW RETIRE."n," XXXXXX":," XX XX":," XX XXX"n,"X XX XX X":,"X XX X X":,"X XX X"1o," X X":," XX XX":," XXXXXX"^o,"ARGYLE 88":,"PRIZE FOR PEACE"::880o:"---------------CONFRONTATION NUMBER";X;"---------------"oT(Y)T(O)270o"YOU LOST THE GAMBLE. OTHER SIDE NOW CONTROLS WEALTH."oRR2:WO p LY:PP2:330Lp"SUCCESS! YOUR SIDE NOW CONTROLS THE MAJORITY OF WEALTH."XpWY:LOtpF(Y)5RR2:PP2:330p""WHAT % DO YOU DEMAND FOR PAYMENT FROM LOSING COALITION";Rp,R10R90ʉ"RANGE IS 10 TO 90";R:300q6"WHAT BONUS % TO YOU AS CHIEF";P0q@P10P50ʉ"RANGE IS 10 TO 50";P:320DqBRR100:PP100qE--------CALC. WINNERS SHARE----------------------------qJR1RT(L):BPR1qO"TOTAL PAYMENT: ";R1;" BONUS TO CHIEF: ";BqTM(W)1B2R1:B0:380q^B1R1M(W) rhB2B(M(W)1):B3B1B21rrI15:C(I)WV(I)V(I)B3::Kr|IF(W):V(I)V(I)B2Br---------CALC. LOSERS PAYMENT--------------------------rM(L)1IF(L):V(I)V(I)R1:530rB1R1M(L):B.1R1rB2B(M(L)1):B3B1B2rI15:C(I)L510sV(I)V(I)B3sV(I)0510%sI5455.s460xs"YOU HAVE LOST ALL WEALTH AND MUST LEAVE COUNCIL. *YOU LOST!!*":870sM(L)M(L)1:C(I)0sI;"HAS LOST ALL WEALTH AND MUST LEAVE THE COUNCIL."s:" XXXXX"s" X X"s" X(O O)X"t" X A X"+t" XIIIX BYE, BYE";I;t" XXX":KtV(I)0510[tM(L)0510mtV1V(I)M(L)tJ15:C(J)LV(J)V(J)V1::tItIF(L):V(I)V(I)B2BtT(W)T(W)R1:T(L)T(L)R1t930u!---------MOVE MEMBER TO LOSING SIDE--------------------u&K0,u0WY700ju:----------USER'S COALITION LOST-------------------------uD"SPECIFY # OF OPPOSITION MEMBER YOU WANT";JuNJ1J5ʉ"RANGE IS 1 TO 5";J:590uXC(J)0ʉ"OUT OF COUNCIL -- CHOOSE AGAIN";J:590%vbC(J)Yʲ"ALREADY IN YOUR COALITION":580Rvl"WILL YOU MAKE HIM CHIEF";A$:A$(A$,1)bvvA$"Y"790vA$"N"ʉ"REPLY Y OR N";A$:A$(A$,1):620vT(W)V(J)T(L)V(J)800v"HE WILL ONLY COME AS CHIEF - WILL YOU MAKE HIM CHIEF";A$:A$(A$,1) wA$"Y"7909wA$"N"ʉ"REPLY Y OR N";A$:A$(A$,1):670Bw580rw----------USER'S COALITION WON------------w1070:J0870w"OPPOSITION WOULD LIKE";J;"TO JOIN THEM."wK0790w"WILL YOU MAKE HIM CHIEF TO KEEP HIM";A$:A$(A$,1) xA$"N"790;xA$"Y"ʉ"REPLY Y OR N";A$:A$(A$,1):750TxK0KJ:F(W)J:710x ---------ADJUST STATISTICS, EACH SIDE-------------------xF(L)Jx F(W)Jʑ1120x*J5YL:OWx4C(J)Lx>M(W)M(W)1:T(W)T(W)V(J) yHM(L)M(L)1:T(L)T(L)V(J) yRM(1)0M(2)0250Xy\"ALL MEMBERS ARE IN ONE COALITION! GAME MUST END."kyf"SO LONG"::yp"WOULD YOU LIKE TO PLAY AGAIN";A$:A$(A$,1)yzA$"Y"ʄ:40yA$"N"ʉ"REPLY Y OR N";A$:A$(A$,1):890y 1180(z----------PRINT COALITION TABLES------------------------3zX$" ">zI12]z:" COALITION #";IizC1F(I)z"MEMBER VALUE"zJ15zC(J)I1030zJC1X$"CHIEF"zJ,V(J),X$zX$" "zJ{"TOTAL VALUE =";T(I):JJ1:1200:I{E{$--------SELECT MEMBER TO CHANGE SIDES------------------V{.M(W)11090{8"WINNING COALITION HAS ONLY ONE MEMBER -- GAME MUST END"{9J0:{BNN1:N6N1{LC(N)WF(W)N1090{VJN:|`----------NEW CHIEF FOR WINNERS------------------------&|jV10:I10:I15<|tC(I)WJI1160V|~V(I)V1I1I:V1V(I)e|I:F(W)I1k|q||"PRESS =ENTER= TO CONTINUE";A$:LD LIKE";J;"TO JOIN THEM."wK0790w"WILL YOU MAKE HIM CHIEF TO KEEP HIM";A$:A$(A$,1) xA$"N"790;xA$"Y"ʉ"REPLY Y OR N";A$:A$(A$,1):750TxK0KSj ::500j *****************************************************j **** "CRAZY EIGHTS" -- FROM A BASIC-PLUS PROGRAM ****k **** IN "BASIC AND THE PERSONAL COMPUTER" BY TOM ****Ck( **** DWYER AND MARGOT CRITCHFIELD. TRANSLATED BY ****k- ***************** DAVID ** LIBRIK *******************k2"CRAZY EIGHTS":kdD%(52),G%(52),H%(52),D$(52),Z(52),U$(4),C$(13)kT14:U$(T)::T113:C$(T)::T152:Z(T): l C,D,H,S-l A,2,3,4,5,6,7,8,9,10,J,Q,Kkl 1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,7,7,7,7l 50,50,50,50,9,9,9,9,10,10,10,10,10,10,10,10,10,10,10,10l 10,10,10,10l,"ENTER CARD NAMES AS VALUE FOLLOWED BY A SUIT"2m-"THE CARD VALUES ARE: 2=2,3=3,4=4,5=5,6=6,7=7,8=8,9=9,10=10,"jm." JACK=J,QUEEN=Q,KING=K,ACE=A"m/"THE SUITS ARE: C=CLUB,D=DIAMOND,H=HEART,S=SPADE"m0"IF YOU WANT TO PICK A CARD ANSWER 'NO' WHEN ASKED FOR YOUR PLAY"m1n^I14:J012:D$(IJ4)C$(J1)U$(I):J,I=nT052:G%(T)0:H%(T)0:TZnT052:D%(T)1::D152nI17:6300:G%(K1)1:6300:H%(K1)1:I:6300:C$D$(K1):H17:H27:B0:B%0::"THE FIRST CARD DOWN IS ";C$nnH20B2800:3000: o (H10 B2)ʑ6000::750o C10:C20uo*H20ʲ:"CARD(S) LEFT IN MY HAND: ";:I152:H%(I)D$(I);" ";:C1C1Z(I):I::I:o4I152:G%(I)C2C2Z(I):I:Io>C10850:C1C2C1C1C2:C20:850oHC2C2C1:C10oRS1S1C1:S2S2C2pf"YOUR SCORE IS";C1:"MY SCORE IS";C2CpzC2C1ʲ"YOU WON THAT HAND":N1N11:950bp"I WON THAT HAND":N2N21p:N3N31:"DO YOU WANT TO PLAY AGAIN";Z9$:(Z9$,1)"Y"450::"OUT OF";N3;"HAND(S) YOU WON";N1;". YOUR TOTAL SCORE IS";S1;". MINE IS";S2;"."bqS1S2"LOOKS LIKE YOU ARE HIGH SCORER.":S1S2"LOOKS LIKE I AM HIGH SCORER.":"LOOKS LIKE A DRAW."mq 6410q "THE CURRENT CARD IS A ";C$;".":"YOUR HAND IS: ";:I152:G%(I)ʲD$(I);" ";:I::I:q"DO YOU WISH TO PLAY A CARD";Z9$ r(Z9$,1)"N"5080FrD105030:B%ʲ"ALL THE CARDS ARE DEALT":B%1:5000er"YOU ARE BLOCKED":BB1:r6300:IK1:H1H11:G%(I)1::3000rI152:D$(I)Z9$5100:I:Z9$;" IS NOT A CARD":5000FsX$C$:Y$U$(I((I1)4)4):6350:T1T:X$C$:Y$C$(((I1)4)1):6350:T3T:T10T30ʲ"THAT IS NOT A LEGAL PLAY":5000usG%(I)ʲ"YOU DO NOT HAVE THIS CARD":5000sdG%(I)0:C$D$(I):H1H11:X$C$:Y$"8":6350:T0B0:sn"WHAT SUIT DO YOU WISH";S9$ssI14:S9$U$(I)C$U$(I):B0: 5250txI:S9$;" IS NOT A SUIT":5230at (H10 B2) 800 : "NOW PLAY A CARD OF THAT SUIT": 5000tpI152:X$D$(I):Y$"8":6350:T1T:X$C$:Y$U$(I((I1)4)4):6350:T2T:X$C$:Y$C$(((I1)4)1):6350:T3T:H%(I)T10(T2T3)6160:I>uI2932:H%(I)X$C$:Y$U$(I((I1)4)4):6350: T 6160 : I:6070EuIuD106080:B%ʲ"ALL THE CARDS HAVE BEEN DEALT":B%1u"I AM BLOCKED":BB1:u"I MUST DRAW":6300:H%(K1)1:H2H21:60008vC$D$(I):B0:H%(I)0:H2H21:"WITH";H21;"CARD(S) LEFT, ";:X$C$:Y$"8":6350:T0ʲ"I PLAY A ";C$:vB"I PLAY A ";C$;".":T14:Y(T)0:T:J14:KJ524:H%(K)Y(J)Y(J)1:K,J:K,JvDP1:J24:Y(J)Y(P)PJ:J:JwFC$U$(P):"I CALL THE SUIT ";C$: H20 B2 :"NOW I PLAY A CARD OF THAT SUIT":6000w+w * "FND(X)"nwK(52):K1K52:D%(K1)6320:K1:K11K1:D%(K1)6320::wD%(K1)0:D1D11:w * INSTRINGwT1(X$)(Y$)1:Y$(X$,T,(Y$))::T0:w w'L152:H%(L)D$(L);" ";::w'x NL152:D%(L)ʲD$(L);" ";:L:L$x*NTHAT IS NOT A LEGAL PLAY":5000Sj :(23)lj@330," CRYPTOGRAMj(@454," BY RIK PIERCEjZXX11500::jd@384,(23);"DO YOU WANT INSTRUCTIONS";:A$:(A$,1)"Y"850jnjx3000kC$(300),M$(350)kC(100),A(127),B(250)(kQ$(34)ak@140,"TYPE IN CRYPTOGRAM OR A NUMBER FROM THE BANK"kM$:(M$)3BN(M$):190k200k1110k:@448,(23);:" ASSEMBLING CRYPTOGRAMkM$M$" "kY1:Q0:X0:L10k(M$)142L132 lK1(M$)50 lC$(K)(M$,K,1)+lB(K)02lKEl":L10ʲ(23)Pl,M2$M$[l6M1$M$ql@X32L1X:Z32L1lTC$(X)" "370l^XX1:ZZ1:340lrLE(Y)Zl|K1KLE(Y)lLE(Y)0450l@64(192(Y1)),(M$,LE(Y)):YY1mM$(M1$,((M1$)Z))m310?mF75@964,"CRYPT #"BN"...CHALLENGER!";:480[mBN0@978,"CRYPT #"BN;jmA$:A$""m@896(L12)," CRYPT LETTER TO CHANGE? ";mA$:A$"" A$(13) 490mA$" " 480nA$"/"L0Y1:@(192L),(30);: L:XX1K:B(XX)0::Q0:480$nA$"?":120^nA$"n"BNBN1:190 : NOTE THIS IS >> SHIFT - N <<on@896,(30);n&XX115:XXn0@900(L12),"NEW LETTER FOR ";Q$;A$;Q$;" IS ?";n:B$:B$""B$(13)570nD(8);Q$;B$;Q$;oNB(A((A$)))0:B$" "650 oXU0.obB((B$))5B((B$))5:650?ol@896,(30);ovUU1:@910(L12),"ALREADY IN USE ";Q$;B$;Q$;:XX1100::@910," ";:XX1100::U5630o450oA((A$))(B$)oF80oL1Y1oK11LE(L)oTT1(p(C$(T))65ʲ@(192(L1)R),C$(T);:740;pC$(T)A$740Xp@(192(L1)R),B$;:F85opL10 RR1:760ypRR2pK1pR0p LpF85830p @896,(30);p*B((B$))0&q4UU1:@910,Q$;A$;Q$;" NOT IN CRYPT.": TIME1100::@916," ";:TIME1100::U58202q>T0:Q1;qH450VqR: ** INSTRUCTIONS **{q\:(23);" INSTRUCTIONS"qf:"CRYPTOGRAMS ARE SIMPLE CODES IN"qp"WHICH ONE LETTER IS SUBSTITUTED"qz"FOR ANOTHER. THIS PROGRAM HAS"r"A BANK OF CRYPTS, SO YOU MAY"@r"TYPE IN EITHER AN ORIGINAL"gr"CRYPTOGRAM, OR THE NUMBER OF"r"ONE IN THE BANK. AS EACH CRYPT"r"IS DISPLAYED YOU WILL BE ASKED"r"WHICH LETTER TO SUBSTITUTE. YOU"s"THEN TYPE THE LETTER OF THE"*s"CODE YOU WANT TO CHANGE. NEXT"Qs"TYPE THE LETTER YOU WANT TO"ds"SUBSTITUTE."ns1090s"SPECIAL SYMBOLS:"s"WHEN ASKED WHAT LETTER TO CHANGE"ss" ";(34);"/";(34);". . CLEARS ALL SUBSTITUTIONS"s)t$" ";(34);"?";(34);". . . SELECTS ANOTHER CRYPT"/t.dt8(34);"SHIFT-N";(34);" . . SELECTS NEXT CRYPT"tB@984,"=ENTER=";:Q$::(23);:tVBN29BN295u` BN 1130,1150,1170,1190,1210,1230,1250,1270,1290,1310,1330,1350,1370,1390,1410,1430,1450,1470,1490,1510,1530,1550,1570,1590,1610,1630,1650,1670,1690ujM$"GK'VK YLIKZ YLLKZTKT GQKZ GK DVK ZYI MYPRIKPB YLLKVKT IQDI GQREQ GK TYZ'I VKDPPB GDZI. "ut v~M$"PYXT BU FLT RYYW FLWYKSL ELBHL ET CYXT AWYC UTPABULQTUU FY UTWXBHT JQR AWYC UYPBFKRT FY JPP FLT EYWPR. "vvvM$"HXVBB BCCBLHYFPC GS PYSB FVB CGWBHXYLN HG RG, CGWBGLB HG PGAB, FLR XGZB SGV YWZVGABWBLH. "|vvM$"MEK XIWEY MBZ DMBEY PUKZWLPEA RM -- XIKD PGCPDA UPVK ABZK XIKWZ LPZA CWGG CMZV KOKE WJ XIKD RME'X. "vuwM$"K RPPW-KZPM LPWR SBL ZBMA SPM YBMLR CMXSBJ IBRS K XKMJ LKNBWZ: "(34)"IBRS KAA GN ACUP KWJ GCLR CY GN KAACIKWXP."(34)" "{wwM$"W ZXQQVZS HS OPUU ZVFS QVSFZ JYSS BSYZS LSOPXZS WA WZ SPZWSY RWBWER AISF PHPM AIPE AYMWER AV ZSUU AISF. "w^xM$"HTYTUVAN VH UTETY WVETU AB LH -- QPOZ QBZIBHLYT PUM MVHQVIOVUT RPET AB JT VUMVEVMLPOON PQRVTETM. "dxxM$"CZM XRWDYZ JVDP CILCMD ORRX C IKPPIR XRXXRW KZ QKD JCOR-VX PY AR LYWPQ QKD DCIP. "x8y M$"PZ ATM AYFM SM NRYA SGWCMOYWK TGS GRO QTYVCOMW SYVV AROW GRA, SM PMKYW AG SGWCMO STMW ATMZ SYVV QGFM YW. ">yyM$"BD'F H CBJ LBSWSPFF DX PSDMRFD FXVP EXQLF NBDK H FPIMPD CPIHRFP DKPG EPPQ FX BVTXMDHSD NKBQP DKPG HMP DPQQBSJ BD DX FXVPCXWG PQFP. "y(*z2M$"SYR NRBS QHIS DR RZRP NRBSKD COKG KSYRP ORKOFR HB SYLS KI HXOPKZHGQ KCPBRFZRB. "0z<wzFM$"DP FNDRP PMN NKVPLRP IVNRB'P KV DGVCBI PDFELBK DWVCP VPMNGR. "}zPzZM$"XN ANTLE OLNTE DE -- GNIPMZNUMI UOP O FNE POCMI UGMX NXFQ GNIPMP GOA DE. "zd_{nM$"AMJHRBREDH HEJ IDC GRKKRID, WRUC MTDLPCL OMITHEDL ACIAKC EPC UCPJ GTBM IUCPVCRYMO; OMCHC EPC, IW BITPHC, APCOOJ PITDL WRYTPCH. "e{x{M$"OMYMWC, YV AV HXRVOGRHG, LVHHRNRHG, MF GAVMQMKRZO, BRQQ WVOC GAZG AZLLROVHH RH GAV TRFHG NMHG WVHRFZYQV GAROK RO QRTV. RG'H BAZG BV ZQQ BZOG. "|i|M$"OXKE PQH YLE'V NKLV 'KR LEA VXKP OQE'V SKV PQH TQGE 'KR, THWV WEHN 'KR. GV LSOLPW WHYYKKAW. "o||M$"Z VXZFF UWKFY, FJJEKDH ZG Z HLBZG YZDB, ZVEBY WKV TZGWBL: "(34)"KV WB TJL XB JL ZX K TJL WKX?"(34)" "|c}M$"RJB ACGDPH WA ZBUWHDCHM PE RDKER; PRE QCDX CVZ QWWA CDB OKERPHB CVZ ADBBZWU. RW ECHDPAPHB WVB UCM ZBERDWM GWRJ. "i}}M$"KAHMPHECSW CLH JEH ILJ KBRSO CJ BOV MPHOCRJEO VEJIO HRCLHA HTHAWCLREQ JA EJCLREQ. "}$~M$"XABGB HAVFVH GVCTF UK B JKAZID QTI XKWVCTFZ VD CIVDC JWBHKZ BDX UIIVDC FTVDCZ. "*~~M$"HYFH TLRMDHTLFHQ JLKJCJKTFW SYM RQFDU YQ SJWW NQ OMLPTQDQK JU FNMTH OQDHFJL HM NQ KQRQFHQK. "~M$"DV ZYBFW WZ HV NDNCV WFNW "(34)"PVOVBNWMRB NYWFZCMWE"(34)" GNR HV WFV KZLW PMIOZKNWMG, CZYRPNHZYW DNE WZ INLL WFV HYGA. "$"M$"HBIKW LYW NMIKW? TLYH GBAMI IKVHMIKW? HIF VKIGBYA FMPI YKBAZNMI -- HZBV RBYW MX CLNMI TBCC NIBYA FMP HZK AIKLHKVH IKTLIW. ",6M$"DZ NMG JYK XSJ L FBYH GBM CMIZ FXDM KYYJ GXFGM LS FMQMOGLSK FQLNNMIF -- HBXG L OBYYFM, BM OBMHF GYY. "#@JM$"VH J ZICJM HKNRCI TQ DTNCA, EJE VA OTHOCIHCE JRTKM XJIBVHZ AXJOC, MDC BVEA JRTKM TKMCI AXJOC, JHE NTMDCI JRTKM OPTACM AXJOC. "T^M$"IW IGMPA JFDMGPD MP KPG LKLGPD KR FPAGU, BG LFW KRDGP GVTFJG WGFUV KR UGAUGD. "hrM$(34)"CDD QR BCSWYDR EPHHBHHLPFH KPS C ESBTLPVH QPQBFW PK WLQB,"(34)" NBSB WYB DCHW SBTPSUBU NPSUH VWWBSBU JR XVBBF BDLGCJBWY WYB KLSHW. "| M$"NGHES, PGU GZ PGHS, QA ADW UZGEV ARIW QES MPQXW RN EGRNW QES QA ADW ZRVDA ARIW QES MPQXW RN MPWQNQEA IHNRX. "&M$"XFRT XPBNXMLHLCRBXH JBNLHXP DVMXPWNJ XVBRMVW XPWRGXBWJ TDPRVC XPTDLDJ MUBXFXWRLVJ. "SO CJ BOV MPHOCRJEO VEJIO HRCLHA HTHAWCLREQ JA EJCLREQ. "}$~M$"XABGB HAVFVH GVCTF UK B JKAZID QTI XKWVCTFZ VD CIVDC JWBHKZ BDX UIIVDC FTVDCZ. "*~~M$"HYFH TLRMDHTLFHQ JLzj:(23)," DOMINOES VERSION 2.1j: BY PETER KIRSCH JULY 1980j 1000::GT100:G140:P15360:A$(28),D(20),P$(20),T$(20),P1$(20)NkG$(1)"BLOCK GAME":G$(2)"DRAW GAME":G$(3)"BERGEN ":X$(3,131):X1$" ":CH1:PB7:TB7:BN14:DB1kC1:A06:B0A6:A$(C)(A)(B):CC1::kGM1190:GM1kA116:D(A)896(A3):k2000k(@330,"DOMINOES";:@342,"DOMINOES";!l2@512,"CHOOSE GAME";:A13:@530A64,A(24)". "G$(A);:^l<A$:B1125::16007,63:A1125::16007,32:A$""60lAD(A$):D1D360:D3GT15:D1GT50lBD2GS1mF@512,G$(D)" ";:@595,"DO YOU WANT ";:@659," RULES? ";:@723," (Y/N) ";:@787," ";BmGA$:A$""71:A$"N"100:A$"Y"80:71 nP:"DOMINOES ARE PLAYED WITH A DOUBLE-SIX PACK OF 28 TILES (CALLED":"BONES) WITH PIPS (OR SPOTS) RANGING FROM 0/0 TO 6/6. PLAYERS":"ARE DEALT 6 OR 7 BONES (DEPENDING ON GAME). THE REST OF THE"nR"PACK IS CALLED THE BONEYARD (OR JUST YARD) AND IS SET ASIDE FOR":"LATER. THE PRIMARY OBJECT OF DOMINOES IS TO BE THE FIRST TO":"PLAY ALL HIS TILES AND GO OUT, OR HAVE THE LOWEST PIP COUNT"oT"LEFT IN HAND WHEN PLAY ENDS. PLAYERS, IN TURN, LAY TILES IN A":"LONG CHAIN, MATCHING ADJACENT ENDS."::"THE LARGE DOMINO IN THE DISPLAY SHOWS BOTH ENDS OF THE CHAIN.":"YOU NEED MERELY TO KEY IN THE NUMBERS OF THE TILE YOU WISH TO"pV"PLAY AND IT WILL BE PLACED FOR YOU. YOU NEED NOT PRESS ENTER.":"YOUR DOMINOES WILL BE DISPLAYED ALONG THE BOTTOM OF THE SCREEN."::"STARTING (SETTING) AND SCORING DIFFERS WITH GAME PLAYED.":5000pW:G$(D)::D93,96,88iqX"PLAYERS ARE DEALT 6 BONES INSTEAD OF 7. GAME IS PLAYED TO 15":"POINTS. THE LOWEST DOUBLE MUST BE SET AND THE HOLDER SCORES 2":"POINTS. THE OBJECT OF THE GAME IS TO MATCH BOTH ENDS OF THE"+rY"CHAIN, MAKING BOTH ENDS ALIKE. HE SCORES 2 POINTS FOR A":"DOUBLE-HEADER. IF ONE END OF THE CHAIN HAS A DOUBLE OR IF THE":"PLAYER PLAYS A DOUBLE, HE SCORES 3 POINTS FOR A TRIPLE-HEADER."rZ"A SMALL 'D' INSIDE A CUBICLE ON THE DOMINO ON THE DISPLAY":"INDICATES A DOUBLE ON THAT END OF THE CHAIN. IT'S JUST A":"REMINDER. IF A PLAYER GOES OUT, HE GETS 1 ADDITIONAL POINT. ALL"s["BONES IN THE YARD ARE PLAYED. IF YOU CAN NOT PLAY YOU MUST":"DRAW ONE BONE AND ONLY ONE. IF YOU STILL CAN NOT PLAY, YOU MUST":"PASS. IF THE YARD IS USED UP, 2 CONSECUTIVE PASSES ENDS PLAY.":5000:2000:100t]"PLAYER HAVING THE HIGHEST DOUBLE MUST START AND SET IT. THERE":"IS NO DRAW FROM THE YARD. PLAYERS PLAY ONLY WITH TILES DEALT.":"WHEN YOU CAN'T PLAY, YOU MUST PASS. TWO CONSECUTIVE PASSES"t^"ENDS PLAY. GAME IS PLAYED TO 50 POINTS.":98:2000:100u`"PLAYERS DRAW BONES TO SEE WHO SETS FIRST, HIGHEST TILE (TOTAL":"PIPS) STARTING AND PLACING ANY HE OWNS. IF A PLAYER CAN NOT":"PLAY A TILE, HE MUST DRAW ONE OR MORE FROM THE YARD UNTIL HE"Lva"CAN PLAY AND PLAY IT. THE LAST 2 BONES IN THE YARD ARE FROZEN":"AND MAY NOT BE PICKED. A PLAYER MAY NOT PASS UNTIL THEN. TWO":"CONSECUTIVE PASSES ENDS PLAY. GAME IS PLAYED TO 100 POINTS."wb:"SCORING: IF ONE PLAYER GOES OUT, HE SCORES THE SUM OF THE PIPS":"ON HIS OPPONENT'S UNPLAYED TILES. IF NO ONE GOES OUT, THE":"PLAYER WITH THE FEWEST REMAINING PIPS WINS AND SCORES THE"Twc"DIFFERENCE BETWEEN HIS AND HIS OPPONENT'S.":5000:D1ʒ:2000wdD2190:@512," ";:150:@583,"WE'LL DRAW TO SEE WHO STARTS";:A12000::CH0oTT3.3:SS.75:SoTT2.5:SS.5:foTT2:SS.3:yoTT2:SS.5:oTT1.5:SS.4:oTT1.2:SS.3:oTT1:SS.2:o"@896,(30);"You had an engine blowout at";T200;"RPM";o,310Mp6@889,Y;:@960,(30);"Final Speed:";S4;"MPH. Press ENTER for another game";_p@(13)320epJift";(10);"while accelerating.";(10)k"Always watch your tach!";(10);"Good luck!";(10);"You are already in first gear."l"Press ENTER to begin";Al(:600:ACYl2A(61,191):@2,A;:@258,A;:@194,A;:@450,Agj :KIZMET VER 1.0 05/18/80j:PERSONAL COPYRIGHT (C) 1980, STEVEN TALMAGE.j: IN$,W$,WL,WL%,FL,WS,WD:210j(IN$"":W$:WD0:B0:WSWD:WL%WD:FLWDFL1k2((FL),(136));((FL),(24));fk<(14);:W%125:W$:W$""70::(15);:W%125:W$:W$""70::60kFW$(13)90:((FL)WL%," ");kP(15);:W%25::kZ(14);:W$(24)ʲ(WL%,(24));:40 ldW$(8)140:WL%060:(24);:FL0120:(16418)44130Gln(16418)46WD0:120:(16418)43(16418)45WS0_lxIN$(IN$,(IN$)1)|lWL%WL%1:16418,136:60l(FL)WL%60:FL0ʏW$" "W$"z"190lW$"."WD0WD1:190lW$","ʲW$;:WL%WL%1:200m(W$"-"W$"+")WS0WL%0WS1:190%mW$"0"W$"9"60CmW$;:IN$IN$W$:WL%WL%1Wm(FL)180:60m600: S,G:S(18),SC%(2,15),ST%(2,15),TS(2,3),S3(6,3):65000:@232,(2,143);" ONE MOMENT PLEASE!";:LOOP15:DI(LOOP)1:nA115:S(A):A:A010:SM(A)::A02:S1(A)::SS:G1"##":G2"###":SC"SC":SH" "(143)" HIT ENTER "(143):A12:B115:SC%(A,B)0:B,A:A13:SV(A):SV(A)SV(A)(94):nN16:N113:N219:RD:S3(N,N1)S3(N,N1)(RD):N2,N1,N2o:(54,191);(10,170);(54,143);(10,138);::A12:"NAME OF PLAYER";A;:FL8:40:SN(A)IN$::o:SS:@512,SS:A16:@64A,S(A);:@64(A8),S(A);::A712:@(64(A6))14,S(A);:@(64(A2))14,S(A);:apA1315:@(64(A12))34,S(A);:@(64(A4))34,S(A);::A13:@(64(A3))34,SV(A);:@(64(A11))34,SV(A);::@448,(58,140);:@960,(63,140);:16383,140:SW(170):A16:@64A1,SW;q@64(A8)1,SW;:@64A8,SW;:@64(A8)8,SW;:@64A16,SW;:@64(A8)16,SW;:@64A28,SW;:@64(A8)28,SW;:@64A33,SW;:@64(A8)33,SW;::A13:@64A36,SW;:@64(A8)36,SW;q@58,(6,140);:@64A48,SW;:@64(A8)48,SW;:@64A53,SW;:@64(A8)53,SW;::A0579605764:@A,SW;::A1397364:@A,(191);::@44811," ";SN(1);" ";:@96011," ";SN(2);" ";dr"D0:A12276264:@A,SM(D);:DD1::D0:A82695464:@A,S1(D);:DD1::A16:@64A10,G1;SC%(1,A);:@64(A8)10,G1;SC%(2,A);:r,A712:@64(A6)30,G1;SC%(1,A);:@64(A68)30,G1;SC%(2,A);:r6A1315:@64(A12)50,G1;SC%(1,A);:@64(A128)50,G1;SC%(2,A);:Fs@A13:@64(A3)50,G2;TS(1,A);:@64(A11)50,G2;TS(2,A);::EN1800sJ@34,SH;:@546,(14,32);:A150::@34,(14,32);:@546,SH;:A150::""330:@546,(14,32);:WW1ʄ:350sTRN(2)::@20,SN(RN)" GOES FIRST."+t^LOOP15:DI(LOOP)1::WW1360:DA1DA0:360:RN2RN1:RN2|th440:@64,SN(RN)"'S TURN.":WW1:LOOP1500::65100:TURNTURN1:TURN3390;ur@512,(40,32);:@512,"DO YOU WANT TO KEEP THE ROLL (Y/N)? ";:FL1:40:IN$"Y"ʑ440:390:@512,"HOW MANY DICE DO YOU WISH TO CHANGE? ";:FL1:40:(IN$)1(IN$)5370:DC(IN$):440u|LOOP15:DI(LOOP)0::LOOP1DC:@512,(40,32);:@512,"CHANGE #";LOOP;" WHICH DIE? ";:FL1:40:(IN$)1(IN$)5380:DI((IN$))1::@512,(40,32);:360|vFL1:LOOP25:RO(LOOP)RO(1)420::KI(RN)KI(RN)1:@640,(143)" KIZMET "(143):NLOOP11000::KI(RN)1ʲ@640,(20,32);:420:RN1NN2:NN1:4206w@640,SN(NN);" MUST TAKE A 0 SOMEWHERE.":@512,(50,32);:@512,"WHICH SECTION? ";:40:IN$"A"ʲ@512,"WHICH NUMBER? ";:FL1:40:(IN$)1(IN$)6400:ST%(NN,(IN$))1:DA1:420w@512,"WHICH NUMBER? ";:FL1:40:(IN$)7(IN$)15410:ST%(NN,(IN$))1:DA1xTURN0:@512,(40,32);:@512,"WHICH SECTION DO YOU WISH TO USE? ";:FL1:40:IN$"B"500:IN$"A"ʲ@51264,"ERROR. TRY AGAIN.";:420{xLOOP16:ST%(RN,LOOP)0460::@51264,"SECTION A USED UP. TRY AGAIN.";:LOOP11000::420xLOOP16:ST%(RN,LOOP)0ʒ::AS(RN)1ʒ&yAS(RN)1:LOOP16:TS(RN,2)TS(RN,2)SC%(RN,LOOP)::TS(RN,2)63ʒ:TS(RN,2)63TS(RN,2)70TS(RN,2)TS(RN,2)35:tyTS(RN,2)71TS(RN,2)77TS(RN,2)TS(RN,2)55::TS(RN,2)TS(RN,2)75:}y480y@51264,"CATEGORY #";A;"HAS ALREADY BEEN USED. TRY AGAIN.";:LOOP11000::z@512,(255,32):@512,"WHAT CATEGORY NO. FOR SEC. A (1 THRU 6)? ";:FL1:40:A(IN$):A1A6ʲ@576,"ERROR. TRY AGAIN.";:LOOP11000::480:ST%(RN,A)1ʑ470:480:ST%(RN,A)1zLOOP16:RO(LOOP)ASC%(RN,A)SC%(RN,A)RO(LOOP)::NR1:250::250zLOOP715:ST%(RN,LOOP)0510::740{@576,(50,32):@512,(40,32):@512,"WHAT CATAGORY NO. FOR SEC. B (7 THRU 15)? ";:FL2:40:A(IN$):A7A15ʲ@576,"ERROR. TRY AGAIN.";:LOOP11000::510:ST%(RN,A)1ʑ470{ST%(RN,A)0ST%(RN,A)1:530:510 |A6540,560,580,650,680,690,700,720,730H|QQ0:L15:L1L15:RO(L)RO(L1)QQQQ1:L1,L:L1,L|&QQ2ʁLOOP15:SC%(RN,A)SC%(RN,A)RO(LOOP)::250:250|0QQ0:L15:L1L15:RO(L)RO(L1)QQQQ1:L1,L:L1,L}:QQ3ʁLOOP15:SC%(RN,A)SC%(RN,A)RO(LOOP)::250:2503}DLO15:NR(LO)RO(LO)::J25:IJ1:TARO(J)E}NTARO(I)610f}XRO(I1)RO(I):II1:I0590x}bRO(I1)TA:J}lLOOP15:LOOPRO(LOOP)630::640}vL2:LOOP15:LRO(LOOP)ʁLO15:RO(LO)NR(LO)::250:LL1:~LO15:RO(LO)NR(LO)::SC%(RN,A)30:250U~LOOP15:TRRO(LOOP):TR6TR1660::SC%(RN,A)35:250~LOOP15:TRRO(LOOP):TR5TR2670::SC%(RN,A)35:250~LOOP15:TRRO(LOOP):TR4TR3250::SC%(RN,A)35:250d@512,(50,32);:@512,"DO YOU WISH TO TAKE A 0 (Y/N)? ";:FL1:40:IN$"Y"250:SC%(RN,A)15:LOOP15:SC%(RN,A)SC%(RN,A)RO(LOOP)::250@512,(50,32);:@512,"DO YOU WISH TO TAKE A 0 (Y/N)? ";:FL1:40:IN$"Y"250:SC%(RN,A)20:LOOP15:SC%(RN,A)SC%(RN,A)RO(LOOP)::2500QQ0:L15:L1L15:RO(L)RO(L1)QQQQ1:L1,L:L1,L|QQ4SC%(RN,A)25:LOOP15:SC%(RN,A)SC%(RN,A)RO(LOOP)::250:250LOOP15:SC%(RN,A)SC%(RN,A)RO(LOOP)::250LOOP25:RO(LOOP)RO(1)250::SC%(RN,A)50:LOOP15:SC%(RN,A)SC%(RN,A)RO(LOOP)::250`LOOP715:TS(RN,1)TS(RN,1)SC%(RN,LOOP)::AS(RN)1760:RN1NN2:NN1LOOP115:ST%(NN,LOOP)0250::DA1:250TS(RN,3)TS(RN,1)TS(RN,2):RN1NN2:NN1LOOP115:ST%(NN,LOOP)0250::TS(NN,1)0RNNN:740:780# TS(1,3)TS(2,3)RN1:RN22EN1:250 @34,SN(RN);" WON";:@546,(14,32);:A150::@546,SN(RN);" WON";:@34,(14,32);:A150::""800:6T$(2,143)::"KIZMET "(140)" BY STEVEN TALMAGE":(54,191);(10,170);"THE BIGGEST NAME IN COMPUTER PROGRAMS":@320,T$" ENTER NAMES OF PLAYERS "T$;" EACH PLAYER WILL BE GIVEN A SCORE SHEET":T$;" EACH SECTION HAS A LETTER ";(143);" A FOR BASIC, B FOR KIZMET ";(143)T$;" EACH PLAY IN BOTH SECTIONS HAS A NUMBER "(143)" 1 TO 15 "(143):T$" SCORES ARE AUTOMATICALLY CALCULATED (ALL BONUSES, ETC.)":T$" TO CHOOSE WHAT PLAY YOU WANT, ENTER THE NUMBER OF THE PLAY"@896,(64,133);:@980,"PRESS ENTER TO CONTINUE";P0:N161:@898P,(179);:@897P,(133);:PP1:N:@956,(3,133);:IP$:IP$""65040: "1 ACES ","2 DEUCES ","3 TREYS ","4 FOURS ","5 FIVES ","6 SIXES "," 7 2 PAIR "," 8 3 OF KIND "  " 9 STRAIGHT ","10 FLUSH ","11 FULL HOUSE ","12 FULL HOUSE ","13 4 OF KIND "ن$ 14 YARBOROUGH ,15 * KISMET * ,BONUS,SCORES,ARE,IN-,CLUD-,ED,IN,ALL,SCORES,WHERE,THEY,ARE,APPLIC,ABLE.,BASIC SEC SC KIZMET SECTION SC SC,KIZMET SEC TOT,BASIC SEC TOT ,GAME TOT HLN915:DI(N9)0ʇ:N96ʒ:N212:P0:N16:N113:@128P,S3(N,N1);:PP64:N1:P0:N3125::N,N2VN96ʒ:X(6):ZX:Z1Z:CK9POZ:P1Z:PO9POPO10`P0:N13:@128P,S3(X,N);:PP64::N1500:j@448N955,Z;:Z1Z6ʲ"B";:Z2Z5ʲ"R";:"G";*tRO(N9)Z:P0:N15:@128P,(40,32);:PP64:::~ 191,191,191,191,191,191,191,191,191,191,191,191,191,179,191,191,191,191,191,191,191,191,191,191,191,191,191 191,191,191,191,191,191,143,191,191,191,191,191,191,191,191,191,191,191,191,191,188,191,191,191,191,191,191 191,191,143,191,191,191,191,191,191,191,191,191,191,179,191,191,191,191,191,191,191,191,191,191,188,191,191 191,191,143,191,191,191,143,191,191,191,191,191,191,191,191,191,191,191,191,191,188,191,191,191,188,191,191d 191,191,143,191,191,191,143,191,191,191,191,191,191,179,191,191,191,191,191,191,188,191,191,191,188,191,191֊ 191,191,143,191,143,191,143,191,191,191,191,191,191,191,191,191,191,191,191,191,188,191,188,191,188,191,191 FULL HOUSE ","12 FULL HOUSE ","13 4 OF KIND "ن$ 14 YARBOROUGH ,15 * KISMET * ,BONUS,SCORES,ARE,IN-,Pj 1510ej1000:A,M,N,K,SjA(45,45),M(400),N(400)j(:(23):"M A Z E E N C O U N T E R":j2"ENTER DIMENSION OF MAZE (11-45) ?";j<A$:A$""60:A$;:N(A$)48"kFA$:A$""70:A$;:Z(A$)480kPNZN10ZDkZNZ11NZ45,40^kdNZ2(NZ2),NZNZ1hknMZNZnkxzkK127kX:M$M$(X):k205,127,10,77,68,62,1,105k211,255,45,32,253,60,105k211,255,45,32,253,13,16l238,175,211,255,2013lS1(M$):01(65536((S11)(S12)256))al@50,"CURRENT":@114,"RESET":@178,"HIGH"l@960,"M A Z E C O N S T R U C T I O N";:K0lM0MZ1:A(M,0)1:A(M,NZ1)1:lM0NZ1:A(0,M)1:A(MZ1,M)1:mM((MZ4)2)2:N((NZ4)2)2$mM4MMZ4N4NNZ4210Em(N2,M):(N21,M):A(M,N)1zmA(M2,N)1A(M2,N)1A(M,N2)1A(M,N2)1370mD(4):D260,270,280,290mM11:N10:300mM10:N11:300mM11:N10:300m"M10:N11m,A(MM12,NN12)1250%n6((NN1)2,MM1):((NN1)21,MM1)Un@((NN12)2,MM12):((NN12)21,MM12)nJA(MM1,NN1)1:MMM12:NNN12:A(M,N)1nTKK1:M(K)M:N(K)N:@58,K;:L(2278256K)n^AMKAMK:@186,AM;:L(2275256K)nh240nrMM(K):NN(K):KK1o|@122,K;:L(2279256K)*oK04103o240po1,16,63,33,0,60,62,191,119,35,16,252,6,64,13,32,247,201o@690,"PACKING";:@754,"STRINGS ---";oB$" ":D$(26)(24):E$(135):F$(129)oG$(159):H$(139):I$(130):J$(175))pDR$B$D$B$D$B$D$B$D$B$D$B$D$B$D$B$A(R1,C1)1WL5,960QuHWL1P529:WL2,P279:WL3,P154:P29ruR@P,W$(WL);:L((WL4)1000)u\J0:K0:1190:WL870,900,930,950ufJ1@15,DR$;:@16,DR$;:@17,DR$;upK1@43,DR$;:@44,DR$;:@45,DR$;uz950 vJ1@22,DR$;:@23,DR$;%vK1@37,DR$;:@38,DR$;.v950@vJ1@26,DR$;RvK1@34,DR$;cvWLWL1:780vR2C2RMZ2CMZ2,EG1:1320vK0:J0:R1R:C1C:1190vJ1ʁI610:@I,DR$;:vK1ʁI5054:@I,DR$;:w@793,D$;:@843,L$;:@875,R$; wCT0Jw@970,"MOVES"MV" N"R1" S"MZR2" E"MZC2" W"C1;yw@910,"M=MOVE (NSEW)=PIVOT X=SEE MAZE";wA$:A$""L(2272568CT):CTCT1:1040wA$"N"D1:690w$A$"E"D2:690w.A$"S"D3:690w8A$"W"D4:690xBA$"M"1120*xLA$"X"MVMV3MZ:14004xV1040Tx`D1A(R1,C)0RR1:1170txjD2A(R,C1)0CC1:1170xtD3A(R1,C)0RR1:1170x~D4A(R,C1)0CC1:1170x960xMVMV1x690xD1200,1230,1260,1290yA(R1,C11)0J1yA(R1,C11)0K1y5yA(R11,C1)0J1KyA(R11,C1)0K1QygyA(R1,C11)0J1}yA(R1,C11)0K1yy A(R11,C1)0J1yA(R11,C1)0K1yy(:@832,"MOVES";MV z2EG1@768,"YOU HAVE ESCAPED !!!";:I10075:L(11111I):0z<@0,"YOUR OPTIONS. . ."::CT0zF"1 - NEW GAME, NEW MAZE 2 - NEW GAME, SAME MAZE 3 - CONTINUE CURRENT GAME";zPA$:A$""L(9256227CT):CTCT1:1360zZX(A$)48:X120:X2:650zdX31320zn690zx{X2MZ2:L(7256227X):Y2MZ2={A(X,Y)1(Y2,X):(Y21,X)F{Y,Xt{@965,(93);" CURRENT POSITION *** ";{" TO CONTINUE . . .";{(C2,R):(C21,R):@960,(140);{A$:A$""1320{(C2,R):(C21,R){L((1000))|@960," ";:1460<|:5),"M A Z E E N C O U N T E R":|" YOU WILL SOON BE PLACED IN THE CENTER OF A MOUSE MAZE;"|"BUT UNLIKE THE MOUSE, YOU WILL INITIALLY SEE A PERSPECTIVE"}"OF THE MAZE AS IT IS CONSTRUCTED. THERE IS NO CHEESE IF YOU"J}"SHOULD ESCAPE, BUT PERHAPS A LITTLE PERSONAL SATISFACTION.":}" TO MOVE THOUGH THE MAZE, JUST PRESS THE -M- KEY."}""YOU WILL THEN MOVE ONE LOCATION IN THE DIRECTION YOU ARE" ~,"FACING. TO CHANGE YOUR DIRECTION, PRESS N,S,E, OR W. EACH"K~6"MOVE YOU MAKE WILL BE TABULATED; SO YOU CAN JUDGE YOUR"~@"MOUSE IQ. IF YOU GET CONFUSED, PRESS THE -X- KEY AND YOUR"~J"POSITION IN THE MAZE WILL BE DISPLAYED. SEEING THE MAZE WILL"T"COST YOU 3 MOVES TIMES THE DIMENSION OF THE MAZE."4^:" TO CONTINUE . . .";A$`h:10)"M A Z E E N C O U N T E R":r" TO BEGIN, YOU MUST SELECT THE DIMENSION OF THE MAZE."|"THIS SIZE MAY RANGE FROM 11 TO 45 SQUARE. A SIZE OF 11 IS")"EASY TO ESCAPE FROM, BUT A SIZE OF AROUND 25 GETS DIFFICULT."Y"THE LARGER SIZES ARE PURE FRUSTRATION.":" SINCE YOU CAN'T SMELL THE CHEESE TO AID IN YOUR QUEST,"․"THE STRAIGHT LINE DISTANCE FROM YOUR LOCATION TO THE MAZE EDGE"#"WILL BE DISPLAYED (N,S,E,W). ALSO, HOOK TO CASSETTE AUX"["PLUG TO A SMALL AMPLIFIER FOR THE SOUND EFFECTS.":"DAVID BOHLKE COGGON, IA 52218":" TO BEGIN . . .";A$::TYPED IN BY QUENTIN BARNES P.O. BOX 627 CHESTER, IL 62233YOU"J}"SHOULD ESCAPE, BUT PERHAPS A LITTLE PERSONAL SATISFACTIONk :: ************************************** ** MINER VER. 1.0 ** ** (C) BY PHILLIP CASE 6/80 ** **************************************k"T":300:AZ::AD15360:E$(162)(2,179)(149):EP121:ER$(4,128):C$(128)(170)(149)(32):M500:P15464kT1(AD128)(AD191):T1,152:k(T2T1(AD1023):T2,191:k2T1(AD960)(AD1023): T1,153:)l<T1(AD192)(AD896)64:T1,149:(T163),170:^lFT1AD184AD95964:T214:(T1T2),128:T2,T1lPX115120:(X,0)::Y27:(122,Y)::(121,1):(122,2):(123,3):(124,4):(125,5):(126,6):(117,1):(118,1):(118,2):(117,2)?mZY08:(77,Y)::(86,0):(86,1):Y8693:(Y,2)::X7793:(X,6):(X,7)::@39,"BANK";md@0,(191)(9,32)(191)(9,32)(191)(14,32)(191);:X071:(X,3):mn390mx280nW$(20,191):@410," MINER ";:@539," BY ";:@662," PHILLIP CASE ";:A12000::@410,W$;:@539,W$;:@662,W$;n 4103n: COMMAND LOOPnP,88:::::::::::::::::::::::::::::::::::::::::::::P,43:::::::::::::::::::::::::::::::::::::::::::::::P,32nPP(14400)nPP2ʍ780nP15467PP32ʑ720:PP0:150$oPP8P1P64:PP16P1P64:PP32P1P1:PP64P1P18o(P1)162ʑ620FoNM0:690ZoNM1P10:160ro(P1)46ʑ490:270o(P1)32ʑ440oPP1o150o: ELEVATOR ROUTINEo": MP=1 TO GO UP *****MP=2 TO GO DOWNo,: EP=ELEVATOR POSITIONp6MP1(ADEP64)128ʒ*p@MP2EP953ʒGpJMP2(ADEP64)128ʒZpTMP1EP121ʒ}p^MP1EPEP64:MP2EPEP64ph @EP,E$;:EP895370:MP1ʲ@EP64,ER$;prEP121ʒ:(ADEP64)191ʲ@EP64,C$;p|MP0:q: FIGURE PRICE OF GOLDqGP500(300):740:2q: GENERATE TERRAIN?qT1135pqX(832)191:(ADX)191ʱADX,46::::430q: CHECK FOR WIN OR LOSS&rM7000ʄ:A110:A5);"YOU WIN!!!!"::" YOU CAN NOW SELL YOUR CLAIM TO A BIG MINING COMPANY AND RETIRE FROM THE ROYALTIES. PRESS ENTER";:A:205rMM5:740rM0ʄ:"YOU HAVE GONE BANKRUPT. PRESS ENTER TO PLAY AGAIN.";:A:20rr: PERFORM CHECK OF TERRAINr 390r(P1)46CK(5):CK530,540,560,600,610:740:rGsP1,71:G(3):GCGCG:@65,"GOLD NUGGET,";G;"OZS.";:A1500::@65,(19,131);:P1,32:sP1,83:@65,"UNDERGROUND SPRING!!!";:T1P116383:(T1)32(T1)128ʱT1,37:::s&@65,(21,131);:P1,37:s0P1,32:@65,"CAVE-IN!!!";:T1P168P16864:T219/t:(T1T2)32(T1T2)128ʱ(T1T2),191:T2,T1::T2,T1tDP10:(5)1@65,"YOU LOST ALL YOUR GOLD!!!";:GC0:A1500::@65,(25,131);:tN@65,(15,131);:P1,191:tXP1,32:@65,"SANDSTONE, EASY DIGGING";:MM4:A1500::@65,(23,131);:=ubP1,82:@65,"SOLID ROCK, PICK-AXE WON'T DO";:A1500::@65,(29,131);:WulP10:: ELEVATOR SUBruvPP(14400):PP64630uPP8MP1:PP16MP2uMP1(EPAD64)128MP0u280v(14400)32((ADEP1)32(ADEP1)128(ADEP1)191)P1ADEP1: v630.vNM0::PERFORM CHECK ROUTINEYv(P1)46(P1)32(P1)191NM1:_vtv: BANK ROUTINEvMM(GCGP):GC0:A110:@103,(8,36);:B150::@103,(8,32);:B150:B,A:740:v: DISPLAY FIGURES.w@1,"GM $";GP;:@13,GC;"OZS.";:@22,"CASH $";M;:M7000760:440::Lw: FLASH WINNING FIGURESwA110:@22,"CASH $";M;:B1100:B:@22," ";:B1100:B,A:w : BAD MINE)x:(23);" MINER'S LUCK TOO BAD THE OLD MINE JUST DIDN'T PAN OUT. PRESS ENTER TO TRY AGAIN";:A:20::@65,(19,131);:P1,32:j: STAKE YOUR CLAIM by Rik Pierce j:16561,&H6F:16562,&HBF:1000jTRS1:(293)73TRS3j15360,97:TRS3(15360)9710kA$:A$"HHH"4"kI&HBFD7&HBFFF:B:I,B:@k16414,&HD7:16415,&HBF:fk :: POKE IN LC DRIVER AND SOUNDk@386,(23)"Plug in aux cable for sound"kA$:A$"MMM"25kI&HBFBC&HBFD6:B:I,B:k1&HBFBC:14308,0kI&HBF7C&HBFBB:B:I,B:l(S$"":V(S$)7l2Q3(V256):Q4VQ3256:Q0&HBF7CWlF80:Q01,Q4:Q03,Q3:90glPQ3Q3256:}lZ0:Q0:"T":ldFGlnP(5,5),P1(5,5),I(14),J(14),GL(25),PP(25),Y(4,4),Z(14)lxF1(191)" ":F1F1F1F1F1F1(191)mD$(26)(3,24)+mT$(1)(3,188)D$(3,179):C(2)1imT$(2)(176)(188)(176)D$(176)(179)(176):C(1)2mT$(3)" "D$(24)(5,176)mG(1)(3,191):G(2)(140)(191)(140)mG(176)mV15360mW28:Y5mP(Y1)364(W22) nX0:I04:J04#nP(I,J)PJ6I128?nCN1CN3CN2X9260dnXX1:PP(X)P(I,J):I(X)I:J(X)JknJwnCNCN1nI:CN0n":&HBF96,1:&HBFA4,2: sound for 64 chrs moden,1510:3510n6X114n@R(14):Z(R)99320:Z(R)99 oEYY1:Y2Y1BoG@P(I(R),J(R)),T$(Y);:U1(0)::FORTIM=1TO300:NEXT\oJ@P(I(R),J(R)),GL(R);|oTU1(1000(5)):TIM170:o^ XohTIM1500:or@855,"by Rik Pierce"o|S$PS$:U(0):TIM1200::@855,"Instructions?"oS$S$(1):U(0) pI$:I$""400pI$"Y"ʑ2500*pU1(0)SpX12:@855,(30)"Player "X;:N$(X)opS$"5"(405X):U(0)p(N$(X))10 N$(X)(N$(X),(N$(X)," ")1)pN$(X)(N$(X),10)p(N$(X))2 550p(N$(X),3)"TRS"TR(X)99:530qI2(N$(X)):N((N$(X),I,1))$qN32II1HqN64N91(N$(X),I,1)(N32)Pq Iq@910,N$(X)", you will play the "G(X)" piece "qTIM1200:q&Xq0N0qlTIM11500:q : RESTART q*1510r4@64,"POINTS";:@128,N$(1);S(1);:@192,N$(2);S(2);Kr>@320,"GAMES";:@384,N$(1);AG(1);:@448,N$(2);AG(2);ZrHQP(2,2)1prRII2:JJ2:I2:J2r: MOVE CURSOR rNN1:N3N1rTR(N)99ʲ@845,(30);N$(N)" is thinking";:2000rD10:D20:I04:J04 s$P1(I,J)N D1D11#s.P1(I,J)2 D2D21,s8J,I@P(I2,J2)1,FF;}HP1(I,J)NP1(I,J)32340}R:IFP1(I,J)=C(N)THENSC=SC+3 ~\I02180'~fP1(I1,J)0SCSCQ1C~pP1(I1,J)N SCSCQ2]~zP1(I1,J)3SCSCQ3k~I42220~P1(I1,J)0SCSCQ1~P1(I1,J)NSCSCQ2~PI(I1,J)3SCSCQ3~J42260~P1(I,J1)0SCSCQ1~P1(I,J1)NSCSCQ2P1(I,J1)3SCSCQ3%J0 2300?P1(I,J1)0SCSCQ1YP1(I,J1)NSCSCQ2sP1(I,J1)3SCSCQ3{: SCS1CNCN1:I(CN)I:J(CN)J SCS1S1SC:I1I:J1J:CN0 SC0$ @P(I2,J2)1,(AF);. U1(30030(10))8 J,I*B CN0 RN(CN):I1I(RN):J1J(RN):CN0eL (B(1)B(2))P1(2,2)3P1(2,2)N (2)1 I12:J12p` S120vj | # 26)"Instructions: STAKE YOUR CLAIM is a two player game played on a game grid of 25 squares (stakes) to be claimed. The object is to claim themost squares." " A square facing an opponents's square may NOT be claimed, andthe first claim of each round may not be the center square. " When no more squares can be claimed, the round is over and the player who has the most claims gains points determined by the number of claims he has more than his opponent. The first player to reach 7 points wins the game."܂ " Specifying "(34)"TRS"(34)" as one of the players names allows the"! "user to play against the computer. press ";A I$:I$""2560::1510:V :Winning musich S$WE$:K(0)n HHH,221,110,3,221,102,4,218,154,4,221,126,5,183؃ 40,1,119,121,254,32,218,6,5,254,128,210,166,4 195,125,4,82,105,107,0,80,105,101,112,99,101,33D MMM,205,127,10,77,68,62,1,105,211,255,45,32,253y 60,105,211,255,45,32,253,13,16,238,175,211,255 201,46,115,38,126,126,183,245,35,94,35,86,235 241,200,61,200,61,245,86,30,1,29,35,78,35,62,9 211,255,65,27,122,179,40,2,16,249,40,229,62,11M 211,255,65,27,122,179,40,2,16,249,32,228,24,213t 211,255,65,27,122,179,16,251,201 A$" ";& A$:A$""31100 S$"("A$: K(0)D 3100΅ "USER NUMBER";U䅔 X150:K1(U): 3200L S$" N 4 > ' 4 ' 4  '  `NNNNii}}iiEDIT'EDITEDITiN'EDITEDITNEDIT}EDITNEDITiEDIT}EDITNEDITNEDITNEDITNEDITNEDITEDITNEDITNEDITNEDITNEDITN@EDIT": GRAPHICS &GL(1)(166)(179)(147)D$(188)(188)(182)]GL(2)(131)(191)(131)D$(176)(191)(176)GL(3)(190)(179)(185)D$(191)(176)(186)ˈGL(4)(191)(184)(135)D$(191)(178)(189)GL(5)(191)(179)(139)D$(191)(188)(190)9GL(6)(173)(176)(158)D$(176)(191)(176)pGL(7)(158)(131)(173)D$(187)(188)(183)GL(8)(191)" "(170)D$(187)(188)(182)ۉGL(9)(191)(179)(187)D$(191)(178)(189)GL(10)(190)(131)(137)D$(187)(188)(182)BGL(11)(191)" "D$(191)(188)(190)SGL(12)GL(3) GL(13)(130)(191)(129)D$(184)(191)(180)GL(14)(24)(170)(157)(144)(152)(149)D$(24)(24)(186)(181)(178)(176)(181)٭"STAKE/M13:0":"STAKE/M13:1"50:U1(500)::TIM130::X150:U1(51o : **************************************** A L I E N S H U F F L E (C) 1983 MARTIN DOWNEY **************************************** {p:** NOTE ** THIS PROGRAM WILL RUN AS-IS ON 32K AND 48K SYSTEMS BUT 16K USERS SHOULD DELETE THE INSTRUCTIONS (LINES 430-580) AND ABBREVIATE ALL "REM" STATEMENTS (INCLUDING THIS ONE) TO A SIMPLE '. DON'T REMOVE THEMp:ALTOGETHER AS THAT LINE NUMBER MAY BE JUMPED TO. p(254,255p2 2000: S$(10,3),A(16),B(1,16,3),R(15),PA(16),N%(15)q4 SC(1,9),PL$(1,9)@q7D1$"THERE ISN'T AN": D2$"ALIEN THERE!"mq<D3$"YOU CAN'T MOVE": D4$" THAT ALIEN!"qFS1$"TIME MOVES": S2$"* FINAL SCORE *"qdMAX3qq19);"><><><><><><><><><><><><"q19);">< ><"r19);">< A L I E N ><"Dr19);">< ><"ir19);">< S H U F F L E ><"r19);">< ><"r19);"><><><><><><><><><><><><"::rA$(191)(9,32)(191)rB$(11,176): C$(11,131)sB$;52);B$$sA$;26);"Copyright";52);A$CsA$;27);"1983 by";52);A$hs A$;24);"Martin Downey";52);A$xsC$;52);C$s@969,"...Please wait while I get things organized...";s"B$(1)(3,153): B$(2)(3,32)s,P1574: P2626s^ 8310t 2000: 8000Mt: 7); "><><><>< A L I E N S H U F F L E ><><><><"Stt " The aim of Alien Shuffle is to arrange aliens into rows"t "or columns so that each type of alien is in a line. You move"!u "an alien by pressing the corresponding number or letter key."hu "The chosen alien is moved into the blank square. An alien must"u "be next to the blank square for it to be moved. Time and moves"u "are taken into account for your score."&v& " Because there is one blank square, to allow movement within"hv0 "the grid, one of the alien types will be one short. These"v: "aliens must therefore be lined up with the blank square."vN " Connect an amplifier to the cassette port for sound."vXv 8320"w*T$T$(1): LZ5: JZ13: KZ25: AC0Ew/ IZ1 (T$)1: 8120: IZw2: "Press or for junior or senior level."w3 "Press for demonstration mode or <@> to quit.";w4I$"":I$x9 I$"J" 830 : I$"S" 832 : I$"D" 834 : I$"@" 836 : 8207x>MAX3: " JUNIOR";: 840Ux@MAX4: " SENIOR";: 840yxBMAX4:AC1: " DEMO ";: 840xD 9000xHC20: MV0x 7000: 6000x:************** KEYBOARD SCAN & DISPLAY **************xB I1 3yGI$:I$"" 1410+yLRN(I)(MAXMAX): RN(I)B11003yV ItytI0(3): J13: @PA(RN(J)),S$(R(A(RN(J))),(4)1);y H(20):L30H: 8160yI$: I$"" 1410yJyI$: I$"" 1410yIyCC1: C5 C2C21: @364,C2;: C0kz AC1 I$: I$"" 410 : (18)1 I$((16)64): 1420 : I$(B(1,B,(3)1)64): 1420zxI$: I$"" 1000z I$"@" 8500zI(I$): @621,(14,32);:@686,(15,32);z (I(MAX161))(I(MAX(16MAX))) 10007{@560,"--<#>--";: H60:L60: 8160: @560,"-< ";I$;" >-";n{IIMAX16: F0: J0 3: B(MAX3,B,J)I F1{ J: F0 X120:255,6:255,5:X: IB DA$D1$:DB$D2$ : DA$D3$:DB$D4${ F0 @621,DA$;: @686,DB$;: 1000 |I$: I$"" 1410+| 5000:I$: I$"" 1410J| 3000:I$:I$"" 1410U| 1000|:*********** SET UP STRINGS *************|I116:J03:B(1,I,J):J,I|I19:J03:B(0,I,J):J,I}2,5,0,0, 1,3,6,0, 2,4,7,0, 3,8,0,0, 1,6,9,0, 2,5,7,10=}3,6,8,11, 4,7,12,0, 5,10,13,0, 6,9,11,14, 7,10,12,15y}8,11,16,0, 9,14,0,0, 10,13,15,0, 11,14,16,0, 12,15,0,0}2,4,0,0, 1,3,5,0, 2,6,0,0, 1,5,7,0, 2,4,6,8}3,5,9,0, 4,8,0,0, 5,7,9,0, 6,8,0,0}A$(26)(6,24)}I010O~ J03: @(P1(3)3(3)64),B$((2));: @(P2(3)3(3)64),B$((2));: K13|~ L1 6: X: S$(I,J)S$(I,J)(X): L~  K3 S$(I,J)S$(I,J)A$~ K~ J,I~ L$(4,140)~*B$(191)(26)(24): B$B$B$B$(191)&,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32r.130,160,132,145,132,144,134,136,32,132,161,136,132,145,137,162,136,1440166,170,166,153,166,158,166,169,163,142,185,153,150,153,153,166,142,153 2 191,191,191,191,191,191,191,191,191,191,191,191,191,191,191,191,191,191V4186,185,187,144,32,32,188,191,189,176,32,32,186,191,191,191,181,134>160,183,182,181,32,32,188,191,189,176,32,32,186,191,191,191,181,133H128,156,152,148,32,32,190,191,191,179,32,32,186,191,191,191,183,1321R186,188,190,144,32,32,188,191,189,176,32,32,186,191,191,191,181,152|\168,175,175,175,173,32,138,156,174,140,158,32,154,170,170,170,138,144ǁf168,159,175,159,173,32,138,156,174,140,158,32,150,154,170,138,146,148p168,143,191,143,189,32,138,156,174,140,158,32,170,170,170,170,170,128]z168,143,175,143,173,32,138,190,174,142,158,32,170,170,170,138,146,148128,151,151,149,154,32,150,183,167,151,32,32,129,189,185,149,32,32킎128,151,151,149,149,32,150,159,155,151,32,32,129,191,182,149,32,325128,151,151,149,184,32,151,151,131,151,32,32,128,181,176,149,32,32}128,151,151,149,184,32,167,191,191,151,32,32,128,191,191,149,32,32Ń138,166,166,172,32,32,141,156,157,156,148,32,160,187,171,177,32,32 168,166,166,142,32,32,156,156,157,156,133,32,160,187,171,177,32,32U168,166,166,142,32,32,156,188,157,156,133,32,160,187,171,177,32,32168,166,166,142,32,32,156,156,189,156,133,32,160,187,171,177,32,32176,187,191,183,176,32,133,191,188,191,138,32,32,179,143,179,32,32-160,187,191,183,144,32,138,183,187,191,133,32,32,179,143,179,32,32u160,187,191,183,144,32,138,191,189,190,133,32,32,179,143,179,32,32128,172,188,156,128,32,151,191,179,191,171,32,32,191,143,191,32,32 128,190,179,191,148,32,175,191,171,171,191,133,186,146,187,147,186,144U 128,156,175,159,189,32,138,191,151,151,159,128,160,181,187,179,181,128 128,190,143,191,148,32,175,183,171,163,191,133,186,146,187,147,186,144 128,158,191,175,148,32,175,191,171,171,191,133,186,146,187,147,186,1443$ 134,148,150,132,32,32,130,182,150,32,32,32,168,171,169,128,32,32y& 152,148,156,144,32,32,130,182,150,32,32,32,168,171,169,128,32,32( 152,148,156,144,32,32,130,183,151,32,32,32,152,171,137,144,32,32* 134,148,150,132,32,32,130,182,150,32,32,32,152,171,137,144,32,32L. 136,153,166,132,32,32,189,186,181,190,32,32,135,154,165,139,32,320 136,153,166,132,32,32,170,190,189,149,32,32,138,155,167,133,32,32ڈ2 136,153,166,132,32,32,168,191,191,148,32,32,130,159,175,129,32,32!4 136,153,166,132,32,32,190,186,181,189,32,32,139,154,165,135,32,32kL 156,190,188,167,167,133,133,159,151,131,131,32,176,149,181,144,32,32V 156,190,188,167,167,133,133,159,151,131,131,32,140,133,181,144,32,32` 156,190,188,167,167,133,133,159,151,131,131,32,176,149,141,132,32,32Ij 156,190,188,175,175,133,133,159,151,131,131,32,176,149,181,144,32,32t 128,128,128,128,32,32,32,32,164,152,32,32,176,134,174,157,137,176׊y 128,128,128,128,32,32,32,32,169,150,32,32,160,154,139,135,165,144~ 128,128,144,160,32,32,32,32,186,181,32,32,128,186,130,129,181,128e 128,128,164,152,32,32,32,32,190,189,32,32,128,160,149,170,144,128 I01:J119:X:SC$(0,I)SC$(0,I)(X) SC$(1,I)SC$(1,I)(191X128):J:Iы A$(26)(19,24) SC$(0,0)SC$(0,0)A$SC$(0,1) SC$(1,0)SC$(1,0)A$SC$(1,1)@ I01:J115:X:W$(0,I)W$(0,I)(X)] J,I: A$(26)(15,24)| W$(0,0)W$(0,0)A$W$(0,1) W$(0,1)(15,191)A$(15,191)( 152,140,160,144,168,131,137,136,147,131,131,148,154,131,140,132,152,140,164A< 130,179,177,154,130,140,140,129,130,131,131,128,133,128,128,128,167,179,179P 128,188,128,160,128,168,148,172,156,168,156,180,128,188,128Íd 128,130,141,135,141,135,128,142,141,138,133,130,141,143,128ɍT :*************** WIN TEST *****************! WIN15& I1 MAX8D JI I(MAX1)MAX MAXOX WINWIN A(J)kl WIN0 J16: I4u J WIN WIN15 I WIN 4000 WIN15Ύ I1 (MAX1)MAX1 MAX JI IMAX1 WINWIN A(J) WIN0 J16: I13" J7$ WIN WIN15?8 IPt WIN 4000V:************* PLAYER WINS ************** 4800: @874,(18,32);ǏT$T$(2): LZ5:JZ13:KZ15: IZ1ߏ I1 (T$)7 2,@556,W$(0,1);: 8120: IZIZ1'6@556,W$(0,0);: 8120: IZIZ1/T IEh 4800: H10:L10jm@556,(18,32);: @620,(18,32);r I7 1 1: @170,SC$(1,0);| @(307I)," ";(S1$,I);(S1$,I);" ";ސ 8160: @170,SC$(0,0);: 8160 I: H5:L15 I1 8: @170,SC$(1,0);2 @(308I),(S2$,I);(S2$,I);X 8160: @170,SC$(0,0);: 8160` ISC(10000100(MVC2)): SC0 SC0ȑSC$(SC)" ":L(SC$)2:@364,(16,"*");: @(372L),SC$;F1: I04: SCSC(MAX3,I) FI: I9I: F0 4400 F4 4370DI3F1: SC(MAX3,I1)SC(MAX3,I)h PL$(MAX3,I1)PL$(MAX3,I): I{SC(MAX3,F)SC@492,"ENTER YOUR NAME:";: @556,(6,95);L0:IK$"" I$: I$(8)ʏL1LL1:(24);(95);(24);:IK$(IK$,(IK$)1):4382:: 4382* I$(13)4390:L64382`"(I$"A")(I$"Z") IK$IK$I$:LL1:@556,IK$;k$ 4382&@556,"******";: PL$(MAX3,F)IK$0I04ԓ: @(492I64),PL$(MAX3,I);52);"-- ";SC(MAX3,I);ۓDIX@874,"JUNIOR OR SENIOR";: K130:KIbI$: (I$"J")(I$"S") @874,(16,32);(11,24);: 825sl@874," UNIOR OR ENIOR";: K130:K~v 4440 I1 30: @556,W$(0,1);: @556,W$(0,0); I: 픈:*********** MOVE AN ALIEN ************* J0(5)2: @PA(I),S$(R(A(I)),(4)1);9 H(30)10:LH20:8160JX1 10:XQJy 0(N%(0))1: :DISK USERS ONLY:ZV=VARPTR(N%(0))+1:V1=INT(ZV/256):V=ZV-V1*256: POKE16526,V:POKE16527,V1: 'CASSETTE USERS ONLY J301: @PA(I),S$(0,J); X(J35)( J; J13: @PA(B),S$(0,J);L, X(J35)T@ J| J0(5)2: @PA(B),S$(R(A(I)),(4)1); H(30)10:LH20:8160 JĖA(B)A(I): BI: A(B)15ۖMVMV1: @375,MV; p:************ DISPLAY BOARD ***************8 I0 MAX1>L J0 MAX1` PAI256J10: PIMAXJ1: R(MAX)1: A(P)15 R0e PA(IMAXJ1)PA1—j @(PA1),S$(R(A(P)),R);חt @(PA9),B$; @(I256J10192),L$;(16MAXP);L$; J IV MAX3 16073,143: 16083,143: 16093,143: 640016329,143: 16339,143: 16349,143: 16359,143@40,"><>< ALIEN SHUFFLE ><><";͘ @874,"Press <@> to quit"; @1001,"(C) by Martin Downey";@170,SC$(0,0);@300,S1$;)(@364,C2;55);MV;/2_X:************* SET UP BOARD ************* I1 MAXMAX: A(I)0: IR(1)(10) I1 MAX1 R(2I)(10): F0♞ J0 I1: R(2I)R(2J) F1 J: F1 7060 I I0 MAX1& J1 MAXX  R(MAXMAX): A(R)0 7180 : A(R)2Ib  JjH IpB(MAXMAX): A(B)15@:********** SET UP SOUND ROUTINE ************hT$(0)"HIKJLIZHIKJLIZMKJIHFGIJHIK3ZZZZZZ",rT$(1)"H2J2IIIK2J2IIIK2J2JJJH2KKL2H2J2IIIK2J2IIIK2IIIJ2JJJ"W|T$(2)"NNL2LLJ2JJG2GGJ4NNLLJJG4ZZZZZZ"I015:X,Y:ZX256Y:Z32768ZZ65536N%(I)Z:I0,205,127,10,69,33,0,0,126,254,112,56,4,62,6,24,2,62,5,211,255,120,61,32,253,35,124,254,4,200,24,230+I09:X,Y:ZX256Y:Z32768ZZ65536<M%(I)Z:I:0,205,127,10,62,6,211,255,69,16,254,61,254,5,40,246,37,200,24,240H(((T$,IZ,1))64)KZ1֜LLZ:M((T$,IZ1,1))47:M11LLZM2:IZIZ1H255ʁZZ1JZ:::8160ZHH256L:ZH32768ZHZH65536JZV(M%(0))1:V1(ZV256):VZVV1256nV1256V: :DISK USERS ONLY:POKE16526,V:POKE16527,V1: 'CASSETTE USERS ONLYX(ZH):ڝl : ****** MOD 4 SPEED UP/SLOW DOWN v X(16912):XX 64: 16912,X: 236,X:X0:; X(16912):XX 191: 16912,X: 236,X:X0:X4!:******* QUIT? *******zH!@874,"Want to quit ? (Y/N)";ٞ\!I$: I$"N" @874,"Press <@> to quit ";: 1400 : I$"Y" 8540p! 410(#:<#: @468,"><><>< ALIEN SHUFFLE ><><><"8F#@599,"...GOODBYE FOR NOW..."FP#@896,"";QZ# 8320Wd#  JjH IpB(MAXMAX): A(B)15@:********** SET UP SOUND ROUTINE ************hT$(0)"HIKJLo:ATLANTIC BALLOON CROSSING 3.3, BY DEAN POWELL6o(:DEAN'S GAMES, 2222 20TH, LUBBOCK, TX 79411ao<:REVISIONS BY G. SHANAFELT, 03/17/91oP:WA(31):D(31):X$"X=":Y$"Y=":WT(24):S(24):A13:X(A)22:Y(A)22:B(A)8640: pd:" ATLANTIC BALLOON CROSSING"::"This is a simulation of the flight of the Double Eagle II across the Atlantic, some 3105 miles, to a safe landing near Paris, France, in a time of 137 hours--about 6 days."Lqx"This was an open-basket, low- altitude flight starting from Maine on August 11, 1978. Max altitude was 24,950 ft. and about 1/3 was above 15,000 ft., using oxygen masks to breathe."RqqZ100:T05:S(T)Z:ZZ20::Z0:T1021:S(T)Z:ZZ10: :T2224:ZZ10:S(T)Z: : 1360: 220qX(U)X:Y(U)Y:AL(U)AL:B(U)B:H11 H(U)07r@832,"12-hour turn is over--you've gone";TD(U);"miles":I13000:: 300zr"Do you want instructions";A$:(A$,1)"Y"(A$,1)"y"ʍ 2360*s:"How many playing (1-3)";UP:UP3240:A1UP:AL(A)100:"Volume (140000-160000 cubic feet) for balloon #";A;:Z:V(A)Z:Z160000"TOO MUCH: Volume=150000":V(A)150000_sZ140000"TOO LITTLE:Volume=140000":V(A)140000sA$(1)"EAGLE II":A$(2)"ZANUSSI":A$(3)"SILVER FOX":"Your name--";A$(A):A:I11500: t,UU1:UUPU1:D5D51:DA(D52):H1H11:H12H10:HR0:1740:I1UP:B2(Y(I)3)64(X(I)2):@B2,I;:@704,"The number ";I;" marks the current position for balloon # ";I::::I111000:I1:It@(AL(1)0)(AL(2)0)(AL(3)0)3560tTHRH(U):AL(U)0:A$(U);" is down! Next!":I12000:I:300$uh:::A$(U),"Weather report coming ..."0u|:WIND=uW(5)2uT05:WT(T)(5)3::T611:WT(T)(5)::T1217:WT(T)(5)3::T1823:WT(T)(7)4:-vD1(9)6:A04:D(A)D1::D1(5):A59:D(A)D1::D1(5)8:A1014:D(A)D1::D1(5)13:A1519:D(A)D1::D1(9)19:A2030:D(A)D1:vW1(15)8:A04:WA(A)W1::W1(5)5:A59:WA(A)W1::W1(6)8:A1014:WA(A)W1::W1(7)9:A1519:WA(A)W1::W1(5)13:A2030:WA(A)W1:vXX(U):YY(U):VV(U):BB(U):ALAL(U)v:TURN)wCL1(0).3:HH.5:H12H0:H(U)12:180=wV(U)V(U)RP(U)Iw0:TEMPnwDCT280(9)CLS(HR)(3AL1000)~wX:PRESSUREwlP30(1.000015AL)w:VOL,LIFT,&RISE@TEMP&PRESxCVV(U)12CTP:CV160000CV160000:(0).9@832,"* A LEAK *";:RP(U)RP(U)(300):I12000:8xL.07CV(1.015AL1000)SxAR(LBIC)(BIC)250vx:WIND:DIR,SPD(ALT,TIME,POSI)xCWW20YWT(HR)WA((AL1000)):F9F0:xDD((AL1000))53X18Y:F9F0:x (H)01740:2300y J(D.0174533)CW:XXJ70:MFCW20:TD(U)TD(U)CW2*y4:ICELyH(Y15)(CT273)ICIC273CTyy\(IC0)(CT273)ICICCT273:IC0IC0ypK(D.014533)CW:YYK120yAL03120y:SMALL BALLOONy:(0).73440zCL.9@128,"- - -- - - - -- - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -W{CL.8@128,"== ==- - = - = - - - - -- - - - - - - -- - = = - = = = == -- - === - - = = = = == = = === == = == - == -= =-=- == = = == - --== --- ---- ---- -g{@880,A$(U){S115363(10(AL2500))64:S115360S115363:S1160283120{Z110:XCXCMF:MM3:SS1(XC1.3):ALALAR3:AL0Z10<|$@0,"B=Ballast G=Gas R=Radio ALT=";(AL);" WIND=";(CW);"mph RISE=";(AR);|8@896,"TEMP: VOLUME: PRESSURE: DIRECTION: WEIGHT: DAY/HOUR/MINUTE";|L@960,(CT);:5)(CV);:13)(P)"inch";:23)(D);"degrees ";(BIC);:45)DA;"-";HR;":";M;3}`@384,"--------------------------------------------------------------";W}tS0S15362:@48," ";l}@S15362," "~S1,160:S2,188:S3,191:S4,191:S5,191:S6,189:S7,180:SS64:@S15363," ";:S,136:IS1S7:I,191::S8,157:S9,148:SS64:@S15362," ";~S1,130:S2,164:S6,160:S7,166:S8,134:SS64:@S15360," ";:S3,137:S4,172:S5,140:S6,153:S7,129:SS64:@S15360," ";:S3,168:S4,188:S5,1567A$:A$"B"BB100:A$"G"V(U)V(U)1000:A$"R"ʏ(0).81740:2300::@750,"No radio contact";aB2400@800,"BALLAST GONE!!";:B2400hZ}AL0AL0:3120G9G91:G91G90:XC0:M0:HRHR1(AL28500V(U)V(U)10000:@800,"Too high--vent open";:(AL30000)(CV160000)@800,"R-I-P IN BALLOON!";:RP(U)1000&<5205P:BALLOONAdB15391sxJ116:IBB29:I,191:I:BB64:J:B15392IB10B16:I,188::B9,179:B17,179:B18,155:B8,167:B7,143:B19,143:B6,159:B20,175:BB647B3,143:B4,179:B5,188:B6,190:B20,189:B21,188:B22,179:B23,143:BB64hB1,159:B2,185:B24,182:B25,175:BB64B,167:B1,190:B25,189:B26,155:B27,143:BB64ǁB,170:B26,149:B27,128:BB64B,189:B1,155:B25,167:B26,150:B27,168:BB64EB2,182:B3,175:B23,159:B24,185:B25,159:B26,160:BB64B3,189:B4,144:IB5B21:I,128::B22,160:B23,190:B24,135:B25,184:BB64,B5,180:IB6B20:I,128::B21,184:B22,159:B23,161:B24,190:BB64J@B6,189:B7,144:IB8B18:I,128::B19,160:B20,190:B21,135:B22,184:BB64TB8,180:IB9B17:I,128::B18,184:B19,159:B20,161:B21,190:BB64hB9,189:B10,144:IB11B15:I,128::B16,160:B17,190:B18,135:B19,184:BB64R|B11,180:B12,128:B13,128:B14,128:B15,184:B16,159:B17,161:B18,190:BB64B12,157:B13,128:B14,174:B15,135:B16,184:BB64B10,135:B11,167:B12,158:B13,139:B14,189:B15,155:B16,139:BB64#IB10B13:I,48::B17,184:B14,128:B15,168:B16,136:.:MAPA15360::IAA9:I,191::A10,145:A12,176:A14,129:A15,188:A16,191:A17,151:A18,129:A24,140:A25,178:IA26A37:I,191::A38,176:A39,179:A58,160:A59,184A60,188:IA61A63:I,191::AA64SIAA4:I,191::IA24A32:I,191::IA58A63:I,191:A5,159:A6,163:A7,176:A8,144:A10,160:A11,176:A12,176:A13,184:A14,180:A15,190:A16,143:A17,171:A18,157:A19,132:A23,168:A33,159:0A34,139:A35,129:A36,130:A37,129:A56,160:A57,190:AA64҇DA,191:IA25A28:I,191::IA56A60:I,191::A63,191:A1,143:A2,131:A6,131:A13,130:A14,175:A15,155:A16,135:A24,175:A29,159KXA30,131:A31,129:A38,138:A41,189:A42,191:A43,132:A55,176:A61,143:A62,179:A39,191:A40,191:AA64lIA10A12:I,191::A27,191:IA55A58:I,191::A62,191:A63,191:A,149:A9,190:A13,156:A15,160:A16,144:A24,138:A25,175:A26,159"A28,135:A46,136:A53,184:A54,190:A59,151:AA64IA9A12:I,191::A58,191:A,189:A1,188:A2,176:A13,188:A14,188:A15,190:A16,189:A47,168:A48,148:A49,144:A53,138:A54,143:A55,135:A56,139:A57,187:A59,135A62,144:A63,140:AA64IAA4:I,191::IA8A15:I,191::A55,191:A62,191:A63,191:A5,181:A7,190:A16,189:A17,188:A18,188:A45,184:A46,180:A48,143:A49,181:A54,178:A59,176ӊA60,176:A61,186:AA64IAA16:I,191::IA48A63:I,191::A5,188:A6,190:A13,143:A14,143:A17,143:A18,175:A19,129:A44,136:A45,143:A46,131:A47,136:A50,141:A52,184A53,190:A51,128:AA64I IA5A12:I,191::IA51A63:I,191::A,188:A1,176:A2,155:A3,143:A4,175:A13,179:A17,140:A18,141:A19,140:A20,144:A47,136:A48,172:A49,188^ A50,190:AA64 4IAA9:I,191::IA50A63:I,191::A3,152:A4,143:A5,179:A6,179:A10,135:A11,131:A112,131:A14,131:A13,140:A15,129:IA45A48:I,176::A49,186\HA52,159:A53,175:A55,143:A56,175:A57,182:A58,147:A59,143:AA64\IAA5:I,191::IA45A49:I,191::A63,191:A6,159:A7,131:A8,131:A33,160:A44,136:A50,159:A51,131:A52,129:A55,188:A57,130:A58,139:A59,1730pA60,172:A61,130:A62,175:AA64IAA5:I,191::A5,143:A35,129:A46,130:A47,179:A48,131:A49,177:IA51A56:I,188::A59,130:A63,131莘@704,A$(U);" BALLOON #";U;"CURRENT POSITION ";X$;X;Y$;Y-"Altitude= GROUND 5000 10000 15000 20000+"~I1CW:I2D:IAL:"Avg. wind= ";:AL0200005000:F9:740:" ";(CW);:ҏ@896,"Direction=";:AL0200005000:F9:760:" ";(D);::ALI:CWI1:DI2@964,"Heading should be ";((64X)1.422Y);" Total miles=";TD(U);:x15860,80:15819,80:B1(Y3)64(X2):@B1,"?";:@1010,"";:ZZ$"":"Hit any key."; ZZ$: ZZ$"" 2320$ ɐ8 :" INSTRUCTIONS":L "Between 1873 and 1978, some 14 balloons have managed to get airborne in an attempt to cross the Atlantic. Most had to ditchat sea, 1 burst in midair, 2 vanished, others were forced down by unfavorable conditions--";E` "winds shifting north, south, or even reversing altogether; or loss of gas by tears or valving. In all, some 5 aeronauts died. The hazards were many."Pt 3480 "From these attempts, a successful strategy developed. By going"v "across with a high pressure weather system, you can follow the winds in a clockwise rotation first northeast then southeast to land in Europe. The winds vary with altitude and position so that you must stay in the";\ " groove of correct altitude. To go toohigh or too low for very long will carry you off course--north if you are too high and southward if you are too low. The more off course you get, the more difficult it is to recover."g 3480G "Your trip starts in the evening at 6 PM when the cooling period begins. By doing this the balloon does not rise too far nor do you have to drop much ballast until the cooling period the next day. Covering 500 miles"; "/day is a good rate and will get you overin good time. It's possible to go across faster--set a record!!"• 3480o "Ascend or descend to maintain a favorable course by releasing ballast to ascend or valving gas to descend. You may release ballast by pressing the key. This ";_( "drops 100 pounds and is recorded on the instruments you have on board. To release gas, you press and 1000 cubic feet are released. You start with a140,000-150,000 cubic ft. volume in a 160,000 cubic ft. balloon,as is determined";< " by your strategy--more volume means a faster rise and to higher level. But beware of max volume as you may cause leaks."P 3480טd "If you climb above 28,000 ft., your balloon automatically valvesoff 10,000 cubic feet to prevent undue pressure and bursting of the balloon. Your bare weight is 2400 pounds and you cannot go below this without cutting off your";x " gondola and riding on the weight ring--very precarious! "; "You may also radio for your exactposition and the weather and wind direction for the various altitudes by pressing the  key but you will not always receive a report as the radio may not work when needed." 3480Ú "The successful strategy was to rise above 5000 ft. quickly to get good wind, but not too high or the direction would be too far north. Try to maintain a fairly level course. If you do" "get too far north, you will get ice forming when the tempera- ture is low, below 273 on the Kelvin scale--this is the tem- perature given on your gauge. You will also find more wind with increased height." 3480n "The lift of the balloon is due to the displacement of air. The air is thinner at higher altitudes so the lift decreases, but the lesser pressure causes the gas within the balloon to expand" "to a greater volume. The balloon expands with an increase in"y "the temperature and shrinks with a decrease. Temperature decreases with altitude at 7 degrees/1000 ft. The computer doesthe complex calculations for you. You will gain understanding", "as you play, so that the proper combination of experience, weather, and a bit of luck will lead to a successful crossing." @ 3480ΞT "For this game, the winner is the one landing nearest Paris at X=104, Y=22 safely. Starting coordinates are X=22, Y=22; and the standard TRS-80 system is Y=0 at the top of the display,"h "increasing to 47 at the bottom--with X increasing as you move east (right). To be safe, your impact must be less than 100 ft./min. loss of altitude or you may be hurt on impact."| 3480] "Your instruments include your current volume including the effect of pressure and temperature, the barometric pressure at your current altitude in inches of mercury, the wind speed in"⠤ "miles per hour, the direction of the wind in degrees with posi- tive angle if moving northwest and minus if moving southeast," "your current weight in pounds including ballast and base weight (fabric, people, and catamaran-style gondola), and your elapsed time in days/hours/minutes."ڡ :"There were three people on board the Double Eagle II in 1978. GOOD LUCK!!" @976,"Press any key to start the game."; A$""* A$: A$"" 30804 100E0 :TOUCHDOWNyD ARAR::AR30"Perfect landing at ";X,Y:3300X AR60"Landing a bit rough":3300l AR100"OOOOOFFFFF!!! You're down but a bit shaken!!":3300 AR100"* * * C R A S H !! * * * YOU K L U T Z !!!"F (0).8"You broke your leg!!":3280u (0).7"You sprained your ankle!!":3280㣼 "You've had the wind knocked out of you and are being dragged by the balloon as you hang over the side!" I115:(23);:II13:II:(28);:II13:II:Ie I12000:I::"And this is where you ended up ...":I11000::1740 :WHERE,SAVE FINAL STARTS (X,Y)1@768,"YOU'RE ON LAND!":3420 @768," S P L A S H, YOU'RE IN THE DRINK!!":I12000:4 (0).8A$(U);" LOST AT SEA":3420BH (X,Y)0"A passing boat picked you up"\ I11500::2300:I12000::TT(U)DA24HRM60:X(U)X:Y(U)Y:AL(U)0:G90:XC0:M0:H0:300ץp @512,"@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@ @@@@";ݥ  @979,"Press any key to continue."; A$""& A$: A$"" 35207 @64,(31):B :END :"FINAL POSITIONS ";:I1UP:"Balloon #";I;"Time=";TT(I):"Total distance=";TD(I):"End position":X$;X(I);Y$;Y(I):D((X(I)104)2(Y(I)22)2)30:"Distance to Paris=";D::1360!@448,"Play again (Y/N)";:A$<$ A$"Y"A$"y"ʎ::CHDOWNyD ARAR::AR30"Perfect landing at ";X,Y:3300X AR60"Landing a bit rough":3300l AR100"OOOOOFFFFF!!! You're down but a o:COMPUTER MONOPOLY - DAVID GOBEN, RR 2, STORY CITY, IA 50248";:@T28,"<";: V3PC!(X) UD1 : UD15q IV3 PC!(X) UD:@T18,"$$##,###";I;::UD0:@T17," ";:@T28," ";: UN I1 UN2: : : q 540:TCPSWSW: X10 4:@T,(11,32);: X0 50::@T,PN$(CP);: X0 50: X,X1:@CS,;:q V3PC!(CP) UM1: : PC!(CP)0 V(V3): 940Hr@CR,"Giving the raised"V$" to "PN$(PG)"."E$:UCP:CPPG:V3PC!(CP):PC!(CP)PC!(CP)(V):UD1:UW0: 800:CPU:UM0dr, PC!(CP)0 1260 : sr@A$: 540rT@CS,(176);:X218rhA$:A(2): A$"" 400 : X2X21: X2 360 : X210:@CS," ";s|A$:A(2): A$"" X2X21: X2 380 : 340,s 147,1: 147,0:@CS," "(8);: 4605sA$KsA$: A$"" 440s 147,1: 147,0:A(A$): A91 : AA32:A$(A):s (I2,".");(I2,24);:s"? ";: 160s 320: A89 "Yes": : A78 "No": : 5206t ST1 CSROW(0)SW(0)1: : CS(&H4020)256(&H4021)&H3C00:t0@SW3,E$"Shuffling Cards";: Y0 1: X0 15:ST(Y,X)X:: X0 15:Z(16)1:WST(Y,X):ST(Y,X)ST(Y,Z):ST(Y,Z)WtD".";: 147,1: 147,0: X,YtXX12000tl X1X1ST 0 1:: uX13000: 620uX13500: 620]u:Y(6): PN$(X)" rolled a"(Y)".":JC(X)Y: YZ ZY:CPXouX11500: 620uV3PC!(CP):V4V3V: V41 V40uPC!(CP)PC!(CP)V:u 720: V40 UN1: 5300 : u  760: UN1 : UD1: UN2 UN1v XCP: UW UW0:Ov4 540:TXSWSW: UD 200 : PC!(X)0 : @T,F$;vH PL(X,1)2 X1100: 620:@T,D$;PN$(X);:@T18,"$$##,###";PC!(X);:@T35,L$(PL(X,0));:v\@T32((PN$(X))10)2," "PN$(X)" is OUT! ";:DwpA$(63,"=")::"PLAYER NAME"17)"CURRENT CASH"35)"PLAYER LOCATION": A$: X1 NP: 820:^w@TSW,A$: 540:CRCSsw@53,"Turn"PO;:wV$" $"((V),2):wD1(6):D2(6):D3D1D2:w 960:"The dice rolled"D1"&"(D2)"; Total ="(D3)".":wA$"Railroad"]x 540:VL(Y,12): PN$(L(Y,8))" owns"V;A$;: V1 V10: (A$,1)"R" "s";: (8)"ies";: V4x".": (A$,1)"R" VL(Y,L(Y,12))(UU): 1220 : 640: (27);: 980:VVD3x$ UU0 VV10: 1220 : 1220x8A$"Utility": 1020]yL@CRSW2,D$;: L(Y,8)CP "You own this property.": 1260 : "This property is owned by "PN$(L(Y,8))"."y` L(Y,11)6 "No rent due because the property is Mortgaged.": 1260 : ZL(Y,7):V1:VV(LG(Z,1)0):PGL(Y,8)yt L(Y,9)1 1160,1000,1080y 540z L(Y,11)0 L(Y,9)0 V1: L(Y,11)1 "There is 1 House here.": L(Y,11)5 "There is a Hotel here.": "There are"L(Y,11)"Houses here.": "This is an Unimproved Lot."zVVL(Y,L(Y,11))(UU)7{ 640: 940: (27);D$"That means that you must pay"V$" Rent to "PN$(PG)".": 7380: 780:UN0: 260q{ UM0 PG0 : UCP:CPPG:PG0:UM0:VV: 780:CPU{: UW : @SW15,D$"Any Key To Continue...";: 160: 320:@CR,E$;:{ D1D2 DDDD1: : DD0:|CPCP1NP(CPNP): CP1 POPO1: 920 : 920+|(WW1NP(WNP):|< 480:B$"":A$B$: 540: 160:8020: (14);: A$: (15);:8000: A$"" : X11 (A$):A((A$,X1))|P A96 AA32|dB$B$(A)::|xS1S1116(S115):|S2S2116(S215):}Y0:ZY:VY: X1 39c} L(X,8)CP UL(X,11):VV1: L(X,9)0 U0 U6 U5 ZZ1 : YYUk}:} Y5 Y15 Y25 Y35 X4 : Y12 Y28 X2 : ~W0:UL(Y,7): X11 X:WW(L(LO(U,X1),8)L(Y,8)):: X11 X: L(LO(U,X1),8)L(Y,8) L(LO(U,X1),12)W!~:k~ 540: 940:"You have"Y"Houses and"Z"Hotels. Your assessment ="V$;:~,MG0:MHMG: X1 39: L(X,8)CP 1620 : V1V1L(X,10):TL(X,11) @ T6 MGMGL(X,6):MHMHL(X,10): T0 L(X,9)0 1620 : V1V1TLO(L(X,7),0)T:QhV0:Z6: X1 LG(U,0):WL(LO(U,X),11): WZ ZW:VXc|:WL(P,11):{L(P,11)6:PMPM1:L(P,11)0:PMPM1: CCP CS CCCP CCS: : VV1MH: 940:A$V$:VMG: 940:"ACTUAL WORTH: Unmortgaged ="A$"; Mortgaged ="V$;: 1260=P1CP:CPP:VV: 780:CPP1:NPL(CP,1)2:@SW15," * * * ONE MOMENT PLEASE * * *"D$;:Ȁ0H((32HS)225(12HT)1000)NP.4(PBPM)1450:D@CS,"Do you wish to use a"C$;: 500:CSCRSW2: 700: A89 1900 : DD1:jX@CS,;:C$" 'GET OUT OF JAIL' Card": PL(CP,1) PN$(CP)" uses a"C$: 1860l 640:DD0:PL(CP,0)10:JC(CP)0: 800V50: 780: 1900UL(P,7):Z0:Z10: X1 LG(U,0):WL(LO(U,X),11): WZ W6 ZW:Z1Z1W :WL(P,11):@CR,E$; BC BBC:BC0 : B0:"Player name who wants to "C$;:I11: 1340: B$"" L$"" : 2640: B0 L$"" B0 : P0: A1 39:PP(L(A,8)B):: P0 "Sorry, you own NO property.": 4620g"Which Property?...":"(Use Left/Right Arrows to Position Property, to SELECT)":" - - - >";: 540  (213)"< - - -":P0: 2120  A8 A24 PP1 : A9 A25 PP1 : A13 @CR,E$;: : 420: 20804PPP(P40):PP40(P1): L(P,8)B 2080]H@CS,(212);:@CS10(L$(P))2,L$(P);: 160:X115: 620: 420: 2080y\WCP:CPB: 3380:CPW:քp 1820:W0:BW:UNW:VW: X1 NP:VV(PL(X,1)2):WWX(PL(X,1)2):: VNP1 5580)@CR,E$"Game is over..."PN$(W)" is the WINNER!": X0 30: 160: X: (14):; 5280: 4620C$"Trade Property": 1980: B0 4640 : L(P,8)B 2200 : WL(P,11): W0 W6 L(P,9)0 2540 : 2480 180:Z1: W5 2440 : Z5: HS3 2380\@CS,E$"You cannot replace the Hotel with 4 Houses. Buy down to Available"(HS);: 500: A78 4640 : X1 LG(U,0)ZL(LO(U,X),11): Z6 L(LO(U,X),11)0: Z5 HTHT1 : HSHSZ: HS 1640:L(LO(U,V),11)L(LO(U,V),11)1:HSHS1: 2300 : W0: X1 LG(U,0):ZL(LO(U,X),11): Z6 WWZm :VW2LO(U,0): 940:@CRSW,E$"You collect"V$: X1 LG(U,0):ZL(LO(U,X),11)$ Z0 A$"(nothing)": Z5 A$"Hotel": Z1 A$"House": A$"Houses"8 "Insure that"Z;A$" is on "L$(LO(U,X)):: 4620JL @CS,E$"Remove the Hotel from "L$(P)" and replace":"with 4 Houses.";:HSHS4:Z1V` HTHT1t V(Z(LO(L(P,7),0)2)):L(P,11)L(P,11)Z: 940: 640:@CS,E$"You receive"V$: 780: 4620 @CS,E$"Please remove a House from "L$(P):HSHS1: 2420& UCP:CPB:YP:BBY:B3Y: 3180:BB0:B3BB:CPU: 180:@CR,E$"There are buildings here. Do you wish to sell a House for 1/2":"price to the Bank";: 500: A78 4640 @CS,E$;: 19403 WZ "Sorry, but the Lots must be broken down EVENLY.":"You will have to use a different Lot FIRST.";: 4620 : 2240R W0 PL(L(P,8),1)1 NJ W6 @CRSW,E$"NOTICE to Buyers: "L$(P)" is Mortgaged.": PL(L(P,8),1)1 : 1260 : L(P,8)B 22000 W0 W6 L(P,9)0 "Sorry, but ALL Housing must be sold first!": 4620 : 2460: V0 4640( "Will "PN$(B)" accept"V$" for "L$(Y);: 500: A78 4640 : L(P,8)B2:@CR,PN$(B2)" has taken the bid."E$:UCP:CPB< 3380:CPB2:VV: 3380:CPU:YP:SB2: 1500: 5060: 4620P B$"" B$L$:@CS2,B$: L$B$/d X1 NP: B$PN$(X) BXpx : PL(B,1)0 : B0:L$"":"Sorry, no cheating.": 1260 C$"Lift Mortgage": 1980: B0 4640 : L(P,8)B 2200# L(P,11)6 "Sorry, but that Property is NOT Mortgaged!": 4620 : VL(P,6): 940:A$V$:VV(V10): 940 VPC!(B) 7260 : "You must pay"V$" to lift the"A$" Mortgage, OK";: 500: A78 4640 : "Mortgage Lifted..." L(P,11)0:VV: 2140: 4620 C$"Mortgage": 1980: B0 : L(P,8)B 5280? L(P,11)6 "Sorry, but that Property is ALREADY Mortgaged!": 1260Ď 1940: Z10 L(P,9)0 "ALL buildings on the Lot Group must be sold to the Bank at 1/2":"price before Mortgaging!";: 12602 VL(P,6): 940:"The Bank will pay"V$" to Mortgage "L$(P)". OK";: 500: A78 : 2140: 1680: 1260, 180:@CR,E$"It is "PN$(CP)"'s turn, who is in Jail.": 240: 700:DD0: CCCP CCP 3840 @ CCCP 1880: DD 2900 : CC0: 7280: 660: 3580 : CCP 1880: DD 3840 : C0: 7300: 660: 3580cT @CS,E$;PN$(CP)" will try for DOUBLES.": 600: 960:"The roll is"D1"&"(D2)". ";ʐh D1D2 "DOUBLES! "PN$(CP)" is out of Jail!": 1900: 2960 : "Too bad.":JC(CP)JC(CP)1: 600| JC(CP)3 3420 : "Third try failed. You MUST pay the $50 fine!": 19201 640: 180: 3620y L0:WCP:PL1:B1FL: X11 NP: PL(X1,1)1 DB(X1)0 : DB(X1)1 : 3200 LW:DB(W)W 1320:X10: X1 NP:X1X1(DB(X)):: X1NP 3200 : "No bids taken.": B40 600 @CR,D$"The Bank keeps "L$(Y): 12605 B2 CPB1: :  B1 BD(B1)(5): : V11E10: X11 NP: PC!(X1)V1 PC!(X1)0 V1PC!(X1)ؒ0 : V1L(Y,10) BDV1(V1.3): : B3 BDL(Y,10).85: : BD2:PD 3100:(BDH4BD(10L(Y,7)))PC!(W) BD(L(Y,10)L(Y,7).028) 3020 : B$((BD),2):@CRSW2,PN$(W)" bids $"B$X @SW14,"High bid is now $"B$;: 1260:V(B$): 940:B1V: 3280l V0:WCP: 1320:@CR,E$"The Table is now open for bidding on "L$(Y):L0:B1L:B2L:FLL: X11 NP:DB(X1)L:l PL(W,1)2 (BB0 WCP) DB(W)W: 3040 : @CRSW,(30): B2W LW 3300 : DB(W) 3040ᔔ PL(W,1) 3140 : @CRSW,"Will "PN$(W)" bid";: 500: A78 3020 : @CRSW2,D$"What's your bid";:I5: 1340 (B$)V (B$)32767 "Sorry, but that bid has been beaten or matched.": 1260:WW1: 3280 : (B$)PC!(W) "Sorry, but that's more than what you have on hand!": 640: 3200 V(B$): 940:B1V @SW14,"High bid is now"V$;:B2W:LW: 1320: 3200] FL0 B1FL 2980 : BB : D$;:VB1: 940: PN$(B2)" has taken the bid at"V$:B1CP:CPB2: 1260ʖ V8V:V7V3: 3380:V3V7:VV8: V4 : PBPB1:L(Y,8)CP: 1500:V0:UL(Y,7):LG(U,1)0: X1 LG(U,0) VV(L(LO(U,X),8)CP):: X1V LG(U,1)CP: 3080 : 3080- SB1: 3300:VS:PBPB1: 780B4 UD1: 720: 800H @CRSW2,"Oops! You just as well move on to Jail!!!";: 700:PL(CP,0)40:DD0: 800\ 1260: 2160ܗp @CRSW2,E$"You must pay $75";:V75: 3960 L(Y,8) 1100: 2160 : PL(CP,1) 3880b @CRSW2,D$"Do you wish to purchase "L$(Y)" (Price = $"((L(Y,10)),2)")";: 500 A78 B4CP: 3180:B40: 2160ט VL(Y,10):B20: 3320: V40 3420 : PC!(CP)PC!(CP)L(Y,10):UW0: 800O @CR,E$"Sorry, "PN$(CP)", but your funds are insufficient!":"The property now goes up for bidding.";: 1260: 3180Z 2160˙ 1840:UU1: PL(CP,0)40 2860 : PL(CP,1)2 1300: 3580 : @CR,E$"It is "PN$(CP)"'s turn. ";: 240 600: 980: 600: 1280C$ 180: DD3 3860 : PL(CP,0)PL(CP,0)D3:GXPL(CP,0)39: GX PL(CP,0)PL(CP,0)408@CS,E$;PN$(CP)", please move to "L$(PL(CP,0)): 540: 640: GX0 3720L PL(CP,0) A$"passed": A$"landed on"+` D$;:A$"You have "A$" GO. You collect $200": X0 20:@CS,D$;: 160:@CS,A$;: Y0 20: Y,X:V200Gt 780:CSCRSW2:@CS,;\ 800:YPL(CP,0)0 Y1 3420,3460,4520,3460,3780,3460,3460,4560,3460,3460,3420,3460,3460,3460,3460,3460,3460,4520,3460,3460,3420,3460,4560,3460,3460,3460,3460,3460,3460,3460,3400,3460,3460,4520,3460,3460,4560,3460,3440,3460 1440:VV200(YZ)100PC!(CP): (V10)200 V200:"2": 3960 : 3920ܜ@CRSW2,"Do you wish to (1) Pay 10% of your Worth or (2) Pay $200? ";: PL(CP,1) 3760 320: A49 3920 : A50 3800 : "2":V200: 3960s"Do you wish to pay the $50 Fine";: 500:CSCR2SW: A78 2900 : 1920: 3580DD0: JC(CP)0 2900 : PL(CP,1)0 3820 : PC!(CP)H PN$(CP)" will pay the $50 Fine.": 1920: 3580 : 2900E PN$(CP)"! You have rolled 3 DOUBLES! GO TO JAIL!":PL(CP,0)40: 800:DD0: 4140( L(Y,10)H4PC!(CP) @CRSW2,D$;PN$(CP)" declines buying "L$(Y): 1260:B4CP: 3180:B40: 2160<@CRSW2,D$;PN$(CP)" buys "L$(Y)" for $"((L(Y,10)),2)".": 3520FP"1":V1PC!(CP): 1580:V(V110): 940:"10% of your Total Worth is"V$"...";d V200 "Lucky You.": V200 "Didn't matter, did it?": "Bad Guess."xVV: 780: 3420V0:CCCPԟ 640: 1400: 3960<"Pay $40 for each House; $115 for each Hotel";(29);: 640: D$;: 1440:VY40Z115: 1560: 4000~PL(CP,0)0: 800:@CRSW3,"You collect $200!";:V200: 4000V0:PL(CP,0)40:DD0: 640: 1400: 800: 3420 7440: 940:"You should collect"V$: 540:PRCP: Y1 NP. YPR PL(Y,1)2 V50:CPY: 780:CPPR:VV: 780@:CPPR:PRPGR, 1260: 2160@UU2:"If owned, pay TWICE normal rental.";:@CS,;: Y7 Y8 : Y22 Y3 : Y36 Y9աTD3Y: 1260:@CS,E$;: 3620hY24Y| Y0 YY40: 4180 : 4180j"Pay $25 for each House; $100 or each Hotel."(29);: 1260: D$;: 1440:VY25Z100: 1560: 3960|V150: 3960ޢUU10:"If owned, pay 10 TIMES normal rental.";: Y7 Y5 : Y22 Y6 : Y36 Y16 4220V15: 3960 Y5Y: 4220S 7440: 940:"Pay each player $50, total ="V$: 540:UCP: Y1 NP YU PL(Y,1)2 V50:PGY:CPU: 780:VV:CPY: 7800:CPU:PGPR: 3420DV50: 3960ΣXY39Y: 4220lY11Y: 4220Y3: 4180PL(CP,0)40:DD0: 800: 3420OTST(0,S1): T0 CC0 1400: 4520 : T0 CCCP@CRSW2,E$"Card reads: "CC$(T,0)".":VCC(T): 1400: (V)4 3960 : (V)1 4000,4020,4040,4080,4060TST(1,S2): T0 C0 1420: 4560 : T0 CCP, 1420:@CRSW2,E$"Card reads: "CC$(T,1)"." T1 4140,4160,4200,4240,4160,4260,4040,4280,4320,4340,4360,4420,4440,4460,4480,4500  1260إ : 1840:@CR,E$:@SW1213,"C O M P U T E R M O N O P O L Y"e4@SW14,E$" Legal Commands: