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)