IMD 1.15: 16/05/2007 7:52:46 fog gam 008    Ї!ֶ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*  BATTLE BAS8 BLACKJCKBAS:BOMBARD BASBOMBSAWYBASBOUNCE BAS BOWLING BASBOXING BASBUG BAS(BULLFGHTBAS# BULLSEYEBAS !BUZZWORDBAS "CHANGE BAS #CHECKERSBAS$%CHEMIST BAS &CHOMP BAS'(AMAZINGPBAS)*DISK DOC+MENU BAS,aa (): Pa );"23 MATCHES":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"!b(:NbP " THIS IS A GAME CALLED '23 MATCHES'."TbZbd "WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE"bn "MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE"bx "THE LAST MATCH."b c "LET'S FLIP A COIN TO SEE WHO GOES FIRST."Sc "IF IT COMES UP HEADS, I WILL WIN THE TOSS."Yc_cjcN ~cQ (())c Q  c "TAILS! YOU GO FIRST. "-FOG/GAM00823-MATCHBAS ACEYDUCYBASAMAZING BASANIMAL BASBAGELS BASBASKETBLBAS" BATNUM BAS   DO YOU WISH TO REMOVE";d6 Kd@ K  dJ K  eTN N K0e^ "THERE ARE NOW";N;"MATCHES REMAINING.":Be_ N  }Te` N  fea N  zeh N  erZ  Ket e|e}Z e~ eaa P: ()a );"ACEY DUCEY CARD GAME"::%b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"+b1bob );"ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER: ":b( );"THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP."b2Z e eZ f "MY TURN. I REMOVE";Z;: Z "MATCH." : "MATCHES."fN N Z1f N  ;f Vf "VERY FUNNY! DUMMY!"f "DO YOU WANT TO PLAY OR GOOF AROUND?"f "NOW, HOW MANY MATCHES DO YOU WANT", );"YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING""c< );"ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE"PcF );"A VALUE BETWEEN THE FIRST TWO.":cP );"IF YOU DO NOT WANT TO BET, INPUT A 0"cZ:cdNdcnQdcx "YOU NOW HAVf 6ff"YOU POOR BOOB! YOU TOOK THE LAST MATCH! I GOTCHA!!"g "HA! HA! I BEAT YOU!!!"g4g "GOOD BYE, LOSER!">g (\g "YOU WON, FLOPPY EARS!"g "THINK YOU'RE PRETTY SMART!"g& "LETS PLAY AGAIN AND I'LL BLOW YOUR SHOESE";Q;"DOLLARS."cc cQQMc xcQQMc xd"HERE ARE YOUR NEXT TWO CARDS: "1dA(())Ad A Rd" A gd,B(())wd6 B ,d@ B ,dJ AB d^ A dh OFF!!"g(:g+ "DO YOU WANT TO TRY AGAIN";ANS$ h, (ANS$,)"Y" (): h0 "MENU"h:OW YOUR SHOESSER!">g (\g "YOU WON, FLOPPY EARS!"g "THINK YOU'RE PRETTY SMART!"g& "LETS PLAY AGAIN AND I'LL BLOW YOUR SHOES A dr A d| A d A d Ae  e"JACK"e #e"QUEEN"-e 9e"KING"Ce Ne"ACE"_e B &pe B :e B Ne B be B ve& Be0cc ,c "HEADS! I WIN! HA! HA!"d "PREPARE TO LOSE, MEATBALL-NOSE!!" d%d "I TAKE 2 MATCHES."2dN N cd "THE NUMBER OF MATCHES IS NOW" N;();"."idd" "YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES."d, "HOW MANY    THE"b, "MAZE APPEARS ON THE TERMINAL CRT SCREEN. IF YOU WANT A PRINTED"=c. "MAZE, RUN THE 'AMAZINGP' PROGRAM INSTEAD OF THIS ONE."::cd "WHAT ARE YOUR WIDTH AND LENGTH (TWO NUMBERS SEPARATED BY A COMMA)";H,Vde H V : ";Q;"DOLLARS TO BET."f fC(())f C g C g C *&g C >7g  C RHg C fYg  C zag* Ckg4 wg>"JACK"gH gR"QUEEN"g\ gf"KING"gp "MAZE WILL NOT FIT ON SCREEN. MAXIMUM WIDTH IS 25;": "MAXIMUM LENGTH IS 10. TRY AGAIN."::: d.df H V nfdh: "MEANINGLESS DIMENSIONS. TRY AGAIN."::: dzdn W(H,V),V(H,V)dxd} "THIS MAY TAKE A LITTLE WHILE."ddgz "ACE"gg CA g g CB g"YOU WIN!!!"h h"SORRY, YOU LOSE."/h MQ 5h;hhh"SORRY, FRIEND, BUT YOU BLEW YOUR WAD."ph:h"TRY AGAIN (YES OR NO)";A$h:h (A$,)"Y" ddQ:Z:X(()H)d I Hd IX e ".--";: e ". ";e I$e ".";eC:W(X,)C:CCMeRX:S: ^e RH oe SV eR:S: eR:SS: eRRe W(R,S) (A$,)"y" nh"O.K., HOPE YOU HAD FUN!"h "MENU"h"TRY AGAIN (YES OR NO)";A$h:h (A$,)"Y" 5h;hhh"SORRY, FRIEND, BUT YOU BLEW YOUR WAD."ph:h"TRY AGAIN (YES OR NO)";A$h:h (A$,)"Y"  e R e  W(R,S) e S f W(R,S) f" RH J0f, W(R,S) JDf6X(())Zf@ X ,4,\kfJ SV T{fN Z rfRQ: ^fT W(R,S) rf^X((aa P: ()a );"AMAZING PROGRAM"a :$b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY".b::qb( " THIS PROGRAM GENERATES MAZES OF DIMENSIONS YOU SPECIFY."b* "EVERY MAZE IS DIFFERENT, AND HAS ONLY ONE WAY THROUGH.))fh X ,4,frX(())f| X ,4g RH g W(R,S) *g SV :g Z HgQ: `g W(R,S) tgX(())g X ,\,gX(())g X ,\ e:"JACK"eD eN"QUEEN"eX eb"KING"el fv"ACE" ff)f"WHAT IS YOUR BET";M:f M Kf"CHICKEN!!"Qf[f lf MQ f"SORRY, MY FRIEND, BUT YOU BET TOO MUCH."f"YOU HAVE ONLY   l " I";l Ill I Hl V(I,J) $m V(I,J) $m ": ";m .+m$ ":--";3m. I=m/ "."Em0 JRm1 "MENU" Hl V(I,J) $m V(I,J) $m ": ";m .+m$ ":--";3m.W(R,S) Nh:X(())hD X 4,\,hNX(())iX X 4,\!ib SV v1il Z ?iqQ: Wiv W(R,S) kiX(())}i X 4,i 4i RH i W(R,S) i SV i Z iQ: >i W(R,S)  jX(())j X \,&j \7j SV Gj Z  UjQ: mj W(R,S)  wj j  jW(R,S)Cj CC:V(R,S):RRj* CHV j/Q: j4W(R,S)Cj>CC kHV(R,S):SS:CHV kRQ: 'k\W(R,S)CBkfCC: V(R,S) pUkkV(R,S): zbkpV(R,S)lkzRRk CHV k k Q kW(R,S)C:CC: V(R,S) kV(R,S): kV(R,S)kSS: CHV l  lZ!l V(R,S) 8lV(R,S):Q: WlV(R,S):Q:R:S: al ol J Vzl "I";l I Hl V(I,J) l " ";lg SV g Z gQ: g W(R,S)  hX(())h X ,'h 9h S Qh W(R,S) ah! RH byh# W(R,S) bh& SV 0h( Z Nh*Q: :h0   1)"\"B$(Z1)"\"N| xN SUBROUTINE TO PRINT QUESTIONSNQ$A$(K)O Z (Q$)+O (Q$,Z,)"\" (Q$,Z,);: Z4O C$DOC$(C$,)ZO C$"y" C$"Y"pO C$"n" C$"N"O C$"Y" C$"y" C$"N" C$ to see what animals the computer knows.":J<JF A$()JP I JZ A$(I)Jd IKnN(A$()),Kx MAIN CONTROL SECTIONWK: "Are you thinking of an animal";A$K (A$,)"N" (A$,)"n" :: "MENU"K A$"LIST""n" OT$"\"C$O X (Q$)O (Q$,X,)T$ O XOP YX (Q$)P (Q$,Y,)"\" %P Y+PFPK((Q$,X,YX))LPP "4","\QDoes it swim\Y2\N3\","\Afish","\Abird"PX: "Animals I alre A$"List" A$"list" XK (A$,)"Y" (A$,)"y" xKKK  L (A$(K)) 'L (A$(K),)"\Q" OL "Is it a ";(A$(K),(A$(K)));XL A$hLA$(A$,)L (A$,)"Y" (A$,)"y" : "Wady know are:"P]XPb I Pl (A$(I),)"\A" Pp X);Pv Z (A$(I))0Q (A$(I),Z,)"\" (A$(I),Z,);: ZJQXX: X X: RQ IXQ^QhQ xuQ "MENU"$(I))0Q (A$(I),Z,)"\"hy not try another animal?": xL: "The animal you were thinking of was a ";V$+M: "Please type in a question that would distinguish a"\M V$;" from a ";(A$(K),(A$(K)));" :":eM X$M "For a ";V$;" the answer would be ";M" Aaa ()a !);"BAGELS":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY":::b *** BAGLES NUMBER GUESSING GAMEpb *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TO BEb *** LAWRENCE HALL OF SCIENCE, U.C. BERKELYb A1(),A$M,A$(A$,): A$"Y" A$"y" A$"N" A$"n" M. A$"y" A$"Y"N0 A$"n" A$"N"N6 A$"Y" B$"N"0N@ A$"N" B$"Y"ANJZ1(A$())TNTA$()(Z1)eN^A$(Z1)A$(K)zNhA$(Z1)"\A"V$NrA$(K)"\Q"X$"\"A$(Z(),B()b(Y:Tb2::bF "WOULD YOU LIKE THE RULES (YES OR NO)";A$&cZ (A$,)"N" (A$,)"n" ecd: "I AM THINKING OF A THREE-DIGIT NUMBER. TRY TO GUESS"cn "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:"cx " PICO I P: I ()I !);"ANIMAL"I:J );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"J: : 4J( "PLAY 'GUESS THE ANIMAL'":J-|J2 "Think of an animal and the computer will try to guess it."J7 "Type the word 'List'  N (YES OR NO)";A$h (A$,)"Y" (A$,)"y" h Y i: "A";Y;"POINT BAGELS BUFF!!" P fOH:: "I TOLD YOU NOT TO Uof objects. You"J "and your opponent alternately remove objects from the pile."/K "Winning is defined in advance as taking the last object or"rK "not. You can also specify some other beginning conditions."K "Don't use zero, however, in plSE ZERO! COMPUTER WINS BY FORFEIT."ORWO\Of P(P) Op PA Oz PN  P P PB =P "ILLEGAL MOVE, REENTER IT ";GP 4QPNNPbP N rP M P: "TOUGH LUCK, YOU LOSE."PWaying the game.":K "Enter a negative number for new pile size to stop playing."K:K JL I  LL I6LJ "ENTER PILE SIZE";NGL^ N rZLh::: "MENU"oLr N(N) L| N L "ENTER WIN OPTION PP:: "CONGRATULATIONS, YOU WIN."PWPP N $PNNPP Q$WQ.Q8 "MENU"PP:: "CONGRATULATIONS, YOU WIN."PWPP N $PNNPP Q$WQ.Q8 "MENU"- 1 TO TAKE LAST, 2 TO AVOID LAST: ";ML M L M L "ENTER MIN AND MAX ";A,BM AB M A 3M A(A) HM B(B) M "ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST ";SM:M Saa AZa P: ()a !);"BATTLE":#b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"::Ib "DO YOU WANT INSTRUCTIONS";ANS$wb (ANS$,)"Y" (ANS$,)"y" 'b -- BATTLE WRITTEN BY RAY WESTERGARD 10/70b  M S MCABM S :M& XM0 W M: *MD W NN &NXQNNb M v)NlQQ9Nv M IN NA QNWyN: "COMPUTER TAKES";N;"AND LOSES."NN NB NWCOPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF.c PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEYUc# Corrected by Jim Woolley, FOG Disk Librarian, 8/82c( DIM F(6,6),H(6,6),A(4)Jn " This program is a 'Battle of Numbers' game, where the"aJx "computer is your opponent."hJ J " The game starts with an assumed pile   ,B) vhbA(K)A(K)hl hvMi A()A() A()A() ZA()(i A()A() A()A() ZA()Mi A()A() A()A() ZA()]i Z Zti F(Z,B) ZiA(K)Zi KiF(A,B)IJi K Ni)) dB(K)B(K)d dMe B()B() B()B() ZB())e B()B() B()B() ZB()Ne B()B() B()B() ZB()^e Z Zue F(A,Z) ZeB(K)Ze Ke"F(A,B)IJe, K NF(A(K),B)F(A,B)i Ki iA()AiB()BiA():A()jB():B()j  K N-j M fIj  A(K) B(K) \hj* F(A(K),B(K)) \j4 F(A(K),B(K)) F(A(K),B(K))F(A(K),B(K)) \j>A(Ke6F(A,B(K))F(A,B)e@ KeJ eTA()Ae^B()B fhA():A():B():B()fr K N*f| M Ff A(K) B(K) ef F(A(K),B(K)) f F(A(K),B(K)) F(A(K),B(K))F(A(K),B(K)) fA(K)A)A(K)jHB(K)B(K)jR j\Mkf A()A() A()A() Z1A()'kh A()A() A()A() Z1A()Mkj A()A() A()A() Z1A()skp B()B() B()B() Z2B()kr B()B() B()B() Z2B()kt B()B() B((K)fB(K)B(K)f fMf A()A() A()A() Z1A()$g A()A() A()A() Z1A()Jg A()A() A()A() Z1A()pg B()B() B()B() Z2B()g B()B() B()B() Z2B()g B()B() B()B)B() Z2B()kz Z1 Z2 Zk F(Z1,Z2) Z#l F(Z1,Z2) F(Z1,Z2)F(Z1,Z2) Z3lA(K)Z1ClB(K)Z2Kl K^lF(A,B)IJll K NlF(A(K),B(K))F(A,B)l Kl Jl Ill "T() Z2B()g Z1 Z2 Zg F(Z1,Z2) Z h F(Z1,Z2) F(Z1,Z2)F(Z1,Z2) Z0hA(K)Z1@hB(K)Z2Hh KRh ]h&A()Aoh0A():A()}h: K NhD M hN A(K) vhX F(A(K)HE FOLLOWING CODE OF THE BAD GUYS' FLEET DISPOSITION"m "HAS BEEN CAPTURED BUT NOT DECODED:"m#m I 1m J CmH(I,J)F(J,I)Km JSm Iam$ I om% J }m& H(I,J);m' Jm(m) Im.m8 "DE-CODE IT AND Yc6 Xc< I cFNIcP J cZA(())ddB(())dnD(())1dx F(A,B) Z9dMSd D ,T,&,^dB()BpdB():B()~d K Nd M d B(K) d F(A,B(K   FOR THE GOOD GUYS."r: "SO FAR, THE BAD GUYS HAVE LOST"s L();"DESTROYER(S),";L();"CRUISER(S), AND";As L();"AIRCRAFT CARRIER(S)."ps: "YOUR CURRENT SPLASH/HIT RATIO IS";SHs (L()L()L()) ss: "YOU HAVE TOTALLYy"  NnU (PM$,)"Y" (PM$,)"y" 0unV I oW J oXH(I,J)oY JoZ I,o` I 7oaL(I)?ob IQojC():C()cotC():C()uo~C():C()oS:Ho "START GAME"o "----------":o WIPED OUT THE BAD GUYS' FLEET"s "WITH A FINAL SPLASH/HIT RATIO OF";SH t" SH 6Ct,: "CONGRATULATIONS -- A DIRECT HIT EVERY TIME."It6nt@ "****************************"ttJt^ "MENU"t' ()t' " BATTLE is based on the: "ENTER X,Y COORDINATES OF BOMB TARGET";X,Yp X X (X)(X) %p Y Y (Y)(Y) Jp: "INVALID INPUT. TRY AGAIN."Tp ^pRYfpCX{p F(R,C)  pSSp: "SPLASH! TRY AGAIN."p  popular game of Battleship.":u$' " BATTLE first randomly sets up the Bad Guy's fleet disposition"\u.' "on a 6 by 6 matrix or grid. The fleet consists of six ships:"u8' "Two destroyers (ships number 1 and 2) which are two units long,"uB' "twop  C(F(R,C)) <q: "THERE USED TO BE A SHIP AT THAT POINT, BUT YOU SUNK IT."%q: "SPLASH! TRY AGAIN."/q(SS9q2 Nq< H(R,C) XqFHHjqPH(R,C)F(R,C)qZ: "A DIRECT HIT ON SHIP NUMBER";F(R,C)qdC(F(R,C))C(F(R,C)) cruisers (ships number 3 and 4) which are three units long".vL' "and two aircraft carriers (ships number 5 and 6) which are"rvV' "four units long. This fleet disposition is printed out in a"v`' "coded or disguised format. A hard copy is also availaqn C(F(R,C)) qx: "TRY AGAIN."q !r: "YOU ALREADY PUT A HOLE IN SHIP NUMBER";F(R,C);8r "AT THAT POINT."Vr: "SPLASH! TRY AGAIN."`rSSjr rI((F(R,C))):L(I)L(I)r "AND YOU SUNK IT. HURRAHble.":vj' " You then proceed to sink the various ships by typing in the"Fwt' "coordinates (two digits, each from 1 to 6, separated by a comma)"w~' "of the place where you want to drop a bomb. Record the results on"w' "a 6 by 6 matrix, which  USE IT IF YOU CAN"mB "BUT KEEP THE DE-CODING METHOD A SECRET."mL>nN "DO YOU WANT A PRINTED COPY OF THE CODED FLEET DISPOSITION";PC$nR "DO YOU WANT A PRINTED 6 BY 6 MATRIX TO RECORD YOUR RESULTS";PM$nS:nT (PC$,)"Y" (PC$,)"   | | | | | |"|u "|---------------------------|"}u "| 6 | | | | | | |"8}u "+---------------------------+"E}u ( )K}u--------------------------|"}u "| 6 | | | | | | |"8}u "+-------------------- sunk, the computer prints out which ships have been sunk so far"#y' "and also gives you a SPLASH/HIT RATIO."::Qy' "Hit 'RETURN' to start the game.";RR$^y' ()dy'y N: PRINTED CODED FLEET DISPOSITION SUBROUTINEy/N );"CODED FLEET DISPOSITION"::y4N I y>N J yHNH(I,J)F(J,I)yRN Jy\N I zfN I zkN " ";(zpN J :zzN H(I,J);" ";BzN JHzNPzN IzN (PM$,)"Y" (PM$,)"y" :::: NzN ( )zNz0u: PRINTED EMPTY MATRIX SUBROUTINEz2u::z4u "EMPTY MATRIX FOR RECORDING HITS"::#{:u "+---------------------------+"I{Du "| | 1 | 2 | 3 | 4 | 5 | 6 |"o{Nu "|---------------------------|"{Xu "| 1 | | | | | | |"{bu "|---------------------------|"{lu "| 2 | | | | | | |"|vu "|---------------------------|".|u "| 3 | | | | | | |" T|u "|---------------------------|"z|u "| 4 | | | | | | |"|u "|---------------------------|"|u "| 5 | the computer will supply if you wish."x' "You are thus building a representation of the actual fleet"]x' "disposition which you will hopefully use to decode the coded"x' "fleet disposition printed out by the computer. Each time a ship"x' "is   (Q1 )fDfNQQ1(Q Q1)fX Q! lfbQflg--CARD PRINTING SUBROUTINE5g D$ DEFINED ELSEWHEREKg (D$,X,);Wg " ";]gg--ALTERNATIVE PRINTING ROUTINEg " ";(D$,X,);g " ";g L OF HAND Ib2--C IS THE DECK BEING DEALT FROM, D IS THE DISCARD PILE,?c<--T(I) IS THE TOTAL FOR PLAYER I, S(I) IS THE TOTAL THIS HAND FORjcF--PLAYER I, B(I) IS TH BET FOR HAND IcP--R(I) IS THE LENGTH OF P(I,*)cZ cd--SUBROUTINE TO Gg --SUBROUTINE TO PLAY OUT A HAND.g*--NO SPLITTING OR BLACKJACKS ALLOWEDh4H1h> hHH1,hR H ,6h\ dFhfB(I)B(I)Zhp "RECEIVED A";dhz nh Lh Q hh (hh dh "RECEIVEET A CARD. RESULT IS PUT IN X.cn C3 dx: ();" "dz " RESHUFFLING "9d| " ";():Ld DD  VdCCddC(C)D(D)ld Dd C14 C dC2(()(C1C))CdC3C(C2)dD A";h h Lh Q h "HIT";h >iL--SUBROUTINE TO ADD A CARD TO ROW I(iVR(I)R(I)8i`P(I,R(I))XCijQQ(I)Mit Xi~Q(I)Qii Q {i "...BUSTED"i ii--SUBROUTINE TO DISCARD ROW IC(C2)C(C1)dC(C1)C3d C1dXC(C)dCCd$e,--SUBROUTINE TO EVALUATE HAND I. TOTAL IS PUT INTOTe6--Q(I). TOTALS HAVE THE FOLLOWING MEANING:ne@-- 2-10...HARD 2-10eJ-- 11-21...SOFT 11-21eT-- 22-32...HARD 11-21e^-- 3i R(I) iiDDiD(D)P(I,R(I))iR(I)R(I)i j--PRINTS TOTAL OF HAND I#j6j(AAQ(I): H Jj- "TOTAL IS";AAPj2pjx--SUBROUTINE TO READ REPLYj I$ DEFINED ELSEWHEREj H$: H$(H$,)j H 3+....BUSTEDehQer Q2 R(I)e|XP(I,Q2)e e Q2fQ(I)Qf3f--SUBROUTINE TO ADD CARD X TO TOTAL Q.ffX1X: X1 X1 : SAME AS X1=10 MIN XrfQ1QX1f Q Nf X :f&QQ f0f:QQ1H1 j H$(I$,H,) j Hk "TYPE ";(I$,,H1);" OR ";(I$,H1,);" PLEASE";k )kH(H)/kJk--PROGRAM STARTS HERE\k--INITIALIZEkD$"N A 2 3 4 5 6 7N 8 9 10 J Q K"kI$"H,S,D,/,"k I  aa (): Pa );"BLACK JACK":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"#b::--TEST FOR INSURANCEGsH P(D1,) `sR: "ANY INSURANCE";is\ H$sf (H$,)"Y" sp: "INSURANCE BETS": "--------------"split, in which case doubling"o "down is again permitted. In order to collect for"=o "Blackjack, the initial response should be 'S'."Coo " To stop the game, enter a negative number for any bet.": o: "NUMBER OF PLAYERS";osz I N: PLAYER$(I);: Z(I): Is I NCt Z(I) Z(I)B(I) "MAXIMUM INSURANCE BET IS HALF THE INITIAL BET.": pKt IYt I N~tS(I)Z(I)(((P(D1,) )))t It--TEST FOR DEALER BLACKJACKtL1 Noo N N N(N) o I Np "NAME OF PLAYER #";I;: PLAYER$(I)p I2p I : T(I): I=pD1NVp D1C4 xhp C CCp& I N: Z(I): Ip0 I : B(I): Ip: I :: L2t P(D1,) P(D1,) L1: L2u P(D1,) P(D1,) L1: L2"u L1 L2  _u: "DEALER HAS A";(D$,P(D1,),);" IN THE HOLE ";uu "FOR BLACKJACK"u I D1u ,u Iu D u --NO DEALk JI IkD(J)Ik" Jk, Ik6D4k@C5lJ "DO YOU WANT INSTRUCTIONS";lT H$Bl^ (H$,)"N" (H$,)"n" lh (): " This is the game of 21. As many as 7 players may play the"lr "game. On each dea  " CONCEALED."z D { : "DEALER HAS A";(D$,P(D1,),);" CONCEALED "; { ID1{ AAQ(I): H 7{ "FOR A TOTAL OF";AAI{ AA : X{ "DRAWS";b{ dl{ v{ L{ AAQ: H { Q AA  { Q(I)Q(Q);" ";()v ();" BLACKJACK! ";()w ();" ";()*w S(I)S(I)@B(I)5w B(I)?w Iw T Sw (]w T w --PLAYER WANTS TO DOUBLE DOWNw ,w \w T w --PLAYER WA{& Q D {0 AAQ: H {5 "---TOTAL IS";AA{: |D --TALLY THE RESULT |N (|X Z$"LOSES PUSHESWINS ".|] <|b I NO|l AAQ(I): H e|n ABQ(ID1): R y|p ACQ(D1): \ |r S(I)S(I)B(I)(AAAC)B(ID1)(ABAC)|t B(NTS TO BE HITw ,w H1w w T x( --PLAYER WANTS TO SPLIT#x2 L1P(I,): P(I,) L1 Fx4 L2P(I,): P(I,) L2 Xx6 L1L2 P yx< : "SPLITTING NOT ALLOWED."xF B xP --PLAY OUT SPLITxZ I1ID1xd R(I1)ID1)| PLAYER$(I);" ";| (Z$,(S(I)),);::" ";} S(I)  } :PRINT " ";&}  ?} "$$##";(S(I));R} T(I)T(I)S(I)|} #);"TOTAL =";: "$$#,###-";T(I)} } T(D1)T(D1)S(I)} IID1} xn P(I1,)P(I,)xx B(ID1)B(I)x dy : "FIRST HAND RECEIVES A"; y y P(I,)X!y ,'y 1y dSy : "SECOND HAND RECEIVES A";\y II1fy sy P(I,)X}y ,y y II1D1y P(I,) T y --NOW} IID1} I} : "DEALER'S TOTAL =";: *);: "$$#,###-";T(D1)~ ~ ~ "~* "MENU";~H AAAA (AA): T~R ABAB (AB): m~\ ACAC (AC): #-";T(D1)~ ~ ~ "~* "MENU";~H AAAA  PLAY THE TWO HANDSy" "HAND";(ID1);y,  y6 IID1y@ II1 " zJ II1D1zT Iz^ ,Czh --TEST FOR PLAYING DEALER'S HANDQzr I Npz| R(I) R(ID1)  xz Iz : "DEALER HAD A";z XP(D1,)z z ER BLACKJACKu P(D1,) P(D1,) . u$ : "NO DEALER BLACKJACK."v. --NOW PLAY THE HANDS%v8 I N9vB : PLAYER$(I);BvL H1LvV fv` H  ,j , ,( vj --PLAYER WANTS TO STANDvt ,v~ Q(I)  v ()   "OFF THE NUMBERS:"::: "-- Printing --"::d M(d)d R  eI(R)Je" " ## ## ## ## ##";I,I,I,I,IRe, R_e^ ( )te|C(())eD(())eE(())eF(())e CD e CE e CF e DE f DF f EF 9f "WHAT ARE YOUR FOUR POSITIONS";Gf G,H,K,LMf|f "WHERE DO YOU WISH TO FIRE YOUR MISSLE";f Yf YC f YD f YE aa (): Pa !);"BOMBARDMENT":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"$b::]bd "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU"bn "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED."bx "YOU CAN ONLY  f& YF f0 vf:M(())f? fD XG  gN XH gX XL -gb XK 7gl _gv "HA, HA YOU MISSED. MY TURN NOW:"og: : :g "I MISSED YOU, YOU DIRTY RAT. I PICKED";M;();". YOUR TPLACE ONE PLATOON AT ANY ONE OUTPOST."c "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."cOc "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE"c "OUTPOSTS OF THE COMPUTER. IT WILL DO THE SAME TO YOU."c "THE ONE WHO DESTROYS ALL URN:"g: : gQQg Q zh "YOU GOT ONE OF MY OUTPOSTS!"h Q "h Q *2h Q RQh "ONE DOWN, THREE TO GO."ah : : :~h* "TWO DOWN, TWO TO GO."h4: : :hR "THREE DOWN, ONE TO GO."FOUR OF THE ENEMY'S PLATOONS"c "FIRST IS THE WINNER."c0d "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!"6d`d "ENTER 'RETURN' TO CONTINUE.";XX$md ()d "HERE IS A PRINTED MATRIX FOR YOU TO TEAR OFF AND CHECK"dh\: : :hz "YOU GOT ME, I'M GOING FAST. BUT I'LL GET YOU WHEN"i "MY TRANSISTO&S RECUP%RA*E!"$i .iZZ>i Z Vyi "I GOT YOU. IT WON'T BE LONG NOW. POST";X;"WAS HIT."i Z i Z i Z .i  IME."j~ jPPjNPj T Nj MM(T) :j TkXMkM(P)Mk D%k "MENU"EXT TNLY ONE OUTPOST LEFT."Uj8: : jV "YOU'RE DEAD. YOUR LAST OUTPOST WAS AT";X;". HA, HA, HA."j` "BETTER LUCK NEXT Taa (): Pa );"BOMBS AWAY":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"#b::Wb "YOU ARE A PILOT IN A WORLD WAR II BOMBER.":b "WHAT SIDE -- ITALY(1), ALLIES(2), JAPAN(3), GERMANY(4)";Ab A A b "TRY AGAIN..." :  b A , n, , (c "YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)";B>c( B B -[c* "TRY AGAIN..." : vc- : B 2, P,Zc2 "SHOULD BE EASY -- YOU'RE FLYING A NAZI-MADE PLANE "YOU HAVE ONLY THREE OUTPOSTS LEFT."i: :  j "YOU HAVE ONLY TWO OUTPOSTS LEFT."j: : Ej. "YOU HAVE ONLY ONE OUTPOST LEFT."Uj8: : jV "YOU'RE DEAD. YOUR LAST OUTPOST WAS AT";X;". HA, HA, HA."j` "BETTER LUCK NEXT T  F TRAINING, EH?"h@ : D() JiE "DIRECT HIT!!!! "(d())"KILLED."+iG "MISSION SUCCESSFUL." : ZiJ "MISSED TARGET BY"(())"MILES!"iO "NOW YOU'RE REALLY IN FOR IT !!" : iT "DOES THE ENEMY HAVE GUNS(1), MISSIT 2 TONS OF BOMBS FLYING FOR PLOESTI." : e "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA." : Re "YOU'RE CHASING THE BISMARK IN THE NORTH SEA." : e "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR."e e "YOU'RE FLYINLES(2), OR BOTH(3)";RiY R R ^i[ "TRY AGAIN..." : Tj^ : T : R hSjc "WHAT'S THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";Sje S "YOU LIE, BUT YOU'LL PAY...": |jfjh : R T#jm STdG A KAMIKAZE MISSION OVER THE USS LEXINGTON." f "YOUR FIRST KAMIKAZE MISSION(Y OR N)";F$&f F$"N" S : fBf : ()ff& ELf |f "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1),"f "ENGLAND(2), OR FRANCE(3)";M : () |jr "YOU MADE IT THROUGH TREMENDOUS FLAK!!" :  k| "* * * * BOOM * * * *"2k "YOU HAVE BEEN SHOT DOWN....."pk "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR"k "LAST TRIBUTE..."k::: "ANOTHER MISSION (Y OR N)" M M f "TRY AGAIN..." : f : M , , #g "YOU'RE NEARING STALINGRAD." : cg "NEARING LONDON. BE CAREFUL, THEY'VE GOT RADAR." : g "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS.g;U$k (U$,)"Y" k "CHICKEN !!!" : : "MENU" "LAST TRIBUTE..."k::: "ANOTHER MISSION (Y OR N)".."pk "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR"k "LAST TRIBUTE..."k::: "ANOTHER MISSION (Y OR N)"g "HOW MANY MISSIONS HAVE YOU FLOWN";Dg" D , h$ "MISSIONS, NOT MILES..." ;h' "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS."Wh) "NOW THEN, "; : jh,: Dd 6h1 "THAT'S PUSHING THE ODDS!" : @h6 D "FRESH OUT O."c< cP "BE CAREFUL!!!" : dZ "YOU'RE GOING FOR THE OIL, EH?" : Jdn "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";G`dx G G }}dz "TRY AGAIN..." : nd} : G , , , d "YOU'VE GO  OWN STRAIGHT UP, AND THE COEFFICIENT OF"cx "ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION":c "COEFFICIENCY (LESS THAN 1)."@czc "YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN"c "'STROBING' THE BALL'S FLIGHT (TRY .1 INITIALLY)."cc "TIME INCREMENT (SEC)";S2cc "VELOCITY (FPS)";Vcd "COEFFICIENT";Cd'd "FEET"-dGdS1(F(V(S2)))Vd I S1ldT(I)VC(I)td Id H((V )V )  d (H)H d H;dLd I S1d T T(I) S2dLLS23e (H(( )TVC(I)T)) Ge LS2);"O";Oe T^eTT(I)e TVC(I)TH "e Ie"e, He6 );e@ I (L)S2eJ ".";eT Ie^ec );"0";eh I (L;)f| (IS2));I;f IfCf (L)(S2));"SECONDS"If_f "AGAIN ";ANS$:zf (ANS$,)"Y" f "MENU");I;f IfCf (L)a Revised by Jim Woolley, FOG Disk Librarian, 8/82a (): Pb !);"BOUNCE":Fb );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"Pb::\bZ T()bd "THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY"bn "OF A BALL THR   d "VERY GOOD..."db I d: J : A(I,J): J: IdF e P RepMeB&e$ M: QBe~ I : C(I): Ipe ARK BALL GENERATOR USING MOD '15' SYSTEMe2 "PRESS RETURN TO GET THE BALL ROLLING.",N$e K: De@ I e X(()d)e J  eN XJ  e J f C(JX)f\ I'f ARK PIN DIAGRAMKf "PLAYER:"P;"FRAME:";F"BALL:"BYfj I `f mf I);}f J IfxKKf C(K) f, "+ ";f :aa Corrected by Jim Woolley, FOG Disk Librarian, 8/82b (): Pb ");"BOWL":Lb );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"Vb::jb C(),A(d,)bh "WELCOME TO THE ALLEY"b "BRING YOUR FRIENDS"b "OKAY f "O ";f: Jf IffHARK ROLL ANALYSISf I  gDDC(I) gV I"g DM  d3g  "GUTTER!!"Lgd B D rdg "STRIKE!!!!!"lgQgr B D g "SPARE!!!!"g&Qg B DLET'S FIRST GET ACQUAINTED"bv ""b "THE INSTRUCTIONS (Y/N)"b* Z$c Z$"Y" !c Z$"N" dc "THE GAME OF BOWLING TAKES MIND AND SKILL. DURING THE GAME"c8 "THE COMPUTER WILL KEEP SCORE. YOU MAY COMPETE WITH"c "OTHER P g "ERROR!!!"g4Qg B D Bh "ROLL YOUR 2ND BALL"$hBARK STORAGE OF THE SCORES+h :hA(FP,B)DJhP B lRhBZhMDjh^ Q B{hA(FP,B)DMh Q  hlA(FP,)Qh Ph FFhLAYERS (UP TO FOUR). YOU WILL BE PLAYING TEN FRAMES."(d "ON THE PIN DIAGRAM 'O' MEANS THE PIN IS DOWN, '+' MEANS THEldF "PIN IS STANDING. AFTER THE GAME THE COMPUTER WILL SHOW YOUR|d "SCORES."d "FIRST OF ALL, HOW MANY ARE PLAYING";Rdz F h "FRAMES"h I  h. I;h Ih i< P Ri I i J  .iJ A(JP,I);6i J=i Ei ILiX Ti Pui ! "DO YOU WANT ANOTHER GAME"~if! A$i! (A$,)"Y" 2 i" "MENU"P,I);   f "CONNECTS..."fXXf ,g "BUT IT'S BLOCKED!!!!!!!!!!!!!"g ,/g L$ " TRIES AN UPPERCUT ";@g D1 :VgD5(d())hg& D53 :g0 "AND IT'S BLOCKED (LUCKY BLOCK!)"g5 ,g: "AND HE CONNECAN'S NAME";b( L$b-c2 "DIFFERENT PUNCHES ARE: (1) FULL SWING; (2) HOOK; (3) UPPERCUT; (4) JAB."=c< "WHAT IS YOUR MANS BEST";Ec@ BhcF "WHAT IS HIS VULNERABILITY";pcP DcZB1(())cdD1(())cn B1D1 ZcTS!"gDXXgN ,gXJ7(())gY J7 B1 ]gZ bh]YYhb J7 %hl J7 *7hv J7  \Nh J$;" JABS AND ";^h D shZ4(())h Z4 h "IT'S BLOCKED!"h ,h " BLx: J$;"'S ADVANTAGE IS";B1;"AND VULNERABILITY IS SECRET.":c R  d J  d L $&dX.dYJd "ROUND";R;"BEGINS..."ad "--------------"qd R1  dI( ())d I Xd L$;"'S PUNCH";dOOD SPILLS !!!"hYYh ,h J$" TAKES A FULL SWING AND";i D iR6(<()).i R6  Ei " IT'S BLOCKED!"Oi ,i " POW!!!!! HE HITS HIM RIGHT IN THE FACE!"i  Y# iYYi  ,i* J$ Pd PB d dXXd P Td P e P *e L$;" JABS AT ";J$"'S HEAD ";;e D1 "OeC(())_e C 6ie"XXse, e6 "IT'S BLOCKED."eJ eT L$ " SWINGS AND ";e;" GETS ";L$;" IN THE JAW (OUCH!)"i4YYi> "....AND AGAIN!"iCYY jH Y# jREj\ L$;" IS ATTACKED BY AN UPPERCUT (OH,OH)..."Uja D zkjfQ4(())}jp Q4K jz "AND ";J$;" CONNECTS..."jYYj ,U D1 eYX3(())e^ X3 eh "HE MISSES ";erfw X f|f%f ,:f "HE CONNECTS!"Kf X# VfXX`f ,f L$;" GIVES THE HOOK... ";f D1 fH1(())f H1j " BLOCKS AND HITS ";J$;" WITH A HOOK."jXXj ,j R1 k XY 0k: J$" WINS ROUND" R;();"."::kJJDk ik: L$" WINS ROUND"R;();".":skLL{k Rk J  k L $k J$ " IS KNaa (): P: !);"BOXING":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::Vb "BOXING OLYMPIC STYLE (3 ROUNDS -- 2 OUT OF 3 WINS)"^bJfbLlbb "WHAT IS YOUR OPPONENT'S NAME";b J$b "INPUT YOUR M  OM THE OLYMPIC ARENA."lLlV "MENU" l$ L$ " AMAZINGLY WINS!!"l. l8l=lB "AND NOW GOODBYE FRXl J$ " WINS (NICE GOING," J$;")."bl l$ L$ " AMAZINGLY WINS!!"l. l8l=lB "AND NOW GOODBYE FRaa Modified by Jim Woolley, FOG Disk Librarian, 8/82a () b ");"BUG":Eb );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"Ob::Ub(b2A: B: H: L: N: P: Q: R: S: T: U: V: Yb< "THE GAME BUG IS LIKE THE GAME COOTI."bF "I HOPE YOU ENJOY THIS GAME."bPcZ "DO YOU WANT INSTRUCTIONS";cd Z$Ccn (Z$,)"N" (Z$,)"n" ,Pcs ()cx " The object of BUG is to finish your Bug before I finish"c "mine. Each number stands for a part of the bug body."d "I will roll the die for you and tell you what the number"Pd "stands for, and if you can get the part I will give it"d "to you. The same will happen on my turn."dd " If there is a change in either bug I will give you the"d "option of seeing the pictures of the Bugs.":3e " The numbers stand for parts as follows:":ae "NUMBER","PART","NUMBER OF PART NEEDED"e "------","----","----------------------"e );"1","BODY",&);"1"OCKED COLD AND " L$" IS THE WINNER AND CHAMP!";k 8(l L$ " IS KNOCKED COLD AND " J$" IS THE WINNER AND CHAMP!";2l Xl J$ " WINS (NICE GOING," J$;")."bl l$ L$ " AMAZINGLY WINS!!"l. l8l=lB "AND NOW GOODBYE FR   "YOU NOW HAVE";L;"LEGS."j j "YOU HAVE 6 LEGS ALREADY."j k "YOU DO NOT HAVE A BODY."2kX(())8kTk DELAY : DELAYsk "I ROLLED A";X;();"."k X ,8,,,,k "1=BODY"k P CfJ: "YOU ROLLED A";Z;();"."fT Z ^,,,,,fg^ "1=BODY"gh B 3gr "YOU NOW HAVE A BODY.";g|BCgCMg mg "YOU DO NOT NEED A BODY."wg g "2=NECK"g N g B g "Y $k "I NOW HAVE A BODY."kCkPk ^l$ "I DO NOT NEED A BODY."l. ^ l8 "2=NECK"0lB Q ~@lL P [lV "I NOW HAVE A NECK."cl`QkljCult ^l~ "I DO NOT NEED A NECK."l ^l "I DO NOT HOU NOW HAVE A NECK."gNgCg g "YOU DO NOT NEED A NECK."h 'h "YOU DO NOT HAVE A BODY."1h @h "3=HEAD"Ph& N b`h0 H v{h: "YOU NEEDED A HEAD."hDHhNChX hb "YOU DO NOT HAVE A AVE A BODY."l ^l "3=HEAD"l Q l R  m "I NEEDED A HEAD."mRmC'm ^Em "I DO NOT HAVE A NECK."Om ^mm "I DO NOT NEED A HEAD."wm  ^m "4=FEELERS"m R nm( S Zm2NECK."hl hv "YOU HAVE A HEAD."h h "4=FEELERS"i H i A 5i "I NOW GIVE YOU A FEELER."?iAAGiCQi wi "YOU HAVE TWO FEELERS ALREADY."i i "YOU DO NOT HAVE A HEAD."i i "I GET A FEELER."m<SSmFCmP ^mZ "I HAVE 2 FEELERS ALREADY." nd ^'nn "I DO NOT HAVE A HEAD."1nx ^@n "5=TAIL"Pn P `n U {n "I NOW HAVE A TAIL."nUnCn ^n "I DO NOT HAVE A BO "5=TAIL"i B >i  T Ri "I NOW GIVE YOU A TAIL."j TT j*Cj4 5j> "YOU DO NOT HAVE A BODY."?jH `jR "YOU ALREADY HAVE A TAIL."jj\ xjf "6=LEG"jp L jz B jLLjCjDY."n ^n "I DO NOT NEED A TAIL."n ^n "6=LEGS"o V 6o P JoVV&oCCo" "I NOW HAVE";V;"LEGS."Mo, ^do6 "I HAVE 6 LEGS."no@ ^oJ "I DO NOT HAVE A BODY."oT ^o^: DELAY ::e );"2","NECK",&);"1"e );"3","HEAD",&);"1" f );"4","FEELERS",&);"2")f );"5","TAIL",&);"1"Gf );"6","LEGS",&);"6"Mff" "Enter 'RETURN' to start the game.";RR$: ()f, Y  f6Z(())f@  t " HHHHHHH"t " H H"t " H O O H"u " H H"(u " H V H"@u " HHHHHHH"Fu u "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON!!"u "MENU"(u " H V H"@u (): "***** YOUR BUG *****"pp A Dp Z q  );q X Aq "F ";#q& X)q01q: ZAqD H XKqN  [qX N iqb Z ql " N N"qv Zq B q " BBBBBBBBBBBB"q Z q " B B"q Zq T  r "TTTTTB B"&r " BBBBBBBBBBBB"6r L  Dr Z Or );]r X Lir " L";qr Xwr r Zr  Z r*r4 Zr9 "PRESS RETURN TO CONTINUE",Z$: ()r> "***** MY BUG *****"r\rf S  sp Z sz  );$s X S0s "F ";8s X>sFs ZWs R as  qs Q s " N N"s " N N"s P 8 s " BBBBBBBBBBBB"s Z s " B B"s Zt U . "t$ "TTTTTB B"+i4 E Rfi> "DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER"piH  viRi\ E if E ipMiz i WILL DETERMINE WHAT AWARD YOU DESERVE"d^ "(POSTHUMOUSLY IF NECESSARY)."9eh "THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE."?er{e| "THE BETTER THE JOB THE PICADORES AND TOREADORES DO,"e "THE BETTER YOUR CHANCES ARE."e:e Mi iMiLLMiF(AM )()((D()D()D() ))j F\ 3j "THE BULL HAS GORED YOU!"Ij A() ,_j "YOU ARE DEAD."njD()@xj j "YOU ARE STILL ALIVE.":j "DO YOU RUN FROM  "ENTER 'RETURN' TO BEGIN THE FIGHT.";XX$: ()eeeD()fD()f L$()$fA(())2f I >f L$(I)Ff Irf "SUPERB","GOOD","FAIR","POOR","AWFUL"f "YOU HAVE DRAWN A ";L$(A);" BULL."f A fTHE RING";j j  Z1 .j "COWARD"jD()j$ #k. "YOU ARE BRAVE. STUPID, BUT BRAVE."9k8 A() B,VDkBD()NkL kkV "YOU ARE GORED AGAIN!"uk` {kjktZk~: "IT IS THE MOMENT OF TRUTH.":kaa P: ()a ");"BULL":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"-b A(K)(())7b::?bLab "DO YOU WANT INSTRUCTIONS";jb Z$b (Z$,)"N" (Z$,)"n" b ()b "HELLO, A  p T lp T Np A(K) &,:p A$"TOREAD" 2q "ONE OF THE HORSES OF THE ";A$;B$;" WAS KILLED."Hq A(K) &,:qq& "ONE OF THE ";A$;B$;" WAS KILLED."{q0 lq: "NO ";A$;B$;" WERE KILLED."qD lqN Al  KL l ll(l2l< D() n6mF "THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW"ymP "YOUR FACE IN A RING AGAIN, THEY SWEAR THEY WILL KILL YOU--"mZ "UNLES THE BULL DOES FIRST."md ,mn C$"TOREAD" bqX A(K);"OF THE HORSES OF THE ";A$;B$;" KILLED."rb A(K);"OF THE ";A$;B$;" KILLED."!rl'rv-r6r A$^r (A$,)"Y" (A$,)"y" r (A$,)"N" (A$,)"n" r "INCORRECT ANSWER - - PLEASE TYPE (Q)D(Q)()ns D(Q)(L(D()D()) D()D()D()xA)nx D() 7n "THE CROWD CHEERS WILDLY!"An Un D() qn "THE CROWD CHEERS!":n "THE CROWD AWARDS YOU"n C(Q) "n C'YES' OR 'NO'."r rZ1r rZ1rr "MENU""n" r "INCORRECT ANSWER - - PLEASE TYPE r A$^r (A$,)"Y" (A$,)"y" r (A$,)"N" (A$,)"n" r "INCORRECT ANSWER - - PLEASE TYPE (Q) n C(Q)l o "OLE! YOU ARE 'MUY HOMBRE'!! OLE! OLE!"o ,/o "BOTH EARS OF THE BULL!" "COORDINATES OF CHOMP (ROW,COLUMN)";QH R1,C1)QR R1 :Q\ R1R KQf C1 \Qp C1C sQz A(R1,C1) Q A(R1,C1) Q Q#  R R$R (R$,)"Y" (R$,)"y" T : :R$ "MENU"AYER";P1;();".";()R R "ANOTHER GAME"; bCR END OF GAME DETECTED IN LINE 900yR: ();"YOU LOSE, PLAYER";P1;();".";()R R "ANOTHER GAME";I P: ()I );"AMAZINGP PROGRAM"I:J( );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"J2::UJ< " THIS PROGRAM GENERATES MAZES OF DIMENSIONS YOU SPECIFY."JF "EVERY MAZE IS DIFFERENT, AND HAS ONLY ONE WAY THROUGH. THE"JP "MAZE APPEARS ON THE PRINTER. IF YOU WANT THE MAZE ON THE"$KZ "CRT SCREEN, RUN THE 'AMAZING' PROGRAM INSTEAD OF THIS ONE."::wKd "WHAT ARE YOUR WIDTH AND LENGTH (TWO NUMBERS SEPARATED BY A COMMA)";H,VKn H : "TOO WIDE FOR 8 "NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!"Q 4Q IR1 RQ JC1 CRA(I,J) R JR IR bCR END OF GAME DETECTED IN LINE 900yR: ();"YOU LOSE, PLAYER";P1;();".";()R R "ANOTHER GAME";$   P W(R,S) P SV P Z PQ: P W(R,S) QX(())&Q X ,B,:QX(())LQ  X ,B]Q SV 4mQ  Z R{Q*Q: >Q4 W(R,S) RQ>WHEN PAPER IS POSITIONED: ";QQ$L:: "--- Printing ---"::LLLLMQ:Z:X(()H)M I H.M IX AM ".--";: NM ". ";VM I`M "."wMC:W(X,)C:CCMRX:S: TM RH X(())QH X ,QR Q\ RH Qf W(R,S) Qp SV  Rz Z RQ: $2R W(R,S) FRX(())XR X B,bR BsR SV R Z RQ: R @M" SV 6M,R:S: JM6R:SS: JM@RRMJ W(R,S) NT R N^ W(R,S) ,Nh S DNr W(R,S) TN| RH lN W(R,S) NX(())N X ,,BW(R,S) R R RW(R,S)CRCC:V(R,S):RRR CHV  SQ: TSW(R,S)C"S$CCFS.V(R,S):SS:CHV TS8Q: TcSBW(R,S)C~SLCC: V(R,S) `SVV(R,S): jS`V(N SV N Z NQ: N W(R,S) NX(())O X ,,OX(())-O X ,=O RH XUO W(R,S) XfO SV &vO Z DOQ: 0O& W(R,S) R,S)SjRRSt CHV S~ S Q SW(R,S)C:CC: V(R,S) TV(R,S): TV(R,S)6TSS: CHV @T THTZ]T V(R,S) tTV(R,S):Q: TV(R,S):Q:R:S: JT DO0X(())O: X ,B,ODX(())ON X ,BOX SV v Pb Z PlQ: 3Pv W(R,S) GPX(())YP X ,cP uP S \P W(R,S) \P RH  T J VT "I";T  I HT V(I,J) 2T " ";T( <T2 " I";U< I UFUP I H.UZ V(I,J) CUd V(I,J) PUn ": ";ZUx gU ":--";oU IyU "."U JU ( )U "ME INCH PAPER. DO YOU HAVE 15 INCH": "PAPER IN THE PRINTER (Y OR N)";PP$ : xLp (PP$,)"N" (PP$,)"n" : d3Lx H V kL: "MEANINGLESS DIMENSIONS. TRY AGAIN."::: dL W(H,V),V(H,V)L: "HIT 'RETURN' %   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  DISK.DOC -FOG/GAM.008 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/OregonNU"V(I,J) CUd V(I,J) PUn ": ";ZUx gU ":--";oU IyU "."U JU ( )U "MEH.UZ V(I,J) CUd V(I,J) PUn ": ";ZUx gU ":--";oU IyU "."U JU ( )U "ME&  d -- Next line must be last DATA statementd NOMOREDATALFGHT,BULLSEYE,BUZZWORDd| CHANGE,CHECKERS,CHEMIST,CHOMP,BATTLE,BLACKJCK,BOMBARD,BOMBSAWYdr BOUNCE,BOWLING,BOXING,BUG,BULLFGHT,BULLSEYE,BUZZWORDd| CHANGE,CHECKERS,CHEMIST,CHOMPad -- 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)