3Hl gr~>F >~
dcd/ TAX.MWB Program to calculate taxes!!
n+ Written by David Rapson 28 July 1986
x6 No responsibility is accepted for the use of this
: program although every effort has been made to ensure
its correctness.
7 These are the Tax scales (levels) and rates as of
8 June 1986. They may need changing from time to time
6 Note: there is NO tax up to level one, L1(1)=4595
L1(7),M1(2),R1(7),R2(2)
L1(1)= 4595 :R1(1)=0.25
L1(2)=12500 :R1(2)=0.30
L1(3)=19500 :R1(3)=0.46
L1(4)=28000 :R1(4)=0.48
L1(5)=35000 :R1(5)=0.60
6 Similarly these are the Medicare levels and rates
M1(1)=7526 :R2(1)=0.20
M1(2)=7922 :R2(2)=0.01
9 ----------------------------------------------------
:
"+ 15,1 : "Tax Calculator Program": :
,, : "How many pay periods are there?";P1
6 "What is the pay? $";P2
@3 "Would you like these figures printed? (Y/N)";
J A1$=$
T" A1$="Y" A1$="y" L#1
^ A1$="" 330
h1 -----This is where all the work is done-----
r Y1=P1*P2 : yearly income
|0 B=-1 : Firstly determine the top tax bracket
I=0 5
Y1>L1(I) B=B+1 430
I
7 Now calculate tax using the levels and rates above
, Y1>=L1(1) T1=(Y1-L1(B))*R1(B) 490
I=2 5
. B>=I T1=T1+(L1(I)-L1(I-1))*R1(I-1)
I
this is for Medicare
9 Y1>M1(2) M2=(Y1-M1(2))*R2(2)+(M1(2)-M1(1))*R2(1)
\\
W1$="Period"
P1=52 W1$="Week"
P1=26 W1$="Fortnight"
P1=12 W1$="Month"
1 " per ";W1$; " Year"
&- "Income $";[F10.2 Y1/P1],[F10.2 Y1]
0- "Tax taken $";[F10.2 T1/P1],[F10.2 T1]
:- "Medicare $";[F10.2 M2/P1],[F10.2 M2]
D N1=Y1-T1-M2 : Net yearly pay
N : (41) :
X- "Net in hand $";[F10.2 N1/P1],[F10.2 N1]
b :#0 :
l/ "Press any key to continue, or Q to quit";
v A1$=$
A1$="Q" A1$="q"
A1$="" 630
280