19 lines
509 B
QBasic
19 lines
509 B
QBasic
[start]
|
|
print "Type a dollar and cent amount ?"
|
|
input "(Press 'Enter' alone for help) "; amount
|
|
let tax = amount * 0.05
|
|
print "Tax is: "; tax; ". Total is: "; tax+amount
|
|
goto [start]
|
|
|
|
[help]
|
|
cls
|
|
print "SALESTAX.BAS Help"
|
|
print
|
|
print "This tax program determines how much tax is"
|
|
print "due on an amount entered and also computes"
|
|
print "the total amount. The tax rate is 5%."
|
|
print
|
|
input "Press [Enter] to continue."; dummyVariable
|
|
cls
|
|
goto [start]
|