NSUG.14  PRIME  HANOI  CHECKERS  ACEYDUCY BRIDGE %  BIOCYCLE2 WORLDPWR8 DO-ALL M MASTMINDb  CURVEFITn TREK  SAILING  INPVAL  THIEF  AUCTION  FIRE  FISHING  FLITEPLA  RANDNUM  MONINFO  BATSHIP  SAFECMB  SAILPLAN   FROG  MONOPOLY(( MONDATA G  ADDRSORTQ  ' 'PRIME' A TEST PRIME NUMBERS  "ENTER A NUMBER > 0 ",N  N0 !( P\K0N," IS NOT PRIME" 2 K0N," IS PRIME" < F  P N3d Z K1\ d K0\N2N2) n I3 x NINI)  II2\IN)Z x ABf?oNW>u۾?'=os^>mt>Ebϯo{|~Ƿ WER OF HANOI GAME  Q17),Q27),Q37)   ( \ 2 T18)T28)n %< "END IN ",D," MOVES; SCORE = ", F V100VD.5)\V,"%" P \"TRY AGAIN? ",A$ Z A$1,1)"Y" d n \x\( x \X,,  Y,  Q2T21)Q3T3)\Q3T3)0\  Q1T11)Q3T3)\Q3T3)0\  Y,,  Q3T31)Q2T2)\Q2T2)0\  Q1T11)Q2T2)\Q2T2)0\  Y,,  Q2T21)Q1T1)\Q1T1)0\  Q3T31)Q1T1)\Q1T1)0\ T18\T28\T38\I07\J7I  Q1J)0T1T11  Q2J)0T2T21  Q3J)0T3T31  \  "MOVE? ",X,Y\DD1\  \\"MOVE ",D " \ , J07 6 I19Q1J))\" ",\ @ Q1J)0"!", J Q1J)0h T I1Q1J)\"*",\\"!", ^ I1Q1J)\"*",\ "h I120Q1J)Q2J))\" ",\ r Q2J)0"!", | Q2J)0  I1Q2J)\"*",\\"!",  I1Q2J)\"*",\ " I120Q2J)Q3J))\" ",\  Q3J)0"!",  Q3J)0  I1Q3J)\"*",\\"!",  I1Q3J)\"*",\    \  J07\Q2J)0\Q3J)0\  "HOW MANY DISKS? ",K  V2K)1  I07\Q17I)KI\  I07\Q1I)0Q1I)0  & D0\ ("Z() N131),N231),N331),N431),B$40) ) J131),J231),J331),J431),B031) - 32,32,32,32,32,0,1,2,4,5,6,7,32,8,9,10 6( 12,13,14,15,32,16,17,18,20,21,22,23,32,24,25,26 -2 32,32,32,32,0,1,2,3,5,6,7,32,8,9,10,11 6< 13,14,15,32,16,17,18,19,21,22,23,32,24,25,26,27 0F 4,5,6,7,32,8,9,10,12,13,14,15,32,16,17,18 6P 20,21,22,23,32,24,25,26,28,29,30,31,32,32,32,32 1Z 5,6,7,32,8,9,10,11,13,14,15,32,16,17,18,19 6d 21,22,23,32,24,25,26,27,29,30,31,32,32,32,32,32 0n 32,32,32,32,32,32,32,32,32,0,1,2,32,4,5,6 4x 32,8,9,10,32,12,13,14,32,16,17,18,32,20,21,22 0 32,32,32,32,32,32,32,32,1,2,3,32,5,6,7,32 5 9,10,11,32,13,14,15,32,17,18,19,32,21,22,23,32 4 32,8,9,10,32,12,13,14,32,16,17,18,32,20,21,22 6 32,24,25,26,32,28,29,30,32,32,32,32,32,32,32,32 5 9,10,11,32,13,14,15,32,17,18,19,32,21,22,23,32 6 25,26,27,32,29,30,31,32,32,32,32,32,32,32,32,32   A$"PK0*." & I031\N1I)\\I031\N2I)\ & I031\N3I)\\I031\N4I)\ & I031\J1I)\\I031\J2I)\ & I031\J3I)\\I031\J4I)\ $ "*** THE GAME OF CHECKERS ***" ( "WOULD YOU LIKE INSTRUCTIONS? ",C$  C$1,1)"N""  J\ ," b\"WHO GOES FIRST? (0=ME,1=YOU) ",N , N0V1 6 N1V1 @ v\\@ -J "THE RULES OF CHECKERS ARE AS FOLLOWS:" /T " 1. I ALWAYS PLAY RED, YOU PLAY BLACK." (^ " 2. YOU CHOOSE WHO PLAYS FIRST." 2h " 3. IF YOU HAVE A JUMP, YOU MUST TAKE IT." 4r " 4. IF YOU DON'T TAKE THE JUMP, YOU FORFIET" .| " YOUR MAN, AND YOU LOSE YOUR TURN." , " 5. I ONLY KNOW ABOUT SINGLE JUMPS." 3 \"LET ME KNOW WHEN YOU ARE READY (1=RDY) ",I  I1   2 "THE BLACK SQUARES ARE NUMBERED AS FOLLOWS:"  \N125\" ",\\"RED"  "SYMBOL:",\N115\" ",\ & "0 1 2 3"\"0 = RED PAWN", $ N18\" ",\\"4 5 6 7" % "* = RED KING",\N110\" ",\ & "8 9 10 11"\"P = BLK PAWN", % N17\" ",\\"12 13 14 15" $ "K = BLK KING",\N19\" ",\ $ "16 17 18 19"\". = EMPTY", & N110\" ",\\"20 21 22 23" & N121\" ",\\"24 25 26 27" && N119\" ",\\"28 29 30 31" 0 N124\" ",\\"BLACK" ): \\"I'LL WAIT WHILE YOU COPY THIS" &D "ENTER 1 WHEN YOU ARE READY. ",I N I1 X D )b N011\B0N)2\\N1219\B0N)4\ l N2031\B0N)0\\V1\ (v "THE BOARD NOW LOOKS LIKE THIS:"\ + B$""\N124\B$B$" "\\N0\\B$ + B$""\N122\B$B$" "\\N4\\B$ + B$""\N124\B$B$" "\\N8\\B$ , B$""\N122\B$B$" "\\N12\\B$ , B$""\N124\B$B$" "\\N16\\B$ , B$""\N122\B$B$" "\\N20\\B$ , B$""\N124\B$B$" "\\N24\\B$ , B$""\N122\B$B$" "\\N28\\B$  \\  KNN3)\XB0K).5)1  B$B$A$X,X)" "\  X40B$)\X0  K1X\B$B$" "\\  V0   *  \   x\ &* "YOUR MOVE. ENTER FROM,TO: ",I,J 4 A0\X11\X21 > B0A)1j H N1A)31 R B0N1A))2 \ B0N1A))4 f J1A)31 p B0J1A))4 z IAJJ1A)  X1A\X2J1A)  N2A)31  B0N2A))2  B0N2A))4  J2A)31  B0J2A))4  IAJJ2A)  X1A\X2J2A)  B0A)1j  N3A)31$  B0N3A))2$  B0N3A))4$  J3A)31$  B0J3A))4$  IAJJ3A)  X1A\X2J3A) $ N4A)31j . B0N4A))2j 8 B0N4A))4j B J4A)31j L B0J4A))4j V IAJJ4A) ` X1A\X2J4A) j AA1\A32> t X10 ~ IX1\JX2\X1 ( "PENALTY! MUST JUMP ",I," TO ",J\  X0\X11\  X0\X12\  X0\X13\  X0\X14\  B0I)2 ) "INVALID; YOU LOSE YOUR TURN"\X2\  B0J)4  X0\X11\  X0d  X10  B0J)B0I)\B0I)4\F  X11 )  B0J)B0I)\B0N1J))4\B0I)4\F  X12( ) B0J)B0I)\B0N2I))4\B0I)4\F ( X13< )2 B0J)B0I)\B0N3I))4\B0I)4\F $< B0J)B0I)\B0N4I))4\B0I)4 F A03\B0A)0B0A)1 P \A2831\B0A)2B0A)3 Z \VV\ d X1F n B0I)4\F "x "MY MOVE. ",\A0\X11\X21  B0A)2  B0A)4  B0A)2@  N1A)31  B0N1A))4  B0N1A))1  J1A)31  B0J1A))4  X0\IA\JJ1A)\X11\  X10  X1A\X2N1A)  N2A)31@  B0N2A))4,  B0N2A))1@  J2A)31@  B0J2A))4@ " X0\IA\JJ2A)\ , X10@ 6 X1A\X2N2A) @ N3A)31 J B0N3A))4| T B0N3A))1 ^ J3A)31 h B0J3A))4 r X0\IA\JJ3A)\ | X10  X1A\X2N3A)  N4A)31  B0N4A))4  B0N4A))1  J4A)31  B0J4A))4  X0\IA\JJ4A)\  X10  X1A\X2N4A)  AA1\A32  X10  IX1\JX2\X0\X11  N11000\K0\ ! "I MOVE FROM ",I," TO ",J\  "I CAN'T MOVE - I CONCEDE"  2B2B2B2B2BA A@APA` GAME OF ACEYDEUCY  X.5)\I150\X0)\ 4 "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER" 9( "THE DEALER (THE COMPUTER) DEALS TWO CARDS FACE UP" :2 "YOU HAVE THE OPTION TO BET OR NOT TO BET DEPENDING" :< "ON WHETHER OR NOT YOU FEEL THE NEXT CARD WILL HAVE" &F "A VALUE BETWEEN THE FIRST TWO." *P "IF YOU DO NOT WANT TO BET, INPUT 0" Z \N100\Q100\ d "YOU NOW HAVE $",Q\\ n QQM\d x QQM\d ' "HERE ARE YOUR NEXT TWO CARDS..."  A140))2  A2 A14  B140))2  B2 B14 AB  A11  A10) ,,,  A," AND ",\  "JACK AND ",\  "QUEEN AND ",\  "KING AND ",\  "ACE AND ",  B11  B10) ",,,6,@  B\J " "JACK"\J , "QUEEN"\J 6 "KING"\J @ "ACE" J T "WHAT IS YOUR BET ",M ^ M0| h "CHICKEN!"\ r | MQ $ "SORRY, YOU BET TOO MUCH"\J  "YOU GET A ",  C140))2  C2 C14   C11  C10) ,,,  C\  "JACK"\  "QUEEN"\  "KING"\  "ACE"  CA    CB  "YOU WIN!!!"\n  "SORRY, YOU LOSE." & MQx /0 \"SORRY, FRIEND, BUT YOU BLEW YOUR WAD!" : "TRY AGAIN? ",A$ D A$1,1)"Y"Z "N \"O.K., HOPE YOU HAD FUN!!"  O.K., HOPE YOU HAD FUN!!" OU HAD FUN!!" O.K., HOPE YOU HAD FUN!!" OU HAD FUN!!" 2:JB"*" A$13)\A$ "23456789TJKQA" / A51),A012),A112),A212),A312),A412) " B112),B212),B312),B412) "( C112),C212),C312),C412) "2 D112),D212),D312),D412) "< E112),E212),E312),E412) F Z2 314159 P Z3 0 Z Z1 Z2999863 d Z3 Z31\ n " HAND NO. ",Z3 x I0 51\AI)0\  K10\K20\K30\K40  \X Z152)  X51  AX) 0  K1 12 ( A1K1) X\AX) 1\K1 K11\  K2 12 ( A2K2) X\AX) 1\K2 K21\  K3 12 ( A3K3) X\AX) 1\K3 K31\ I0 51\ AI) 0  A4K4) I\K4 K41  % I0 12\A0I) A1I)\\ r 9 I0 12\C1I) B1I)\C2I) B2I)\C3I) B3I) 4 C4I) B4I)\\K1 J1\K2 J2\K3 J3\K4 J4 %" I0 12\A0I) A2I)\\ r 9, I0 12\D1I) B1I)\D2I) B2I)\D3I) B3I) 46 D4I) B4I)\\L1 J1\L2 J2\L3 J3\L4 J4 %@ I0 12\A0I) A3I)\\ r 9J I0 12\E1I) B1I)\E2I) B2I)\E3I) B3I) 4T E4I) B4I)\\M1 J1\M2 J2\M3 J3\M4 J4 %^ I0 12\A0I) A4I)\\ r h \  r J1 0\J2 0\J3 0\J4 0 | I0 11\ JI 12  A0I) A0J)  ( K0 A0I)\A0I) A0J)\A0J) K0  \ 3 I0 12\Y A0I)13)\X A0I)Y13)1  Y 1   B1J1) X\J1 J11\   Y 2   B2J2) X\J2 J21\   Y 3   B3J3) X\J3 J31\   Y 4   B4J4) X\J4 J41  \  "NORTH: S:",\   32),"EAST: S:",\ \  8),"H:",\  & 38),"H:",\ \ 0 8),"D:",\ 4 : 38),"D:",\ R\ D 8),"C:",\ p N 38),"C:",\ \ X \ b "SOUTH: S:",\  l 32),"WEST: S:",\ \ v 8),"H:",\   38),"H:",\ \  8),"D:",\ $  38),"D:",\ B\  8),"C:",\ `  38),"C:",\ ~\  \\  J10   " NONE",\ % I0 J11\X B1I)\ \\  K10   " NONE",\ % I0 K11\X C1I)\ \\  J2 0   " NONE",\ %  I0 J21\X B2I)\ \\  K2 0 *   " NONE",\ %* I0 K21\X C2I)\ \\ 4 J3 0 H > " NONE",\ %H I0 J31\X B3I)\ \\ R K3 0 f \ " NONE",\ %f I0 K31\X C3I)\ \\ p J4 0  z " NONE",\ % I0 J41\X B4I)\ \\  K4 0   " NONE",\ % I0 K41\X C4I)\ \\  L1 0   " NONE",\ % I0 L11\X D1I)\ \\  M1 0   " NONE",\ % I0 M11\X E1I)\ \\  L2 0   " NONE",\ % I0 L21\X D2I)\ \\  M2 0   " NONE",\ % I0 M21\X E2I)\ \\ $ L3 0 8 . " NONE",\ %8 I0 L31\X D3I)\ \\ B M3 0 V L " NONE",\ %V I0 M31\X E3I)\ \\ ` L4 0 t j " NONE",\ %t I0 L41\X D4I)\ \\ ~ M4 0   " NONE",\ % I0 M41\X E4I)\ \\  A$X,X)," ",\  Z1 Z11000) " Z2 Z21.0E3Z11.0E6Z1137  Z1 Z2999863   \\\  "ANOTHER HAND? ",X$  X$1,1) "Y" d  \" Z2 = ",Z2  #0,80  A11),B60),C11)  A$10)\A$ "0123456789" ( B$10)\B$ " PEI*" 12 0,31,59,90,120,151,181,212,243,273,304,334 *< 31,28,31,30,31,30,31,31,30,31,30,31 F I0 11\ AI)\ P I0 11\ CI)\ Z 35),"BIORHYTHM" 3d 22),"A DISPLAY OF YOUR CYCLES FOR 60 DAYS" n -x "INPUT TODAY'S DATE (M,D,Y): ",M1,D1,Y1  / "INPUT YOUR BIRTHDATE (M,D,Y): ",M0,D0,Y0 6 T0 D0365.25Y016)AM01).01M0.03)5845 7 T1 D1365.25Y172)AM11).01M1.03)26298   T3 T11\T9 T160  T3 T31\ T3 T9  |\   T5 T3T01)6.28319  E1 3030T523))  E2 3030T528))  E3 3030T533)) 0   & Z0 U1\ \"/",\Z0 V1\  " "/",\Z0 W1\ \" ", , X0 "SUN", 6 X1 "MON", @ X2 "TUE", J X3 "WED", T X4 "THU", ^ X5 "FRI", h X6 "SAT", r | W1 T3365.25)  T4 T3W1365.25) ! I0 11\ AI) T4    I 12  \  Z1 Z010)  Z2 Z0Z110  Z3 Z1\   Z3 Z2\ \  A$Z31,Z31),\  0 16),"LOW",43),"CRITICAL",73),"HIGH"  16),\ I0 60\"-",\  \ + U1 I\V1 T4AI1)\X T3T37)7  V1 0 & U1 U11\V1 CU11)\ 0 I0 60\BI) 0\ ,: B30) 4\BE3) 3\BE2) 2\BE1) 1 D 16), $N I0 60\Y9 BI))\ b\ X b B$Y91,Y91),\ > WLD POWER GAME EXTRACTED MODIED FROM PROGRAM IN  ERFACE FEB. 1978  W3 \ S$" SHORE" ;( A10,10)\ C10,10) \ N$120) \ D$80)\ L$80) L2 "N. AMERICA", "AUSTRALIA ", "S. AMERICA", "RUSSIA ", "JAPAN " T< "AFRICA", "KOREA", "CHINA","GREENLAND", "ENGLAND", "TROOPS ", "PLANES " OF "ARTILLARY ", "TANKS ", "MISSILES ", " NORTH","SOUTH", "EAST","WEST" !P X 10 100 10\ N$X)\ Z X10 50 10\ D$X)\ d X10 40 10\ L$X)\ 3n X1 10\ C X,1)5000L9))5000)10\ @x X1 10 \ J 2 5 \ CX,J) 50 L9)25)\ J\ X @ J1 10 \ X 6 10 \ CJ,X) 4 L9)1)\ X\ J D X1 5 \ J 1 10 \ AX,J) CX,J) \ CX,J) 0\ J\ X + 27), 42), 27), "WORLD POWER",  \  MAIN PROGRAM LOOP  Y6Y61\ "MANUEVER:", M  M 5  M1 " M , T, &, ,   "COUTRY", R  R 10  R 1 RR10 * \ \ "STATUS REPORT: ", N$R,R9)  RR10 D \ " DEFENSE"," QUANTITY", " LOCATION"\ X1 5 1" D$X10),X10)9), 17), AR,X), 33), B, AR,X) 0 L$AR, X5)))10,AR, X5)))10)5)S$ 6 AR,X) 0 J @ J \ ,T "ENTER COUNTRIES: (FOR, TO )" \ F,T ^ F 10 T h F 1 T r T 10 T | T 1 T  "WHAT DEFENSE:", D  D 5   D1   "QUANTITLY:", Q  AF,D) Q  Q "YOU ONLY HAVE ", AF,D), D$D10,D10)5), "IN",N$F10,F10)9)\  F T  E AF,D) Q "YOU MUST MOVE ALL ",D$D10,D10)9) \ * AT,D) AT,D)Q \ AF,D) AF,D)Q  "WHAT SHORE ",L  L 4   L 1   AT,D5))L  .5)100) 25   Z  )& \\\25), "---GLOBAL REPORT---" P0 "COUNTRY"," ALLIED TROOPS"," ENEMY TROOPS"," ALLIED POSSESION" O: X 1 10 \N$X10) , X10 9),18),AX ,1), 34),CX ,1),55), 7D K20 \ F2 1 5 \ CX,F2) 0 K2 K2 1 N F2 'X K2 0 "NO" \ K2 0 l b "YES" l X v ) "ENTER COUNTRIES: (FROM, TO)", F,T  AF,2) 10  > "YOU DON'T HAVE ENOUGH PLANES IN ",N$F10,F109)\  AF,2) AF,2)10 8 \\\"SPY MISSION REPORT:", N$T10, T10)9)\  L9)100) 20  < 50L9)) 26 "ALL PLANES LOST AT SEA" \ 9 "PLANES SHOT DOWN OVER ", N$T10,T10)9) \ A "DEFENSE ", " QUANTITY", " LOCATION" \ X 1 5  L9)100) 40  / D$X10,X10)9), 18), CT,X), 34), H CT,X5)) 0 L$C T,X5)))10,CT,X5)))109) \    X \ %  K0 \ X 1 10 \ J 1 5  AX,J) 0 f   J \ X \ K 0  ** H0 \ K0\ X 1 10 \ J 1 5 4 CX,J) 0 KK1 > A X,J) 0 HH 1 H J \ X\ K0  R H0  \ f C1 p CX,C) 0  z CC1\ C6   p % AX,J5)) CX, C5)) z 8 KK1\ \\\7), "BATTLE IN ",N$X10, X10)9) ? " ON THE ", L$AX,J5)))10,AX,J5)))109)S$,"!" 9 "ENEMY ",D$C10,C109),"ALLIED ",D$J10,J109) & OCX,C)\ O1 AX,J)\ EO \ E1O1  J1     C 1   C 1     J 1   E," ",E1    E10 E81\ B  E 0 E80\ B $ E1 E1.7 E80\ B . E E1.5 E91\ B 8  +B \"***** A VICTORY FOR THE ", +L E81 "ENEMY IN ",\ E81 ` V "ALLIES IN ", K` N$X10,X109)," ON THE ",L$AX,J5)))10, AX,J5)))109)S$ j "TOTAL CASUALITIES: " +t "ENEMY ",D$C10,C109),"; ",OE .~ "ALLIED ",D$J10,J109),"; ",O1E1 # E81 CX,J) CX,J)AX,J)  E81 AX,J)0  E81  < AX,C)AX,C)CX,C) \ CX,C)0 \ AX,C5))CX,C5))  E," ", 3 D$C10,C109), " WERE CAPTURED "\  " CX,J5)) AX,J5))\   E," ",E1    E0 E80 \ B  E1 0 E81\ B ! E11000E1 E8 0 \ B ! E E11000 E81 \ B    E," ",E1   ( E0 E80\ B 2 E10 E8 1\ B < E1000E1 E81\ B F E1E1000 E81\ B P  ?Z R100L9)1\X210L9)2\ D1 X2 100L9)2 d AT,D) X2 TNE X2AT,D) n AT,D)AT,D)X2 x R33   R 66   "AMBUSH BURING TANSPORT" ) "YOU JUST LOST ",X2,D$D10,D109) 7 "TOTAL ARRIVED IN "N$T10,T109),"- ",AT,D)\ H "SNIPERS ON THE ", L$AT,D5)))10,ATD5)))109)S$\  1 "VIOLENT SEAS SINK A TRANSPORT SHIP"\   EEE3)L9))2  E1 E 0  E1E1E13)L9))2  E1 0 E10  AX,J)E1\ CX,C)E   "SORRY YOU BLEW IT" . "ALL YOUR DEFENSES ARE GONE"\\\\ "  \\\"CONGRADULATIONS!" 9 "YOU HAVE CONQUERED THE WORLD IN ",Y6," MANUEVERS!" " CONQ HAVE CONQUERED THE WORLD IN ",Y6," MANUEVERS!"  0A  SHORE /] WEBB(B3BHB@A@AA AA DOALL  ! C8$26) \ EEN CLEAR ( 2 C8$\\\\\\ -< 27)," >> DO-ALL <<"\\\\\ CF A1$15),A2$15),B1$1500),B2$1500),N2,100),D1$15),D2$15) P Y15\ GTH OF STRING $Z Z$" "\Z1$27)43)\Z3$7) d C2$"LDSPART"\M100\P0 n Z1$ x  "COMMAND ",C$  C$"LOAD" 0  C$"SAVE"  ' J1 C2$)\ C$C2$J,J)  J  "WHAT? "\ & J ,,,,,,  'L' ) COMM + "TITLE FOR 1ST NUMERICAL DATA: ",T1$  T1$"" + "TITLE FOR 2ND NUMERICAL DATA: ",T2$  T2$"" ( "TITLE FOR 1ST STRING DATA: ",T3$  T3$""  ( "TITLE FOR 2ND STRING DATA: ",T4$ " P1 , 6 T1$,\ N1,P) @ T2$,\ N2,P) J T3$,\ A1$\ A1$"" J (T XYA1$)\ J1 X\A1$A1$Z$\ J ^ T4$,\ A2$\ A2$"" ^ (h XYA2$)\ J1 X\A2$A2$Z$\ J r N10 N20  | A1$1,1)"$"    A2$1,1)"$" x  P1   B1$A1$\B2$A2$\   B1$B1$A1$\B2$B2$A2$  PP1\ PM ,  x  'D' COMM  Z1$\   J1 P1\ \ J  \ x  'S' ST) COMM   > "TYPE NUMBER CORRESPONDING TO DATA TO BE SORTED BY: ",T  T2 b ! BUBBLE ST NUMERICAL  KP2 & J1 K 0 NT,J)NT,J1) D : J D J N KK1\ K1 & X Z3$\ x b BUBBLE ST STRING l TT2\KP2 v T2   J1 K 8 B1$J1514,J15)B1$J1)1514,J1)15)   J  J  KK1\ K1   Z3$\ x  J1 K 8 B2$J1514,J15)B2$J1)1514,J1)15)   J  J  KK1\ K1   Z3$\ x  'P' ) COMM 6 "COMPLETE PRINT OR PARTIAL PRINT (C OR P)? ",C$   C$"P" \  Z1$\ \K0   J1 P1\ \KK1 * K15 4 R (4 "PRESS 'RETURN' TO CONTINUE ",Z2$ > Z2$"" H 4 H Z1$\ \J15 R J\ \ x \ PARTIAL f    H  R 1)0  \ #1,N1,N2,A1$,A2$ f TTN2 &p N1,13),N2,31),A1$,52),A2$ z R  #1    13),T  x iji{W|6|u>|_||{{%|  i8 8 o22 7 7 6 56 5 7 6 5  MASTMIND  A$4)  R$4) ( A$1,1)" " 2 26)\ CLEAR EEN < "WELCOME TO MASTERMIND." 4F "DO YOU KNOW HOW TO PLAY (YES OR Y:NO OR N) ", P A$ Z d n A$1,1)"Y" h J "AFTER EACH GAME YOU WILL BE GIVEN A RATING AS TO YOUR " >T "SKILL LEVEL FOR THE GAME AND AN OVERALL RATING IF YOU " 4^ "PLAY MORE THAN ONE GAME. GOOD LUCK !!!!!!!!" h TPG20 r | > N1)0\N2)0\N3)0\N4)0\G1)0\G2)0\G3)0\G4)0  G10  I1 4  X60))1  XN1) XN2)   XN3) XN4)   NI)X  I  PP1 - "ENTER YOUR GUESS - X,X,X,X ",  G1),G2),G3),G4)  G1G11  J1 4  GJ)NJ) : " GJ)N1) GJ)N2) N " GJ)N3) GJ)N4) N & R$J,J)"- " 0 X : R$J,J)"* " D X N R$J,J)"+ " X J b 35), "l P1)0\P2)0\P3)0\P4)0 v K1 4  Y40))1  YP1) YP2)   YP3) YP4)   PY)Y  R$Y,Y)," ",  K    R$1,4)"* * * *" 8  TTG1    G14 4  G16 H   G19 \  G111 p >  "WOW - YOU DUMMY !! YOUR RATING THIS GAME WAS 'LOUSY'!!" * z 94 "CONGRATULATIONS !!! THIS GAME YOU WERE 'EXPERT'!!" > z 3H "WAY TO GO - - YOUR RATING THIS GAME 'GOOD'!" R z .\ "YOU MADE IT IN AVERAGE TIME THIS GAME." f z 1p "NOT TO HOT THIS GAME - YOU WERE MEDIOCRE." z   P1 r  G2TP)  G24   G26   G29   G211  @ "YUCK - YOU BOZO - YOUR RATING FOR ",P," GAMES IS 'LOUSY'"  r 8 "GREAT!!! YOUR RATING FOR ",P," GAMES IS EXPERT!!"  r 7 "YOUR RATING FOR ",P," GAMES IS GOOD KEEP IT UP."  r 4 "FOR ",P," GAMES YOUR JUST AN AVERAGE PLAYER."  r 5 "YOUR RATING FOR ",P," GAMES IS ONLY MEDIOCRE." $ r . 8 "TRY AGAIN " B L V  ` t ~       CURVEFIT * LEAST SQUARES CURVE FITTING PROGRAM D "BEFORE RUNNING THIS PROGRAM, ENTER YOUR DATA AS FOLLOWS:" C( "9900 DATA N (N=NUMBER OF DATA PAIRS TO FOLLOW)" "2 "9901 DATA X,Y" $< "9902 DATA X1,Y1" .F "9903 DATA X2,Y2 (ETC)" DP "X SHOULD BE THE INDEPENDENT VARIABLE AND Y SHOULD BE THE" Z "DEPENDENT VARIABLE"  20),TI,1),40),TI,2),55),TI,3) H I R !\ "DETAILS FOR CURVE TYPE", f I (p 126)28), \ I91 200 \ z I0 I7     FI)1     " COULD NOT BE FIT."  R  h ! I1)I5)I6)0 $  J1 N  YAI)BI)XJ)  I1   Y1Y  I5   YXJ)Y  R  J  R $ J1 N . I2  8 I3 t B I4 ` L YA7)B7)XJ)) V  ` YA4)B4)XJ) j  t YA3)XJ)B3)) ~   YA2)B2)XJ))  R  J  R  S5)S5)VJ)2  S3)S3)VJ)   S1)S1)UJ)  S2)S2)UJ)2  I1   S4)S4)UJ)VJ)   K1 N1  MK  JK1 N  XM) XJ) 2 ( MJ 2 J < MK  F PXM) P QYM) Z XM)XK) d YM)YK) n YK)Q x XK)P  K   KI  K1 T  K2 @  K3 ,  K4   K5   K6   "7. Y=A+B*LOG(X)",   "6. Y=X/(A+B*X) ",   "5. Y=1/(A+B*X) ",   "4. Y=A+(B/X)", " , "3. Y=A*(X^B)", 6 @ "2. Y=A*EXP(B*X)", J T "1. Y=A+(B*X)", ^ h " ", r  | " IS A",  K1   K2   K3   K7   " HYPERBOLIC",    " LINEAR",    "N EXPONENTIAL",    " POWER",    " LOGARITHMIC", ! " FUNCTION. THE RESULTS"  K1 & > " OF A LEAST-SQUARES FIT OF ITS LINEAR TRANSFORM" :& " (SORTED IN ORDER OF ASCENDING VALUES OF X)" 0 " ARE AS FOLLOWS:" : 8D 10),"X-ACTUAL",25),"Y-ACTUAL",40),"Y-CALC", N 55),"% DIFFERENCE" X b l .v BNS4)S1)S3))NS2)S1)2))  AS3)BS1))N  S1S5)S3)2)N " S2B2)S2)S1)2)N)  CI)S2S1  TI,1)S1S2)N2)) 1 TI,2)TI,1)S2)NS2)S1)2N)))) & TI,3)TI,1)S2)S1)2N)) ' I1)I4)I5)I7)0 4  I2)I3)0   A6)B  B6)A  ZT6,2)  T6,2)T6,3)  T6,3)Z    AI)A)   TI,2)TI,2)) * > 4 AI)A > BI)B H +R 10),XJ),25),YJ),40),Y,55), \ DYJ)Y f D.1D)1000DY)) p D0  z D0   " 0"   " ",  D   = 8,1.1,2,1.2,4,1.3,8,1.4,16,1.5,32,1.6,64,1.8,128,2,256 ,256 ,256 /AAAAAAA A> > > S T A R T R E K >( >2 >< TAKEN FROM ARTICLE BY LYNN COCHRAN IN THE P d :n PLEASE S ALL BUG REPTS >x STAN SKOGLUND > 5757 AVENIDA SANCHEZ > SAN DIEGO, CA. 92124 > 714) 2784893 > >   3 D5),K17),K27),K37),S7,7),Q7,7),D$120)  Q$".EKB*"  D$1,20)"WARP ENGINES" $ D$21,40)"SHORT RANGE SENSORS" # D$41,60)"LONG RANGE SENSORS" $ D$61,80)" PHASERS" " D$81,100)"PHOTON TORPEDOES" # D$101,120)"GALACTIC RECORDS" & "PLEASE ENTER RANDOM NUMBER ",Z " Z1 ,\ZZ10\ " 1, KZ)\"WAIT WHILE I INITIALIZE THE GALAXY" )6 DN)K1I)S1)2K2I)S2)2) 3@ \ H\Q1X\Q2Y\X8\Y1\X1.2075\Y16.28 =J X23.28\Y21.8\A.96\C100\W10\K90\B90\S9400\T93451 =T T03421\TT0\E04000\EE0\P010\PP0\S.28\S1.08\S2.03 ^ H.01\Z0 0h I0 7\ J0 7\K0\NZ)\ NX1  r NN64\KNY1)Y 8| KKNX2)NY2)NS)NS1)NS2)NH)\K9K9K 3 BZ)A)\B9B9B\QI,J)KCBWZ)XY)  "*:-> ",  J\ I  K9T9T0) T9T0K9  B90   H\QX,Y)QX,Y)10\B91 " \\" *** STARTREK ***" 7 "ADAPTED FOR NORTH STAR BASIC BY STAN SKOGLUND"\ : "OBJECTIVE: DESTROY",K9," KLINGON BATTLE CRUISER ",  "IN",T9T0," YEARS." & "THE NUMBER OF STARBASES IS",B9 * A0\ Q10 Q17 Q20 Q27     N0\S0\K0\  7 NQQ1,Q2))\QQ1,Q2)N\SNN10)10\KN100) # BN10K10)\ H\S1X\S2Y )& I0 7\ J0 7\SI,J)1\ J\ I 0 SS1,S2)2 &: I0 7\K3I)0\X8\ IK N D X N R\SX,Y)3\K3I)S9 X K1I)X\K2I)Y\\IS b B0 v l  v R\SX,Y)4  I0     R\SX,Y)5\II1\   \ A0 f  E0   I1\ DI)0 $ 3 I0 7\ J0 7\ Q$SI,J),SI,J))," ",  J  " ",  I1 I7  & I , ,, ,*,4,>  "YEARS =",T9T  \ B  "STARDATE=",T\    "CONDITION: ",C$\  ' "QUADRANT=",Q11," -",Q21\  &  "SECTOR =",S11," -",S21\  * "ENERGY=",%7F1,E\  4 D$81,100),"=",P\  > "KLINGONS LEFT=",K9\  H X0)8)\Y0)8)\ R H\ SX,Y)1 R \ f K1 p C$"DOCKED"  'z "STARBASE PROTECTS ENTERPRISE"\  I0 7\ K3I)0   \ 7 HK3I).40)\K3I)K3I)H\HHD0).4)\EEH ' E$"ENTERPRISE FROM"\NE\ \\ 8 %7F1,H," UNIT HIT ON ",E$," SECTOR ",%1I,K1I)1, + " -",K2I)1," (",%7F1,N," LEFT )"\ $ IS11 S11\ JS21 S21 " I0 I7 J0 J7   SI,J)4  " C$"DOCKED"\EE0\PP0\ \  J\ I\ K0   C$"RED"\  EE0.1   C$"YELLOW"\  C$"GREEN"\  N0 5\DN)0\\ &$ D$I201,I2020)," DAMAGED.", 0. " ",DI)," YEARS ESTIMATED FOR REPAIR."\ 8 A1 B "COMMAND ",A L A1 A6 ` "V A ,,:,,t, /` I0 5\ I1," = ",D$I201,I2020)\ j B t D4)0  .~ "SPACE CRUD BLOCKING TUBES.",\I4\ .  N15\ P1   "NO TORPEDOES LEFT"\ B  A5 "TORPEDO ", & "COURSE (1-8.9) ",C\ C1 B  C9   A5   PP1\ "TRACK:"\  * "WARP (0-12) ",W\ W0 W12   W2 D0)0  5 I0\ D$I201,I2020)," DAMAGED, MAX IS .2 ",  .\   f\ E0   0).25 d  X0)6)\ 0).5 2 / DX)DX)60)5)\ "**SPACE STORM, ", 0 D$X201,X2020)," DAMAGED**"\IX\ . ( DX)DX)1\ d 2 IX 5\ DI)0 Z < F I0 X\ DI)0 Z P \ d 6Z DI).5\ "**SPOCK USED A NEW REPAIR TECHNIQUE**" d I0 5\ DI)0  n DI)DI)1\ DI)0  .x DI)0\ D$I201,I2020)," ARE FIXED!" + \NW8)\EENN.5\TT1\SS1,S2)1 # Y1S1.5\X1S2.5\ TT9  # YC1).785398\XY)\YY) 0 I1 N\Y1Y1Y\X1X1X\Y2Y1)\X2X1) & X20 X27 Y20 Y27   A5 Y21," -",X21,  SY2,X2)1   \ T  \ A1 "BLOCKED BY ", # ZSY2,X2)3\ Z1 Z2   Z 6,  "KLINGON",\ A1 J  I0 7\ Y2K1I)   X2K2I) K3I)0  \KK1\K9K91\ ^  "STAR",\ A5 , " SS1\ ^ , J 6 "STARBASE",\ A5 J @ B2\ ^ 7J " AT SECTOR",Y21," -",X21\Y2Y1Y)\X2X1X) %T S1Y2\S2X2\SS1,S2)2\A2\  !^ " DESTROYED!",\ B2 r h B0\ " . . . GOOD WORK!", 4r \SY2,X2)1\QQ1,Q2)K100B10S\ K91  | f\ E0   \ B  A5   "MISSED!"\ | 2 Q1Q1WYS1.5)8)\Q2Q2WXS2.5)8) 2 Q1Q1Q10)Q17)\Q2Q2Q20)Q27)\   I3\ DI)0 $ / "PHASERS READY: ENERGY UNITS TO FIRE ",X  X0 B  XE   "ONLY GOT",E\  ( EEX\YK\ I0 7\ K3I)0 & % HXYD0).4))\K3I)K3I)H " E$"KLINGON AT"\NK3I)\   K3I)0 &  "**KLINGON DESTROYED**" 9 KK1\K9K91\SK1I),K2I))1\QQ1,Q2)QQ1,Q2)100 & \ K91  0 | : I2\ DI)0 $ 8D D$I201,I2020)," FOR QUADRANT",Q11," -",Q21 -N IQ11 Q11\ JQ21 Q21\ " ", "X I0 I7 J0 J7 v 0b QI,J)QI,J))\E$QI,J))\E$"00"E$2) l ZE$)\ E$Z2,Z),\  v "***",  J\\ I\ B  I5\ DI)0 $ / "CUMULATIVE GALACTIC MAP FOR STARDATE",T  I0 7\ J0 7\ " ",  QI,J)0   E$QI,J))\E$"00"E$2)  ZE$)\ E$Z2,Z),\   "***",  J\\ I\ B  \ "IT IS STARDATE",T\ 6 \"THANKS TO YOUR BUNGLING, THE FEDERATION", 3 " WILL BE"\"CONQUERED BY THE REMAINING",K9, 7 " KLINGON CRUISERS!"\"YOU ARE DEMOTED TO CABIN",  " BOY!"\ * -  \ "THE FEDERATION HAS BEEN SAVED!" 6 "YOU ARE PROMOTED TO ADMIRAL"\ K0," KLINGONS", 6  " IN",TT0," YEARS. RATING=",K0TT0)1000) 0* "TRY AGAIN (Y/N) ",E$\ E$1,1)"Y" @ E 26)\\\\\\15)," S A I L I N G N A V I G A T I O N "\ \\  A3),B3),D3),Y$1) ( E0\P3.14159 2 I1 3 < A,B F AI)10A\BI)10B P DI)0 Z I d 20,30,60,30,30,10 n Q171)10) &x X175500) \ Y175 50 0)  C1 100  "NAVIGATION CHECK ",C  I1 3  DI)1 " VISITED ",I  I  I1 3  AAI)\BBI)   \ LL2.550)  LL180\L360 LL360 , "BEARING FROM ISLAND #",I," IS:",L),  L180 l = L 180 LL180\" DEGREES TO: ",L)," DEGREES"  I  "ELAPSED TIME: ",E  " HEADING: ",H  HH5100) " " TIME: ",T\TT) , C0HP180)\S1HP180) 6 H180 H360H @ H30 S0 "J H30 H90 S10H90)6 T H90 S10H90)18 ^ SS20)1 h TT.10).05) r XXTSC0 | YYTSS1  EET  I1 3 # DXAI))2)YBI))2))  D5100) DI)1  I  D1)D2)D3)3   C ' " EXCEED NAVIGATION CHECK "\  ' " TRIP COMPLETED IN ",E," HOURS." / " NUMBER OF NAVIGATION CHECKS IS: ",C,"." . " YOUR RATING IS: ",170E10C3)) ) \\\ ".....RUN IT AGAIN ??? ",Y$  Y$"Y" (   XA YB v  XA YB  & NYB)XA) 0 LN)\L180LP : XA YB LL180 D XA YB L360L N XA YB L180L X b 8l LL180\" DEGREES TO: ",L)," DEGREES"\ v L270\  L90\  /;\ C`C0C/C\0C0CC/\A[\ D1AYAA0CCF4t@V7 C0IaC\FBv9I@!fCAwrBeB, ٷ 2 USES ER > THIS PROGRAM WRITTEN BY JATHAN ROTHBERG ?( AUGUST 4, 1977 2 < 26)\\\ F I1 600\\26)\\\ GP\\"THIS PROGRAM PRINTS CHART OF THE 'INP(X)' VALUE FOR INPUTTED" JZ "VALUES....."\\"TO RUN...TYPE IN THE CHARACTER...HIT RETURN..." Cd "THEN HIT THE PERTICULAR KEY FOR THAT CHARACTER....."\\ n A1 1000000 x C$  N1 250 % B1)\ MY KEYBOARD IS PT 1  N  P1  #P, C$,"=",B  P0  A  A "SOLE SURVIVORS... YOUR MISSION: FIND  THIEF  7)\7)\26)\\\ . 25),">> DIAMOND THIEF <<"\\\\ ( Y$1) 52 "WANT INSTRUCTIONS ? ",Y$\ Y$1,1)"Y"  I< A9,3), L5,12) \26)\ \\" >>> WAIT <<< "\\\ "F JUMP BACK START AGAIN PO P Z171)1000) Z d Q1 n I1 9 x J1 3  A AI,J)A J\ I  2,4,0,1,3,0,2,6,0  1,5,7,4,6,8,3,5,9  4,8,0,5,7,9,6,8,0  I1 5  LI,1)0)91)  I  I2 12  J1 5  K30)1)  LJ,I)ALJ,I1),K)  LJ,I)0  J\I  T120)1) " I1 5 , LI,T)5 J 6 I @  J D50)1) T LD,T)5 J ;^ 7)\\20),">> SOMEONE STOLE THE DIAMOND <<"\\ h r \"> QUESTION #",Q\ | " SUSPECT.......",S\  S1   S5 |  " TIME..........",G\  G1 G12  - \\"> SUSPECT #",S," AT TIME ",G,":"\  SD P.5  SD P.05  0)P L5,6)5   I30)1)  AALS,G),I)  A0 A5   7)\"> I WAS IN ROOM ",A  A5   TG  $ 7)\"> I SAW THE DIAMOND !!"  0)P X & I1 5 0 IS N : LS,G)LI,G) N D 7)\"> I WAS WITH ",I N I \ l X I70)1) \ IS X b I6 "> I WAS WITH ",I l 0)P  v I1 3  AALS,G),I)  A0   J1 5  LJ,G)A "> I SAW ",J  J  I    J100)1)  J5 "> I SAW ",J  0)P   K100)1)  K6 KJ "> I SAW ",K  QQ1\ r - 7)\\">> ENTER GUILTY SUSPECT: ",S\   S1 S5  0 7)\\">> ENTER TIME OF THE CRIME: ",G\   G1 G12  * SD GT  4 SD GT  /> 7)\"> BETTER GIVE UP......."\\QQ100 JH 7)\">> THE THIEF IS ",D," AND THE CRIME TOOK PLACE AT TIME ",T\ 3R \">>>> YOUR RATING IS ",100Q," % "\\ -\ \" ......RUN IT AGAIN SAM .....? ",Y$ f Y$"Y" F p z  ALS,G)\  2 7)\"> I DID NOT SEE THE DIAMOND !!"\  6 7)\\"**** YOU GOT 'EM !! ****"\\\ H 8 7)\\" ** PARTLY RIGHT ! **"\\QQ10\ r  INSTRUCTIS  26)\ 7)\\\ B \"> DIAMOND THIEF <" C \" AN EXPENSIVE DIAMOND HAS BEEN STOLEN FROM A MUSEUM. YOUR" D "JOB, AS THE DETECTIVE ASSIGNED TO THIS CASE, IS TO DETERMINE" < "WHO (1-5) STOLE THE DIAMOND AND AT WHAT TIME (1-12)." A " YOU MUST DEDUCE THE SOLUTION BY STUDING THE RESPONSES " B "MADE BY FIVE DIFFERENT SUSPECT, ONE OF WHOM IS GUILTY !!"\ < " YOUR RATING IS DETERMINED BY HOW QUICKLY YOU CAN "  "IDENTIFY THE THIEF !"\ @ " THE FIVE SUSPECTS WERE WANDERING THROUGH A NINE ROOM " E "MUSEUM FROM ONE P.M. TO TWELVE MIDNIGHT. THEY NEVER STAYED " E$ "IN THE SAME ROOM FOR TWO CONSECUTIVE HOURS, ALTHOUGH THEY MAY" 8. "HAVE RETURNED TO THE SAME ROOM MORE THAN ONCE."\ ,8 \" HIT 'RETURN' TO CONTINUE....",Y$\ B  L 7)\26)\\\ CV " THERE ARE A FEW CATCHES, HOWEVER. THE INNOCENT SUSPECTS" D` "CAN FORGET THE EXACT ROOM THEY WERE IN AND MAY NAME ADJACENT" Ej "ROOMS 5% OF THE TIME INSTEAD. THERE IS ALSO A 5% CHANCE THAT" Et "INNOCENT PEOPLE WILL MAKE ERRORS IN NAMING PEOPLE IN THE ROOM" F~ "WITH THEM OR PEOPLE WHOM THEY SAW. THE THIEF MAKES ERRORS 50%" B "OF THE TIME. ANY (!!) STATEMENT MADE ABOUT ROOM #5 OR ANY" ; "STATEMENT MADE ABOUT THE DIAMOND IS ALWAYS TRUE!!"\ C " THE DIAMOND WAS STOLEN AT THE END OF THE TIME INTERVAL; " @ "THEREFORE, THE THIEF OR PEOPLE IN ROOM #5 WITH THE THIEF" B "WILL CLAIM TO HAVE SEEN THE DIAMOND DURING THE TIME IT WAS" C "STOLEN ! OF COURSE, AFTER THE DIAMOND WAS STOLEN, SUSPECTS"  "WILL NOT HAVE SEEN IT."\ D " WHEN YOU THINK YOU KNOW WHO THE THIEF IS AND THE TIME IT " F "WAS STOLEN, THEN YOU SHOULD ENTER A ZERO RESPONSE TO 'SUSPECT'" E "IF YOU GET EITHER THE THIEF OR THE TIME CORRECT, YOU WILL GET" E "ANOTHER CHANCE, BUT WILL LOSE 10 POINTS ON THE FINAL RATING"\ # " > GOOD LUCK <"\ - "> HIT 'RETURN' TO CONTINUE......",Y$\     7)\26)\\\ E( " YOU DETERMINE WHO YOU WANT TO QUESTION AND A SPECIFIC TIME" C2 "FROM ONE TO TWELVE. THE SUSPECT RESPONDS BY GIVING YOU THE" < "FOLLOWING INFORMATION:"\ 2F " 1. SUSPECT'S LOCATION AT SPECIFIED TIME" =P " 2. WHETHER OR NOT THE DIAMOND WAS SEEN IN ROOM #5 " #Z " AT THE SPECIFIED TIME" &d " 3. WHO WAS WITH THE SUSPECT" 9n " 4. WHO THE SUSPECT SAW IN ADJACENT ROOMS"\\\ x \\\\ , "> HIT 'RETURN' TO CONTINUE......",Y$  RETURN' TO CONTINUE......",Y$  . 7)\26)\\\ @ " *******************************************************" @ " ***** *****" @( " ***** *****" @2 " ***** AUCTION *****" @< " ***** *****" @F " ***** ART AUCTION *****" @P " ***** *****" @Z " *******************************************************" d P5),S5),F5),Y$1) n S171)10000) x I1 5  PI)100 9000))  SI)PI)0)) & PI)500 SI)PI).70)) FI)0  I  I1 5  $ \\"** BUY PAINTING #",I\\ = \">> PRICES: ",PI).5SI)),PI),PI).5SI))\ ' \\" >>>> ENTER YOUR BID: $",Y ! \">> OPPONENT'S BID: $",C  YC 0 % \" ## YOU WERE OUT BID ##"\  I  I1 5  FI)0 | +" K1 50))\ WATCH THIS HERE , \CC1000)) A6 \\" &&&&&&& SELL PAINTING #",I," &&&&&&&"\\ E@ "* YOU BOUGHT IT FOR $",FI)\\"* AVERAGE OFFER IS $",PI)50 #J \">> OFFER #",K," IS $",C\ 3T " ACCEPT THE OFFER ??? ( YES OR NO ): ",Y$\ ^ Y$"Y" r h K r PPCFI) | I C \\7)\\"'''''''' YOUR PROFIT IS $",P," ''''''''"\ " "......PLAY AGAIN......",Y$  Y$"Y" x   D0  U171)10)  N655360))  J1 16  QN2)  DD2N2Q)  NQ  J  CPI)SI)D8)8  CC200)  CC)  & 20 \7)\" %%%%% YOU BOUGHT IT %%%%%"\\ : FI)Y D  Y D  ) FIRE ) EST FIRE SIMULATI 1.15.78 HBR  L9,9) ( Y$1) 2 R1171)10000) < 7)\26)\\\ ;F \\20),"** F O R E S T F I R E **"\\\\\ GP \ " >> DO YOU REQUIRE INSTRUCTIONS .......?? ",Y$\ Z Y$1,1)"Y"  d R1 9 \ C1 9 n LR,C)10 x C\ R  I1 3  R90)1)  C90)1) LR,C)9  I , 7)26)\\" 1 2 3 4 5 6 7 8 9"  R1 9  R," ",  C1 9  LR,C)10  ! LR,C)0 LR,C)10  " ",  C  \ R  \ "> ENTER ROW: ",R\  R0 R9  " R0  , \"> ENTER COLUMN: ",C\ 6 C1 C9 , @ I 1 1 \ J 1 1 J ARI \ BCJ "T A1 A9 B1 B9 | "^ LA,B)1 LA,B)10 | h 0).5 | r LA,B)LA,B)3 | J \ I   $ \"> ENTER BACKFIRE ROW: ",R\  R1 R9  ' \"> ENTER BACKFIRE COLUMN: ",C\  C1 C9   LR,C)10 LR,C)2 . R1171)10) \ R1 9 \ C1 9  LR,C)1 LR,C)9 &  LR,C)3 &  I30)1)  J30)1)  ARI \ B CJ " A1 A9 B1 B9 &  LA,B)10 &  0).3 &  LA,B)11 & C \ R 0 F0 : R1 9 D C1 9 N TLR,C) X T11 T9 b T0 T10  l LR,C)T v C \ R  F1    C0  R 1 9 \ C1 9  LR,C)10 WW1  C \ R  RW30  R 100 R100 D \\">>>> YOUR FIRE FIGHTING RATING IS: ",R," % <<<<"\\ 0 \\" RUN IT AGAIN SAM........?? ",Y$\\  Y$1,1)"Y" d   ". ",\    "* ",\  TT1 \ FF1 \ l   INSTRUCTIS * 7)26)\ I4 "*****************************************************************" I> "** A LIGHTENING STORM HAS IGNITED FIRES IN A FOREST. **" IH "** YOUR TASK IS TO PUT OUT THE FIRES AND TO SAVE AS MANY **" IR "** TREES AS POSSIBLE. THE FOREST IS REPRESENTED BY A GRID **" I\ "** 9 X 9 IN SIZE. **" If "** THE CHANCE OF AN EXISTING FIRE SPREADING TO THE **" Ip "** ADJACENT WOODED AREAS IS 70%. FIRES LAST 9 TURNS **" Iz "** BEFORE BURNING OUT. **" I "** YOU HAVE TWO WEAPONS TO FIGHT THE FIRES. YOU **" I "** CAN DROP CHEMICALS ON A SPECIFIC SECTOR. THE CHANCE **" I "** THAT THE CHEMICALS WILL AFFECT THE FIRES IN THIS **" I "** SECTOR AND ITS EIGHT ADJACENT SECTORS IS 50%. THE **" I "** EFFECT OF CHEMICALS IS TO REDUCE THE LIFE OF THE FIRE **" I "** BY THREE TURNS. **" I "** YOUR SECOND WEAPON IS A BACKFIRE. TO START A **" I "** BACKFIRE, YOU MUST RESPOND TO THE ROW INPUT WITH A **" I "** ZERO. YOU WILL THEN BE ASKED FOR A BACKFIRE ROW AND **" I "** COLUMN. THE SECTOR IN WHICH A BACKFIRE IS STARTED **" I "** MUST BE WOODED. THIS BACKFIRE WILL NOT SPREAD AND **" I "** WILL BURN OUT IN THE NEXT TURN, FORMING A BARRIER **" I "** AGAINST THE SPREAD OF THE FIRES. **" I "*****************************************************************" 0 ">>> HIT 'RETURN' TO CONTINUE......",Y$  INUE......",Y$ y  FISHING  P8,8),D8,8),M$1),X$1)  W171)1000) ( I1 8 \ J1 8 2 PI,J).7 0) < DI,J)0) 5 1) F J\ I P P1,1)0\ P0\ C1\R1 Z T0 6 .1 #d 0)PR,C) DR,C)1  n N0)DR,C)1) x W0)RC)1 PPNW ' \">>> YOU CAUGHT ",N," FISH ", % "EACH WEIGHTING ",W," POUNDS ", # "AT LOCATION ",R,C," <<<"\ @ \"%% TOTAL POUNDS OF FISH THIS TRIP IS ",P," POUNDS !"\ 8 0)T60 "* STORM.....LOST 1/2 HOUR !"\TT.5  J100))1  J4  J1   J2   J3 N  J4  4 \"> YOU HAVE FISHED FOR ",T," HOURS......"\ # ">> MOVE (N,S,E,W,F,B): ",M$  M$"E" CC1  M$"N" RR1 " M$"W" CC1 , M$"S" RR1 6 M$"B" ( "@ R1 R8 C1 C8  J R1 C1 | T T /^ \">> TIME UP..... THE SUN HAS SET !!"\ .h " HALF OF YOUR CATCH HAS SPOILED....."\ r PP2 | T0  ( \"* YOU ARE BACK AT THE DOCK *"\ & "AFTER ",T," HOURS OF FISHING"\ 0 "YOU MUST CLEAN ",P," POUNDS OF FISH !!"\ 7 ">>> YOU RATE ",P5)," AS A FISHERMAN !!"\\ , \\\" ANOTHER FISHING TRIP......",X$  X$1,1)"Y" (  \7)\  RC 9 % \"* FISH SCARED BY SHARKS...."  "NOT BITING AS OFTEN..."  I1 8\ J1 8  PI,J)PI,J).1  J\ I  , \"* SEAGULLS ATE SOME OF YOUR BAIT !" / "CATCH WILL BE SMALLER THIS TRIP......"\ & I1 8\ J1 8 0 DI,J)DI,J)1 : J\ I D 'N \"* WATER SPOUT DISPLACES YOU !" X R80)1) b C80)1) 1l ">>> YOU ARE NOW AT LOCATION ",R,C," !!" v TT.2  9 \"*** YOU HAVE JUST CAUGHT A 50 LB. SHARK !!!"\  PP50 7 "> TOTAL POUNDS OF FISH THIS TRIP IS ",P," LBS"\    \"** NO BITES ",\ 1 7)\7)\"*** GROUNDED & SUNK ***"\\   # \"* STILL AT DOCK *"\\ ( \ (  C$1) G#P,"*************************************************************" G#P,"****** ******" G(#P,"****** ******" G2#P,"****** AIRCRAFT ******" G<#P,"****** FLITE PLAN ******" GF#P,"****** ******" GP#P,"****** ******" GZ#P,"*************************************************************" d#P,\#P,\#P,\#P, 1n "HOW MANY GALLONS OF USEABLE FUEL > ",F1\ -x "ENTER FUEL CONSUMPTION IN GPH > ",F\ 2 "WHAT IS THE TRUE AIR SPEED IN KNOTS > ",T\ ? "* THE WIND IS FROM WHAT (TRUE) DIRECTION (DEGREES) > ",D  , "WHAT IS THE WIND SPEED IN KNOTS > ",S  D "WHAT IS THE MAGNETIC VARIATION (EAST=+ WEST=- DEGREES) > ",V  6 "WHAT IS THE COURSE FOR THIS LEG (DEGREES) > ",C  ) "HOW LONG IS THIS LEG IN NM > ",M\  R57.2958 DDV ADC)  S0 B0  S0 "  BST " B1BBB1)) , HCB1RA) 6 H0 h @ #P, J HH10.5)10 0T #P," >>>> HEADING IS ",H," DEGREES"\#P, ^ | h HH360 r @ | GTHC)R)SDC)R)  GG10.5)10 3 #P," >>>> GROUND SPEED IS ",G," KNOTS"\#P,  G0  G 7)\7)\"~~~~~ YOU CAN'T GET THERE THIS WAY ~~~~~"\\  T160MG  T1T110.5)10 D #P,\#P," >>>> THE TIME FOR THIS LEG IS ",T1," MINUTES"\#P,  T2T2T1 = T260 #P," >>>> TOTAL TIME IS",T2," MINUTES"\#P,  T260   T3T260)  T4T2T360 J #P,\#P," >>>> TOTAL TIME IS ",T3," HOURS AND ",T4," MINUTES"\#P,  F2FT160)  F2F210.5)10 C#P,\#P," >>>> FUEL USED ON THIS LEG IS ",F2," GALLONS"\#P, & F1F1F2 0 F3F3F2 U:#P,\#P," >>>> TOTAL FUEL USED IS ",F3," GALLONS, LEAVING ",F1," GALLONS"\#P, D F10  N #P, IX #P,\"ANY SPEED, WIND, OR VARIATION CHANGES THIS LEG....",C$\26) b C$"Y" x l v #P, @ #P,"#### RUNNING OUT OF FUEL IN FLIGHT CAN BE ####" J #P,"#### HAZARDOUS TO YOUR HEALTH ####"\#P,\#P,  Z  aGva?9%x@ 6 THE MOPOLY PROGRAM HIS DISK WAS SENT GD > BY HENRY ROTHBERG, 61 RIMM ROAD, WOODBRIDGE, CT. 06525 5 IT WAS RATHER BADLY BROKEN OK EVER . 7( GD HAS BEGUN WK IT WOULD LIKE YOUR SUG "2 GESTIS. 415) 3254209. < KNOWN BUGS 7F YOU OWN BOTH PENNSYLVANIA AVENUE PENNS 9P YLVANIA RR., YOU CAN'T BUILD THE PENN. AVE. 8Z LOT. THIS IS BECAUSE THE STRING MATCH WOULD 7d NEED BE 14 CHARACTERS LG. AS THE PROGRAM 7n NOW S, YOU CAN PUT IN THE FIRST CHARACTERS 3x OF ANY LOT NAME AS LG AS THE FIRST 5 7 CHARACTERS MATCH, THE PROGRAM EATS ENJOYS.  1 THE FINAL CASH AT THE IS AS IT WAS / SUPPLIED GD, INATELY IS WRG.  5 YOU MUST MTGAGE ENOUGH PROPERTY SATISFY 2 THE BANK THE FIRST TIME YOUR PROPERTY 6 IS GIVEN YOU, OTHERWISE THE PROGRAM TAKES ) YOU A DEADBEAT, YOU LOOSE  7 YOU LY SEE YOUR STATUS AS YOU GO AROUND GO. 7 THIS IS SO BAD, EXECPT THAT MY MEMY ISN'T  VERY LG.  2 YOU ARE ED ACCOUNT YOUR MISMAN 8 ENT UNTIL YOU GO AROUND GO. THOSE WHO FIND 8" COMT IN WINNING BY CHEATING WILL SURELY TAKE 6, ADVANTAGE OF THIS BUG. HOWEVER YOU ACT 46 YOUR UITI AB YOUR FUNDS, YOU WILL FIND 5@ YOU LY OVER AB AS MUCH AS THE COMPUTER &J DOES, IT KIND OF EVENS . T 3^ E THING NEEDS BE DE. ADD A RINE 6h SEE YOU HAVE ANY PLACE LEFT BUILD ANY 6r MOPOLIES YOU MAY HAVE. IT IS A BE IN THE 6| GAME KEEP ANSWERING THE BUILDING PROMPT ' WHEN YOU REALLY CAN'T BUILD.  5 COMPE THE JOB, THIS SHOULD HAVE ALL THE 7 MOPOLY RULES IN A FILE LIKE THE OTHER GAMES  IN THE SYSTEM.  ; I PROBABLY SHOULDN'T PUT THIS IN THE LIBRARY IN IT'S 8 CURT STATE, BUT I D'T HAVE MUCH ME TIME MESS : AROUND WITH IT. BUT THOSE MOPOLY HOUNDS LIKE MY  SISTER I, IT IS A GAS ! HAVE FUN, " GD  "LIST THIS REMARKS FILE!"  BATSHIP  C8$26)\ CLEAR EEN * C8$,27),"BATTLESHIP"\\\\\\\ +( "HELP!! I NEED A RANDOM NUMBER. : ",R 2 RR)R))) < G3,9,9) F E5),Y5) P S5),S$80),Z$72),C$10) Z C8$ d RR)0)R) #n "THE SHIP'S A BIT ROCKY SIR!" 2x "BETTER WAIT A MOMENT BEFORE YOU BOARD HER."   \" S P L I S H" $ P0\ j\ INITIATE YOUR FLEET  \" S P L A S H" ! P1\ .\ CLEAR YOUR SLATE  \" S W I S H L E" ' P2\ j\ INITIATE ENEMY'S FLEET  \" G U R G L E" $ P3\ .\ CLEAR ENEMY'S SLATE d   C91 C90\ BOARD ( P0 " Y O U R F L E E T" * P1 " Y O U R S L A T E" . P3 " E N E M Y ' S S L A T E" 5 P2 \" NAUGHTY YOU PEEKING LIKE THAT!"\ "" Z$" . T A B C D * <0>" (, " A B C D E F G H I J" 6 J 0 9 @ J," ", J K 0 9 T P1 h,|,h,| ^  Ch GP,J,K)17 Z$GP,J,K)3)1,GP,J,K)33)), " . ", r  | GP,J,K)17 " . ", 9 GP,J,K)17 Z$GP,J,K)3)1,GP,J,K)33)),  K   J  S0 P1 C91   INSTRUCTIS  91),  \\ 8 " W E L C O M E T O B A T T L E S H I P !"  \\ F "YOU HAVE FIVE SHIPS(A TANKER,A CRUISER,A DESTROYER,AN AIRCRAFT" F "CARRIER,AND A BATTLESHIP)AND THE ENEMY'S FLEET HAS FIVE SHIPS." E "NEITHER KNOWS THE OTHERS POSITION BUT BOTH OF YOU WILL TRY TO" C "SINK THE OTHER'S FLEET. THE FIRST TO SUCCEED IN THIS IS THE" E "RULER OF THE HIGH SEA'S. YOU WILL START BY STATING A POSITION" C& "THAT YOU WISH TO HIT(I.E. C3 ). YOU WILL BE TOLD IF A HIT" F0 "OR A MISS HAS OCCURED. IF YOU SINK A SHIP YOU WILL BE INFORMED" E: "OF THE TYPE OF SHIP YOU SUNK. THEN THE ENEMY WILL TAKE A SHOT" FD "AT SINKING YOU. EACH WILL ALTERNATE TILL ONE OF THE FLEETS HAS" N "BEEN SUNK." X #b "PRESS RETURN TO CONTINUE",Q$ :l "IF YOU WANT TO SEE THE ENEMY'S SLATE ENTER AN 'E'." 3v "IF YOU WANT TO SEE YOUR SLATE ENTER AN 'M'." 3 "IF YOU WANT TO SEE YOUR FLEET ENTER AN 'F'." . \" G O O D S H O O T I N G ! ! !"  \\ # "PRESS RETURN TO CONTINUE",Q$  \\\   GET A CODINATE    \" E R R O R ! ! !"  C91 9 \"ENTER THE LETTER AND THE NUMBER AND HIT RETURN."  \"NOW SIR, WHAT IS YOUR",  " COORDINATE",  C$   F0 " C$"M"  P1\F1\ #  C$"E" * P3\F1\ "* C$"F" 4 P0\F1\ 4 F1  #> C$"CHEAT" H P2\ 4H C$)2 C$2,2))48 C$2,2))57  R RC$2,2)) \ CC$1,1))65 f C$C$2,2) p R0 R9  z R0 R9   C0 C9   G1,R,C)6   \" E R R O R ! ! !" 3 \"THAT LOCATION HAS ALREADY BEEN TRIED SIR!"  \   ) "OH LORD! IT'S ANOTHER MISS SIR."\  "MISS",M," SIR."\ . "OH WHERE THE BLAZES CAN THEY BE SIR?"\ * "NICE TRY SIR. STILL IT'S A MISS."\ 2 "...ANOTHER MISS SIR. THAT'S NUMBER",M,"!"\  "....MISS",M," SIR."\ 3 "DAMN! DAMN! DAMN! WE'VE MISSED AGAIN SIR."\ # "....YET ANOTHER MISS SIR."\ 7 "...MISS...MISS...MISS! SIR! WHERE ARE THEY!!!"\ + "THE BASTARDS ARE WELL HIDDEN SIR!"\ $ . SET UP E ROM BOARD 8 J0 9 B K 0 9 !L GP,J,K)0 \ CLEAR THE AREA V K\ J ` j . /t J 1 5 \ FIVE SHIPS BE PUT BOARD ~ C1R2)  R10  C10 R11  C2R10SJ)C1)  R2R10SJ)R1)  K 0 SJ)1 % GP,R2R1K,C2C1K)0 ~ $ \ FINISH CHECKING IT IS CLEAR  K 0 SJ)1  GP,R2R1K,C2C1K)J  K  J   INITIALISE THE SHIPS 0  "TANKER"\S1)3\ THIS IS IT'S NAME GTH  "AIRCRAFT CARRIER"\S2)5  "BATTLESHIP"\S3)4 ( "CRUISER"\S4)3 2 "DESTROYER"\S5)2 < R310\C310 F Y0\E0\S0\M0 $P J1 5\EJ)SJ)\YJ)SJ)\ Z d MAIN GAME IS HERE n 91) +x \\"DO YOU HAVE YOUR SEA LEG'S SIR",  Q$  \  Q$1,1)"N"   P0  4 \\"PRESS RETURN TO SEE YOUR SLATE",Q$\91)  P1   \  S0  S0 C91  SS1 ) "READY TO BLAST SIR! WHAT IS YOUR",    ' G1,R,C)6\ SET UP RECD A MISS " G2,R,C)0  , TG2,R,C) 6 G2,R,C)7\ IT'S A HIT @ G1,R,C)7 J ET)ET)1 T YY1 ^ ET)0  h r J1 6 | K175\  " B O O M",10),  K150\   \\"THAT'S HIT",Y," SIR."   *  \\\" SIR! THEIR ", . \ I1 T\ S$\\S$," HAS BEEN SUNK!!" % J 1 1000\\ TIME AY LOOP  91) & \"SO FAR THE ENEMY HAS SUNK..."   F0  J 1 5  YJ)0 :  F1 " AND ", & F1 +0 " OUR ",\\ I1 J\ S$\\S$,"..." : &D F0 "NONE OF OUR SHIPS SIR!" N F0 X J13000\ 2b \\\"A N D W E ' V E S U N K . . . . " l \\ v J 1 5  EJ)0   F1 " AND ",  F1 - " THEIR ",\\ I1 J\ S$\\S$,"..."  7 F0 " NONE OF THEIR SHIPS HOW COULD YOU SIR!"  \  C91  J12000\  *  91)," S P L A S H ",  MM1 3 M1 " TOO BAD SIR. IT'S A TOTAL MISS." 4 S2 M2 "...A TERRIBLE WAY TO START SIR." 9  M2 S2 "...I'M AFRAID YOU MISSED AGAIN SIR."  M2 r   J1 2000\ * 4 Y16 R > E16 H  R "YOU DID IT SIR !!!"\\ $\ "YOU SUNK THE ENTIRE FLEET!!!" f \\ %p "SHALL WE DO IT AGAIN SIR? ",Q$ z Q$1,1)"Y" n   \  R310 H52 F  R310 H52   R310  H50  RR10)\CR10)  G0,R,C)5   RC) 1)1   R4R\C4C ) "THE ENEMY FIRES ON OUR LOCATION ",  C65),R48)," SIR."\  G0,R,C)0  WG0,R,C)  EE1  G0,R,C)7 $ G3,R,C)7 . YW)YW)1 ,8 "THEY'VE HIT OUR ",\\ I1 W\ S$\ B S$," SIR!" L R3R\C3C V H5H51 ` C90 t j J1 2000\ t YW)0  ~ J1 500\ \\\ , "IN FACT SIR THE ENEMY HAS SUNK OUR ",  \ I1 W\ S$\\S$,"!"  J1 1000\  R310\C310  1 "THEY MISSED US SIR. "  G0,R,C)6  G3,R,C)6  C90  J1 2000    ENEMY WINS ) "THE ENEMY HAS SUNK OUR LAST SHIP!" ! "WE'VE LOST THE FLEET SIR." ( "ANOTHER BATTLE SIR?",Q$ 2 Q$1,1)"Y" n < F PICK A DIRECTI P R50\C50\T50\F50 Z PR4) d P0 R51 n P1 R51 x P2 C51  P3 C51  R3R59 R3R50 F  C3C59 C3C50 F  G0,R3R5,C3C5)5 P  RR3R5\CC3C5   SEARCH DESTROY A HIT T5T51  RT5)R3\CT5)C3  G0,R3,C3)6 "  R3R59 R3R50 "  C3C59 C3C50 "  G0,R3R5,C3C5)5 "  R3R3R5\C3C3C5  RR3\CC3   " GET A NEW DIRECTI , F5F51 6 F51 ^ @ R5R51\C5C51 J R3R4\C3C4 T ^ R310\C310 h  r ENSIGN'S ARKS MISSES =| 100))1 ,,,,,,,,, ,,,,,, OV  z{"4@/ ? ? ? SAFECMB ?( >2 < A$1),D$1) F A12),D5$20) P 12.25.77 Z J171)100000) d \\ \\ Dn5),"** S E C U R I T Y C O M B I N A T I O N S **"\\ %x "ENTER TODAY'S DATE: ",D5$\\ 0 "IF YOU NEED INSTRUCTIONS ENTER Y: "\\ A$  A$"Y"    P0 < "HOW MANY LINES OF COMBINATIONS DO YOU REQUIRE: "\\  Q * "COMBINATIONS OF 3 OR 4 ",K\\ 5 " WHAT LEVEL OF SECURITY ( 1 TO 10 ): ",L\\ # "HARD COPY OR CRT > ",D$\\  D$"H" P1 P0 " Y15\\Y\\Y15\\Y A5),"** S E C U R I T Y C O M B I N A T I O N S **"\  Y15\#P,\Y  20),D5$  " J1 Q , I1 12 6 AI)0)100 @ AI)AI)) J I T K3 D l ^ h J r \ |  P0 6 " ***** RUN ADDITIONAL COMBINATIONS ??? "  A$\ A$"Y" :  INSTRUCTIS  \   ?5),"** S E C U R I T Y C O M B I N A T I O N S **" J "THIS PROGRAM GENERATES COMBINATIONS TO USE WITH SECURITY DEVICES"\ E "ENTER NUMBER OF LINES OF COMBINATIONS REQUIRED WHEN REQUESTED" * "HIT 'RETURN' WHEN READY.......",T$       W62 & U1 W\"*",\ U 0 : D KN A1),",",A2),",",A3)," ",A4),",",A5),",",A6),",",A7)," ", 4X A8),",",A9)," ",A10),",",A11),",",A12) b ?l A1),",",A2),",",A3),",",A4)," ",A5),",",A6),",", Av A7),",",A8),","," ",A9),",",A10),",",A11),",",A12)  \NF]C/A 0B!BxBBcBBAGBB8BpBGB44 PAbBcB@A0! C$1)\P0\ P1 ED PUT  Y$1)  26)\7)\7) A(#P,"*******************************************************" A2#P,"*******************************************************" A<#P,"****** " AF#P,"****** " AP#P,"****** " AZ#P,"****** " Ad#P,"****** SAIL & MOTOR BOAT " An#P,"****** COURSE PLANNING " Ax#P,"****** " A#P,"****** " A#P,"****** " A#P,"*******************************************************" A#P,"*******************************************************"  0 \" DO YOU REQUIRE PRINTED OUTPUT ?? ",Y$ - Y$"Y" P1\ HARDCOPY DEVICE IS #1, 1 "HOW MANY GALLONS OF USEABLE FUEL > ",F1\ - "ENTER FUEL CONSUMPTION IN GPH > ",F\ 9 "WHAT IS THE SAILING/CRUSING SPEED IN KNOTS > ",T\ B "* THE CURRENT IS FROM WHAT (TRUE) DIRECTION (DEGREES) > ",D  6 "WHAT IS THE SPEED OF THE CURRENT IN KNOTS > ",S  D "WHAT IS THE MAGNETIC VARIATION (EAST=+ WEST=- DEGREES) > ",V  6" "WHAT IS THE COURSE FOR THIS LEG (DEGREES) > ",C , )6 "HOW LONG IS THIS LEG IN NM > ",M\ @ R57.2958 J DDV T ADC) ^ S0 B0 h S0 | r BST | B1BBB1))  HCB1RA)  H0   #P,  HH10.5)10 8 #P," >>>> HEADING TO MAKE IS ",H," DEGREES"\#P,    HH360    GTHC)R)SDC)R)  GG10.5)10 G #P," >>>> CORRECTED SPEED ACROSS THE WATER IS ",G," KNOTS"\#P,  G0  G 7)\7)\"~~~~~ YOU CAN'T GET THERE THIS WAY ~~~~~"\\  T160MG  T1T110.5)10 D #P,\#P," >>>> THE TIME FOR THIS LEG IS ",T1," MINUTES"\#P, & T2T2T1 =0 T260 #P," >>>> TOTAL TIME IS",T2," MINUTES"\#P, : T260 b D T3T260) N T4T2T360 JX #P,\#P," >>>> TOTAL TIME IS ",T3," HOURS AND ",T4," MINUTES"\#P, b F2FT160) l F2F210.5)10 Cv#P,\#P," >>>> FUEL USED ON THIS LEG IS ",F2," GALLONS"\#P,  F1F1F2  F3F3F2 U#P,\#P," >>>> TOTAL FUEL USED IS ",F3," GALLONS, LEAVING ",F1," GALLONS"\#P,  F10   #P, I #P,\"ANY SPEED, WIND, OR VARIATION CHANGES THIS LEG....",C$\26)  C$"Y"  "  #P, = #P,"#### RUNNING OUT OF FUEL AT SEA CAN BE ####" J #P,"#### HAZARDOUS TO YOUR HEALTH !!! ####"\#P,\#P,   ` N`0  THE GAME OF FROG  #1,"RANDNUM" #1,X QX)  #1\#2,"RANDNUM"\#2,Q\#2  "***RIBBETT***"  "HOW MUCH TO WIN? ",F ( F0 '2 "WHO GOES FIRST? (1=YOU,0=ME) ",Q < S0\R0\Q1P F Q0 P  Z T0 &d \"YOU ROLL AND GET A ",\^ n D3S0 x T0 @  "ROLL AGAIN? ",A$  \A$1,1)"Y"d  A$1,1)"N"  SST\ SF  T0 $ \"I ROLL AND GET A ",\^ D3R0 T0P  \C1 & RRT\"I'LL STOP WITH THIS"\  RF  Z  X0)6)\Y0)6) " D0\X1DD1 , Y1DD2 6 %@ "SCOREBOARD: ME-",R,", YOU-",S, J ", SCORE THIS SERIES ",T T \ 0^ D1"FROG AND A ",Y,", DICE CHANGE HANDS" -h D2X," AND A FROG, DICE CHANGE HANDS" r D3 "FROG AND A FROG" &| D3"---------CROAK!!!--------"  D0X," AND A",Y  \TTXY\D0  T0\ < "SCOREBOARD: ME-",R,", YOU-",S,"; ",F," NEEDED TO WIN"  \  "WELL, THAT'S IT, ", " RF" SKILL TRIUMPHS AGAIN" ! SF" BOY, WERE YOU LUCKY"  # "HOW ABOUT ANOTHER GAME? ",A$  \A$1,1)"Y"   VRT\VFN  FS)10X  RS&  LT25\D & VS: 0 LT30\D : LT35 D 0)LX N C0\ X C1\ $Sa3?9%x@ - WKED OVER BY GD FCH 415) 3254209  F40,9),O40,1),A40,1) . G1),H1),J1),K1),M1),Q1),T1),V1) ;( B$21),C$5),J$1),P$1),R$4),U$4),N$556),S1$16) ) S2$22),S3$12),S4$11) + S1$"DO YOU WANT TO " , S3$S1$1,12) !- S2$" GET OUT OF JAIL CARDS" . S4$"UNMORTGAGED" / S5$S4$3,10) 0 S6$S4$3,11) 1 S7$S4$1,10) 2 #2,"MONDATA,1" < #2,N$ A P50 F X1 40 K ZX10)1 P Y0 9 Z Y0 FX,Y)PZ _ \ d _ #2,FX,Y) d Y n X x #2  #1,"RANDNUM,1" #1,X  #1 YX)  #1,"RANDNUM,1" #1,Y  #1  F0 1  JF)0  VF)0  GF)1  TF)0  MF)1500  F  R0)2)  UR1) 1 "MONOPOLY-------",S3$,"INSTRUCTIONS",\ T$  T$1,1)"N"  ? "THIS IS LIKE THE PARKER BROS. GAME, WITH AN EXCEPTION:" # "IT'S YOU VS. THE COMPUTER."  R$"I " " U$"YOU " , R0  6 \R$," GO FIRST." @  J T  ^ VR)0 r h  r R11 V | R12 n  $  JR)JR)1  GR)HR) JR)0  JR)3   JR)0 : R$,"HAVE ROLLED 3 DOUBLES IN A ROW, AND GO TO JAIL."  0  J  TR)TR)I  TR)40 B  R$,"LAND ON ",  "  OTR),R)   OTR),U) >  J$"?"   J$"S" ~ # " THE PROPERTY IS UNOWNED," '& "AND IT COSTS $",FTR),1),". ", 0 R  : S1$,\ "BUY IT? ",T$ D T$1,1)"N" X N  X F70 b F20 l F2 40 v OF,R)0 F71  OF,R).5 F21  F  F2 b  F7   J    GU)HU)    U$,"ROLLED DOUBLES, SO ",  RU  C$R$  R$U$  U$C$  UR1)    " ",R$,"OWN IT."   * "BUT IT'S ",S6$ 4  > " ",U$,"OWN IT." H OTR),U)0 * R J$"R"  \ J$"U" . f G5FTR),ATR),U)2) /p ATR),U)0 OTR),U).5 G5G52 z MR)MR)G5  MU)MU)G5  R$,"PAY $",G5," TO ",  R0 "ME, FOR",  R "YOU, FOR",  ATR),U)0 " RENT."  ATR),U)0  1 ATR),U)5 " A HOTEL IS ON ",B$2),"." C ATR),U)5 ATR),U)," HOUSE(S) IS (ARE) ON ",B$2),"."    L212.5  L31 KU)  L2L22  L3 8 "SINCE ",U$,"OWN",KU)," RR'S, ",R$,"PAY $",L2,"."  MR)MR)L2  MU)MU)L2 $  . II4 &8 O13,U) O29,U) II2.5 0B R$,"ROLLED A",GR)HR),", SO ",R$,"PAY ", L R0 "ME $",I,"." V R R$,"$",I,"." ` MU)MU)I j MR)MR)I t  ~ TR)4     R11   R12 <  TR)20 P  TR)30 0   J  TR)38 x    ' " WILL YOU PAY 10% OR $200? ",T$  T$1,1)"1"  ! R " I WILL PAY $200.",  MR)MR)200    MR)MR)MR)10)  MR)MR)MR)10) !( R " I WILL PAY 10%.", 2 < MR)2000  F  P x " ",R$,"PAY $75.",  MR)MR)75   MR)MR)FTR),1)  OTR),R).5  \  T$"R"  KR)KR)1   R11 X  R12   R$,"WILL BUY IT."    M1)750 J  F0  C01 40 " OC0,R)0 FC0 , C0 6 F0 h @ R$,S7$," ", J , O G4F T 4 ^ h M1)500 J r F21 40 | G4F2  OF2,R).5 F241  F2  F242   J  F21 M1)500)  G21  F40 1 1  6 ) OF,R).5 AF,R)5   F  F0   F2100  F2   P$B$  S3 3  FS0 FS41 0 & : 0 PF 1 FFS 2 6 3 FP 4 P$J$ : -6 OFS,R).5 AFS,R)AF,R) X : S D R G4F I 6 N F1 X $b S1$,\ "BUY ANY HOUSES? ",T$ l T$1,1)"N"  'v "ON WHAT, AND HOW MANY? ",H$,G2 { C$H$   P$B$  AG4,R)G25   OG4,R).5  % "YOU CAN'T BUILD ON ",B$2),"!"  b    F0     R$,"BUY A HOUSE ON ",B$2)  MR)MR)FG4,0)G2)  AG4,R)AG4,R)G2  R1 X,  # S1$,S7$,\ " ANYTHING? ",T$  T$1,1)"N" *  "WHAT PROPERTY ",S1$,S7$,"? ",\ H$  C$H$1,5)    OG4,R)0 4 *  4 MR)MR)FG4,1)2)1.1 > OG4,R)OG4,R) R \ Y00 f Y72 "p TR)37 TR)5 Y73 z T$J$  FTR)3 TR)3  F41 F1     6 ! T$J$ OF,R) $  F  Y0Y7   AOTR),R)  FTR)3 TR)3  F0 F41     OF,R)A OF,R).5  F  - R$,"NOW HAVE A MONOPOLY ON THAT GROUP."  $ Y0Y01 . OF,R)F1)5)1 8 B MR)MR)200 L TR)TR)40 $V "SINCE ",R$,"PASSED GO, ",S3$, ` R "MY", j R0 "YOUR", t " CURRENT STATUS? ",T$ ~ T$1,1)"N"   R0 "YOUR",  R "MY", . " CURRENT STATUS:"\" MONEY $",MR) ' "PROPERTY", 22),"CONDITION "\  F1 40  OF,R)   F   MR)0  R11 n  R12   ,  22), ( OF,R).5 "UNCHANGED" -2 OF,R).5 AF,R)0 " MONOPOLY" < OF,R)0 S6$ F AF,R)0 P AF,R)5 " HOTEL" &Z AF,R)5 AF,R)," HOUSE(S)" d 8n " YOU ARE IN DEBT TO THE BANK. YOU OWE$",MR),"." Cx "YOU'LL HAVE TO ",S5$," SOME (OR ALL) OF YOUR PROPERTY AND/" D "OR SELL SOME(OR ALL)OF YOUR HOUSES AT 1/2 THE NORMAL PRICE." J 1 "HOW MANY HOUSES ",S1$,"TO SELL ON ",B$2), G5 A G5AF,R) "BUT YOU ONLY HAVE",AF,R)," HOUSE(S) ON IT."  G5AF,R)  G50 O3  G50  AF,R)AF,R)G5 $ MR)MR)F10)1)25)G5  MR)0 ( "YOU NOW OWE THE BANK $",MR),"." O1   S1$,S5$," ",B$2),  T$  T$1,1)"N" O4 " T$1,1)"N" , OF,R)OF,R) 6 MR)MR)FF,1)2 @ J O0 T F1 40 ^ 6 h AF,R)0 r F41 &| OF,R)0 AF,R)0   F  O J  MR)0 b v 8 "SINCE YOU ARE BANKRUPT (IN THE HOLE $",MR),")," L90 ` O0 F41   F1 40 6  C$B$2,6) G4F  C$B$2,6) 0  F & D 0 FG4 : %D "GIVE ME PROPERTY NAME AGAIN." (N "I COULDN'T FIND IT. ",F7$\C$F7$ X b R$," NOW HAVE $",MR),"." l v L2MR)  N61 40  ON6,R)0 ON6,R)0 ON6,R)1 ! ON6,R)0 ON6,R).5  L2L2ON6,R)FN6,1)  L2L2AN6,R)FN6,0) N6  " "I OWE THE BANK $",M1),"."  F2 40  OF,R).5  F  M1)0 b  F2 40  AF,R)  F  MR)0 b * F2 40 4 OF,R)0 > F H MR)0 b R R0 \ v a R$U$ p AL2 z `  OF,R)OF,R) & "FOR $",FF,1)2,", I ",S6$," ",  M1)M1)FF,1)2 ,   M1)0 F41   S1 3  FS40 4 OFS,R)OF,R) AFS,R)AF,R)  S " "I SELL (FOR",FF,0)2,") ",  M1)M1)FF,0)2)  "A HOUSE ON ",  $ GR)0)61) . HR)0)61) 8 IGR)HR) = P20 5B R$,"ROLL A",GR)," AND A",HR),", MAKING",I,"." L V O0 ` QR)0  j GR)HR) VR)0 >>RREADING RRBORIENTAL AVE?CHANCE #1BVERMONT AVEBCONNETICUT AVESJAIL (JUST VISITING)CST. CHARLES PLACEUELECTRIC COCSTATES AVECVIRGINIA AVERPENNSYLVANIA RRDST. JAMES PLACE?COMMUNITY CHEST #2DTENNESSEE AVEDNEW YORK AVESFREE PARKINGEKENTUCKY AVE?CHANCE #2EINDIANA AVEEILLINOIS AVERB & O RRFATLANTIC AVEFVENTNOR AVEUWATER WORKSFMARVIN GARDENSS!!! GO TO JAIL !!!GPACIFIC AVEGNORTH CAROLINA AVE?COMMUNITY CHEST #3GPENNSYLVANIA AVERSHORT LINE RR?CHANCE #3HPARK PLACES%%% LUXURY TAX %%%HBOARDWALKSGO`B AB0BBC%CABB7B`B@A B`BC2CEC8BHBIBgB ChBxBC`A0BB'C@CUCyBBBCC`A0BB'C@CUC C0CCA@BC0CEC`C@CCCCCBPBCECbPCuCCpCCCCCBPBCECbPCuCCCCB`BCPCpCCC 0C C @C!CCBpB CUCuCC"C#PC#`C%@CCBpB CUCuCC%PC&C CBB"C`CCD&C(C( C)@C"CBB%CpCPCPD)PC0pC0C1pC"CBB%CpCPCPD1C2C$C BC0CuCPCD3C4 C C40C5C&C"BC3CCPCPD5 C6@C&C"BC3CCPCPD6PC7`CC7pC8C(C$BCCC%DD8C@0C@@CB C0C&BC9CCDuDB0CC@C0C&BC9CCDuDCPCE0CE@CG C2C(BCECDDDG0CHC CICP0CP@CQ0C5C5BPCPCDDDQ@CR@CRPCT0C@CPB C`CDD DT@CU0CU@CU`C, : T260 b D T3T260) N T4T2T360 JX #P,\#P," >>>> TOTAL TIME IS ",T3," HOURS AND ",T4," MINUTES"\#P, b F2FT160) l F2F210.5)10 Cv#P,\#P," >>>> FUEL USED ON T  DIRECRY ST & STS BY ING DISK ADDRESS %( STEVE WILLIAMS 41278 2 < SELECTI ST .F THE CHARACTERS THAT ARE ED DURING 2P THE ST ARE THE FIRST CHARACTER OF THE )Z FIAME BEING INED. IT IS ED 2d AT THE COLUMN OF IT'S RELATIVE POSITI -n IN THE DIRECRY. THE ST ALGITHM 1x ALSO INCPATES THE FEATURE THAT WHEN . THE ST IS DE, THERE ARE NO BLANK 0 DIRECRY ENTRIES BETWEEN THE FIRST + LAST NEMPTY DIRECRY ENTRIES.   #0,"DIRECTRY" ' P10 \ I0 63 \ #0 %I16,&F0 ( F032 \ I),F0), \ P1I \ $ I0 62 \ L360 \ JI P1 # #0 %J16,&F0 \ F032   J),F0),  #0 %J168,&F1,&F2  FF1F2256 \ FL   LF \ PJ   " L360  , PI  6 I),"SWAP:",P,I /@ #0 %I16,&W0,&W1,&W2,&W3,&W4,&W5,&W6,&W7 )J #0,&W8,&W9,&X0,&X1,&X2,&X3,&X4,&X5 /T #0 %P16,&Y0,&Y1,&Y2,&Y3,&Y4,&Y5,&Y6,&Y7 )^ #0,&Y8,&Y9,&Z0,&Z1,&Z2,&Z3,&Z4,&Z5 1h #0 %I16,&Y0,&Y1,&Y2,&Y3,&Y4,&Y5,&Y6,&Y7, +r #0,&Y8,&Y9,&Z0,&Z1,&Z2,&Z3,&Z4,&Z5, 1| #0 %P16,&W0,&W1,&W2,&W3,&W4,&W5,&W6,&W7, + #0,&W8,&W9,&X0,&X1,&X2,&X3,&X4,&X5,   "DONE"  #0 \ [[[[[DIRECTRY* DOS  BASIC -* DIRPACK ; DIRSORT @ M0000 H M2A00 P* CREATE X* DIRLIST ]  DIRCOMP g  FINDADDRq DISKMAP v ADDSONAME 1062 MVI C,FNLEN 1070 LOOP1 CALL INCHR 1080 CPI 5FH )1090 JZ RUB ;REAL RUBOUT 1100 STAX D 1110 MOV B,A 1120 CALL OUTCHR 1130 INX D 1140 DCR C /1150 JM FTL ;TOO LONG NAME:ERR (1160 CPI CR ;CHAR A CR? '1170 JNZ LOOP1 ; NO:MORE +1171 XCHG ;POINTER TO HL 11172 MVI M,0 ;TERMINATE WITH NULL 1174 CALL CRLF 1180 * -1190 * GOT THE FILENAME: ISSUE COMMAND 1200 * TO THE LINE 1210 * -1220 LXI H,COMMS ;COMMAND MESSAGE 1230 CALL SNDSTR '1240 LXI H,NAME ;SEND NAME 1250 CALL SNDSTR 1260 * 1270 * NOW DO THE LOAD $1280 * DISPLAY DEVICE MUST BE .1290 * AT LEAST AS FAST AS LINE DEVICE, &1300 * OR CHARS WILL BE MISSED! 1310 * 1320 LOOP2 CALL XGCHR -1330 CPI ':' ;START OF BLOCK? 1340 JNZ LOOP2 )1345 MVI D,0 ;ZERO CHKSUM .1350 CALL GFRM ; YES:GET