Listing of file='ACCT040B' on disk='vmedia/701-2607C.wvd.zip'
# Sector 188, program filename = 'ACCT040B'
0010 REM ACCT040B, RELEASE 2.1, (04/09/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM E8(4),C9$Q0,E8$1
: GOTO 4000
4000 SELECT @PARTS0$
: DATA 2000,1.5,1.333,1000,1.5,1,800,1.5,1,750,1.5,1,500,1.5,1,500,1.5,.75,
500,.8333,.5
: DATA 400,1.5,1,300,.8333,.5833,0,1.5,1.5,0,1.25,1.25,0,1,1,0,.8333,.8333,
0,.75,.75,0,.6667,.6667,0,.5833,.5833,0,.5,.5
: E8$="0"
: C9$=HEX(00)
4060 D5=INT(365.25*(INT(D9/1E3)-1))+MOD(D9,1E3)
: GOSUB '235(1,0)
: K9=Q
: GOSUB '91
: Q7$="Program will be terminated."
: Q6$="A/R open item file"
: IF J0>0THEN 5630
: PRINT AT(5,0);"Processing customer ID ";HEX(06)
4150 GOSUB '51(4,K9)
: Q6$=" "
: HEXUNPACKSTR(T7$,Q0+1,4)TO Q6$
: Q7$="File error - Cust ID "&STR(T7$,,Q0)&" - invoice no. "&Q6$
: Q6$="A/R open item file"
: IF STR(T7$,,Q0+7)<>STR(O$(K9),,Q0+7)THEN 5630
: C$=C1$(K9)
: H9=C(K9)
: CONVERT F$(K9)TO F9
: IF C9$=HEX(00)THEN 4670
4260 IF STR(C$,,Q0)=C9$THEN IF C9=H9THEN 4800
: IF E9>0THEN E8(E8+1)=E8(E8+1)+E9+E7
: ELSE E6=E6+E9+E7
: E7,E9=0
: E8$="0"
: C9=H9
: IF STR(C$,,Q0)=C9$THEN 4800
: S9=E8(2)+E8(3)+E8(4)+E6
: IF S9<=0THEN 4620
: IF I9<=0THEN 4620
: IF G9<1OR G9>17THEN 4620
: IF B6$="N"THEN 4620
: RESTORE G9*3-2
: READ L9,S5,S6
: S8=S5*S9
: IF S9>L9THEN S8=S5*L9+S6*(S9-L9)
4440 S8=ROUND((S8/100,2)
: H3$=C9$
: J5=99999999
: C1=D9
: C2=S8
: G4$="8"
: C,C3,C4,C5=0
: E4$,G5$="00"
: E5$=" "
: GOSUB '45(2)
: S7=S7+S8
: $PACK(F=L1$)N1$(G0)FROMC9$,A1$,S5,S6,L9,S9,S8,B+S8
: G0=G0+1
: IF G0<6THEN 4620
: GOSUB '48(7)
: N1$()=ALL(FF)
: G0=1
4620 C9$=C$
: C9=H9
: E6,E7,E9,E8(1),E8(2),E8(3),E8(4)=0
: E8$="0"
: IF J0=1THEN 5700
4670 I8,I9,S9=0
: PRINT AT(5,23,Q0);C$
4700 IF J0=7THEN GOSUB '92
: GOSUB '232(2,0,C$)
: GOSUB '91
: IF J0=7THEN 4700
: Q7$="File error - customer ID "&STR(T7$,,Q0)
: Q6$="Customer master file"
: IF J0>0OR T7$<>C$THEN 5630
: GOSUB '50(6," ")
: CONVERT G$TO G9
4800 ON F9+1GOTO ,5240,,5240,5240
: IF F9>5THEN 5310
: IF H9=0AND F9=2THEN 5020
: IF H9=0AND F9=0THEN 5070
: I8=A(K9)-A1(K9)-A2(K9)
: I9=I9+I8
: A9=A9+I8
4880 IF P3$="1"THEN 5360
: D4=INT(365.25*(INT(D1(K9)/1E3)-1))+MOD(D1(K9),1E3)
: CONVERT MAX(MIN(INT((D5-D4-1)/30),3),0)TO A9$,(#)
: A$(K9)=A9$
: IF F9<>2THEN E8$="1"
: IF F9<>2OR H9=0OR E8$<>"1"THEN CONVERT A9$TO E8
: IF C$(K9)="D"THEN 5380
: IF G9<1THEN 5380
: IF B6$="N"THEN 5380
: IF H9=0THEN E8(E8+1)=E8(E8+1)+I8
: ELSE E9=E9+I8
: GOTO 5380
5020 I8=A(K9)-A1(K9)-A2(K9)
: I9=I9+I8
: A9=A9+I8
: GOTO 4880
5070 I8,I9=A(K9)+A1(K9)+A2(K9)+C1(K9)
: A9=A9+I8
: IF C1(K9)<0THEN 5150
: A2(K9)=A2(K9)+A1(K9)
: A1(K9)=A(K9)
: A(K9)=C1(K9)
: C1(K9)=0
5150 A$(K9)="0"
: IF I9<=0THEN 5380
: IF B6$="N"THEN 5380
: E8(2)=A(K9)
: E8(3)=A1(K9)
: E8(4)=A2(K9)
: GOTO 5380
5240 I8=-A(K9)-A1(K9)-A2(K9)
: A9=A9+I8
: I9=I9+I8
: IF H9>0THEN E7=E7+I8
: ELSE E6=E6+I8
: GOTO 5360
5310 A2(K9)=A2(K9)+A1(K9)
: A1(K9)=A(K9)
: A(K9)=C1(K9)
: C1(K9)=0
: A9=A9+C1(K9)+A(K9)+A1(K9)+A2(K9)
5360 A$(K9)="0"
5380 H3$=C$
: J5=C(K9)
: G4$=F$(K9)
: G5$=H$(K9)
: C=D(K9)
: C3=A(K9)
: C4=A1(K9)
: C5=A2(K9)
: C1=D1(K9)
: C2=C1(K9)
: E4$=A$(K9)
: E5$=C$(K9)
: GOSUB '45(2)
: GOSUB '237(1,0)
: K9=Q
: C9$=C$
: C$=HEX(FF)
: J$(1)=" "
: GOSUB '91
: IF J0=1THEN 4260
: Q7$="Program will be terminated."
: Q6$="A/R open item file"
5610 IF J0=0THEN 4150
5630 PRINT AT(1,0,80);Q7$
: PRINT AT(3,17,63);"- ";Q6$
: GOSUB '254
: DBACKSPACE #2,BEG
: GOTO 5920
5700 $GIO/005(02200300122140074007400740074007,Q6$)
: H3$=HEX(FF)
: GOSUB '45(2)
: $PACK(F=L1$)N1$(G0)FROM" ","TOTAL",0,0,0,A9,S7,A9+S7
: GOSUB '48(7)
: $OPEN #1
: GOSUB '46(1,0,1)
: M3$=" "
: IF A6$="Y"THEN M3$="1"
: GOSUB '46(1,0,0)
: $CLOSE#1
: Q6$="INTERIM"
: IF A6$="Y"THEN Q6$="EOM"
: PRINT HEX(03);Q6$;" AGING CONTROL REPORT"
5860 PRINT AT(4,0,0)
: PRINTUSING 5950,"BEGINNING A/R BALANCE",A9
: PRINTUSING 5950,"CURRENT SERVICE CHARGES",S7
: PRINTUSING 5950,"ENDING A/R BALANCE",A9+S7
: GOSUB '254
5920 DEFFN'31
: GOSUB '218(S$(2),2," ",0)
: LOAD TM$
5950 %####################### $###,###,###.##-
9998 DEFFN'29"Q$=";HEX(22);"ACCT040B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)
9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22);
"GBS/MVP - Age, calculate service charges, build seq. file.";HEX(22);":SE
LECT#15<I0$>:$OPEN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIS
T Z$':$CLOSE#15:SELECTLIST005(80)";HEX(0D)