10 REM ************************************************************************
20 REM *                                                                      *
30 REM *                    INV205 ADD INVENTORY                              *
40 REM *                    CERBERUS ASSOCIATES                               *
50 REM *                                                                      *
60 REM ************************************************************************
70 REM
80 REM THIS PROGRAM ALLOWS ADDITION OF INVENTORY ITEMS TO AN EXISTING INVENTORY
90 REM MASTER FILE
1000 REM OPEN THE FILES USED BY THHE PROGRAM
1010 INVMAS$="INV.MAS"
1020 NARCTR$="NAR.CTR"
1030 FILE INVMAS$(192)
1040 FILE NARCTR$(16)
1050 REM INV.MAS IS FILE #1 NAR.CTR IS FILE #2
1100 READ #2,1;NARINV,NARTRS
2000 REM THIS SECTION OF THE PROGRAM ADDS THE NEW INVENTORY ITEMS
2010 INPUT "PART NUMBER TO BE ADDED ENTER E TO END ";PTNUM$
2020 IF PTNUM$="E" THEN 9999
2030 IF LEN(PTNUM$)>12 THEN 2900
2040 IF END #1 THEN 2090
2050 FOR I=1 TO NARINV
2060 READ #1,I;FLD01$
2070 IF FLD01$=PTNUM$ THEN 2800
2080 NEXT I
2090 INV01$=PTNUM$
2100 REM NO SUCH PART NUMBER IN FILE SO ADD IT
2110 INPUT "DESCRIPTION                      "; LINE INV02$
2120 INPUT "LOCATION                         "; LINE INV03$
2130 INPUT "CATAGORY                         "; LINE INV04$
2140 INPUT "AVERAGE COST                     "; LINE INV05$
2150 INPUT "SELLING PRICE                    "; LINE INV06$
2160 INPUT "QUANTITY ON HAND                 "; LINE INV07$
2170 INPUT "QUANTITY ON ORDER                "; LINE INV08$
2180 INPUT "YEAR TO DATE ISSUE               "; LINE INV09$
2190 INPUT "MONTH TO DATE ISSUE              "; LINE INV10$
2200 INPUT "LAST ISSUE DATE                  "; LINE INV11$
2210 INPUT "UNIT OF MEASURE                  "; LINE INV12$
2220 INPUT "VENDOR NUMBER                    "; LINE INV13$
2230 INPUT "TAX FLAG                         "; LINE INV14$
2240 INPUT "LAST ORDER DATE                  "; LINE INV15$
2250 INPUT "YEAR TO DATE RETURNS             "; LINE INV16$
2260 INPUT "YEAR TO DATE RECEIPTS            "; LINE INV17$
2270 INPUT "MONTH TO DATE RECEIPTS           "; LINE INV18$
2280 INPUT "REORDER POINT                    "; LINE INV19$
2290 INPUT "WEIGHT                          "; LINE INV20$
2300 INPUT "LEAD TIME                        "; LINE INV21$
2310 INPUT "YEAR TO DATE COST                "; LINE INV22$
2320 INPUT "YEAR TO DATE SALES               "; LINE INV23$
2330 INPUT "ALLOCATED                        "; LINE INV24$
2340 REM FORMAT THE DATA AND WRITE TO INV.MAS FILE
2350 FLD01$=RIGHT$("            "+INV01$,12)
2360 FLD02$=RIGHT$("                                "+INV02$,32)
2370 FLD03$=RIGHT$("  "+INV03$,2)
2380 FLD04$=RIGHT$("  "+INV04$,2)
2390 FLD05$=RIGHT$("       "+INV05$,7)
2400 FLD06$=RIGHT$("       "+INV06$,7)
2410 FLD07$=RIGHT$("      "+INV07$,6)
2420 FLD08$=RIGHT$("      "+INV08$,6)
2430 FLD09$=RIGHT$("      "+INV09$,6)
2440 FLD10$=RIGHT$("      "+INV10$,6)
2450 FLD11$=RIGHT$("      "+INV11$,6)
2460 FLD12$=RIGHT$("      "+INV12$,6)
2470 FLD13$=RIGHT$("    "+INV13$,4)
2480 FLD14$=RIGHT$(" "+INV14$,1)
2490 FLD15$=RIGHT$("      "+INV15$,6)
2500 FLD16$=RIGHT$("      "+INV16$,6)
2510 FLD17$=RIGHT$("      "+INV17$,6)
2520 FLD18$=RIGHT$("      "+INV18$,6)
2530 FLD19$=RIGHT$("      "+INV19$,6)
2540 FLD20$=RIGHT$("      "+INV20$,6)
2550 FLD21$=RIGHT$("  "+INV21$,2)
2560 FLD22$=RIGHT$("        "+INV22$,8)
2570 FLD23$=RIGHT$("        "+INV23$,8)
2580 FLD24$=RIGHT$("      "+INV24$,6)
2590 REM DATA IS FORMATTED WRITE TO DISC
2600 PRINT USING "&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&";#1,NARINV;\
     FLD01$,FLD02$,FLD03$,FLD04$,FLD05$,FLD06$,FLD07$,FLD08$,FLD09$,FLD10$,\
     FLD11$,FLD12$,FLD13$,FLD14$,FLD15$,FLD16$,FLD17$,FLD18$,FLD19$,FLD20$,\
     FLD21$,FLD22$,FLD23$,FLD24$
2610 NARINV=NARINV+1
2620 PRINT #2,1;NARINV,NARTRS
2630 GOTO 2000
2800 REM PART TO BE ADDED IS ALREADY ON INVENTORY FILE
2810 PRINT "PART NUMBER ";PTNUM$;" IS ALREADY IN INVENTORY "
2820 PRINT " "
2830 GOTO 2000
2900 REM PART NUMBER ENTERED WAS TOO LONG
2910 PRINT "PART NUMBERS CAN BE UP TO 12 ALPHANUMERIC CHARACTERS REENTER "
2920 PRINT " "
2930 GOTO 2000
9999 END