Listing of file='FCST100A' on disk='vmedia/701-2616C.wvd.zip'
# Sector 962, program filename = 'FCST100A' 0010 REM FCST100A, 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 = REORGANIZE THE PROFILE FILE 0050 REM DATE WRITTEN = 07/24/79 0060 REM LAST REVISION = 07/24/79 0070 REM --------------------------------------------------------------------- 3996 REM ******************************* 3997 REM ! PROFILE FILE REORGANIZATION ! 3998 REM ******************************* 4000 SELECT @PARTS0$ 4010 COM CLEAR N2$ 4020 STR(M$(),16,8)=M5$ 4030 LOAD T"REOR3507" 10,4199 4200 Q=1 4210 LOAD T"KFAMOPEN"199,199BEG 4220 : REM LOAD KFAM OPEN/CLOSE ROUTINES 4220 SELECT @PARTS0$ 4230 N1$=S$(1) : REM PROFILE FILE NAME 4240 P1$=M$(1) : REM ADDRESS OF MASTER FILE 4250 N2=1 4260 P2$=M$(2) : REM KEY FILE ADDRESS 4270 N3$=S$(3) : REM WORK FILE NAME 4280 P3$=M$(3) : REM WORK FILE ADDRESS 4290 O3$="Y" 4300 O6$="C" 4310 N4=1 4320 P4$=M$(4) 4330 O4$="Y" 4340 N5$=STR(M$(),16,7)&"B" 4350 P5$=M$(5) 4360 MAT REDIM M$(4)62 9998 DEFFN'29"Q$=";HEX(22);"FCST100A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D )