'
Print "Quickie Credit Card Calculator"
Print "by Blake Arnold"
Pause 35
' NOTE: I am NOT responsible for any damages, destruction, loss, or liability
' that this program may cause.  This program is intended for ESTIMATES only,
' it is NOT accurate to the penny.
'
' ALSO: I am also not responsible for any psychological problems (depression,
' etc.) that this program may cause.
'
' USE AT YOUR OWN RISK.
'
' nuff said!  Have fun!
'
' It's interesting to find out just how much a credit card company
' can make from "interest" charges if you make small payments, hence this
' program.
' The program does NO error checking, so if your minimum payment won't
' cover accruing interest charges it may seem to hang up. If you don't
' get output within a few seconds, run it again and increase your monthly
' payment.
' Feel free to enhance the program as you see fit.
Top:
Cls
Print
Input "Amount financed (in dollars)";Amt
Input "Annual interest rate percentage (ex: 19.8)";Int
Input "Monthly payment (in dollars)";Pay
Print "Verify input:"
Print "Amount $";Amt
Print "Annual Int. rate ";Int;"%"
Mnth=Int/12
Print "Monthly Interest Rate ";Mnth;"%"
Print "Payment $";Pay
New_amt=Amt-Pay
Count%=1
Amt_int=0
If New_amt>0
  Repeat
    Amt_int=(New_amt*Mnth/100)+Amt_int
    New_amt=(New_amt+New_amt*(Mnth/100))-Pay
    Inc Count%
  Until New_amt<=0
Endif
Print
Print "Total number of payments: ";Count%
Print "Time to repay: ";Int(Count%/12);" years, ";Int(12*Frac(Count%/12));" months"
Print "Total amount of interest paid: $";Int(Amt_int)
Print
Print "Press 'c' to continue, 'q' to quit."
Do
  If Upper$(Inkey$)="C"
    Goto Top   !You didn't see that "Goto", ok?
  Endif
  Exit If Upper$(Inkey$)="Q"
Loop