10 REM MORTG.ECB 15 REM ......MORTGAGE...Converted from 90/80 BASIC...8-5-79 20 REM ......Modified for SOL-20 4-01-80 R.E.H. 30 LET K$="&K": LET J$="&J": SET DS=0 40 DIM A(20),B$(75),G$(12),I$(25),M(20),Y(20) 50 PRINT K$;J$ 60 PRINT TAB(7);"### MORTGAGE PROGRAM MENU ###";J$ 70 LET B$="-------------------------------": LET B$=B$+B$ 80 PRINT TAB(7);"(0) - Exit Program." 90 PRINT TAB(7);"(1) - Compute INTEREST RATE." 100 PRINT TAB(7);"(2) - Compute LIFE of MORTGAGE." 110 PRINT TAB(7);"(3) - Compute AMOUNT BORROWED." 120 PRINT TAB(7);"(4) - Compute MONTHLY PAYMENT." 130 PRINT TAB(7);"(5) - Compute TOTAL INTEREST." 140 PRINT TAB(7);"-----------------------------------" 150 PRINT TAB(7);"(6) - REVOLVING CHARGE ACCOUNTS." 160 PRINT TAB(7);"(7) - DEPRECIATION." 170 PRINT TAB(7);"(8) - SAVINGS and INTEREST." 180 PRINT : INPUT (1,0)"*#* Pick one (0-8) ---=>",I0 190 IF I0=0 THEN 4300 ELSE LET I0=INT(I0) 200 IF I0<1 OR I0>8 THEN 50 ELSE PRINT K$;J$;J$ 210 IF I0=1 THEN PRINT TAB(15);"COMPUTE INTEREST RATE:";J$ 220 IF I0=2 THEN PRINT TAB(15);"COMPUTE MORTGAGE LIFE:";J$ 230 IF I0=3 THEN PRINT TAB(15);"COMPUTE AMOUNT BORROWED:";J$ 240 IF I0=4 THEN PRINT TAB(15);"COMPUTE MONTHLY PAYMENT:";J$ 250 IF I0=5 THEN PRINT TAB(15);"COMPUTE TOTAL INTEREST:";J$ 260 IF I0=6 THEN PRINT TAB(15);"REVOLVING CHARGE ACCOUNT:" 270 IF I0=7 THEN PRINT TAB(15);"DEPRECIATION:";J$ 280 ON I0 GOTO 290,300,310,320,330,2300,2800,3100 290 GOSUB 580: GOSUB 630: GOSUB 670: GOTO 340 300 GOSUB 370: GOSUB 630: GOSUB 670: GOTO 340 310 GOSUB 370: GOSUB 580: GOSUB 670: GOTO 340 320 GOSUB 370: GOSUB 580: GOSUB 630: GOTO 340 330 GOSUB 370: GOSUB 580: GOSUB 630: GOSUB 670 340 IF I0<>2 THEN LET N=12*Y+M 350 IF I0<>1 THEN LET R1=R/12 360 ON I0 GOTO 710,840,890,930,960 370 PRINT "What is the annual interest rate in percent?" 380 INPUT "Enter ---=>",R 390 IF R<=0 THEN 370 400 LET R=R/100: PRINT : RETURN 410 PRINT "What is the monthly interest rate in percent?" 420 INPUT "Enter ---=>",R1: LET R1=R1/100: LET R=R1*12 430 IF R<=0 THEN 410 440 PRINT : RETURN 450 PRINT : REM ...Get MONTH, YEAR 460 PRINT "FORMAT example: ---=>4,1980" 470 INPUT "ENTER: month,year ---=>",I1,I2 480 LET I1=INT(I1): LET I2=INT(I2) 490 IF I1>0 AND I1<13 THEN 510 ELSE PRINT 500 PRINT I1;" is an illegal month.";J$: GOTO 450 510 IF I2>1776 THEN 540 ELSE PRINT 520 PRINT "Anyone living then was not dealing in Dollars!" 530 PRINT : GOTO 450 540 IF I2<2201 THEN RETURN ELSE PRINT 550 PRINT "If your alive that long, you really won't care." 560 PRINT : GOTO 450 570 REM 580 PRINT "What is the MORTGAGE LIFE in Years, Months?" 590 PRINT " (Entry example: 30,0 )";J$ 600 INPUT "Enter ---=>",Y,M 610 PRINT : IF Y<0 OR M<0 THEN 580 620 IF M>12 THEN 580 ELSE RETURN 630 PRINT "What is the amount to be borrowed?" 640 INPUT "Enter ---=>",A 650 PRINT : IF A<=0 THEN 630 660 RETURN 670 PRINT "What is the amount of one monthly payment?" 680 INPUT "Enter ---=>",P 690 PRINT : IF P<=0 THEN 670 700 RETURN 710 LET R1=0: REM ...RATE 720 FOR O=1 TO 5 730 LET I=0 740 LET I=I+1 750 LET Q=I*(1/(10^O))+R1 760 LET C=(P*(1-1/((1+Q)^N)))/Q 770 IF C(R*A+1) THEN 1030 980 PRINT " Your first years payments are ";12*P 990 PRINT "The first years interest is ";R*A 1000 PRINT "Therefore, "; 1010 PRINT "the life of the mortgage is undefined.";J$ 1020 GOTO 4300 1030 PRINT K$;B$;J$: PRINT TAB(10);"MORTGAGE TERMS: ("; 1040 IF I0=1 THEN PRINT "interest rate)";J$ 1050 IF I0=2 THEN PRINT "mortgage life)";J$ 1060 IF I0=3 THEN PRINT "amount borrowed)";J$ 1070 IF I0=4 THEN PRINT "monthly payments)";J$ 1080 IF I0=5 THEN PRINT "total interest)";J$ 1090 PRINT "ANNUAL INTEREST RATE (compounded monthly) ="; 1100 PRINT R*100;"%": LET B7=P*(12*Y+M)-A: LET A1=A 1110 IF I0=5 THEN LET B7=0 ELSE 1140 1120 FOR M1=1 TO N: LET B7=B7+(A1*R1): NEXT M1 1130 FOR M1=1 TO N: LET A1=A1-(P-(A1*R1)): NEXT M1 1140 PRINT "LIFE OF MORTGAGE =";Y;" Years ";M;" Months" 1150 PRINT %$C12F2;"Amount borrowed = ";A 1160 PRINT %$C12F2;"Monthly payments= ";P 1170 IF I0=2 THEN LET B7=P*((12*Y)+(M-1))-A 1180 PRINT %$C12F2;" Total Interest = ";B7;J$ 1190 IF I0=2 THEN PRINT ELSE 1220 1200 PRINT " NOTE: The mortgage LIFE has been" 1210 PRINT "rounded upward to the nearest month" 1220 PRINT B$;J$ 1230 INPUT (1,0)"*#* Enter any letter ---=>",I$ 1240 PRINT K$;J$: LET A1=A: LET P2=P 1250 PRINT TAB(15);"(0) - End program." 1260 PRINT TAB(15);"(1) - Change something" 1270 PRINT TAB(15);"(2) - Print Monthly mortgage table." 1280 PRINT TAB(15);"(3) - Print Annual mortgage table." 1290 PRINT TAB(15);"(4) - Monthly Mortgage: EXTRA payments" 1300 PRINT TAB(15);"(5) - Annual Mortgage: EXTRA payments" 1310 PRINT TAB(15);"(6) - Partial Monthly mortgage table." 1320 PRINT : LET Y1=0: LET Y2=0 1330 PRINT : INPUT (1,0)"*#* Pick one (0-6) ---=>",Z0 1340 IF Z0=0 THEN 4300 ELSE LET Z0=INT(Z0) 1350 IF Z0<1 OR Z0>6 THEN 1240 ELSE PRINT 1360 IF Z0=1 THEN 50 1370 PRINT " What is the month and year in which the" 1380 PRINT " MORTGAGE loan is to be made?";J$ 1390 PRINT " (Use numbers: JANUARY=1, JUNE=6, etc.)" 1400 GOSUB 450: LET I=I1: LET T2=I2 1410 RESTORE 1420 1420 DATA "JANUARY","FEBRUARY","MARCH","APRIL","MAY" 1430 DATA "JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER" 1440 DATA "NOVEMBER","DECEMBER" 1450 FOR T1=1 TO I: READ Y$: NEXT T1 1460 LET T3=Y*12+M: LET M4=T3: LET T4=Y+T2 1470 LET F=0: LET M2=T1 1480 IF T1+M>13 THEN LET T4=T4+1 1490 IF Z0=6 THEN PRINT ELSE 1540 1500 PRINT "Enter the ending calendar month and year" 1510 PRINT "for the partial MORTGAGE report." 1520 PRINT Y$;T2;" is assumed as the start of the report" 1530 GOSUB 450: LET Y1=I1: LET Y2=I2 1540 IF Z0<4 THEN 1730 1550 IF T3<3 THEN 1810 1560 IF Z0=4 OR Z0=5 THEN PRINT ELSE 1810 1570 FOR M1=1 TO 20 1580 LET M(M1)=0: LET Y(M1)=0: LET A(M1)=0 1590 NEXT M1 1600 PRINT "### How many extra payments? ###";J$ 1610 IF T3-2<20 THEN LET I=T3-2 ELSE LET I=20 1620 PRINT TAB(9);"(No more than ";I;" )" 1630 INPUT " (Note: 0=none) ---=>",X2 1640 IF X2=0 THEN 1810 ELSE PRINT 1650 IF X2<1 OR X2>I THEN 1600 1660 PRINT "### INPUT 3 NUMBERS ###";J$ 1670 PRINT "FORMAT: ---=> month, year, amount";J$ 1680 FOR M1=1 TO X2 1690 PRINT M1;TAB(5); 1700 INPUT " ENTER: ---=>",M(M1),Y(M1),A(M1) 1710 NEXT M1 1720 LET X1=1 1730 PRINT K$ 1740 PRINT TAB(15);"*** MORTGAGE TABLE ***";J$ 1750 LET M3=T1+1: IF M3=13 THEN LET T2=T2+1 1760 IF M3=13 THEN LET M3=1 1770 LET M2=M3: RESTORE 1420 1780 FOR I=1 TO M3: READ G$: NEXT I 1790 PRINT " $$$ First payment due ";G$;" ";T2;" $$$";J$ 1800 IF Z0<7 THEN 1810 1810 IF Z0=3 OR Z0=5 THEN PRINT TAB(5);"YEAR"; 1820 IF Z0=2 OR Z0=4 OR Z0=6 THEN PRINT TAB(7);"MONTH"; 1830 PRINT TAB(17);"Payments Principal"; 1840 PRINT " Interest New balance": LET I2=0 1850 PRINT B$: LET B9=0: LET S2=0: LET I3=0: LET P1=0 1860 FOR M1=1 TO T3: REM ...MORTGAGE Table report (2,3,4,5,6) 1870 IF Z0<4 OR Z0>5 THEN 1890 ELSE LET B=0 1880 IF M2=M(X1) AND T2=Y(X1) THEN LET B=A(X1) 1890 LET I0=(A-B)*R1: REM ...Monthly interest rate 1900 IF A+I0<=P THEN LET P=A+I0 1910 LET S1=(P+B)-I0: LET S2=S2+S1: REM ...Principal paid 1920 LET B9=B9+I0: LET I2=I2+I0: REM ...Total up all interest 1930 LET A=A-S1: REM ...Subtract interest from owed amount 1940 LET P1=P1+P+B: RESTORE 1420 1950 FOR I=1 TO M2: READ G$: NEXT I 1960 IF Z0<4 OR Z0>5 THEN 2010 1970 IF M2=M(X1) AND T2=Y(X1) THEN LET I3=I3+B ELSE 2010 1980 IF Z0=5 THEN PRINT " ";G$; 1990 PRINT TAB(14);%$C11F2;A(X1); 2000 PRINT TAB(28);"*** EXTRA payment ***": LET X1=X1+1 2010 IF Z0=3 OR Z0=5 THEN 2070 2020 IF M2=1 THEN PRINT "------------------Payment---Prin"; 2030 IF M2=1 THEN PRINT "cipal--Interest---Outstanding-" 2040 PRINT M1;TAB(5);G$(1,3);". ";T2;TAB(16);%$C9F2;P; 2050 PRINT TAB(23);%$C11F2;S1;TAB(31);I0;TAB(50);A 2060 IF A>0 THEN 2110 ELSE EXIT 2160 2070 IF M2<12 THEN 2110 2080 PRINT TAB(5);T2;TAB(16);%$C10F2;P1+I3;: LET P1=0 2090 PRINT TAB(23);%$C11F2;S2;TAB(37);I2;TAB(50);A 2100 LET I3=0: LET S2=0: LET I2=0: IF A<=0 THEN EXIT 2160 2110 IF Z0=6 THEN IF Y1=M2 AND T2=Y2 THEN EXIT 2270 2120 IF M2=12 THEN LET M2=0 2130 LET M2=M2+1: IF M2=1 THEN LET T2=T2+1 2140 NEXT M1 2150 PRINT 2160 PRINT : PRINT G$;", ";T2; 2170 PRINT TAB(20);"### LOAN PAID OFF ###";J$ 2180 PRINT "Total interest paid: ";%$C12F2;B9; 2190 IF B7=B9 THEN 2210 2200 PRINT TAB(40);"Projected: ";%$C12F2;B7 2210 PRINT 2220 PRINT "Total Expendeture: ";%$C12F2;A1+B9; 2230 IF B9+100>B7 THEN 2250 2240 PRINT TAB(40);"Projected: ";%$C12F2;A1+B7 2250 PRINT : IF B9+100>B7 THEN 2270 2260 PRINT "### MONEY SAVED: ";%$C11F2;B7-B9 2270 PRINT : INPUT (1,0)"*#* Enter any letter ---=>",I$ 2280 PRINT : LET A=A1: LET P=P2 2290 IF I0<6 THEN 1240 ELSE 50 2300 PRINT : REM ......REVOLVING CHARGE ACCOUNT............ 2310 PRINT "This section will calculate the interest for" 2320 PRINT "a REVOLVING CHARGE ACCOUNT.";J$: GOSUB 410 2330 INPUT "$$$ ENTER credit amount desired ---=>",C 2340 IF C>0 AND C<100 THEN PRINT "Not realistic!";J$ 2350 IF C<100 THEN 2330 ELSE PRINT 2360 PRINT "%%% What is the minimum interest before a %%%" 2370 PRINT "%%% service charge is applied? (0=none) %%%" 2380 INPUT "%%% Example: .50 ---=>",S 2390 PRINT : IF S<0 THEN 2360 ELSE GOSUB 670 2400 IF PS THEN 2580 2560 IF M=I1 AND Y=I2 THEN 2580 2570 LET M0=S: LET Y$="Y" 2580 LET I0=I0+M0: LET B=E+M0 2590 IF M<=12 THEN 2610 ELSE LET M=1 2600 LET Y=Y+1 2610 IF B

",I$: GOTO 50 2720 RESTORE 1420 2730 FOR I=1 TO M: READ G$: NEXT I 2740 PRINT G$(1,3);". ";Y;TAB(12); 2750 PRINT %$C9F2;B;TAB(22);E;TAB(31);M0;TAB(40);I0;TAB(51);T 2760 IF Y$="N" THEN 2780 2770 PRINT TAB(23);"Service charge applied to above." 2780 IF M=12 THEN PRINT B$ 2790 RETURN 2800 PRINT J$;J$: REM ....DEPRECIATION....................... 2810 PRINT "Depreciation on an item will be shown three ways:" 2820 PRINT " straight line, sum of digits," 2830 PRINT "and by the double declining method.";J$ 2840 INPUT "What is the original cost? ---=>",C 2850 IF C>=1E8 THEN PRINT "You need a bigger program!" 2860 PRINT : LET C=INT(C): IF C>0 AND C<1E8 THEN 2880 2870 PRINT "### wrong ###": GOTO 2840 2880 PRINT : INPUT "Depreciate for how many years? ---=>",Y 2890 PRINT : LET Y=INT(Y): IF Y>0 THEN 2910 ELSE PRINT 2900 PRINT "### wrong ###": GOTO 2880 2910 INPUT "What is the scrap value of the item? ---=>",S 2920 PRINT : LET S=INT(S): IF S>0 THEN 2940 ELSE PRINT 2930 PRINT "### wrong ###": GOTO 2910 2940 PRINT K$;J$ 2950 PRINT TAB(15);"*** DEPRECIATION TABLE ***";J$ 2960 PRINT "Original cost: ";%$C17F2;C; 2970 PRINT TAB(35);"Scrap value: ";%$C9F2;S;J$: PRINT B$;J$ 2980 PRINT "YEAR";TAB(10);"STRAIGHT";TAB(30);"SUM OF"; 2990 PRINT TAB(50);"DOUBLE": PRINT TAB(12);"LINE";TAB(30); 3000 PRINT "DIGITS";TAB(49);"DECLINING";J$ 3010 LET A=C-S: LET I1=A/Y: REM ...straight line 3020 LET B=((Y+1)/2)*Y: LET M=Y: REM ...sum of digits 3030 FOR X=1 TO Y 3040 LET I2=A*(M/B): LET M=M-1: LET I3=(2*C)/Y: LET C=C-I3 3050 PRINT X;TAB(8);%C$14F2;I1;TAB(28); 3060 PRINT %C$14F2;I2;TAB(48);I3 3070 NEXT X 3080 PRINT B$ 3090 INPUT (1,0)"*#* Enter any letter ---=>",I$: GOTO 50 3100 PRINT K$;J$: REM ....SAVINGS and INTEREST............... 3110 PRINT TAB(15);"SAVINGS and INTEREST";J$ 3120 PRINT TAB(7);"(0) - Exit program" 3130 PRINT TAB(7);"(1) - Return to MORTGAGE menu" 3140 PRINT TAB(7);"(2) - Savings: Annual interest" 3150 PRINT TAB(7);"(3) - Savings: Semi-annual interest" 3160 PRINT TAB(7);"(4) - Savings: Quarterly interest" 3170 PRINT TAB(7);"(5) - Savings: Monthly interest" 3180 PRINT TAB(7);"(6) - Savings: 360 daily interest" 3190 PRINT TAB(7);"(7) - Savings: 365 daily interest" 3200 PRINT TAB(7);"(8) - Compare Interest rates.";J$ 3210 INPUT (1,0)"*#* Pick one (0-8) ---=>",Z0 3220 IF Z0=0 THEN 4300 ELSE LET Z0=INT(Z0) 3230 IF Z0<2 OR Z0>8 THEN 50 ELSE PRINT K$;J$;J$ 3240 IF Z0=8 THEN PRINT TAB(15);"COMPARE INTEREST RATES:";J$ 3250 IF Z0=8 THEN 4000 3260 RESTORE 3290 3270 FOR M1=2 TO Z0: READ I$: NEXT M1 3280 PRINT TAB(15);I$;J$ 3290 DATA "ANNUAL SAVINGS:","SEMI-ANNUAL SAVINGS:" 3300 DATA "QUARTERLY SAVINGS:","MONTHLY SAVINGS:" 3310 DATA "360 DAILY SAVINGS:","365 DAILY SAVINGS:" 3320 INPUT "$$$ How much to open up the account? ---=>",A 3330 PRINT : IF A<1E8 THEN 3350 3340 PRINT "Nobody has that much money!!!": GOTO 3320 3350 IF A<0 THEN PRINT "$ .00 is the minimum please." 3360 IF A<0 THEN 3320 3370 PRINT "This section computes the total amount of money" 3380 PRINT "which will accumulate under a systematic" 3390 PRINT "investment program. Invest $ 0.00 to show" 3400 PRINT "the interest on a one-time deposit." 3410 PRINT "Invest a NEGATIVE $ amount to show" 3420 PRINT "Systematic Withdrawls!";J$ 3430 PRINT "$$$ How much do you want to invest each year? $$$" 3440 INPUT "$$$ ENTER ---=>",I: IF I>=0 THEN 3460 3450 PRINT "### This will be a systematic withdrawal ###";J$ 3460 LET I=(I*100)/100: PRINT 3470 IF Z0=6 THEN PRINT ELSE 3520 3480 PRINT "Will this be compounded QUARTERLY?" 3490 INPUT (1,0)"(Yes or No) ---=>",Z$ 3500 IF LEN(Z$)=0 THEN LET I$="N" 3510 IF Z$(1,1)="Y" THEN LET Q=1 ELSE LET Q=0 3520 GOSUB 370: REM ...Get annual interest rate 3530 PRINT "How many years will this run?" 3540 INPUT " ENTER ---=>",Y: LET Y=INT(Y) 3550 IF Z0=2 THEN LET N=1: REM ...Compounded once yearly 3560 IF Z0=3 THEN LET N=2: REM ...Compounded twice yearly 3570 IF Z0=4 THEN LET N=4 3580 IF Z0=5 THEN LET N=12 3590 IF Z0=6 THEN LET N=360 3600 IF Z0=7 THEN LET N=365 3610 LET N1=N: LET A1=A: LET I0=R/N 3620 PRINT : IF Y>0 THEN 3640 ELSE PRINT "### WRONG ###" 3630 PRINT "No negative years!": GOTO 3540 3640 PRINT K$: PRINT B$: PRINT TAB(15); 3650 IF I<>0 THEN PRINT "SYSTEMATIC "; ELSE PRINT TAB(25); 3660 IF I<0 THEN PRINT "WITHDRAWAL"; ELSE PRINT "SAVINGS"; 3670 PRINT " REPORT";J$: LET I2=A: LET I1=0 3680 PRINT "Initial deposit: ";%$C14F2;A 3690 IF I>0 THEN PRINT "Deposits: ";%$C14F2;I 3700 IF I<0 THEN PRINT "Withdrawal: ";%$C13F2;I 3710 PRINT " Annual rate: ";%C9F4;R*100;"%" 3720 IF Z0=2 THEN 3750 ELSE GOSUB 3930: REM ...Effective rate 3730 PRINT " Effective annual rate: ";%C9F4;R2*100;"%"; 3740 PRINT TAB(40);I$: PRINT B$;J$ 3750 IF I>=0 THEN PRINT "YEARS";TAB(17);"TOTAL INVESTMENTS"; 3760 IF I<0 THEN PRINT "YEAR";TAB(17);"TOTAL WITHDRAWALS"; 3770 PRINT TAB(42);"TOTAL ACCUMULATION";J$ 3780 PRINT "Start ------=> "; 3790 IF I>=0 THEN PRINT %$C17F2;I2; ELSE PRINT ;%$C17F2;I1; 3800 PRINT TAB(45);%$C17F2;A 3810 FOR M1=1 TO Y 3820 IF I<0 THEN LET I1=I1+(I): REM ...Total withdrawls 3830 LET I2=I2+(I): LET A=A+(I)+((A+(I))*R2) 3840 IF A>1E12 THEN EXIT 3900 3850 PRINT "Year ";M1;TAB(15); 3860 IF I>=0 THEN PRINT %$C17F2;I2; ELSE PRINT %$C17F2;I1; 3870 PRINT TAB(42);%$C20F2;A 3880 IF A<=0 THEN EXIT 3900 3890 NEXT M1 3900 PRINT B$: IF A<=1E12 THEN 3920 3910 PRINT "### HEY, these numbers are too big! ###" 3920 INPUT (1,0)"*#* Enter any letter ---=>",I$: GOTO 3100 3930 LET E=N*I0: LET T1=E: REM ....Calculate Effective Rate 3940 FOR X=2 TO N 3950 LET B9=E: LET T2=T1*I0*(N+1-X)/X 3960 LET E=E+T2: LET T1=T2: IF E=B9 THEN EXIT 3980 3970 NEXT X 3980 LET R2=(INT(E*1E7+.5)/1E7) 3990 RETURN 4000 LET M(2)=2: LET M(3)=4: REM ....COMPARE INTEREST RATES 4010 LET M(4)=12: LET M(5)=360: LET M(6)=365 4020 PRINT "Enter a list of interest rates in percent." 4030 PRINT "(EXAMPLE: 5 3/4 % is expressed as 5.75)" 4040 PRINT : PRINT "END the list by typing in a 0";J$ 4050 PRINT "sample: 1*ENTER---=>5.75" 4060 PRINT " 2*ENTER---=>0";J$ 4070 FOR C=1 TO 20 4080 PRINT C;: INPUT "*ENTER---=>",A(C) 4090 IF A(C)<=0 THEN EXIT 4120 4100 LET A(C)=A(C)/100 4110 NEXT C 4120 PRINT : PRINT B$: PRINT 4130 PRINT TAB(17);"EFFECTIVE ANNUAL INTEREST";J$ 4140 PRINT " Simple Semi- Quarterly Monthly 360"; 4150 PRINT " 365" 4160 PRINT "Interest Annual compound compound "; 4170 PRINT "compound compound" 4180 PRINT 4190 FOR M=1 TO C-1 4200 PRINT %Z7F4;A(M)*100;" "; 4210 FOR P=2 TO 6 4220 LET N=M(P): LET I0=A(M)/N 4230 GOSUB 3930 4240 PRINT %Z9F6;R2*100;" "; 4250 NEXT P 4260 PRINT 4270 NEXT M 4280 PRINT B$ 4290 INPUT (1,0)"*#* Enter any letter ---=>",I$: GOTO 3100 4300 PRINT TAB(15);"*** The End ***" 4310 END