Listing of file='ACPA090A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 104, program filename = 'ACPA090A' 0010 REM ACPA090A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM A6$1,B6$1,C6$1,D6$8 : DIM K$1,K1$Q0,K2$Q0,K3$17 : GOTO 4000 4000 SELECT @PARTS0$ 4012 %##,###,###.##- 4014 %######## ###.### 4020 K2$=ALL(FF) : A6$="N" : B6$="Y" : K,P1,K0=0 : L=L0 : D6,D7,D8,D9=0 : GOSUB '100("Y,N","NnYyY ",1,1,"PRINT REPORT (Y OR N)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : A6$=Q6$ : IF A6$="Y"THEN 4150 : $CLOSE#15 : GOTO 4230 4150 GOSUB '93(" ") : IF I0$=" "THEN A6$="N" : GOSUB '100("Y,N","NnYyY ",1,1,"SCREEN DISPLAY (Y OR N)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : B6$=Q6$ : IF B6$="N"AND A6$="N"THEN 5230 4230 PRINT AT(5,0,);TAB(16);"A = Full report" : PRINT TAB(16);"B = Condensed report" : GOSUB '100("A,B","AaBb",1,1,"ENTER REPORT TYPE",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : C6$=Q6$ : PRINT AT(5,0,) : GOSUB '100("A,R,I","AaIiRr",1,1,"ENTER INQUIRY TYPE (A=ALL, R=RANGE, I=I NDIVIDUAL)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : K$=Q6$ 4340 Q6$="ALL RANGE INDIVIDUAL" : K3$=STR(Q6$,Q9*10-9,10) : K3$=K3$&" OPTION" : ON Q9GOTO ,4530,4440 : GOSUB '235(1,0) : IF Q$="B"THEN 4000 : IF Q$>" "THEN 5320 : GOTO 4670 4440 GOSUB '34(HEX(08)) : IF Q6$="END"THEN 5100 : K1$,K2$=Q6$ : GOSUB '232(1,0,K1$) : GOSUB '91 : ON J0+1GOTO 4670,,,4440,,,,4440 : GOTO 5320 4520 PRINT AT(3,0,80);"Starting ID must be lower than Ending ID.";HEX(07) 4530 C6,C7,C8,C9,K=0 : L=L0 : GOSUB '34("STARTING") : IF Q6$="END"THEN 5100 : K1$=Q6$ : GOSUB '34("ENDING") : K2$=ALL(FF) : IF Q6$<>"END"THEN K2$=Q6$ : IF K1$>K2$THEN 4520 : GOSUB '232(1,0,K1$) : J$(3)=" " : GOSUB '91 : ON J0GOTO ,,4870,,,,4000 : IF J0>0THEN 5320 4670 GOSUB '70(2) : IF A$>K2$THEN 4820 : K=K+1 : GOSUB '123(A0) : D6$=U9$ : IF C6$<>"C"THEN 4770 : K=K+1 : C6=C6+A : C7=C7+A1 : C8=C8+A3 : C9=C9+A2 : K0=K0+1 : D6=D6+A : D7=D7+A1 : D8=D8+A3 : D9=D9+A2 4770 PRINT AT(5,0,) : IF B6$="Y"THEN GOSUB 6402 : ELSE PRINT "Processing record ID ";T7$ : IF A6$="Y"THEN GOSUB '90 : IF A6$="Y"THEN ON VAL(C6$)-64GOSUB 6603,6654 : SELECT PRINT 005(80) 4820 IF K$="I"THEN 4440 : IF A$>=K2$THEN 4950 : IF B6$="Y"THEN GOSUB '254 : IF Q6$=HEX(1F)THEN GOSUB '31 4870 IF J0=7THEN GOSUB '92 : GOSUB '237(1,0) : IF Q$=" "THEN 4670 : IF Q$="E"THEN 4950 : GOSUB '91 : IF J0=7THEN 4870 : GOTO 5320 4950 IF A6$="N"AND K$="R"THEN 5090 : IF A6$="N"OR K$<>"R"THEN 5100 : L=L+2 : GOSUB '90 : IF C6$<>"C"THEN 5060 : L=L+2 : GOSUB '90 : PRINT HEX(0A) : A$=" " : A1$="RANGE TOTAL" : A=C6 : A1=C7 : A3=C8 : A2=C9 : GOSUB 6603 5060 PRINT HEX(0A) : IF K>0THEN PRINT "NO. OF RECORDS PROCESSED = ";K : SELECT PRINT 005(80) 5090 GOTO 4530 5100 IF A6$="N"THEN 5230 : SELECT PRINT <I0$>(132) : PRINT HEX(0A) : IF C6$<>"C"THEN 5210 : L=L+3 : GOSUB '90 : PRINT HEX(0A) : A$=" " : A1$="FINAL TOTAL" : A=D7 : A1=D7 : A3=D8 : A2=D9 : GOSUB 6603 : PRINT HEX(0A) 5210 PRINT HEX(0C) 5230 SELECT PRINT 005(80) : PRINT AT(1,0,) : GOSUB '100("M,R","MmRr",1,1,"KEY R TO RESTART, M FOR MENU",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$="R"THEN 4000 5290 DEFFN'31 : LOAD TM$ 5320 GOSUB '91 : GOSUB '254 : GOTO 5290 6020 DEFFN'90 : Q6$=" " : KEYIN Q6$,6050,6050 6050 IF Q6$="P"THEN GOSUB '254 : IF Q6$=HEX(1F)THEN GOSUB '31 : SELECT PRINT <I0$>(132) : IF L<L0THEN RETURN : P1=P1+1 : PRINT HEX(0C0A0D0E);TAB(3);N2$ : PRINT K3$;TAB(56);"VENDOR MASTER FILE";TAB(110);Q1$;TAB(122);"PAGE ";P1 : PRINT HEX(0A) : L=7 : IF C6$="A"THEN 6137 : PRINT TAB(56);"(CONDENSED)" : PRINT HEX(0A) : PRINT TAB(30);"VENDOR #";TAB(41);"NAME" : PRINT HEX(0A) : RETURN 6137 PRINT TAB(56);"(COMPLETE)" : PRINT HEX(0A) : PRINT TAB(38);"--DISTRIBUTION--";TAB(66);"Y-T-D";TAB(77);"LAST YEAR";TAB( 96);"Y-T-D";TAB(111);"GROSS";TAB(121);"DATE LAST" 6140 PRINT "VENDOR #";TAB(11);"NAME/ADDRESS";TAB(38);"ACCT NO";TAB(51);"%";TAB (63);"PURCHASE";TAB(78);"PURCHASE";TAB(93);"DISCOUNT";TAB(109);"BALANCE"; TAB(123);"PAYMENT" : PRINT HEX(0A) : L=L+1 : RETURN 6160 DEFFN'34(Q7$) : PRINT AT(4,0,80) : PRINT AT(1,0,80);"ENTER ";Q7$;" VENDOR ID (OR END)" : GOSUB '100(" ",HEX(7F),Q0,0," ",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$="end"THEN Q6$="END" : IF Q6$="END"THEN RETURN : GOSUB '96(4) : RETURN 6402 PRINT " VENDOR ID ";A$;TAB(40);"ACCT NO.";TAB(53);"%" : MAT REDIM M$(6)40 : M$()=" " : M$(1)=A1$ : M$(2)=A2$ : M$(3)=A3$ : M$(4)=A4$&" "&A5$ : FOR I=1TO 6 : PRINT TAB(7);M$(I);TAB(40); : IF B1$(I)<>" "THEN PRINTUSING 4014,B1$(I),A4(I); : PRINT : NEXT I : PRINT TAB(7);"YEAR-TO-DATE PURCHASES";TAB(32); : PRINTUSING 4012,A : PRINT TAB(7);"LAST YEAR PURCHASES";TAB(32); 6417 PRINTUSING 4012,A1 : PRINT TAB(7);"CURRENT BALANCE";TAB(32); : PRINTUSING 4012,A2 : PRINT TAB(7);"DISCOUNTS EARNED";TAB(32); : PRINTUSING 4012,A3 : PRINT TAB(7);"LAST PAYMENT DATE";TAB(32);D6$ : MAT REDIM M$(4)62 : RETURN 6603 PRINT TAB(3);A$;TAB(11);A1$;TAB(38); : IF B1$(1)<>" "THEN PRINTUSING 4014,B1$(1),A4(1); : PRINT TAB(58); : IF A<>0THEN PRINTUSING 4012,A; : PRINT TAB(73); : IF A1<>0THEN PRINTUSING 4012,A1; : PRINT TAB(88); : IF A3<>0THEN PRINTUSING 4012,A3; : PRINT TAB(103); : IF A2<>0THEN PRINTUSING 4012,A2; : PRINT TAB(122);D6$ : IF A$=HEX(80)THEN RETURN : M$()=" " : M$(2)=A2$ : M$(3)=A3$ : M$(4)=A4$&" "&A5$ : FOR I=2TO 4 : PRINT TAB(11);M$(I);TAB(38); 6622 IF B1$(I)<>" "THEN PRINTUSING 4014,B1$(I),A4(I); : PRINT : NEXT I : L=L+5 : FOR I=5TO 6 : L=L+1 : PRINT TAB(38); : IF B1$(I)<>" "THEN PRINTUSING 4014,B1$(I),A4(I) : ELSE L=L-1 : NEXT I : PRINT HEX(0A) : RETURN 6654 PRINT TAB(33);A$;TAB(41);A1$ : L=L+1 : RETURN 9992 DEFFN'29"Q$=";HEX(22);"ACPA090A";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 - PRINT/DISPLAY VENDOR MASTER FILE";HEX(22);":SELECT#15<I0$>:$OP EN#15:SELECTLIST<I0$>(80): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':LISTZ$THEX( 7A):$CLOSE#15:SELECTLIST005(80)";HEX(0D)