Tigriff

=Replace with Command Name= toc

Description
> Here is a simple "Tax Program" (Named it 'Pay Chex', because I like to get paid and I want some Chex mix right now) that will tell you how much taxes are going to take out of your pay check. > > It incorporates the basics of Just BASIC, and shows that it can be useful in the real world. > > This is my first version of the program (Heck, its my first program, just got out of my first class in BASIC) and more revisions are to come. Hope you like it.

Syntax
code format="qbasic" ' 'Copyright (C) 2010 DC Porter. Tigriff Entertainment ' This program is free software: you can redistribute it and/or modify ' it under the terms of the GNU General Public License as published by ' the Free Software Foundation, version 3 of the License. ' ' This program is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU General Public License for more details. ' ' You should have received a copy of the GNU General Public License ' along with this program. If not, see . ' Help Menu [help] 'Clear Screen CLS 'Help Text print "Welcome to Pay Chex, By Tigriff Entertainment." print " " print "Pay Chex is a program designed to help workers know how much is going to get" print "taken out of their pay check in taxes and also give them their net pay." print " " print "You will be prompted to enter your Name, Regular Hours Worked," print "Overtime Hours Worked, and Rate of Pay." print " " print "Please enter your full like this. Andrew J. Smith" print " " print "For Regular Hours Worked, just type in your Regular Hours Worked." print "Please do not put Over Time Hours." print " " print "For Over Time Hours Worked, just type in your Over Time Hours Worked ONLY." print "Please do not put Regular Hours Worked." print " " print "For Rate of Pay, please put what your hourly wage is." print " " input "Press the ENTER key to go back Pay Chex."; GotoStart if GotoStart=0 then goto [start] 'Goes Back to [start] [start] 'Clear Screen CLS ' 'Welcome Screen print "Welcom to Pay Chex, by Tigriff Entertainment" print " " ' 'Give Worker the option to see the Help Menu print "If you do not need help type 10 then press the ENTER key " input "If you need help press the ENTER key. "; NeedHelp 'Sends Woker to Help Menu if NeedHelp=10 then goto [help] ' 'Clear Screen CLS ' 'Welcome Screen print "Welcom to Pay Chex, by Tigriff Entertainment" print " " ' 'Worker's Name input "Enter your name: "; Name$ 'Hours Worked by worker input "Enter your Regular Hours Worked: "; HoursWork 'Overtime Hours by worker input "Enter your Overtime Hours Worked: "; OverHours 'Rate of Pay for worker input "Enter your Rate of Pay: "; RatePay ' input "Enter your Tax Rate: (enter as a Decimal ex: .28) "; RateTax ' The Math 'Overtime Pay Equation OverTimePay=OverHours*RatePay*1.5 'Gross Pay Equation GrossPay=HoursWork*RatePay+OverTimePay 'Taxes Withheld Equation WithheldTax=GrossPay*RateTax 'Total Net Pay Equation NetPay=GrossPay-WithheldTax ' 'Clear Screen CLS ' 'Round to nearest 100th (Two Decimals) 'NetPay will become NetPay2. NetPay2 is Round to the nearest 100th NetPay2=(NetPay+.005) : NetPay2=INT(NetPay2*100) : NetPay2=(NetPay2/100) 'GrossPay will become GrossPay2. GrossPay2 is Round to the nearest 100th GrossPay2=(GrossPay+.005) : GrossPay2=INT(GrossPay2*100) : GrossPay2=(GrossPay2/100) 'WithheldTax will become WithheldTax2. WithheldTax2 is Round to the nearest 100th WithheldTax2=(WithheldTax+.005) : WithheldTax2=INT(WithheldTax2*100) : WithheldTax2=(WithheldTax2/100) ' The Resaults print "Thank you "; Name$ ;". Here is your Pay and Tax infomation." print " Name: " ; Name$ print "Total Gross Pay: $"; GrossPay2 print " Taxes Withheld: $"; WithheldTax2 print " Total Net Pay: $"; NetPay2 print "Thank you for using Pay Chex! Rememeber Taxes are due April 15th." end code