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."
\n1000 STOP
\n1010 SAVE "1011%3"
\n1020 LIST
