home *** CD-ROM | disk | FTP | other *** search
/ Commodore Free 33R1 / Commodore_Free_Issue_33R1_2009_Commodore_Computer_Club.d64 / vat < prev   
Text File  |  2023-02-26  |  1KB  |  42 lines
  1. .
  2. *************************************
  3.           VAT Calculator
  4.           By John Fielden
  5. *************************************
  6.  
  7. Listing of: vat.prg
  8.  
  9. 10 REM *VAT CALCULATOR*
  10. 12 REM *(C) JOHN A. FIELDEN 2009*
  11. 16 CLR:SCNCLR:PRINT"{SHIFT-+}black{SHIFT--} VAT CALC"
  12. 18 COLOR0,2
  13. 20 VA=17.5:T=100
  14. 30 INPUT "TAKINGS /AMOUNT: ";T
  15. 35 Q=T*VA/100:PRINT"AMOUNT: ";T
  16. 40 PRINTQ;" VAT AT: ";VA;"%"
  17. 50 PRINT"{SHIFT-+}brown{SHIFT--} TOTAL IF VAT TAKEN:
  18. ";T-Q
  19. 60 PRINT"{SHIFT-+}lblue{SHIFT--} ...IF VAT ADDED:
  20. ";T+Q
  21. 70 PRINTCHR$(18);"{SHIFT-+}black{SHIFT--} ANOTHER
  22. AMOUNT Y/N? "
  23. 75 PRINTCHR$(146)
  24. 80 GETA$:IFA$=""THEN80
  25. 90 IFA$="N" THENEND
  26. 100 GOTO16
  27.  
  28. VA is current VAT level.
  29. T is short for Takings and set to 100
  30. to test that everything is working
  31. properly.  And to avoid the annoying
  32. "DIVISION BY ZERO ERROR"
  33. Q provides a base for the
  34. mathematical sum to be stored
  35. concerning how much VAT to be taken
  36. or added to "takings".  The added sum
  37. is given purely for the sake of
  38. covering all bases, as such may help
  39. with pricing an object or service.
  40. The rest is self explanatory.
  41.  
  42. =====================================