IMD 1.15: 16/05/2007 7:50:13 fog gam 010    Ї!ֶ2:2a{_:ַʖ:ַ>Ľʖ:=2–!B!6#5ʖ:ַĽ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "ѷ"͌#>?͌͘ =_.:;<> Oхo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USERS!yO#< Ty#O 3ү21y_͸2y2ͽ:Ϸ˜1͘A͌>>͌92^ :ַ¥.!_~#fow]ԭՎե!v"!çREAD ERRORçNO FILE^:ַ ! ~ 3#0 Wx x р т G ~ # 3x~#B!Y~ɯ2:ַ=!־ý:ַ=!־:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ԯw4!Y~ʆ͌†t=ʆf ^ T ԯ2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Yոpsp2mÆÆf ͧÆFILE EXISTS _: É: :ַʉ=2)ͽÉ T!@k!}|q=qf^!~2>`~2֯2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !ֶ Â$$$ SUBSיץ׫ױ"C{2!"E9"1Aگ22!ty)K!G_^#V*Cِ~E ,&-AGMSڛ!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :ڷE B 2>: ڷb# : ڷy! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: ! ھ Hù H H $O͐: 2 *CN# \X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<ϯ2  2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \۷Sۀ*C :qn& ^#V>O^"*}:*)=":O:䡵o"*C *C!ͮ~2~2ͦ:2ͮ:ۯO:w:w |g}o*䯆#  ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw**{#zr+s{ozg**͕** ܾ,w͜͸Ͳ!!N#F$**O!~#:Aھ#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | sޖ-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌xܯ2͢*C ~<wʃG:!ʎì 4~ʶ¬:<ʶ$ʶïZͻۯx>2>2ͻ:!Z2:Eڷẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:Eڷ͊:==»y==»*Ww#*"͸*:G#š"͸:!w4 iw:Z!E~=26ۯ2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{x: 2 p&x~+é7د2 H! >w_: ! ھ5ͤNkͱ¦ͱxʊ#Nx: ڷ! ږ2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#  ):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2 4 %-ßð5OjcccccccccccccÄÎ@UAUTOST [v]pip a:=pip b:=xdir a:b:*.*789   50$5@*-?Oy2:Oy{o{_"!91*>2͚>2ͪ2P2R22y2i&))))Cxj!:2C*S}O|ȯ2Ry2 C:Uy2Vi`n&G>2x21:f2:iO<:j2l>1͟j >!"2`<2>22!"!"!c"@!:(;~(7O8Osborne Computer System 60K CP/M 2.2A >(!!:O2RK:"ȯ2Py2# >2R*"S:V<!R~*5:U< *S#"S2U>K>2Q:":#̪:"2!!:0)2*!P~6(! #ͪ:22*"":22:!>!Q~6:2*":2>_!'" !4>2* j2":= 2"ɯ2": 2~#O !N!V!^=!n=!^=!V=!f=:_^#fkv@IN7lT: :^!~( *~4 h'_!knf^VSR}2:` y :h/2h h:h*Z)>d8 :aȯ:adZ} }d !6w:b +w++N#S͎͎hhN:g > NI @II y2*:, O:*߱:ʭ:@OKh Qh}(2_Kh :ͣ(!~6: OKh Nh ?Kh : >*2)>2)>.2)>2)>2)>2)>2)>2 : >*2)>2)>.2)>2)>2)>2)> 2)>2 :)@(=:~ :)2~((2~:)/Ol(y/2)>"2)>2)>2>2s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bھw!>2*C~=2u:B2~2wE:A*Cڶw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*  LITQUIZ BASLOVE BAS LOVE-P BAS LUNAR BASMADLIBS BAS MASTRMNDBAS%MATHDICEBAS MUGWUMP BAS NAME BASNICOMA BASNIM BASNUMBER BAS ONECHECKBAS ORBIT BAS!"PIZZA BAS#$POETRY BAS %POKER BAS4&'()REVERSE BAS*ROCKSP BAS +MENU BAS-DISK BAK-DISK DOC,aa (): Pa !);"HURKLE":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::'bnN0bxG 6bpb "A HURKLE IS HIDING ON A";G;"BY";G;"GRID. HOMEBASE"b "ON THE GRID IS POINT 0,0 IN THE SOUTHWEST CORNER,"b "AND ANY POINT ON THE GRID IS DESIGNATED BY A"c "PAIR OF WHOLE NUMBERS SEPERATED BY A COMMA. THE FIRST"]c "NUMBER IS THE HORIZONTAL POSITION AND THE SECOND NUMBER"c "IS THE VERTICAL POSITION. YOU MUST TRY TO"c "GUESS THE HURKLE'S GRIDPHURKLE BAS KINEMA BASKING BASC-FOG/GAM010LEM BAS/ LETTER BAS LIFE BAS LIFE2 BAS    INFOdh bdrd| Kdd "SORRY, THAT'S";N;"GUESSES."e "THE HURKLE IS AT ";A;",";BeIe "DO YOU WANT TO PLAY AGAIN? ";ANS$ Oeve (ANS$,)"Y"  : "MENU"|eee "YOU FOUND HIM IN";K;"GUESSES!"e aa (): Pa !);"KINEMA":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"!b: : 'bd-bi5bjQJbnV(#())bo "A BALL IS THROWN UPWARDS AT";V;"METERS PER SECOND."bpbsAL|Vbt "HOW HIGH WILeb "GO ";el YB ev YB e "SOUTH";e f "NORTH";f XA 'f XA 5f "WEST";?f Mf "EAST";SfYfff "MENU"H";e f "NORTH";f XA 'f XA 5f "L IT GO (IN METERS)";bu bxAVcz "HOW LONG UNTIL IT RETURNS (IN SECONDS)";c| +cT(V()) 8cAV Tmc "WHAT WILL ITS VELOCITY BE AFTER";T;"SECONDS";wc }cc "YOU GOT ";c Q "ONE "; : Q  "TWO "; : Q "THREE "; : "NONE ";d "OUT OF THREE CORRECT.":/d: "DO YOU WANT TO TRY AGAIN? ";ANS$Od (ANS$,)"N" "MENU"_d Q drd " NOT BAD."|d dd Gd ((GA)A)~ d "NOT EVEN CLOSE...."d d "CLOSE ENOUGH."dQQe "CORRECT ANSWER IS ";A eee "MENU"d "NOT EOd (ANS$,)"N" "MENU"_d Q drd " NOT BAD."|d dd Gd ((GA)A)~ d "NOT EOINT. YOU GET";N;"TRIES."d "AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE"0d "DIRECTION TO GO TO LOOK FOR THE HURKLE."6dHdA(G())ZdB(G())hd6 K N{d@ "GUESS #";K;dJ X,YdT (XA)(YB) d^ PRINT   1b Z$"AGAIN" Z$"Again" Z$"again" b ()8c " Congratulations! You've just been elected premier of Setats"{c "Detinu, a small Communist island 30 by 70 miles long. Your"c "job is to decide upon the contry's budget and distribute"c "money to your countrymen from the communal treasury.":q F1 Hq q "*** You were forced to spend";: "##,###";((F1(B(Id))));q " Rallods on freasury,"gn );: "###,###";(B);: " countrymen, "hsV9(((())  ))hx C Qh );: "###,###";(C);: " foreign workers, ";h );"and ";: "##,##";(D);: " Square Miles of land.":h "This year indu  e."v V2 v V1V2V3 v "*** Decrease because "; wG1 ()w G1 -w G1 ?w G1 Qw G1 dw G1 twV3(AV3)wA(AV3)w w "fish population has dwindlnt reserves to cover cost - land was sold."rD(D(AW))rAsB(BB5)s H 6sC1(H(() )(()))Fs C SsC1C1s "###";C1;: " workers came to the country and";sP1(((IdB) )(K)((ed due to water pollution."w  x "air pollution is killing game bird population."x Px "mineral baths are being ruined by water pollution."Zx x "unpleasant smog is discouraging sun bathers."x x "Hotels are looD)2)(F1))s "###";(P1);: " countrymen ";s P1  t "came to";t !t "left";6t " the island."Et B(BP1)Tt C(CC1){tU2(((D)((()@))))t C ,t( "Of ";: "##,##";(J);: "king shabby due to smog grit."x x B5 @x BW y (A4d) !y CB 5y N5X5 l?y  EyKyy "The number of foreign workers has exceeded the number"y "of countrymen. As a minority,  square miles planted, ";t, JU2 2t.U2J2u2 "You harvested ";: "##,##";(JU2);: " square miles of crops,"Cu< U2 ZUu@ T1 ZluF "*** (Due to ";}uK T1 UuP "increased ";uU "air and water pollutiothey have revolted and"y "taken over the country."y" () ,6z& "You have been thrown out of office and are now"Rz( "residing in prison."\z* 6z, "You have been assassinated."z6z8z<: "Do you want to try again"n from foreign industry.)"uZQ((JU2)(W))vd "making ";: "####,###";(Q);: " Rallods."#vnA(AQ)FvxV1(((BP1))(()))\v}V2((D))v "You made ";: "##,###";((V1V2));: " Rallods from tourist trad;ANS$z= (ANS$,)"Y" (ANS$,)"y" X5:  : "MENU"z@zB6{J "##,##";B5;: " countrymen died in one year!!"s{O "Due to this extreme mismanagement, you have not only"{T "been impeached and thrown out of office, but you"{uneral expenses."qB5(F1(B(Id)))qA(A((F1(B(Id)))))r jr "*** You were forced to spend ";: "##,###";(F1);: " Rallods on funeral expenses."trB5F1rA(A(F1))r A r "*** Insufficie  ly";N5;"years."Ȁ  "How much did you have in the Treasury"; A A 60 "How many countrymen"; 8 BH B 6b "How many workers";j Cz C 6 "How many square miles of land"; D "Over one third of the popultation has died since you"} "were elected to office. The people (remaining)"7} "hate your guts."A} "U} B5F1 [}} "Money was left over in the Treasury which you did"} "not spend. As a re D 6ˁ D ݁ D d  " Come on, you started with 1000 square miles of farm land"R " and 10,000 square miles of forest land."\ hX5X5qB5{ d: "Do you want to try again";ANS$ (ANsult, some of your countrymen died" ~! "of starvation. The public is enraged and you have"D~& "been forced to either resign or commit suicide."a~+ "The choice is yours."~0 "If you choose the latter, please turn off your computer"~5 "beforeS$,)"Y" (ANS$,)"y" X5:  : "MENU"qB5{ d: "Do you want to try again";ANS$ (AN0,000 square miles of forest land."\ hX5X5qB5{ d: "Do you want to try again";ANS$ (AN proceeding."~: 6~l~n~ "CONGRATULATIONS!!!!!!!!!!!!!!!!!!"7 "You have succesfully completed your";N5;"year term"t "of office. You were, of course, extremely lucky, but" "nevertheless, it's quite an achievement. Goodbye and good" "luck - you'll probably need it if you're the type that" "plays this game." 6X "How many years had you been in office when interrupted";a X5r X5 6 X5  " Come on, your term in office is onVM6(() ){Y M6 {^ M6 {c M6 "| "also had your left eye gouged out!",| 6\| "have also gained a very bad reputation."f| 6| "have also been declared National Fink."| 6|||   Z$"GO"JB1JMJF1(JNpJ#R0J(V0%J-TJ2H0<K7RR0H0K<A33[KAR1(KFA1xgv1KKR3:KPA3GKUM1ffnQKZM0M1[K_BdKdT1lKiFtKnP|KsNKxM2K}SKCK (Z$,)"Y" ~KK "LUNAR LANDING SIMULATION"KL "HAVE YOU FLOWN AN APOLLO/LEM MISSION BEFORE";&L " (YES OR NO)";/L Q$HL (Q$,)"Y" aL (Q$,)"N" L "JUST ANSWER THE QUESTION, PLEASE, ";L LL "INPUT MEASUREMENT OPTION (METRIC OR ENGLISH)";L L*M "WHICH SYSTEM OF MEASUREMENT DO YOU PREFER (METRIC OR ENGLISH)";3M K$mM (K$,)"M" K : (K$,)"E" K : sMM K M K M MZgMM$"METERS"MG3fffM N$" KILOMETERS"MG5M 1MZNM$"FEET"N"G3P&N'N$"N.MILES"/N,G5Z@N1 B1 YN6 (Q$,)"Y" fN; ()N@ " YOU ARE ON A LUNAR LANDING MISSION. AS I (): PI ");"LEM":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"0J ROCKT2 IS AN INTERACTIVE GAME THAT SIMULATES A LUNARhJ LANDING IS SIMILAR TO THAT OF THE APOLLO PROGRAM.J THERE IS ABSOLUTELY NO CHANCE INVOLVEDJTHE PILOT OF"NE "THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO" OJ "GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATION SYSTEM."ZOO "THE ON-BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT"OT "OF INFORMATION NEEDED TO NAVIGATE THE SHIP."O^Oc   DISTANCE FROM LANDING SITE IN ";M$T& " VERTICAL VELOCITY IN ";M$;"/SECOND"$U+ " HORIZONTAL VELOCITY IN ";M$;"/SECOND"IU0 " FUEL UNITS REMAINING"U5: "ENTER 'RETURN' TO START THE EXERCISE.";RESP$: ()U6 " O) DEGREES IS DIRECTLY TOWARD THE MOON"P|P );"-180|+180"P ");"^"Q );"-90 < -+- > +90"Q ");"!"&Q ");"0"PQ );"<<<< DIRECTION OF ORBIT <<<<"VQQ );"------ SURFACE OF MOON ------"QQ "ALL ANGLETIME"; );"HEIGHT";);"DISTANCE";U7 %);"VERT. VEL.";1);"HOR. VEL.";<);"FUEL LEFT"#V8 " ----"; );"------";);"--------";_V9 %);"----------";1);"---------";<);"---------":iV: oV?~VD "T,P,A";VI T1,F,PVNFFdS BETWEEN -180 AND +180 DEGREES ARE ACCEPTED."Q: "ENTER 'RETURN' TO CONTINUE.";RESP$: ()(R "1 FUEL UNIT = 1 SEC. AT MAX THRUST"gR "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL"R "FOR AN ATTITUDE CHANGE."R "AVAILABLEVS T1 VX T1 BV] (FL|) Vb (FL|)L| Wg (P) WlN!Wq T1 {-WvNT19W{T1T1NJWPPIVWS(P)bWC(P)sWM2M0T1FBWR3R0((V0R))RA1A1 ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN"R "10 AND 100 PERCENT."RS"NEGATIVE THRUST OR TIME IS PROHIBITED."SOS "INPUT: TIME INTERVAL IN SECONDS ------ (T)"S " PERCENTAGE OF THRUST ---------- (P)"S " ATTITUDWA3R1A1RW I NW M1 WM1M1M2W M1 WFF(M1M2)XM2M1M2"X "YOU ARE OUT OF FUEL."+XM15X =XFFXM2WXMMM2aXR4R3XR3R0((V0R))RA1A1XR2(R3R4)E ANGLE IN DEGREES ----- (A)"SS (Q$,)"Y" S "FOR EXAMPLE:"T "T,P,A? 10,65,-60"8T  "TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0">TlT "OUTPUT: TOTAL TIME IN ELAPSED SECONDS"T " HEIGHT IN ";M$T! " \,yF1FCMXA4A3XA3R1A1RXA2(A3A4)57yF1FS(MR)YXR1T1R2T1T1YRRXYH0H0X*YR1R1R2T1GY AAA1T1A2T1T1WYA1A1A2T1hYMMM2sYTTT1Y  H0`,u *Y% IY*HH "THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS." Ph "+ OR -180 DEGREES IS DIRECTLY AWAY FROM THE MOON"JPm "-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT"Pr "+90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT"Pw "0 (ZER  ";(DG5);N$;"."^= L^B^G "MISSION ABENDED"^L ^Q "DO YOU WANT TO TRY IT AGAIN ";_V Z$ _[ (Z$,)"Y" 9_` (Z$,)"N" jC_e QI_j_o "TOO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED"_t "ASTRONAUTS DZ\T1ZaFZfPZk lZp R1xWv Zu (RA1)XHv  [z H0`,u "[ (D) Z ),[ 2[m[ "THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-";[ "TIME CONTINUUM."[ ?[[."_y "MENU"_~_ "OK, DO YOU WANT THE COMPLETE INSTRUCTIONS OR THE INPUT -" ` "OUTPUT STATEMENTS?")` "1=COMPLETE INSTRUCTIONS"K` "2=INPUT-OUTPUT STATEMENTS"]` "3=NEITHER"f` B1r`Q$"NO"` B1 `Q$"YES"` B "IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE"[ "FOR AN E.V.A."[ ?[\ "IMPOSSIBLE THRUST VALUE ";'\ F A\ FL|L| S\ "TOO LARGE"]\ ?o\ "TOO SMALL"y\ ?\ "NEGATIVE"\ ?\1 ` B1 ` ` "MENU"` "3=NEITHER"f` B1r`Q$"NO"` B1 `Q$"YES"` BETE INSTRUCTIONS"K` "2=INPUT-OUTPUT STATEMENTS"]` "3=NEITHER"f` B1r`Q$"NO"` B1 `Q$"YES"` B\ "TRANQUILITY BASE HERE -- THE EAGLE HAS LANDED." ] "CONGRATULATIONS -- THERE WAS NO SPACECRAFT DAMAGE."B] "YOU MAY NOW PROCEED WITH SURFACE EXPLORATION."L] LR]q] "CRASH !!!!!!!!!!!!!!!!"] "YOUR IMPACT CREATED A CRATER";aa (): Pa !);"LETTER":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::?bd "LETTER GUESSING GAME": wb "I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z."b "TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES"(H);M$;" DEEP."] X1(D1D1H1H1)G3] "AT CONTACT YOU WERE TRAVELING";X1;N$;"/HR."] L^C^ "YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY."M^$ Ll^) "YOU ARE DOWN SAFELY - "r^3^8 "BUT MISSED THE LANDING SITE BYb "AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER."b6LA(())c@G4cT: "O.K., I HAVE A LETTER. START GUESSING."Sc: "WHAT IS YOUR GUESS";]cGGsc A$: A(A$): c AL c AL c "TOO LOW. TRY A HIGH0ZY/H1R1ZY4DR0AZY9D1RA1ZY>T2M1BM0 ZC "##,##";T;: );: "#####,###";H;: );D;cZH %);: "##,####.#";H1;: 0);: "##,####.#";D1;: <);: " ###";T2xZM H0`,u pZR R0AXy$ ZW M1   TO TRY AGAIN";ANS$d  (ANS$,)"Y" 6 : "MENU"d "MENU" N : ();: Ndd "DO YOU WANTBUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!": xd "GOOD JOB !!!!!"d N : ();: Ndd "DO YOU WANT` : (): P` ");"LIFE":(a );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"a:: "THIS PROGRAM RUNS ENDLESSLY. TO TERMINATE, TYPE 'CONTROL-C'.": "TO RETURN TO THE MENU, TYPE 'RUN MENU'.":Lb "ENTER YOUR PATTERN:": "('.'[CR] INDICATES AN EMPTY LINE)": "('.'[SPACES] INDICATES BLANKS FOLLOWED BY CELLS)": "TYPE 'DONE' WHEN YOU HAVE FINISHED.":ib X1: Y1: X2: Y2Fb A(,F),B$()bCb B$(C)b( B$(C)"DONE" B$(C)"": Pb2 (B$(C),)"." B$(C)" "(B$(C),(B$(C)))b<CCcF cPCC: L#cZ X CCcd (B$(X))L L(B$(X))Kcn XYcxX1 CgcY1!Luc X Cc Y (B$(X))c (B$(X),Y,)" " A(X1X,Y1Y):PPc Yc Xc::d();"GENERATION:";G,"POPULATION:";P;: I9 "INVALID";9dX3: Y3F: X4: Y4: PCdGGmd X X1: : X: ***** WAS X1-1}d XX1 X2dd YY1 Y2d A(X,Y) A(X,Y): d A(X,Y) ER LETTER.": c "TOO HIGH. TRY A LOWER LETTER.": d: "YOU GOT IT IN";G;"GUESSES!!"'d G ad "BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!": xd "GOOD JOB !!!!!"d N : ();: Ndd "DO YOU WANT  J -1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1,1,1,1J O1  : A(O1): O1J J2 J K3 K  K7 N(J,K)c (K< K0KA JDKZK: M2: M3UKc J : cKd K }Ke J J iKf K ;: }K: I9e1 Y1 Y1: I9f3 Y2D Y2D: I9 f5Pf XX1 X21f YY1 Y29fCKf IX X]f JY Yf& A(I,J) A(I,J) CCf0 Jf: IfD A(X,Y) bfN C C A(X,Y): g K;: xKi K K nKj J : ~Kk J;: xKn ,Kx KL} JL~#LB: N(J,K) B 8L O1   hLN(JA(O1),KA(O1))N(JA(O1),KA(O1))BqL O1wLL, N(J,K) L1 O1 XfSPPfX lfb C A(X,Y): PPfl Ygv X-g{X1X1: Y1Y1: X2X2: Y2Y27g Dg "MENU"SPPfX lfb C A(X,Y): PPfl Ygv X-g{X1X1: Y1Y1: X2X2: Y2Y27g Dg "MENU" L6 N(J,K)K(O1) ^L; O1L@ L^ O1 hL_N(J,K)d: M2M2: " * ";Mc"MhN(J,K): M3M3: " # ";(MmBMN(J,K): " ";: xM  );"U.B. LIFE GAME":  );"--------------":MM2: M3M J M K MN(J,K)M KM JM B : P1: B P1 N: "PLAYER";B;" - 3 LIVE PIECES." N K1 : :NN(X(B),Y(B))P1: K1BN BLN/ ZYN0: 2sN: M2 M3 >N; M3 B: ?N< M2 I (): PI !);"LIFE2":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"J::$J N(,),K(),A(),X(),Y()KJ 3,102,103,120,130,121,112,111,12zJ 21,30,1020,1030,1011,1021,1003,1002,1012J M : K(M): M B: ?N= DN>: : "A DRAW":  N?: : "PLAYER";B;"IS THE WINNER":  OD B : : : "PLAYER";B;: 0OE Bc 08OF B^OJN(X(),Y())d: N(X(),Y())hOT 0O "X,Y":"XXXXXX";( );"$$$$$$";( );"& A(X,Y): d A(X,Y) e Y);();"#";();e XX3 X3X,e XX4 X4X>e  YY3 Y3YPe  YY4 Y4YXe Y`e" Xze' XX2 : : Xe+X1X3: X2X4: Y1Y3: Y2Y4e- X1 X1: I9e/ X2 X2  THE WIZARD OF OS, DOROTHY'S DOG WAS NAMED"L> "1)CICERO, 2)TRIXIA, 3)KING, 4)TOTO";M? A: A B:M@ "BACK TO THE BOOKS,...TOTO WAS HIS NAME.": FhMB "YEA! YOU'RE A REAL LITERATURE GIANT."rMCRRzMF:MG "WHO WAS THE FAIR MAIDEc: P "ILLEGAL COORDS. RETYPE": P : "PLAY AGAIN? ";ANS$: Q% (ANS$,)"Y"  : "MENU"Q "MENU" P "ILLEGAL COORDS. RETYPE": P : "PLAY AGAIN? ";ANS$: Q% (ANS$,)"Y"  : "MENU"Q "MENU"N WHO ATE THE POISON APPLE"MH "1)SLEEPING BEAUTY, 2)CINDERELLA, 3)SNOW WHITE, 4)WENDY";NI A: A L5NJ "OH, COME ON NOW...IT WAS SNOW WHITE."?NK PTNL "GOOD MEMORY!"^NMRRfNP:vNU R dNZ R N\ "NOT BAD, BI (): );"LITERATURE QUIZ":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"J:: JR@J "TEST YOUR KNOWLEDGE OF CHILDREN'S LITERATURE."kJ : "THIS IS A MULTIPLE-CHOICE QUIZ."J "TYPE A 1, 2, 3, OR 4 AFTER THE QUESTIUT YOU MIGHT SPEND A LITTLE MORE TIME"N^ "READING THE NURSERY GREATS."N` XX :: "MENU"8Od "WOW! THAT'S SUPER! YOU REALLY KNOW YOUR NURSERY"nOn "YOUR NEXT QUIZ WILL BE ON 2ND CENTURY CHINESE"Ox "LITERATURE (HA, HA, HA)"O XXON MARK."J: "GOOD LUCK!": : J( "IN PINOCCHIO, WHAT WAS THE NAME OF THE CAT""K* "1)TIGGER, 2)CICERO, 3)FIGARO, 4)GUIPETTO";7K+ A: A .cK, "SORRY...FIGARO WAS HIS NAME.": 2K. "VERY GOOD! HERE'S ANOTHER."K/RRK2: :: "MENU"O "UGH. THAT WAS DEFINITELY NOT TOO SWIFT. BACK TO"P "NURSERY SCHOOL FOR YOU, MY FRIEND."+P XX :: "MENU" "UGH. THAT WAS DEFINITELY NOT TOO SWIFT. BACK TO"P "NURSERY SCHOOL FOR YOU, MY FRIEND."+P XX K3 "FROM WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS?"L4 "1)MR. NIXON'S, 2)ELMER FUDD'S, 3)CLEM JUDD'S, 4)STROMBOLI'S";0L5 A: A 8eL6 "TOO BAD...IT WAS ELMER FUDD'S GARDEN.": <zL8 "PRETTY GOOD!"L9RRL<: L= "IN &&&&&";O ( );: Y(B),X(B)O X(B) X(B) O P Y(B) Y(B)  P (P N(X(B),Y(B)) 6P B ZP X()X() Y()Y() `P~P "SAME COORD. SET TO 0"PN(X(B),Y(B)): B  14,3,1,10,10,16,6,12,5,1f 11,8,13,27,1,11,8,13,27,1,60 g I  : : I: "MENU",3,3,15,6,15,2,1,10,6,1,3,16,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10f 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1f 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,TO 60 CHARACTERS. IF YOU CAN'T THINK OF" c2 "A MESSAGE, SIMPLE TYPE THE WORD 'LOVE'": 4c< "YOUR MESSAGE, PLEASE";A$: L(A$)UcF T$(x): I  : : Ijcd J (KF T$(x): I  : : ISKd J (cP "0 (FREE FALL) AND 200 (MAXIMUM BURN) POUNDS PER SECOND."wcZ "YOU MAY SET A NEW BURN RATE EVERY 10 SECONDS.": cd "THE CAPSULE WEIGHS 32,500 POUNDS, AND YOU HAVE 114,3,1,10,10,16,6,12,5,1N 11,8,13,27,1,11,8,13,27,1,60N I  : : I: "MENU"6,3,3,15,6,15,2,1,10,6,1,3,16,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10oN 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1N 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,6,500"ci "POUNDS OF FUEL."cn: "GOOD LUCK!"cxL)d: "SECONDS"," MI + FT"," MPH","LB. FUEL","BURN RATE"ld "-------","-----------","---------","--------","---------":dAx:V:M:Nt@:Gnw:Zfff+e " ###";L;:"",: " ### #,###"; (A),((A(A)));:"",: " #,###.##"; V;:"",: " ##,###";MN;:""," ";: K:T Ae MNnw Ue Tnw oeST: MNSK }eS(MN)Ke : I Te V e J: P: CC: C% KK A: A1A1A: P ,K I A: " ";: I: P: %L, IA1A A1: T$(I);: I: P7L A1< AL LX 60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5Lb 4,6,21,11,8,6,4,4,  W "GOOD LANDING (COULD BE BETTER)":f W<,)g "CRAFT DAMAGE... YOU'RE STRANDED HERE UNTIL A RESCUE"^g "PARTY ARRIVES. HOPE YOU HAVE ENOUGH OXYGEN!"hg  g, "SORRY THERE WERE NO SURVIVORS. YOU BLEW IT!"g6 "IN FACT, YOU BLASTED A NEW LUNAR CRATER";W ;"FEET DEEP!"g@ hJLLS: TTS: MMSK: AI: VJ: 'hT S #y Mh^DV(VVA(GZKM)):SADdhh: J: ThrW(MG(ZK)): SMV(ZK(W(WWVZ)))L|: h| I  Th J: J h V rh iQSKM: JVGSZ(QQQQQQ)TiIAGSSVSZS(QQQ QQ):i:: "TRY AGAIN";RR$: (RR$,)"Y" (RR$,)"y" (): Fi "MENU"QQ QQ):i:: "TRY AGAIN";RR$: (RR$,)"Y" (RR$,)"y" (): Fi "MENS(QQQ QQ):i:: "TRY AGAIN";RR$: (RR$,)"Y" (RR$,)"y" (): Fi "MEN re J: f:: ();" FUEL OUT AT";L;"SECONDS ";():: S(V(VVAG))G.fVVGS: LLS|f::WV: "ON MOON AT";L;"SECONDS - IMPACT VELOCITY";W; "MPH.":f W "PERFECT LANDING!": f   d "A LIQUID";I$d "AND FINALLY, AN EXCLAMATORY WORD OR TWO";J$: /e "VERY GOOD! WOULD YOU LIKE A NEWSPAPER AD (1),"ee "A WESTERN (2), A STORY ABOUT THE ARMY (3), OR"e "A WATERBED (4). WHICH ONE, 1, 2, 3, OR 4";N: e N N e "COME ON NOW -- 1, 2, 3, OR 4";N: f (): N ,,,,X,f, );"DAILY GRUNT CLASSIFIEDS": hf6 "FOR SALE: 1957 SEDAN. THIS "A$()" CAR IS IN "A$()f@ "CONDITION. IT WAS FORMERLY OWNED BY A "A$()" SCHOOL"fJ "Ta a (): Pa !);"MADLIB":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"%b: : ?b A$( ),B$(),C$( )vb "O.K. WE'RE GOING TO WRITE SOME MAD-LIB STORIES"b( "TOGETHER. YOU SUPPLY THE WORDS, I SUPPLY THE PLOEACHER WHO ALWAYS DROVE IT "B$()". THERE IS A "A$())gTC$()" IN THE BACK SEAT. IT HAS A CHROME "C$()" ON THE HOOD,"lg^ "A "A$()" PAINT JOB, "A$()" TIRES AND THE BACK OPENS INTO"gh "A "A$()" "C$()". WILL CONSIDER TAKING A SLIGHTLY USED"T.": b< "FIRST I NEED 11 ADJECTIVES. ADJECTIVES MODIFY"cF "A NOUN, E.G., RED, DIRTY, LARGE, ETC."7cP I  : A$(I): IhcZ "NOW I NEED 5 ADVERBS. THEY MODIFY VERBS"cd "AND END IN 'LY' (SLOWLY, GREEDILY, ETC.)"cn I : B$(Igr C$()" IN TRADE."g|: : "LOST: IN THE VICINITY OF "H$", A "A$()eJ  LeT X AVe^  ^eh Xmer M  e| "MOVE # ";M;" GUESS ";: X$e X$"BOARD" e X$ zi XG Pi  I(X) pi* Xi4 X Gj> I(X) pjH Xq  G$(T)A$(T) *nq%WW:A$(T)(F):G$(S)(F):FF: 4vq* T~q4 Sq>qq PRINT SCOREqq "SCORE:"q "======"q " COMPUTER ";Cq " HUMAN ";Hqrr|0r CONVERT Q(1-P9) INTO G$(1-P9)6rEr S P9]rG$(S)(L$,Q(S),)er Skrqrprz CONVERT Q(1-P9) TO H$(1-P9)rr S P9r)m Zmm  |m m QUIT ROUTINEm n "QUITTER! MY COMBINATION WAS: ";n -n X P9:n A$(X);Bn XHn Yn "GOOD BYE"un XX :: "MENU"{n n INITIALIZE Q(1-P9) TO ZEROSn n S  D ^d" D Jd, D Jd6 ();" * * ";()e@ heJ ();" * ";()(eT hFe^ ();" ";()beh:*** PRINT " ----- "herxew N e| " +"e}eADe deTDAe "YOUR ANSWER ";e T1e  T1 XX :: "MENU"e T1T N1f "NO, COUNT THE SPOTS AND GIVE ANOTHER ANSWER."Kf "YOUR NEW ANSWER ";Tf& T2ef0 T2T Nf: "NO, THE ANSWER IS";T;();"."fD XfN "RIGHT!"fXaa (): Pa );"MATH DICE":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY""b::ab( "THIS PROGRAM GENERATES SUCCESIVE PICTURES OF TWO DICE."b2 "WHEN TWO DICE AND AN EQUAL SIGN FOLLOWED BY A QUESTION"b< "MARK HAfY "THE DICE ROLL AGAIN..."fbfgNfl dg XX :: "MENU");"."fD XfN "RIGHT!"fX."Kf "YOUR NEW ANSWER ";Tf& T2ef0 T2T Nf: "NO, THE ANSWER IS";T;();"."fD XfN "RIGHT!"fXVE BEEN PRINTED, TYPE YOUR ANSWER AND THE RETURN KEY."&cF "TO CONCLUDE THE LESSON, ENTER '0' (ZERO) AS YOUR ANSWER.",cP2cZ hPH CPR I NP\ A(I) Pf A(I) zPp CCQz IQ C(C)  )Q ?Q A(D()) 4UQ A(D()) 4cQ I NpQ EA(I)Q J  Q FEQ B(I,J)^Uh "DO YOU WANT TO PLAY ANOTHER GAME";Ur Q9$U| (Q9$,)"Y" V (Q9$,)"N" V Q9$"no" 9V "PLEASE ANSWER YES OR NO."DV r NV [V "MENU""Y" V (Q9$,)"N" V Q9$"no" (F(F))Q E(F)Q JQ IQ J  Q CQ HQ I N R$ B(I,J) VR. CC-R8 A(I)H V:RB HA(I)DRL GILRV IeR` C(C) mRj JRt E(N())R~ A(E) tR F(A(E)())R A(E)A(E)FR dR A(G)R J  R B(G,J)S CS I N#S B(I,J) /S CC7S I[S A(G)A(G)(C(C))JcS JsS  W d}S CS I NS( A(I) dS2 A(I) FS< CCSF ISP C(C) dSZ A(G)A(G)Td: "PILE SIZE"Ti "---- ----"&Tn I NATx " ## ###";I,A(I)IT IYT W cT "sT Z 4T: "YOUR MOVE - PILE, NUMBER TONSWER YES OR NO."O vO W O CO I NO A(I) O CC P C HP D(C)IP I/P  C EP A(D()) 4sP : ();" COMPUTER LOSES. ";():}P* hP4: ();" COMPUTER  DOM NUMBER SELECTED BY THE COMPUTER.": c "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)"Tc "YOUR POINT COUNT. YOU WIN WHEN YOU GET 500 POINTS."`c : Pdzc R(X)(())c "GUESS A NUMBER FROM 1 TO 5";GcRR()cSR()cTR()cUR()cVR()c GR c GS ( d GT 2d GU <+d GV F;d G  EdPPOd# PYd(PPcd- Pmd2PPPd5 "YOU HIT THE JACKPOT!!!"d7 Pd<PPdA PdFPP(P)dP P ZdR "YOU HAVE";P;"POINTS.":%eS P "YOU RAN OUT OF POINTS. YOU LOSE!": ]/eU  YeZ "!!!!YOU WIN!!!! WITH ";P;"POINTS."_e]e_ "WOULD YOU LIKE TO PLAY AGAIN";ANS$e` (ANS$,)"Y"  ec "MENI (): PI );"ONE CHECK":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"J: : J A(@)AJ "SOLITAIRE CHECKER PUZZLE BY DAVID AHL"GJJ "48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF A"J "STANDARD 64-SU""!!!!YOU WIN!!!! WITH ";P;"POINTS."_e]e_ "WOULD YOU LIKE TO PLAY AGAIN";ANS$e` (ANS$,)"Y"  ec "MENYeZ "!!!!YOU WIN!!!! WITH ";P;"POINTS."_e]e_ "WOULD YOU LIKE TO PLAY AGAIN";ANS$e` (ANS$,)"Y"  ec "MENQUARE CHECKERBOARD. THE OBJECT IS TO"J "REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS":K# "(AS IN STANDARD CHECKERS). USE THE NUMBERED BOARD TO"xK( "INDICATE THE SQUARE YOU WISH TO JUMP FROM AND TO. ON"K- "THE BOARD PRINTED OUT ONaa (): P: !);"NUMBER":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::^b "YOU HAVE 100 POINTS. BY GUESSING NUMBERS FROM 1 TO 5, YOU"b "CAN GAIN OR LOSE POINTS DEPENDING UPON HOW CLOSE YOU GET TO"b "A RAN  "N" XPD "PLEASE ANSWER 'YES' OR 'NO'."PN 2PXPb "O.K. HOPE YOU HAD FUN!!"Q "MENU"-Q' SUBROUTINE TO PRINT BOARD NUMBERS@Q$' J 9 Q.' "## ## ## ## ## ## ## ##";J,J,J,J,J,J, J,JQB' JTHE BOARD NUMBERING:":L@ 'LN "AND HERE IS THE OPENING POSITION OF THE CHECKERS."LOMP J @MRA(J)MT J/MV J + ?MX IJ JJMZA(I)RM\ IZM^ JbM`MlMb TMd "JUMP FROM";FMi F Mn "QL':QV'BERS@Q$' J 9 Q.' "## ## ## ## ## ## ## ##";J,J,J,J,J,J, J,JQB' JO PRINT BOARD NUMBERS@Q$' J 9 Q.' "## ## ## ## ## ## ## ##";J,J,J,J,J,J, J,JQB' JTO";TMpMv *** CHECK LEGALITY OF MOVEMxF1((F))MF2FF1MT1((T))NT2TT1N F1 (N T1 9N F2 JN T2 cN (F1T1) |N (F2T2) N A((TF)) N A(F) N A(T) N N "ILLEGAL MOVE. TRY AGAIN..."N d O *** UPDATE BOARD$O (): ':A(T)/OA(F)@OA((TF))JO"MM`O6 *** PRINT BOARDsOT J 9 O^ IJ JOh "## ";A(I);Or IO|O JOO dO *** END GAME SUMMARYOSO I @OSSA(I)P I5P: "YOU MADE";M;"JUMPS AND HAD";S;"PIECES"UP& "REMAINING ON THE BOARD."[P0pP2 "TRY AGAIN";A$P: (A$,)"Y" ?P? (A$,) EACH TURN '1' INDICATES A"K2 "CHECKER AND '0' AN EMPTY SQUARE. WHEN YOU HAVE NO"+L7 "POSSIBLE JUMPS REMAINING, INPUT A '0' IN RESPONSE TO"JL< "QUESTION 'JUMP FROM ?'"L>:: "ENTER 'RETURN' TO START THE GAME. ";RESP$L? ();"HERE IS    OF YOUR PLANET IS FROM"c "10,000 TO 30,000 MILES AND AT ITS PRESENT VELOCITY CAN"fn "AN EXPLOSION WITHIN 5,000 MILES OF THE ROMULAN SHIP"Wfo "WILL DESTROY IT."_fp:fq "ENTER 'RETURN' TO CONTINUE.";RESP$: ()frfs "BELOW IS A DIaa (): Pa !);"ORBIT":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::Ub "SOMEWHERE ABOVE YOUR PLANET IS A ROMULAN SHIP."[bb "THE SHIP IS IN A CONSTANT POLAR ORBIT. ITS"b "DISTANCE FROM THE CENTERAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT."gt "X = YOUR PLANET; 0 = THE ORBIT OF THE ROMULAN SHIP."gu?g " 90"ig " 0000000000000"g " 0000000000000000000"g " 00  () )l,Hl6 H l@HHlElF'mJ "THIS IS HOUR";H;();". AT WHAT ANGLE DO YOU WISH TO SEND"AmO "YOUR PHOTON BOMB";JmT A1zm^ "HOW FAR OUT DO YOU WISH TO DETONATE IT";mh D1mmmnmrAARm| Ah mXXXXXXXXXXX 0000"h " 0000 XXXXXXXXXXXXXXXXXXX 0000"6i "180<== 00000 XXXXXXXXXXXXXXXXXXX 00000 ==>0"li " 0000 XXXXXXXXXXXXXXXXXXX 0000"i " 0000 XXXXXXXXXXXXXXXXX 0000"i " AAhmT(AA1)m T mThT nC(DDD1D1DD1(TI))Hn "YOUR PHOTON BOMB EXPLODED";C;"*10^2 MILES FROM THE"^n "ROMULAN SHIP."pn C2 zn 6n: "YOU HAVE SUCCESFULLY COMPLETED YOUR MISSION 0000 XXXXXXXXXXXXXXX 0000"j " 00000 XXXXXXXXXXXXX 00000":j " 00000 XXXXXXXXXXX 00000"kj " 00000 00000"j " 000000 000000"j " .":n n: "YOU HAVE ALLOWED THE ROMULANS TO ESCAPE.":$o "ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT."No "DO YOU WISH TO TRY TO DESTROY IT";Wo C$o (C$,)"Y" ():  : o "GOOD BYE."o "MENU"No "DO  0000000000000000000"j " 0000000000000"Qk " 270";();: "ENTER 'RETURN' TO CONTINUE.";RESP$: ()k "ON THE ABOVE DIAGRAM, THE ROMULAN SHIP IS CIRCLING"k "COUNTERCLOCKWISE AROUND YOUR PLANET. DON'T FORGET THAT" l "WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE"8l "AND ORBITAL RATE WILL REMAIN CONSTANT."?l vl "GOOD LUCK. THE FEDERATION IS COUNTING ON YOU."lA(h())lD(())l"R(0000 000000"g " 00000 00000"(h " 00000 XXXXXXXXXXX 00000"[h " 00000 XXXXXXXXXXXXX 00000"h " 0000 XXXXXXXXXXXXXXX 0000"h " 0000 XXXXXX   (A$,)"Y" Nf (A$,)"N"  g& "'YES' OR 'NO' PLEASE, NOW THEN,": :gN: "SOMEBODY WILL ASK FOR A PIZZA TO BE"ggX "DELIVERED. THEN A DELIVERY BOY WILL"gb "ASK YOU FOR THE LOCATION.":: " EXAMPLE: ": " ----S"bZ "FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY"cd "WHERE TO DELIVER THE ORDERED PIZZAS.": : Ycn "MAKE SURE THE PRINTER IS ON AND THE PAPER IS READY."cp "ENTER 'RETURN' WHEN YOU ARE ALL SET. ";RESP$::: "--- PRINTING -----"gl "THIS IS J. PLEASE SEND A PIZZA." h "DRIVER TO ";N$;". WHERE DOES J LIVE?".h "YOUR ANSWER WOULD BE 2,3": Dh "UNDERSTAND";A$]h (A$,)"Y" h "THIS JOB IS DEFINITELY TOO DIFFICULT FOR YOU. THANKS ANYWAY"h h-"::c I c S$(I)c Ic I c M$(I)c I "NOW WE DRAW -- HOW MANY CARDS DO YOU WANT";|gH TgR T g\Z gf T gp "YOe I ,,,,e "NOTHING MORE";: f "YET AGAIN";: !f "SLOWLY CREEPING";: INT(Z/2) THEN 1920%nv-n Z3n9nHnKB(A(Z))Yn K hn " JACK";zn K n " QUEEN";n K n " KING";ni 2i U iZi A() iZi 2j U (jZ,j  A() 5jZ ?j 2Gj(ZOj2KYj<  njF T ~jP V xjZ I xjd "I'LL CHECK."jn  K n " ACE";n K  n K;();n oK(A(Z)d)o  K 4&o* " CLUBS",7o4 K HJo> " DIAMONDS",[oH K \loR " HEARTS",}o\ K pof " SPADES",opozUo ZN NojxVZA()j  j "I'LL BET $";V;();"."jKVj  k k$k "NOW WE COMPARE HANDS:".kJ$H$8kK$I$Wk: "MY HAND:": "-------"_kNik :qkN{k zkk "YOU HAVE ";k"KDk, jk6H$JB(Z)B(A(Z))o ZN o (A(Z)d)(A(Z)d) pUU p Zp U  $pXg+/pDA(N)?pH$"A FLUS"MpI$"H IN"VpU\plp ZN N~p KZ Np B(Z)B(K) V p$ XA(Z)p. A(Z)A(K)$k@I$K$kJKMkT "AND I HAVE ";k^ jkh BU lr UB  l| H$"A FLUS" 1l~ B(M)B(D)  Il B(M)B(D) dl "THE HAND IS DRAWN."l "ALL $"P"REMAINS IN THE POT."l l B(M)B(D) lp8 B(Z)B(K)pB A(K)XpL B(K)A(K)d(A(K)d)pV Kp` Zpj X qt ZN N%q~ B(Z)B(Z)  9q XX  (ZN)Dq DA(Z)Nq  Vq Zgq X < q B(N)B(N)  q XWq U q B(N)B(N) U CAN'T DRAW MORE THAN THREE CARDS."gz Hh T "WHAT IS ITS NUMBER:" : "WHAT ARE THEIR NUMBERS:"-h Q T5h U?h Gh Qrh: "YOUR NEW HAND:": "-------------"zhNh :hZ Th U  h (X (U#  D RAISE YOU"V;();"."v KGVv  v CGV Lw G  w VCw !w CG  CCKevH PPGKkvR }v\ GZ  vf VGKA()vp  vz "I'LL SEE YOU, AN J$z (J$,)"N" z A() { "YOU ARE NOW $100 RICHER."{SSd{ 2{ "IT'S PASTE. $25."={SSG{OOM{y{ "YOUR WAD IS SHOT. SO LONG, SUCKER!"{ "MENU"d{ 2{ "IT'S PASTE. $2< q U ( q Uq H$"STRAIG"q I$"HT"q Xg+r DA(N)r r( U r2 Xf++r< U  8rF DA(N)HrP H$"SCHMAL"VrZ I$"TZ, "^rd Uhrn X*rrx  r U  r I  r  r U  $  aa (): Pa  );"REVERSE":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" b::Ebd "REVERSE -- A GAME OF SKILL":Qb A()ob *** N=NUMBER OF NUMBERSwbNb "DO YOU WANT THE RULES";b A$b (A$,)"N" b b *** MAKE A RANDOM LIST A(1) TO A(N)cA()((N)())c K N,cA(K)(N())eQe "TRY AGAIN";Ze A$se& (A$,)"Y" e0: "O.K. HOPE YOU HAD FUN!!": eX *** SUBROUTIN%  REN'T ALLOWED TO PLAY THAT MANY.": b< G QbF: "GAME NUMBER";GcPX(())8cZ "3=ROCK...2=SCISSORS...1=PAPER"acd "1...2...3...WHAT'S YOUR CHOICE";Kcn (K)(K)(K) "INVALID.": Zcx "THIS IS MY CHOICE..."RIGHT. TO MOVE, YOU"g "TELL ME HOW MANY NUMBERS (COUNTING FROM THE LEFT) TO"8g "REVERSE. FOR EXAMPLE, IF THE CURRENT LIST IS:"Tg: "2 3 4 5 1 6 7 8 9"g: "AND YOU REVERSE 4, THE RESULT WILL BE:"g : "5 4 3 2 1 6 7 8 9"g: "NOW c X ,,c "...PAPER": c "...SCISSORS": d "...ROCK"d XK (d XK 8d X Xd "YOU WIN!!!":HH: id K d "WOW! I WIN!!!":CC: d K X d IF YOU REVERSE 5, YOU WIN!"g : "1 2 3 4 5 6 7 8 9":h* "NO DOUBT YOU WILL LIKE THIS GAME, BUT"Gh4 "IF YOU WANT TO QUIT, REVERSE 0 (ZERO).":h> "ENTER 'RETURN' TO BEGIN THE GAME. ";RESP$: ()hHh "MENU" "IF YOU WANT TO QUd "TIE GAME. NO WINNER."d Gd: "HERE IS THE FINAL GAME SCORE:":0e "I HAVE WON";C;"GAME";: C "S" : ce" "YOU HAVE WON";H;"GAME";: H "S" : e, "AND";Q(CH);"GAME";: Q(CH)  "S";e- " ENDED IN A TIE."::e1 "DO YOU WANT TO PLAY AGAIN";ANS$f2 (ANS$,)"Y" H:C:  : 'f6: "THANKS FOR PLAYING!!"4f@ "MENU" "DO YOU WANT TO PLAY AGAIN";ANS$f2 (ANS$,)"Y" H:C:  : 'f6: "THANKS FOR PLAYING!!"4f@ "a Modified by Jim Woolley, FOG Disk Librarian, 8/82aa (): P,b );"GAME OF ROCK, SCISSORS, PAPER":db );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"nb::b "HOW MANY GAMES";Qb( Q <b2 "SORRY, BUT WE AE TO PRINT LISTeb: K N: A(K);: Ke:: f *** SUBROUTINE TO PRINT THE RULESKf: "THIS IS THE GAME OF 'REVERSE'. TO WIN, ALL YOU HAVE"f "TO DO IS ARRANGE A LIST OF NUMBERS (1 THROUGH";N;")"f "IN NUMERICAL ORDER FROM LEFT TO &   DISK.DOC -FOG/GAM.010 First Osborne Group (FOG) Games Disk Disks -FOG/GAM.008 thru -FOG/GAM.011 each contain MBASIC games received from the Northwest Osborne Users Club in the Washington/Oregon area. These games are menu driven. To run, place MBASIC in drive A and this disk in drive B. At the A> prompt, type B: At the B> prompt, type A:MBASIC MENU If necessary, the MENU can be restarted. Following the Ok prompt, type  RUN "MENU" The quotation marks are required. Jim Woolley FOG Disk Librarian August, 1982 '  Tb ILAST ILASTb I ILASTb FMT$;I;PROG$(I);cJI4c JLAST : );: FMT$;J;PROG$(J) for MENU",NBRPb ();Vb^bI|b PROG$(I)"NOMOREDATA"b II: PROG$(I)bbLASTI:ILASTLAS