Schedi-Mort

Gallery

Source Code

  10 REM "SCHEDI-MORT"
  20 FAST 
  30 DIM A$(704)
  40 LET A$="\@@"
  50 FOR F=1 TO 704
  60 LET A$(F)=A$
  70 NEXT F
  80 PRINT AT 0,0;
  90 PRINT A$
 100 PRINT AT 0,0;
 110 SLOW 
 120 GOSUB 1020
 130 PAUSE 60
 140 PRINT AT 7,8;"\ .\:'\''\''\''\''\''\''\''\''\''\''\''\':\. "
 150 PRINT AT 8,8;"\ : SCHEDI-MORT \: "
 160 PRINT AT 9,8;"\ '\:.\..\..\..\..\..\..\..\..\..\..\..\.:\' "
 170 PAUSE 120
 180 PRINT AT 13,10;"PROFESSIONAL"
 190 PRINT AT 14,5;"AMORTIZATION SCHEDULER"
 200 PAUSE 60
 210 PRINT AT 18,9;"COPYRIGHT 1983"
 220 PAUSE 360
 230 CLS 
 240 FAST 
 250 GOSUB 1020
 260 SLOW 
 270 PRINT AT 8,10;"SCHEDI-MORT"
 280 PRINT TAB (8);"IS A PRODUCT OF" 
 290 PRINT TAB (4);"E. ARTHUR BROWN COMPANY"
 300 PRINT TAB (5);"1702 OAK KNOLL DRIVE"
 310 PRINT TAB (5);"ALEXANDRIA, MN 56308"
 320 PAUSE 360
 330 CLS 
 340 PRINT AT 5,0;"COPYRIGHT 1983 BY EBEN A. BROWN.ALL RIGHTS RESERVED.  NO PART OFTHIS  PROGRAM MAY BE  REPRODUCEDFOR RESALE BY ANY MEANS,MECHANI-CAL  OR  ELECTRONIC,   INCLUDINGPHOTOCOPYING,  RECORDING, OR ANYINFORMATION STORAGE AND RETRIEV-AL SYSTEM  WITHOUT  WRITTEN PER-MISSION FROM THE AUTHOR.";
 350 PRINT "CASSETTEAND  PRINTED  VERSIONS  OF  THISPROGRAM  ARE  PRODUCED ON COPY -DETECTING   MAGNETIC   TAPE  ANDPAPER.  COPYRIGHT   INFRINGEMENTIS A FEDERAL OFFENSE."
 360 PAUSE 900
 370 CLS 
 380 PRINT AT 6,5;"ENTER NAME OF BORROWER"
 390 INPUT F$
 400 PRINT AT 10,7;"ENTER TODAYS DATE"
 410 INPUT E$
 420 CLS 
 430 PRINT AT 8,6;"ENTER INTEREST RATE"
 440 INPUT I
 450 PRINT AT 12,7;"ENTER LOAN AMOUNT"
 460 INPUT L
 470 CLS 
 480 IF I>1 THEN LET I=I/100
 490 PRINT AT 2,3;"SELECT YOUR PAYMENT PERIOD"
 500 PRINT TAB (6);"(D) DAILY"
 510 PRINT TAB (6);"(W) WEEKLY"
 520 PRINT TAB (6);"(M) MONTHLY"
 530 PRINT TAB (6);"(Q) QUARTERLY"
 540 PRINT TAB (6);"(Y) YEARLY"
 550 INPUT B$
 560 IF B$="D" THEN LET R=365
 570 IF B$="W" THEN LET R=52
 580 IF B$="M" THEN LET R=12
 590 IF B$="Q" THEN LET R=4
 600 IF B$="Y" THEN LET R=1
 610 PRINT AT 9,1;"ENTER TOTAL NUMBER OF PAYMENTS"
 620 INPUT P
 630 CLS 
 631 PRINT AT 9,3;"WILL YOU BE NEEDING A PRINTEDCOPY?"
 632 PRINT TAB (10);"(Y)YES"
 633 PRINT TAB (10);"(N)NO"
 634 INPUT Y$
 635 IF Y$="Y" THEN GOTO 1110
 640 LET Z$="\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!"
 650 LET I1=I/R
 655 CLS 
 660 PRINT AT 7,0;Z$
 670 PRINT AT 9,5;"AMORTIZATION SCHEDULE"
 680 PRINT TAB (7);"FOR ";F$
 690 PRINT TAB (15);"ON"
 700 PRINT TAB (12);E$
 710 IF B$="D" THEN PRINT "$";L;" AT ";I*100;" PERCENT-PAID DAILY"
 720 IF B$="W" THEN PRINT "$";L;" AT ";I*100;" PERCENT-PAID WEEKLY"
 730 IF B$="Q" THEN PRINT "$";L;" AT ";I*100;" PERCENT-PAID QUARTERLY"
 740 IF B$="M" THEN PRINT "$";L;" AT ";I*100;" PERCENT-PAID MONTHLY"
 750 IF B$="Y" THEN PRINT "$";L;" AT ";I*100;" PERCENT-PAID YEARLY"
 760 PRINT 
 770 PRINT Z$
 780 PAUSE 360
 790 CLS 
 800 PRINT "PERIOD";TAB (5);"PAYMENT";TAB (10);"INTEREST";TAB (15);"PRINCIPLE";TAB (20);"REM. BAL."
 810 LET H=((INT (((I1/(1-(1+I1)**(-P)))*L*100)+.5)))/100
 820 FOR V=1 TO P
 830 LET V1=(INT (L*I1*100+.5))/100
 840 LET L=(INT (((L-(H-V1))*100)+.5))/100
 850 PRINT V;TAB (5);H;"      ";TAB (10);V1;"      ";TAB (15);H-V1;"      ";TAB (20);L
 860 NEXT V
 870 PRINT Z$
 880 PRINT 
 890 PRINT TAB (6);"PROCESSING COMPLETE"
 900 PRINT 
 910 PRINT Z$
 920 PAUSE 200
 930 CLS 
 940 PRINT AT 10,0;"DO YOU WISH TO AMORTIZE ANY MORE LOANS? (YES) OR (NO)"
 950 INPUT U$
 960 IF U$="YES" THEN GOTO 370
 970 CLS 
 980 PRINT AT 10,2;"OKAY,THAT ENDS THIS PROCESSING RUN"
 990 PAUSE 240
1000 CLS 
1010 STOP 
1020 FOR G=0 TO 63
1030 PLOT G,0
1040 PLOT G,43
1050 NEXT G
1060 FOR J=0 TO 43
1070 PLOT 0,J
1080 PLOT 63,J
1090 NEXT J
1100 RETURN 
1110 CLS 
1120 PRINT AT 9,0;"PLEASE SELECT THE SIZE OF PRINT-OUT YOU DESIRE."
1130 PRINT TAB (6);"(A)32 CHARACTER WIDTH"
1140 PRINT TAB (6);"(B)80 CHARACTER WIDTH"
1150 INPUT Q$
1160 IF Q$="A" THEN LET S=0
1170 IF Q$="A" THEN LET Z$="\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!"
1180 IF Q$="B" THEN LET S=5
1189 IF Q$="B" THEN LET Z$="********************************************************************************"
1200 LET I1=I/R
1210 LPRINT AT 7,0;Z$
1220 LPRINT AT 9,5+3*S;"AMORTIZATION SCHEDULE"
1230 LPRINT TAB (7+3*S);"FOR ";F$
1240 LPRINT TAB (12+3*S);E$
1250 IF B$="D" THEN LPRINT TAB (3*S);"$";L;" AT ";I*100;" PERCENT-PAID DAILY"
1260 IF B$="W" THEN LPRINT TAB (3*S);"$";L;" AT ";I*100;" PERCENT-PAID WEEKLY"
1270 IF B$="Q" THEN LPRINT TAB (3*S);"$";L;" AT ";I*100;" PERCENT-PAID QUARTERLY"
1280 IF B$="M" THEN LPRINT TAB (3*S);"$";L;" AT ";I*100;" PERCENT-PAID MONTHLY"
1290 IF B$="Y" THEN LPRINT TAB (3*S);"$";L;" AT ";I*100;" PERCENT-PAID YEARLY"
1300 LPRINT 
1310 LPRINT Z$
1320 LPRINT "PERIOD";TAB (5+2*S);"PAYMENT";TAB (10+4*S);"INTEREST";TAB (15+6*S);"PRINCIPLE";TAB (20+8*S);"REM.BAL."
1330 LET H=((INT (((I1/(1-(1+I1)**(-P)))*L*100)+.5)))/100
1340 FOR V=1 TO P
1350 LET V1=(INT (L*I1*100+.5))/100
1360 LET L=(INT (((L-(H-V1))*100)+.5))/100
1370 LPRINT V;TAB (5+2*S);H;"       ";TAB (10+4*S);V1;"       ";TAB (15+6*S);H-V1;"       ";TAB (20+8*S);L
1380 NEXT V
1390 LPRINT Z$
1400 LPRINT 
1410 LPRINT TAB (6+2*S);"PROCESSING COMPLETE"
1420 LPRINT 
1430 LPRINT Z$
1435 CLS 
1440 GOTO 940