Car Payment

Gallery

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