Appears on
Library tape of the Indiana Sinclair Timex User’s Group.
Source Code
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 ""