Listing of file='ACPA105B' on disk='vmedia/701-2652C.wvd.zip'
# Sector 265, program filename = 'ACPA105B' 0010 REM ACPA105B, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 COM N2$60 4000 SELECT @PARTS0$ : PRINT HEX(03);"VENDOR ITEM FILE REORGANIZATION" : LIMITS T#1,S$(1),Q6,Q7,Q8 : Q9=Q7-Q6-Q8+1 : PRINT AT(1,0,0);"There is room for"; : PRINT Q9;"vendors in the vendor file." : LINPUT "Key 'RETURN' to resume",?Q$ : N2$=STR(M$(),25) : LOAD TSTR(M$(),241) : ERRORLOAD T"START" 9998 DEFFN'29"Q$=";HEX(22);"ACPA105B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D )