DataMuseum.dk

top - download

    Length: 5120 (0x1400)
    Types: TextFile
    Names: »ARECMULT.PC«

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

TextFile

>a1:Ødc0
>a1:Øwc2
>b1:"ACCOUNTS RECEIVABLE WORKSHEET
>b1:Øwc17
>c1:Ødc0
>c1:Øwc6
>d1:Øjcr
>e1:"Note: This should be on drive B:
>e1:Ødc0
>e1:Øwc4
>e1:Øjcc
>f1:Ødc0
>f1:Øwc3
>f1:Øjcc
>g1:Ødc0
>g1:Øwc3
>g1:Øjcc
>h1:Ødc0
>h1:Øwc6
>h1:Øjcc
>i1:Ødc0
>i1:Øwc3
>i1:Øjcc
>j1:Ødc0
>j1:Øwc3
>j1:Øjcc
>k1:Ødc0
>k1:Øwc3
>k1:Øjcc
>l1:Ødc0
>l1:Øjcc
>m1:Øwc9
>m1:Øjcc
>n1:Ødc0
>n1:Øwc5
>n1:Øjcc
>o1:Ødc0
>o1:Øwc3
>p1:Ødc0
>p1:Øwc3
>q1:Ødc0
>q1:Øwc3
>r1:Ødc0
>r1:Øwc5
>s1:Ødc0
>s1:Øwc5
>a2:"Co
>b2:"pyright, 1982, Perfect Software, Inc.  
>a3:"==
>b3:"==============================================
>b4:"Today's Date (enter MN:DY:YR)-->
>e4:1.000000000000E+00
>f4:1.000000000000E+00
>g4:8.200000000000E+01
>a5:"==
>b5:"==============================================
>b6:"This program automatically reads in the following entry files:
>b7:"   arentry1.pc
>c7:"arentry2.pc   arentry3.pc
>b8:"Switch to these files to enter the appropriate data.  We recommend
>b9:"using manual recalculation mode for this file.  Also, you will need
>b10:"to press the recalculation key "!" twice because of forward references.
>a11:"==========================================================================
>c12:"     ACCOUNTS  RECEIVABLE  SUMMARY  STATEMENT
>a13:"L
>a14:"a
>e14:" Dat
>f14:"e of
>g14:"f 
>i14:" 
>l14:" Age of
>q14:" 
>a15:"t
>c15:"Invoice
>d15:"e        
>e15:" Invoice
>f15:"oice
>g15:"e   
>h15:"Days 
>i15:"Date 
>j15:"e Du
>k15:"ue
>l15:" Invoice
>r15:"Worktable
>a16:"e
>b16:" Name of Account
>c16:"Number
>d16:" Amount
>e16:" MN:
>f16:"DY:
>g16:"YR
>h16:"Net 
>i16:"MN:
>j16:"DY:
>k16:"YR
>l16:" (Days)
>r16:"Columns
>a17:"--
>b17:" ---------------
>c17:"------
>d17:" --------
>e17:" ---
>f17:"---
>g17:"---
>h17:"----- 
>i17:"--
>j17:"--
>k17:"--
>l17:" ------
>a18:=if(if(g4=g18,c30-r18,365-r18+c30)>h18,1,0)@
>c18:=arentry1Æc4Å@
>d18:=arentry1Æd21Å@
>e18:=arentry1Æe4Å@
>f18:=arentry1Æg4Å@
>g18:=arentry1Æi4Å@
>h18:=arentry1Æc5Å@
>i18:=lookup(s18-1,c28:p28)@
>j18:=s18-lookup(i18,c27:p27)@
>k18:=if(e18+(int((h18+f18)/30))>=13,g18+1,g18)@
>l18:=if(g4=g18,c30-r18,365-r18+c30)@
>r18:=lookup(e18,c27:p27)+f18@
>s18:=if((h18+r18)<=365,h18+r18,h18+r18-365)@
>a19:=if(if(g4=g19,c30-r19,365-r19+c30)>h19,1,0)@
>c19:=arentry2Æc4Å@
>d19:=arentry2Æd21Å@
>e19:=arentry2Æe4Å@
>f19:=arentry2Æg4Å@
>g19:=arentry2Æi4Å@
>h19:=arentry2Æc5Å@
>i19:=lookup(s19-1,c28:p28)@
>j19:=s19-lookup(i19,c27:p27)@
>k19:=if(e19+(int((h19+f19)/30))>=13,g19+1,g19)@
>l19:=if(g4=g19,c30-r19,365-r19+c30)@
>r19:=lookup(e19,c27:p27)+f19@
>s19:=if((h19+r19)<=365,h19+r19,h19+r19-365)@
>a20:=if(if(g4=g20,c30-r20,365-r20+c30)>h20,1,0)@
>c20:=arentry3Æc4Å@
>d20:=arentry3Æd21Å@
>e20:=arentry3Æe4Å@
>f20:=arentry3Æg4Å@
>g20:=arentry3Æi4Å@
>h20:=arentry3Æc5Å@
>i20:=lookup(s20-1,c28:p28)@
>j20:=s20-lookup(i20,c27:p27)@
>k20:=if(e20+(int((h20+f20)/30))>=13,g20+1,g20)@
>l20:=if(g4=g20,c30-r20,365-r20+c30)@
>r20:=lookup(e20,c27:p27)+f20@
>s20:=if((h20+r20)<=365,h20+r20,h20+r20-365)@
>b22:"   Totals
>d22:=sum(d18:d20)@
>b24:0
>c24:0
>d24:1.000000000000E+00
>e24:2.000000000000E+00
>f24:3.000000000000E+00
>g24:4.000000000000E+00
>h24:5.000000000000E+00
>i24:6.000000000000E+00
>j24:7.000000000000E+00
>k24:8.000000000000E+00
>l24:9.000000000000E+00
>m24:1.000000000000E+01
>n24:1.100000000000E+01
>o24:1.200000000000E+01
>p24:1.300000000000E+01
>b25:0
>c25:0
>d25:3.100000000000E+01
>e25:2.800000000000E+01
>f25:3.100000000000E+01
>g25:3.000000000000E+01
>h25:3.100000000000E+01
>i25:3.000000000000E+01
>j25:3.100000000000E+01
>k25:3.100000000000E+01
>l25:3.000000000000E+01
>m25:3.100000000000E+01
>n25:3.000000000000E+01
>o25:3.100000000000E+01
>p25:3.100000000000E+01
>c27:1.000000000070E-01
>d27:1.000000000000E+00
>e27:2.000000000000E+00
>f27:3.000000000000E+00
>g27:4.000000000000E+00
>h27:5.000000000000E+00
>i27:6.000000000000E+00
>j27:7.000000000000E+00
>k27:8.000000000000E+00
>l27:9.000000000000E+00
>m27:1.000000000000E+01
>n27:1.100000000000E+01
>o27:1.200000000000E+01
>p27:1.300000000000E+01
>b28:0
>c28:0
>d28:0
>e28:3.100000000000E+01
>f28:5.900000000000E+01
>g28:9.000000000000E+01
>h28:1.200000000000E+02
>i28:1.510000000000E+02
>j28:1.810000000000E+02
>k28:2.220000000000E+02
>l28:2.430000000000E+02
>m28:2.730000000000E+02
>n28:3.040000000000E+02
>o28:3.340000000000E+02
>p28:3.650000000000E+02
>r28:" 
>b29:0
>c29:0
>d29:1.000000000000E+00
>e29:2.000000000000E+00
>f29:3.000000000000E+00
>g29:4.000000000000E+00
>h29:5.000000000000E+00
>i29:6.000000000000E+00
>j29:7.000000000000E+00
>k29:8.000000000000E+00
>l29:9.000000000000E+00
>m29:1.000000000000E+01
>n29:1.100000000000E+01
>o29:1.200000000000E+01
>p29:1.300000000000E+01
>b30:"  Day Number
>c30:=lookup(e4,c27:p27)+f4@
>b31:"Invoice Day
>c31:=lookup(e18,c27:p27)+f18@
>a1
ØaARENTRY1.PC
«eof»