NSSE10  FVI  FVRD  RD  RWI  II  MIW  NIRI  EIRI  EIT  DR  DA  SV  NOTICE Z REMARKS T DCP " PL $ RPL & LPL ( RBL + TL . AIRL 0 MAT 4  & "FUTURE VALUE OF AN INVESTMENT"   "INITIAL INVESTMENT ",P "( "NOMINAL INTEREST RATE ", I 32 "NUMBER OF COMPOUNDING PERIODS PER YEAR ", N &< "NUMBER OF YEARS, MONTHS ",Y0,M F Y 12Y0 M) 12 P I IN)100 Z T P 1I) NY) 1d "FUTURE VALUE = ",%$10F2, T1000.5)100 n #x "MORE DATA? (YES OR NO) ",X$  X$1,1) "Y"   (YES OR NO) ",X$  X$1,1) "Y"   3 "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)"  ' "AMOUNT OF REGULAR DEPOSITS ", R !( "NOMINAL INTEREST RATE ",I (2 "NUMBER OF DEPOSITS PER YEAR ", N &< "NUMBER OF YEARS, MONTHS ",Y0,M F Y 12Y0M)12 P I IN)100 Z T RI1)NY)1)I 1d "FUTURE VALUE = ",%$10F2, T1000.5)100 n #x "MORE DATA? (YES OR NO) ",Y$  Y$1,1) "Y"   I\a\Q\A\q\Y\PBAffg>Bi\BBy\Bu'D  "REGULAR DEPOSITS"  % "TOTAL VALUE AFTER Y YEARS ",T "( "NOMINAL INTEREST RATE ", I '2 "NUMBER OF DEPOSITS PER YEAR ",N &< "NUMBER OF YEARS, MONTHS ",Y0,M F Y 12Y0M)12 P I IN)100 Z R TII1)NY)1) 5d "REGULAR DEPOSITS = ",%$10F2, R1000.5)100 n #x "MORE DATA? (YES OR NO) ",Y$  Y$1,1) "Y"    Dfffg>BQ\APAa\fgA)FC N 9!QqD / "REGULAR WITHDRAWALS FROM AN INVESTMENT"   "INITIAL INVESTMENT ", P "( "NOMINAL INTEREST RATE ", I *2 "NUMBER OF WITHDRAWALS PER YEAR ",N &< "NUMBER OF YEARS, MONTHS ",Y0,M F Y 12Y0M)12 P I IN)100 Z R PII1)NY)1)I) >d "AMOUNT OF EACH WITHDRAWAL = ",%$10F2, R1000.5)100 n #x "MORE DATA? (YES OR NO) ",Y$  Y$1,1) "Y"   Q\i\Y\I\y\a\D&1>RBq\BPA\AfgB#'p "INITIAL INVESTMENT"  % "TOTAL VALUE AFTER Y YEARS ",T 2( "NUMBER OF COMPOUNDING PERIODS PER YEAR ",N &2 "NUMBER OF YEARS, MONTHS ",Y0,M "< "NOMINAL INTEREST RATE ", I F Y 12Y0M)12 P I IN)100 Z P T1I)NY) 7d "INITIAL INVESTMENT = ",%$10F2, P1000.5)100 n #x "MORE DATA? (YES OR NO) ",Y$  Y$1,1) "Y"   R\J\:\b\2\B\PD6PCZ\PA!d86=j\PA3ixuD N + "MINIMUM INVESTMENT FOR WITHDRAWALS"  " "AMOUNT OF WITHDRAWALS ", R "( "NOMINAL INTEREST RATE ", I *2 "NUMBER OF WITHDRAWALS PER YEAR ",N &< "NUMBER OF YEARS, MONTHS ",Y0,M F Y 12Y0M)12 P I I100 (Z P RN I1 11IN)NY))) 7d "MINIMUM INVESTMENT = ",%$10F2, P1000.5)100 n #x "MORE DATA? (YES OR NO) ",Y$  Y$1,1) "Y"   M\e\U\u\E\]\%C`?Bm\`APA}\dfgAPEE- "NOMINAL INTEREST RATE ON INVESTMENTS"   "PRINCIPAL ", P ( "TOTAL VALUE ", T &2 "NUMBER OF YEARS, MONTHS ",Y0,M < Y 12Y0 M) 12 3F "NUMBER OF COMPOUNDING PERIODS PER YEAR ", N %P I2 N TP)1NY))1)100 )Z "NOMINAL INTEREST RATE = ", I2,"%" d #n "MORE DATA? (YES OR NO) ",X$ x X$1,1) "Y"   0DEvD@\BBBB)RA N / "EFFECTIVE INTEREST RATE ON INVESTMENTS"   "INITIAL INVESTMENT ", P '( "TOTAL VALUE AFTER Y YEARS ", T &2 "NUMBER OF YEARS, MONTHS ",Y0,M < Y 12Y0 M) 12  RX) X1000.5)100 H Aaaqaaa)aa aa1a9aOa`iaDIa?!a@Aa6Cya@AAaAaFGCQa20@YadqBaBa@AaAPAPAPA6CFGCgB NOS  EDIT 470 o=w{a1.t7 ;L."3nxF#EؐB0q$C70l5&ik~ {8m:Rz\J̊ =Sa5$^?i> `r> 9|\^ 5 "DEPRECIATION RATE"   "ORIGINAL PRICE ", P ( "RESALE PRICE ", T &2 "NUMBER OF YEARS,MONTHS ",Y0, M < Y 12Y0 M) 12 F D 100 1 TP)1Y)) 5P "DEPRECIATION RATE = ", 1000D.5)1000, "%" Z #d "MORE DATA? (YES OR NO) ",X$ n X$1,1) "Y"  x \[[[\[I3vD$D\0A0A!58B NO D@\BBBB)RA N  "DEPRECIATION AMOUNT"   "ORIGINAL PRICE ", P ( "DEPRECIATION RATE ", I 2 I I 100 F< "--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--" F "YEAR? ", Y P Y 0 Z D P I 1I)Y1) /d "DEPRECIATION = ",%$8F2, 100D.5)100 n x F # "MORE DATA? (YES OR NO) ",X$  X$1,1) "Y"   A\1\)\I\9\PC"@ td@B N N  "SALVAGE VALUE"   "ORIGINAL PRICE ", P ( "DEPRECIATION RATE ", I F2 "--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--" < "YEAR? ", Y F Y 0 n 5P "VALUE = ", %$8F2, 100P1I100)Y.5)100 Z d < #n "MORE DATA? (YES OR NO) ",X$ x X$1,1) "Y"   \[\ \PC"B N I3vD!@df#RC N RA N " "DISCOUNT COMMERCIAL PAPER"   "FUTURE VALUE ",T ( "DISCOUNT RATE ",D 2 CVERT PERCENT DECIMAL < D D100 F "DAYS TO MATURITY ",N P CALCULATE DISCOUNT Z D1 TDN360 d "DISCOUNT = $",D1 n CALCULATE T x " COST = $",T D1  # "MORE DATA? (YES OR NO) ",X$  X$1,1) "Y"   FG]u?6CuD NOS RA N  "PRINCIPAL ON A LOAN"   "REGULAR PAYMENT ",R &( "TERM IN YEARS, MONTHS ", Y0, M 2 Y 12Y0 M) 12 !< "ANNUAL INTEREST RATE ", I (F "NUMBER OF PAYMENTS PER YEAR ", N 9P EREST CVERTED FROM PERCENT DECIMAL CALCULATE Z I0 I 100 &d P RN1 1I0N1)NY))I0 #n ROUND OFF NEAREST CENT )x "PRINCIPAL = $", 100P0.5)100  # "MORE DATA? (YES OR NO) ",X$  X$1,1) "Y"   " "REGULAR PAYMENT ON A LOAN"  & "TERM IN YEARS, MONTHS ", Y0, M ( Y 12Y0 M) 12 2 "PRINCIPAL ", P !< "ANNUAL INTEREST RATE ", I (F "NUMBER OF PAYMENTS PER YEAR ", N 9P EREST CVERTED FROM PERCENT DECIMAL CALCULATE Z I0 I 100 *d R I0PN)1 1I0N1)NY))) #n ROUND OFF NEAREST CENT /x "REGULAR PAYMENT = $", 100R0.5)100  # "MORE DATA? (YES OR NO) ",X$  X$1,1) "Y"    "LAST PAYMENT ON A LOAN"   "REGULAR PAYMENT ", R ( "PRINCIPAL ", P &2 "TERM IN YEARS, MONTHS ", Y0, M < Y 12Y0 M) 12 !F "ANNUAL INTEREST RATE ", I 9P EREST CVERTED FROM PERCENT DECIMAL CALCULATE Z I I 100 (d "NUMBER OF PAYMENTS PER YEAR ", N n B0 P x J1 1 NY + ROUND OFF EREST PAID NEAREST CENT ! I1 B0IN)1000.5)100 2 CALCULATE AMOUNT AMTIZED WITH EACH PAYMENT  A R I1 * BALANCE DECREASES WITH EACH PAYMENT  B0 B0 A J1 # ROUND OFF NEAREST CENT 1 "LAST PAYMENT = $", 100RB0)0.5)100  # "MORE DATA? (YES OR NO) ",X$  X$1,1) "Y"   @BD^ $ "REMAINING BALANCE ON A LOAN"   "REGULAR PAYMENT ", R ( "PRINCIPAL ", P (2 "NUMBER OF PAYMENTS PER YEAR ", N !< "ANNUAL INTEREST RATE ", I 9F EREST CVERTED FROM PERCENT DECIMAL CALCULATE P I I 100 EZ "IF YOU WISH TO ENTER TOTAL PAYMENTS MADE, USE 1 FOR THE YEAR" 6d "LAST PAYMENT MADE (PAYMENT NO., YEAR) ", N1, Y n B0 P x J1 1 NY1)N1 + ROUND OFF EREST PAID NEAREST CENT ! I1 B0IN)1000.5)100 2 CALCULATE AMOUNT AMTIZED WITH EACH PAYMENT  A R I1 * BALANCE DECREASES WITH EACH PAYMENT  B0 B0 A J1 # ROUND OFF NEAREST CENT 2 "REMAINING BALANCE = $", 100B00.5)100  # "MORE DATA? (YES OR NO) ",X$  X$1,1) "Y"    "TERM OF A LOAN"   "REGULAR PAYMENT ", R ( "PRINCIPAL ", P !2 "ANNUAL INTEREST RATE ", I 9< EREST CVERTED FROM PERCENT DECIMAL CALCULATE F I I 100 (P "NUMBER OF PAYMENTS PER YEAR ", N 'Z Y 1PINR))1IN)N)) d M Y120.5) n Y0 M12) x M M Y012 - "TERM = ",Y0, " YEARS, ", M, " MONTHS"  # "MORE DATA? (YES OR NO) ",X$  X$1,1) "Y"   D E' "ANNUAL INTEREST RATE ON A LOAN"   "REGULAR PAYMENT ", R &( "TERM IN YEARS, MONTHS ", Y0, M 2 Y 12Y0 M) 12 < "PRINCIPAL ", P (F "NUMBER OF PAYMENTS PER YEAR ", N )P RNYP n "NEVER PAID OFF" Z  )d USE 10% AS A WILD GUESS THE RATE n I 10 &x USE 0% AS UE OF PREVIOUS GUESS I2 0 ' COMPUTE PAYMENT BASED ESTIMATE ' R1 IPN)11IN1)NY)))  ROUND NEAREST CENT  R1 100R10.5)100  I3 IS THE SPLIT DFECE  I3 II2)2  THIS GUESS AS PREVIOUS I2 I  R1R % R1R I I I3 I I I3 ) I I1000)1000.5))100)1000 , "ANNUAL INTEREST RATE = ", 100I, "%"  # "MORE DATA? (YES OR NO) ",X$ " X$1,1) "Y"  , 7_C^BpAX33BEB NOS /_`??_`B`?C7;ENT  II INITIAL INVESTMENT , MIW MINIMUM INVESTMENT WITHDRAWALS$ "MORTGAGE AMORTIZATION TABLE"   "REGULAR PAYMENT ", R &2 "TERM IN YEARS, MONTHS ", Y0, M < Y 12Y0 M) 12 A "PRINCIPAL ", P !F "ANNUAL INTEREST RATE ", I 9P EREST CVERTED FROM PERCENT DECIMAL CALCULATE Z I I 100 (d "NUMBER OF PAYMENTS PER YEAR ", N *n "START PRINTING WITH WHAT YEAR ", X X X) C1 0 I2 0 I3 0 J0 0 N1 N K 66 B0 P A1 0 A2 0  Y)1    LOOP EACH YEAR  J0 1 Y)  START ING?  J0X   NEED START PAGE? " KN358  ' SPACE P OF 66 PAGE , K1 K 66 6 @ K1 J O PAGE HEADINGS 7T " MORTGAGE AMORTIZATION TABLE" K^ " PRINCIPAL $",P," AT ",I100,"% FOR ",Y0," YEARS",M," MONTHS" 1h " REGULAR PAYMENT = $", R r I| " NO. INTEREST AMORTIZED BALANCE ACCUM INTEREST" $ COUNT S ED EACH PAGE IN K  K 7  K K N 3  J1 1 N1 2 COMPUTE EREST PAID THIS PAYMENT, ROUND OFF ! I1 B0IN)1000.5)100 $ COUNT NUMBER OF PAYMENTS MADE  C1 C1 1 + COMPUTE AMOUNT AMTIZED THIS PAYMENT  A R I1 ! SUM AMOUNT AMTIZED DATE  A1 A1 A  COMPUTE BALANCE DUE  B0 P A1 ( LAST PAYMENT? MAKE IT COME EVEN  C1NY   R R B0  A A B0  A1 A1 B0  B0 0  SUM EREST PAID DATE  I2 I2 I1  SUM EREST PAID THIS YEAR  I3 I3 I1 $ SUM AMOUNT AMTIZED THIS YEAR  A2 A2 A & J0X : :0 %6I, J1, %12F2, I1, %12F2, A, %14F2, B0, %16F2, I2 : J1 (? LAST PAYMENT? SO, ROUND OFF D C1NY X :N " LAST PAYMENT = $", %8F2, 100R 0.5)100 )S STARTED ING? SO, YEARLY TALS X J0X  b +l "YR.", %3I, J0, %12F2, I3, %12F2, A2 v { COMPED TERM?  J0Y   I3 0  A2 0  J0 $ DO WE NEED A PARTIAL YEAR  YJ0  * ADJUST VARIABLES A PARTIAL YEAR  N1 Y Y))12)12 N  J0 J0 1    3 "CHANGE DATA AND RECOMPUTE? (YES OR NO) ",X$  X$1,1) "Y"   Bd A`A 5 THESE ARE THE FINANCIAL PROGRAMS FROM THE BOOK  ( SOME COMM BASIC PROGRAMS ( BY &2 L POOLE MARY BCHERS << COPYRIGHT 1977 ADAM OSBNE & ASSOCIATES, INC. F =P THE PROGRAMS ARE IN S WHOSE NAMES ARE COMPOSED OF THE CZ INITIALS OF THE TITLES OF THE PROGRAMS AS GIVEN IN THE BOOK. Ad THE PROGRAMS APPEAR IN THE DIRECRY OF THE DISK IN THE SAME