Listing of file='FCST100B' on disk='vmedia/701-2616C.wvd.zip'
# Sector 945, program filename = 'FCST100B'
0010 REM FCST100B, 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 INVENTORY SYSTEM, REORGANIZE PROFILE FIL
E
0040 REM PROGRAM FUNCTION = CALCULATE SECTORS REMAINING
0050 REM DATE WRITTEN = 07/24/79
0060 REM LAST REVISION = 07/24/79
0070 REM ---------------------------------------------------------------------
-
0170 COM N2$60,Q0
3996 REM **************************
3997 REM ! PROFILE REORGANIZATION !
3998 REM **************************
3999 REM
4000 SELECT @PARTS0$
4010 PRINT HEX(03);"PROFILE 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;"profiles in the profile master 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);"FCST100B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)