10 REM ***********************************************************************
20 REM *                                                                     *
30 REM *                      INV303 REORDER REPORT                          *
40 REM *                      CERBERUS ASSOCIATES                            *
50 REM *                                                                    !*
60 REM ***********************************************************************
70 REM
80 REM THIS PROGRAM REPORTS ALL INVENTORY ITEMS BELOW THE REORDER QUANTITY
1000 REM OPEN FILES USED BY THE PROGRAM
1010 INVMAS$="INV.MAS"
1020 NARCTR$="NAR.CTR"
1030 FILE INVMAS$(192)
1040 FILE NARCTR$(16)
1450 IF END #1 THEN 9999
1500 READ #2,1;NARINV,NARTRS
2000 REM PRINT THE REPORT
2010 PRINT "REORDER REPORT "
2020 PRINT " "
2030 PRINT "PART NUMBER  ON HAND ON ORDER REORDER PT LAST ORDER LEAD TIME "
2040 FOR I=1 TO NARINV
2050 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$
2060 IF FLD07$>FLD19$ THEN 2100
2070 PRINT FLD01$;FLD07$,FLD08$,FLD19$,FLD15$,FLD21$
2080 REM
2100 NEXT I
9999 END