Credit Rating Interest Rate

Gallery

Source Code

   5 REM %I%N%R%A%T%E%/%/%C%R%E%D%I%T% %R%A%T%I%N%G
  10 PRINT 
  11 PRINT "CREDIT RATING INTEREST RATE"
  12 PRINT 
  20 PRINT "ENTER LOAN AMOUNT"
  30 INPUT A
  31 PRINT A
  40 IF A>5000 THEN GOTO 70
  50 LET A1=12
  60 GOTO 80
  70 LET A1=6
  80 PRINT "HOW MANY MONTHS NEEDED TO REPAY--12,18,24? ENTER 1,2 OR 3"
 100 INPUT B
 101 PRINT B
 110 IF B<2 THEN GOTO 150
 120 IF B<3 THEN GOTO 170
 130 LET B1=12
 140 GOTO 180
 150 LET B1=4
 160 GOTO 180
 170 LET B1=8
 180 PRINT "ENTER APPLICANT SALARY"
 190 INPUT C
 191 PRINT C
 200 IF C=0 THEN GOTO 240
 210 IF C<10000 THEN GOTO 260
 220 IF C<20000 THEN GOTO 280
 230 IF C>=20000 THEN GOTO 300
 240 LET C1=16
 250 GOTO 310
 260 LET C1=12
 270 GOTO 310
 280 LET C1=8
 290 GOTO 310
 300 LET C1=4
 310 PRINT "NR OF JOBS LAST 5 YEARS?"
 320 INPUT D
 321 PRINT D
 330 IF D=1 THEN GOTO 360
 340 IF D=2 THEN GOTO 380
 350 IF D>=3 THEN GOTO 400
 360 LET D1=3
 370 GOTO 410
 380 LET D1=6
 390 GOTO 410
 400 LET D1=15
 410 PRINT "JOB SECURITY?--ANS 1=EXC,2=GOOD,OR 3=POOR"
 420 INPUT E
 421 PRINT E
 430 IF E=1 THEN GOTO 460
 440 IF E=2 THEN GOTO 480
 450 IF E=3 THEN GOTO 500
 460 LET E1=3
 470 GOTO 510
 480 LET E1=6
 490 GOTO 510
 500 LET E1=12
 510 PRINT "CREDIT RATING--ENTER 1=EXC.,2=GOOD,3=POOR,0=NONE"
 530 INPUT F
 531 PRINT F
 540 IF F=1 THEN GOTO 590
 550 IF F=2 THEN GOTO 610
 560 IF F=3 THEN GOTO 630
 570 LET F1=12
 580 GOTO 640
 590 LET F1=4
 600 GOTO 640
 610 LET F1=8
 620 GOTO 640
 630 LET F1=16
 640 PRINT "OTHER DEBTS--ENTER 1=NONE,2=LOW OR AVG.,3=LARGE."
 650 INPUT G
 651 PRINT G
 660 IF G=1 THEN GOTO 690
 670 IF G=2 THEN GOTO 710
 680 IF G>2 THEN GOTO 730
 690 LET G1=3
 700 GOTO 740
 710 LET G1=6
 720 GOTO 740
 730 LET G1=12
 740 PRINT "ENTER PRIME INT.RATE"
 750 INPUT H
 751 PRINT H
 760 IF H<.12 THEN GOTO 800
 770 IF H<.15 THEN GOTO 820
 780 LET H1=12
 790 GOTO 840
 800 LET H1=3
 810 GOTO 840
 820 LET H1=6
 830 REM TOTAL UP POINTS
 840 LET I=A1+B1+C1+D1+E1+F1+G1+H1
 850 LET Z$="INTEREST RATE"
 860 PRINT 
 870 REM TESTS FOR POINT TOTAL
 880 IF I<=33 THEN GOTO 930
 890 IF I<60 THEN GOTO 950
 900 IF I<=99 THEN GOTO 970
 910 GOTO 990
 920 REM PRINTS THE APPLICANTS RATE
 930 PRINT Z$,"14 PCT."
 940 GOTO 1000
 950 PRINT Z$,"17 PCT."
 960 GOTO 1000
 970 PRINT Z$,"19 PCT."
 980 GOTO 1000
 990 PRINT Z$,"22 PCT."
1000 STOP 
1010 SAVE "1011%3"
1020 LIST