Listing of file='ACPA080A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 234, program filename = 'ACPA080A' 0010 REM ACPA080A, RELEASE 2.1, (06/23/80) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM I9$1 : DIM D9$19,D6$6 : GOTO 4000 4000 SELECT @PARTS0$ : PRINT HEX(03);TAB(16);"VENDOR MASTER FILE MAINTENANCE" : B6=21 : C6=8 : G0=1 : C9=5 : C8=41 : 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(1) : 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) : A$=Q6$ : PRINT AT(4,0,);TAB(10);"VENDOR ID - ";A$ : GOSUB '100("A,C,D","AaCcDdC ",1,1,"ENTER TRANSACTION TYPE (A,C, OR D)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : I9$=Q6$ 4250 Q6$="Add ChangeDelete" : D6$=STR(Q6$,Q9*6-5,6) : PRINT AT(4,0);D6$ : IF I9$<>"A"THEN 4450 : GOSUB '232(1,0,A$) : IF Q$="N"THEN 4330 : PRINT AT(3,0,80);HEX(07);"VENDOR ID is already in the vendor master file" : GOTO 4140 4330 GOSUB '36 : GOSUB '37 : GOSUB '32 : GOSUB '33 : GOSUB '233(1,1,A$,0) : GOSUB '91 : IF J0>0THEN 4140 : GOSUB '60(2) : G5$(G0)="New vendor" : GOSUB 4730 : GOTO 4140 4450 GOSUB '232(1,1,A$) : GOSUB '91 : IF J0>0THEN 4140 : GOSUB '70(2) : IF T7$=A$THEN 4520 : PRINT AT(3,0,80);HEX(07);"Record ID in key file does not match the record ID from the master file" : GOTO 4140 4520 GOSUB '37 : IF I9$="D"THEN 4590 : GOSUB '33 : DBACKSPACE #2,1S : GOSUB '60(2) : GOTO 4140 4590 IF A2=0THEN 4620 : PRINT AT(3,0,80);HEX(07);"Vendor cannot be deleted, balance is not zero" : GOTO 4140 4620 GOSUB '100("Y,N","YyNn",1,1,"DELETE (Y OR N)",2) : IF Q6$<>"Y"THEN 4140 : GOSUB '231(1,0,A$) : GOSUB '91 : IF J0>0THEN 4140 : G5$(G0)="Deleted vendor" : GOSUB 4730 : A$=HEX(FF) : GOSUB '60(2) : GOTO 4140 4730 G2$(G0)=" " : G3$(G0)=A$ 4750 G0$(G0)="8"&A$ : G1$(G0)=I9$ : G0=G0+1 : IF G0<4THEN RETURN : GOSUB '49(3) : G0=1 : G0$()=ALL(FF) : IF Q9<.95THEN RETURN : GOSUB '254 4850 DEFFN'31 : IF G0>1THEN GOSUB '49(3) : LOAD TM$ 6020 DEFFN'36 : A1$,A2$,A3$,A4$,A5$,B4$,B1$()=" " : A,A1,A2,A3,A0=0 : MAT A4=ZER : RETURN 6060 DEFFN'37 : PRINT AT(4,0,80);TAB(5);"VENDOR ID. - ";A$;TAB(30);D6$;TAB(C8+6);"DIST ACCT";TAB(C8+22);" % DIST" : PRINT AT(5,0,) : G7=0 : I9=11 : FOR I=1TO I9 : GOSUB '35 : NEXT I : RETURN 6150 DEFFN'33 : CONVERT I9TO Q7$,(##) : PRINT AT(1,0,80);"ENTER LINE NO. TO CORRECT (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 6271 : Q7$=" " : G7=G7+1 : GOSUB '35 : GOSUB 4750 : GOTO 6150 6271 S6=0 : FOR I=1TO 6 : S6=S6+A4(I) : NEXT I : IF S6=100OR S6=0THEN RETURN : PRINT AT(3,0,80);"The sum of G/L account percentages is not 100. Re-ente r." : GOTO 6150 6290 RETURN CLEAR 6300 IF I9$="A"OR G7=0THEN 4140 : CONVERT MIN(G7,99)TO Q6$,(##) : G2$(G0)=Q6$&" previous edits for" : G3$(G0)="this vendor are void." : GOSUB 4750 : GOTO 4140 6370 DEFFN'32 : G7=1 : FOR I=1TO I9 : Q7$=" " : GOSUB '35 : IF I>D9AND B1$(D9)=" "THEN RETURN : NEXT I : RETURN 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 I>C9AND D8=0THEN GOSUB '96(5) : IF Q5<2THEN GOSUB 6650 : G3$(G0)=Q6$ : IF I>C9THEN 6575 6550 PRINT AT(I+5,0,C8); : PRINTUSING "##) ";I; : B8=C8-B6-2 : IF Q5<2THEN B8=B8+C6-Q3 : PRINT G5$(G0);TAB(B8+2);Q6$ : RETURN 6575 PRINT AT(I+5-C9,C8); : PRINTUSING "##) ";I; : IF Q9=0AND D8=1AND I9$="A"THEN RETURN : IF D8=1AND B1$(D9)=" "THEN Q6$=" " : IF D8=0THEN PRINT AT(I+5-C9,C8+6,9);STR(Q6$,,9) : ELSE PRINT AT(I+5-C9,C8+22,7);STR(Q6$,,7) : 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,6810,6820,6830,6840,6850,6850,6850,6850,6850,6850 : IF Q$>" "THEN 6730 : RETURN 6800 GOSUB '34(A1$,0,"VENDOR NAME"," "," ",HEX(7F),21,0,2) : A1$=Q6$ : RETURN 6810 GOSUB '34(A2$,0,"ADDRESS LINE 1"," "," ",HEX(7F),20,0,2) : A2$=Q6$ : RETURN 6820 GOSUB '34(A3$,0,"ADDRESS LINE 2"," "," ",HEX(7F),20,0,2) : A3$=Q6$ : RETURN 6830 GOSUB '34(A4$,0,"CITY/STATE"," "," ",HEX(7F),16,0,2) : A4$=Q6$ : RETURN 6840 GOSUB '34(A5$,0,"ZIP CODE"," "," ",HEX(7F),5,0,2) : A5$=Q6$ : RETURN 6850 D9=I-C9 : D8=0 : CONVERT D9TO STR(D9$,1,1),(#) : Q6$="stndrdththth" : STR(D9$,2,2)=STR(Q6$,2*D9-1,2) : STR(D9$,4,16)=" DIST. ACCT. NO." 6859 GOSUB '34(B1$(D9),0,D9$," "," ",HEX(7F),VAL(Q0$(5)),0,2) : IF G7=0THEN 6891 : B1$(D9)=Q6$ : IF STR(B1$(D9),,1)<>" "THEN 6873 : A4(D9)=0 : PRINT AT(I+5-C9,C8+22,7) : RETURN 6873 GOSUB '232(2,0,B1$(D9)) : GOSUB '91 : IF J0<>0THEN 6881 : GOSUB '75(5) : IF O1$="2"AND O3$<>"M"THEN 6891 6881 PRINT AT(3,0,80);HEX(07);"Illegal account no., re-enter" : B1$(D9)=" " : GOTO 6859 6891 D8=1 : STR(D9$,4,16)=" DISTRIBUTION % " : GOSUB '34(" ",A4(D9),D9$," ","0","100.00",3,2,1) : A4(D9)=Q9 : D8=0 : RETURN 9992 DEFFN'29"Q$=";HEX(22);"ACPA080A";HEX(22);":SCRATCH T Q$:SAVE T ()Q$";HEX (0D) 9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22); "GBS/MVP - MAINTAIN VENDOR MASTER FILE";HEX(22);":SELECT#15<I0$>:$OPEN#15 :SELECTLIST<I0$>(80): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':LISTZ$THEX(7A):$ CLOSE#15:SELECTLIST005(80)";HEX(0D)