image of READY prompt

Wang2200.org

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
     )