IMD 1.15: 16/05/2007 7:47:35 fog gam 011         SLALOM BAS!SLOTS BASSPLAT BAS'STARS BAS STOCK BAS7SYNONYM BASTARGET BAS !TICTAC1 BAS "TICTAC2 BAS#$TOWERS BAS%&TRAIN BAS'TRAP BAS (WAR BAS)WEEKDAY BAS*+WORD BAS,-FOG/GAM011DISK DOC-a2 (): Pad !);"QUBIC":bn );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"bx:::b "DO YOU WANT INSTRUCTIONS";Cb C$\b (C$,)"N" ;ub (C$,)"Y"  b "INCORRECT ANSWER. PLEASE TYPE 'YES' OR 'NO'";b b b "THE GAME IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE.".c "EACH MOVE IS INDICATED BY A 3 DIGIT NUMBER, WITH EACH"pc" "DIGIT BETWEEN 1 AND 4 INCLUSIVE. THE DIGITS INDICATE THE"c, "LEVEL, ROW, AND COLUMN, RESPECTIVELY, OF THE OCCUPIED"QUBIC BAS.QUEEN BASROCKET BASMENU BASROULETTEBAS, RUSROU BAS SALVO BAS7 SINEWAVEBAS  J)h4 X(M) \h> X(M)hH "MACHINE MOVES TO";hR "h\ Jif ", AND WINS AS FOLLOWS"*ip J 9iz MM(I,J)Ci "Ki JUi ii L(I) i "NICE TRY. MACHINE MOVES TO";i J  i MM(I,J)iS ON PAPER."d7d8 "TO STOP THE PROGRAM RUN, TYPE 1 AS YOUR MOVE."d9:e; X(@),L(L),M(L,),Y()0e@ I  ;eJ Y(I)CeT IRe^ I Lbeh J  nerM(I,J)ve| J~e Ie I  @e X (I) e Ie Z X(M) i X(M)i "i i Ji iI-j L(I)X(M(I,))X(M(I,))X(M(I,))X(M(I,)) 4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64vrH 1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61rR 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62r\v v "-- PRINTING --": XX ::: I v Jv I1Jw " ";w I1w K0w( QIJKAw2 X(Q)OF Sw< "( ) ";dwF X(Q)Z vwP "(M) ";wZ X(Q)d w_ "(Y) ";wd X(Q)n ";m m "MENU"m" K1((M))m, J2M(K1) n6 K2((J2))+n@ K3M(K1)(K2)BnJ MK1dK2 K3KnT M;Qn^`nh S Lrnr J1 M(S,)n| J2M(S,)n J3M(S,)n J4M(S,)n L(S)X  (M1 )LU1M1 T1L U1 L U1T1 L "PLEASE READ THE DIRECTIONS AGAIN."M "YOU HAVE BEGUN ILLEGALLY."$M.M d8M eM "COMPUTER MOVES TO SQUARE";M;();"."vM M H M "WHAT IS YOUR MOVE";M M1M M1 MM "IT LOOKS LIKE I HAVE WON BY FORFEIT."MM N M1M  NT1(M1 )"NU1M1 T1-NPU1U>N P ,INLT1TZN" L  dN' yN, T1T P @N6 N@ T1T P I (): P: !);"QUEEN":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"I:: J S(@)J I @#J S(I)+J IXJ 81, 71, 61, 51, 41, 31, 21, 11J 92, 82, 72, 62, 52, 42, 32, 22J 103, 93, 8 NJ N LOCATE MOVE FOR COMPUTERN M1) N M1, N M1I O M1K !O M1~ 3O M1 EO  M1  MOC`O K  iO UU1tO*TT1K~O4  O9 C pO>UUK3, 73, 63, 53, 43, 33J 114, 104, 94, 84, 74, 64, 54, 44 K 125, 115, 105, 95, 85, 75, 65, 559K 136, 126, 116, 106, 96, 86, 76, 66fK 147, 137, 127, 117, 107, 97, 87, 77K 158, 148, 138, 128, 118, 108, 98, 88KOH  OM C pORTTKO\  Oa C pOf KOk OpCOzP  PP RANDOM MOVE(P Z() COMPUTER WINS+RH [RR "NICE TRY, BUT IT LOOKS LIKE I HAVE WON."wR\ "THANKS FOR PLAYING."}Rf Rp R TEST F  hB(A$)h B " ";A$;:B$(B$,((B$))): h B i B. >i B0 B9 ( ););( );: KiB$B$A$Ui biB(B$)ri B i B Bi BF BFiV1VBi0FFBi: UNITS OF FUEL YOU WISH TO BURN DURING THE"e " NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT"6e" " BY 1 FT/SEC."xe6 "(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR"e@ " 30 UNITS OF FUEL PER SECOND."eJ "(4) WHHH(VV1)iD H iNTTiXVV1ib F jg B 2jl ();"**** OUT OF FUEL ****";()j "###";T;: "####.#";H;: "####.#";V;: "####.#";F;: " |";H);"*"jBj j ();"**** CONTEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE"$fT " WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A"af^ " REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."fh "(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR,"fr " ACT ****";():jHH(VV1)j B  kD(V(VVH( B)))(B)k kDHV0kV1V(B)DTk "TOUCHDOWN AT";TD;"SECONDS."~k "LANDING VELOCITY =";V1;"FEET/SEC."k  "UNITS OF FUEL REMAINING:";Fk V1  BUT YOUR SECOND-BY-SECOND REPORT WILL CONTINUE UNTIL"g| " YOU CONTACT THE LUNAR SURFACE.": "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."lH: : lR "ANOTHER MISEED FUEL PLOT OF DISTANCE"g "--- ---- ----- ---- ----------------"hT:H:V2:Fxsh "###";T;: "####.#";H;: "####.#";V;: "####.#";F;: " |";H);"*"hB$"": "BURN? ";hA$h A$"" h A$;SION";A$l\ (A$,)"Y" lf: "CONTROL OUT.": l "MENU"YOUR NEXT OF KIN."lH: : lR "ANOTHER MIS "SORRY, BUT YOU BLEW IT!!!!"l> "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."lH: : lR "ANOTHER MIScc "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:"c9d "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING"\d " FUEL WILL BE REPORTED."d "(2) AFTER THE REPORT, A '?' WILL BE TYPED. ENTER THE"d " NUMBER OF  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  -----"d "25* 26 27*"d "28 29 30*"d "31 32* 33 "e "34* 35 36*"-e "---------------"Ee " 00 0 "Oe::ee "TYPES OF BETS"{e "-------------"e  e "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET"e "ON THAT NUMBER."e( "THESE PAY OFF 35:1"e2 f< "THE 2:1 BETS ARE:"0fF " 37) 1-12 40) FIRST COLUMN"XfP " 38) 13-24 41) SECOND COLUMN"fZ " 39) 25-36 42) THIRD COLUMN"fd fn "THE EVEN MONEY BETS ARE:"fx "aa (): Pa  );"ROULETTE":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"!b::^b( "ENTER THE CURRENT DATE (AS IN 'JANUARY 23, 1979') -";jb2 D$,E$zb -ROULETTEb -DAVID JOSLINb:b "WELCOME TO THE R 43) 1-18 46) ODD"f " 44) 19-36 47) RED"g " 45) EVEN 48) BLACK" g /g " 49)0 AND 50)00 PAY OFF 35:1"^g " NOTE: 0 AND 00 DO NOT COUNT UNDER ANY"g " BETS EXCEPT THEIR OWN."g ( )g "ENTER 'RETURN' TO COOULETTE TABLE"b b "DO YOU WANT INSTRUCTIONS";b Y$ c$ (Y$,)"N" ^c. "MAKE SURE THE PRINTER IS ON. ENTER 'RETURN WHEN YOU ARE READY.";ANS$c0:: "--- Printing ---"::c8 "THIS IS THE BETTING LAYOUT":::cNTINUE.";RESP$: ()g "WHEN I ASK FOR EACH BET, TYPE THE NUMBER"'h "AND THE AMOUNT, SEPARATED BY A COMMA."-heh "FOR EXAMPLE: TO BET $500 ON BLACK, TYPE 48,500"h "WHEN I ASK FOR A BET."h h "THE MINIMUM BET IS $5, THE B " (*=RED)"cL cV " 1* 2 3*"c` " 4 5* 6 " dj " 7* 8 9*"%dt "10 11 12*"=d~ "---------------"Ud "13 14* 15 "md "16* 17 18*"d "19* 20 21*"d "22 23* 24 "d "----------MAXIMUM IS $500."h h -PROGRAM BEGINS HEREi -TYPE OF BET(NUMBER) ODDS i"(i, B(d),C(d),T(d),X(&)5i6 A(2)_i@ I &: X(I): I: MAT X=ZERjiJ PwiT DPCi^: "HOW MANY BETS";ih Yimir Y Y   SECOND COLUMN(41) 2:1n I # n SI fn Io$ > o. THIRD COLUMN(42) 2:14o8 I $ EoB SI fNoL IYoV >no` 1-18(43) 1:1oj S ~ ot >o~ "YOU WIN";B(C);"DOLLARS ON BDE THAT BET ONCE ALREADY."j j A(X)j Ck: "SPINNING........" k k (k& S(()d)@k0 S S& &Qk: X(S)X(S)ckD S% ukN S% lkX ();" 00 ";()kb kl ();" ET";C;();"."o DDB(C)o PPB(C)o  o 19-36(44) 1:1p S% S ~ p >4p EVEN(45) 1:1Tp S(S) S% ~ _p >sp ODD(46) 1:1p S(S) S% ~ p >p RED(47)0 ";()kv k k I1 k Rk RS l I1l A$"BLACK"7l ();" ";S;" ";A$;" ";()Bl Pl A$"RED"[l cl:rl C Yl T(C)%  l T(C)$ *,,,,,.  1:1p p I p Rp( SR ~ p2 Ip< >qF BLACK(48) 1:1qP 'qZ I 0qd RAqn SR >Jqx I\q S$ >gq ~ q --1TO36,0,00(1-36,49,50)35:1q T(C)1  q T(C)1 ,` , , l  T(C)-  , ,F l  l  XX ::"MENU"m* 1-12(37) 2:1(m4 S  f\m> "YOU LOSE";B(C);"DOLLARS ON BET";C;();"."jmH DDB(C)xmR PPB(C)m\ mf "YOU WIN";B(C);"DOLLARS ON BET"C; S%  q T(C)2 S&  q >q T(C)S  r >7r "YOU WIN";B(C)#;"DOLLARS ON BET";C;();"."Hr DDB(C)#Yr PPB(C)#ar Cir r "TOTALS:": "------":r "ME --"; );: "$$##,###";D: ();"."mp DDB(C)mz PPB(C)m  m 13-24(38) 2:1n S S fn >2n 25-36(39) 2:1Kn S S% fVn >sn FIRST COLUMN(40) 2:1n I " n SI fn In >n "YOU --"; );: "$$##,###";Pr :r" P @ s, "OOPS! YOU JUST SPENT YOUR LAST DOLLAR!"'s6 v 8s@ D h [sJ "YOU BROKE THE HOUSE!"hsT PDEss^  sh : "AGAIN";sr Y$s| (Y$,)"Y" ^s (Y) ^i| I 2: A(I): I: MAT A=ZERi C Yj "BET NUMBER";C;();j X,Z(j B(C)Z4j T(C)XWj X X2 X(X) sj Z Z(Z) j Z Z j A(X) j "YOU MA   t "PAY TO THE ORDER OF-----";B$;"-----$ ";t Pt t #u&  ),"THE MEMORY BANK OF NEW YORK"+u0 Fu: (),"THE COMPUTER"duD ()"----------X-----"luN uX I >: "-";: Iub "COME BACK SOON!"ul  uaa (): P: );"RUSSIAN ROULETTE":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"%b::[b "THIS IS A GAME OF >>>>>>>>>>RUSSIAN ROULETTE."yb : "HERE IS A REVOLVER."b "TYPE '1' TO SPIN CHAMBER AND PULL TRIGGER."bv "THANKS FOR YOUR MONEY."v "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL" v v \ v Sv THIS ROUTINE RETURNS THE CURRENT DATE IN M$v IF YOU HAVE SYSTEM FUNCTIONS TO HANDLE THISv THEY CAN BE USED HERE. HOW "TYPE '2' TO GIVE UP."::b "GO:": "==":bNb Ic I #c " CHICKEN!!!!!"'c! H1c#NNIc( ()PUU FZc- N Plc2 "- CLICK -"yc<: cF " BANG!!!!! YOU'RE DEAD!"cG "CONDOLENEVER IN THISv PROGRAM, WE JUST INPUT THE DATE AT THE STARTw THE GAME w 9w THE DATE IS RETURNED IN VARIABLE M$Kw M$D$", "E$Qw mw\ XX  :: "MENU"w THE GAME w 9w THE DATE IS RETURNED IN VCES WILL BE SENT TO YOUR RELATIVES."cH::dK "ANOTHER VICTIM";X$: (X$,)"Y"  : "MENU"-dP "YOU WIN!!!!!"[dU "LET SOMEONE ELSE BLOW HIS BRAINS OUT."edZ  kdcTIM";X$: (X$,)"Y"  : "MENU"-dP "YOU WIN!!!!!"[1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36s P v t "TO WHOM SHALL I MAKE THE CHECK";#t B$+t Zt I >: "-";: I: PRINT 62 DASHESt 2)"CHECK NO. ";(()d)t t  t ();M$t t   ( ),G( ),H( ),K( , )bZ8b$ W  b.E(W)b8H(W)cB WcL X  cV Y  +c`B(X,Y)3cj Y;ct XJc~ X  UcF(X)`cG(X)hc Xwc X  c Y  cA(X,Y)c Yc Xc K   cU6c ^ c A(K)(K)(K)(K)d B(K)K(K)(K)'d  VV2VV2 @d YVB(K) Xd YVB(K) rd( XV2B(K) d2 XV2B(K) d<U6U6dF U6 dP Z B(K)dZF(ZA(K))XV2ZddG(ZA(K))YVZdn ZdxU8A(K)e} U8U8B(K) +e Z2 U8 U8B(K)"fO "------------"fT X f^ Y,ZghB(Y,Z) gr X"g|: "DESTROYER"7g "------------"Eg X Og Y,Z`gB(Y,Z)hg Xg: "DO YOU WANT TO START";g J$g J$"WHERE ARE YOUR SHI  Y) ;();"."l l W Al A(C(W),D(W))  m A(C(W),D(W))  'm A(C(W),D(W))  Fm A(C(W),D(W)) ( \m A(C(W),D(W)) Cdm Wnm < m "YOU HIT MY BATTLESHIP."m  m "YOU HIT MY CRUIS "DESTROYER"h? "------------"hD F( );G( )hN F( );G( )iX  ibC0il: "DO YOU WANT TO SEE MY SHOTS";9iv K$?iYi (J$,)"Y" < wi*******************STARTi (J$,)"Y" iCCii "TURN";ER."m  m "YOU HIT MY DESTROYER."m  n( "YOU HIT MY DESTROYER."n2  n< A4nF (J$,)"Y" n >nP CCDnZ Snd "TURN";Ccni "-------"knn Anx W  n X  n Y  n A(X,YCi "-------"iAi W  i X  j Y  j B(X,Y)W j Y%j X/j   CjAA(W)Kj  WYj* W dj4C(W)oj>D(W)zjHF(W)jRG(W)j\ WjfP3jp X  jz Y)W  n Yn Xn  n AA(W)n Wn P3o X  o Y  +o A(X,Y)  7o P3P3?o YGo Xao "I HAVE";A;"SHOTS."ro" P3A @ o, "I HAVE MORE SHOTS THAN BLANK SQUARES."o6 o@   j A(X,Y) jP3P3j Yj Xk "YOU HAVE";A;"SHOTS."k P3A Nk "YOU HAVE MORE SHOTS THAN THERE ARE BLANK SQUARES."Xk J ik A }k "I HAVE WON."k XX :: "MENU"k W Ak X A  oJ "YOU HAVE WON."oT XX :: "MENU"p^ X(() )ph Y(() )+pr V(())@p| V2(())Fp Up W  hp H(W) pp Wp *******************RANDOMp Wp R3p ^ p ,Yk X(X) B k X B k X B k$ Y(Y) B l. Y B l8 Y V "h! "------------"h& F();G()h0 F( );G( )h::  vP vZ M(R) ( R)vd N(S) ( S)wn NMNM ,wx B(RM,SN)E(U) TwK(R,S)K(R,S)E(U)S(H(U))\w Ndw Mlw Stw R|w Uw R AwF(R)RwG(R)Rw Rw r Q9r WWr* l r4 (K$,)"Y" \ r> Z5 AsH F(Z5);G(Z5)sR Z5s\ W A9sf B(F(W),G(W))  Tsp B(F(W),G(W))  osz B(F(W),G(W))  s B(F(W),G(W))  s B(F(W),G(W)) Cs WsR  w S  wQ9w M Ax K(F(M),G(M))K(F(Q9),G(Q9)) "xQ9Mx" M'x# RA ,7x$ RS rYx, K(R,S)K(F(Q9),G(Q9)) rgx6 M A{x@ F(M)R ^xJ G(M)S rxT Mx^F(Q9)RxhG(Q9)S s "I HIT YOUR BATTLESHIP"s  s "I HIT YOUR CRUISER"t  #t "I HIT YOUR DESTROYER"-t  Mt "I HIT YOUR DESTROYER"\t Q  qt E(Q) tE(Q) CtH(Q)B(F(W),G(W))tM3t$ M2  xr Sx| Rx 4 x "MENU"x N ()$y*N " SALVO IS PLAYED ON A 10X10 GRID USING AN X,Y COORDINATE"dy4N "SYSTEM. THE PLAYER HAS 4 SHIPS: BATTLESHIP (5 SQUARES),"y>N "CRUISER (3 SQUARES), AND TWO DESTROYERS (2 SQUARES EACH)."yHN "Tt. H(M2)H(Q) Bt8M3M3tB M2uL M3(H(Q))((H(Q)))  !uV M2  9u` H(M2)H(Q) ~FujE(M2)SutH(M2)\u~ M2fu  nu Qu "PROGRAM ABORT:"u Q  u "E(";Q;") =";E(Q)uHE SHIPS MUST BE PLACED HORIZONTALLY, VERTICALLY, OR"#zRN "DIAGONALLY AND MUST NOT OVERLAP. THE SHIPS DO NOT MOVE"g> " THE AMERICAN TEAM'S ONLY HOPE OF A GOLD MEDAL."DgHgM " 0 -- TYPE THIS IS YOU WANT TO SEE HOW LONG YOU'VE TAKEN."gR " 1 -- TYPE THIS IF YOU WA  l "YOU WENT OVER THE NAXIMUM SPEED AND MADE IT!"lm( "YOU WENT OVER THE MAXIMUM SPEED AND ";.m2 () ZAm< "WIPED OUT!"gmF "YOU TOOK";(T());"SECONDS."qmP mZ "SNAGGED A FLAG!"md Fmn "LET'S BE REALISTIC, TO CHECK A TEENSY."h " 6 -- TYPE THIS IF YOU WANT TO CHECK A LITTLE."5i " 7 -- TYPE THIS IF YOU WANT TO CHECK A LOT."~i " 8 -- TYPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE."ii " THE PLACE TO USE THESE OPTIONS IS OK? LET'S GO BACK AND TRY AGAIN..."mx SS1m &m "WHAT?"n Dn AFTER 'AGAIN?'."]c Pqc: "YOUR BET";yc Mc Md \c M pcM(M)c 6,25,33,31,22q& "MENU" "BRONZE MEDALS:";B()q 14,18,26,29,18,25,28,32,29,20,29,29,25,21,26,29,20,21,20q 18,2:";S()Iq B() &eq "BRONZE MEDALS:";B()q 14,18,26,29,18,25,28,32,29,20,29,29,25,21,26,29,20,21,20q 18,2   hL hV " PLUM";: h` hj " CHERRY";: ht  i~ " BAR"i "i " BELL",i  "YOU WON!" j?P(((M)M)P)*j@ 0jF=j' "MENU" T8 i( ();i2 T8i<i=: "DOUBLE!!" j> "YOU WON!" j?P(((M)M)P)*j@ 0jF! PLEASE LEAVE YOUR MONEY ON THE TERMINAL."e Ff "HEY, YOU BROKE EVEN." f F@f "COLLECT YOUR WINNINGS FROM THE H&M CASHIER."Jf FZf Z  sf: "**TOP DOLLAR**"f "YOU WON!"fP((( M)M)P)f f : "***JACKPOT***"f "YOU WON!"f P(((dM)M)P)f* g4: "*DOUBLE BAR*"g> "YOU WON!"'gHP(((M)M)P)1gR Og\ "HOUSE LIMITS ARE $100"Ygf sgp "MINIMUM BET IS $1"}gz g g "BAR";: g Jg "BELL";: g Jg "ORANGE";: g Jg "LEMON";: h Jh "PLUM";: h J5h "CHERRY";: ?h JSh " BAR";: ]h rh " BELL";: |h$ h. " ORANGE";: h8 hB " LEMON";:cc X(())c Y(())c Z(())c d X ,,,,,BdJ Y ,,.,B,V,jdd Z ~,,,,,td XY Xd XZ vd YZ d:"YOU LOST."d P  "MOMENT WITHOUT GOING SPLAT."bv::D1:V:A:N:M:D1()#())?cw "SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)";: A1$ Ycx (A1$,)"N" cy (A1$,)"Y" "YES OR NO";: A1$: xc{ "WHAT TERMINAL VELOCITY (MI/HR)";: V1 c}V1V1():VV1((V1()))((V1())):  dV1(())7d "OK. TERMINAL VELOCITY ="V1"MI/HR"qdV1V1():VV1((V1()))((V1())) d: "WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)"; d B1$d (B1$,)"N"  e (B1$,)"Y" "YES OR NO";: B1$: 9e "WHAT ACCELERATION (FT/SEC/SEC)";: A2 heAA2((A2()))((A2())): e (( ())),,,,,,,,, e"FINE. YOU'RE ON MERCURY. ACCELERATION=12.2 FT/SEC/SEC.":1f"ALL RIGHT. YOU'RE ON VENUS. ACCELERATION=28.3 FT/SEC/SEC.":uf "THEN YOU'RE ON EARTH. ACCELERATION=32.16 FT/SEC/SEC.":  f"FINE. YOU'RE ON THE MOON. ACCELERATION=5.15 FT/SEC/aa (): Pa !);"SPLAT":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b(::*b2 A(*)lb_ "WELCOME TO 'SPLAT' -- THE GAME THAT SIMULATES A PARACHUTE"b` "JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE" ba SEC.": g"ALL RIGHT. YOU'RE ON MARS. ACCELERATION=12.5 FT/SEC/SEC.":  Dg"THEN YOU'RE ON JUPITER. ACCELERATION=85.2 FT/SEC/SEC.": g"FINE. YOU'RE ON SATURN. ACCELERATION=37.6 FT/SEC/SEC.": g"ALL RIGHT. YOU'RE ON URANUS. ACCE  D FOR YOUR ";l| J "1ST ";l} J "2ND ";m~ J "3RD ";'m "SUCCESSFUL JUMP!!!":: Bm KK1L}K  \m KK1K wm KK1K  m KK1@K m KK1fffK  mH:  hA2ff*:  hA2ff:  hA233 :  iA2ff:  iA2:  iFi " ALTITUDE ="D1"FT" ui " TERM. VELOCITY ="V1"FT/SEC +/-5%"i " ACCELERATION ="A2"FT/SEC/SEC +/-5%"i:  m: "WOW! THAT'S SOME JUMPING. OF THE"K"SUCCESSFUL JUMPS"7n "BEFORE YOURS, ONLY"KK1"OPENED THEIR CHUTES LOWER THAN" In "YOU DID." Sn n: "PRETTY GOOD! " K"SUCCESSFUL JUMPS PRECEDED YOURS AND ONLY"n KK1" OF THEM GOT "SET THE TIMER FOR YOUR FREEFALL." :i "HOW MANY SECONDS";: Tij "HERE WE GO."j mk INITIAL PORTFOLIO CONTENTS {k" I k, P(I)k1 Z(I)k6 Ik@ kJ kMOES NOT" f "REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TABLE"h "TYPE +NNN, TO SELL A STOCK TYPE -NNN, WHERE NNN IS THE" h "NUMBER OF SHARES. A BROKERAGE FEE OF 1% WILL BE CHARGED"h "ON ALL TRANSACTIONS. NOTE THAT IF A STOS()l` "RED CROSS OF AMERICA"," RCA",: F1$;S() !mb "LICHTENSTEIN, BUMRAP & JOKE"," LBJ",: F1$;S()Umd "AMERICAN BANKRUPT CO."," ABC",: F1$;S()mf "CENSURED BOOKS STORE"," CBS",: F1$;S() mh mi NYSE AVERAGE:Z5; TEMP. VCK'S VALUE DROPS"h "TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN. YOU"Bi "HAVE $10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS."i "(NOTE: TO GET A 'FEEL' FOR THE MARKET RUN FOR AT LEAST" i "10 DAYS)":i "-----GOOD LUCK!--ALUE:Z4; NET CHANGE:Z6 mk Z4Z5 ml Z5mm T mr I nw Z5Z5S(I)n| TTS(I)P(I) %n IFn Z5(d(Z5))d gn Z6((Z5Z4)d)d}n TOTAL ASSETS:D n DTC n X9 n "NEW YORK STO---" :i "HIT 'RETURN' TO START THE GAME.";XX$::j GENERATION OF STOCK TABLE; INPUT REQUESTS 7j INITIAL STOCK VALUES Ej S()dTj S()U bj S()pj S()~j S()nj  INITIAL T8 - # DAYS FOR FIRST TREND SLOPE CK EXCHANGE AVERAGE: "Z5 n  +o "NEW YORK STOCK EXCHANGE AVERAGE: ";: "####.##";Z5;: " +###.##";Z6 2o Mo T(dT)d zo "TOTAL STOCK ASSETS ARE ";: F2$;To C(dC)d o "TOTAL CASH ASSETS NS"; e{ Z9$e| e} e~ (Z9$,)"N" e ()4f "THIS PROGRAM PLAYS THE STOCK MARKET. YOU WILL BE GIVEN" wf "$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL"f "BE GENERATED RANDOMLY AND THEREFORE THIS MODEL D   t X9 t "STOCK PRICE/SHARE CHANGE HOLDINGS VALUE" RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUSKv? DAY'S VALUES v@ N1,N2 ARE RANDOM NUMBERS OF DAYS WHICH RESPECTIVELYvA DETERMINE WHEN STOCK I1 WILL INCREAI) b qN P5P5Z(I)S(I) qX l qb S5S5Z(I)S(I) rd Z(I)P(I) l  0t PRINT PORTFOLIO`t BELL RINGING-DIFFERENT ON MANY COMPUTERS gt t "********** END OF DAY'S TRADING **********"t tx  x X1 x X1x  y X1@ y X1@ y  /y X1@ey BIG CHANGE CONSTANT:W3 (SET TO ZERO INITIALLY)py W3y E1 y (I1)(I)  y ARE ";: F2$;Co D(dD)d p "TOTAL ASSETS ARE ";: F2$;Dp "p X9 Kp "DO YOU WISH TO CONTINUE?";Q9$:ep (Q9$,)"N" p INPUT TRANSACTIONS p "WHAT IS YOUR TRANSACTION IN" p "IBM  ((X))W3 z C(I)(dC(I))d z S(I)S(I)C(I){ S(I) { C(I)({ S(I)3{  T{ S(I)(dS(I))d \{ I{ AFTER T8 DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE { T8T8 { T8 {{ RANDOMLY CHANGE TREND SIGN AND SLOPE (A), AND DURATION | OF TREND (T8)*| T8((X)) N| A(((X) )d)d ^| S4(X) t| S4 | AA|} D' "YOU BROKE EVEN." : D' "YOU MADE A PROFIT OF";: F2$;D' : D' "YOU LOST";: F2$;'D} "MENU"EVEN." : D A(((X) )d)d ^| S4(X) t| S4 | AA|} D' "YOU BROKE EVEN." : Daa (): Pa !);"SYNONYM":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY""b: : Ab R$(),W$( ),L(),R()bR$()"RIGHT.": R$()"CORRECT.": R$()"FINE.": R$()"GOOD!"bR$()"CHECK."bFCbZ "A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH"cd "LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME";,cn " MEANING."2cxac "I CHOOSE A WORD -- YOU TYPE A SYNONYM."c "IF YOU CAN'T THINK OF A SYNONYM, TYPE THE WORD 'HELP'"c "AND I WIADD 10 PTS. TO THIS STOCK; RESET E1 y W3 y E1y E2 $z (I2)(I)  Vz SUBTRACT 10 PTS. FROM THIS STOCK; RESET E2ez W3W3 pz E2z C(I) IS CHANGE IN STOCK VALUEz C(I)(AS(I))X1  : d " WHAT IS A SYNONYM OF ";W$(G);: A$d A$"HELP" Te K N2e GK ",e A$W$(K) @4e" KSe, " TRY AGAIN.": re@ R$((())): eTG1(()L())eh "**** A SYNONYM OF ";W$(G);" Iaa (): Pa !);"TARGET":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"!b: : e "COMPUTER MOVES";MDeJede "AND WINS ********"ne tee "PLAY AGAIN";ANS$e (ANS$,)"Y"  : "MENU"VES";MDeJede "AND WINS ********"ne tee "PLAY AGAIN";ANS$e (ANS$,)"Y"  : "MMPUTER MOVES";MDeJede "AND WINS ********"ne tee "PLAY AGAIN";ANS$e (ANS$,)"Y"  : "Ma (): Pa );"TIC TAC TOE":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b::$b2Kbd THIS PROGRAM PLAYS TIC TAC TOEjbn THE MACHINE GOES FIRSTbx "THE GAME BOARD IS NUMBERED:": b "1 2 3": "8 9 4": "7 6 5"bbbbb M(X)X((X))b c MAIN PROGRAMcccA%cMA/c 7cPMEcBM(P)McMBWc" _c,QMuc6 QM(B) hc@CM(B)cJMCcT c^ chCM(B)crMCc| cRMc RM(C) cDM(C)cMDc d  d P(P) .dDM(C)6dMD@d Jd XdDM(C)`dMDjd rdSMd SM(D) Nd&EM(D)d0MEd: dD  ):NS()N:"THE COMPUTER MOVES TO..."NNNGNJKOK,JOS()G!O3OP$"X":Q$"O"PO:"WHERE DO YOU MOVE";MyO M ϑ"THANKS FOR THE GAME.": OM OS(M)"X"J<P$"O":Q$"X"JdG:H:S()gJfS():JgS()jJhS()nKiS():&KjS()S()=KkS()S()UKlS() S()lKmS()S()yKnGpKovKpJ((M))O"THAT SQUARE IS OCCUPIED.":::OG:S(M)O O dP:I:" ";:S(I)PQ$" ";:(P S(I) 8P" ";:DPP$" ";WPIIlP:"---+---+---"vP 8PI8P$"!";P8I::Kq((M))MKKr((M))MKKs((M))MKKtxLvJ:KLxS(J)G*LzS(J)G=L~S(J)PLS(J):`LS(J)HsLS(J)GLS(J)GLS(J)::PG IPLS(I)S(I)[PQS(I)S(I)[PVS(I)FPXS(I)Q[I:I:S(I)S(I)~+QjS(I)S(I)~ pkC *** CHECK IF DISK TO BE PLACED ON A LARGER ONEkH DT(R,N) pTkR "YOU CAN'T PLACE A LARGER DISK ON TOP OF A SMALLER ONE,"k\ "IT MIGHT CRUSH IT!": "NOW THEN, ";: kk *** MOVE RELOCATED DISKkp V f: "GOOD LUCK!": f "ENTER 'RETURN' TO START THE GAME. ";RESP$gY: Dg XS  5gT(Y,)D: DD: YY=g XGg zg:: "WHICH DISK WOULD YOU LIKE TO MOVE";:Eg Dg (D)(D)(D)(D)(D )(D ) : W k T(V,W)D k W: Vl *** LOCATE EMPTY SPACE ON NEEDLE Nl U ,l T(U,N) 4l UClU: ql *** MOVE DISK AND SET OLD LOCATION TO 0{lUUlT(U,N)T(V,W): T(V,W)l *** PRINT OUT CUR(D) Dg "ILLEGAL ENTRY... YOU MAY ONLY TYPE 3,5,7,9,11,13, OR 15."hEE: E 0h& _h0 "STOP WASTING MY TIME. GO BOTHER SOMEONE ELSE.": "MENU"hD *** CHECK IF REQUESTED DISK IS BELOW ANOTHERhN R hX C RENT STATUSl l *** CHECK IF DONElMMl R : C m T(R,C) B"m$ C: R,m8 `>mB M }mL "SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE MORE THAN"mV "128 MOVES.": "MENU"m` MS thb T(R,C)D hl C: Rh QR  h T(Q,C)  i T(Q,C)D i Qi ]i "THAT DISK IS BELOW ANOTHER ONE. MAKE ANOTHER CHOICE."gi oiEi "PLACE DISK ON WHICH NEEDLE";Ni (N)(N)(N) mj: "CONGRATULATIONS!!":mt "YOU HAVE PERFORMED THE TASK IN";M;"MOVES."&n~: "TRY AGAIN (YES OR NO)";: A$?n (A$,)"N" ncn (A$,)"Y" (): Zn: "'YES' OR 'NO' PLEASE";: A$: n *** PRINT SUBROUTINEn  iEEi E  j "I'LL ASSUME YOU HIT THE WRONG KEY THIS TIME. BUT WATCH IT,";j "I ONLY ALLOW ONE MISTAKE.": qj  "I TRIED TO WARN YOU, BUT YOU WOULDN'T LISTEN."j "BYE BYE, BIG SHOT.": "MENU"j  R j* T(R,N (): XX ::n K nZ n J o T(K,J) 2o Z(T(K,J)));-o  V T(K,J)Fo ();"*";();No VXo( <uo2 Z);();"*";();o<ZZoF JoPoZ Kodon: "THANKS FDE NAMES WOULD BE 13 AND 15. WITH 3 DISKS"fr "THE CODE NAMES WOULD BE 11, 13 AND 15, ETC. THE NEEDLES"Ufw "ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3. WE WILL"f| "START WITH THE DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE THEM"f "TO NEEDLE 3.""  aa (): P: !);"TRAIN":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b: : Fb "TIME - SPEED DISTANCE EXERCISE": \b C(())(qbD(())bT(())b " A CAR TRAVELING";C;"MPH CAN MAKE A CERTAIN TRIP IN"b D;"HOURS LESS THAN A TRAIN TRAVELING AT";T;"MPH."c!-c# "HOW LONG DOES THE TRIP TAKE BY CAR";5c( AEc-VDT(CT)dc2E(((VA)dA))tc7 E Fc< "GOOD! ANSWER WITHIN";E;"PERCENT."cA PcF "SORRY. YOU WERE OFF BY";E;"PERCENT."cP "CORRECT ANSWER IS";V;"HOURS."cZ$d_ "ANOTHER PROBLEM (YES OR NO)";-dd A$3diPdn (A$,)"Y" :  ]d "MENU"T ANSWER IS";V;"HOURS."cZ$d_ "ANOTHER PROBLEM (YES OR NO)";-dd A$3OR THE GAME!": : "MENU"VXo( <uo2 Z);();"*";();o<ZZoF JoPoZ Kodon: "THANKS Fo ();"*";();No VXo( <uo2 Z);();"*";();o<ZZoF JoPoZ Kodon: "THANKS F#  ANS$,)"Y"  f (ANS$,)"y" f "MENU"OU GOT IT!!!"f f "WANT TO TRY AGAIN";ANS$f (();"."K A(A)(A)JK T( )^K B(A)(A)K SPACE OUTPUT AND READ IN INITIAL VALUES FOR MONTHS.TINUE";f0 V$f: (V$,)"Y" hfD (V$,)"N" gN "YES OR NO, PLEASE. ";gX gb%gl`gv "WE HAVE RUN OUT OF CARDS. FINAL SCORE: YOU: ";B1;~g " THE COMPUTER: ";A1:g "THANKS FOR PLAYING. IT WAS FUN."gK I   K T(I)K IK"ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)";K M,D,Y L ()$L I1 ((Y)d)QL TEST FOR DATE BEFORE CURRENT CALENDAR.fL" Y.  ~L, A I1(I1)L6 I2(AB(A))Lg "S-2","H-2","C-2","D-2","S-3","H-3","C-3","D-3"h "S-4","H-4","C-4","D-4","S-5","H-5","C-5","D-5"Oh "S-6","H-6","C-6","D-6","S-7","H-7","C-7","D-7"h "S-8","H-8","C-8","D-8","S-9","H-9","C-9","D-9"h "S-10","H-10","C-10","D-10","S-J","@ Y2(Yd)LJ Y3 (YY2d)LT A Y3Y3DT(M)I2L^ B(AB(A))Mh M  Mr Y3  ,M| T1(YA(Y))@M T1  QM B [M BiM B BsM M A I1M T1(AA(A)HOOSE NOT TO"c "CONTINUE OR WHEN YOU HAVE FINISHED THE PACK."c:0d "PLEASE STAND BY WHILE I SHUFFLE THE DECK......"6dId A$(4),L(6)Xd I 4dd A$(I)ld Irdd J 4d" L(J)(4())d' J ^d,%  ,R 8R K5  .R "YOU HAVE PLAYED/STUDIED",R$ 8S. "YOU HAVE WORKED/PLAYED", S8 ZS= ASB "YOU HAVE RELAXED ",: F$;K5,K6,K7HSL uSV );"*** YOU MAY RETIRE IN";E;" ***"{S`StS "ENTER 'RETURN PRINT THE DAY OF THE WEEK THE DATE FALLS ON.N: B  NND "SUNDAY."NN B b OX "MONDAY."Ob B v,Ol "TUESDAY."=Ov B PO "WEDNESDAY."aO B sO "THURSDAY."O B O O B' TO DISPLAY THE MENU."; RESP$SSSS "MENU"S D S "FRIDAY."T (T "FRIDAY THE THIRTEENTH---BEWARE!"2T  oT "NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXXXII. "yT tT( TABLE OF VALUES FOR THE  O "SATURDAY."O (Y1 M1)D1(Y M)D `O I5Y1YOO I6M1M P I7D1DP I7 -P I6 I6

 I7  RPC IMONTHS TO BE USED IN CALCULATIONS.T2 0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5U< THIS IS THE CURRENT DATE USED IN THE CALCULATIONS.HUF THIS IS THE DATE TO BE CALCULATED ON.xUP CALCULATE TIME IN YEARS, MONTHS, AND DAYSUZ K1(FA8)Ud I5 6  RPH"***HAPPY BIRTHDAY***"PR " "," ","YEARS","MONTHS","DAYS" QW " "," ","-----","------","----">Q\ "YOUR AGE (IF BIRTHDATE) ",: F$;I5,I6,I7fQf A8 (I5m)(I6)I7(I6)tQp K5 I5Qz K6 I6Q K7 I7Q C(K1m)Un K1 K1 (I5m)Ux I6 (K1)U I7 K1 (I6)U K5 K5I5V K6 K6I6V K7 K7I7(V K7 7V K7K7EV K6K6VV K6 eV K6K6 sV K5K5V F$;I5,I6,I7VV K6ALCULATE RETIREMENT DATE.Q E YAQ CALCULATE TIME SPENT IN THE FOLLOWING FUNCTIONS.R F 333 R "YOU HAVE SLEPT ",*R Z:R F {.~SR "YOU HAVE EATEN ",]R ZmR F k~R K5  R "YOU HAVE PLAYED" V BV K5K5V K6V" BV,V6 "MENU" sV K5K5V F$;I5,I6,I7VV K6V K7 7V K7K7EV K6K6VV K6 eV K6K6 sV K5K5V F$;I5,I6,I7VV K6)M T1  M B  M B M (Y1 M1)D1(Y M)D & N (Y1 M1)D1(Y M)D ?N M;"/";D;"/";Y;" WAS A ";IN :gN M;"/";D;"/";Y;" IS A ";qN :N& M;"/";D;"/";Y;" WILL BE A ";N0&   ,d L() dM: Qd I d J  e S(I)L(J) eP(Q)L(J)!eQQ2e IJ @eA(J)L(J)JeMMRe JZe  IeeA()peP()MeA$"": I A(): A$A$(A(I)): IeP$"": I  P(): P$P$(P(I)): I f "THERE WERE";M;"MATCHES AND THE COMMON LETTERS WERE...";P$Nf "FROM THE EXACT LETTER MATCHES, YOU KNOW................";A$`f A$S$ pf M !f : "IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS."f!aa (): Pa !);"WORD":b );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b: : >b S(),A(),L(),D(),P()b "I AM THINKING OF A WORD -- YOU GUESS IT. I WILL GIVE YOU"b "CLUES TO HELP YOU GET IT.":b "TO f" f,S$"": I : S$S$(S(I)): Ig6 "THE SECRET WORD IS ";S$: g@ Eg "YOU MUST GUESS A 5 LETTER WORD. START AGAIN."Yg: GG: g "YOU HAVE GUESSED THE WORD. IT TOOK";G;"GUESSES!": g "WANT TO PLAY AGAINQUIT, ENTER 'QUIT' FOR YOUR GUESS.":b "GOOD LUCK!"::bc: : "YOU ARE STARTING A NEW GAME..."$c#,c( N@c2C(()N)Nc< I CWcF S$_cP IgcZGwc_S()(S$)cd I (S$): S(I)((S$,I,)): Icn I ";Q$g (Q$,)"Y"  h 12,"DINKY","SMOKE","WATER","GRASS","TRAIN","MIGHT","FIRST";h "CANDY","CHAMP","WOULD","CLUMP","DOPEY"Hh "MENU" h 12,"DINKY","SMOKE","WATER","GRASS","TRAIN","MIGHT","FIRST";h "CANDY","CHAMP","WOULD","CL cxA(I)-c Ic J cP(J)c J d "GUESS A FIVE LETTER WORD";d L$-d L$"QUIT" "MENU"7dGGId S$G$ dd I : P(I): ItdL()(L$)d I (L$): L(I)((L$,I,)): Id L()?'   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.011 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