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
)