NSSE6  PROGFILE!d LIBDOC  MAILER  LIST d LIBRARY  INTDOC   BIORTHM 8  CHEKBOOKD INTRATE & ( PROGRAM LIBRARY  / KATHY RAZZO 1178 408) 255 7389 -( 1054 HYDE AVENUE, SAN JOSE, CA 95129 2 < DIRECRY 'LIBRARY' F $P Z12\ II M FEED CLEAR EEN Z Z$Z)\ CLEAR EEN CODE -d 128\Z$\P1$18)\P2$20)\ ER ROL Fn INDIVIDUAL VARIABLES WITHIN FILE ENTRY,ESLISH ENTRY SIZE 'S' 8x F$8),T$1),N$2),L$1),B$3),M$8),S$60),D$60) + S81213860602\ '2' IS MARK  X$60)\ ENTRY ER F X$" " ; E$S),E1$S),W$S)\ STRING USED HOLD ENTIRE ENTRY 6 Q$"PROGFILE"\ E 3 FILE USED INMAN SRAGE 20),"PROGRAM LIBRARY"\ + "WANT INSTRUCTIONS? (Y/N) ",A$\\Z$ ( A$"Y" "LIBDOC"\ INSTRUCTIS  #0,Q$\ #0,N  Z$\ SELECT MODULE 1"#1....FIND #7....EXAMINE" 0"#2....LIST #8....DELETE" 5"#3....SORT #9....ALPHABETIZE" 4"#4....ADD #10...INITIALIZE" 1"#5....MODIFY #11...ANALYZE" 0"#6....ALPHABETICAL SEARCH #12...EXIT"\ " "SELECT >",C , C1 C12 " 6 C1  @ C2  J C3 N T C4 * ^ C5  h C6 V r C7  | C8   C9   C10   C11   C12 #0\  FIND 7 Z$\ "FIND WHICH PROGRAM OR FILE? ",F$\\F$F$X$  X0 N1\ #0%XS5,E$ ( E$1,8)F$ l\ SKIM DISPLAY  X\\\ b\   $ Z$\ "PAPER COPY? (Y/N) ",P$\  "START LISTING AT #",I\ 0 "SKIM OR DETAILED DISPLAY? (S/D) ",H$\Z$  B  XI N1\ #0%XS5,E$ & H$"S" l 0 H$"D"  : X\ L \ D b\ !N ST BY LANGUAGE DISC 2XZ$\ "SORT BY DISC OR LANGUAGE? (D/L) ",S1$\ b "PAPER COPY? (Y/N) ",P$ l B v S1$"L"   DISC ST  Z$\ "DISC # ",V$\  X0 N1  V  J$E$10,11)  J$)V$) l  X\\ L  b   LANGUAGE ST " Z$\ "LANGUAGE (M,A,B): ",V$  X0 N1  V  E$12,12)V$1,1) l   X\\ L  b  * ADD %4 INITIALIZE E$ BLANKS TING > E$X$X$X$\Z$ H COLLECT ENTRY R  \ #0%NS5,E$, f NN1\ !p "ANOTHER ENTRY? (Y/N) ",A$ z A$"Y" *  #0%0,N,\  Z$\ + "MODIFY WHICH ENTRY (BY NUMBER) ",E\  E0 EN   X0 N1  V  XE   X  \ ' "MODIFY THIS ENTRY? (Y/N) ",A$\  A$"Y"  . "MODIFY A DIFFERENT ENTRY? (Y/N) ",A$\  A$"Y"     DISPLAY MODIED ENTRY 6 Z$\"THIS IS THE ENTRY THAT HAS BEEN MODIFIED"\ $ \ . #0%XS5,E$, %8 "ANOTHER TO MODIFY? (Y/N) ",A$ B A$"Y"  L "V Z$\ ALPHABETICAL SEARCH 1` "FIND ALL PROGRAMS BEGINNING WITH > ",U$\ j "PAPER COPY? (Y/N) ",P$\ t B ~ X0 N1  V  E$1,1)U$1,1) l  X\\ L / "ANOTHER ALPHABETICAL SEARCH? (Y/N) ",A$  A$"Y" V   Z$\ INE  "EXAMINE ENTRY #",X\  B0 BN   V  \ ) "EXAMINE ANOTHER ENTRY? (Y/N) ",A$  A$"Y"    Z$\ ETE ! "DELETE WHICH ENTRY? ",X\ ( X0 XN  2 V <  'F "DELETE THIS ENTRY? (Y/N) ",A$\ P A$"Y" n .Z "DELETE A DIFFERENT ENTRY? (Y/N) ",A$\ d A$"Y"  &n "PRESS 'RETURN' TO DELETE",R$\ x #0%N1)S5,E1$  JN2) X 1  #0%JS5,E$  #0%JS5,E1$,  E1$E$   NN1  N0 N0  #0%0,N, ' "DELETE ANOTHER ENTRY? (Y/N) ",A$  A$"Y"    Z$\ ALPHABETIZING 4 "PRESS 'RETURN' TO BEGIN ALPHABETIZING ",R$\  X0 N1\ V ! YX1 N1\ #0%YS5,E1$  E$1,8)E1$1,8) ^ " SWITCH HERE , W$E$ 6 E$E1$ @ E1$W$ J #0%XS5,E$, T #0%YS5,E1$, ^ Y h X #r\\"FILE IS ALPHABETIZED"\\ | b   INITIALIZATI = Z$\ "ARE YOU SURE YOU WANT TO INITIALIZE? (Y/N) ",A$\  A$"Y" & "ARE YOU POSITIVE? (Y/N) ",A$\  A$"Y" * "PRESS 'I' TO INITIALIZE ",R$\\\  R$1,1)"I" , "DATA FILE IS BEING INITIALIZED"\\\  N0\ #0%0,N, " "DATA FILE IS INITIALIZED"\  b\  ANALYZE  Z$\ X1 4\\  ` 3 \12),N," ENTRIES ON DISK FILE- '",Q$,"'"\ & ` \\17), 10 N176100),"% OF FILE SPACE USED"\\ ` : X1 4\\ D b N +X OF PROGRAM BODY SUBRINES FOLLOW )b "PRESS 'RETURN' TO CONTINUE ",R$\ l SKIM DISPLAY v  Q %4I,X,\" ",E$1,8)," ",11),"DISC-",E$10,11),24),"TYPE-",E$9,9)," ", 6 33),E$13,15),"BLOCKS ",45),I$," LANGUAGE"\  LANGUAGE ID ! E$12,12)"B" I$"BASIC" # E$12,12)"M" I$"MACHINE" & E$12,12)"A" I$"ASSEMBLY"\  DETAIL DISPLAY    "ENTRY #",X A "FILE NAME......",E$1,8),31),"DISC NUMBER....",E$10,11)  E$12,12)"M"  7 31),"LENGTH.........",E$13,15)," BLOCKS"\  M "SOURCE FILE....",E$16,23),31),"LENGTH.........",E$13,15)," BLOCKS" ;"LANGUAGE.......",I$,31),"FILE TYPE......",E$9,9)\ 1 "SPECIAL REQUIREMENTS:"\" *",E$24,83)\ 7"PROGRAM DESCRIPTION:"\" *",E$84,143)\ ` \ #  SUBRINE COLLECT ENTRY $*Z$\"FILE NAME: ",F$\F$F$X$\ 4 F$1,1)" " F$E$1,8) > "DISC # ",N$\\N$N$X$ H N$1,1)"^" * !R N$1,1)" " N$E$10,11) )\ "LANGUAGE: (M,A,B) ",L$\\L$L$X$ f L$1,1)"^" > !p L$1,1)" " L$E$12,12) &z L$1,1)"B"  T$1,1)"1" " "FILE TYPE: ",T$\\T$T$X$  T$1,1)"^" \  T$1,1)" " T$E$9,9) ' "BLOCKS IN FILE: ",B$\\B$B$X$  B$1,1)"^"  ! B$1,1)" " B$E$13,15)  L$1,1)"M"  ( "SOURCE FILE NAME: ",M$\\M$M$X$  M$1,1)"^"  ! M$1,1)" " M$E$16,23)  "SPECIAL REQUIREMENTS: "  ">",S$\\S$S$X$ ! S$1,1)" " S$E$24,83)  S$1,1)"^"   "PROGRAM DESCRIPTION:"  ">",D$\\D$D$X$ $ D$1,1)"^"  ". D$1,1)" " D$E$84,143) !8 E$F$T$N$L$B$M$S$D$\ B P$"Y" P1$\\ ER L P$"Y" P2$\\ ER OFF V #0%XS5,E$\\ COMM E` "--------------------------------------------------------------" j [rotsoppossoooNoJrsooq?p5o=oB  _o  s  STARLANE ls----" ~ r1ppq p)p;p porJppKrpooB  o     t    p<< BBLACKJ 21 B10 BLACK JACK CARD GAME - LAS VEGAS RULES HI-LO 210B5 RANDOM NUMBER NUMBER GUESSING GAME ICHECK 21 B10 INDIVIDUAL CHECKERS GAME LIBRARY 22 B29 DATA TYPE '3' FILE - 'PROGFILE' LOCATION OF PROGRAMS IN DISK LIBRARY LUNLAN 22 B10 LAND ON THE MOON GAME MEMTST 15 A2 BEGINNING AND ENDING MEMORY NUMBER OF BLOCK TO BE TESTED TESTS MEMORY BLOCK-PRINTS OUT WHEN SAFE 'PASS' COMPLETE PROGFILE32 B100 LIBRARY PROGRAM DATA FILE FROM LIBRARY PROGRAM SLOTS 23 B5 RANDOM NUMBER SLOT MACHINE GAME STARLANE25 B35 GAME OF INTERSTELLAR TRADING - UP TO 4 PLAYERS STARWARS27 B40 UP TO 4 PLAYERS GAME OF INTERSTELLAR WAR ' LIBRARY PROGRAM DOCUMENTATI  $ KATHY RAZZO 408) 255 7389 +( 1054 HYDE AVENUE, SAN JOSE, CA 95129 2 < Z12\ II CLEAR EEN "F Z$Z)\Z$\ CLEAR EEN CODE #P P1$18)\P2$20)\ ER ROL -Z 15),"LIBRARY PROGRAM DOCUMENTATION"\ &d "PAPER COPY? (Y/N) ",P$\ .\ ;n"THIS PROGRAM IS DESIGNED TO AID IN LOCATING PROGRAMS" ?x"STORED IN YOUR DISC LIBRARY - MUCH AS A CARD FILE IN THE" ="PUBLIC LIBRARY. ADDITIONALLY 'BACKUP' COPIES OF A LOST" D"PROGRAM CAN BE FOUND - AS WELL AS CONFIRMING BACKUP COPIES."\ D"THE PROGRAM REQUIRES 7.5K OF FREE MEMORY OR 29 BLOCKS OF TYPE" "2 DISC FILE SPACE."\  8\ B\ .\Z$, G"NORTH STAR BASIC V.6 IS USED. PROGRAM IS DESIGNED FOR A 16 LINE," %"64 CHARACTER FIELD TERMINAL."\ >"A TYPE 3 DATA FILE IS REQUIRED FOR INFORMATION STORAGE." >"145 BYTES (OR 0.57 BLOCKS) IS USED FOR EACH DATA ENTRY." 5"A 100 BLOCK DATA FILE WILL HOLD 176 ENTRIES."\ ="CREATE THE FILE ON THE DISC. USE 'PROGFILE', SHORT FOR" A"'PROGRAM FILE', AS THE DATA FILE. USE THE 'INITIALIZATION'" 9"MODULE BEFORE CONTINUING THE USE OF THE PROGRAM."\  8\ B\ .\Z$, !"DESCRIPTION OF COMMANDS:"\ "FIND -" =""REQUESTS A FILE OR PROGRAM NAME. ALL ENTRIES WITH THAT" @,"NAME WILL BE FOUND AND DISPLAYED IN A SHORTENED OR 'SKIM'" ;6"FORM. HELPFUL IN FINDING BACKUPS OF LOST PROGRAMS."\ @"LIST -" =J"WILL LIST ALL ENTRIES IN THE FILE IN BOTH DETAILED AND" T"A SKIM DISPLAY."\ ^ 8\ B\ .\Z$, h"SORT-" 7r"THIS COMMAND WILL SELECT FILES BY DISC NUMBER OR" 7|"LANGUAGE TYPE. PRINTOUT WILL BE IN SKIM DISPLAY." $"HARD COPY MAY BE REQUESTED."\  8\ B\ .\Z$, "ADD-" 7"REQUESTS THE INFORMATION FOR STORAGE IN THE DATA" 9"FILE AND UPDATES THE FILE SIZE/INDEX NUMBER AT THE" ""'0' LOCATION ON THE FILE."\ :"IF A TYPING ERROR IS MADE, TYPE A '^' (OR UP ARROW)" :"AT THE INXT INPUT REQUEST. YOU MAY CONTINUE TO JUMP" :"LINES UNTIL THE LINE YOU WISH TO CORRECT IS REACHED" 8"FOR RETYPING. A RETURN MAY BE MADE TO THE CURRENT" 8"INPUT LINE BY PRESSING 'RETURN', WITHOUT ALTERING" )"PREVIOUSLY ENTERED CORRECT DATA."\  8\ B\ .\Z$, "MODIFY -" 8"WILL EDIT A FILE ENTRY. A DETAILED DISPLAY OF THE" ;"REQUESTED ENTRY WILL BE CALLED UP FIRST TO MAKE SURE" :&"THE CORRECT ENTRY WILL BE EDITED. AGAIN, A 'RETURN'" <0"WILL NOT MODIFY THE EXISTING DATA. BACK-STEPPING WILL" ;:"OCCUR WITH A '^' OR UP-ARROW. AFTER THE MODIFICATION" >D"HAS BEEN MADE, THE CORRECTED ENTRY WILL BE DISPLAYED."\ N 8\ B\ .\Z$, X"ALPHABETICAL SEARCH -" 6b"WILL SKIM DISPLAY ALL FILES THAT BEGIN WITH THE" l"REQUESTED LETTER."\ v"EXAMINE -" :"ALLOWS EXAMINATION OF A DATA ENTRY CALLED UP BY THE" 2"INDEX NUMBER AND USES A DETAILED DISPLAY."\  8\ B\ .\Z$, "DELETE -" 7"DELETES AN ENTRY FROM THE FILE. THE INDEX NUMBER" 6"MUST BE USED. THE REQUESTED DATA WILL APPEAR IN" 7"A DETAILED DISPLAY BEFORE THE PROGRAM IS ALLOWED" 8"TO REMOVE AN ENTRY FROM THE FILE. THERE WILL BE A" 6"TIME DELAY AS THE PROGRAM READJUSTS THE FILE TO" "REMOVE EMPTY SPACE."\  8\ B\ .\Z$, "ALPHABETIZE -" ="WILL ALPHABETIZE THE FILE ENTRIES. HELPFUL ON HARDCOPY" A"SEARCH FOR A FILE ENTRY. TAKES TIME FOR THE SORT TO OCCUR." 2 "PROGRAM NOTIFIES YOU WHEN IT IS FINISHED."\ "INITIALIZE -" 5 "READIES THE FILE TO RECEIVE DATA. MUST BE USED" 4*"BEFORE USING THE PROGRAM. MAY ALSO BE USED TO" 84"'RESTART' THE FILE. *** CAUTION *** YOU WILL LOSE" %>"THE FILE IF IMPROPERLY USED."\ H 8\ B\ .\Z$, R"ANALYZE -" 2\"DISPLAYS THE TOTAL NUMBER OF ENTRIES IN THE" .f"PROGRAM FILE AND INDICATES THE PER/CENT" $p"OF FILE SPACE ALREADY USED."\ z"EXIT -" 3"ALWAYS USE THIS COMMAND TO LEAVE THE PROGRAM" 4"TO INSURE THAT ALL NEW DATA WILL BE STORED ON" "THE DISC."\  8\ B\ .\Z$, "FINAL NOTES -"\ 7"THE FIRST NUMBER ON THE SKIM DISPLAY IS THE FILE" 8"ENTRY NUMBER - NECESSARY FOR SOME COMMANDS IN THE" "PROGRAM."\ 4"A 'RETURN' MAY BE TYPED FOR ANY '(Y/N)' INPUT" 5"REQUEST WITHOUT INTERRUPTION OF THE PROGRAM."\ 9"BE SURE TO USE THE EXIT MODE ON THE SELECT ROUTINE" "TO CLOSE THE FILE."\ > "LIBRARY AND LIBDOC MUST BE ON DRIVE #1 FOR CHAINING."\  8 9 "PRESS RETURN TO RETURN TO THE LIBRARY PROGRAM",R$  "LIBRARY" $ . P$"Y" P1$,\ 8 P$"Y" P2$,\ 'B "PRESS RETURN TO CONTINUE ",R$\ "LIBRARY" 8 B P$"Y" P1$,\ L P$"Y" P2$,\ 'V "PRESS RETURN TO CONTINUE ",R$\ g h  (h  N ,11),"DISC-",E$10,11),24),"TYPE-",E$9,9)," ", 6 33),E$1) ROSTER MAILING  3 BY K. RAZZO 12141977 408) 2557389 -( 1054 HYDE AVENUE, SAN JOSE, CA 95129 2 ,< FEATURES ALPHABETIZING EEN ING F DIRECRY NAME 'MAILER' P 6Z FILE SIZE IS 100 BLOCKS MAX OF 185 NAMES d n A12\ II M FEED x Z$A)\Z$\ CLEAR EEN 4 128\P1$18)\P2$20)\P3$12)\ ER OFF : N$20),N1$20),S$40),T$20),S1$13),Z1$7),T1$15) * S120204020137152\ ENTRY SIZE ? E$S1),E1$S1),W$S1),B$40)\ STRINGS USED HOLD ENTRY 2 B$" " 015),"ROSTER AND MAILING LIST PROGRAM"\\ "ENTER FILE NAME >",F$\  #0,F$\ #0,N  Z$\ SELECT MODULE E "#1....ADD TO LIST #6....PRE-SORT BY ZIPCODE & PRINT" 6 "#2....LIST ENTRIES #7....PRINT LABELS" : "#3....EXAMINE ONE ENTRY #8....ALPHABETIZE LIST" = "#4....UPDATE AN ENTRY #9....ALPHABETICAL SEARCH" 8 "#5....DELETE AN ENTRY #10...EXIT PROGRAM"\  "SELECT MODULE >",M  M1 M10  " M1  , M2  6 M3 b @ M4  J M5 \ T M6  ^ M7  h M8  r M9 p | M10 B  Z$\ ADD  N185   "FILE FULL"\ : E$B$B$B$B$B$B$\ INITIALIZE E$ BLANKS TING # Z$\ `\ COLLECT ENTRY E$  #0%NS15,E$  NN1 ! \ "ADD ANOTHER? (Y/N) ",A$  A$"Y"   #0%0,N,   .Z$\20),"THIS MODULE PRINTS THE FILE"\ % "START WITH ENTRY NUMBER: ",L\ % "PAPER COPY? (Y/N) ",P$\\ t & JL N1 0 #0%JS15,E$ : F D J\\ ~ N 8 X b INE %l Z$\ "EXAMINE ENTRY NUMBER: ",J v JN  #0%JS15,E$  F *\ "EXAMINE ANOTHER ENTRY? (Y/N) ",A$  A$"Y" l   Z$\ UPDATE  "ITEM TO UPDATE: ",J\ 8 JN "THERE ARE",N," ENTRIES ON THE FILE"  ! \ "TRY ANOTHER? (Y/N) ",A$  A$"Y"   #0%JS15,E$  F\ ' "UPDATE THIS ENTRY? (Y/N) ",A$\  A$"Y"    "TRY ANOTHER? (Y/N) ",A$  A$"Y"   \ ` * #0%JS15,E$, &4 \"THIS IS THE UPDATED ENTRY."\ > F\ #H "IS THIS CORRECT? (Y/N) ",A$ R A$"Y"  \ Z$\ ETE !f "DELETE WHICH ENTRY? ",D\ Cp DN "NO SUCH ENTRY. THERE ARE",N," ENTRIES ON THE FILE"\ z DN 8  DN  UP ETE  #0%DS15,E$  F ' "DELETE THIS ENTRY? (Y/N) ",A$\  A$"Y"   "TRY AGAIN? (Y/N) ",A$  A$"Y" \  ' "PRESS 'RETURN' TO DELETE ",R$\  #0%N1)S15,E1$  JN2 D 1  #0%JS15,E$  #0%JS15,E1$,  E1$E$  $ NN1 . N0 N0 8 #0%0,N, (B "DELETE ANOTHER ENTRY? (Y/N) ",A$ L A$"Y" \ V $` SUBRINE GET ENTRY E$ j "SURNAME: ",N$\N$N$B$ t N$1,1)" " N$E$1,20) !~ "FORENAME: ",N1$\N1$N1$B$  N1$1,1)"^" j # N1$1,1)" " N1$E$21,40) " "# AND STREET: ",S$\S$S$B$  S$1,1)"^" ~ ! S$1,1)" " S$E$41,80)  "TOWN: ",T$\T$T$B$  T$1,1)"^"  " T$1,1)" " T$E$81,100)  "STATE: ",S1$\S1$S1$B$  S1$1,1)"^"  % S1$1,1)" " S1$E$101,113)  "ZIPCODE: ",Z1$\Z1$Z1$B$  Z1$1,1)"^"  %  Z1$1,1)" " Z1$E$114,120) : "TELEPHONE # - AREA CODE + NUMBER: ",T1$\T1$T1$B$  T1$1,1)"^"  %( T1$1,1)" " T1$E$121,135) 2 E$N$N1$S$T$S1$Z1$T1$ < 1F ING SUBRINE WPHE SURNAME FIRST $P \E$1,20),",",E$21,40)," ",J ZE$41,80) /dE$81,100)," ",E$101,113)," ",E$114,120) nE$121,135) x  PREST BY ZIPCODE : ST LY CHECKS FIRST NUMBER OF THE ZIP REDUCE " FILE ACCESS TIME > FURTHER INEATE ST WITH 114 & 115 E$ CHARACTER CZ$\"THIS MODULE PRE-SORTS BY ZIPCODE FIRST DIGIT AND LISTS"\ & "PAPER COPY? (Y/N) ",P$\\ t 2 "NUMBER OF COPIES OF THE LIST TO PRINT",T\ & SCAN HIGHEST LOWEST ZIPCODE  #0%5,E$\ FIRST ENTRY  G$E$114,114) ! JG$)\AJ\BJ\ LOW HIGH  X1 N1  #0%XS15,E$  G$E$114,114)  JG$)  JA AJ " JB BJ , X 6 START ST BY ZIPCODE @ L1 T J XA B T Y0 N1 ^ #0%YS15,E$ h G$E$114,114) r G$)X  | Y  X\ L  ~ \ 8 \ 7 ING SUBRINE WITH PHE # SURNAME FIRST  V  E$1,20)," ",E$21,40) E$41,80) /E$81,100)," ",E$101,113)," ",E$114,120)  j   LABEL ING #Z$\"PRINTING LABEL PROGRAM"\  "PAPER COPY? (Y/N) ",P$\ ( "NUMBER OF COPIES OF LABELS ",C\ = PROGRAM SET UP 112" X 5" LABELS, 2 NAMES PER LABEL   X1 C 7& N2 N2) ` \ DUMMY LABEL ODD #ENTRIES 0 X1 V : J0 N1 D #0%JS15,E$ N X  1b J2 J2) V \ SPACE BETWEEN NAMES 3l J2 J2) j \ SPACE BETWEEN LABELS v J  X  ~ \ 8  6 ING SUBRINE WO PHE FIRST NAME FIRST E$21,40)," ",E$1,20) E$41,80) /E$81,100)," ",E$101,113)," ",E$114,120)   ALPHABETIZING MODULE  X0 N1  X,  #0%XS15,E$  Y0 X  #0%YS15,E1$   E$1,20)E1$1,20) R  SWITCH HERE  W$E$ * E$E1$ 4 E1$W$ > #0%XS15,E$, H #0%YS15,E1$, R Y \ X f $p ALPHABETICAL SEARCH RINE $z Z$\"ALPHABETICAL SEARCH:"\\ + "SEARCH BY ETTER OR AME? ",A$\  A$"N"  ) "LAST NAMES BEGINNING WITH: ",L$\  J0 N1\ #0%JS15,E$  E$1,1)L$1,1) F  J   8   NAME SEARCH ' "LAST NAME SEARCHING FOR: ",W$\  J0 N1\ #0%JS15,E$  W$W$B$  E$1,20)W$1,20) F   \ 8 $ . &8 "PRESS RETURN TO CONTINUE",R$\ B #0%0,N,\ #0\ L SUBRINES LABEL SPACING V \\ ` \\\ j \\\\ t P$"Y" P1$,\\ ER !~ P$"Y" P2$,\\ ER OFF 0 P$"Y" P3$,\\ ER ,RESET PAGE COUNT ,np8oqQrbrzr0rxnEnrnnXprrr4nPA o  Vn  gn  8r  n UNT R OFF 0 P$"Y" P3$,\\ ER ,RESET PAGE COUNT  oqpq*s;sonYo&o[soo9qKsSso AAPAo  7o  Ho  s  to s FGx'w+ ?GT]#w#G#~~;FxEpFQ+ ! "*R!PRw+­G6!HRF!ARw+G w+G6 A START PERIOD OF 12 MINUS THE MTH OF FIRST PAYMENT.    UNDERST YOUR HOME LOAN.  UR HOME LOAN.   0000 4 H 12P RA1)  ,\ "YOUR FIRST YEARS PAYMENTS ARE ",12P *p "THE FIRST YEARS INTEREST IS ",RA 9 "THEREFORE, THE LIFE OF THE MORTGAGE IS UNDEFINED"  G "--------------------------------------------------------------- K0\T00\T10  "INTEREST RATE (%) ",I2  JI21200 ( "TERM IN MONTHS" ,N 2 D11J)N < R1000JD F P0.0099995 P FRP Z FF100)100) d "RATE PER $1000 = $", n %7F2,F x "AMOUNT OF MORTGAGE ",Z $ "PAYMENT IF KNOWN, ELSE 0 ",B  B0  BZ1000)F 0 "DO YOU WANT PAYMENT IN EVEN DOLLARS ",Y$  Y$1,1) "N"  B B.99)  "MONTHLY PAYMENT = $", %7F2,B . "DO YOU WANT TO AMORTIZE THIS LOAN ",Y$  Y$1,1)"N" ) "DO YOU WANT DETAIL DISPLAYED ",Y$  Y$1,1) "N" S1 S0  S1   "DISPLAY INTERVAL ",D1 ! "DISPLAY START PERIOD ",D2 9 "PMT# BALANCE INT PRIN RED PER INT TOT INT" " I1JZ ", I1I1.005\I1I1100)100) 6 T0T0I1\T1T1I1 @ P1Z J QBI1 T ZZQ ^ XP1\YQ\XXY h X0 | r Z0\BP1I1\QBI1 | KK1  S1   KD1D2   %3I,K,  KD1   D1D2 K  D2D2D1  %9F2,Z,I1,Q,T0,T1  T00  Z0 "  \ "FINAL TOTALS"\  %3I,K,  %9F2,Z,I1,Q,T0,T1  "LAST PAYMENT = $",%7F2,B  5`C7Z5gEZpAX333>6CZgp@fS5AZP>f`A1qBZ   S1 S1I1  S2S2P1 4 M2 M21 H Z1 1  \ T2T4 p T2T3  G$10M29,10M2),  A1P20,A1)  I1P35,I1)  P1P51,P1)  M2 12 $  A 0 0  Z2 1 $ T2T4  8 T2T3  L +` "INTEREST PAID DURING THE YEAR= ", t S1P47,S1) \ . "PRINCIPAL REPAID DURING THE YEAR= ",  S2P47,S2) \ / "PRINCIPAL OUTSTANDING AT YEAR END= ",  AP47,A) \  Z2 1 D ( T2 T21 < M1 12 T3 D P T2T4  d T2T3  x   M1 12T3 D + " ", "FOR THE CALENDAR YEAR",T2     M2 12 ,  A 0 0  Z2 1 , T2T4  @ T2T3  T T2, h S1P20,S1) | S2P37,S2)  AP52,A)   T2 T2 1  M1 12T3 D  Z2 1 D  S1 0  S2 0  M2 0 0 M1 D X l    + "WOULD YOU LIKE TO CHANGE SOMETHING",  B1$   B1$ "NO"  & "WHAT WOULD YOU LIKE TO CHANGE",   G62 \    I H,,,L, 4  3H "WHAT NEW VALUES DO YOU WANT: YEARS, MONTHS", \ Y,M p   ' "WHAT VALUE DO YOU WANT FOR ",B$,  B7  \    RB7100     $ AB7 8  L  ` PB7 t  ? "THE PROGRAM CAN COMPUTE THE RATE, LIFE, AMOUNT BORROWED" 3 "OR THE MONTHLY PAYMENT. WHICH DO YOU WANT ", - K$K$"LIFRATAMOMON","*INPUT*",4,3) \  K$"*ERROR*" 9 "PLEASE ENTER 'RATE','LIFE','AMOUNT', OR 'MONTHLY'"  \ G6 ,   NTHLY PAYMENT. WHICH DO YOU WANT ", - K$K$"LIFRATAMOMON","*INPUT*",4,3) \  K$"*ERROR*" 9 "PLEASE ENTER 'RATE','LIFE','AMOUNT', OR 'MONTHLY'"  \ G6 ,   xn0qqnQqIqnaqAqq}nqyq:rqqYqqiqdWOqqWoaYqxx A$24),B$36),C$72),A12)  B112\AB)\ 2 AX)29Y4Y4)) < BX)XX7)71.0001) .F CX)14XPXP))6.28318)30.5) :P A$"SUNMONTUEWEDTHUFRISATPSC"\B$"JANFEBMARAPRMAYJUN" U B$B$"JULAUGSEPOCTNOVDEC" EZ "Do you know what Biorhythms are? ",C$\C$1,1)"N" \_ ]\\\\51207,0 A_ "Do you want a print-out? ",C$\C$1,1)"N"d\ 51207,3 d C$1,1)"S" 1e \\"CHART SYMBOLS:"\" I : Median line" 6i " P : Physical cycle (23-Day cycle)" 6n " S : Sensitivity cycle (28-Day cycle)" 6x " C : Cognitive/Mental cycle (33-Day cycle)" 6 " * : Means that two graph symbols coincide." 4 \\"This chart is for the birthday on ",M,D,Y \"It starts on ",M1,D1,Y1 ( A2)AY)\YY1MM1\SD\  SAM)D1\MM1 # M13\M1\YY1\A2)AY) ' YY1MM1\SSAM)\MM1\ 3 SSD1\DD1\\\20),"(-) (0) (+)"\ , 252)83] 1 C$""\I172\C$C$" "\ 56 DD)w\M1M\Y1Y\M12T\M1M112\Y1Y11 2T M1M12\EY1100.0001)\Y1Y1Y1100)100 0^ EB2.6M1.19)DY1Y14)E4)2E) 5c C$1,3)A$3E2)\C$4,6)D)\D10C$6,6)" " d D1w &r C$8,10)B$3M2)\C$11,15)Y) 2w C$30,30)"I"\L30\I13\P5I18\XI)CS) , C$XI),XI))A$21I)\XI)LLXI)\ + X1)X2)X1)X3)C$X1),X1))"*" ! X2)X3)C$X2),X2))"*" 3 C$1,L)\SS.5\DD.5\DAM)1,\D1\MM1 ( M13,\M1\YY1\A2)AY)\, ) 31,28,31,30,31,30,31,31,30,31,30,31 K \\" The Biorhythm theory postulates that there are certain meta-" G "bolic rhythms that have a constant cycle time in the human body" & "and are known as inner clocks." E& " Two physicians, one a contemporary of Freud, concurrently" G0 "described a 23-day cycle that correlated with physical vitality" D: "endurance and energy; and a 28-day cycle that correspondesto" CD "sensitivity, intuition, and cheerfulness. A third cycle was" EN "observed by a professor and others in the 1920's and 30's and" CX "is a 33-day cognitive or intellectual cycle that relates to" &b "mental alertness and judgment." Dl " All three cycles start up from birth or the beginning of" v "independent life."\\ 7 "[PLEASE PRESS RETURN WHEN READY TO CONTINUE]",C$ J \\" The days on which the median (0) line is crossed are called" F "CRITICAL DAYS, especially for the physical and sensitivity cy-" G "cles and are the days on which accidents are most likely to oc-" F "cur. The high (+) periods in the cycles are the times when you" D "should have the most energy, be most cheerful, outgoing, and" B "mentally alert. The lowtimes are known as the recuperative" < "periods. Biorhythm has nothing to do with astrology." F " A Tokyo taxi company has reported a 60% cut in accidents by" C"giving drivers an `extra-careful-today' reminder on critical"  "days."\\\ < "[PLEASE PRESS RETURN WHEN YOU ARE READY TO GO ON]",C$  I15\\\_  CHECKBOOK PROGRAM  40 COLUMN ER  A AMOUNT  B$ 9 BLANKS  B3 BYTES 3 NUMBERS # B BALANCE ( C CHECK POSTED ARRAY) 2 D DATE CODE !< E LATEST ENTRY DATE CODE ? F CHECK FEE A G SERVICE CHARGE "F H HARD COPY DEVICE NUMBER P I INDEX Z M MAXIMUM FILE POER d N CHECK NUMBER x P FILE POER  S STATEMENT DATE CODE  T TEMPARY VARIABLE  T$ TEMPARY STRING  W WKING BALANCE ! D DATE CODE FROM MMDDYY # D$ MMDDYY FROM DATE CODE % \"CHECKBOOK BALANCING PROGRAM"  B315\ 8 DIGIT BASIC  F0  H4 ! T22123)\ DRIVE NUMBER T$T) %#$9F2,  #0,"$$$$$,"T$2,2),M  M256MB31  C2,MB3)),B$9) #0,B,S I1 & \"LAST STATEMENT DATED",D$S),  ", ENDING BALANCE:",B # \"ENTER MMDDYY OR 0 IF NONE"  "NEW STATEMENT DATE? ",S  SDS) " TS ' E0 , PB332 M B3 6 #0%P,A,N,D @ A0  J DE ED T T0  #^ A0 " CHECK #",%4I,N, h A0 "DEPOSIT",D$D), r " POSTED? ",T$ | T$1,1) "N"   T$1,1)"Y" ^  II1 # C0,I)A \ C1,I)N \ C2,I)D  TP MB3 B3  #0%TB3,A,N,D  #0%T,A,N,D,  A0   T  6  P   T0"SERVICE CHARGE? $",T  GT ! \"LAST ENTRY DATED",D$E)  \"ENTER CHECK NUMBER, ", & "OR 1 FOR DEPOSIT, OR 0 TO END." ! PP M B3 & 1"NEW ENTRY? ",N 0 N0  2 NN)) 4 N1000 : 6 NN1000 8 4 : 20),"DATE OF ", D N2"DEPOSIT?", N N1"CHECK? ", X 1" ",D b DDD) l 45),"AMOUNT? ", v "$",A  A0 &  N2 AA  DE ED  #0%P,A,N,D,  P  \" F I L E F U L L" ! \"TURN ON THE PRINTER.",T$  SE ES  #H, " #H,"CHECKBOOK REPORT",D$E)  #0%0,B,T  #H,  #H,"OLD STATEMENT",D$T),  #H," BALANCE",B  S0   #H, " #H," # DATE CHECK ",   #H," DEPOSIT BALANCE" * #H, 4 I0 MB3 > C0,I)0  C BBC0,I)F H C0,I)0 p R #H,%3I,C1,I), \ #H,D$C2,I)),C0,I),B$,B f  p #H," ",D$C2,I)),B$, z #H,C0,I),B  I  G0   BBG  #H,  #H,"SERVICE CHRG",G,B$,B  #0%0,B,S,  #H,  #H,"NEW STATEMENT",D$S),  #H," BALANCE",B  #H, $ #H,"OUTSTANDING TRANSACTIONS:"  #H, " #H," # DATE CHECK ",  #H," DEPOSIT BALANCE"  #H,  PB332 M B3  #0%P,A,N,D  A0   BBAF  A0 L  #H,%3I,N, $ #H,D$D),A,B$,B .  L #H," ",D$D), V #H,B$,A,B  P   #0  "LISTING COMPLETED"    DD)  TD100  T1E6TT))T)  T    D$D)  T$D100) '( T$T$5,6)"/"T$8,9)"/"T$3,4) 2 " "T$ < B@AGaxF 02/20/780 # DxF(BDPCxFc@ADCx&F1 ADCx&