home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / dos_misc / qcalc113.zip / BUDGET.QC next >
Text File  |  1991-10-30  |  600b  |  36 lines
  1.  
  2. ;
  3. ; BUDGET
  4. ;
  5.  
  6. #
  7. # BUDGET.QC, calculates your earnings.
  8. #
  9. #    Usage:  QCALC @budget.qc          (hit ESC or any key to continue)
  10. #
  11.  
  12. ~ /f ; Turn on financial printing.
  13.  
  14. #                                     Enter your hourly wages (before taxes)
  15.  
  16.     ;
  17. !hw ; Prompt user to input information, and store it in var hw
  18.     ;
  19.  
  20. #
  21. # Your paycheck is:
  22. paycheck:hw*40 ~        ; ~ = pause
  23.  
  24. #
  25. # Your income is:
  26. income:paycheck*52 ~
  27.  
  28. #
  29. # Estimated percentage paid to taxes:
  30. /f% tax_pct:if(gt(income,40000),.35,.25) /%f ~
  31.  
  32. #
  33. # After taxes, you'll have:
  34. income-income*tax_pct
  35.  
  36.