image of READY prompt

Wang2200.org

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)