Listing of file='ACPA070C' on disk='vmedia/701-2652C.wvd.zip'
# Sector 376, program filename = 'ACPA070C'
0010 REM ACPA070C, 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 COM N,Q$(2)64,Q6$64,Q7$64,Q3,Q4,Q5,Q6,Q7,Q8,Q9,M$8
0172 COM K$1,K6$(50)4
0174 COM D6(4),G6(4),N6(4)
0176 COM N0$(4)5,N1$(4)21,N2$(4)8,N0(4),N1(4),N2(4),N2(4),N3(4),N5$(4)1
: GOTO 4000
4000 Q=1
: LOAD T"KFAMClos"10,199BEG 4040
4030 % ##,###,###.##-
4040 SELECT @PARTS0$
: $UNPACK(F=HEX(A0016002A008A003))STR(M$(),57)TO K$,L0,M$,I0$
: PRINT HEX(03);TAB(15);"CHECK REGISTER - PRINT"
: DATA LOAD DC OPEN T#3,S$(3)
: L=L0+5
: GOSUB 7100
: J=0
4180 J=MOD(J,50)+1
: IF J=1THEN DATA LOAD DC #3,K6$()
: IF END THEN 4470
: IF STR(K6$(J),1,1)=HEX(FF)THEN 4470
: DATA LOAD DA T#1,(STR(K6$(J),,2))M$()
: K1=VAL(STR(K6$(J),3,2),2)
: IF STR(M$(K1),1,1)=HEX(FF)THEN 4470
: $UNPACK(F=HEX(A005A015A0086004620662066206A001))M$(K1)TO N0$(K1),N1$(K1),
N2$(K1),N0(K1),N1(K1),N2(K1),N3(K1),N5$(K1)
: L=L+1
: GOSUB '90
4280 G6(4)=G6(4)+N1(K1)
: D6(4)=D6(4)+N2(K1)
: N6(4)=N6(4)+N3(K1)
: IF N5$(K1)=" "THEN Q9=0
: ELSE CONVERT N5$(K1)TO Q9
: Q9=Q9+1
: IF Q9=4THEN 4370
: G6(Q9)=G6(Q9)+N1(K1)
: D6(Q9)=D6(Q9)+N2(K1)
: N6(Q9)=N6(Q9)+N3(K1)
4370 M$()=" EXTERNAL (ITEM ON FILE) EXTERNAL (ITE
M NOT ON FILE)VOID CHECK"
: PRINTUSING "##### ##################### ######## ########",N0$(K1),N
1$(K1),N0(K1),N2$(K1);
: PRINTUSING 4030,N1(K1);
: PRINTUSING 4030,N2(K1);
: PRINTUSING 4030,N3(K1);
: PRINT TAB(98);STR(M$(),Q9*27-26,27)
4430 SELECT PRINT 005(80)
: GOTO 4180
4470 L=L+6
: GOSUB '90
: M$()="CHECKS PRINTED TOTAL EXTERNAL CHECKS TOTAL (ITEM
ON FILE) EXTERNAL CHECKS TOTAL (ITEM NOT ON FILE)CHECK REGISTER TOTAL
"
: PRINT
: FOR Q9=1TO 4
: PRINT TAB(7);STR(M$(),Q9*40-39,40);TAB(50);
: PRINTUSING 4030,G6(Q9);
: PRINTUSING 4030,D6(Q9);
: PRINTUSING 4030,N6(Q9)
: PRINT
: NEXT Q9
4580 SELECT PRINT 005(80)
4600 DEFFN'31
: GOSUB '219(S$(1),1,S2," ",0)
: GOSUB '219(S$(3),3,S2," ",0)
: 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
7100 SELECT PRINT <I0$>(132)
: P1=P1+1
: PRINT HEX(0C0A0D0E);TAB(3);N2$
: Q6$="A/P CHECK REGISTER - SORTED BY"
: IF K$="1"THEN Q6$=Q6$&" CHECK NO."
: ELSE Q6$=Q6$&" VENDOR ID"
: PRINT TAB(45);Q6$;TAB(109);Q1$;TAB(121);"PAGE ";P1
: PRINT HEX(0A)
7170 PRINT " VEND VENDOR";TAB(34);"CHECK";TAB(45);"CHECK";TAB(59);"GROSS";TAB
(75);"DISC";TAB(91);"NET"
: PRINT " ID NAME";TAB(37);"NO DATE";TAB(61);"AMT";TAB(76);"AMT";T
AB(91);"AMT";TAB(98);"REMARKS"
: PRINT HEX(0A)
: L=7
: RETURN
9999 DEFFN'29"Q$= ";HEX(22);"ACPA070C";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX
(0D)