image of READY prompt

Wang2200.org

Listing of file='INVT100A' on disk='vmedia/701-2616C.wvd.zip'

# Sector 477, program filename = 'INVT100A'
0010 REM INVT100A, 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 MASTER FILE
0040 REM PROGRAM FUNCTION  =  REORGANIZE THE INVENTORY MASTER FILE
0060 REM LAST REVISION     =  05/13/79
0070 REM ---------------------------------------------------------------------
0170     DIM M0$(83)3
0198     GOTO 4000
3996 REM *********************************
3997 REM ! INVENTORY FILE REORGANIZATION !
3998 REM *********************************
4000     SELECT @PARTS0$
4010     STR(M$(),16,8)=M5$
4020     COM CLEAR N2$
4030     MAT REDIM M$(83)3
4040     LOAD T"KFAM3507" 10,4199
4200     Q=1
4210     LOAD T"KFAMOPEN"199,199BEG 4220
   : REM LOAD KFAM OPEN/CLOSE ROUTINES
4220     SELECT @PARTS0$
4230     M0$()=M$()
   : REM SAVE ADDRESSES, COMPANY NAME
4240     N1$=S$(1)
   : REM INVENTORY FILE NAME
4250     P1$=M$(1)
   : REM ADDRESS OF MASTER FILE
4260     N2=1
4270     P2$=M$(2)
   : REM ADDRESS OF KEY FILE
4280     N3$=S$(3)
   : REM WORK FILE NAME
4290     P3$=M$(3)
   : REM ADDRESS OF WORK FILE
4300     O3$="Y"
4310     O6$="C"
4320     N4=1
4330     P4$=M$(4)
4340     O4$="Y"
4350     N5$=STR(M$(),16,7)&"B"
4360     P5$=M$(5)
4370     MAT REDIM M$(4)62
9998 DEFFN'29"Q$=";HEX(22);"INVT100A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )