DataMuseum.dk

top - download

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

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

TextFile

>a1:Ødc0
>a1:Øwc2
>b1:"ACCOUNTS PAYABLE WORKSHEET
>b1:Øwc17
>c1:Ødc0
>c1:Øwc6
>d1:Øjcr
>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:Øwc4
>i1:Øjcc
>j1:Ødc0
>j1:Øwc3
>j1:Øjcc
>k1:Ødc0
>k1:Øwc3
>k1:Øjcc
>l1:Ødc0
>l1:Øwc7
>l1:Øjcc
>m1:Øwc9
>m1:Øjcc
>n1:Ødc0
>n1:Øwc5
>n1:Øjcc
>o1:Ødc0
>o1:Øwc5
>p1:Ødc0
>p1:Øwc5
>q1:Ødc0
>q1:Øwc4
>r1:Ødc0
>r1:Øwc5
>s1:Ødc0
>s1:Øwc5
>a2:"Co
>b2:"pyright, 1982, Perfect Software, Inc.  
>a3:"==
>b3:"==============================================
>f3:"===
>g3:"===
>a4:" 
>b4:"Today's Date (enter MN:DY:YR)-->
>e4:1.000000000000E+00
>f4:1.000000000000E+00
>g4:8.200000000000E+01
>a5:"==
>b5:"==============================================
>f5:"=========
>b6:"This program automatically reads in the following entry files:
>b7:"   apentry1.pc   apentry2.pc   apentry3.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  PAYABLE  SUMMARY  STATEMENT
>a14:"D
>c14:"Purchase
>e14:" Dat
>f14:"e o
>g14:"f 
>i14:" 
>l14:" Age of
>q14:" 
>a15:"u
>c15:"Order
>d15:"  Amount
>e15:"  P.
>f15:" O.
>g15:" 
>h15:"Days 
>i15:"Date 
>j15:"  D
>k15:"ue
>l15:" Purchase Order
>r15:"Worktable
>a16:"e
>b16:" Name of Vendor
>c16:"Number
>d16:"    Due     
>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:=apentry1Æc4Å@
>d18:=apentry1Æd21Å@
>e18:=apentry1Æe4Å@
>f18:=apentry1Æg4Å@
>g18:=apentry1Æi4Å@
>h18:=apentry1Æc5Å@
>i18:=lookup(s18-1,c28:p28)@
>j18:=s18-lookup(i18,c27:q27)@
>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:=apentry2Æc4Å@
>d19:=apentry2Æd21Å@
>e19:=apentry2Æe4Å@
>f19:=apentry2Æg4Å@
>g19:=apentry2Æi4Å@
>h19:=apentry2Æc5Å@
>i19:=lookup(s19-1,c28:p28)@
>j19:=s19-lookup(i19,c27:q27)@
>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:=apentry3Æc4Å@
>d20:=apentry3Æd21Å@
>e20:=apentry3Æe4Å@
>f20:=apentry3Æg4Å@
>g20:=apentry3Æi4Å@
>h20:=apentry3Æc5Å@
>i20:=lookup(s20-1,c28:p28)@
>j20:=s20-lookup(i20,c27:q27)@
>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.000000000080E-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.120000000000E+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:q27)+f18@
>l31:=lookup(e18,c27:q27) +f18+h18 
>a1
ØaAPENTRY1.PC
«eof»