image of READY prompt

Wang2200.org

Listing of file='SALE100B' on disk='vmedia/701-2616C.wvd.zip'

# Sector 816, program filename = 'SALE100B'
0010 REM SALE100B, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0020 REM ---------------------------------------------------------------
0030 REM SYSTEM & MODULE   =  GBS/MVP A/R SYSTEM, REORGANIZE SALESMAN FILE
0040 REM PROGRAM FUNCTION  =  CALCULATE SECTORS REMAINING
0050 REM DATE WRITTEN      =  08/20/78
0060 REM LAST REVISION     =  05/13/79
0070 REM ---------------------------------------------------------------
0170      COM N2$60
3996 REM ***************************
3997 REM ! SALESMAN REORGANIZATION !
3998 REM ***************************
3999 REM
4000     SELECT @PARTS0$
4010     PRINT HEX(03);"SALESMAN MASTER FILE REORGANIZATION"
4020     Q6$=S$(1)
4030     LIMITS T#1,Q6$,Q6,Q7,Q8
4040     Q9 = Q7-Q6-Q8+1
   : REM COMPUTE SPACE LEFT OVER
4050     PRINT AT(1,0,0);"There is room for";
4060     PRINT Q9;"salesmen in the salesman master file."
4070     LINPUT "Key 'RETURN' to resume",?Q$
4080     N2$=STR(M$(),25)
4090     LOAD TSTR(M$(),241)
   : ERRORLOAD T"START"
9999 DEFFN'29"Q$=";HEX(22);"SALE100B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )