Listing of file='OREN100B' on disk='vmedia/701-2616C.wvd.zip'
# Sector 541, program filename = 'OREN100B' 0010 REM OREN100B, 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 ORDER ENTRY SYSTEM, REORGANIZATION 0040 REM PROGRAM FUNCTION = TO CALCULATE SECTORS USED IN OPEN ORDER FILE 0050 REM DATE WRITTEN = 08/20/78 0060 REM LAST REVISION = 05/13/79 0070 REM --------------------------------------------------------------- 0170 COM N2$60 3996 REM ***************************** 3997 REM ! OPEN ORDER REORGANIZATION ! 3998 REM ***************************** 3999 REM 4000 SELECT @PARTS0$ 4010 PRINT HEX(03);"OPEN ORDER REORGANIZATION" 4030 LIMITS T#1,S$(1),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 INT(Q9/3);"5-line orders in the open order file." 4070 LINPUT "KEY RETURN TO RESUME",?Q$ 4080 N2$=STR(M$(),25) 4090 LOAD TSTR(M$(),241) : ERRORLOAD T"START" 9998 DEFFN'29"Q$=";HEX(22);"OREN100B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D )