DataMuseum.dk

top - download

    Length: 4096 (0x1000)
    Types: TextFile
    Names: »PAYROLL.PC«

└─⟦a6ed1cd35⟧ Bits:30002862 Perfect Calc 1.10 for JET80 CP/M
    └─ ⟦this⟧ »PAYROLL.PC« 

TextFile

>a1:" PAYROLL ANALYSIS WORKSHEET
>a1:Øwc18
>b1:Øwc6
>c1:Øwc6
>d1:Øwc6
>e1:Øwc7
>f1:Øwc7
>g1:Øwc8
>j1:Øwc8
>k1:Øwc9
>a2:"Copyright, 1982, Perfect Software, Inc.
>a3:"*******************************************************************
>a4:"  This program automatically reads in the 'payfacts.pc' file
>a5:"    needed by this file.  This file uses forward referencing, 
>a6:"    therefore you will need to press the recalculation key (!) 
>a7:"    twice when updating the file.
>a8:"*******************************************************************
>b10:"PAYROLL SUMMARY STATEMENT  (weekly)
>b11:"Hourly
>d11:" O.T.
>e11:"Federal
>g11:" State
>h11:"  Gross
>i11:"   Net
>j11:" 
>a12:" Name of Employee
>b12:"Rate
>c12:" Hours
>d12:" Hours
>e12:"  Tax
>f12:"  FICA
>g12:"   Tax
>h12:"   Pay
>i12:"   Pay
>j12:" 
>a13:"
>b13:=payfactsÆc9Å@
>c13:0
>d13:0
>e13:=w13/52@
>f13:=(payfactsÆg5Å*h13)@
>g13:0
>h13:=b13*((1.5*d13)+c13)@
>i13:=h13-e13-f13-g13@
>k13:=(h13*52)-(payfactsÆf11Å*1000)@
>l13:=lookup(k13,a23:h23) @
>m13:=k13-l13@
>n13:=lookup(l13,a24:h24)@
>o13:=n13*m13@
>p13:=lookup(n13,a25:h25)+o13@
>r13:=lookup(k13,a28:h28)@
>s13:=k13-r13@
>t13:=lookup(r13,a29:h29)@
>u13:=t13*s13@
>v13:=lookup(t13,a30:h30)+u13@
>w13:=v13*payfactsÆe9Å+(q13*payfactsÆd9Å)@
>a14:"
>b14:=payfactsÆc10Å@
>c14:0
>d14:0
>e14:=w14/52@
>f14:=(payfactsÆg5Å*h14)@
>g14:0
>h14:=b14*((1.5*d14)+c14)@
>i14:=h14-e14-f14-g14@
>k14:=(h14*52)-(payfactsÆf11Å*1000)@
>l14:=lookup(k14,a23:h23) @
>m14:=k14-l14@
>n14:=lookup(l14,a24:h24)@
>o14:=n14*m14@
>p14:=lookup(n14,a25:h25)+o14@
>r14:=lookup(k14,a28:h28)@
>s14:=k14-r14@
>t14:=lookup(r14,a29:h29)@
>u14:=t14*s14@
>v14:=lookup(t14,a30:h30)+u14@
>w14:=v14*payfactsÆe10Å+(q14*payfactsÆd10Å)@
>a15:"
>b15:=payfactsÆc11Å@
>c15:0
>d15:0
>e15:=w15/52@
>f15:=(payfactsÆg5Å*h15)@
>g15:0
>h15:=b15*((1.5*d15)+c15)@
>i15:=h15-e15-f15-g15@
>k15:=(h15*52)-(payfactsÆf11Å*1000)@
>l15:=lookup(k15,a23:h23) @
>m15:=k15-l15@
>n15:=lookup(l15,a24:h24)@
>o15:=n15*m15@
>p15:=lookup(n15,a25:h25)+o15@
>r15:=lookup(k15,a28:h28)@
>s15:=k15-r15@
>t15:=lookup(r15,a29:h29)@
>u15:=t15*s15@
>v15:=lookup(t15,a30:h30)+u15@
>w15:=v15*payfactsÆe11Å+(q15*payfactsÆd11Å)@
>a17:"       Totals
>c17:=sum(c13:c15)@
>d17:=sum(d13:d15)@
>e17:=sum(e13:e15)@
>f17:=sum(f13:f15)@
>g17:=sum(g13:g15)@
>h17:=sum(h13:h15)@
>i17:=sum(i13:i15)@
>a23:0
>b23:1.420000000000E+03
>c23:3.330000000000E+03
>d23:6.800000000000E+03
>e23:1.420000000000E+04
>f23:1.720000000000E+04
>g23:2.250000000000E+04
>h23:9.000000000000E+04
>a24:0
>b24:1.420000000000E+03
>c24:3.330000000000E+03
>d24:6.800000000000E+03
>e24:1.420000000000E+04
>f24:1.720000000000E+04
>g24:2.250000000000E+04
>h24:9.000000000000E+04
>a25:0
>b25:1.500000000040E-01
>c25:1.800000000040E-01
>d25:2.100000000040E-01
>e25:3.000000000040E-01
>f25:3.400000000040E-01
>g25:3.900000000040E-01
>h25:3.910000000035E-01
>a26:0
>b26:0
>c26:2.820000000000E+02
>d26:9.120000000000E+02
>e26:2.666000000000E+03
>f26:3.566000000000E+03
>g26:5.368000000000E+03
>h26:5.369000000000E+03
>a28:0
>b28:2.400000000000E+03
>c28:6.600000000000E+03
>d28:1.090000000000E+04
>e28:1.920000000000E+04
>f28:2.360000000000E+04
>g28:2.890000000000E+04
>h28:9.999900000000E+04
>a29:0
>b29:2.400000000000E+03
>c29:6.600000000000E+03
>d29:1.090000000000E+04
>e29:1.920000000000E+04
>f29:2.360000000000E+04
>g29:2.890000000000E+04
>h29:2.890100000000E+04
>a30:0
>b30:1.500000000040E-01
>c30:1.800000000040E-01
>d30:2.100000000040E-01
>e30:2.800000000040E-01
>f30:3.200000000040E-01
>g30:3.700000000040E-01
>h30:3.710000000035E-01
>a31:0
>b31:0
>c31:6.300000000000E+02
>d31:1.404000000000E+03
>e31:3.273000000000E+03
>f31:4.505000000000E+03
>g31:6.201000000000E+03
>h31:6.202000000000E+03
>a1
ØaPAYFACTS.PC
«eof»