NSUGV18 <*>  *MENU  $LOAN  $PMTS  -BIO  -CRAPS   -TIKTAK & -DICE -  -GUESS 7 *ENLARGE: *CALC =  :PHONEBKF *DUMP N :STAR U :NAVSTAR]  -RATFIL g  -RATMAZE -PIRANHA  -GOLF  :ALCOHOL -ASTRO  :FLI-PLN -MACHINE -MACHIN1 *LIB2  STRLANE  STARLANE ; " THIS PROGRAM COMPUTES AN AMORTIZED LOAN SCHEDULE"  = " TYPE IN LOAN AMOUNT, INTREST RATE, MONTHLY PAYMENT" ( (2 " AND NUMBER OF MONTHS DESIRED " < F P "AMOUNT OF LOAN" Z X d "YEARLY INTREST RATE" n R x "MONTHLY PAYMENT"  P  " NO. OF MONTHS"  F RR12  J 1 F IXR YI.01 ? "MONTH"," ","INT"," ","PRIN"," ","BAL", " ","TOTAL INT."  %4F0,J,  %$C12F2,Y,  J1   DY  J2   DDY  APY " %$C10F2,A, , BXA 6 B0 J @ T J B0 T %$C14F2,B, ^ %$C17F2,D h r XXA | X0   J  A4wECu@%BP + "WHAT IS THE AMOUNT TO BE FINANCED"  X * "WHAT IS THE ANNUAL INTEREST RATE"  Y , "WHAT IS THE NO. OF MONTHLY PAMENTS" # Z % YY.01 !(X11Y12))Z)Y12)) 2  6 BIHYTHM PLOTTING PROGRAM ERFACE AGE OCT. 77) &x F12),J2),T$30),O$70),Z$20) " T$"SUNMONTUEWEDTHUFRISATSUN"  K  A1 12 FA)  3 6.283185,31,28,31,30,31,30,31,31,30,31,30,31  SECTI  "WHAT IS YOUR NAME ? ",Z$  , "ENTER DATES IN THE FORMAT MM,DD,YYYY" 0 "EXAMPLE--JUNE 16,1944 WOULD BE 6,16,1944"  0 " BIRTHDATE ? ",M1,D1,Y1  Y199  Y1Y11900  11),Y1  M2M1 \ D2D1 \ Y2Y1    P1P2 / " START DATE FOR THE CHART ? ",M2,D2,Y2  Y299 '  Y2Y21900 " 25),Y2 '  () "LENGTH OF THE CHART IN DAYS ? ",L 5, CALCULATE OFFSET, TAKING LEAP YEARS O ACCOUNT 1 XM1 6  ; J1J2Y1365 @ J1639723 P18 E XM2 J  O J2J2Y2365 T J2639723 P28 (Y OJ2J14Y2Y1)4Y2Y1)4)) ^ Y14Y14)0  c Y2Y1 r h M22 r m  r M13 OO1  CHART HEADER  I1 5   I & 20),"BIORHYTHM CHART FOR ",Z$   P1  28),"BORN ON ", 6 40),T$P131,P133)," ",M1,"/",D1,"/",Y1  28),"BEGINNING", 6 40),T$P231,P233)," ",M2,"/",D2,"/",Y2  ' 28),"P=PHYSICAL (23 DAYS)" ' 28),"E=EMOTIONAL (28 DAYS)" & 28),"I=INTELLECTUAL (33 DAY)"  28),"A=OVERALL AVERAGE"  / 13),"DOWN",34),"CRITICAL",61),"UP" B 13),"-------------------------!-------------------------" & SET F2) 29 DAYS LEAP YEARS  Y24Y24)0 F2)29  GENERATE THE PLOT  LOL  C0  OO L1  CC1 =  O$" ! "  Y0 " XKO23O23)))25)26  O$X)"P" ! YYX "& XKO33O33)))25)26 + O$X)"I" 0 YYX "5 XKO28O28)))25)26 : O$X)"E" ? YYX)3 D O$Y)"A" 0I T$P231,P233),5),M2,"/",D2,13),O$ X INCENT THE DATE ] P28  b P2P21 g P27 P21 l D2D21 q D2FM2) s v s D21 \ M2M21 v M213  { M21 \ Y2Y21  Y24Y24)0   F2)29    F2)28  O   FIND THE DAY OF THE WEEK  N1M212.61M2)  N2Y2.61M2)  N313N11)5)  N45N24)  N5N2100)  N6N2400)  N7N3N4N5N6D21  P2N77N77))7  P2P2)  #  FIND DAYS ލED IN PRI MTHS * J20 4 I1 X1 > J2J2FI) H I R A 1B(B1 + THIS IS THE GAME OF CRAPSBY BERN ( SOURCE SOFTWARE LIBRARY VOL. 1  E13), F13) & " THIS IS THE GAME OF CRAPS" 2( " YOU AND THE COMPUTER PLAY A CRAP GAME" 42 " TO BET AGAINST YOURSELF BET (-) DOLLARS" < +F " TO STOP PLAYING BET 00 DOLLARS" P Z =d " WHAT NUMBER BETWEEN 1 AND 711 IS LUCKY FOR YOU ", n A x  A1 d  A711 d AA1000 XA)  Y250X)50 7 " GOOD YOU HAVE $",Y," DOLLARS TO PLAY WITH."  Z1  ' " YOU CAN ROLL FIRST........"   Z1 "  ( " YOU NOW HAVE $",Y," DOLLARS"   Y0  ) " CHANGE THE DICE, TO THE LEFT"  "" " HOW MUCH DO YOU BET ", , B 6 B0  @ BY ^ J L0 T r 9^ " DON'T TRY TO BET MORE THAN YOU HAVE, PLEASE!" h " r C60))1 | D60))1  LL1  FCD  L1   ECD  Z2 *  E2   E3   E7 &  E11 &  E12  9 " YOU ROLL ",C," AND ",D," SO YOUR POINT IS ",E  $ 3 " YOU ROLL ",C," AND ",D," AND CRAP OUT."  YYB  Y0   N /& " YOU ROLL ",C," AND ",D," AND PASS." 0 D 9: " YOU ROLL ",C," AND ",D," AND MAKE YOUR POINT" D YYB N Y0  X )b " YOU NOW HAVE $",Y," DOLLARS." l v "    9 " YOU HAVE GONE BANKRUPT.....SORRY 'BOUT THAT!"      Z2   FE :  F7  4 " YOU ROLL ",C," AND ",D," ....ROLL AGAIN"  r 3 " YOU ROLL ",C," AND ",D," AND LOSE....."  Z2  YYB  Y0   * E2 p 4 E3 p > E7  H E11  R E12 p 5\ " I ROLL ",C," AND ",D," SO MY POINT IS ",E f $ 1p " I ROLL ",C," AND ",D," AND CRAP OUT." z D - " I ROLL ",C," AND ",D," AND PASS."    FE   F7  3 " I ROLL ",C," AND ",D," .....ROLL AGAIN"  r 1 " I ROLL ",C," AND ",D," AND LOSE....."  YYB  Y0   Z1  6 " I ROLL ",C," AND ",D," AND MAKE MY POINT."   : " THANKS FOR PLAYING THE GAME. CONGRATULATIONS" 9 " FOR BEING ABLE TO QUIT WHILE YOU WERE AHEAD."  n $ E4 V . E6  8 E8  B E10  L r V W2 ` U7 j -t " THE ODDS ARE 8:1 YOU CAN'T MAKE" !y " IT THE HARD WAY....." ~  r  W3  U7  j  W4  U7  - " THE ODDS ARE 10:1 THAT YOU CAN'T" ' " MAKE IT THE HARD WAY......"   r  W5  U7      1 " WOULD YOU LIKE TO PLAY ANOTHER GAME", ( A$ 2 A$"YES" P < A$"Y" P F n P Z d d n //g_F3?dd?% COPYRIGHT ROBERT C. KELLY 1977  A4,7),B8,4),C9),A$9)  J14  K1 7 ( AJ,K) 2 \ < J18 F K13 P BJ,K) Z \ d G1 &n "TIK-TAK-TOE, YOU ARE X, I AM O" 'x "WE WILL ALTERNATE PLAYING FIRST" J19 CJ)J  J9 BJ,4)0   D0\E0\R0  A$"123456789"  GG2)2 l J  "PLAY ",  P  P)P 6  P1 P9 6  CP)0  6 "ERROR" @ J (T A$1,1)," ",A$2,2)," ",A$3,3) (^ A$8,8)," ",A$9,9)," ",A$4,4) (h A$7,7)," ",A$6,6)," ",A$5,5) r |  A$P,P)"X"  F1  E1   P9 P3   PP2)2   RP1    RP2    0  d  CP)0  J18  K13  BJ,K)P   BJ,4)BJ,4)F  \ & 0 P9 X : PPFR D P0 P9 X N PPF8 X DDF2P\EE1 b d F1\ E1  f P9  l P9 q "MY FIRST IS 9" v   P1    J18  BJ,4)2    J18  BJ,4)2      K13  CBJ,K))0    PBJ,K)    J14  P17  AJ,P)D   \    DDF2P\EE1  PPFR  P0 P9   PPF8  A$P,P)"O"      A$P,P)"O"    0  J  J18   BJ,4)3 \    E8 * "TIE GAME" 4 "MORE, Y OR N", > A$ H A$"Y"  J GG1 R \ "I WIN" f 4 3p 508,254,494,442,510,526,446,372,646,492,474 z 388,0,482 #{ 380,654,542,478,444,622,238 | 252,382,476,0,0,414,222 6 1,2,3,8,9,4,7,6,5,1,8,7,2,9,6,3,4,5,1,9,5,3,9,7   F 12)  A0 0 "THIS PROGRAM SIMULATES THE ROLLING OF A" ( "PAIR OF DICE." 32 "YOU ENTER THE NUMBER OF TIMES YOU WANT THE" 0< "COMPUTER TO 'ROLL' THE DICE, VERY LARGE" 1F "NUMBERS TAKE A LONG TIME, IN PARTICULAR," H "NUMBERS OVER 5000." P Q1 12 Z FQ)0 d Q n \ "HOW MANY ROLLS?" x X  S1 X 1  A6Y)1)  B6Y)1) RAB  FR)FR)1 AA1  A50 A0\  S  + "TOTAL SPOTS ","NUMBER OF TIMES"  V2 12 ( V10 V," ",FV) ' V10 V," ",FV)  V  . "TO TRY AGAIN, HIT A '1' AND A RETURN," * "OTHERWISE HIT A '0' AND A RETURN."  I  I1 P   A$70)  B0 7 "CHOOSING A NUMBER BETWEEN 1 AND (TYPE IT): ",R ( R0 2 LRB)2.5)B < "I GUESS",L 7F "IS YOUR NUMBER THE SAME, LOWER, OR HIGHER? ",A$ P A$A$1,1) %Z A$"S" d\ "GOT IT!"\  d A$"H" n\BL\ 2 n A$"L" <\RL\ 2 FL DDDBSB " BASIC MEMSIZE ALTER PROGRAM + VER 1.0 111077 WRITTEN BY MERRITT  B10762 7( "IN K, HOW MUCH CONTIGUOUS MEMORY FROM 2000H? ", 2 "",M < M4M4) Z 4F "MUST BE AN EVEN MULTIPLE OF 4K! REENTER: ", P 2 Z M16 x 7d "INSUFFICIENT MEMORY SPECIFICATION! REENTER: ", n 2 x MM41\MM1615 B,M < "TYPE BYE, THEN WHEN THE STAR APPEARS, TYPE JP 2A00." > "YOUR SYSTEM WILL THEN RECOGNIZE ALL AVAILABLE MEMORY."   6 STACK CALCULAR, WRITTEN BY JIM MERRITT 10777  REVISI 1.0  S312 5( SS32)\ ENSI STACK TWO LESS THAN DISPLAY 2 I$50) < \ O9 "P I$""\ ": ",I$\ I$"" P Z  d O1 O9 n O$,A x I$O$   O N$""  I1 I$) " I$I,I)" " N$N$I$I,I)  I  N$"" r  N1 ( N$1,1)"-" N$1,1)"+"  N$1,1)"-" N1 N$N$2)  P0\E0\E50  I1 N$) ( N$I,I)"0" N$I,I)"9" J  N$I,I)"."   PP1\ P1 r\ J  N$I,I)"E" , " EE1\ E1 r\ J *, N$I,I)"+" N$I,I)"-" r 6 E0 r @ E5E51\ E51 r J I T S914 | ^ NNN$)\S9S91\SS9)N h P #r "UNRECOGNIZABLE INPUT"\ P *| 10),"STACK OVERFLOW",\ \ P . 10),"INSUFFICIENT STACK",\ \ P 1 10),"ATTEMPTED DIVIDE BY 0",\ \ P ( 10),"BAD ARGUMENT",\ \ P  S9A1   O10  2 O ,,,,,,&,0,D,N = O10 X,b,l,v,,,,,,,,  S90 SS9)  P ( SS91)SS91)SS9)\S9S91\  ( SS91)SS91)SS9)\S9S91\  8 SS9)0 \SS91)SS91)SS9)\S9S91\  ( SS91)SS91)SS9)\S9S91\  ( SS91)SS91)SS9)\S9S91\   SS91)0  , SS91)SS9)1SS91))\S9S91\  &  0 SS9)0  : SS9)SS9))\  D SS9)SS9)SS9)\  )N SS9)0 \SS9)SS9))\  X SS9)SS9))\  /b SS9)0 \SS9)SS9))10)\  l SS9)10SS9)\  v SS9)SS9))\   SS9)SS9))\  5 SS9))0 \SS9)SS9))SS9))\  ( SS9)0 \SS9)1SS9)\   S91 S9S91\   \   " S9114 |\S9S91\  > SS91)SS91)10SS9)).5)10SS9))\S9S91\   X0 S32  45),\ S9X "SP>",  50),SX)  X   22 5  "+",2,"-",2,"/",2,"*",2,"^",2,"ROOT",2,"PWR",2 : "SQRT",1,"SQR",1,"LN",1,"EXP",1,"LOG10",1,"EXP10",1 6  "SIN",1,"COS",1,"TAN",1,"RCP",1,"SP-",0,"STK",0 * "BYE",0,"SP+",0,"ROUND",2 ^B/f. PHEBOOK PROGRAM WRITTEN BY JIM MERRITT  X\ F  P9$"PHONBOOK" $ N$50),N1$50),C9$64),J$64) ( P$15),P1$15) ,2 A$""\\ "function: ",A$\ A$"" 2 A @ F C1 F P A1$\ A$A1$ n Z C %d A$," : no such function"\ 2 n C ,L,,,x x 2  QUIT  "Quit"  L FIND 5` J$""\ "find name or number: ",J$\ J$"" x j #1,P9$ ,t 1)0 ~\J$," : not found"\  ~ #1,P1$,N1$,C9$  P1$J$ N1$J$ t # J$N1$ \N1$\C9$\   P1$\C9$  \ #1\ `  ADD * N$""\ "add name: ",N$\ N$"" x ( P$""\ "number: ",P$\ P$""  0 C9$""\"comments: ",C9$\ C9$"" C9$" "  #1,P9$ ! 1)0 \ #1,J$\   #1,P$,N$,C9$ ! #1\ N$," : added"\\   KILL + N$""\ "kill name: ",N$\ N$"" x ( #1,P9$\ #2,P9$ - D0 2 1)0 d < #1,P1$,N1$,C9$ F N$N1$ P\DD1\ 2 P #2,P1$,N1$,C9$\ 2 d N$," : ", i D0 "not found" &j D0 "killed",%3I,D," time", k D1 "s"\ D1 l #2,&1 n \ #1\ #2\  x FIX * N$""\ "fix name: ",N$\ N$"" x  #1,P9$\ #2,P9$  D0  1)0   #1,P1$,N1$,C9$  N$N1$   D1 > \"name: ",N1$\"number: ",P1$\"comments: ",C9$\ 1 A$""\ "fix (which one)? ",A$\ A$""  % A$)2 \A$A$1,2)\J$"" 0 A$"NA" \"name: ",J$\ J$"."  / J$"#" N1$" "\ J$"#" N1$J$\  2 A$"NU" \"number: ",J$\ J$"."  / J$"#" P1$" "\ J$"#" P1$J$\  * A$"CO" \"can't fix it"\  % "comments: ",J$\ J$"."  / J$"#" C9$" "\ J$"#" C9$J$\   #2,P1$,N1$,C9$\   N$," : ",  D0 "not found"  D0 "fixed"  #2,&1  \ #1\ #2\  X 5 '@ "QUIT","FIND","ADD","KILL","FIX" PAg^ PHONBOOK ]22 # CE VERSI 1.0 111477  WRITTEN BY JIM MERRITT  H$16) ( H$"0123456789ABCDEF" 2 A$16) < Z$"0000" -F K8250\K9252\ KEYBOARD STATUS PTS P E927\ ESCAPE CODE /Z H1$""\ "STARTING ADDRESS (IN HEX): ",H1$ d H1$"Q" n H1$"" Z x \ \ A1 Z  BD / H1$""\ "ENDING ADDRESS (IN HEX) : ",H1$  H1$""  \ \ A1  ED 2 B0 E 0 B65535 E 65535 ) "INTERVAL OUT OF RANGE -- REENTER" Z  QB E 16 2 DQ\ \ H1$)4 H1$Z$1,4H1$))H1$  H1$," - ", A$""  Q1Q Q15  Q1E h  DQ1)  D32 D126 XD X7 8" X95 X7\ TAKES CARE OF SOL'S BACKSPACEUNDER 7, PROBLEM MAY BE ETED YOU D'T HAVE VDM SOL 6 A$A$X) #@ \ H1$)1 H1$"0"H1$ J " ",H1$, T \ UE9 r ^ Q1 h \20),"ascii> ",A$ r UE9 |\\  | Q  \ Z $ DEC HEX ECTS D S H1$  USES D1,H,H1$,D2, I  D1D  H0  D116)0   HH1\D1D116)    D1D\H1$""  IH 0 1  D2D116I))  H1$H1$H$D21,D21)  D1D1D216I))  I  $ HEX DEC TAKES H1$ S D & D0\A0 0 I1 H1$) : J1 16 D H1$I,I)H$J,J) b N J X "BAD HEX"\A1\ v b DDJ1)16H1$)I)) l I v ! GET RID OF SPACES IN HEX  H2$""  I1 H1$) & H1$I,I)" " H2$H2$H1$I,I)  I   UK8)  U2U2)   UE9 U0\  UK9)  UE9  UK8)  U2U2)   UK9)   LZ0123456789ABCDEF~Z @%+>$AyO^ 0000