Listing of file='ACPA110D' on disk='vmedia/701-2652C.wvd.zip'
# Sector 400, program filename = 'ACPA110D'
0010 REM ACPA110D, RELEASE 1-0, (01/31/79) THIS PROGRAM IS A COPYRIGHT PRODU
CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT
ED
0170 DIM K0$8,K$1,K3$45,K4$5,Q5
: GOTO 4000
4000 SELECT @PARTS0$
4030 %##,###,###.##-
4036 K$=K1$
: PRINT HEX(03);TAB(24);"DISTRIBUTION REPORT"
: GOSUB '66(9,0,1)
: L=60
: GOSUB '90
: SELECT PRINT 005(80)
4570 J=MOD(J,50)+1
: IF J=1THEN DATA LOAD DC #4,K6$()
: IF END THEN K6$()=ALL(FF)
: SELECT PRINT 005(80)
: H0$=HEX(FF)
: H1$="AP"
: IF STR(K6$(J),1,1)=HEX(FF)THEN 4720
: Q7$="Error in Journal Entries File"
: DATA LOAD DA T#1,(STR(K6$(J),,2))M$()
: ERRORGOTO 5150
4690 I=VAL(STR(K6$(J),4))
: IF STR(M$(I),,1)<>HEX(FF)THEN $UNPACK(F=L3$)M$(I)TO H2,H0$,H1$,H,H3$,H4$,
H5$,H1
: ERRORGOTO 5150
4720 IF K0$=" "THEN GOSUB 7230
: IF H1$<>"AP"THEN 4570
: IF K$="S"THEN 4850
: IF K4$=H4$AND K0$=H0$THEN 4850
: GOSUB '90
: PRINT TAB(82);"VENDOR TOTAL";TAB(97);
: PRINTUSING 4030,K0;
: PRINT "*"
: PRINT HEX(0A)
: K0=0
: L=L+2
4850 IF K0$=H0$THEN 4970
: GOSUB '90
: IF K$="S"THEN PRINT K3$;TAB(43);
: ELSE PRINT TAB(81);"ACCOUNT TOTAL";TAB(97);
: PRINTUSING 4030,K4;
: IF K$="D"THEN PRINT "**"
: ELSE PRINT
: L=L+2
: IF K$="S"THEN L=L-1
: ELSE PRINT HEX(0A)
: K4=0
: IF H0$=HEX(FF)THEN GOSUB '31
: GOSUB 7230
4970 IF K$="S"THEN 5080
: GOSUB '90
: GOSUB '123(H)
: IF Q6$="E"THEN U9$="INVALID"
: PRINT K3$;TAB(41);H4$;TAB(51);H3$;TAB(75);H5$;TAB(86);U9$;TAB(97);
: K3$=" "
: PRINTUSING 4030,H1;
: PRINT TAB(120);
: PRINTUSING "#####";H2
: L=L+1
5080 K0=K0+H1
: K4=K4+H1
: IF H1<0THEN K5=K5+H1
: ELSE K6=K6+H1
: K4$=H4$
: GOTO 4570
5150 GOSUB '91
: PRINT AT(1,0,80);Q7$;HEX(07)
: PRINT AT(3,16,64);Q6$
: GOSUB '254
5200 DEFFN'31
: IF H0$<>HEX(FF)THEN 5315
: SELECT PRINT <I0$>(132)
: PRINT HEX(0A)
: IF K$="D"THEN Q9=54
: ELSE Q9=0
: PRINT TAB(14+Q9);"TOTAL CREDITS DISTRIBUTED";TAB(43+Q9);
: PRINTUSING 4030,K5
: PRINT TAB(15+Q9);"TOTAL DEBITS DISTRIBUTED";TAB(43+Q9);
: PRINTUSING 4030,K6
: PRINT HEX(0C)
: $OPEN #9
: GOSUB '66(9,0,1)
: F5$(3)="1"
: GOSUB '66(9,0,0)
: $CLOSE#9
5315 GOSUB '219(S$(4),4,S2," ",0)
: GOSUB '219(S$(1),1,S2," ",0)
: GOSUB '219(S$(9),9,S2," ",0)
: GOSUB '239(1)
: COM CLEAR I
: LOAD TM$
7040 DEFFN'90
: SELECT PRINT <I0$>(132)
: Q6$=" "
: KEYIN Q6$,7080,7080
7080 IF Q6$="P"THEN GOSUB '254
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF L<L0THEN RETURN
: P1=P1+1
: PRINT HEX(0C0A0D0E);TAB(3);N2$
: PRINT TAB(48);"A/P DISTRIBUTION REPORT - ";K1$;TAB(109);D9$;TAB(121);"PAG
E ";P1
: PRINT HEX(0A)
: PRINT "ACCOUNT";
: IF K$="D"THEN PRINT TAB(42);"VENDOR";TAB(76);"INVOICE";TAB(87);"INVOICE";
TAB(120);"TRANS"
: ELSE PRINT
: PRINT TAB(5);"NO.";TAB(10);"NAME";
7170 IF K$="D"THEN PRINT TAB(45);"NO";TAB(51);"NAME";TAB(79);"NO";TAB(89);"DAT
E";TAB(101);"AMOUNT";TAB(123);"NO"
: ELSE PRINT TAB(50);"AMOUNT"
: PRINT HEX(0A)
: L=7
: RETURN
7230 GOSUB '232(1,0,H0$)
: O5$="Not in chart of accounts file"
: IF Q$=" "THEN GOSUB '75(8)
: IF Q$="B"THEN O5$="Chart of accounts record busy"
: K3$=H0$&" "&O5$
: K0$=H0$
: K4$=H4$
: RETURN
9999 DEFFN'29"Q$=";HEX(22);"ACPA110D";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)