10 REM ***********************************************************************
20 REM *                                                                     *
30 REM *                      INV203 UPDATE INVENTORY MASTER                 *
40 REM *                      CERBERUS ASSOCIATES                            *
50 REM *                                                                     *
60 REM ***********************************************************************
70 REM 
80 REM THIS PROGRAM UPDATES THE INV.MAS FILE WITH TRANSACTIONS FOUND IN THE
90 REM INV.TRS FILE
1000 REM OPEN FILES USED BY THE PROGRAM
1010 INVMAS$="INV.MAS"
1020 INVTRS$="INV.TRS"
1030 NARCTR$="NAR.CTR"
1100 FILE INVMAS$(192)
1110 FILE INVTRS$(64)
1120 FILE NARCTR$(16)
1200 REM INV.MAS IS FILE #1,INV.TRS IS FILE #2, AND NAR.CTR IS FILE #3
1500 READ #2,1;NARINV,NARTRS
2000 REM UPDATE THE INVENTORY MASTER FILE WITH THE TRANSACTION FILE
2010 REM FIRST DETERMINE IF ANY TRANSACTIONS ARE OUTSTANDING
2020 IF NARTRS>1 THEN 3000
2030 PRINT "THE TRANSACTION FILE IS EMPTY "
2040 GOTO 9999
3000 FOR I=1 TO NARTRS
3010 READ #2,I;TRS01$,TRS02$,TRS03$,TRS04$,TRS05$,TRS06$,TRS07$
3020 FOR J=1 TO NARINV
3030 READ #1,J;INV01$,INV02$,INV03$,INV04$,INV05$,INV06$,INV07$,INV08$,INV09$,\
     INV10$,INV11$,INV12$,INV13$,INV14$,INV15$,INV16$,INV17$,INV18$,INV19$,\
     INV20$,INV21$,INV22$,INV23$,INV24$
3040 IF INV01$=TRS01$ THEN 3500
3050 NEXT J
3100 REM DIDN'T FIND PART
3110 PRINT " NO SUCH PART ",TRS01$
3120 GOTO 3990
3500 REM FOUND THE PART NOW UPDATE
3990 NEXT I
9999 END