Radio Shack TRS-80 PC-3 Owner's Manual page 194

United States Federal Tax Estimator Program
10: DIM B(15), M(15), P(15)
20: USI NG " ######,"
30: WAIT 128
40: PRINT "FILING STATUS:"
50: PRINT "1: SINGLE"
60: PRINT "2: MARRIED FILING SEPAR."
70: PRINT "3: MARRIED FILING JOINT"
80: PRINT "4: HEAD OF HOUSEHOLD"
90: WAIT
100: INPUT "STATUS? "; F
110: IF ((F<l) OR (F>4» THEN GOTO 40
120: INPUT "NO. OF EXEMPTIONS? ";E
130: INPUT "EST. SALARY INCOME? "; I
140: INPUT "EST. S.E. INCOME? ";S
150: INPUT "EST. OTHER INCOME? "; 0
160: I : I
+
S
+
0
170: PRINT "TOTAL INCOME: "; I
180: INPUT "WILL YOU ITEMIZE? "; 0$
190: IF (LEFT$ (0$,1) <> "Y") THEN GOTO 270
200: INPUT "EST. TOTAL DEDUCT.? "; 0
210: IF ((F: 1) OR (F: 4» THEN LET 0: 0-2300
220: IF (F: 2) THEN LET 0: 0-3400
230: IF (F: 3) THEN LET 0: 0-1700
240: IF (0<0) THEN LET 0: 0
250: I : 1-0
260: PRINT "INC. LESS OED. :"; I
Allocate arrays - B ( ) is baseline for tax bracket, M ( ) is minimum tax
in bracket, P ( ) is percent within bracket
Set format for all displays
Set WAIT for Status options display
Display options for filing status
Reset WAIT so that Enter is required after each display
Get filing status
Check if valid
Get number of exemptions
Get salary income
Get self-employment income
Get other income
Total the incomes
And display
Ask about itemizing deductions
If not then skip itemizing section
Get total itemized deductions
Subtract standard deduction according to filing status
Minimum deduction is zero
Reduce income by excess over standard
And display
194