Listing of file='ACPA070A' on disk='vmedia/701-2654C.wvd.zip'
# Sector 315, program filename = 'ACPA070A' 0010 REM ACPA070A, RELEASE 1-0, (01/31/79) THIS PROGRAM IS A COPYRIGHT PRODU CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT ED 0020 REM PROGRAM NAME = ACPA070A 0030 REM RELEASE NUMBER = 01 0040 REM REVISION NUMBER = 00 0050 REM DATE WRITTEN = 1/12/79 0070 REM ************************************************** 0080 REM * THIS PROGRAM IS PART OF A GENERALIZED * 0090 REM * APPLICATION. COPYRIGHT WANG LABS INC. 1979 * 0100 REM ************************************************** 0110 REM SYSTEM NAME = GBS/MVP ACCOUNTS PAYABLE SYSTEM 0120 REM MODULE NAME = SORT CHECK FILE BY CHECK NUMBER OR VENDOR NUMBER 0130 REM PROGRAM FUNCTION = CHECKS PRINTER AVAILABILITY PRIOR TO SORT 0140 REM ************************************************** 0150 REM 0198 GOTO 4000 4000 SELECT @PARTS0$ 4020 GOSUB '93(" ") 4030 IF I0$=" " THEN 4180 4040 REM -------------------- 4050 REM CHOOSE REPORT TYPE 4060 PRINT AT(4,21,59);"1 = Sorted by check no." 4070 PRINT TAB(21);"2 = Sorted by vendor ID" 4080 GOSUB '100("1","2",1,0,"ENTER REPORT TYPE",1) 4090 IF Q6$=HEX(1F) THEN 4180 4100 $PACK(F=HEX(A007A0016002A008A003))STR(M$(),50) FROM M5$,Q6$,L0,M$,I0$ 4110 REM -------------------- 4120 REM LOAD SORT SET-UP MODULE 4130 COM CLEAR M5$ 4140 STR(M5$,8,1)="B" 4150 LOAD T M5$ 4160 REM ------------ 4170 REM END OF PROGRAM 4175 DEFFN'31 4180 LOAD TM$ 9000 REM ************* 9010 REM * VARIABLES * 9020 REM ************* 9030 REM STR(M$(),50,1) = STORE REPORT TYPE 9040 REM $ 9999 DEFFN'29"Q$= ";HEX(22);"ACPA070A";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX (0D)