Investment/Loan

    2 REM   INVESTMENT/LOAN  THIS PROGRAM IS PRESENTED BYALGIS E. GEDRIS355 ROYAL OAK BLVD.RICHMOND HEIGHTS, OHIO44143-1709(216)481-8205 
  100 DIM V(8)
  110 LET V$="TPIYMNDW"
  120 LET C$="VSHR"
  130 LET G$="M+M-M*M/MRMC"
  140 LET Q$=""
  150 LET SX=16
  190 LET M=0: LET NE=0: LET E=0: LET F1=0: LET L1=0
  200 CLS 
  201 BORDER 2
  210 PRINT ''''''''''';"INVESTMENT OR LOANS"
  230 INPUT "INVESTMENT (I) / LOAN (L) : ";A$
  240 IF A$="I" THEN GO TO 270
  250 IF A$="L" THEN GO TO 2170
  260 GO TO 230
  270 CLS 
  280 PRINT "INVESTMENTS:"
  290 PRINT 
  300 PRINT "1) FUTURE VALUE WITH PERIODIC      INTEREST."
  310 PRINT "2) FUTURE VALUE WITH INTEREST      COMPOUNDED CONTINUOUSLY."
  320 PRINT "3) FUTURE VALUE WITH REGULAR       DEPOSITS."
  330 PRINT "4) FUTURE VALUE WITH CASH FLOWS."
  340 PRINT "5) WITHDRAWAL OF FUNDS."
  350 PRINT "6) NET PRESENT VALUE."
  370 PRINT "7) RETURN TO MAIN MENU."
  380 PRINT 
  390 PRINT "CHOICE:"
  391 PRINT ''''"NOTE:"'"ENTER ""X"" FOR THE VARIABLE TO BESOLVED. APPLIES ONLY TO THE"'"VARIABLES PRECEDING WITH ""*""."
  400 INPUT A$: LET a=VAL a$
  410 IF (A<1) OR (a>7) THEN GO TO 400
  420 IF A=1 THEN GO TO 470
  421 IF A=2 THEN GO TO 730
  423 IF A=3 THEN GO TO 970
  424 IF A=4 THEN GO TO 1360
  425 IF A=5 THEN GO TO 1550
  426 IF A=6 THEN GO TO 1940
  427 GO TO 200
  430 PRINT AT PI,SX;V(C),: GO SUB 4750
  435 PRINT AT 4,SX;V(C),"*";: GO SUB 4840: PRINT AT 5,SX;V(C)*100,"*": GO TO 4880
  440 PRINT AT PI,SX;V(C),"*";: GO SUB 4840: PRINT AT 4,SX;V(C)*100,"*";: GO SUB 4880: PRINT AT 5,SX;V(C),: RETURN 
  450 PRINT AT PI,SX;V(C),: GO SUB 4840: PRINT AT 4,SX;V(C)*100,: RETURN 
  460 GO SUB 5050: PRINT AT 6,SX;V(4),,V(5),: RETURN 
  470 CLS 
  480 PRINT "1) FUTURE VALUE WITH PERIODIC   INTEREST"
  490 PRINT 
  500 GO SUB 4710
  501 GO SUB 430
  551 PRINT AT 6,SX;V(4),
  560 IF E=4 THEN GO TO 580
  570 GO SUB 4920
  572 PRINT AT 7,SX;V(5),
  580 GO SUB 4970
  581 IF E=4 THEN PRINT AT 7,SX;V(C),: GO TO 590
  582 PRINT AT 8,SX;V(6),
  590 IF E<>1 THEN GO TO 620
  600 LET V(1)=VAL "INT (V(2)*(1+V(PI)/V(6))^(V(6)*Y)*100+.5)/100"
  610 GO SUB 5090
  620 IF E<>2 THEN GO TO 650
  630 LET V(2)=VAL "INT (V(1)/((1+V(3)/V(6))^(V(6)*Y))*100+.5)/100"
  640 GO SUB 5120
  650 IF E<>3 THEN GO TO 680
  660 LET V(PI)=VAL "INT ((V(6)*(V(1)/V(2))^(1/(V(6)*Y))-V(6))*10000+.5)/10000"
  670 GO SUB 5150
  680 IF E<>4 THEN GO TO 710
  690 LET V(4)=.4342945*LN (V(1)/V(2))/(V(6)*.4342945*LN (1+V(PI)/V(6)))
  700 GO SUB 5180
  710 GO SUB 5330
  720 GO TO 270
  730 CLS 
  740 PRINT "2) FUTURE VALUE WITH INTEREST   COMPOUNDED CONTINUOUSLY."
  750 PRINT 
  760 GO SUB 4710
  761 GO SUB 430
  811 PRINT AT 6,SX;V(C),
  820 IF E=4 THEN GO TO 840
  830 GO SUB 4920
  831 PRINT AT 7,SX;V(C),
  840 IF E<>1 THEN GO TO 870
  850 LET V(1)=INT (V(2)*EXP (V(PI)*Y)*100+.5)/100
  860 GO SUB 5090
  870 IF E<>2 THEN GO TO 900
  880 LET V(2)=INT (V(1)/EXP (V(PI)*Y)*100+.5)/100
  890 GO SUB 5120
  900 IF E<>3 THEN GO TO 930
  910 LET V(PI)=INT (.4342945*LN (V(1)/V(2))/Y*10000+.5)/10000
  920 GO SUB 5150
  930 IF E<>4 THEN GO TO 710
  940 LET V(4)=VAL "INT (.4342945*LN (V(1)/V(2))/V(PI)*100+.5)/100"
  950 GO SUB 5180
  960 GO TO 710
  970 CLS 
  980 PRINT "3) FUTURE VALUE WITH REGULAR    DEPOSITS."
  990 PRINT 
 1000 GO SUB 4710
 1001 PRINT AT PI,SX;V(C),
 1010 PRINT "*REG DEPOSITS $",
 1020 LET C=6
 1030 GO SUB 3950
 1031 GO SUB 435
 1071 PRINT AT 6,SX;V(C),
 1080 IF E=4 THEN GO TO 1100
 1090 GO SUB 4920
 1091 PRINT AT 7,SX;V(C),
 1100 GO SUB 4970
 1101 IF E=4 THEN PRINT AT 7,SX;V(C),: GO TO 1104
 1102 PRINT AT 8,SX;V(C),
 1104 PRINT 
 1110 IF E<>1 THEN GO TO 1140
 1120 LET V(1)=VAL "INT (V(7)*V(6)*((1+V(3)/V(6))^(V(6)*Y)-1)/V(3)*100+.5)/100"
 1130 GO SUB 5090
 1140 IF E<>3 THEN GO TO 1280
 1150 LET V(PI)=.99
 1160 LET I=0
 1170 LET T=VAL "INT (V(7)*(((1+V(3)/V(6))^(V(6)*Y)-1)/(V(3)/V(6)))*100+.5)/100"
 1180 LET TE=ABS (V(PI)-I)/2
 1190 LET I=V(PI)
 1200 IF ABS (T-V(1))<.005 THEN GO TO 1260
 1210 IF T<V(1) THEN GO TO 1240
 1220 LET V(PI)=V(PI)-TE
 1230 GO TO 1170
 1240 LET V(PI)=V(PI)+TE
 1250 GO TO 1170
 1260 LET V(PI)=INT (V(PI)*10000+.5)/10000
 1270 GO SUB 5150
 1280 IF E<>4 THEN GO TO 1310
 1290 LET V(4)=.4342945*LN (V(PI)*V(1)/(V(6)*V(7))+1)/(V(6)*.4342945*LN (1+V(PI)/V(6)))
 1300 GO SUB 5180
 1310 IF E<>7 THEN GO TO 710
 1320 LET V(7)=VAL "INT (V(1)*(V(3)/V(6))/((1+V(3)/V(6))^(V(6)*Y)-1)*100+.5)/100"
 1330 PRINT 
 1340 PRINT "DEPOSITS REQD $",V(7)
 1350 GO TO 710
 1360 CLS 
 1370 PRINT "4) FUTURE VALUE WITH CASH FLOWS."
 1380 PRINT 
 1390 GO SUB 4840
 1391 PRINT AT 2,SX;V(C)*100,
 1400 GO SUB 4880
 1401 PRINT AT PI,SX;V(C),
 1410 PRINT "CASH FLOW (+/-)"
 1420 PRINT 
 1430 LET V(1)=0
 1440 FOR I=1 TO V(4)
 1450 PRINT "CASH FLOW-YEAR #";I
 1460 INPUT A$
 1461 PRINT AT I+5,19;A$,
 1470 LET A=VAL (A$)
 1480 LET V(1)=V(1)+A*(1+V(PI))^(V(4)-I)
 1490 NEXT I
 1500 LET V(1)=INT (V(1)*100+.5)/100
 1510 GO SUB 5090
 1520 LET TE=V(1)
 1530 GO SUB 5270
 1540 GO TO 710
 1550 CLS 
 1560 PRINT "5) WITHDRAWAL OF FUNDS "
 1570 PRINT 
 1580 GO SUB 4750
 1581 PRINT AT 2,SX;V(C),
 1590 PRINT "*REG WITHDRW $",
 1600 LET C=7
 1610 GO SUB 3950
 1611 GO SUB 440
 1670 GO SUB 4920
 1671 PRINT AT 6,SX;V(C),
 1680 GO SUB 4970
 1681 IF E=4 THEN PRINT AT 6,SX;V(C),: GO TO 1690
 1682 PRINT AT 7,SX;V(C),: PRINT 
 1690 IF E<>2 THEN GO TO 1720
 1700 LET V(2)=VAL "INT (V(8)*V(6)/V(PI)*(1-(1+V(PI)/V(6))^(-V(6)*Y))*100+.5)/100"
 1710 GO SUB 5120
 1720 IF E<>3 THEN GO TO 1860
 1730 LET V(PI)=.99
 1740 LET I=0
 1750 LET R=VAL "INT (V(2)*V(3)/V(6)*(1/((1+V(3)/V(6))^(V(6)*Y)-1)+1)*100+.5)/100"
 1760 LET TE=ABS (V(PI)-I)/2
 1770 LET I=V(PI)
 1780 IF ABS (R-V(8))<.005 THEN GO TO 1840
 1790 IF R<V(8) THEN GO TO 1820
 1800 LET V(PI)=V(PI)-TE
 1810 GO TO 1750
 1820 LET V(PI)=V(PI)+TE
 1830 GO TO 1750
 1840 LET V(PI)=INT (V(PI)*10000+.5)/10000
 1850 GO SUB 5150
 1860 IF E<>4 THEN GO TO 1890
 1870 LET V(4)=.4342945*LN (V(6)*V(8)/(V(6)*V(8)-V(PI)*V(2)))/(V(6)*.4342945*LN (1+V(PI)/V(6)))
 1880 GO SUB 5180
 1890 IF E<>8 THEN GO TO 710
 1900 LET V(8)=VAL "INT (V(2)*V(3)/V(6)*(1/((1+V(3)/V(6))^(V(6)*Y)-1)+1)*100+.5)/100"
 1910 PRINT 
 1920 PRINT "REG WITHDRAW :$",V(8)
 1930 GO TO 710
 1940 CLS 
 1950 PRINT "6) NET PRESENT VALUE"
 1960 PRINT 
 1970 PRINT "INIT INVEST $",
 1980 LET C=1
 1990 GO SUB 3950
 1991 PRINT AT 2,SX;V(C),
 2000 GO SUB 4840
 2001 PRINT AT PI,SX;V(C)*100,
 2010 GO SUB 4880
 2011 PRINT AT 4,SX;V(C),
 2020 PRINT "CASH FLOW(+/-)"
 2030 PRINT 
 2040 LET NV=-V(2)
 2050 FOR I=1 TO V(4)
 2060 PRINT "CASH FLOW-YR #",I
 2070 INPUT A$
 2071 PRINT AT I+6,19;A$
 2080 LET A=VAL (A$)
 2090 LET NV=NV+A/((V(PI)+1)^I)
 2100 NEXT I
 2110 LET NV=INT (NV*100+.5)/100
 2120 PRINT 
 2130 PRINT "PRESENT VALUE:$",NV
 2140 LET TE=NV
 2150 GO SUB 5270
 2160 GO TO 710
 2170 CLS 
 2180 PRINT ''''''';"LOANS:"
 2200 PRINT "1) REGULAR LOAN PAYMENTS."
 2210 PRINT "2) REMAINING LOAN LIABILITY."
 2220 PRINT "3) FINAL LOAN PAYMENT."
 2230 PRINT "4) SINGLE LOAN PAYMENT."
 2240 PRINT "5) LOAN AMORTIZATION SCHEDULE."
 2260 PRINT "6) RETURN TO MAIN MENU."
 2270 PRINT 
 2280 PRINT "CHOICE: "
 2281 PRINT ''''"NOTE:"'"ENTER ""X"" FOR THE VARIABLE TO BESOLVED. APPLIES ONLY TO THE     VARIABLES PRECEDING WITH ""*""."
 2290 INPUT A$: LET A=VAL A$
 2310 IF (A<1) OR (A>7) THEN GO TO 2290
 2330 IF A=1 THEN GO TO 2360
 2331 IF A=2 THEN GO TO 2780
 2332 IF A=3 THEN GO TO 2960
 2333 IF A=4 THEN GO TO 3120
 2334 IF A=5 THEN GO TO 3230
 2336 IF A=6 THEN GO TO 200
 2360 CLS 
 2370 PRINT "1) REGULAR LOAN PAYMENTS"
 2390 PRINT '"*";
 2400 GO SUB 4790
 2401 PRINT AT 2,SX;V(C),
 2410 PRINT "*";
 2420 GO SUB 5010
 2421 GO SUB 440
 2470 IF E=4 THEN GO TO 2490
 2480 GO SUB 4920
 2481 PRINT AT 6,SX;V(C),
 2490 GO SUB 4970
 2491 IF E=4 THEN PRINT AT 6,SX;V(C),: GO TO 2500
 2492 PRINT AT 7,SX;V(C),
 2500 IF E<>2 THEN GO TO 2550
 2510 LET V(2)=VAL "INT (V(7)*V(6)/V(3)*(1-(1+V(3)/V(6))^(-V(6)*Y))*100+.5)/100"
 2520 PRINT 
 2530 PRINT "AMT OF PRINC:$",V(2)
 2540 GO TO 2760
 2550 IF E<>3 THEN GO TO 2690
 2560 LET V(PI)=.99
 2570 LET I=0
 2580 LET P=VAL "INT (V(7)*V(6)/V(3)*(1-((1+V(3)/V(6))^(-V(6)*Y)))*100+.5)/100"
 2590 LET TE=ABS (V(PI)-I)/2
 2600 LET I=V(PI)
 2610 IF ABS (P-V(2))<.005 THEN GO TO 2670
 2620 IF P<V(2) THEN GO TO 2650
 2630 LET V(PI)=V(PI)+TE
 2640 GO TO 2580
 2650 LET V(PI)=V(PI)-TE
 2660 GO TO 2580
 2670 LET V(PI)=INT (V(PI)*10000+.5)/10000
 2680 GO SUB 5150
 2690 IF E<>4 THEN GO TO 2720
 2700 LET V(4)=-.4342945*LN (1-V(PI)*V(2)/(V(6)*V(7)))/(V(6)*.4342945*LN (V(PI)/V(6)+1))
 2710 GO SUB 5180
 2720 IF E<>7 THEN GO TO 2760
 2730 LET V(7)=VAL "INT (V(PI)*V(2)/(V(6)*(1-(V(PI)/V(6)+1)^(-V(6)*Y)))*100+.5)/100"
 2740 PRINT 
 2750 PRINT "REQ PAYMENT: $",V(7)
 2760 GO SUB 5330
 2770 GO TO 2170
 2780 CLS 
 2790 PRINT "2) REMAINING LOAN LIABILITY"
 2800 PRINT 
 2810 GO SUB 4790
 2811 PRINT AT 2,SX;V(C),
 2820 GO SUB 5010
 2821 GO SUB 450
 2840 GO SUB 4970
 2841 PRINT AT 5,SX;V(C),
 2850 PRINT "LAST PAYMENT"'"# WAS:"
 2860 INPUT A$
 2870 LET A=VAL (A$)
 2871 PRINT AT 7,SX;A
 2880 FOR J=1 TO A
 2890 LET I=INT (P*V(PI)/V(6)*100+.5)/100
 2900 LET P=P+I-V(7)
 2910 NEXT J
 2920 LET LI=INT (P*100+.5)/100
 2930 PRINT 
 2940 PRINT "REMAINING LOAN"'"AFTER >";A;"<"
 2941 PRINT "PAYMENTS IS:  $ ";LI
 2950 GO TO 2760
 2960 CLS 
 2970 PRINT "3) FINAL LOAN PAYMENT"
 2980 PRINT 
 2990 GO SUB 4790
 2991 PRINT AT 2,SX;V(C),
 3000 GO SUB 5010
 3001 GO SUB 450
 3020 GO SUB 460
 3030 GO SUB 4970
 3031 PRINT AT 8,SX;V(C),
 3040 FOR J=1 TO V(6)*Y
 3050 LET I=INT (P*V(PI)/V(6)*100+.5)/100
 3060 LET P=P+I-V(7)
 3070 NEXT J
 3080 LET LP=INT (P*100+.5)/100+V(7)
 3090 PRINT 
 3100 PRINT "LAST PAYMENT:$",LP
 3110 GO TO 2760
 3120 CLS 
 3130 PRINT "4) SINGLE LOAN PAYMENT"
 3140 PRINT 
 3150 GO SUB 4790
 3151 PRINT AT 2,SX;V(C),
 3160 GO SUB 4840
 3161 PRINT AT PI,SX;V(C)*100,
 3170 GO SUB 5050
 3171 PRINT AT 5,SX;V(4),
 3172 PRINT AT 6,SX;V(5),
 3180 GO SUB 4970
 3181 PRINT AT 7,SX;V(C),
 3190 LET V(1)=VAL "INT (V(2)*(1+V(PI)/V(6))^(Y*V(6))*100+.5)/100"
 3200 PRINT 
 3210 PRINT "TOTAL OWED:$",V(1)
 3220 GO TO 2760
 3230 LET C5=0
 3240 LET N5=0
 3250 LET F=0
 3260 LET P1=0
 3270 LET I1=0
 3280 CLS 
 3290 PRINT "5) LOAN AMORTIZATION SCHEDULE"
 3300 PRINT 
 3310 GO SUB 4790
 3311 PRINT AT 2,SX;V(C),
 3320 GO SUB 5010
 3321 GO SUB 450
 3340 GO SUB 460
 3350 PRINT "# YR PAYMENTS",
 3360 GO SUB 3950
 3361 PRINT AT 8,SX;V(C),
 3370 PRINT "ENTER THE MONTH"'"# IN WHICH THE"'"LOAN BEGAN"
 3371 PRINT AT 11,SX;NE,
 3380 INPUT N
 3390 LET NE=N
 3391 PRINT AT 11,SX;NE,
 3400 LET NP=(V(4)*12+V(5))/(12/V(6))
 3410 LET NY=INT (((N-1)+NP)/V(6)+.99)
 3420 PRINT "ENTER THE RANGE"'"OF YEARS YOU'D"'"LIKE TO EXAMINE"'"(FIRST, LAST)"
 3421 PRINT AT 15,SX;F1;"     ";L1
 3430 INPUT F1,L1
 3431 PRINT AT 15,SX;F1;"     ";L1,
 3440 IF L1<=NY THEN GO TO 3460
 3450 LET L1=NY
 3460 FOR X=1 TO L1
 3470 IF X<F1 THEN GO TO 3490
 3480 GO SUB 5390
 3490 FOR J=1 TO V(6)-N+1
 3500 LET I=INT (P*V(PI)/V(6)*100+.5)/100
 3510 LET N5=N5+1
 3520 LET PP=V(7)-I
 3530 IF X<>NY THEN GO TO 3570
 3540 IF N5<>NP THEN GO TO 3570
 3550 LET PP=P
 3560 LET F=1
 3570 IF X<F1 THEN GO TO 3600
 3580 PRINT N5;TAB 5;
 3581 LET Z=P: GO SUB 5500: PRINT K$;TAB 14;
 3590 LET Z=PP: GO SUB 5500: PRINT K$;TAB 23;
 3600 LET P=P+I-V(7)
 3610 IF F=0 THEN GO TO 3640
 3620 LET P=0
 3630 LET J=V(6)
 3640 IF X<F1 THEN GO TO 3670
 3650 LET Z=I: GO SUB 5500: PRINT K$
 3670 LET I1=I1+I
 3680 LET P1=P1+PP
 3690 LET C5=C5+1
 3700 IF C5<>13 THEN GO TO 3770
 3710 IF X<F1 THEN GO TO 3770
 3720 GO SUB 5330
 3730 CLS 
 3740 LET C5=0
 3750 IF J=V(6)-N+1 THEN GO TO 3770
 3760 GO SUB 5390
 3770 NEXT J
 3780 IF X<F1 THEN GO TO 3890
 3790 IF F=0 THEN GO TO 3820
 3810 PRINT "FINAL PAYMENT:$";INT ((PP+I)*100+.5)/100
 3830 PRINT "INT PAID IN ";X;" YR:   $";INT (I1*100+.5)/100
 3840 PRINT "PRINC PAID IN ";X;" YR :$";INT (P1*100+.5)/100
 3850 IF F=1 THEN GO TO 3930
 3860 IF X=L1 THEN GO TO 3930
 3870 GO SUB 5330
 3880 CLS 
 3890 LET C5=0
 3900 LET P1=0
 3910 LET I1=0
 3920 LET N=1
 3930 NEXT X
 3940 GO TO 2760
 3950 LET C=C+1
 3960 IF C<>3 THEN GO TO 3990
 3970 PRINT V(PI)*100,
 3980 GO TO 4000
 3990 PRINT V(C),
 4000 LET A$=""
 4010 INPUT A$
 4020 IF A$="" THEN RETURN 
 4040 IF A$<>"MR" THEN GO TO 4100
 4050 PRINT "MEM=";M;"  USE AS VARIABLE HERE (Y/N)"
 4060 INPUT A$
 4070 IF A$="N" THEN GO TO 4000
 4080 LET V(C)=M
 4090 RETURN 
 4100 IF A$="X" THEN LET V(C)=0: LET E=C: RETURN 
 4130 LET V(C)=VAL (A$)
 4140 IF C<>3 THEN RETURN 
 4150 LET V(C)=V(C)/100
 4160 RETURN 
 4710 PRINT "*FUTURE VALUE $",
 4720 LET C=0
 4730 GO SUB 3950
 4740 RETURN 
 4750 PRINT "*PRESENT VALUE$",
 4760 LET C=1
 4770 GO SUB 3950
 4780 RETURN 
 4790 PRINT "PRINCIPAL $",
 4800 LET C=1
 4810 GO SUB 3950
 4820 LET P=V(C)
 4830 RETURN 
 4840 PRINT "INT RATE %",
 4850 LET C=2
 4860 GO SUB 3950
 4870 RETURN 
 4880 PRINT "FOR # OF YEARS",
 4890 LET C=3
 4900 GO SUB 3950
 4910 RETURN 
 4920 PRINT "FOR # OF MONTHS",
 4930 LET C=4
 4940 GO SUB 3950
 4950 LET Y=V(C-1)+V(C)/12
 4960 RETURN 
 4970 PRINT "YRLY PERIODS #",
 4980 LET C=5
 4990 GO SUB 3950
 5000 RETURN 
 5010 PRINT "PAYMENTS $",
 5020 LET C=6
 5030 GO SUB 3950
 5040 RETURN 
 5050 PRINT "TERM OF LOAN:"
 5060 GO SUB 4880
 5070 GO SUB 4920
 5080 RETURN 
 5100 PRINT '"FUTURE VALUE $",V(1): RETURN 
 5130 PRINT '"REQD INVESTMT $",V(2): RETURN 
 5160 PRINT '"INT RATE REQD %",V(PI)*100: RETURN 
 5180 LET V(5)=V(4)-INT (V(4))
 5190 LET V(5)=VAL "INT (INT (12*V(5)*10+.5)/10)"
 5200 LET V(4)=INT (V(4))
 5210 IF V(5)<>12 THEN GO TO 5240
 5220 LET V(4)=V(4)+1
 5230 LET V(5)=0
 5250 PRINT '"# YRS & MONTHS:";V(4);" ; ";V(5): RETURN 
 5270 PRINT 
 5280 IF TE>=0 THEN GO TO 5310
 5290 PRINT "THIS IS A LOSING INVESTMENT."
 5300 RETURN 
 5310 PRINT "THIS IS A PROFITABLE INVESTMENT."
 5320 RETURN 
 5340 PRINT AT 21,0;"TO CONTINUE "; INK 2;"<"; INK 4;"ENTER"; INK 2;">"; INK 0;" COPY "; INK 2;"<"; INK 4;"COPY"; INK 2;">"
 5350 LET A$=""
 5360 INPUT A$
 5361 IF A$="Z" THEN PRINT AT 21,NOT PI,,: COPY 
 5362 PRINT INK 4;AT 21,0;"    HIT <ENTER> TO CONTINUE ",
 5370 IF A$<>"" THEN GO TO 5350
 5380 RETURN 
 5390 CLS 
 5400 PRINT "LOAN AMORTIZATION SCHEDULE FOR  YEAR ",X
 5410 PRINT "PRINCIPAL $",V(2),"RATE %",V(PI)*100;"%","PAYMENT $",V(7)
 5430 PRINT " #    BEG. BAL   PRINC     INT  "
 5440 RETURN 
 5460 RETURN 
 5500 LET Z=INT (Z*100+.5)/100: DIM K$(9): LET K$=STR$ Z
 5501 IF K$(9)=CHR$ 32 THEN LET K$=CHR$ 32+K$( TO 9): GO TO 5501
 5502 FOR G=1 TO 9
 5503 IF K$(G)="." THEN GO TO 5505
 5504 NEXT G
 5505 IF G=10 THEN LET K$=K$(4 TO )+".00"
 5506 IF G=8 THEN LET K$=K$(2 TO )+"0"
 5507 RETURN 
 9989 STOP 
 9990 BORDER 2: POKE 23607,60: RETURN 
 9991 LET typ=2: POKE 23618,9: POKE 23619,39: POKE 23620,2
 9992 LET typ=1: POKE 23618,9: POKE 23619,39: POKE 23620,2
 9993 LET typ=0: RANDOMIZE USR (torg*256+2-typ): POKE 23607,torg-4: RETURN 
 9994 BORDER 2: POKE 23658,8: POKE 23609,30: LET TYPE=9994: LET torg=255: CLEAR (256*torg-769): LET torg=255: LET REG=9990: LET BLD=9991: LET MOD=9992: LET ITAL=9993
 9995 FOR i=0 TO 79: READ k: POKE (i+256*torg),k: NEXT i: GO SUB 9991: PRINT AT 6,4;"SELECT TYPE OF PRINTING:": GO SUB 9990: PRINT AT 9,6;"1 REGULAR       REG": GO SUB 9991: PRINT AT 11,6;"2 MODERN        MOD": GO SUB 9992: PRINT AT 13,6;"3 BOLD          BLD": GO SUB 9993: PRINT AT 15,6;"4 ITALIC       ITAL": GO SUB 9991: INPUT "ENTER TYPE OF PRINTING          REG / MOD / BLD / ITAL :";Z: GO SUB Z: GO TO 100
 9996 DATA 0,NOT PI,121,203,39,203,39,50,21,255,33,NOT PI,61,17,NOT PI,torg-3
 9997 DATA 1,NOT PI,3,126,24,48,203,63,24,44,230,112,24,37,121,230,7,203,39,50,40,255,126,24,30,24,28,24,16,24,14,24,14,24,20,24,18,24,2,200,63,203,63,24,10,203,39,203,39,24,4,183,203,39,182,18,35,19,11,120,177,32,196,201
 9998 SAVE "INVES/LOAN" LINE 9994: PRINT #1;"       REWIND THE TAPE                 *** AND PLAY ** ": VERIFY ""