Listing of file='ACPA020A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 205, program filename = 'ACPA020A' 0010 REM ACPA020A, RELEASE 2.3, (12/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM B6(4),B6$(6),D9$15,C6$Q4,C7$Q6 : GOTO 4000 4000 SELECT @PARTS0$ : PRINT HEX(03);TAB(19);"A/P OPEN ITEM MAINTENANCE" : B6=24 : C6=08 : G0=1 : D8=VAL(Q0$(6)) : I9=7 : LIMITS T#3,S$(3),Q6,Q7,Q8 : Q9=(Q8-2)/(Q7-Q6-1) : IF Q9>.8THEN PRINT AT(3,0);"Maintenance audit file is more than";INT(Q9*1 00);"% full." : IF Q9<.95THEN 4140 : GOSUB '254 : GOSUB '31 4140 GOSUB '238(2) : GOSUB '100(" ",HEX(7F),Q0,0,"ENTER VENDOR ID. (OR END)",2) : IF Q6$=HEX(1F)OR Q6$="END"OR Q6$="end"THEN GOSUB '31 : IF Q6$=" "THEN 4140 : GOSUB '96(4) : C6$=Q6$ : PRINT AT(4,0,);TAB(5);"VENDOR ID - ";C6$ : GOSUB '232(2,0,C6$) : GOSUB '91 : IF J0=0OR J0=7THEN 4203 : PRINT AT(3,0,80);HEX(07);"Illegal vendor ID, re-enter" : GOTO 4140 4203 GOSUB '100(" ",HEX(7F),8,0,"ENTER INVOICE NUMBER (OR END)",2) : IF Q6$=HEX(1F)OR Q6$="END"OR Q6$="end"THEN GOSUB '31 : IF Q6$=" "THEN 4203 : GOSUB '96(6) : C7$=Q6$ : C9$=STR(C6$,,VAL(Q0$(4)))&C7$ : GOSUB '232(1,0,C9$) : GOSUB '237(1,1) : J$(1)=" " : GOSUB '91 : IF J0=1THEN T7$=ALL(FF) : IF J0=7THEN 4140 : IF J0<2THEN 4350 4320 PRINT AT(1,0,80);"PROGRAM WILL BE TERMINATED" : PRINT AT(3,16,64);Q7$ : GOTO 4830 4350 IF STR(T7$,1,Q0+D8)=STR(C9$,1,Q0+D8)THEN 4480 : PRINT AT(3,0,80);HEX(07);"Record not found" : GOTO 4140 4480 GOSUB '71(2,Q) : C7$=C1$(Q) : GOSUB '37 : GOSUB '33 : DBACKSPACE #2,1S : GOSUB '61(2,Q) : GOSUB '238(1) : GOSUB '237(1,1) : J$(1)=" " : GOSUB '91 : IF J0=1OR J0=7THEN 4140 : IF J0<>0THEN 4320 : IF STR(T7$,1,Q0)<>STR(C9$,1,Q0)THEN 4140 : C9$=T7$ : GOSUB '100("Y,N","YyY Nn",1,1,"NEXT INVOICE FOR THIS VENDOR? (Y OR N)",2 ) : IF Q6$="N"THEN 4140 : GOTO 4480 4750 G0$(G0)="@"&C9$ : G1$(G0)="C" : G0=G0+1 : IF G0<4THEN RETURN : GOSUB '49(3) : G0=1 : G0$()=ALL(FF) : IF Q9<.95THEN RETURN 4830 GOSUB '254 4850 DEFFN'31 : IF G0>1THEN GOSUB '49(3) : LOAD TM$ 6060 DEFFN'37 : Q9=POS(" CEPX"=C3$(Q)) : IF Q9>5OR Q9<1THEN Q9=1 : Q6$="INVOICE CR MEMO E-PAYMENTP-PAYMENTX-PAYMENT" : Q7$=STR(Q6$,Q9*9-8,9) : PRINT AT(4,25);"INVOICE NUMBER - ";C7$ : PRINT AT(4,50,30);"***";Q7$;"***" : PRINT AT(5,0,) : G7=0 : FOR I=1TO I9 : GOSUB '35 : NEXT I : RETURN 6150 DEFFN'33 : CONVERT I9TO Q7$,(##) : PRINT AT(1,0,80);"ENTER ITEM NO.(0=END, -1=VOID)"; : GOSUB '100("-1",Q7$,2,0," ",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : I,J9=Q9 : IF I=-1THEN 6290 : IF I=0THEN RETURN : IF C3$(Q)=" "AND I=7THEN 6271 : IF C3$(Q)="C"THEN ON IGOTO ,6271,6271,6271,,6271,6271 : IF C3$(Q)="E"OR C3$(Q)="X"OR C3$(Q)="P"THEN ON IGOTO ,6271,6271,,,,6271 : Q7$=" " 6240 G7=G7+1 : GOSUB '35 : GOSUB 4750 : GOTO 6150 6271 PRINT AT(3,0,80);"Illegal field selection, re-enter.";HEX(07) : INIT(20)Q$() : GOTO 6150 6290 RETURN CLEAR 6300 IF G7=0THEN 4140 : CONVERT MIN(G7,99)TO Q6$,(##) : G2$(G0)=Q6$&" previous edits for" : G3$(G0)="this open item are void." : G5$(G0)=" " : GOSUB 4750 : GOTO 4140 6450 DEFFN'34(Q6$,Q9,G5$(G0),Q7$,Q$(1),Q$(2),Q3,Q4,Q5) : IF G7>0THEN PRINT AT(1,0,80);"ENTER ";G5$(G0);Q7$ : IF Q5<2THEN GOSUB 6650 : G2$(G0)=Q6$ : IF Q6$>" "AND Q5=2THEN Q5=3 : IF Q9<>0AND Q5=1THEN Q5=0 : IF G7>0THEN GOSUB '100(Q$(1),Q$(2),Q3,Q4," ",Q5) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q5<2THEN GOSUB 6650 : G3$(G0)=Q6$ : Q8=50 : PRINT AT(I+5,0,Q8); : PRINTUSING "##) ";I; 6560 B8=Q8-B6-2 : IF Q5<2THEN B8=B8+C6-Q3 : PRINT G5$(G0);TAB(B8);Q6$ : RETURN 6650 Q6$=ALL("#") : Q7$=STR(Q6$,,Q3) : IF Q4>0THEN Q7$=Q7$&"."&STR(Q6$,,Q4) : Q7$=Q7$&"-" : Q6$=ALL(00) : PRINTUSING TO Q6$,Q7$,Q9 : Q6$=STR(Q6$,3,LEN(Q7$)) : RETURN 6730 DEFFN'35 : Q$=" " : ON IGOSUB 6800,6830,6860,6890,6920,6945,6980 : IF Q$>" "THEN 6730 : RETURN 6800 GOSUB '34(C4$(Q),0,"P. O. NUMBER"," "," ",HEX(7F),D8,0,2) : C4$(Q)=Q6$ : RETURN 6830 GOSUB '34(" ",B0(Q),"DISCOUNT %"," ","0","100.00",2,8,1) : B0(Q)=Q9 : RETURN 6860 GOSUB '34(" ",B1(Q),"PARTIAL PAYMENT"," ","0","9999999.99",7,2,1) : IF Q9<B(Q)THEN 6870 : PRINT AT(3,0,80);HEX(07);"Partial payment amount must be less than gross amount, re-enter." : GOTO 6860 6870 B1(Q)=Q9 : RETURN 6890 GOSUB '34(" ",B2(Q),"CHECK NUMBER"," ","0","99999999",8,0,1) : B2(Q)=Q9 : RETURN 6920 Q7$=" MM/DD/YY" : IF C3$(Q)=" "THEN Q7$=Q7$&" (OR "&HEX(22)&"HOLD"&HEX(2229) : IF B4(Q)=99999THEN U9$="HOLD" : ELSE GOSUB '123(B4(Q)) : GOSUB '34(U9$,0,"DUE DATE"," "," ",HEX(7F),8,0,2) : IF Q6$="HOLD"AND C3$(Q)<>" "THEN 6939 : IF Q6$="HOLD"THEN U9=99999 : ELSE GOSUB 6959 : B4(Q)=U9 : U9=0 : RETURN 6939 PRINT AT(3,0,80);"Holds may be placed on invoices only, re-enter" : GOTO 6920 6945 GOSUB '123(B5(Q)) : GOSUB '34(U9$,0,"DATE PAID"," MM/DD/YY"," ",HEX(7F),8,0,2) : GOSUB 6959 : B5(Q)=U9 : U9=0 : RETURN 6959 IF G7=0THEN RETURN : GOSUB '121(Q6$) : IF Q6$<>"E"THEN 6965 : PRINT AT(3,0,80);"Illegal date, re-enter." : GOTO 6973 6965 IF U9>=B3(Q)THEN RETURN : GOSUB '123(B3(Q)) : Q6$="Date must equal or exceed "&U9$&", re-enter." 6973 RETURN CLEAR 6975 IF I=5THEN 6920 : ELSE GOTO 6945 6980 GOSUB '34(" ",B(Q),"GROSS AMOUNT"," ","0","99999999.99",8,2,1) : B(Q)=Q9 : RETURN 9998 DEFFN'29"Q$=";HEX(22);"ACPA020A";HEX(22);":SCRATCH TQ$:SAVE T$()Q$";HEX(0 D) 9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22); "GBS/MVP - A/P OPEN ITEM MAINTENANCE";HEX(22);":SELECT#15<I0$>:$OPEN#15:S ELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':LISTZ$THEX(7A):$C LOSE#15:SELECTLIST005(80)";HEX(0D)