:59468,12> FINANCE COPYRIGHT (C) 1979 T.M. WAGNERW 68 OVERBROOK DRIVEr PRINCETON,N.J. 08540x : CURSOR #10, MAY 1979 BOX 550, GOLETA, CA 93017: AS OF JUNE 2, 1979ZPG$"FINANCE":NM$"10":62000dCR$(13)kZ(V9)(V9100.5)100?n"OPTIONS AVAILABLE ARE:e"1: SAVINGS & COMPOUND INTEREST"2: MONTHLY MORTGAGE PAYMENTS"3: PRINT MORTGAGE DATA & TABLES"4: MONTHLY PENSION PAYMENTS"0: EXIT"WHICH OPTION? ";%60000:OP(IN$):IN$"""";:1803OP0199AOP4199SOP(OP)200" ":180OP11999,300,500,600,800100,"SAVINGS & COMPOUND INTEREST-SS127:"";:SS.:"COMPUTES THE FINAL SUM OF SAVINGS,;/"USING MONTHLY COMPOUNDED INTERESTe0"WHEN GIVEN A FIXED PRINCIPAL AT THE2"VERY BEGINNING AND A MONTHLY SAVINGS4"WITH AN ANNUAL INTEREST RATE^ E=PR*Q^N+PT*Q(Q^N-1)/Ih"ENTER STARTING PRINCIPAL IN DOLLARS.r"(CAN BE ZERO) ? ";*|60000:PR(IN$)V"ENTER MONTHLY SAVINGS IN DOLLARS? ";k60000:PT(IN$)"ENTER ANNUAL PERCENTAGE RATE? ";60000:PA(IN$)PA0430"CAN'T BE ZERO":410 "ENTER NUMBER OF MONTHS AMOUNT IS SAVED? "; 60000:N(IN$)2 IPA1200:Q1I:QNQNL EPRQNPTQ(QN1)I ZPR:2000:"FOR A STARTIIG AMOUNT OF $";Z$ ZPT:2000:"A MONTHLY SAVINGS OF $";Z$ "AN ANNUAL PERCENTAGE RATE OF";PA;"%" "THE FINAL SUM AFTER ";N"MONTHS IS: ZE:2000:"$";Z$2 "AGAIN? ";:60000H (IN$,1)"Y"300Q 100g  ANNUITY FORMULA~ A=PR*Q^N*I(Q^N-1) "MONTHLY MORTGAGE PAYMENTS SS125:"";:SS :"ENTER MORTGAGE OR DEBT? "; 60000:PR(IN$) "ENTER ANNUAL PERCENTAGE RATE? ";- 60000:PA(IN$)< PA0520V "CAN'T BE ZERO":510 "ENTER NUMBER OF MONTHS (TERMS)? "; 60000:N(IN$) N0 530 "CAN'T BE ZERO":520 IPA1200:Q1I:QNQN APRQNI(QN1):""" !ZPR:2000:"FOR A MORTGAGE (DEBT) OF $";Z$F &"A PERCENTAGE RATE OF";PA;"%"Z 0"AND";N"MONTHS 5ZA:2000:"THE MONTHLY PAYMENT IS $";Z$ ?"AGAIN? " ;:60000 A(IN$,2)"Y"500 C100 X"PRINT MORTGAGE DATA" YSS119:"";:SS b I=B*PA/1200 :REM EQUITY=PM-I; g:"ENTER MORTGAGE (DEBT)? ";P l60000:PR(IN$)q q"ENTER MONTHLY PAYMENT? "; v60000:PM(IN$) {"ENTER ANNUAL PERCENTAGE RATE? "; 60000:PA(IN$) "NUMBER OF MONTHS TO BE PRINTED? ";60000:N(IN$)C"ENTER NUMBER OF MONTH WHEN MORTGAGE STARTED";d" JAN=1, DEC=12, MONTH=? ";y60000:AA(IN$)HD$"TERM INTEREST EQUITY BALANCE":790IPA1200:Q1I:QNQNPN0:AN0:PY0:AB13AA:PS0:PX1:LP99999PIPRI:PBPMPI!PB06920PB06969615z"IT'LL NEVER BE PAID OFF!":"INCREASE THE MONTHLY PAYMENT.625PRPRPBPNPN1:ANAN1:PSPSPIAN;5)ZPI:2000:Z0$;:ZPB:2000:Z0$;:ZPR:2000:Z0$PCPRPM:PC0725*K(PNAB):SPNAB:AC0:SKSK:SK0745gZPS:2000:"INTEREST THIS YEAR = $";Z$tPYPYPSP5Z(PY)ZPY:2000:"TOTAL INTEREST SO FAR = $";Z$ANNPC0780PS0:PN0:AB12PC0762ANN675SK0765ACAC1:AC725,765VZPB:2000:"AFTER";AN;"MONTHS, LAST PAYMENT= $";Z$n"AGAIN? ";:60000IN$"Y"600(IN$,1)"Y"600100 "PRESS RETURN FOR NEXT YEARQQ$:QQ$""785HD$: "MONTHLY PENSION PAYMENTS"!SS124:"";:SS1%PENSION PAYMENTSW*A=PR/((Q^(N-1)-1)/(Q^(N-1)*I)+1)/:"ENTER PENSION VALUE (LUMP SUM)":"IN DOLLARS? ";460000:PR(IN$)9"ENTER ANNUAL PERCENTAGE RATE? ";>60000:PA(IN$)?PA0 835 @"CAN'T BE ZERO":825LC"ENTER NUMBER OF MONTHS LUMP SUM SHOULD LAST? ";`H60000:N(IN$)pIN0 845J"CAN'T BE ZERO":835MIPA1200:Q1I:QNQ(N1)RD(QN1)(QNI)1:PMPRD\ZPR:2000:"A LUMP SUM OF $";Z$;" INVESTED"5aZPM:2000:"WITH";PA;"% PROVIDES $";Z$;" PER MONTH"]f"FOR";N;"MONTHS UNTIL EXHAUSTION"}k"WANT TO SEE A TABLE? ";p60000:AD$IN$u(AD$,1)"Y"900z"AGAIN? ";:60000(IN$,1)"Y"800100"DO YOU WANT THE PAYMENT THAT WAS"""CALCULATED ABOVE? ";-60000C(IN$,1)"Y"942r"ENTER YOUR MONTHLY PENSION PAYMENT? ";60000:PM(IN$)"ENTER NUMBER OF MONTH WHEN PENSION":"STARTED? ";"(JAN=1, DEC=12) MONTH?";60000:AA(IN$)945AA1PCPRPM"PC0955+965m"YOU'LL NEVER HAVE THAT MUCH!":"DECREASE MONTHLY PAYMENT."v935PN0:AN0:PY0:AB13AA:PS0:PT0:PX1:PL999999HD$"TERM INTEREST PENSION BALANCE":790PRPRPMPIPRI:PTPRPI$PNPN1:ANAN1:PSPSPI1AN;5);gZPI:2000:Z0$;:ZPR:2000:Z0$;:ZPT:2000:Z0$PCPTPM: PC0 1025PRPTK(PNAB):SPNAB:AC0:SKSKSK01057ZPS:2000:"INTEREST THIS YEAR = $";Z$PYPYPS+ZPY:2000:"TOTAL INTEREST SO FAR = $";Z$?ANNPC0780SPS0:PN0:AB12bPC01072p!ANN975$SK01080)ACAC1.AC1025,10800PZPT:P6Z(PZ)3ZPT:2000:"AFTER";AN;"MONTHS, LAST PAYMENT= $";Z$8"AGAIN? ";:60000:(IN$,1)"Y"800!<100'CZ$(((Z100.5)),2):`(Z$)3Z$("00"Z$,3)Z$(Z$,(Z$)2)"."(Z$,2)Z0Z$"-"Z$Z0$(" "Z$,11)`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15(~60010XZ(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:600103Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000>60010d0"";8);"CURSOR #";NM$;22);PG$50);"COPYRIGHT (C) 1979";22);"BY T.M. WAGNER7I110:"";::"THIS PROGRAM COMPUTES:;" COMPOUND INTEREST FOR SAVINGS!<" MONTHLY MORTGAGE OR CAR PAYMENTS;>" MORTGAGE TABLESV@" PENSION PAYMENTSA"WARNING: WE BELIEVE THAT THIS PROGRAMB"PRODUCES CORRECT RESULTS. HOWEVER, NOC"GUARANTEE IS MADE AS TO ACCURACY.I"HIT RETURN TO BEGIN"NT$:T$""62030X""::100$