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

270: I
=
I-(E * 1000)
280: IF (1<0) THEN LET I
=
0
290: PRINT "INC. LESS EXMP. ="; I
300: W = 750 + (50 * F)
310: RESTORE W
320: READ L
330: FOR X = 1 TO L
340: READ B(X), M(X), PIX)
350: IF (I>B(X)) THEN LET J = X
360: NEXT X
370: T = M(J) + (P(J) * (I-B(J)))
380: PRINT "FIT = "; T
390: INPUT "AMT. OF ADD. TAX? "; A
400: INPUT "AMT. OF TAX CREDITS? ";C
410: Z = S*.0935
420: IF Z>3029.40 THEN LET Z = 3029.40
430: IF Z>O THEN PRINT "S.S. TAX = ";Z
440: T = T
+
A-C
+
Z
450: PRINT "EST. TOTAL TAX = "; T
460: END
Note: Tax tables have standard deduction built-in
Compute income less exemptions
Minimum income is zero
Display
Compute line number of appropriate tax table for filing status
And restore so READ will get right table
Read number of lines in table
Loop to read in table
Read baseline, minimum tax, and percent for each tax bracket
Save pointer to highest applicable bracket
Compute F IT (see text}
Display FIT
Get any miscellaneous tax obligations
Get any miscellaneous tax credits
Compute social security tax on self-employment income
Limit S.S. tax to maximum
Display if S.S. tax is greater than zero
Total tax
And display
195