10 REM ***********************************************************************
20 REM *                                                                   " *
30 REM *                      INV302 STOCK REPORT                            *
40 REM *                      CERBERUS ASSOCIATES                            *
50 REM *                                                                     *
60 REM ***********************************************************************
70 REM 
80 REM THIS PROGRAM REPORTS THE STATUS OF ALL ITEMS IN INVENTORY
90 REM
1000 REM OPEN FILES USED BY THE PROGRAM
1010 INVMAS$="INV.MAS"
1020 NARCTR$="NAR.CTR"
1030 FILE INVMAS$(192)
1040 FILE NARCTR$(16)
1500 READ #2,1;NARINV,NARTRS
2000 PRINT " "
2010 PRINT "INVENTORY STATUS REPORT "
2020 PRINT " "
2030 PRINT "PART NUMBER         DESCRIPTION         ON HAND             ON ORDER "
2040 IF END #1 THEN 3000
2050 FOR I=1 TO NARINV
2060 READ #1,I;FLD01$,FLD02$,FLD03$,FLD04$,FLD05$,FLD06$,FLD07$,FLD08$,FLD09$,\
     FLD10$,FLD11$,FLD12$,FLD13$,FLD14$,FLD15$,FLD16$,FLD17$,FLD18$,\
     FLD19$,FLD20$,FLD21$,FLD22$,FLD23$,FLD24$
2070 PRINT FLD01$,FLD02$,FLD07$,FLD08$
2080 NEXT I
3000 REM
9999 END