IMD 1.15: 16/05/2007 7:51:28 fog gam 009    Ї!ֶ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*  FOOTBAL2BAS0FURTRADRBAS*GOLF BAS)GOMOKO BASGUESS BAS GUNNER BAS HAMURABIBAS!HANGMAN BASHELLO BAS -FOG/GAM009CRAPS BAS!"HI-Q BAS#$HOCKEY BAS:%&'(HORSRACEBAS)*MENU BAS+MENU BAS,DISK DOC-aa (): Pa ");"CUBE":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::Gbd "DO YOU WANT INSTRUCTIONS? ";ANS$bbn (ANS$,)"N" r~bx (ANS$,)"Y" db}b" THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE"c"RANDOM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A"Ec"CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED"c"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START,"c"YOU ARE AUTOMATICALLY AT LOCATION 1,1CUBE BASDIAMOND BASDICE BASDIGITS BASEVENWIN1BASEVENWIN2BAS FLIPFLOPBAS FOOTBAL1BAS/   (((X)))hJhJhK(((X)))hKhKiL(((X)))"iL+iL@iM(((X)))NiMWiMliN(((X)))zi N i Ni  O (((X)))i* O  >E ONLY ONE SPACE "e"IN ONE DIRECTION EACH MOVE. FOR EXAMPLE: FROM 1,1,2 YOU"7e"MAY MOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE"ye"TWO OF THE NUMBERS ON THE SAME MOVE. IF YOU MAKE AN ILLEGALe"MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEYi4 Oi>: "WANT TO MAKE A WAGER ";Z$iH (Z$,)"N"  jR (Z$,)"Y" > j\ "HOW MUCH ";)jf Z1;jl A1Z1 Ejp WOjz XYj Y_jzj "IT'S YOUR MOVE: ";j P,Q,RjPW jPWjQX YOU MAY"e"HAVE BET ON THAT ROUND."ef "ENTER 'RETURN' TO CONTINUE.";XX$: ()>f""ANSWER ALL QUESTIONS WITH A YES OR NO."Df6f@"WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER"fJ"OF DOLLARS (EXAMPLE: 250) YOU ARE  j Q(X) j R (Y) j j Q X k RY k b DANNY FREIDUS|b "THIS PROGRAM SIMULATES THE ROLLING OF A PAIR OF DICE."b2 "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER TO"b< "'ROLL' THE DICE. WATCH OUT, VERY LARGE NUMBERS TAKE"0cF "A LONG TIME. IN PARTICULAR, NUMBERS OVER 5000."?cP Q  JcZF(Q)Rcd Qlcn: "HOW MANY ROLLS";tcx Xc S XcA(())cB(())cRABcF(R)F(R)c Scc "TOTAL SPOTS","NUMBER OF TIMES" d "-----------","---------------":/d V  fd );: "##";V;: "",: "#,###,###"; F(V)nd Vtdd: "TRY AGAIN";d Z$d (Z$,)"Y" Pd  ---","------","---------":f U  fNN(U): Sf J gS1AK(Z2,J)BL(Z1,J)CM(Z,J),g SS1 =g SS1 Ug () cgSS1: GJkg Jg " ";G," ";N(U),g  GN(U) *g " WRONG",: " e a piece of paper and write down" c "the digits '0', '1', or '2' thirty times at random."Gc "Arrange them in three lines of ten digits each.":c" " I will ask for them ten at a time. Enter each digit"c' "separated by commas.":c, " I ##";Xg  pg*XXg4 " RIGHT",: " ##";Xg>M(Z,N)M(Z,N)hHL(Z1,N)L(Z1,N)'hRK(Z2,N)K(Z2,N)9h\ZZ(Z)HhfZZN(U)[hpZ1Z(Z)ghzZ2N(U)oh Uwh T}hh X h X h "I guesse will always guess them first and then look at your"d6 "next number to see if I was right. By pure luck,"[d@ "I ought to be right ten times. But I hope to do better"rdJ "than that....."zdT:dh A,B,Cdr 0,1,3d| M(,),K(,),L(,)d exactly 1/3 of your numbers."h "It's a tie game."h "i "I guessed more than 1/3 of your numbers."1i "I win.";i li "I guessed less than 1/3 of your numbers."i "Congratulations! You beat me."ii "Do you want to d I : J : M(I,J): J: I e I : J : K(I,J): J: I6e I : J : L(I,J): J: IWeL(,): L(,): L(,)leZ: Z1: Z2teXe T ee "Ten numbers, please";e& N(try again";X$i$ (X$,)"Y" (X$,)"y"   j8: "Thanks for the game.":jB "MENU" "Do you want to .";i li "I guessed less than 1/3 of your numbers."i "Congratulations! You beat me."ii "Do you want to ),N(),N(),N(),N(),N(),N(),N(),N(),N( )e0 I  e:WN(I)fD W(W) lOb 2L((P(P)))e R(E,L)P @eMR(E,L)f M r fPPMf M Vf "COMPUTER TAKES";M;"CHIPS LEAVING";P;"... YOUR MOVE";`fBBMhf MtfM(M)f M f M f MP f MP   P TL~ P IS # ZERO HEREP  ,P IS = ZERO HERE(Q  M "I PICK UP 1 MARBLE." : "I PICK UP";M;"MARBLES.".Q*8Q4 pUQ> THIS IS WHERE I WINQH M "I PICK UP 1 MARBLE." : "I PICK UP";M;"MARBLES."QRQ\ "TOTAL = 0"QfM1M1MQp "THAT IS ALL OF THE MARBLES."Qz"R " MY TOTAL IS";M1;();", YOUR TOTAL IS";Y1;();"."(RBR (M1)M1 nR " YOU WON. DO YOU WANT TO PLAY";xR R " I WON. DO YOU WANT TO PLAY";R " AGAIN";A1$::R (A1$,)"N" RM1RY1R R RS "OK. SEE YOU LATER."%S .S$T4S.:S8@SBQSL "TOTAL=";TWSV]S`~Sj "WHAT IS YOUR FIRST MOVE";St YS~ hSS "THE NUMBER OF MARBLES YOU TAKE MUST BE A POSITIVE"S "INTEGER BETWEEN 1 AND 4."ST " WHAT IS YOUR NEXT MOVE?""T,T ^9T "MENU"UST BE A POSITIVE"S "INTEGER BETWEEN 1 AND 4."ST " WHAT IS YOUR NEXT MO50 IS WHERE I WIN.Ol Rff Ov R` OMO OMOTTMPM1M1M P ,NP I AM READY TO ENCODE THE STRAT FOR WHEN OPP TOT IS EVENbP R@ vP R) PMRPM1M1MPTTM  NNA$(N)"X"NX MN Nb "1 2 3 4 5 6 7 8 9 10"Nl Z  : A$(Z);" ";: ZOvCCOO Z  ,O A$(Z)"O" @4O ZEO C }O "VERY GOOD. YOU GUESSED IT IN ONLY";C;"GUESSES."O O "TRY HARDEHIS:"JFJP "O O O O O O O O O O"JZKd "BY TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE"DKn "LETTER ON SOME NUMBERS, ONE POSITION WILL CHANGE, ON"Kx "OTHERS, TWO WILL CHANGE. TO RESET LINE TO ALL X'S, TYPE 0"K "(ZERO) ANR NEXT TIME. IT TOOK YOU";C;"GUESSES."O "DO YOU WANT TO TRY ANOTHER PUZZLE";O X$ P (X$,)"N"  PP )P  "MENU"YOU";C;"GUESSES."O "DO YOU WANT TO TRY ANOTHER PUZZLE";O X$ P (X$,)"N"  PPD TO START OVER IN THE MIDDLE OF A GAME, TYPE "K "11 (ELEVEN)."KKKQ()L "HERE IS THE STARTING LINE OF X'S."$L,LCIL "1 2 3 4 5 6 7 8 9 10"eL "X X X X X X X X X X"kLqLL X  LA$(X)"X"L" XL, @L6 "ILLEGAL ENTRY--TRY AGAIN."L@ "INPUT THE NUMBER";LJ NLT N(N) 6 M^ N Mh N 6+Mr N ;M| MN CMMNYM A$(N)"O" gMA$(N)"O"MR(QNQN)(QN)P(N)MNRaa (): Pa !);"FOOTBALL":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b:Rb "THIS IS DARTMOUTH CHAMPIONSHIP FOOTBALL.":b "YOU WILL QUARTERBACK DARTMOUTH. CALL PLAYS AS FOLLOWS:"b "1= SIMPLE RUN; 2= TRIC(R)MN( N)M A$(N)"O" MA$(N)"O"M bMA$(N)"X"M MN N bN A$(N)"O" N$NA$(N)"O"NNRP((QNQ))(NQ)(N)\NNR(R)kN&N( N)N0 A$(N)"O" NN:A$(N)"O"ND bKY RUN; 3= SHORT PASS;"c "4= LONG PASS; 5= PUNT; 6= QUICK KICK; 7= PLACE KICK." c2c "CHOOSE YOUR OPPONENT: ";O$():Hc"O$()"DARTMOUTH"Nc,ec6 S(): S()kc@xcJ L$()cT I : L$(I): Ic^ "KICK","RECEIVE"," I (): PI  );"FLIPFLOP":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"J"J *** CREATED BY MICHAEL CASS/J A$()dJ "THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS:"jJJ( "X X X X X X X X X X"J2J< "TO T  ()L~ h: "*** END OF GAME ***":i "FINAL SCORE: ";O$();": ";S();" ";O$();": ";S()*i "MENU":i P NMi "NEXT PLAY";Ui Zji Z(Z) i (Z) i "ILLEGAL PLAY NUMBER, RETYPE";i d O$(P);" WON THE TOSS"d F(X)Pd G(Z)P(X1X)(P)(XX1)e P 0e O$();" ELECTS TO RECEIVE."6e@e Die "DO YOU ELECT TO KICK OR RECEIVE";re A$e (A$,)"K" A$"KICK" : (A$,)"R" A$"RECEIi Fi L$(Z);". ";i R()(HzF() #{)j R1()&j Z V,~,,,",",k XXF()YWk (X2)2 sk "*** FUMBLE AFTER ";}k k "*** FUMBLE."k  k SHORT PASS)Yfl (X2)2 fv Y(2())(P)(2()) g XXF()Y"g (X2)2  RdhH L$();O$();dX;L$()jhRyh\ NEW PLAYhf TThp T $hz T2 h Y( R1)l l Yl () l "INCOMPLETE. ";m  m "BATTED DOWN. ";*m ;m LONG PASSZm Y((R1))nm RL} 2m R m R@ m m "PASSER YARD ","RUN BACK FOR ","BALL ON " dh "YARD LINE"," SIMPLE RUN"," TRICKY RUN"," SHORT PASS"Ldr " LONG PASS","PUNT"," QUICK KICK "," PLACE KICK"," LOSS "d| " NO GAIN","GAIN "," TOUCHDOWN "," TOUCHBACK ","SAFETY***"d "JUNK"d P(())  (X32)( r ()L} , r  r F $ r PPs s$ G() .s. D  :s8 DDTsB "DOWN: ";D;" ";qsL (X12)F()( j sV "GOAL TO GO"s` t sj "YARDS TO GO: "; G()YY1n Fn PLACE KICKn Y(d(R)#)o R1~  o "KICK IS BLOCKED ***"2o XXF()>o PPHo Zo XXF()Yso (X2)< o "KICK IS SHORT."o (X2)2  oPPst s~ s \s BALL IN END-ZONEs Xd  s Et  t E>t EFP  , , , , , , , Kt SAFETYat S(P)S(P)nt L$()xt  t O$(P);" KICKS OFF FROM ITS 20 YARD LINE."t o vo R1 0o "KICK IS OFF TO THE SIDE."o&  p0: "*** FIELD GOAL ***":*p: S(P)S(P)4pD P KpN OPPONENT'S PLAYmpS"ENTER RETURN TO CONTINUE",Z}pX D pb () pl Zpv p ZXP<t PPt Nt OFFENSIVE TDt( L$();" *** "u2 ()L x "u< S(P)S(P)8uF "KICK IS GOOD."BuP  [uZ O$(P);" KICKS OFF"gud PPqun Dux "KICK IS OFF TO THE SIDE."u S(P)S(P)u P p p D *p  XX1 bp X bq X pq XX1 (q A(())6q ZA@q Pq D aq X- wq () q Zq  q Zq  q* X \u TOUCHBACKu L$()u PPu XP<u v DEFENSIVE TD*v L$();"FOR ";O$(P);" *** "6v PP@v ( Lv SCORERv tv "SCORE: ";S();" TO ";S()zv v v" v, PENALTYv6 P3(())v@ q4  XX1 bq> X bqH ZqR q\ Zqf rp A(())rz ZA(r ;r GAIN OR LOSSFr X3XXr XXF()Yqr (X2)2  r Y r (Y);L$();r L$((Y))r  O$(P3);" OFFSIDES -- PENALTY OF 5 YARDS."vJ vT v^ P3  wh "DO YOU ACCEPT THE PENALTY";"wr A$;w| (A$,)"N" Tw (A$,)"Y" & pw "TYPE 'YES' OR 'NO'";zw r w OPPONENT'S STRATEGY ON PENALTYw P  TACKLED. ";m Y(R1)m m" PUNT OR KICK n, Y(d(R)#)n6 D J0n@ Y(Yff&)FnJ Y;L$();" PUNT"gnT (XYF()2)2 wn^ D nh Y1(R1)nr Y1;L$();" RUN BACK"n| Y  s yardage gained."e "To punt or attempt a field goal, input 77,77 for play numbers."Le "Questions will be asked then. On 4th down, you will also be"e "asked whether you want to punt or attempt a field goal. If the"e "answer to both questxN xX XX3F()xb xl "MENU"Y ACCEPTED."x& Fx0 DDx: PP3 X xD XX3F()  Qx "PENALTY REFUSED."[x ux "PENALTY ACCEPTED."x& Fx0 DDx: PP3 X xD XX3F()ions is no, it will be assumed you want to"e "try and gain yardage.":Cf " Scores are given whenever scores are made. Scores may also be"}f "be obtained by entering 99,99 for play numbers.":f " The game is played until players terminaa ():  );"FOOTBALL":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::bdTbx A(),B(),C((),H(),T(),W(),X(),Y(),Z()lb M$(),D(),P$()b "PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED)"b:bate (Control-C).":f "Enter 'RETURN' to begin the game.";XX$:$g": "PLEASE INPUT SCORE LIMIT ON GAME";: EFg, I (: N: I ^XgJA(N)I: hfg^B(N)IvghC(I)N: Igr I : P$(I): Ig|L: Tg~: "DO YO "DO YOU WANT INSTRUCTIONS";A$b (A$,)"N" (A$,)"n" "c (A$,)"Y" (A$,)"y" dc (): "This is a football game for two teams. Players must"c "each enter a data statement (1770 for Team 1, 1780 for"c "TeamU WISH PLAYS OUTPUT ON PRINTER";A$:g (A$,)"Y" (A$,)"y" 3h "ENTER 'RETURN' WHEN PAPER POSITIONED.";XX$:Oh "TEAM";T;"PLAY CHART"kh "=================":h "NO. PLAY": "-------------":h I hh 2) which scrambles the numbers 1 through 20."d "These numbers are then assigned to twenty five plays."\d "A list of numbers and their plays is provided, with both"d "teams having the same plays.": " The more similar the plays the les "##";C(IL);: );P$(I)h Ih ( )hvLL:Thi L 5iD(): D(): M$()"--->": M$()"<---"XiH(): H(): T(): T()}iW(): W(): X()d: X()iY(): Y(): Z(): Z()di viw Y  w F  w G()D  w  x Y  x F  #x D  8x G()  Qx "PENALTY REFUSED."[x ux "PENALTY ACCEPTED."x& Fx0 DDx: PP3 X xD XX3F()   G(): GL{ n  Y n "QUARTERBACK SCRAMBLED": o "PASS COMPLETED": 5o "THE BALL WAS RUN"DoPPW(T)Yso$: "NET YARDS GAINED ON DOWN";D;"ARE ";Yo.G(): GL{ Vo8: "** LOSS OF POSSESSIO WENT OUT OF ENDZONE --AUTOMATIC TOUCHBACK--"j f k* "BALL WENT";K;"YARDS. NOW ON";P: lBk> "TEAM";T;"DO YOU WANT TO RUNBACK";: A$jkH (A$,)"Y" (A$,)"y" kM (A$,)"N" (A$,)"n" >kR W(T)PZ(T) pkN FROM TEAM";T;"TO TEAM";T(T)oL :: : TT(T): >pV Y(T)PX(T) (p` W(T)PZ(T) 8pj Y(T)PY(T)S pPptDD: D up: "CONVERSION UNSUCCESSFUL TEAM";T:TT(T)p :: pp "DOES TEAM";T;"WANT TOfPZ(T)W(T)kpD: SPku I H: "=";: I lz: "TEAM";T;"DOWN";D;"ON";Pl} D >l Y(T)(PY(T) )X(T) MlC: UlCel C l ); (Y(T)PY(T)S);"YARDS TO 1ST DOWN"l l );X( PUNT";: A$p (A$,)"N" (A$,)"n" q (A$,)"Y" (A$,)"y" Eq: "TEAM";T;"WILL PUNT": G(): GL{ 8qq :: K(()#): TT(T): q "DOES TEAM";T;"WANT TO ATTEMPT A FIELD GOAL";: A$qT)Y(T)P;"YARDS"l l: D llU(()): m "ILLEGAL PLAY NUMBER, CHECK AND"Mm "INPUT OFFENSIVE PLAY, DEFENSIVE PLAY";]m T pm P1,P2: |m P2,P1m P1M m P1 m P1  (A$,)"Y" (A$,)"y" hq (A$,)"N" (A$,)"n" r Fr: "SAFETY AGAINST TEAM";T;"**********************OH-OH"crH(T(T))H(T(T)): r"TEAM";T;"DO YOU WANT TO PUNT INSTEAD OF A KICKOFF";: A$r PZ(T)Wm P2 m P2 mP1(P1): P2(P2)&nY((A(P1)B(P2))((X(T)Y(T)P)()))9n: T Nn A(P1) Xn mn B(P2) ~n U  n "PASS INCOMPLETE TEAM";TnY: n(T): A$"YES" s(: "TOUCHDOWN BY TEAM";T;"*********************YEA TEAM"(s<Q: G(): GL} dPsPQ: "EXTRA POINT NO GOOD": nisd "EXTRA POINT GOOD"snH(T)H(T)Q: sTT(T): sK(())sR "TEAM 1 DEFENDS 0 YD GOAL -- TEAM 2 DEFENDS 100 YD GOAL."jT(())j: "THE COIN IS FLIPPED"2jPX(T)Y(T)(`j D: : "TEAM";T;"RECEIVES KICK-OFF"vj K(()()jPPY(T)Kj W(T)PZ(T) *j: "BALL  xl D(T)P);M$(T) yv "TEAM 1 [0 10 20 30 40 50 60 70 80 90"; y{ " 100] TEAM 2"&y,y9y "MENU"P);M$(T) yv "TEAM 1 [0 10 20 30 40 50 60 70 80 90"; y{ " 100] TEAM 2"&y,y9y#())t|: "KICK IS";F;"YARDS LONG"tPPW(T)F: G()u G333  u Y(T)PX(T) ^u "FIELD GOAL GOOD FOR TEAM";T;"*********************YEA"muQ: nu "BALL WENT WIDE"u "FIELD GOAL UNSUCCESFUL TEAM";T;"---aa F() a (););"FUR TRADER":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"&b: : 1b C =b IXeb:: "DO YOU WISH TO TRADE FURS"; pb z b (B$,)"Y" db (B$,)"Y" db "MENU"--------------TOO BAD"u :: Y(T)PX(T) uTT(T): v: "BALL NOW ON";P+vTT(T): l: >dv 17,8,4,14,19,3,10,1,7,11,15,9,5,20,13,18,16,2,12,6v 20,2,17,5,8,18,12,11,1,4,19,14,10,7,9,15,6,13,16,3v "PITCHOUT",bdbe "YOU HAVE ";: "$$##.##";I;: " SAVINGS"cf "AND 190 FURS TO BEGIN THE EXPEDITION."Ec E1((~()33s) ) vc B1((()) ) |c,c- "YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOL"TRIPLE REVERSE","DRAW","QB SNEAK","END AROUND"w "DOUBLE REVERSE","LEFT SWEEP","RIGHT SWEEP","OFF TACKLE"Pw "WISHBONE OPTION","FLARE PASS","SCREEN PASS"w "ROLL OUT OPTION","RIGHT CURL","LEFT CURL","WISHBONE OPTION"w "SIDELINE PASS","HALFLOWING"c. "KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX."c6  c; dJ J  dL B$dM IdO "HOW MANY ";B$;" PELTS DO YOU HAVE"; UdR F(J) udT F()F()F()F()F() dV F() LdX F()  d\ J d^ -BACK OPTION","RAZZLE-DAZZLE","BOMB!!!!"w P1c  x: "TEAM 1 SCORE IS";H()*x "TEAM 2 SCORE IS";H(): =x! H(T)E &mx# "TEAM";T;"WINS*******************": x& P1c x+x:xD X H: "+";: X: xNL dd: "YOU MAY NOT HAVE THAT MANY FURS." e "DO NOT TRY TO CHEAT. I CAN ADD." .e "YOU MUST START AGAIN."9e  ?eme "DO YOU WANT TO TRADE FURS NEXT YEAR"; xe  eC: "YOU ARE THE LEADER OF A FRENCH FUR TRAD(((X(T)Y(T)P)())K)sPPW(T)Rt: "RUNBACK TEAM";T;R;"YARDS"tG(): GL{ 86t Y(T)PX(T) (Ot W(T)PZ(T) Yt pth: "TEAM";T;"WILL ATTEMPT A FIELD GOAL"tmG(): GL{ 8trF(  R THAN" jq "THE ROUTE TO NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE"@kr "FOR YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVERAGE."Kku x dkx (B$,)"Y" Vnky k{ "YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT"k| "FORS WILL DEPEND" fH "ON THE FORT THAT YOU CHOOSE." fK gL: "YOU MAY TRADE YOUR FURS AT FORT 1, FORT 2,"XgN "OR FORT 3. FORT 1 IS FORT HOCHELAGA (MONTREAL)"gO "AND IS UNDER THE PROTECTION OF THE FRENCH ARMY." gP "FORT 2 IS FORT STADACT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE" l} "FOR YOUR FURS. THE COST OF YOUR SUPPLIES"Fl~ "WILL BE LOWER THAN AT ALL THE OTHER FORTS." Ql x jl (B$,)"Y" Vtl l IIll M1((L~()333) ONA (QUEBEC) AND IS UNDER THE" hQ "PROTECTION OF THE FRENCH ARMY. HOWEVER, YOU MUST">hR "MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS." |hT "FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL." hU "YOU MUST CROSS THROUGH IROQUOIS LAND."hV) l E1((L~()ff&) ) m B1((L~()@) ) Km D1((L~()L) ) |m "SUPPLIES AT FORT HOCHELAGA COST $150.00."m "YOUR TRAVEL EXPENSES TO HOCHELAGA WERE $10.: "WHICH FORT WOULD YOU LIKE TO TRADE AT";hW B:hX B ` iY B o i[ B { #i\ V ci` "YOU HAVE CHOSEN THE EASIEST ROUTE. HOWEVER, THE FORT" ia "IS FAR FROM ANY SEAPORT. THE VALUE" ib "YOU RECEIVE FOR YOUR F00."m  m IImn M1((()Y) ) 3n E1((~()L) ) dn B1((L~()fff) ) {n P( ())n P n P n P URS WILL BE LOW AND THE COST" jc "OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK."je x 3ji (B$,)"Y" V=jj {jo "YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARSION," jp "HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIEn P n F()o "YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS" >o "THE PORTAGE. YOU HAD TO LEAVE THE PELTS, BUT FOUND" eo "THEM STOLEN WHEN YOU RETURNED."po  {o  o "YOU ARRIVED SAFELY AT FORT STADACONA." oING EXPEDITION IN "fD "1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET" DfE "SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE"fF "FORTS AT WHICH YOU MAY TRADE. THE COST OF SUPPLIES"fG "AND THE AMOUNT YOU RECEIVE FOR YOUR FUR   "YOUR BEAVER SOLD FOR ";: "$$##.##";B1F();: ", ";/u "YOUR FOX SOLD FOR ";: "$$##.##";D1F();: ","su "YOUR ERMINE SOLD FOR ";: "$$##.##";E1F();: ", ";u "YOUR MINK SOLD FOR ";: "$$##.##";M1F();: T FORT STADACONA COST $125.00."q "YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00." q q IIiqPq M1((~()ff) ) q D1((() ) ) q P( ())q P q "."u IM1F()B1F()E1F()D1F()Iu7v "YOU NOW HAVE ";: "$$##.##";I;: " INCLUDING YOUR PREVIOUS SAVINGS."Av Pv J  ^v F(J) gv J nv v "MINK","BEAVER","ERMINE","FOX"v "MENU"PREVIOUS S P  q P q P r "YOU WERE ATTACKED BY A PARTY OF IROQUOIS."Ar "ALL PEOPLE IN YOUR TRADING GROUP WERE" gr "KILLED. THIS ENDS THE GAME." qr r  "YOU WERE LUCKY. YOU ARRIVED SAFELY"r  "AT FORT NEW YORK."r   r  s "YOU NARROWLY ESCAPED AN IROQUOIS RAIDING PARTY."=s "HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND."Hs ( Ss  as B1B1os M1M1s "YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP."s "YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS."s (s   't( "SUPPLIES AT NEW YORK COST $80.00." ]t) "YOUR TRAVEL EXPENSES TO NEW YORK WERE $25.00."dt* tx: "DO YOU WANT TO TRADE AT ANOTHER FORT";tz B$:t| tt  o  o "YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU" p "LOST ALL YOUR FURS." p  +p  9p F() ip "YOUR FOX PELTS WERE NOT CURED PROPERLY."p "NO ONE WILL BUY THEM."p  p  p "SUPPLIES A  LL IS";(O);"YARDS OFF LINE... IN ";f| f lf L(X) g L(X) !g L(X) 4g L(X) Gg L(X) 0Zg L(X) Dqg "OUT OF BOUNDS."{g g "PGA HANDICAPS RANGE FROM 0 TO 30."g PRRISTOWN. THE"b "COMMENTATOR WILL EXPLAIN THE GAME AS YOU PLAY.":,c "ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE..."=c :: L( )Gc G1PcG2YcG3ac(Amc2NLvc<S2~cFFcP "WHAT IS YOUR HANDICAP";cZ H:cd Hg "FAIRWAY."g g "ROUGH."g g "TREES."g h "ADJACENT FAIRWAY." h& .h0 "TRAP."8h: GhD "WATER."QhN ahl A uhm: "SELECTION OF CLUBS": "=================="in "YARDAGE DESIRED  cn H cx "DIFFICULTIES AT GOLF INCLUDE:"0d "0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTING"\d "WHICH ONE (ONLY ONE) IS YOUR WORST";fd T:vd T xdS1ddL()dJdQdS2S2d SUGGESTED CLUBS": "--------------- ---------------"Lio "200 TO 280 YARDS 1 TO 4"ip "100 TO 200 YARDS 19 TO 13"iq " 0 TO 100 YARDS Kd F 6d" "YOUR SCORE ON HOLE";F;"WAS";S1;();"."e# e$ S1P )$e% S1P +7e& S1P -Je' S1P /Te( 6qe) "KEEP YOUR HEAD DOWN."{e* 6e+ "A PAR. NICE GOING."e, 6e- "A BIRD 29 TO 23":irAiu "WHAT CLUB DO YOU CHOOSE";iv Cix j{ C j} C ,j C @j L() Qj C bj C lj xjS1S1j "THAT CLUB IS NOT IN THE BAG."jj lIE."e. 6e/ P 2e0 "A GREAT BIG EAGLE."e1 6 f2 "A HOLE IN ONE."f6 F #f;S1)f<:f@ S1 6MfJ L() ~UfTXhf^ L() fh "SHOT WENT";D1;"YARDS. IT'S";D2;"YARDS FROM THE CUP."fj "BAj C jCCj jS1S1jWj C k (F)F k C )k Oaa ();");"GOLF":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::Jb "WELCOME TO THE CREATIVE COMPUTING COUNTRY CLUB,"b "AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT LOCATED A SHORT"b "DISTANCE FROM SCENIC DOWNTOWN MO   SHOT WENT OUT OF BOUNDS."p p T (qD2(((P((H))()))q d$q( ()N P2q2NNL~Vq< "SHOT DUBBED, STILL IN TRAP."`qF llqPNLvqZ qd "ON GREEN,";D2;"FEET FROM THE PIN."qe "CHOOSE D2 l D2 Ll D2 `lL()l 1m S2Q( (F))(F)(H((H)Y)) ;m EmQQ`m S1(S1) jm ^m "NOW GAUGE YOUR DISTANCE BY A PERCENTAGE (1 TO 100)"m "OFYOUR PUTT POTENCY (1 TO 13):";qx IqS1S1r S1P(Ht}) r K rKK*r T HrD2D2I(())@Zr D2 kr D2 r "YOU HOLED IT."rrFFr r "PUTT SHORT." A FULL SWING";m W: WWdmm W m L() n C nCC n .n D_ ^qn "BALL HIT TREE - BOUNCED INTO ROUGH";DK;"YARDS FROM HOLE."|nDDKn ln O ~n J ~n TrD2(D2)r drD2D2I(())r s "PASSED BY CUP." s"D2D2s, +s6 D,P,L(),L()1s;s@ "YOU ARE AT THE TEE OF HOLE NUMBER";F;"-- PAR";P;(); ",";D;"YARDS."sEG3G3PsT "ON YOUR RIGHT IS ";s^ .n S9(S2)n  (S9)S9 3n "YOU HOOKED- ";oL()L()o O- Do$ @.o.S9(S2)Do/ (S9)S9 Zo3 "YOU SLICED- ";ho8L()L()roB oD "BADLY."oF @oLL()oV @o`L()ojXsh sr "ON YOUR LEFT IS ";s|Xs s ls&t 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2Tt 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4t 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2t 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,D2(D2)ot do~L()o @oD1(YD1)o > p L() 2p "YOUR SHOT WENT INTO THE WATER.">pS1S1|p "PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION."pJJpL()pDBp lp "YOUR2t 180,3,6,2,550,5,6,6ttG2G2S1'u "TOTAL PAR FOR";F;"HOLES IS";G3;(); ". YOUR TOTAL IS";G2;Gu G3G2 "( EVEN PAR )."ru G3G2 "(";(G3G2);"UNDER PAR )."u G3G2 "(";(G2G3);"OVER PAR )."u G1F (()L)(H)((D1B`ex))kHD2((O(DD1)))lR DD1 fl\ z)l^ "YOU DUBBED IT."3l`D1#=lb >Nlc D Xld jlf D2 zlp "TOO MUCH CLUB. YOU'RE PAST THE HOLE."lzBDlDD2l   Y. DURING YOUR PLAY, YOU MAY COVER ONE GRID"!c( "INTERSECTION WITH A MARKER. THE OBJECT OF THE GAME IS TO GET"ec2 "5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR"c< "DIAGONALLY. ON THE BOARD DIAGRAM, YOUR MOVES ARE MARKED"cF "WITH A '1' AND THE COMPUTER MOVES WITH A '2'."dP: "THE COMPUTER DOES NOT KEEP TRACK OF WHO HAS WON."NdZ "TO END THE GAME, TYPE -1,-1 FOR YOUR MOVE.": dn "WHAT IS YOUR BOARD SIZE (MIN 7/ MAX 19)";: Nds N udt xdu N dx "I SAID, THE MINIMUM IS 7, THE MAXIMUM IS 19.": ne I N: J N: A(I,J): J: IJe,: "WE ALTERNATE MOVES. YOU GO FIRST...": je6 "YOUR PLAY (I,J)";: I,Jpe;e@ I eJXI: YJ: : L eT "ILLEGAL MOVE. TRY AGAIN...": 6e A(I,J) f "SQUARE OCCUPIED. TRY AGAIN...": 6fA(I,J)Nf *** COMPUTER TRIES AN INTELLIGENT MOVE ***|f E : F : EFEF NfXIF: YJF: f: L NfD A(X,aa (): Pa !);"GOMOKO":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::.b A(,)^b "WELCOME TO THE ORIENTAL GAME OF GOMOKO."b: "THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE"b "THAT YOU SPECIFY) fN F: EfX *** COMPUTER TRIES A RANDOM MOVE ****gbX(N()): Y(N()): : L b@g A(X,Y) b[gA(X,Y): *: 6sgXIE: YJF: g L bg g  *** PRINT THE BOARD ***g*u $u "MENU" G3G2 "(";(G3G2);"UNDER PAR )."u G3G2 "(";(G2G3);"OVER PAR )."u G1F 3G2 "( EVEN PAR )."ru G3G2 "(";(G3G2);"UNDER PAR )."u G3G2 "(";(G2G3);"OVER PAR )."u G1F   SWER."d* d2 "THAT'S IT! YOU GOT IT IN";G;"TRIES."d4 GL1 : e6 GL1 <Ne8 "YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY";L1;();"."Xe9 Age: "VERY ";ue< "GOOD."eA FeB  eF H eGeH HeIecIT IN ONLY";L1;();"."Xe9 Age: "VERY ";ue< "GOOD."eA FeB  eF H eGeH HeIecTO GET IT IN ONLY";L1;();"."Xe9 Age: "VERY ";ue< "GOOD."eA FeB  eF H eGeH HeIecaa ();!);"GUESS": b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::Fb "THIS IS A NUMBER GUESSING GAME. I'LL THINK"|b "OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT."b "THEN YOU HAVE TO GUESS WHAT IT IS."b: "ENTER A NEGATIVE NUMBER TO QUIT.":b "WHAT LIMIT DO YOU WANT";b Lc c L1((L)())Vc "I'M THINKING OF A NUMBER BETWEEN 1 AND";L;();"."^c Gc "NOW YOU TRY TO GUESS WHAT IT IS."cM(L())c Nc N  c F3d: "THANKS FOR THE GAME. DO YOU WANT TO PLAY AGAIN";ANS$: (ANS$,)"Y"  : : "GOODBYE.":: "MENU"Cd NM 2MdGG]d NM (d "TOO LOW. TRY A BIGGER ANSWER."d! d( "TOO HIGH. TRY A SMALLER AN I N: J N: A(I,J);gH J: : I: : gL: X  h XN h Y *h YN 0h;hL: \h: "THANKS FOR THE GAME!!"sh "PLAY AGAIN ";Q$h (Q$,)"Y" nh "MENU" YN 0h   "f f : : "TOTAL ROUNDS EXPENDED WERE:";S1f S1 g "NICE SHOOTING !!" : [g "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!"}g : "TRY AGAIN (Y OR N)";Z$g (Z$,)"Y" g: "OK. RETURN TO E A PROJECTILE ON TARGET. A HIT WITHIN 100 YARDS" c "OF THE TARGET WILL DESTROY IT." : &cR(@() N)nc "MAXIMUM RANGE OF YOUR GUN IS";: "###,###";R;: " YARDS."vcZ|ccS1cT(R(L}L()))cSBASE CAMP.":g "MENU"ER TRAINING!"}g : "TRY AGAIN (Y OR N)";Z$g (Z$,)"Y" g: "OK. RETURN TO O BACK TO FORT SILL FOR REFRESHER TRAINING!"}g : "TRY AGAIN (Y OR N)";Z$g (Z$,)"Y" g: "OK. RETURN TO c rc "MINIMUM ELEVATION IS ONE DEGREE."c d "MAXIMUM ELEVATION IS 89 DEGREES."d Vd "OVER TARGET BY ";: "##,###";(E);: " YARDS."`d d" "SHORT OF TARGET BY ";: "##,###";(E);: " YARDS."d, d@ "*** TARGET DESTROYED *** ";S;"ROUNDS OF AMMUNITION EXPENDED."dES1S1S eJ Z eTZZeYYe^ "THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY..."ceh er "DISTANCE TO THE TARGET IS ";: "##,###";T;: " YARDS."e|eaa (): Pa  );"HAMURABI":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"!b::Tb( "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA"}b2 "FOR A TEN-YEAR TERM OF OFFICE.":b<D1: P1bFZ: P_:S : H : EHSe "ELEVATION";Be BY e B eSSe S 3f: "BOOM !!!! YOU HAVE JUST BEEN DESTROYED ";]f "BY THE ENEMY." : : : : fB2B33e : IR(B2) : XTI : E(X)f (E)d @f Ed bPY: AHY: I: QbZDcd:: "HAMURABI: I BEG TO REPORT TO YOU,": ZZ"cn "IN YEAR";Z;();",";co D " NO PEOPLE STARVED AND"; : D "1 PERSON STARVED AND"; : D;"PEOPLE STARVED AND";dp I "NONE CAME aa (): Pa );"GUNNER":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::]b "YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO A GUN"b "CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE"b "WILL PLAC   h fh hSSQ: C: i "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED";%i D: D v5i D hi *** TRYING TO PLANT MORE ACRES THAN YOU OWN?yi DA &i i i *** ENOUGH GRAIN FOR SEED? A "###";A; : A A' "#,###";A; : A' "##,###";A;e " ACRES."e Y "THE HARVEST DID NOT YIELD ANY GRAIN." : Y "YOU HARVESTED 1 BUSHEL PER ACRE." : "YOU HARVESTED";Y;"BUSHELS PEi& (D)S Ni0 fi: jD *** ENOUGH PEOPLE TO TEND THE CROPS?jN D P l[jX "BUT YOU HAVE ONLY";P;"PEOPLE TO TEND THE FIELDS! NOW THEN,"ejb ujlSS(D)jv j *** A BOUNTIFUL HARVEST!jYC: HDY: R ACRE." f E "THE RATS DID NOT EAT ANY GRAIN." : "THE RATS ATE";E;"BUSHELS."f "YOU NOW HAVE ";: S "###";S; : S S' "#,###";S; : S' "##,###";S;f " BUSHELS IN STORE.":f Z Ej j (C)C j *** RATS ARE RUNNING WILD!!kE(SC)kSSEHk Jl*P1((Z)P1DdP)Zbl4PC: D1D1D: dl>: "YOU STARVED";D;"PEOPLE IN ONE YEAR!!!"lH "DUE TO THIS EXTREME DO YOU WISH TO SELL";gJ Q: Q gT QA rg^ gh @hrAAQ: SSYQ: Ch|Uh "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE";]h Qmh Q h *** TRYING TO USE MORE GRAIN THAN IS IN SILOS?h QS MISMANAGEMENT YOU HAVE NOT ONLY" mR "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE"@m\ "ALSO BEEN DECLARED NATIONAL FINK!!!!": omf "HAMURABI: THINK AGAIN. YOU HAVE ONLY"mp S;"BUSHELS OF GRAIN. NOW THEN,"mzm "HAMURABI: TO THE CITY." : I "1 CAME TO THE CITY." : I;"CAME TO THE CITY." dxPPId Q +dP(P)dd "A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED."d "SO THE POPULATION IS NOW";P;();"."e "THE CITY NOW OWNS ";:  TION STARVED PER YEAR ON THE AVERAGE, I.E. A TOTAL OF"o D1;"PEOPLE DIED!!": LAPAo "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH"`o L;"ACRES PER PERSON.": ro P1! Ho L Ho P1 Lo L Lo$ P1 jo. L jp8 "A FANTASTIC PERFORMANCE!!! CHARLEMANGE, DISRAELI, AND"BpB "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!": pL "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV."pV "THE PEOPLE (REMIANING) FIND YOU AN UNPLEASANT RULER, AND,"p` "FRANKLY, HATE YOUR GUTS!!": ,qj "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT"nqt "REALLY WASN'T TOO BAD AT ALL. ";(PL());"PEOPLE"q~ "WOULD DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR"q "TRIVIAL PROBLEMS."q: N  : ();: N r "SO LONG FOR NOW.": r "MENU"ED BUT WE ALL HAVEt "REALLY WASN'T TOO BAD AT ALL. ";(PL());"PEOPLE"q~ "WOULD DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVETHINK AGAIN. YOU OWN ONLY";A;"ACRES. NOW THEN,"mmC(())n1n: "HAMURABI: I CANNOT DO WHAT YOU WISH."[n "GET YOURSELF ANOTHER STEWARD!!!!!"en n "IN YOUR 10-YEAR TERM OF OFFICE,";P1;"PERCENT OF THE"n "POPULA   G$N$(I) "YOU GUESSED THAT LETTER BEFORE!": e I: "PROGRAM ERROR. RUN AGAIN.": )eN$(I)G$: T1T1Ie I L: L$(I)G$ ^e I: R "he ,eD$(I)G$: RR: e"MM: e, I L: D$(I)"-" @e6 I: e@: I L: D$(I);: I: : fJ "WHAT IS YOUR GUESS FOR THE WORD";B$'fT A$B$ hUf^ "WRONG. TRY ANOTHER LETTER.": : fh "RIGHT!! IT TOOK YOU";T1;"GUESSES!"fr "WANT ANOTHER WORD";W$: (W$,)"Y" aa (): Pa  );"HANGMAN":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" b::Kb P$( , ),L$(),D$(),N$(),U(2)Yb(C: N2}b2 I : D$(I)"-": I: Mb< I : N$(I)"": IbF I  : J 2f|: "IT'S BEEN FUN! BYE FOR NOW.": g "YOU FOUND THE WORD!": r8g: : "SORRY, THAT LETTER ISN'T IN THE WORD."jg M ,,,,,,,,,g "FIRST, WE DRAW A HEAD": g "NOW WE DRAW A BODY.":   : P$(I,J)" ": J: IbP I  : P$(I,)"X": IcZ I : P$(,I)"X": : P$(,)"X")c_ CN dLca "YOU DID ALL THE WORDS!!": `cdQ(N())scn U(Q) dcsU(Q): CC: : T1c I Q: A$: IcLg "NEXT WE DRAW AN ARM.": h "THIS TIME IT'S THE OTHER ARM.": 1h "NOW, LET'S DRAW THE RIGHT LEG.": `h "THIS TIME WE DRAW THE LEFT LEG.": h "NOW WE PUT UP A HAND.": h "NEXT THE OTHER HAND.": h(A$): I (A$): L$(I)(A$,I,): Id "HERE ARE THE LETTERS YOU USED:"/d I : N$(I);: N$(I)"" ?d ",";: Ihd: : I L: D$(I);: I: : d "WHAT IS YOUR GUESS";G$: Rd I : N$(I)"" d "NOW WE DRAW ONE FOOT": h "HERE'S THE OTHER FOOT -- YOU'RE HUNG!!".i M ,,,,,,,&,0,:riP$(,)"-": P$(,)"-": P$(,)"-": P$(,)"(": P$(,)"."iP$(,)".":P$(,)")":P$(,)"-":P$(,)"-":P$(,)  P$(,)"/": Dj0P$( , )"\": P$( , )"-": D k:P$( ,)"-": P$( ,)"/"5kD I  : J  : P$(I,J);: JUkN: I: : : M kX "SORRY, YOU LOSE. THE WORD WAS ";A$kb "YOU MISSED THAT ONE. DO YOU ";: rkl "TYPE YES OR NO";Y$: (Y$,)"Y" 2l "GUM","SIN","FOR","CRY","LUG","BYE","FLY"El "UGLY","EACH","FROM","WORK","TALK","WITH","SELF"l "PIZZA","THING","FEIGN","FIEND","ELBOW","FAULT","DIRTY"l "BUDGET","SPIRIT","QUAINT","MAIDEN","ESCORT","PICKAX"m "EXAMPLE","TENSION","QUININE","KIDNEY","REPLICA","SLEEPER"=m "TRIANGLE","KANGAROO","MAHOGANY","SERGEANT","SEQUENCE"m "MOUSTACHE","DANGEROUS","SCIENTIST","DIFFERENT","QUIESCENT"m "MAGISTRATE","ERRONEOUSLY","LOUDSPEAKER",I (): PI !);"HELLO":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"J: : 1J "HELLO. MY NAME IS CREATIVE COMPUTER."VJ: : "WHAT'S YOUR NAME";N$: J "HI THERE, ";N$;", ARE YOU ENJOYING YOURSELF HERE";J( B"PHYTOTOXIC"m  "MATRIMONIAL","PARASYMPATHOMIMETIC","THIGMOTROPISM"n "BYE NOW"n "MENU"ONEOUSLY","LOUDSPEAKER",NT","SEQUENCE"m "MOUSTACHE","DANGEROUS","SCIENTIST","DIFFERENT","QUIESCENT"m "MAGISTRATE","ERRONEOUSLY","LOUDSPEAKER",$: J2 B$"YES" FJ7 B$"NO" PJ< N$;", I DON'T UNDERSTAND YOUR ANSWER OF '";B$;"'."@KA "PLEASE ANSWER 'YES' OR 'NO'. DO YOU LIKE IT HERE";: (jKF "I'M GLAD TO HEAR THAT, ";N$;".": tKK dKP "OH, I'M SORRY TO HEAR THAT, "-":Di I : P$(I,)"X": I: Dj I : P$(I,I)"\": I: DGjP$(, )"/": P$(, )"/": P$(,)"/": P$(,)"/": DmjP$( ,)"/": P$( ,)"/": DjP$( ,)"\": P$( ,)"\": DjP$(, )"\": Dj&  ! I SHOULD HAVE SUCH PROBLEMS!"P "IF IT BOTHERS YOU, ";N$;", TAKE A COLD SHOWER."P 5Q "WHY ARE YOU HERE IN SUFFERN, ";N$;"? YOU SHOULD BE"vQ "IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME"Q "REAL ACTION."QQ L C$"SEX" L C$"HEALTH" L C$"MONEY" L C$"JOB" ,M "OH, ";N$;", YOUR ANSWER OF ";C$;" IS GREEK TO ME."6M pM "I CAN SYMPATHIZE WITH YOU ";N$;". I HAVE TO WORK"M "VERY LONG HOURS FOR NO PAY -- AN"ANY MORE PROBLEMS YOU WANT SOLVED, ";N$;Q E$: Q E$"YES" Q E$"NO" ,*R "JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";N$;"."4R aR "WHAT KIND (SEX, MONEY, HEALTH, JOB)";kR }qR,R. "THAT WILL BE $5.00 FOR THE ADVID SOME OF MY BOSSES"M "REALLY BEAT ON MY KEYBOARD. MY ADVICE TO YOU, ";N$;","(N "IS TO OPEN A RETAIL COMPUTER STORE. IT'S GREAT FUN."2N lN "SORRY, ";N$;", I'M BROKE TOO. WHY DON'T YOU SELL"N "ENCYCLOPEADIAS OR MARRY SOMEONE RICHCE, ";N$;"."R1 "PLEASE LEAVE THE MONEY ON THE TERMINAL."R3 I : IR6: : S; "DID YOU LEAVE THE MONEY";"S@ G$: 7SE G$"YES" ^KSJ G$"NO" rSO "YOUR ANSWER OF '";G$;"' CONFUSES ME, ";N$;"."ST "PLEASE RESPOND W OR STOP EATING"N "SO YOU WON'T NEED SO MUCH MONEY?"N N "MY ADVICE TO YOU ";N$;" IS:" O " 1. TAKE TWO ASPRIN"bO " 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)"O " 3. GO TO BED (ALONE)"O O "IITH 'YES' OR 'NO'.": ;S^ "HEY, ";N$;"??? YOU LEFT NO MONEY AT ALL!"Tc "YOU ARE CHEATING ME OUT OF MY HARD-EARNED LIVING."CTh: "WHAT A RIP OFF, ";N$;"!!!":MTm Tr "THAT'S HONEST, ";N$;", BUT HOW DO YOU EXPECT"Tw "ME TO GO ON WIS YOUR PROBLEM TOO MUCH OR TOO LITTLE";D$: O D$"TOO MUCH" O D$"TOO LITTLE" 8P "DON'T GET ALL SHOOK, ";N$;", JUST ANSWER THE QUESTION"wP "WITH 'TOO MUCH' OR 'TOO LITTLE'. WHICH IS IT";D$: P "YOU CALL THAT A PROBLEM?!TH MY PSYCHOLOGY STUDIES IF MY PATIENTS"T| "DON'T PAY THEIR BILLS?"U: "TAKE A WALK, ";N$;"."::: ;U "NICE MEETING YOU, ";N$;", HAVE A NICE DAY."AUNU "MENU"HEIR BILLS?"U: "TAKE A WALK, ";N$;"."::: ;U "NICE MEE";N$;". MAYBE WE CAN"KU "BRIGHTEN UP YOUR VISIT A BIT."KdLi "SAY, ";N$;", I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT"TLn "THOSE DEALING WITH GREECE. WHAT KIND OF PROBLEMS DO"Lx "YOU HAVE (ANSWER SEX, HEALTH, MONEY, OR JOB)";L} C$L~   RANDOM NUMBER BETWEEN 1 AND 100 TO START THE GAME ";J Z:J X(())J T TK TZ /K:"INPUT THE AMOUNT OF YOUR WAGER ";CK F: F UIKoK "I WILL NOW THROW THE DICE: ":K( E(())K) S(())K*XESK2 X  K7 X K< X (K> X KA X (LF X LP X %LZ X 5L} X FL X  VL X fL X xL X  L X L X "- NATURAL....A WINNER!!!!"L: X"PAYS EVEN MONEY, YOU WIN"F"DOLLARS."L M X"- SNAKE EYES....YOU LOSE."'M: "YOU LOSE"F "DOLLARS."3M FF=M gM "##";X;: " - CRAPS...YOU LOSE."M: "YOU LOSE"F"DOLLARS."M FFM R RFM @M X "IS THE POINT. I WILL ROLL AGAIN:":M H(())M Q(())NOHQN O (N O "8N O HN OX 6}N "##";O;: " - NO POINT. I WILL ROLL AGAIN:"N N" O "- CRAPSI (): PI !);"CRAPS":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"J :: J RXJ"2,3,12 ARE LOSERS; 4,5,6,8,9,10 ARE POINTS; 7,11 ARE NATURAL WINNERS."J T:: "ENTER A NEGATIVE BET TO QUIT."J: "ENTER A. YOU LOSE."N#: "YOU LOSE"F"DOLLARS."N$FFN% N, @ O6 X"- A WINNER.........CONGRATS!!!!!!!!"NO7: X "AT 2 TO 1 ODDS PAYS YOU...LET ME SEE..."2F"DOLLARS."ZO8 FFdO9 O@:: PRINT "DO YOU WANT TO CONTINUE ";OJ:   IF LEFT$(M$,1)="Y" GOTO 27PUR^PVRaPWRcQ^:"TOO BAD, YOU ARE IN THE HOLE. COME AGAIN.":Q_hXQa:"CONGRATULATIONS---YOU CAME OUT A WINNER. COME AGAIN!":aQbhQc:"CONGRATULATIONS---YOU CAME OUT EVEN, NOT BAD FOR AN AMATEUR!": Qh "MENU"A WINNER. COME AGAIN!":aQbhQc:"CONGRATULATIONS---YOU CAME OUT EVEN, NOT BAD FXQa:"CONGRATULATIONS---YOU CAME OUT A WINNER. COME AGAIN!":aQbhQc:"CONGRATULATIONS---YOU CAME OUT EVEN, NOT BAD F INPUT M$OK R NOL R POM R R PN ();" YOU ARE NOW BEHIND $";R;();". ";()PO TQPP ();" YOU ARE NOW AHEAD $";R;();". ";()[PQ TPR ();" YOU ARE NOW EVEN.";" ";()PT ::  NTT(,): 0N^ *** INPUT MOVE AND CHECK ON LEGALITYNh W !Nr M%O| 13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41[O 42,43,44,47,48,49,50,51,52,53,58,59,60,67,68,69lOB(M): WyOB())O "MOVE WHICH PIECE";ZOCTLY POSITIONED. THEN ENTER 'RETURN': ";: XX$J( B(F),T(,)J-:: "--- Printing ---"::K2 "HERE IS THE BOARD:":8K< " ! ! !"YKF " 13 14 15": wKP " ! ! !"KZ " 22 23 24":  B(Z) O "ILLEGAL MOVE, TRY AGAIN...": O "TO WHERE";PO B(P)  P B(P) P ZP >P ((ZP))((ZP)) HP pP ((ZP))((ZP)) zP P 0P P& Kd "! ! ! ! ! ! !"Kn "29 30 31 32 33 34 35": Lx "! ! ! ! ! ! !"@L "38 39 40 41 42 43 44": hL "! ! ! ! ! ! !"L "47 48 49 50 51 52 53": LP0 *** PRINT BOARDP: X PD Y PN (X)(X)(Y)(Y) lQX (X)(X)(X) 0Qb (Y)(Y)(Y) 6Ql@Qv VQ T(X,Y) gQ Y);"!";qQ Q Y);"O";QQ YQ " ! ! !"L " 58 59 60": L " ! ! !"M " 67 68 69": M ( )cM "TO SAVE TYPING TIME, A COMPRESSED VERSION OF THE GAME BOARD"M "WILL BE USED DURING PLAY. REFER TO THE ABOVEQ XQQ *** UPDATE BOARDQC: X Q Y Q CZ R CP 4R  T(X,Y) &RT(X,Y)@R T(X,Y): B(C)JR* ^R4 CP \uR> T(X,Y) RHT(X,Y): T(X,Y): B(C) ONE FOR PEG"M "NUMBERS. OK, LET'S BEGIN."M *** SET UP BOARDM R M C N (R)(R)(R) ,;N (C)(C)(C) ,INT(R,C)SN" @yN, (R)(C)(R)(C) N6T(R,C)N@ CNJ RRR R\ CP Rf T(X,Y) RpT(X,Y): T(X,Y): B(C)Rz S CP *S T(X,Y) PST(X,Y): T(X,Y): B(C)eSB(Z): B(P)yST(X,Y): SCCS YS XSI (): P: !);"HI-Q":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"I:BJ "HI-Q IS A PUZZLE GAME PLAYED ON A NUMBERED BOARD. FOR A PRINTED"J "COPY OF THE GAME BOARD, MAKE SURE THE PRINTER IS ON AND PAPER IS"J "CORRE  RTTTT(Y,X)T YT T T T(R,X) 2T XT CT R U *** GAME IS OVER#U "THE GAME IS OVER."IU "YOU HAD";F;"PIECES REMAINING."ZU F  U "BRAVO! YOU MADE A PERFECT SCORE!"U "SAVE THIS PAaa (): Pa !);"HOCKEY":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::Ub ROBERT PUOPOLO ALG. 1 140 MCCOWAN 6/7/73 HOCKEY_b Xib(::b2 "WOULD YOU LIKE THE INSTRUCTIONS";: C$b7b< (C$,)"NPER AS A RECORD OF YOUR ACCOMPLISHMENT!"U : "PLAY AGAIN (YES OR NO)";A$U (A$,)"N" < V: V(V26V<: "SO LONG FOR NOW.": CVF "MENU" "PLAY AGAIN (YES OR NO)";A$U (A$,)"N" < V: V(V2" ZbA (C$,)"Y" PbF "ANSWER YES OR NO!!": 2 bP *cZ A$(),B$(),H(),T(),T1(),T2(),T3()Vcd "ENTER THE TWO TEAMS";: A$(),B$() \cicn "ENTER THE NUMBER OF MINUTES IN A GAME";: T6cscx T6 n: c "WOULD THE " A$() " COACH ENTER HIS TEAM:" cd I : "PLAYER"I;();: A$(I): I: Bd "WOULD THE " B$() " COACH DO THE SAME:"Hdxd T : "PLAYER"T;();: B$(T): T: d "INPUT THE REFEREE FOR THIS GAME";: R$ d:  );A$() " STARTING LINEUP" d T : A$(T): T e:  );B$()" STARTING LINEUP",e T : B$(T): T:_e "WE'RE READY FOR TONIGHTS OPENING FACE-OFF."e R$ " WILL DROP THE PUCK BETWEEN " A$() " AND " B$();"."e L T6:S*** CHECK IF GAME IS OVERSFS R S C S T(R,C) SFFT AR RT$T(T. BC C7T8TTT(A,B)?TB BQTL T `gTV T(A,C) 2oT` ATj XC CTtTT~ YR !  IVES AND GOES WITH " A$(H(J));"."jb "PRETTY PASSING!"kl A$(H(J)) " DROPS IT TO " A$(H(J));"."FkvGH(J):G1J(J):G2H(J):Z1: \k P ,,k B$(H(J)) " HITS " B$(H(J)) " FLYING DOWN THE LEFT SIDE." kGH(J):Gf@H(J)((X)) fJ J: H(J)H(J) 6fK P ^gO H(J)H(J) 6+gT H(J)H(J) 6;g^ P hEgc `gh "SHOT";S: S hpgm S hgr C |,g| A$(H(J));:GH(J):G1:G2 g 1H(J):G2:Z1: k "IT'S A ' 3 ON 2 '!"l "ONLY " A$() " AND " A$() " ARE BACK."Cl B$(H(J)) " GIVES OFF TO " B$(H(J)) ;"."ql B$(H(J)) " DROPS TO " B$(H(J)) ;"."lGH(J):G1H(J):G2H(J):Z1:  l " A ' 3 ONS ,,,g " LET'S A BOOMER GO FROM THE RED LINE!!" hZ : z*h " FLIPS A WRISTSHOT DOWN THE ICE."Xh " BACKHANDS ONE IN ON THE GOALTENDER." ghZ: zh " SNAPS A LONG FLIP SHOT."hZ: zh B$(H(J));:G1: 2 ' WITH A ' TRAILER '!" m B$(H(J)) " GIVES TO " B$(H(J)) " WHO SHUFFLES IT OFF TO" Cm B$(H(J)) " WHO FIRES A WING TO WING PASS TO "qm B$(H(J)) " AS HE CUTS IN ALONE!!" mGH(J):G1H(J):G2H(J):Z1:  m "SHOT";: G2:GH(J): h C ,h P ,,:)i A$(H(J)) " LEADS " A$(H(J)) " WITH A PERFECT PASS." Ki A$(H(J)) " CUTTING IN!!!"riGH(J):G1H(J):G2:Z1: i A$(H(J)) " GIVES TO A STREAKING " A$(H(J)) ;"."iS: S : S m  C ,pm A$(G);: S  ,4,H,\ $n  " LET'S A BIG SLAP SHOT GO!!" 9n*Z:ZZZ1: zZn4 " RIPS A WRIST SHOT OFF." on>Z:ZZZ1: znH " GETS A BACKHAND OFF." nRZ:ZZZ1: zn\ " SNA& A$(H(J)) " COMES DOWN ON " B$() " AND " B$() ;"."j0GH(J):G1H(J):G2H(J):Z1: ?j: "OH MY GOD!! A ' 4 ON 2 ' SITUATION"ijD A$(H(J)) " LEADS " A$(H(J));"."jN A$(H(J)) " IS WHEEELING THROUGH CENTER."jX A$(H(J)) " GPS OFF A SNAP SHOT." nfZ:ZZZ1: znp B$(G);: S  ,4,H,\ oz "AREA";: A: A z-o A z?o C ,RoS2S2:  ^oS3S3oA1((X)): AA1 oH()(d(X))o (H()Z)H( L e "AND WE'RE READY FOR THE FACE-OFF." fC((X)): C ,6f A$() " HAVE CONTROL OF THE PUCK.": "Tf B$() " HAVE CONTROL." |f" "PASS";: P: N :H(N): N f, P "f1 P "f6 J (P) "  STICK" t "OF "A$(G) " AND " B$() " COVERS UP."t( u2 "WHISTLES ONE OVER THE HEAD OF " B$() &u<  YuF B$() " MAKES A FACE SAVE!! AND HE IS HURT!"uP "THE DEFENSEMAN " B$() " COVERS UP FOR HIM." uZ ud S1 n,, ,Lp "GOAL SCORED BY: " A$(G);",";: G1 .p G2 82q$ " ASSISTED BY: " A$(G1) " AND " A$(G2);".": B Mq. " UNASSISTED.": Boq8 " ASSISTED BY: " A$(G1);"."qBT(G)T(G):T1(G1)T1(G1):T1(G2)T1(G2): qL "GO,,, un "STICK SAVE BY " A$() vx "AND CLEARED OUT BY " A$();".":  ?v "OH MY GOD!! " B$(G) " RATTLES ONE OFF THE POST" yv "TO THE RIGHT OF " A$() " AND " A$() " COVERS "; v "ON THE LOOSE PUCK!":  v "SKATE SAVE BAL SCORED BY: " B$(G); ",";qV G1 jq[ G2 t%r` " ASSISTED BY: " B$(G1) " AND " B$(G2);".": ~ @rj " UNASSISTED.": ~hrt " ASSISTED BY: " B$(G1);".": ~r~T2(G)T2(G):T3(G1)T3(G1):T3(G2)T3(G2): rA2(dY " A$() ;"."v A$() " WHACKS THE LOOSE PUCK INTO THE STANDS." v =w "STICK SAVE BY " A$() " AND HE CLEARS IT OUT HIMSELF." Hw  fw "KICKED OUT BY " A$() w "AND IT REBOUNDS ALL THE WAY TO CENTER ICE." w  w "G(X)): (A2)A2 r r C ,s "SAVE " B$() " -- REBOUND":  Y(M(I))S\ ahH Y(M(I))khR {h\ Y(M(I))hf hp Y(M(I))hz h Y(M(I));O$l` (O$,)"Y" (): |ld "MENU" " ";()lZ Jl\: "DO YOU WANT TO BET ON THE NEXT RACE"();" ";W$(J);" WINS";: "$$##,###";(RD(N))P(J);: " ";()lZ Jl\: "DO YOU WANT TO BET ON THE NEXT RACE"ORSES RACE DOWN THE PAPER!"c6c@ "HOW MANY WANT TO BET";cJ C*dO C "MAXIMUM OF TEN BETTORS ONLY.": @KdT "WHEN ? APPEARS,TYPE NAME"Yd^ A Cedh W$(A)mdr Asd|d"HORSE",,"NUMBER","ODDS"d "=====",,"======","====%  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&  ad -- MENU program by Jim Woolley, FOG Diak Librarian, 8/82anax INb PROG$())bFMT$"##. &"Bb"Press for MENU",NBRPb ();Vb^bI|b PROG$(I)"NOMOREDATA"b II: PROG$(I)bbLASTI:ILASTLASTb ILAST ILASTb I ILASTb FMT$;I;PROG$(I);cJI4c JLAST : );: FMT$;J;PROG$(J) 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  DISK.DOC -FOG/GAM.009 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