Listing of file='ACPA060A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 5, program filename = 'ACPA060A'
0010 REM ACPA060A, RELEASE 2.3, (12/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM D8$8,A8$11,A9$11
: GOTO 4000
4000 SELECT @PARTS0$
: A8$="#######.##-"
: A9$="###,###.##-"
: GOSUB '93("MOUNT CHECK VERTICAL FORMAT TAPE AND CHECKS")
: IF I0$=" "THEN LOAD TM$
4320 GOSUB '66(6,0,1)
: GOSUB '100("1","99999999",8,0,"ENTER STARTING CHECK NO",1)
: IF Q6$=HEX(1F)THEN GOSUB '31
: A7,A8=Q9
: N0$=" "
: GOSUB 7670
: N0$=HEX(00)
: PRINT AT(4,0,80);"Processing Vendor ID.";HEX(06)
4440 IF N0$=HEX(00)THEN GOSUB '235(2,0)
: ELSE GOSUB '237(2,0)
: IF Q$="E"THEN 4600
: IF N0$=HEX(00)THEN N0$=" "
: Q6$="A/P OPEN ITEM FILE"
: IF Q$<>" "THEN 5670
: A6=Q
: GOSUB '71(4,A6)
: IF C5$(A6)<>"1"THEN 4440
: GOSUB '123(B3(A6))
: IF Q6$<>"E"THEN D8$=U9$
: ELSE D8$="NO DATE"
: IF C3$(A6)<>"E"AND C3$(A6)<>" "THEN B(A6)=-B(A6)
: IF N0$=C0$(A6)THEN 4830
4600 IF A9<=0AND K1<>0THEN GOSUB 7500
: IF A9<=0THEN 4700
: GOSUB 7270
: N$=" "
: N3$=Q1$
: N1=B8
: N2=B7
: N3=A9
: GOSUB 7040
: GOSUB '64(5)
4700 IF Q$="E"THEN 5210
: A9,B7,B8,B9,K1,K7=0
: N0$=C0$(A6)
: PRINT AT(4,23,5);N0$
4750 IF J0=7THEN J$(7)=" "
: GOSUB '232(1,0,N0$)
: Q6$="VENDOR MASTER FILE"
: IF Q$<>" "AND Q$<>"B"THEN 5670
: GOSUB '91
: IF J0=7THEN 4750
: GOSUB '70(2)
: N1$=A1$
4830 IF C3$(A6)="X"OR C3$(A6)="E"THEN 5100
: IF B4$="1"THEN 4440
4870 IF K7>=12THEN GOSUB 7500
: SELECT PRINT <I0$>(90)
: Q8=POS(" CPX"=C3$(A6))
: Q8=MAX(MIN(Q8,3),1)
: Q6$="INVOICE CREDIT MEMO MANUAL PAYMNT"
: IF B1(A6)<>0THEN Q9=B1(A6)
: ELSE Q9=B(A6)
: IF B1(A6)<>0THEN PRINT "PART PAY";
: PRINT TAB(10);C1$(A6);TAB(21);D8$;TAB(30);STR(Q6$,Q8*13-12,13);TAB(45);
: IF Q9>=1E6THEN Q6$=A8$
: ELSE Q6$=A9$
: PRINTUSING Q6$,Q9;
4985 PRINT TAB(58);
: PRINTUSING A9$,ROUND((B0(A6)*Q9/100,2);
: PRINT TAB(71);
: PRINTUSING Q6$,Q9-ROUND((B0(A6)*Q9/100,2)
: A9=A9+Q9-ROUND((Q9*B0(A6)/100,2)
: B7=B7+ROUND((Q9*B0(A6)/100,2)
: B9=B9+Q9-ROUND((Q9*B0(A6)/100,2)
: B8=B8+Q9
: K1=K1+1
: K7=K7+1
: SELECT PRINT 005(80)
: GOTO 4440
5100 IF C3$(A6)="E"THEN N$="2"
: ELSE N$="1"
: N1=B(A6)
: N2=ROUND((B(A6)*B0(A6)/100,2)
: N0=B2(A6)
: N3=N1-N2
: N3$=D8$
: GOSUB '64(5)
: IF C3$(A6)="E"OR B4$="1"OR B4(A6)>M(3)THEN 4440
: GOTO 4870
5210 N0=99999999
: N0$=HEX(FF)
: GOSUB '64(5)
: IF O<>0THEN DSKIP #5,1S
: $OPEN #6
: GOSUB '66(6,0,1)
: M(1)=Q1
: F5$(2)="2"
: GOSUB '66(6,0,0)
: GOSUB '66(6,Q1,1)
: M(1)=A7-A8
: IF M(1)<>0THEN Q9=A7-1
: ELSE Q9=0
: M(2)=Q9
: GOSUB '66(6,Q1,0)
: $CLOSE#6
: GOSUB '218(S$(5),5," ",0)
: PRINT AT(4,0,80)
5390 GOSUB '100("Y,N","YyNn",1,1,"DO YOU WANT A REPRINT (Y OR N)",2)
: IF Q6$="N"THEN 5500
: DBACKSPACE #5,BEG
: O,B7,B8,B9,K1,A9=0
: GOTO 4320
5500 DEFFN'31
: PRINT AT(1,0,240);"MOUNT STANDARD VERTICAL FORMAT TAPE/PAPER"
: GOSUB '254
: SELECT PRINT <I0$>(90)
: PRINT HEX(0C)
: PRINT HEX(0E);"PRINTED CHECKS TOTAL"
: PRINT HEX(0A)
: PRINT TAB(34);
: PRINTUSING "$###,###,###.##",B6
: LOAD TM$
5670 GOSUB '91
: PRINT AT(1,0,80);"PROGRAM WILL BE TERMINATED";AT(3,16);"- ";Q6$
: GOSUB '254
: GOTO 5500
7040 SELECT PRINT <I0$>(90)
: PRINT HEX(0B)
: PRINT TAB(1);Q1$;TAB(65);
: Q9=MAX(INT(LOG(A9)/LOG(10)),0)
: Q6$="$"
: STR(Q6$,2)=ALL("*")
: STR(Q6$,12-Q9)=ALL("#")
: STR(Q6$,13)=".##"
: IF Q9>2THEN Q7$=STR(Q6$,,9)&","&STR(Q6$,10)
: ELSE Q7$=Q6$
: IF Q9>5THEN Q6$=STR(Q7$,,6)&","&STR(Q7$,7)
: ELSE Q6$=Q7$
: PRINTUSING Q6$,A9
: B6=B6+A9
: PRINT HEX(0B)
: PRINT TAB(16);A1$
: IF A2$<>" "THEN PRINT TAB(16);A2$
7200 IF A3$<>" "THEN PRINT TAB(16);A3$
: PRINT TAB(16);A4$;" ";A5$
: PRINT HEX(0C)
: SELECT PRINT 005(80)
: RETURN
7270 SELECT PRINT <I0$>(90)
: IF K7>9THEN 7300
: PRINT HEX(0B)
7300 PRINT HEX(0B)
: PRINTUSING "##################### #####",A1$,N0$;
: IF K7<12THEN 7350
: PRINT TAB(31);A7;TAB(49);"CONTINUED ON NEXT PAGE"
: GOTO 7420
7350 PRINT TAB(31);A7;TAB(45);
: IF B8>=1E6THEN Q6$=A8$
: ELSE Q6$=A9$
: PRINTUSING Q6$,B8;
: IF B7>=1E6THEN Q6$=A8$
: ELSE Q6$=A9$
: PRINT TAB(58);
: PRINTUSING Q6$,B7;
: IF B9>=1E6THEN Q6$=A8$
: ELSE Q6$=A9$
: PRINT TAB(71);
: PRINTUSING Q6$,B9
7420 PRINTUSING " #####",K1
: K7=0
: N0=A7
: A7=A7+1
: SELECT PRINT 005(80)
: RETURN
7500 GOSUB 7270
: SELECT PRINT <I0$>(90)
: PRINT HEX(0B);
: PRINT TAB(1);"********";TAB(71);"********"
: PRINT HEX(0B);
: FOR I=1TO 2
: PRINT HEX(0E);TAB(8);"VOID"
: PRINT
: NEXT I
: PRINT HEX(0C)
: SELECT PRINT 005(80)
: N3$=Q1$
: N1,N2,N3=0
: N$="3"
: GOSUB '64(5)
: RETURN
7670 GOSUB '100("Y,N","YyY Nn",1,1,"DO YOU WANT TO PRINT A MASK (Y OR N)",2)
: IF Q6$="N"THEN RETURN
7730 SELECT PRINT <I0$>(90)
: FOR I=1TO 12
: PRINT "******** ******** MM/DD/YY";TAB(45);"XXX,XXX.XX XXX,XXX.XX
XXX,XXX.XX"
: NEXT I
: PRINT
: PRINT "VENDOR NAME";TAB(23);"XXXXX";TAB(33);"XXXXXXXX";TAB(45);"XXX,XXX.X
X XXX,XXX.XX XXX,XXX.XX"
: PRINT " XXXXX"
: PRINT HEX(0B);TAB(1);"MM/DD/YY";TAB(71);"XXX,XXX.XX"
7810 PRINT HEX(0B);TAB(16);"VENDOR NAME"
: PRINT TAB(16);"ADDRESS LINE1"
: PRINT TAB(16);"ADDRESS LINE2"
: PRINT TAB(16);"CITY STATE ZIP"
: PRINT HEX(0C)
: N0=A7
: A7=A7+1
: N3$=Q1$
: N1,N2,N3=0
: N1$="** CHECK MASK **"
: N$="3"
: GOSUB '64(5)
: GOSUB '100("Y,N","YyY Nn",1,1,"DO YOU WANT ANOTHER MASK (Y OR N)",2)
: IF Q9=1THEN GOTO 7730
: RETURN
9999 DEFFN'29"Q$= ";HEX(22);"ACPA060A";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX
(0D)