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)