mirror of
https://github.com/sehugg/8bitworkshop.git
synced 2024-11-26 10:49:17 +00:00
97 lines
2.8 KiB
QBasic
97 lines
2.8 KiB
QBasic
OPTION DIALECT HP
|
|
10 PRINT "DANIEL O'ROURKE FEB. 23, 1977"
|
|
20 PRINT "MINI-COMPUTOR 102"
|
|
30 PRINT "SUBJECT: MORTGAGE PAYMENT"
|
|
40 FOR A=1 TO 3
|
|
50 PRINT
|
|
60 NEXT A
|
|
70 PRINT "HI, I AM A COMPUTOR. YOU HAVE COME TO ME "
|
|
80 PRINT "SO I CAN HELP YOU SOLVE YOUR MORTGAGE"
|
|
90 PRINT "PROBLEMS, BECAUSE I CAN MAKE CALCULATIONS"
|
|
100 PRINT "MUCH FASTER AND MORE ACCURATELY THAN YOU"
|
|
110 PRINT "CAN. IF YOU DON'T KNOW HOW TO USE ME,AND"
|
|
120 PRINT "YOU WOULD LIKE INSTRUCTIONS, PLEASE TYPE"
|
|
125 PRINT "A 1 (ONE). FOLLOW IT WITH A CARRIAGE RETURN."
|
|
130 PRINT "IF NOT TYPE A 0 (ZERO) FOLLOWED BY A CARRI-"
|
|
140 PRINT "AGE RETURN. DO IT NOW, PLEASE."
|
|
142 PRINT
|
|
144 PRINT
|
|
150 INPUT B
|
|
152 IF B=1 THEN 160
|
|
155 IF B=0 THEN 285
|
|
157 IF B#1 THEN 142
|
|
160 PRINT
|
|
165 PRINT
|
|
170 PRINT "THANK YOU, HERE ARE YOUR INSTRUCTIONS."
|
|
180 PRINT
|
|
190 PRINT
|
|
200 GOTO 250
|
|
250 PRINT "TYPE IN THE AMOUNT YOU WISH TO BORROW."
|
|
260 PRINT "FOLLOW IT WITH A COMMA (,) THEN TYPE IN"
|
|
270 PRINT "THE NUMBER OF YEARS YOU WOULD LIKE TO TAKE"
|
|
280 PRINT "TO REPAY THAT LOAN. FOLLOW THAT WITH"
|
|
282 PRINT "A CARRIAGE RETURN. DO IT NOW."
|
|
285 PRINT
|
|
286 PRINT
|
|
290 INPUT C,D
|
|
295 PRINT
|
|
296 PRINT
|
|
297 IF B=0 THEN 340
|
|
300 PRINT "THANK YOU, NOW TYPE IN THE INTEREST RATE."
|
|
310 PRINT "THIS INFORMATION MUST BE IN DECIMAL FORM."
|
|
320 PRINT "EXAMPLE: .10=10% INTEREST RATE."
|
|
325 PRINT "FOLLOW THIS INFORMATION WITH A CARRIAGE RE-"
|
|
330 PRINT "TURN. DO IT NOW."
|
|
340 INPUT E
|
|
342 LET G=C*(((E/12)*(1+E/12)^(D*12))/((1+E/12)^(D*12)-1))
|
|
344 LET F=(G*D*(12))-C
|
|
350 PRINT
|
|
351 PRINT
|
|
352 PRINT "THANK YOU."
|
|
354 PRINT "THE TOTAL COST OF YOUR LOAN IS";F
|
|
355 PRINT
|
|
356 PRINT "YOUR MONTHLY PAYMENTS (INCLUDING INTEREST) ARE";G
|
|
358 PRINT
|
|
359 PRINT
|
|
360 PRINT "NOW YOU WILL RECEIVE A PAYMENT SCHEDULE"
|
|
370 PRINT "OF PAYMENTS FOR THE FIRST TWELVE MONTHS OF"
|
|
380 PRINT "YOUR REPAYMENT PERIOD. THEN I WILL TELL YOU"
|
|
390 PRINT "HOW MUCH YOU HAVE PAID TOWARDS THE PRINCIPLE,"
|
|
400 PRINT "THEN I WILL TELL YOU HOW MUCH YOU HAVE PAID"
|
|
410 PRINT "ON THE INTEREST, AND THEN I WILL TELL YOU HOW"
|
|
420 PRINT "MUCH YOU STILL HAVE LEFT TO REPAY (BALANCE DUE)."
|
|
430 PRINT
|
|
440 PRINT
|
|
510 PRINT "MONTH","PRINCIPLE","INTEREST","BALANCE DUE"
|
|
515 LET R=(E/12)*C
|
|
520 FOR I=1 TO 12
|
|
530 LET K=(E/12)*C
|
|
540 LET P=G-K
|
|
550 LET C=(C)-(P)
|
|
570 PRINT I,P,K,C
|
|
600 NEXT I
|
|
650 PRINT
|
|
660 PRINT
|
|
670 PRINT "THE AMOUNT YOU HAVE PAID TOWARDS THE PRINCIPLE IS:"
|
|
675 LET Q=G-E
|
|
685 PRINT
|
|
690 PRINT "$";Q
|
|
695 PRINT
|
|
700 PRINT
|
|
710 PRINT "THE AMOUNT YOU HAVE PAID ON INTEREST IS:"
|
|
715 PRINT
|
|
720 PRINT "$";R
|
|
725 PRINT
|
|
730 PRINT
|
|
735 PRINT "YOUR BALANCE DUE IS:"
|
|
736 PRINT
|
|
740 PRINT "$";C
|
|
750 PRINT
|
|
760 PRINT
|
|
780 PRINT "THIS COMPLETES THE MORTGAGE PAYMENT PROGRAM."
|
|
790 PRINT "THANK YOU FOR YOUR COOPERATION."
|
|
800 FOR T=1 TO 4
|
|
810 PRINT
|
|
820 NEXT T
|
|
999 END
|