NSSE7  NUMGUESS KALEID  MATCHES  BLACKJ  TICTAC  KING # UKALEID  BAGLES 9 q CHOMP! ?  REVERSE J MUGWMP Q NIM X   EVEN1 b MOON1 i STARS }     JOTTO  JOTFILE   GENINFO   " MATCHES"  " -------" 51211,10  "RULES?",F$ ( F$"N" P A2 "THERE ARE 23 MATCHES, EACH TIME YOU CAN PICK UP 1,2, OR 3" =< "MATCHES THEN I WILL DO THE SAME. THE ONE WHO PICKS UP" F "THE LAST MATCH LOOSES." P M23 Z $d "THERE ARE NOW ",M," MATCHES." n x "HOW MANY DO YOU TAKE?",H  HM h  HH) h  H0 h  H4 h MMH  M0 ,  M1 J  RM4M4)  R1  C30))1  CR3)4R3)4) MMC  M0 J   "I TOOK ",C," ...", " d , (6 "I WON!!!! BETTER LUCK NEXT TIME." @ P J )T "O.K SO YOU WON. LET'S PLAY AGAIN." ^ P 6h "YOU CHEATED! BUT I'LL GIVE YOU ANOTHER CHANCE." r n |  YES #B0A:999999999:991919999999999:9999999999999999999919:9999999999199;d20),"TIC - TAC - TOE"\20),"==============="\\\ i51211,15 6x"YOU HAVE THE OPPORTUNITY OF TRYING TO BEAT HUEY" 4"AT TIC-TAC-TOE. ENTER YOUR MOVES AS FOLLOWS:"  C11) D11) K111 CK),DK) K /"...ROW NUMBER...COMMA...COLUMN NUMBER..."  B"ROWS ARE HORIZONTAL(ACROSS)...COLUMNS ARE VERTICAL(UP,DOWN)" B9) A3,3)  6"NEW GAME STARTED NOW..........................." 51211,0 J13 I13 "AI,J)0 ,I -II1 6J 7JJ1 @Z0 EJ51A2,2)1\J51 J"YOUR MOVE", TR,C /Y\\"QUIET WHILE HUEY IS THINKING PLEASE." ^ hR3l rC3l |AR,C)0l AR,C)1 | Z1 MACHINE MOVE L TEST WIN | Z0 GAMEBOARD   K13 BAK,1) DAK,2) FAK,3) H &K2: 018),"***************" :K ;KK1 D NZ0 XJ b ,l"---- ILLEGAL MOVE ---- TRY AGAIN ----" v J T20 J13 I13 AI,J)0 T2T21 I II1 J JJ1 T20 <  T21 J18 BJ)2   J JJ1    * 4 BOARD ROW... > HB0 R18)," * ", \D0 f18)," * ", pF0 z18)," " . B0  18),"YOU * ", \ D0 18),"YOU * ", p F0 18),"YOU"  18),"HUEY* ", \ 18),"HUEY* ", p 18),"HUEY"  $ LEG .18)," * * " 8 BMAKE MACHINE MOVE LM3.330)) VN3.333330)) `M0L jM3L tN0V ~N3V C2)M D2)N C3)N D3)M %A2,2)1A1,3)1A3,1)0^ %A2,2)1A3,1)1A1,3)0J I18 BI)1Z I II1 I18 BI)1Z I II1 RC0 K111 ICK) JDK) AI,J)02 AI,J)1 (P 2K 3KK1 <"... TIE GAME ..." FZ3 P ZI3 dJ13 nAI,J)0 xJ yJJ1 P AI,J)1 P I6 J13 AJ,I3)0 J JJ1 P AJ,I3)1 P I7 J13 AJ,J)06 J JJ1 A1,3)0J A3,1)0^ "A2,2)1 ,P 6AJ,J)1 @P JA1,3)1 TP ^A3,1)1 hP rPROGRAM TEST WINNER |T10 J19 BJ)0 J JJ1 J13 I13 AJ,1)AJ,I) I II1 T1AJ,I) J JJ1 J13 I13 A1,J)AI,J) I II1 T1AI,J) J JJ1 A1,1)A3,3) &A3,1)A1,3) 0T10 :J13 DI13 NBJ)BJ)AJ,I) XBJ3)BJ3)AI,J) bI cII1 lJ mJJ1 vB7)A1,1)A2,2)A3,3)  A2,2)A3,3) & T1A2,2) 0 A2,2)A1,3) 0 T10 " ...YOU WIN THIS TIME..." Z1 : "...HUEY WINS THIS TIME..." Z2 :   $"DO YOU WANT TO PLAY AGAIN?",A$  A$1,1)"N"R *J50\0).5 $,\\"HUEY GOES FIRST THIS TIME" .J51\ *R"IT'S BEEN FUN. TRY AGAIN SOMETIME." \p 0f2,2,0,0,0,0,1,1,3,3,1,3,3,1,1,2,3,2,2,3,2,1 p /a< A0AAA0AA0AA0A A A/Ja< AA0AA0A0 + 20),"K I N G"\20),"======="\\\ 51211,15 &P"HOW MANY TIMES HAVE YOU PLAYED", Z Z d N58 n Z500 6 x Z1000 F  Y11 10  Y1 F"CONGRATULATIONS!! YOU'VE BEEN ELECTED PREMIER OF SETATS DETINU," D"A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO" D"DECIDE UPON THE COUNTRY'S BUDGET AND DISTRIBUTE MONEY TO YOUR" A"COUNTRYMEN FROM THE COMMUNAL TREASURY. THE MONEY SYSTEM IS"  " RALLODS",  Z0 6 ? " AND EACH PERSON NEEDS 100 RALLODS PER YEAR TO SURVIVE." A"YOUR COUNTRY'S INCOME COMES FROM FARM PRODUCE AND TOURISTS" E"VISITING YOUR MAGNIFICENT FORESTS, HUNTING ,FISHING, ETC. HALF" A "YOUR LAND IS FARMLAND WHICH ALSO HAS AN EXCELLENT MINERAL" A"CONTENT AND MAY BE SOLD TO FOREIGN INDUSTRY (STRIP MINING)" D"WHO IMPORT AND SUPPORT THEIR OWN WORKERS. CROPS COST BETWEEN" 2"10 AND 15 RALLODS PER SQUARE MILE TO PLANT." A" "YOUR GOAL IS TO COMPLETE YOUR",N5," YEAR TERM OF OFFICE.", ,"GOOD LUCK!!!" 6 Y11 1000 @ Y1 E Y11 4 J O Y1 &TA600000)1000)0)1000)) |B5000)10)0)10))  D2000  W0)1095)  Y11 8   Y1 2 "YOU NOW HAVE",A," RALLODS IN THE TREASURY." B)," COUNTRYPERSONS,",  V90)2)1010))  C0  C)," FOREIGN WORKERS,", ' " AND",D)," SQ. MILES OF LAND." F"THIS YEAR INDUSTRY WILL BUY LAND FOR",W," RALLODS PER SQ. MILE." @"LAND CURRENTLY COSTS",V9," RALLODS PER SQ. MILE TO PLANT."  Y11 3   Y1 ;& "HOW MANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY", 0 H : H0 & D HD1000  AN"THINK AGAIN, YOU'VE ONLY",D1000," SQ. MILES OF FARM LAND." X X0 & ?b"(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND BECAUSE FOREST" 7l"LAND IS UNECONOMICAL TO STRIP MINE DUE TO TREES," v"THICKER TOP SOIL ETC.)"  X1  &  DDH)  AAHW)) F "HOW MANY RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN",  I  I0   IA   IA  < "THINK AGAIN YOU'VE ONLY",A," RALLODS IN THE TREASURY"    J0  K0  A0    AAI) / "HOW MANY SQ. MILES DO YOU WISH TO PLANT", * J 4 J0  > JB2 \ ?H "SORRY BUT EACH COUNTRYPERSON CAN ONLY PLANT 2 SQ. MILES" R  \ JD1000 z =f"SORRY BUT YOU'VE ONLY",D1000," SQ. MILES OF FARM LAND" p  z U1JV9)  U1A   U1A  A"THINK AGAIN, YOU'VE ONLY",A," RALLODS LEFT IN THE TREASURY"    K0  A0    AAU1  D2000  B"HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL",  K  K0   KA  6"THINK AGAIN, YOU'VE ONLY",A," RALLODS REMAINING"    H0  $ I0  . J0  8 K0  B\ ` "GOODBYE." @j"IF YOU WISH TO CONTINUE THIS GAME AT A LATER TIME, ANSWER" ?t "1000 FOR HOW MANY TIMES YOU'VE PLAYED, AT THE BEGINNING" ~"OF THE NEXT GAME."  \    Y11 3   Y1  AAK)  A4A  I100B)0   I10050 $ 7 BI100))," COUNTRYPERSONS DIED OF STARVATION"  F10)2000D))  K25   F1F1K25))   F10  C F1," COUNTRYMEN DIED OF CARBON-MONOXIDE AND DUST INHALATION"  I100)B)0 2 ( F10 d - 72" YOU WERE FORCED TO SPEND",F1BI100)))9), $<" RALLODS ON FUNERAL EXPENSES." F B5F1BI100))) "P AAF1BI100)))9)) Z  8d "YOU WERE FORCED TO SPEND",F19)," RALLODS ON ", n"FUNERAL EXPENSES." x B5F1  AAF19))  A0  8"INSUFFICIENT RESERVES TO COVER COST-LAND WAS SOLD"  DDAW))  A0  BBB5)  H0  " C1H0)10)0)20))  C0   C1C120 , C1," WORKERS CAME TO THE COUNTRY AND", 7 P1I100B)10)K25)2000D)50)F12))  P1)," COUNTRYMEN ",  P10 "  "CAME TO",  , ""LEFT", ," THE ISLAND." 6 BBP1) @ CCC1) $J U22000D)0)1.5)2)) T C0 h '^ " OF",J)," SQ. MILES PLANTED,", h JU2 | r U2J 4| "YOU HARVESTED",JU2)," SQ. MILES OF CROPS." U20  T12   "(DUE TO",  T10  " INCREASED", 8" AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.)"  T1T11  QJU2)W2)) "MAKING",Q)," RALLODS."  AAQ) # V1BP1)22)0)500))  V22000D)15) ; "YOU MADE",V1V2))," RALLODS FROM TOURIST TRADE."  V20 b  V1V2V3 b  "DECREASE BECAUSE", & G1 0)10 0 G12  : G14  D G1 6  NG18 X G110  b V3 V1V2) l AAV3) v  = " FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION."  b = " AIR POLLUTION IS KILLING GAME BIRD POPULATION."\ b A " MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION."\ b 9 " UNPLEASANT SMOG IS DISCOURAGING THE GIRLS."\ b : " HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT."\ b  B5200   B328$  A4100)5 j  CB   N51X5    Y11 8   Y1 <"THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER" <  "OF COUNTRYMEN. AS A MAJORITY THEY HAVE REVOLTED AND" * 0).5 R 94"YOU HAVE BEEN THROWN OUT OF OFFICE AND YOU ARE NOW" > "RESIDING IN PRISON." H \ "R"YOU HAVE BEEN ASSASSINATED." \\\ z \\ , B5," COUNTRYMEN DIED IN ONE YEAR!!!!!" 6 "DUE TO EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 7 "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU"  M60)10)  M63   M66   M610  * "ALSO HAD YOUR LEFT EYE GOUGED OUT."  \ ."HAVE ALSO GAINED A VERY BAD REPUTATION."  \ - "HAVE ALSO BEEN DECLARED NATIONAL FINK."  \ $ \\ ;B "OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU" 7L "WERE ELECTED TO OFFICE. THE PEOPLE (REMAINING)" V "HATE YOUR GUTS." ` * j B5F12  t \\ 9 "MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID" ; "NOT SPEND. AS A RESULT SOME OF YOUR COUNTRYMEN DIED" : "OF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE" 6 "BEEN FORCED TO EITHER RESIGN OR COMMIT SUICIDE"  "THE CHOICE IS YOURS." : "IF YOU CHOOSE THE LATER PLEASE TURN OFF MY MONITOR" 6 "BEFORE PROCEEDING (I HATE THE SIGHT OF BLOOD)." \ \\ - "CONGRATULATIONS!!!!!!!!!!!!!!!!!!!!!!" : "YOU HAVE SUCCESFULLY COMPLETED YOUR",N5,"YEAR TERM" F "OF OFFICE. YOU WERE OF COURSE, EXTREMELY LUCKY, BUT NEVER THE" F "LESS, IT'S QUITE AN ACHIEVEMENT. GOODBY AND GOOD LUCK -YOU'LL" ?( "PROBABLY NEED IT IF YOUR THE TYPE THAT PLAYS THIS GAME." 42 "-FOR FURTHER THRILLS TRY LANDING ON THE MOON" < \ ?F "HOW MANY YEARS HAD YOU BEEN IN OFFICE WHEN INTERRUPTED", P X5 Z X50 \ d X58 9n "COME ON, YOUR TERM OF OFFICE IS ONLY",N5, " YEARS" x F . "HOW MUCH DID YOU HAVE IN THE TREASURY",  A  A0 \  "HOW MANY COUNTRYMEN",  B  B0 \ ( "HOW MANY WORKERS"\ C\ C0 \ 5 "HOW MANY SQUARE MILES OF LAND"\ D\ D0 \  D2000  D1000  = "COME ON, YOU STARTED WITH 1000 SQ. MILES OF FARM LAND" ) "AND 1000 SQ. MILES OF FOREST LAND"  X5X51  B50   " ppPCA@AYc EI0C D@C BB5EC)qpE E sWW#BUC&B 1F20),"B A G L E S"\20),"==========="\\ #P"WOULD YOU LIKE THE RULES?",A$ U51211,15 ZA$1,1)"N" ?d\\"I AM THINKING OF A THREE DIGIT NUMBER. TRY TO GUESS" 6n"MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:" >x" PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION" >" FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION" $" BAGLES - NO DIGITS CORRECT" @"THE NUMBER I HAVE IN MIND HAS NO TWO DIGITS THE SAME."\\ I13 AI)100)) J1I1 AI)AJ) J I .\\"O.K. I HAVE A NUMBER IN MIND."\\ I120 "GUESS #",I, A$ .A$)3"TRY GUESSING A 3-DIGIT NUMBER." A$)3 J13 B$A$J,J) B$)48, B$)57, BJ)B$)48 "J '^ ,"WHAT?" 6 ^C0\D0 hJ12 rAJ)BJ1) |CC1 AJ1)BJ) CC1 J A1)B3) CC1 A3)B1) CC1 J13 AJ)BJ) DD1 J D3 J1C "PICO ", J &J1D 0"FERMI ", :J DCD0X N"BAGLES", X ]I b"OH WELL" Cg"THAT'S TWENTY GUESSES. MY NUMBER WAS ",100A1)10A2)A3) l .v"TRY GUESSING A THREE DIGIT NUMBER."\ "YOU GOT IT!!!!!"\ YY1 "PLAY AGAIN?",A$ A$1,1)"Y" Y0 #\"A",Y,"-POINT BAGLES BUFF!!" "HOPE YOU HAD FUN. BYE."  X N52 A/7 APA A@A6Y 2 /;d20),"C H O M P ! ! !"\20),"==============="\\\ }A10,10) $"DO YOU WANT THE RULES?",A$\\ A$1,1)"N"T 51211,15 F1 R5 C7 4"CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY)."  6"HERE IS HOW A BOARD LOOKS (THIS ONE IS 5 BY 7)."   <"THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS" <"WIDE. YOU INPUT R AND C AT AT THE START OF THE GAME." 9"IN THE UPPER LEFT CORNER OF THE COOKIE IS A POISON" ?"SQUARE (P). THE ONE WHO CHOMPS THE POISON SQUARE LOSES." ="TO TAKE A CHOMP, TYPE THE ROW AND COLUMN OF ONE OF THE" >""SQUARES ON THE COOKIE. ALL OF THE SQUARES BELOW AND TO" 6,"THE RIGHT OF THAT SQURE (INCLUDING THAT SQUARE)" 96"DISAPPEAR ---(CHOMP!!!). NO FAIR CHOMPING SQUARES" :@"THAT HAVE ALREADY BEEN CHOMPED, OR THAT ARE OUTSIDE" E51211,0 3J"THE ORIGINAL DIMENSIONS OF THE COOKIE."\\\ T"HERE WE GO..."\\ hF0 rI110 tJ110 wAI,J)0 yJ {I | "HOW MANY PLAYERS?",P I10 "HOW MANY ROWS?",R R9 #"TOO MANY ROWS (9 IS MAXIMUM)"  "HOW MANY COLUMNS?",C C9 &"TOO MANY COLUMNS (9 IS MAXIMUM)"   I1R &J1C 0AI,J)1 :J DI NA1,1)1 X BOARD b\\\ l20),"1 2 3 4 5 6 7 8 9" vI1R 17),I,20), J1C AI,J)1 AI,J)0 "* ",  "P ", J  I  F0  GET CHOMPS EACH PLAYER I1I11 P1I1I1P)P P104 *P1P 4"PLAYER ",P1 />"COORDINATES OF CHOMP (ROW,COLUMN):",R1,C1 RR11 \R1R fC11 pC1C zAR1,C1)0 AR1,C1)1  '"NO FAIR CHOMPING ON EMPTY SPACE!" 4 IR1R JC1C AI,J)0 J I b OG GAME DETECTED IN 900 \\"YOU LOSE PLAYER",P1 \\ %"DO YOU WANT TO CHOMP AGAIN?",A$ A$1,1)"Y"T \\"BON APPETIT!!!"\\ $ /V]]  2 20),"R E V E R S E"\20),"=============" 0 A9)\"Directions? ",A$\A$1,1)"Y"\ / "Enter a two digit number, please: ",A1) ( A2)1A1)\A3)0)\ 2 A1)80))1\T0\K29 < AK)90))1\J1K1 /F AK)AJ)<\\\\"The list is:"\x *P " Reverse: ",R\R1\R9d 3Z "Come on -- Let's get down to business."\x "d RR)Z\TT1\K1R2) $n ZAK)\AK)AR)\AR)Z\RR1\ x \K19\AK),\  K19\AK)KP\ $ \\"YOU WON in",T," moves." 1 "Do you want to play again? ",A$\A$"" 2 A$1,1)"Y"2\"I hope you had fun!"\\\ ) "I hope that you had fun!!"\\\\  51211,25 ; \\"This is the game of `REVERSE'. To win, all you" = "have to do is arrange a list of numbers, 1 through 9," = "in numerical order, from left to right. To move, you" @ "tell me how many of the numbers, counting from the left," @ "that you want reversed."\" For example, if the list is:" ? \"2 3 4 5 1 6 7 8 9"\\"And you reverse 4, the result", < " would be:"\\"5 4 3 2 1 6 7 8 9"\\"Now, if you ", 5 "reverse 5, you WIN!!"\\"1 2 3 4 5 6 7 8 9"\ = "No doubt that you will like this game of skill but if" > "you want to quit, reverse 0 and you will have a chance" 4" "to start a new game."\"Now, ",\51211,0\ pAAA YYYYYYYYYYpABA0A@A TOTAL OF TEN TRIES TO ARRANGE THE NUMBERS!" H\\\5121 )20),"MUGWMP"\20),"======"\\\ #"DO YOU WANT INSTRUCTIONS?",A$ P4,2) A$1,1)"N" 51211,15 6"THE OBJECT OF THIS GAME IS TO FIND FOUR MUGWMPS" <"HIDDEN ON A 10 BY 10 GRID. HOMEBASE IS POSITION 0,0." 7("ANY GUESS YOU MAKE MUST BE TWO NUMBERS WITH EACH" :2"NUMBER BETWEEN 0 AND 9, INCLUSIVE. THE FIRST NUMBER" ><"IS THE DISTANCE TO THE RIGHT OF HOMEBASE AND THE SECOND" /F"NUMBER IS THE DISTANCE ABOVE HOMEBASE."\ 4P"YOU GET 10 TRIES. AFTER EACH TRY, I WILL TELL" "PLACED ON THE BOARD. THE NUMBER OF CHIPS ALWAYS STARTS" ?"AS AN ODD NUMBER. ON EACH TURN, A PLAYER MUST TAKE ONE," >"TWO, THREE OR FOUR CHIPS. THE WINNER IS THE PLAYER WHO" : "FINISHES WITH A TOTAL NUMBER OF CHIPS THAT IS EVEN." < "THE COMPUTER STARTS OUT KNOWING ONLY THE RULES OF THE" A "GAME. IT GRADUALLY LEARNS HOW TO PLAY WELL. IT SHOULD BE" < "DIFFICULT TO BEAT THE COMPUTER TWENTY GAMES IN A ROW."  "TRY IT!!!"\\\ 5"TO QUIT AT ANY TIME, TYPE '0` AS YOUR MOVE"\\ R1,5) L0\E0 I05 (R1,I)4 2R0,I)4 <I FA0\B0 ZP130)9)2)21 dP1 2n51211,0\"THERE ARE",P," CHIPS ON THE BOARD." xE1E L1L EA2A2))2 LP6P6))6.5) RE,L)P@ MRE,L) M0r PPM M1 <"COMPUTER TAKES",M," CHIPS LEAVING",P," ....YOUR MOVE", BBM M MM) M1 M4 MP MPh "PPM ,AAM 6d @P1& !J"COMPUTER TAKES",P," CHIPS." TRE,L)P ^BBP hB2B2) %r"GAME OVER.....YOU WIN!!!"\\\ RE,L)1 RE,L)RE,L)1 F #"GAME OVER.....I WIN!!!"\\\ F M0: )M," IS AN ILLEGAL MOVE. YOUR MOVE",  RE1,L1)1F RE1,L1)RE1,L1)1 F :"COMPUTER TAKES ONE CHIP LEAVING",P," ....YOUR MOVE",  %"THERE IS ONE CHIP ON THE BOARD" x &"COMPUTER TAKES ONE CHIP" 0T : NZ NO /<@A@A@A@A@A@A@A@A@A@A@A@An Z$"GO" B11 M17.95 F15.25 N7.5 #R0926 (V01.29 -T0 2H060 7RR0H0 <A3.425 AR10 FA18.84361E04 KR30 PA30 UM17.45 ZM0M1 _B750 dT10 iF0 nP0 sN1 xM20 }S0 C0 Z$1,1)"Y"~  ,20),"LUNAR LANDER SIMULATION"\\\\  6"HAVE YOU FLOWN ON AN APOLLO LEM MISSION BEFORE", Q$ Q$1,1)"Y"   ("ENTER MEASUREMENT OPTION NUMBER:",   1"WHICH SYSTEM OF MEASUREMENT DO YOU PREFER?" "1=METRIC 0=ENGLISH" #"ENTER THE APPROPIATE NUMBER", K  K0 K1  Z1852.8 M$"METERS" G33.6  N$"KILOMETERS" G51000 1 Z6080 M$"FEET" "G3.592 'N$"MILES" ,G5Z 1B13 6Q$1,1)"Y" ; <51211,15 ;@"YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF" :E"THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO" =J"GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATION SYSTEM." 8O"THE ON-BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT" 2T"OF INFORMATION NEEDED TO NAVIGATE THE SHIP." Y =c"THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS:" 9h"+ OR - 180 DEGREES IS DIRECTLY AWAY FROM THE MOON," =m"-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT," >r"90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT," 5w"0 (ZERO) DEGREES IS DIRECTLY TOWARDS THE MOON." | 25),"-180,180" 29),"^" 22),"-90 < -+- > 90" 29),"!" 29),"0" %18),"<< DIRECTION OF ORBIT <<"  22),"SURFACE OF THE MOON"   <"ALL ANGLES BETWEEN -180 AND 180 DEGREES ARE ACCEPTED."  ."1 FUEL UNIT = 1 SEC. AT MAXIMUM THRUST." ="ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL" "FOR AN ATTITUDE CHANGE." ="AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN" "10 AND 100 PERCENT."  -"NEGATIVE THRUST OR TIME IS PROHIBITED."   0"INPUT: TIME INTERVAL IN SECONDS ------(T)" 0" PERCENTAGE OF THRUST ----------(P)" 0" ATTITUDE ANGLE IN DEGREES -----(A)" Q$1,1)"Y" "FOR EXAMPLE:" "T,P,A?10,65,-60" 3 "TO ABORT THE MISSION AT ANY TIME ENTER 0,0,0"  ,"OUTPUT: TOTAL TIME ELAPSED IN SECONDS" " HEIGHT IN ",M$ ;!" HORIZONTAL DISTANCE FROM LANDING SITE IN ",M$ 1&" VERTICAL VELOCITY IN ",M$,"/SECOND" 3+" HORIZONTAL VELOCITY IN ",M$,"/SECOND" #0" FUEL UNITS REMAINING" 151211,0 5 6"HAPPY LANDING!!!"\\ : ? D"T,P,A:", IT1,F,P J NFF100 ST10 XT10B ]F.05)1 bF.05).05 gP)180 lN20 qT1400{ vNT120 {T1T1N PP3.14159180 SP) CP) M2M0T1FB R3.5R0V0R)2)RA1A1 A32R1A1R I1N M10 M1M1M2 M10 FF1M1M2) M2M1M2 "YOU ARE OUT OF FUEL" M10  F0 M20 MM.5M2 R4R3 R3.5R0V0R)2)RA1A1 "R23R3R4)2.00526F1FCM A4A3 A32R1A1R &A23A3A4)2.00526F1FSMR) XR1T1.5R2T1T1 RRX H0H0X R1R1R2T1  AAA1T1.5A2T1T1 A1A1A2T1 MM.5M2 TTT1  H03.287828E04* %I *HH0Z /H1R1Z 4DR0AZ 9D1RA1Z >T2M1BM0 6?1),"TIME",11),"HT",24),"DIST",38),"VVEL", @50),"HVEL",60),"FUEL" C1),T,10),H,23),D, H37),H1,49),D1,60),T2 MH03.287828E04p RR0A164.4736 WM10D \T120 aF0 fP0 kl pR18.21957E04 uRA1)4.931742E04 zH03.287828E04 D)10Z)   8"THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-" "TIME CONTINUUM" ?  9"IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE", "FOR AN E.V.A." ?  "IMPOSSIBLE THRUST VALUE",  F0 F.05.05 "TOO LARGE" ? "TOO SMALL" ? "NEGATIVE" ?  4"TRANQUILITY BASE HERE -- THE EAGLE HAS LANDED" 7"CONGRATULATIONS - THERE WAS NO SPACECRAFT DAMAGE" 4"YOU MAY NOW PROCEED WITH SURFACE EXPLORATION." 9"IF YOU RUN INTO MR. CURRY, TELL HIM HIS DISHWASHER" "IS OVERFLOWING." L  4"CRASH!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 8"YOUR IMPACT CREATED A CRATER",H)," ",M$," DEEP."  X1D1D1H1H1)G3 6"AT CONTACT YOU WERE TRAVELLING",X1," ",N$,"/HR." L  <"YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY." % "CAN I HAVE YOUR COMPUTER TIME?" $L )"YOU ARE DOWN SAFELY -" 3 48"BUT MISSED THE LANDING SITE BY",DG5)," ",N$ 89"WHEN WAS THE LAST TIME YOU HAD YOUR EYES CHECKED?" =L B G"MISSION ABORTED" L Q"DO YOU WANT TO TRY AGAIN", VZ$ [Z$1,1)"Y" `j e j ;o"TOO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED" t"ASTRONUTS." y ~ @"O.K., DO YOU WANT THE COMPLETE INSTRUCTIONS OR THE INPUT-" "OUTPUT STATEMENTS?" "1=COMPLETE INSTRUCTIONS" "2=INPUT-OUTPUT STATEMENTS" "3=NEITHER" B1 Q$"NO" B11 Q$"YES" B12 B13   &n "STARS - A NUMBER GUESSING GAME" s51211,15 x A100 M7 % "DO YOU WANT INSTRUCTIONS?",A$  A$"NO"  0 "I AM THINKING OF A NUMBER FROM 1 TO 100." ; "YOU HAVE TO TRY AND GUESS WHAT IT IS. THE CLOSER TO" / "IT YOU GET THE MORE STARS I WILL PRINT." ("YOU HAVE 7 TRIES BEFORE YOU LOSE."  \ , XA0))1 26 "I AM THINKING OF A NUMBER. START GUESSING." J K1 M T ^ "YOUR GUESS?",G r GX X | DXG)  D64   D32   D16   D8   D4   D2   "*",  "*",  "*",  "*",  "*",  "*",  "*",   K & 90 "SORRY BUT THAT'S ",M," GUESSES. THE NUMBER WAS ",X D  X N1 50 b "*", l N v "!!!" 9 "YOU GOT IT IN ",K," GUESSES!! LET'S PLAY AGAIN..."   VCpA Y "BASB@AQB99999999999999999999999999925),"G U E S S"\25),"========="\\\\51211,25 @"THIS IS A NUMBER GUESSING GAME. I WILL THINK OF A NUMBER" @"BETWEEN 1 AND ANY LIMIT YOU WANT. THEN YOU HAVE TO GUESS" "WHAT IT IS."\\ '51211,0\"WHAT LIMIT DO YOU WANT", L  L1L)2))1 0 "I AM THINKING OF A NUMBER BETWEEN 1 AND",L  G1 '"NOW YOU TRY TO GUESS WHAT IT IS." \\ML0))1 N N0 F  NM2 GG1 NM(  "TOO LOW, GUESS AGAIN." ! ("TOO HIGH, GUESS AGAIN." * -2"THAT'S IT.! YOU GOT IT IN ",G," TRIES." 4GL1: 6GL1< ?8"YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY",L1," TRIES." 9A :"VERY ", <"GOOD!"\\ 5A"DO YOU WANT TO PLAY AGAIN?",Q$\Q$1,1)"Y" B"GOOD BYE."\c F"TRY AGAIN."\\\ c V A A A A A N B,0)B"\A0,7)A0,7)1 <"BA0,0)1AB,0)B,\A0,0)A0,0)1\A0,7)A0,7)1 ,2 6SRE COM,d A$35),Z$5),Y$5),O$5),R$6),A10,2) )n "Do you want the instructions? ",Z$ x Z$1,1)"Y" 5 \\"Press the SPACE BAR to start the program." I0) 3 #1,"JOTFILE"\#1,A\"Choose own word?",O$\T0 6 V0)A)1\W0)6)1\S0\Z$Y$\R$"AEIOUY" / O$1,1)"Y"\\#1\#1,"JOTFILE"\#1,A * U1V\#1,A$\\Y$A$W54)\T0 ; "Do you mind if the word has double letters? ",A$\\  A$1,1)"N"\T1 -I15\JI15\Y$I,I)Y$J,J)\\ $ O$)89"I have my word"\#1 1 1"Your guess: ",Z$\SS1\Q0\P0\O$" " ) Z$"NO"r\Z$)5h\Z$Y$| , T15\U16\Z$T,T)R$U,U)"\\  h " , , T15\O$)0@ #6 U1Q\Z$T,T)O$U,U)^\ @ QQ1\O$Q,Q)Z$T,T) +J U15\Z$T,T)Y$U,U)T\PP1\^ T /^ \" ",P,\P1" Letter"" Letters"\ !h " Illegal word"\SS1\ r \"The word was ",Y$\ ,| " !"\"YOU GOT IT in",S," guesses."\ 8 "What is your player number? ",Z$\Z$1,1)"R"  TZ$)\T0 5 T10TT)\AT,1)AT,1)S\AT,2)AT,2)1 # "Again? ",Z$\Z$1,1)"Y"  \"Final score: "\  Z$1,1)"R"\\ ! "YOUR WORD:",Y$\I120\\  Y$)5  R$"AEIOUY"\S0\  Z$"D" : \"Player #",20),"# of games",35),"Total",45), 4 "Average score"\T110\AT,1)0\" ",T, 3 23),AT,2),36),AT,1),48),AT,1)AT,2) ' \\Z$1,1)"R"\Z$"D"\ D " The game of JOTTO is a word game where one player secretly" F "writes down a 5-letter word and the other person tries to dis-" C& "cover it by guessing 5-letter words of his own and by using" D0 "clues about the number of letters common to both the guessed" D: "and secret words. Two rules about the characteristics of the" 8D "secret word are necessary to insure a fair game:" GN " 1) The same letter must not appear next to itself, as in FREED" DX " 2) Both players should agree whether the same letter may be" 0b " used twice in the word, as in STARS." Fl " It should be noted, however, that the guessed words need not" Fv "conform to the above rules. There is no limit to the number of" C "guesses allowed either. If the secret word is HOMES and you" G "guess SMOKE you will have guessed 4 common letters;if you guess" E "STARS then the number of common letters is 1, not 2; in other" D "words, the same letter is not counted twice if it is common." - 18),\"[PRESS RETURN TO CONTINUE]",Z$ C \" To see the word just type NO when asked for your guess." F " The program has various options built in: If two or more are" E "to play against each other and want to enter their own secret" E "words then reply YES when asked to choose your own word. How-" D "ever, both players could have the computer choose the secret" C "word for them, if they want. A maximum of 10 may keep their" E "scores in the computer by using the automatic scoring system." F "At the end of the game when the word has been guessed, you can" E "add your score to a total that will be kept for you simply by" D  "typing in your player number. Otherwise, just respond with a" D "zero. When asked about double letters that refers to rule #2" F  "above. The program may also be used as a practice game for one" E* "player by having the computer choose the secret word. It will" E4 "be helpful to have a list of the 26 letters on which to elim-" -> "inate letters not in the secret word." .H "[PRESS THE RETURN TO CONTINUE]",Z$\ [lfmlnnlnvnn~nnlll#NOSEDSCALEENEMYAIMEDDREAMSTUDYPARTYMOFTRENEMYMOFTRAEIOUY/nn 0B# #ACTEDCLEAROTHERPROVEWHICHGOINGCRIME#BEGANRIGHTALIBIFAULTPREYSSTEALJEWEL#AGAINRISKSCOMESHANDSDOUBTABOUTAFTER#KNOWSGAZEDCARESAWARESHAKENASTYSHOCK#MINCEALONEZEBRAHEARDRUMORLEANSTABLE#CRIEDGLAREBROKEYOUNGGREATGRIEFGRAFT#QUITECLOSETHESETHINGSPOKEDEATHMONEY#RATESTHINKEVENTLARGECIGARFIRSTALONG#ENJOYSPACESPAREWORLDWALKSASKEDFOUND#WRONGFAVORSTARERAPESFRANKBRINGHEART#PRIDEHURTSMIGHTCORESMAKESWOMANREFER#XEROXREAPSSTYLEGROWLSPEARBRIEFPOINT#ROCKSPOUNDSHARPPEARSSPEAKCAPESWHERE#PACESFIGHTPAUSESOUPSANGRYTRUTHPARES#APERSSCRAPADMITEXACTMAJORCOULDREPLY#FACTSSENSEWIVESPAINSWATCHTRAINTHICK#SUITEURGESPLIEDNEVERGIVENUNTILSPITE#YIELDUSUALPAPERWHOLEFIXEDRAZORCHECK#TRAPSTRUSTDOINGWINCEPARTSQUICKADORE#FIELDAGENTDRIEDCOVERAMONGBASESBASIC#EVERYWARTSPOUCHCABLERADIOPLANSSERVE#MOUNTJOINTSINCETYPESPRIORLOCALTHOSE#BASEDSCALEENEMYAIMEDDREAMSTUDYPARTY#ENEMALATERSWOREMANORLIGHTLIVEDHOTEL#TAKENPHONEFRESHBLACKFLASHDEVILBLANK#GRUNTTEACHOWNERCROWNOLDERRULERSHORT#EXISTWIDTHMOUTHYEARSWHITEPLACEFORTY#SQUADCHIEFTODAYWANTSTRACKSCORESTRAW#RANGENORTHLYINGBALESWHALETREATUNCLE $ THESE WERE WRITTEN A SOL20 4 THESE PROGRAMS WRITTEN ADAPTED AT JFK HIGH. 7 STATEMENTS SAYING "FILL 51211..." ROL THE SPEED < STATEMENTS SAYING "FILL 51207..." CHANGE THE PUT PT .( WHERE "1" IS THE ER "0" IS THE EEN. /2 STATEMENTS WITH 252) ACT AS ROMIZERS. .< CHANGE 252) YOUR KEYBOARD ENTRY PT. =F KALEID REQUIRES A PTCO. VDM. CHANGE THE "52224" THE ;P STARTING PO OF YOUR VDM.IT MIGHT WK WITH THE VTI, Z I D'T KNOW) :d THINK THATS ALL. YOU HAVE ANY SERIOUS QUESTIS n PRAISE ANYTHING, \ ;x KEN MELTSNER, 8653 D CAROL DR, EL CERRI, CA, 94530 2 D'T BE SCARED OF 35 SECR FILES. THIS IS  THE TRUE GTH. QUIZ PRO G  "PRESS `SPACE' TO START"  Z0) 0 Y IS START OF VDM, 52288,32 CLEARS CURS ( Y52224 2 139)\52288,32 < Y52224 F L 1 100 )P I0)8)\J0)32)\P10)256 BZX64IJY\X16415I)JY\X264I63JY\X36415I)63JY "d X,P1\X1,P1\X2,P1\X3,P1\ n 2 X3,P1\ n 2 e5@R"@E4BpAB0B9WRiEAWRu@EIWRqpERxE,1)"N"\T1 -I15\JI15\Y$I,I)Y$J,J)\\# "DO YOU WANT INSTRUCTIONS?",K$ 51211,15 K$1,1)"Y"U  # ( - 42"THIS IS A GAME OF BLACKJACK, LAS VEGAS STYLE." 27"HERE ARE THE RULES OF THE HOUSE. THE DEALER" 4<"MUST HIT ON 16 OR LESS AND WILL STAY ON 17 OR" 4A"MORE. YOU MAY SPLIT TWO CARDS IF THEY ARE THE" 6F"SAME AND PLAY ONE HAND WITH EACH OF THEM. ALSO," 6K"YOU MAY DOUBLE YOUR BET AND RECEIVE EXACTLY ONE" 6P"MORE CARD ANYTIME ON YOUR FIRST HIT. THE TYPING" 5U"INSTRUCTIONS ARE:0=NO HIT; 1=HIT; 2=DOUBLE;AND" Z"3=SPLIT A PAIR." _K1 >d"WHEN YOU SEE THAT THE DEALER HAS AN EXPOSED ACE HE WILL" :i"ASK YOU FOR AN INSURANCE BET. AN INSURANCE BET WILL" 9n"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET" 6s"IF YOU WIN. YOU WIN IF THE DEALER HAS BLACKJACK" 9x"AND LOSE IF HE DOESN'T. THE HOUSE LIMIT IS $500.00" 9}"GOOD LUCK. OH, BY THE WAY, THE DEALER IS NOTED FOR" 9"DEALING OFF THE BOTTOM OF THE DECK. WATCH HIM VERY" "CLOSELY. HERE HE IS NOW."    K0 W1 0 N19450)1)  X100))  D52),E5),V5),T5),W5) A1 52 DA)0 A Q52) A039 13  C1 13 QAC)C C A  KK1 P15 EP)0 VP)0 TP)0 "P 'V3)1 , 1 6 ;"WAGER", @P1 EW JW2)W OW0 TW500r YW7777h ^m c; ,h"THAT'S TOO MUCH - HOUSE LIMIT IS $500" m; r w"I SHOW", | a E1)0  V4)1 V5)1 a MX P2 "FIRST CARD IS", a GX "NEXT CARD IS ", a V2)0] SX V3)1] TP)21 %" ******BLACKJACK****** "  )"THAT'S GETTING A BIT RIDICULOUS!!!"  "MY HOLE CARD WAS", XM   W1W11.5W 7 V4)0: 5"INSURANCE ANYONE (TYPE 1 OR 0, 1 MEANS YES)", I  I0: T1)21+ W1W1W  ,!"YOU WIN $",W," ON YOUR INSURANCE BET." &: +W1W1W2 0 F5"YOU LOST $",W2," ON YOUR INSURANCE BET-I DON'T HAVE BLACKJACK." :T1)21] ? +D" ******I HAVE BLACKJACK****** " I"MY HOLE CARD WAS", NXM S  X ]TP)21 bEP)0 g"YOU BUSTED, ", l"YOUR TOTAL IS",TP) qC1TP)5TP)5)) vV2)1 { EP)EP)1 TP)TP)10 V1)2l V3)V3)1 "HIT ", V1) V1)3> V2)04 V3)24 QG)QS) "NOW IS THAT A PAIR?"  V2)1  QG)1 V1)2 P3 " PLAY HAND ONE NOW" "FIRST CARD IS", W3)W XG      V3)1 TP)C  P2 V2)2 " PLAY HAND TWO NOW" "FIRST CARD IS", XS   %QG)1/ *V1)0 / "4"NO SPLITS NOW - - TRY AGAIN" 9 >V1)2W CV3)2R #H"TOO LATE TO DOUBLE, CHARLIE." M RWP)2WP) WV1)0 \l a fTP)TP)C kV5)0z pV5)0 u z   R50 N101NW1))) A1N X52.999999Y)) X0 A DX)0 RR1 R50 A152 DA)K DA)0 A R0 " I RESHUFFLED ",  R0 DX)K QX)1 C11  QX)10 CQX)  C10    `  QX)1) " ACE ", $ )QX)108 .QX)," ", 3 8QX)11G =" JACK ", B GQX)12V L" QUEEN ", Q V" KING ", [ `X39y eX26 jX13 o"OF SPADES" t y"OF CLUBS" ~ "OF HEARTS"  "OF DIAMONDS"  P2 "MY HOLE CARD WAS", XM   T2)22 V2)0 T3)21 P1 T1)17P T1) 17 E1)0P T1)21_ P2 "MY TOTAL IS",T1) TP)21 T1)21 T1)TP) T1)TP)2 W1W1WP) C13 C12 C11 C10   2 W1W1WP) C13  C12 #C111 (C10E -Y 2m 4V2)0A 7} <  AP3 FV2)0 K P"I DRAW", Ua Z _E1)0s dE1)E1)1 iT1)T1)10 n s"I BUSTED**********" x }W10 W10 "YOU ARE AHEAD $",W1  "YOU'RE BEHIND $",W1  "YOU'RE EVEN"   "I MUST HAVE DEALT WRONG."  2  "YOU LUCKED OUT AGAIN!"   2 ""YOU MUST HAVE BEEN PEEKING."  2  $"I COULD LOSE MY JOB THIS WAY."  2  '"THE CARDS HAVE TURNED AGAINST ME"  2   8"THE CARDS AT THE BOTTOM OF THE DECK STRIKE AGAIN."  2  """A VICTORY FOR US GOOD GUYS." ' ,2 1 6"YOU CAN'T BEAT SKILL." ; @2 E J"YOU CAN'T WIN THEM ALL." O T2 Y !^"BABY GETS A PAIR OF SHOES." c h2 mM9152 rDM9)0 w M9 |R0  ""    i Y  AjPYPQB&B/ 5 A@ THIS PROGRAM ASSUMES THE PRESENCE OF RANSEED SEE NSSE2) 3 IN THE SYSTEM INITIALIZING THE FUNCTI. 9 THE PARAMETERS CHANGE OTHER VIDEO SETUPS ARE /( Y EEN BUFFER IGIN, L S PER EEN, 92 C CHARACTERS PER L C MUST BE EVEN EGERS), 5< P0 CODE NBLANK EEN POSITIS THE CODE 9F CLEARING EEN 160) UG A NSTARD DRIVER. )P "PRESS `RETURN' TO START" \ "",Z$ Z Z10720)65536 \ Z Z) *d Y IS START OF VIDEO BUFFER AT E000H n Y 57344  N1 N1 1 H BOARD R  \ TEST OF GAME f C1 0  p N1 64  z   OF GAME WRAPUP   "YOU HAVE ",  H1,  " PIECES AND I HAVE ",  C1,  " PIECES -- ",  H1 C1   H1 C1   "SORRY, I WON THAT ONE."    "A TIE !!"   "YOU WON !"  C1 C1 H1  C1 0 . $ C1 C1 . C1 64 C1) N1 8 "THAT WAS A ", B C1 11 L C1 25 V C1 39 ` C1 53 ~ j "PERFECT GAME." t ~ "WALKAWAY."  "FIGHT."  "HOT GAME !"  "SQUEAKER !!"  4 "DO YOU WANT TO PLAY ANOTHER GAME (Y OR N) ", X$  X$ "Y"   X$ "N"  "THANKS FOR PLAYING."   & SUBRINE TESTPROPERNEIGHB  ASSUMES\ $( I,J LOCATES A BLANK SQUARE /2 YOU HOPE SEE AN ADJACENT T2 T1) < I1 1 1 F J1 1 1 P AII1,JJ1) T2 Z J1 d I1 n NO T2 FOUND, FAILURE x F1 0   SUCCESS F1 1   SUBRINE SCEUPDATE  ASSUMES\ 2 I,J) IS A TENTATIVE PLACE A PIECE T1. 2 WANT S OF T2 T1, TERMINATED BY A T1. 1 U IS TRUE 1), MARK THOSE S AS T1'S. + SUM OF ALL S T2'S LY) IN S1. 1 MAIN PROGRAMAINS TH FOLLOWING ARRAYS & I4 0 1 1 1 0 1 1 1 & J4 1 1 0 1 1 1 0 1  S10  K1 8  I5I4K) " J5J4K) , I6II5 6 J6JJ5 @ S30 J AI6,J6) T2 T LOOP THROUGH THE ^ S3S31 h I6I6I5 r J6J6J5 | AI6,J6) T1  AI6,J6) 0 ^ S1S1S3  U1  UPDATE BOARD I6I J6J  K10 S3  AI6,J6)T1 I6I6I5 J6J6J5 K1  K   SUBRINE BD  "& " A B C D E F G H" 0 I1 8 : I, D J1 8 N " ", X D$AI,J)2,AI,J)2), b J l v I    / UESS AGAIN." * -2"THAT'S IT.! YOU GOT IT IN ",G," TRIES." 4GL1: 6GL1< ?8"YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY",L1," TRIES." 9A :"VERY ", <"GOOD!"\\ 5A"DO YOU WANT TO PLAY AGAIN?",Q$\Q$1,1)"Y" B"GOOD BYE."\c F"TRY AGAIN."\\\ c V A A A A A N B,0)B"\A0,7)A0,7)1 <"BA0,0)1AB,0)B,\A0,0)A0,0)1\A0,7)A0,7)1 ,2 6SRE COM \ Hunt the Wumpus "Wumpus--Entered by Chard" ' "Press the `space' bar to start!" ( Q0)\ 252)32 ( 2"Instructions? ",I$ <I$1,1)"N"P F PS20,3),P5) ZJ120\K13\SJ,K)\K\J %d2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 'n5,7,15,6,8,17,1,7,9,8,10,18,2,9,11 .x10,12,19,3,11,13,12,14,20,4,13,15,6,14,16 /15,17,20,7,16,18,9,17,19,11,18,20,13,16,19 AX)200))1 BX)30))1 CX)40))1 L6),M6) "J16\LJ)A0)\MJ)LJ)\J ,J16\KJ6\JK \LJ)LK) K\  J A5\LL1) "Hunt the Wumpus" H  O,6 . "F0 ,J 6< @F0 JF0h T"Ha Ha Ha - You lose!" ^r 5h"Hee Hee Hee - The Wumpus'll getcha next time!!" rJ16\LJ)MJ)\J |"Same set-up? ",I$ I$"Y"  \ INSTRUCTIS 51211,15 #"Welcome to `Hunt the Wumpus'" :" The Wumpus lives in a cave of 20 rooms. Each room" 7"has 3 tunnels leading to other rooms. (Look at a" ;"dodecahedron to see how this works-if you don't know" 2"what a dodecahedron is, ask Mr. Picciotto.)"  " Hazards:" A" Bottomless pits - two rooms have bottomless pits in them." =" If you go there, you fall into the pit (& lose!)." <" Super bats - two other rooms have super bats. If you" A" go there, a bat grabs you and takes you to some other" 8" room at random. (which might be troublesome)" & 0" Wumpus:" @:" The Wumpus is not bothered by the hazards (he has sucker" 8D" feet and is too big for a bat to lift). Usually" ;N" he is asleep. Two things wake him up: your entering" +X" his room or your shooting an arrow." :b" If the Wumpus wakes, he moves (P=.75) one room" >l" or stays still (P=.25). After that, if he is where you" *v" are, he eats you up (& you lose!)."  " You:" 7" Each turn you may move or shoot a crooked arrow" 8" Moving: You can go one room (thru one tunnel)." ?" Arrows: You have 5 arrows. You lose when you run out." A" Each arrow can go from 1 to 5 rooms. You aim by telling" B" the computer the room no.'s you want the arrow to go to." B" If the arrow can't go that way (i.e. no tunnel) it moves" )" at random to an adjoining room." 3" If the arrow hits the Wumpus, you win." -" If the arrow hits you, you lose."  " Warnings:" =" When you are one room away from Wumpus or hazard,"  " the computer says:" #" Wumpus- `I smell a Wumpus'"  " Bat - `Bats nearby'" !*" Pit - `I feel a draft'" 451211,0 > H\ LOCATI & HAZARD WARNINGS R \J26 fK13 pSL1),K)LJ) zJ1,,,, '"I smell a Wumpus -- Yecccchhhhh!"  "I feel a draft"  "Bats nearby!" K J "You are in room ",L1) ."Tunnels lead to ",SL,1),SL,2),SL,3)\  \ SHOOT MOVE "Shoot or move? ",I$ I$"S" O1  O2 $ .\ ARROWS 8F0 B"No. of rooms (1-5)? ",J9 LJ91J95B VK1J9\"Room #",PK)\K `AA1\LL1) jK1J9 "tK113\SL,K1)PK)\K1 ~LSL,B1))\ K "Missed"   A0 F1  LPK) LL2) "Aha! You got the Wumpus!"  F1\ LL1) "Ouch! Arrow got you!"\  KC0)\K42 L2)SL2),K)\L2)L2 $"Tsk Tsk Tsk - Wumpus got you!" (F1 2 <\ MOVE FF0 P"Where to? ",L ZL1L20P dK13\SL1),K)L\K nLL1) x"Not possible--",\P L1)L LL2) "...Oops! Bumped a Wumpus!"   F0  LL3)LL4) &"YYYIIIIEEEE . . . Fell in a pit" F1  LL5)LL6) 5"ZAP--Super bat snatch! Elsewhereville for you!" LA1)    OAgWO1WOGWy&@ N / APAAA0AB A@AB0APABA@A`APApA A3),B3) #"Blame Chard for this program" "Press Space bar to start" (Q0)\252)32( 2G20 *<"Welcome to *** BEYOND BAGELS ***" F\"Rules? ",A$ PA$"Y"6 Z51211,15 3d" I'll think of a 3-digit number (like 532)" >n"and you have",G," tries to guess it. After you tell me" 8x"your guess, I'll print your score for that guess."  ?"You get 1 point for each digit that's also in my number," ;"and another point for each correct digit that's also" "in the correct place."  "If my number is 532" "And you guess 421" ""You get 1 point (for the 2)"  "If my number is 689" "And you guess 692" 0"You get 3 points (2 because of the 6, and" !"the 9 adds the other point"  3"But be careful! Some scores (like 3 points)" +"can be made in more than one way !!!" " ,51211,0 6"Here we go..." @A1)0)9)1 "JA2)0)10)\A2)A1)J TA3)0)10) ^A3)A2)A3)A1)T h"I've got my number"\ rG11G |\"Guess #",G1,\X X120X987 -"Pick a number between 120 and 987"\| P0 -I13\BI)X100)\X10X100BI))\I P60 &B1)B2)B1)B3)B2)B3) *"Hint: all digits are different"\| I13 .J13\BI)AJ)\PP1\IJ\PP1 J\I P60 P1 "P," point for this one."\ P," points for this one." G1 D\\Sorry you didn't guess it."\!"My number was";A(1);A(2);A(3) &: .0\\"You guessed it in",G1," guesses !!!" :"Play again? ",A$ DA$1,1)"N"" N"BYE!"\ /U\pAAA/pAAAp@f\ B N A`A@A@ A$24),B$36),C$72),A12)  B112\AB)\ 2 AX)29Y4Y4)) < BX)XX7)71.0001) .F CX)14XPXP))6.28318)30.5) :P A$"SUNMONTUEWEDTHUFRISATPSC"\B$"JANFEBMARAPRMAYJUN" U B$B$"JULAUGSEPOCTNOVDEC" EZ "Do you know what Biorhythms are? ",C$\C$1,1)"N" \_ ]\\\\51207,0 A_ "Do you want a print-out? ",C$\C$1,1)"N"d\ 51207,3 d C$1,1)"S" 1e \\"CHART SYMBOLS:"\" I : Median line" 6i " P : Physical cycle (23-Day cycle)" 6n " S : Sensitivity cycle (28-Day cycle)" 6x " C : Cognitive/Mental cycle (33-Day cycle)" 6 " * : Means that two graph symbols coincide." 4 \\"This chart is for the birthday on ",M,D,Y \"It starts on ",M1,D1,Y1 ( A2)AY)\YY1MM1\SD\  SAM)D1\MM1 # M13\M1\YY1\A2)AY) ' YY1MM1\SSAM)\MM1\ 3 SSD1\DD1\\\20),"(-) (0) (+)"\ , 252)83] 1 C$""\I172\C$C$" "\ 56 DD)w\M1M\Y1Y\M12T\M1M112\Y1Y11 2T M1M12\EY1100.0001)\Y1Y1Y1100)100 0^ EB2.6M1.19)DY1Y14)E4)2E) 5c C$1,3)A$3E2)\C$4,6)D)\D10C$6,6)" " d D1w &r C$8,10)B$3M2)\C$11,15)Y) 2w C$30,30)"I"\L30\I13\P5I18\XI)CS) , C$XI),XI))A$21I)\XI)LLXI)\ + X1)X2)X1)X3)C$X1),X1))"*" ! X2)X3)C$X2),X2))"*" 3 C$1,L)\SS.5\DD.5\DAM)1,\D1\MM1 ( M13,\M1\YY1\A2)AY)\, ) 31,28,31,30,31,30,31,31,30,31,30,31 K \\" The Biorhythm theory postulates that there are certain meta-" G "bolic rhythms that have a constant cycle time in the human body" & "and are known as inner clocks." E& " Two physicians, one a contemporary of Freud, concurrently" G0 "described a 23-day cycle that correlated with physical vitality" D: "endurance and energy; and a 28-day cycle that correspondesto" CD "sensitivity, intuition, and cheerfulness. A third cycle was" EN "observed by a professor and others in the 1920's and 30's and" CX "is a 33-day cognitive or intellectual cycle that relates to" &b "mental alertness and judgment." Dl " All three cycles start up from birth or the beginning of" v "independent life."\\ 7 "[PLEASE PRESS RETURN WHEN READY TO CONTINUE]",C$ J \\" The days on which the median (0) line is crossed are called" F "CRITICAL DAYS, especially for the physical and sensitivity cy-" G "cles and are the days on which accidents are most likely to oc-" F "cur. The high (+) periods in the cycles are the times when you" D "should have the most energy, be most cheerful, outgoing, and" B "mentally alert. The lowtimes are known as the recuperative" < "periods. Biorhythm has nothing to do with astrology." F " A Tokyo taxi company has reported a 60% cut in accidents by" C"giving drivers an `extra-careful-today' reminder on critical"  "days."\\\ < "[PLEASE PRESS RETURN WHEN YOU ARE READY TO GO ON]",C$  I15\\\_ ,d A$35),Z$5),Y$5),O$5),R$6),A10,2) )n "Do you want the instructions? ",Z$ x Z$1,1)"Y" 5 \\"Press the SPACE BAR to start the program."  I0)\252)32\ 3 #1,"JOTFILE"\#1,A\"Choose own word?",O$\T0 6 V0)A)1\W0)6)1\S0\Z$Y$\R$"AEIOUY" / O$1,1)"Y"\\#1\#1,"JOTFILE"\#1,A * U1V\#1,A$\\Y$A$W54)\T0 ; "Do you mind if the word has double letters? ",A$\\  A$1,1)"N"\T1 -I15\JI15\Y$I,I)Y$J,J)\\ $ O$)89"I have my word"\#1 1 1"Your guess: ",Z$\SS1\Q0\P0\O$" " ) Z$"NO"r\Z$)5h\Z$Y$| , T15\U16\Z$T,T)R$U,U)"\\  h " , , T15\O$)0@ #6 U1Q\Z$T,T)O$U,U)^\ @ QQ1\O$Q,Q)Z$T,T) +J U15\Z$T,T)Y$U,U)T\PP1\^ T /^ \" ",P,\P1" Letter"" Letters"\ !h " Illegal word"\SS1\ r \"The word was ",Y$\ ,| " !"\"YOU GOT IT in",S," guesses."\ 8 "What is your player number? ",Z$\Z$1,1)"R"  TZ$)\T0 5 T10TT)\AT,1)AT,1)S\AT,2)AT,2)1 # "Again? ",Z$\Z$1,1)"Y"  \"Final score: "\  Z$1,1)"R"\\ ! "YOUR WORD:",Y$\I120\\  Y$)5  R$"AEIOUY"\S0\  Z$"D" : \"Player #",20),"# of games",35),"Total",45), 4 "Average score"\T110\AT,1)0\" ",T, 3 23),AT,2),36),AT,1),48),AT,1)AT,2) ' \\Z$1,1)"R"\Z$"D"\ D " The game of JOTTO is a word game where one player secretly" F "writes down a 5-letter word and the other person tries to dis-" C& "cover it by guessing 5-letter words of his own and by using" D0 "clues about the number of letters common to both the guessed" D: "and secret words. Two rules about the characteristics of the" 8D "secret word are necessary to insure a fair game:" GN " 1) The same letter must not appear next to itself, as in FREED" DX " 2) Both players should agree whether the same letter may be" 0b " used twice in the word, as in STARS." Fl " It should be noted, however, that the guessed words need not" Fv "conform to the above rules. There is no limit to the number of" C "guesses allowed either. If the secret word is HOMES and you" G "guess SMOKE you will have guessed 4 common letters;if you guess" E "STARS then the number of common letters is 1, not 2; in other" D "words, the same letter is not counted twice if it is common." - 18),\"[PRESS RETURN TO CONTINUE]",Z$ C \" To see the word just type NO when asked for your guess." F " The program has various options built in: If two or more are" E "to play against each other and want to enter their own secret" E "words then reply YES when asked to choose your own word. How-" D "ever, both players could have the computer choose the secret" C "word for them, if they want. A maximum of 10 may keep their" E "scores in the computer by using the automatic scoring system." F "At the end of the game when the word has been guessed, you can" E "add your score to a total that will be kept for you simply by" D  "typing in your player number. Otherwise, just respond with a" D "zero. When asked about double letters that refers to rule #2" F  "above. The program may also be used as a practice game for one" E* "player by having the computer choose the secret word. It will" E4 "be helpful to have a list of the 26 letters on which to elim-" -> "inate letters not in the secret word." .H "[PRESS THE RETURN TO CONTINUE]",Z$\ 9d## YES    / 0B# #ACTEDCLEAROTHERPROVEWHICHGOINGCRIME#BEGANRIGHTALIBIFAULTPREYSSTEALJEWEL#AGAINRISKSCOMESHANDSDOUBTABOUTAFTER#KNOWSGAZEDCARESAWARESHAKENASTYSHOCK#MINCEALONEZEBRAHEARDRUMORLEANSTABLE#CRIEDGLAREBROKEYOUNGGREATGRIEFGRAFT#QUITECLOSETHESETHINGSPOKEDEATHMONEY#RATESTHINKEVENTLARGECIGARFIRSTALONG#ENJOYSPACESPAREWORLDWALKSASKEDFOUND#WRONGFAVORSTARERAPESFRANKBRINGHEART#PRIDEHURTSMIGHTCORESMAKESWOMANREFER#XEROXREAPSSTYLEGROWLSPEARBRIEFPOINT#ROCKSPOUNDSHARPPEARSSPEAKCAPESWHERE#PACESFIGHTPAUSESOUPSANGRYTRUTHPARES#APERSSCRAPADMITEXACTMAJORCOULDREPLY#FACTSSENSEWIVESPAINSWATCHTRAINTHICK#SUITEURGESPLIEDNEVERGIVENUNTILSPITE#YIELDUSUALPAPERWHOLEFIXEDRAZORCHECK#TRAPSTRUSTDOINGWINCEPARTSQUICKADORE#FIELDAGENTDRIEDCOVERAMONGBASESBASIC#EVERYWARTSPOUCHCABLERADIOPLANSSERVE#MOUNTJOINTSINCETYPESPRIORLOCALTHOSE#BASEDSCALEENEMYAIMEDDREAMSTUDYPARTY#ENEMALATERSWOREMANORLIGHTLIVEDHOTEL#TAKENPHONEFRESHBLACKFLASHDEVILBLANK#GRUNTTEACHOWNERCROWNOLDERRULERSHORT#EXISTWIDTHMOUTHYEARSWHITEPLACEFORTY#SQUADCHIEFTODAYWANTSTRACKSCORESTRAW#RANGENORTHLYINGBALESWHALETREATUNCLE  "PRESS `SPACE' TO START"  Z0)\ 252)32  0 Y IS START OF VDM, 52288,32 CLEARS CURS ( Y52224 2 139)\52288,32 < Y52224 F L 1 100 )P I0)8)\J0)32)\P10)256 BZX64IJY\X16415I)JY\X264I63JY\X36415I)63JY "d X,P1\X1,P1\X2,P1\X3,P1\ n 2 W!WW)W1W WWe5@R"@E4BpAB0B9WRiEAWRu@EIWRqpERxE,1)"N"\T1 -I15\JI15\Y$I,I)Y$J,J)\\$ THESE WERE WRITTEN A SOL20 4 THESE PROGRAMS WRITTEN ADAPTED AT JFK HIGH. 7 STATEMENTS SAYING "FILL 51211..." ROL THE SPEED < STATEMENTS SAYING "FILL 51207..." CHANGE THE PUT PT .( WHERE "1" IS THE ER "0" IS THE EEN. /2 STATEMENTS WITH 252) ACT AS ROMIZERS. .< CHANGE 252) YOUR KEYBOARD ENTRY PT. =F KALEID REQUIRES A PTCO. VDM. CHANGE THE "52224" THE ;P STARTING PO OF YOUR VDM.IT MIGHT WK WITH THE VTI, Z I D'T KNOW) :d THINK THATS ALL. YOU HAVE ANY SERIOUS QUESTIS n PRAISE ANYTHING, \ ;x KEN MELTSNER, 8653 D CAROL DR, EL CERRI, CA, 94530 2 D'T BE SCARED OF 35 SECR FILES. THIS IS  THE TRUE GTH. QUIZ PRO G  OTHELLO 6 PLAYS THE GAME "OTHELLO" WITH TWO STRATEGIES\ / 1. TAKE THE MASIMUM NUMBER OF PIECES (( 2. ADD A BUS SIDE POSITI 62 BOARD IS THE ARRAY A, BOUNDED BY 0'S BLANKS) < A 0 EMPTY SQUARE 1F A B BLACK SQUARE X ERNALLY 1) 1P A W WHITE SQUARE O ERNALLY 1) 0Z I J ALWAYS USED ROWNCOLUMN INDICES /d I4 J4 SRE INCENTS THE 8 NEIGHBS 1n C$ D$ SRE CHARACTERS AH,X,.,O PUT %x A9,9),I48),J48),C$8),D$3)  INITIAL GREETING  "GREETINGS FROM OTHELLO" , "DO YOU WANT INSTRUCTIONS (Y OR N) ", X$  X$ "N"   X$ "Y"  5 "OTHELLO IS PLAYED ON AN 8 X 8 CHECKER BOARD," 1 "ROWS NUMBERED 1 TO 8 AND COLUMNS A TO H." 7 "THE INITIAL CONFIGURATION IS ALL BLANK, EXCEPT" 4 "FOR THE CENTER FOUR SQUARES, WHICH FORM THE"  "PATTERN"  " O X"  " X O"  7 "TRY TO PLACE YOUR PIECE SO THAT IT 'OUTFLANKS'" 2" "MINE, CREATING A HORIZONTAL, VERTICAL, OR" 6, "DIAGONAL RUN OF MY PIECES BOUNDED AT EACH END" 76 "BY AT LEAST ONE OF YOURS. THIS WILL 'FLIP' MY" )@ "PIECES, TURNING THEM INTO YOURS." 2J "NOTE: YOU MUST CAPTURE AT LEAST ONE OF MY" 5T "PIECES IN THIS WAY IF IT IS AT ALL POSSIBLE." 8^ "IF IT IS NOT POSSIBLE, YOU FORFEIT YOUR TURN BY" .h "ENTERING 0,0 FOR YOUR (ROW,COL) MOVE." r | INITIALIZE 8 "SHOULD I WAIT BEFORE MAKING MY MOVES (Y OR N) ",  F2 0  X$  X$ "N"   X$ "Y"   F2 1 2 "OK. TYPING ANY CHARACTER WILL LET ME GO." 2 "SHOULD I PLAY MY BEST STRATEGY (Y OR N) ",  S2 0  X$  X$ "N"   X$ "Y"   S2 2  B 1  W 1  D$B 2) "X" & D$0 2) "." 0 D$W 2) "O" : K 1 8 D I4K) N K X 0, 1,1,1,0,1,1,1 b K 1 8 l J4K) v K  1,1,0,1,1,1,0,1  K 1 8  C$K)  K & "A","B","C","D","E","F","G","H"  SET UP A NEW GAME  I0 9  J0 9  AI,J) 0  J  I  A4,4) W  A5,5) W  A4,5) B   A5,4) B  C1 2  H1 2 * N1 4 4 Z 0 > HUMAN'S CHOICES %H "DO YOU WANT TO HAVE X OR O ", R C W \ H B f X$ p X$ "X"  z X$ "O" f  C B  H W + "DO YOU WANT TO GO FIRST (Y OR N) ",  X$  X$ "N"   X$ "Y"   INITIAL BOARD      COMPUTER'S MOVE  F2 0   X$  B1 1  I3 J3 0  T1 C  T2 H $ SCAN BLANK SQUARE . I 1 8 8 J 1 8 B AI,J) 0 d L FOUND A BLANK SQUARE -V DOES IT HAVE AN OPPENT AS A NEIGHB? ` < j F1 0 d %t FOUND AN OPPENT AS A NEIGHB +~ HOW MANY OF HIS PIECES CAN WE FLIP?  D'T DO IT NOW)  U 1   % EXTRA POS BOUNDARY POSITI  S1 0 d " I 1) I 8) 0   S1 S1 S2 " J 1) J 8) 0   S1 S1 S2 2 IS THIS BETTER THAN THE BEST FOUND SO FAR?  S1 B1 d  S1 B1 <  A TIE, ROM DECISI 2  THE TWO EXECULE STATEMENTS CAN BE ETED . A VERSI OF BASIC WITH ROM NUMBERS  R0) ( R 0.5 d 2 YES < B1 S1 F I3 I P J3 J Z OF SCAN LOOP d J n I x COULD WE DO ANYTHING?  B1 0   NO " "I HAVE TO FORFEIT MY MOVE"  Z 1   Z 1    MAKE THE MOVE  Z 0  "I WILL MOVE TO ",  I3,  ", ",  C$J3,J3)  I I3  J J3  U 1   " C1 C1 S1 1 , H1 H1 S1 6 N1 N1 1 @ "THAT GIVES ME ", J S1, T " OF YOUR PIECES" ^ BOARD h  r TEST OF GAME | H1 0   N1 64   HUMAN'S MOVE  T1 H  T2 C ! "YOUR MOVE -- (ROW,COL) ",  I, X$  I 0   I 8   I 0  / "ARE YOU FORFEITING YOUR TURN (Y OR N) "  X$  X$ "Y"   Z 1   Z 1    J 1 8 & C$J,J) X$ N 0 J :  D CHECK BLANK N AI,J) 0 v 2X "SORRY, THAT SQUARE IS OCCUPIED; TRY AGAIN" b  l CHECK LEGAL NEIGHB v <  F1 1  5 "SORRY, YOU ARE NOT NEXT TO ONE OF MY PIECES;"  "TRY AGAIN"    CHECK LEGAL  U 1    S1 0  3 "SORRY, THAT DOESN'T FLANK A ROW; TRY AGAIN"   + EVERYTHING LEGAL, MAKE HUMAN'S MOVE  Z 0  "THAT GIVES YOU ",  S1,   " OF MY PIECES"  U 1   * H1 H1 S1 1 4 C1 C1 S1 > N1 N1 1 H BOARD R  \ TEST OF GAME f C1 0  p N1 64  z   OF GAME WRAPUP   "YOU HAVE ",  H1,  " PIECES AND I HAVE ",  C1,  " PIECES -- ",  H1 C1   H1 C1   "SORRY, I WON THAT ONE."    "A TIE !!"   "YOU WON !"  C1 C1 H1  C1 0 . $ C1 C1 . C1 64 C1) N1 8 "THAT WAS A ", B C1 11 L C1 25 V C1 39 ` C1 53 ~ j "PERFECT GAME." t ~ "WALKAWAY."  "FIGHT."  "HOT GAME !"  "SQUEAKER !!"  4 "DO YOU WANT TO PLAY ANOTHER GAME (Y OR N) ", X$  X$ "Y"   X$ "N"  "THANKS FOR PLAYING."   & SUBRINE TESTPROPERNEIGHB  ASSUMES\ $( I,J LOCATES A BLANK SQUARE /2 YOU HOPE SEE AN ADJACENT T2 T1) < I1 1 1 F J1 1 1 P AII1,JJ1) T2 Z J1 d I1 n NO T2 FOUND, FAILURE x F1 0   SUCCESS F1 1   SUBRINE SCEUPDATE  ASSUMES\ 2 I,J) IS A TENTATIVE PLACE A PIECE T1. 2 WANT S OF T2 T1, TERMINATED BY A T1. 1 U IS TRUE 1), MARK THOSE S AS T1'S. + SUM OF ALL S T2'S LY) IN S1. 1 MAIN PROGRAMAINS TH FOLLOWING ARRAYS & I4 0 1 1 1 0 1 1 1 & J4 1 1 0 1 1 1 0 1  S10  K1 8  I5I4K) " J5J4K) , I6II5 6 J6JJ5 @ S30 J AI6,J6) T2 T LOOP THROUGH THE ^ S3S31 h I6I6I5 r J6J6J5 | AI6,J6) T1  AI6,J6) 0 ^ S1S1S3  U1  UPDATE BOARD I6I J6J  K10 S3  AI6,J6)T1 I6I6I5 J6J6J5 K1  K   SUBRINE BD  "& " A B C D E F G H" 0 I1 8 : I, D J1 8 N " ", X D$AI,J)2,AI,J)2), b J l v I    /