image of READY prompt

Wang2200.org

Listing of file='ACPA100B' on disk='vmedia/701-2652C.wvd.zip'

# Sector 258, program filename = 'ACPA100B'
0010 REM ACPA100B, 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
   : GOTO 4000
4000 SELECT @PARTS0$
   : PRINT HEX(03);"A/P OPEN 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*4;"transactions in the a/p open item file."
   : LINPUT "Key 'RETURN' to resume",?Q$
   : N2$=STR(M$(),25)
   : LOAD TSTR(M$(),241)
   : ERRORLOAD T"START"
9998 DEFFN'29"Q$=";HEX(22);"ACPA100B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )