Listing of file='ACPA070A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 227, 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 0198 GOTO 4000 4000 SELECT @PARTS0$ : GOSUB '93(" ") : IF I0$=" "THEN 4180 : PRINT AT(4,21,59);"1 = Sorted by check no." : PRINT TAB(21);"2 = Sorted by vendor ID" : GOSUB '100("1","2",1,0,"ENTER REPORT TYPE",1) : IF Q6$=HEX(1F)THEN 4180 : $PACK(F=HEX(A007A0016002A008A003))STR(M$(),50)FROMM5$,Q6$,L0,M$,I0$ : COM CLEAR M5$ : STR(M5$,8,1)="B" : LOAD TM5$ 4175 DEFFN'31 4180 LOAD TM$ 9999 DEFFN'29"Q$= ";HEX(22);"ACPA070A";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX (0D)