05-23-2005, 12:23 AM
wondering if ne could help me to make my code smaller more smarter looking.
Code:
CLS
PRINT , " To stop the program, please leave the name blank."
PRINT
PRINT
OPEN "c:\file.txt" FOR OUTPUT AS #1
DO
PRINT
INPUT "Please enter the name: ", Name$
IF Name$ = "" THEN EXIT DO
DO
INPUT "Please enter the Gross Salary"; GrossSal
LOOP UNTIL GrossSal > 0
DO
INPUT "Please enter the Personal Allowance"; PersonAllow
LOOP UNTIL PersonAllow >= 0 AND PersonAllow < GrossSal
Taxable = GrossSal - PersonAllow
IF Taxable > 0 AND Taxable <= 1000 THEN
TotalTax = Taxable
ELSEIF Taxable >= 1001 AND Taxable <= 3000 THEN
Tax0 = 1000
Taxable = Taxable - Tax0
Tax = (Taxable / 100) * 20
TotalTax = Tax0 + Taxable - Tax
ELSEIF Taxable >= 3001 AND Taxable <= 5000 THEN
Tax0 = 1000
Taxable = Taxable - Tax0
Tax20 = 2000
Tax = (Tax20 / 100) * 20
Tax20Ans = Tax20 - Tax
Taxable = Taxable - 2000
Tax25 = (Taxable / 100) * 25
Tax25Ans = Taxable - Tax25
TotalTax = Tax0 + Tax20Ans + Tax25Ans
ELSEIF Taxable > 5000 THEN
Tax0 = 1000
Taxable = Taxable - Tax0
Tax20 = 2000
Tax = (Tax20 / 100) * 20
Tax20Ans = Tax20 - Tax
Taxable = Taxable - 2000
Tax25 = 2000
Tax = (Tax25 / 100) * 25
Tax25Ans = Tax25 - Tax
Taxable = Taxable - 2000
Tax30 = (Taxable / 100) * 30
Tax30Ans = Taxable - Tax30
TotalTax = Tax0 + Tax20Ans + Tax25Ans + Tax30Ans
ELSE
END IF
TotalSalary = TotalTax + PersonAllow
TotalTaxAmt = GrossSal - TotalSalary
WRITE #1, Name$, GrossSal, PersonAllow, TotalTaxAmt, TotalSalary
LOOP
CLOSE #1
PRINT
PRINT "Name", "Gross Salary", "Allowance", "Taxed Amount", "Total Income"
PRINT
OPEN "c:\file.txt" FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1, Name$, GrossSal, PersonAllow, TotalTaxAmt, TotalSalary
PRINT Name$, GrossSal, PersonAllow, TotalTaxAmt, TotalSalary
LOOP
CLOSE #1
END