Source Code
5 REM %C%A%R% %P%A%Y%M%E%N%T%S
10 LET P=0
20 PRINT "CAR PAYMENT"
30 FOR L=1 TO 11
40 PRINT "*";
50 NEXT L
60 PRINT
100 PRINT "PURCHASE PRICE?"
110 INPUT T
111 PRINT T
130 PRINT "DOWN PAYMENT?"
140 INPUT R
141 PRINT R
160 PRINT "NUMBER OF MONTHS?"
170 INPUT N
171 PRINT N
190 PRINT "ANNUAL INTEREST?"
200 INPUT I
201 PRINT I
210 LET I=(0.0$*I)/12
220 CLS
230 LET P=(T-R)*I/(1-1/(1+I)**N)
240 LET P=INT (100*P+.5)/100
250 PRINT "PAYMENT WILL BE"
260 PRINT "$";P;" A MONTH"
300 PRINT "FOR MORE,PRESS ANY KEY"
310 IF INKEY$="" THEN GOTO 310
311 PRINT
320 GOTO 20
400 SAVE "1003%4"
500 RUN
