130 D$ = CHR$(4):DC$(1) = "*** GRAND TOTALS ***":DC$(2) = "******** RESULTS ********": REM 8/8 *'S
140 DC$(3) = " Y E A R S ":DC$(4) = "LOAN AMOUNT: ":DC$(5) = "DEPOSITS WILL BE: ":DC$(6) = "INTEREST RATE: ":DC$(7) = "NUMBER OF INVESTMENT YEARS: ": REM 5/6 SPACES
150 DC$(8) = "AMOUNT INVESTED: ":DC$(9) = "AMOUNT TO DEPOSIT / PERIOD: ":DC$(10) = "INTEREST AMOUNT EARNED: ":DC$(11) = "FUTURE VALUE OF ACCOUNT: "
160 BL$ = " ":WT = 72:WD = WT: REM 20 SPACES
170 GOTO 1400
180 IF PR = 0 AND PEEK(49152) = 160 THEN POKE 49168,0: GET N$
190 RETURN
200 HOME : IF PR = 0 THEN RETURN
210 VTAB 12: POKE 36,((WT -35)/2): PRINT "MAKE SURE YOUR PRINTER IS TURNED ON": GOSUB 690
1470 VTAB 24: POKE 36,33: PRINT SL;: WAIT -16384,128:Z = PEEK( -16384) -128: IF Z > = 49 AND Z < = 55 THEN SL = Z -48:N = OS: GOSUB 1490: GOTO 1460
1480 Z = (Z = 21 OR Z = 10) -(Z = 8 OR Z = 11) +10 *(Z = 13): ON NOT Z GOTO 1470:SL = SL +Z *(Z <10):SL = SL -7 *(SL >7) +7 *(SL <1):N = OS: GOSUB 1490: ON Z <10 GOTO 1460: POKE -16368,0: RETURN
1530 IF Y = 5 THEN VTAB 9: POKE 36,1: PRINT "CALCULATE LOAN BY:": VTAB 10: POKE 36,4: PRINT "1. NUMBER OF PAYMENTS TO MAKE": VTAB 11: POKE 36,4: PRINT "2. SPECIFIC AMOUNT / PERIOD"
2860 PRINT : PRINT DC$(2):TP = AM -N: GOSUB 700: PRINT : PRINT "PRESENT VALUE OF AMOUNT: ";N$:N = TP: GOSUB 700: PRINT : PRINT "DEFLATION DOLLARS: ";N$
2870 GOSUB 250: GOSUB 690: GOTO 1410
2880 DATA " LOAN SCHEDULE ACCOUNT "," LOAN CHART "," FUTURE FUND ACCOUNT "," SCHEDULED DEPOSIT ACCOUNT "," MONEY MARKET ACCOUNT "," PRESENT VALUE OF A FUTURE AMOUNT "," QUIT "
2890 DATA "Reason for Loan:",1,19,20,2,"Amount of Loan:",3,18,9,1,"Interest:",5,12,6,1,"Type of Payments (M, Q, A):",7,30,1,2
2900 DATA "Enter Option (1-2):",13,22,1,1,"Number of Payments to Make:",15,30,3,1,"$ to Pay/Period (Min ",15,33,9,1
2910 DATA "Summary or Detail List (S/D):",17,32,1,2,"First Month:",19,15,2,1,"Starting Year:",21,17,4,1,"Printer Slot (0=Screen):",23,27,1,1
2920 DATA "Loan Amount:",6,15,9,1,"Interest Rate:",8,17,6,1,"Number of Loan Years:",10,24,5,1,"Printer Slot (0 = Screen):",12,29,1,1
2930 DATA "Desired Future Amount:",4,25,9,1,"Deposits Will Be (D,M,Q,A):",6,30,1,2,"Interest Rate:",8,17,6,1,"Number of Investment Years:",10,30,5,1,"Printer Slot(0 = Screen):",12,29,1,1
2940 DATA "Deposits Will Be (D,M,Q,A):",4,30,1,2,"Deposit Amount / Period:",6,27,9,1,"Interest Rate:",8,17,6,1,"Number of Investment Years:",10,30,5,1,"Printer Slot (0 = Screen):",12,29,1,1
2950 DATA "Amount of Deposit:",4,21,9,1,"Interest Compounded (D,M,Q,A):",6,33,1,2,"Interest Rate:",8,17,6,1,"Number of Investment Years:",10,30,5,1,"Printer Slot(0 = Screen):",12,29,1,1
2960 DATA "Future Amount:",6,17,9,1,"Annual Inflation Rate:",8,25,6,1,"Number of Inflation Years:",10,29,5,1,"Printer Slot (0 = Screen):",12,29,1,1
2970 CALL -3288: IF PEEK(222) = 255 THEN RESUME
2980 TEXT : NORMAL : POKE 216,0: IF PEEK(48896) = 76 THEN PRINT D$"PR#A$C307": GOTO 3000
3000 HOME : CALL -198: PRINT "You have received error # "; PEEK(222): PRINT "found in line # "; PEEK(218) + PEEK(219) *256