10 REM ************************************************************************
20 REM *                                                                      *
30 REM *                   INV204 EDIT INVENTORY MASTER                       *
40 REM *                   CERBERUS ASSOCIATES                                *
50 REM *                                                                      *
60 REM ************************************************************************
70 REM 
80 REM THIS PROGRAM ALLOWS THE USER TO CHANGE INDIVIDUAL DATA FIELDS ON ANY
90 REM PART IN THE INVENTORY MASTER FILE
1000 REM OPEN FILES USED BY THE PROGRAM
1010 INVMAS$="INV.MAS"
1020 NARCTR$="NAR.CTR"
1030 INVDES$="INVMAS.DES"
1100 FILE INVMAS$(192)
1110 FILE NARCTR$(16)
1120 FILE INVDES$(32)
1130 READ #2,1;NARINV,NARTRS
1900 DIM DES$(24)
1910 SP2$="                                "
2000 REM DETERMINE WHICH RECORD IS TO BE EDITED
2010 INPUT "PART NUMBER TO BE EDITED ENTER E TO END ";PTNUM$
2020 IF PTNUM$="E" THEN 9999
2030 IF LEN(PTNUM$)>12 THEN 2900
2040 REM CHECK IF PART IS IN INVENTORY
2050 IF END #1 THEN 2500
2060 FOR I=1 TO NARINV-1
2070 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$
2080 IF PTNUM$=FLD01$ THEN 3000
2090 NEXT I
2100 REM 
2500 REM PART NOT IN INVENTORY
2510 PRINT "PART NUMBER ";PTNUM$ ;" IS NOT IN INVENTORY "
2520 PRINT " "
2530 GOTO 2000
2900 REM INPUT ERROR
2910 PRINT "PART NUMBERS MAY BE UP TO 12 ALPHANUMERIC CHARACTERS REENTER "
2920 PRINT " "
2930 GOTO 2000
3000 REM EDIT INVENTORY FILE
3010 FOR J=1 TO 24
3020 READ #3,J;DES$(J)
3030 NEXT J
3040 PRINT " "
3050 SP$="                                "
3060 PRINT LEFT$(DES$(1)+SP$,26);FLD01$
3070 PRINT LEFT$(DES$(2)+SP$,32);FLD02$
3080 PRINT LEFT$(DES$(3)+SP$,26);FLD03$,LEFT$(DES$(4)+SP$,26);FLD04$
3090 PRINT LEFT$(DES$(5)+SP$,26);FLD05$,LEFT$(DES$(6)+SP$,26);FLD06$
3100 PRINT LEFT$(DES$(7)+SP$,26);FLD07$,LEFT$(DES$(8)+SP$,26);FLD08$
3110 PRINT LEFT$(DES$(9)+SP$,26);FLD09$,LEFT$(DES$(10)+SP$,26);FLD10$
3120 PRINT LEFT$(DES$(11)+SP$,26);FLD11$,LEFT$(DES$(12)+SP$,26);FLD12$
3130 PRINT LEFT$(DES$(13)+SP$,26);FLD13$,LEFT$(DES$(14)+SP$,26);FLD14$
3140 PRINT LEFT$(DES$(15)+SP$,26);FLD15$,LEFT$(DES$(16)+SP$,26);FLD16$
3150 PRINT LEFT$(DES$(17)+SP$,26);FLD17$,LEFT$(DES$(18)+SP$,26);FLD18$
3160 PRINT LEFT$(DES$(19)+SP$,26);FLD19$,LEFT$(DES$(20)+SP$,26);FLD20$
3170 PRINT LEFT$(DES$(21)+SP$,26);FLD21$,LEFT$(DES$(22)+SP$,26);FLD22$
3180 PRINT LEFT$(DES$(23)+SP$,26);FLD23$,LEFT$(DES$(24)+SP$,26);FLD24$
3190 REM NOW SELECT THE EDIT FIELD   EDITS WILL BE ONE FIELD AT A TIME
3195 PRINT " "
3200 INPUT "ENTER THE ITEM NUMBER TO BE EDITED E TO END  ";C$
3210 IF C$="E" THEN 2000
3220 IF C$="1" THEN 3500
3230 IF C$="2" THEN 3550
3240 IF C$="3" THEN 3600
3250 IF C$="4" THEN 3650
3260 IF C$="5" THEN 3700
3270 IF C$="6" THEN 3750
3280 IF C$="7" THEN 3800
3290 IF C$="8" THEN 3850
3300 IF C$="9" THEN 3900
3310 IF C$="10" THEN 3950
3320 IF C$="11" THEN 4000
3330 IF C$="12" THEN 4050
3340 IF C$="13" THEN 4100
3350 IF C$="14" THEN 4150
3360 IF C$="15" THEN 4200
3370 IF C$="16" THEN 4250
3380 IF C$="17" THEN 4300
3390 IF C$="18" THEN 4350
3400 IF C$="19" THEN 4400
3410 IF C$="20" THEN 4450
3420 IF C$="21" THEN 4500
3430 IF C$="22" THEN 4550
3440 IF C$="23" THEN 4600
3450 IF C$="24" THEN 4650
3460 PRINT "REENTER ITEM NUMBER "
3470 GOTO 3200
3500 PRINT DES$(1);" IS NOW ";FLD01$
3510 INPUT "ENTER NEW VALUE ";FLD01$
3515 FLD01$=RIGHT$(SP2$+FLD01$,12)
3520 GOTO 4800
3550 PRINT DES$(2);" IS NOW ";FLD02$
3560 INPUT "ENTER NEW VALUE ";FLD02$
3565 FLD02$=RIGHT$(SP2$+FLD02$,32)
3570 GOTO 4800
3600 PRINT DES$(3);" IS NOW ";FLD03$
3610 INPUT "ENTER THE NEW VALUE     ";FLD03$
3615 FLD03$=RIGHT$(SP2$+FLD03$,2)
3620 GOTO 4800
3650 PRINT DES$(4);" IS NOW ";FLD04$
3660 INPUT "ENTER THE NEW VALUE ";FLD04$
3665 FLD04$=RIGHT$(SP2$+FLD04$,2)
3670 GOTO 4800
3700 PRINT DES$(5);" IS NOW "; FLD05$
3710 INPUT "ENTER THE NEW VALUE ";FLD05$
3715 FLD05$=RIGHT$(SP2$+FLD05$,7)
3720 GOTO 4800
3750 PRINT DES$(6);" IS NOW ";FLD06$
3760 INPUT "ENTER THE NEW VALUE ";FLD06$
3765 FLD06$=RIGHT$(SP2$+FLD06$,7)
3770 GOTO 4800
3800 PRINT DES$(7);" IS NOW ";FLD07$
3810 INPUT "ENTER THE NEW VALUE ";FLD07$
3815 FLD07$=RIGHT$(SP2$+FLD07$,6)
3820 GOTO 4800
3850 PRINT DES$(8);" IS NOW ";FLD08$
3860 INPUT "ENTER THE NEW VALUE ";FLD08$
3865 FLD08$=RIGHT$(SP2$+FLD08$,6)
3870 GOTO 4800
3900 PRINT DES$(9);" IS NOW ";FLD09$
3910 INPUT "ENTER THE NEW VALUE ";FLD09$
3915 FLD09$=RIGHT$(SP2$+FLD09$,6)
3920 GOTO 4800
3950 PRINT DES$(10);" IS NOW ";FLD10$
3960 INPUT "ENTER THE NEW VALUE ";FLD10$
3965 FLD10$=RIGHT$(SP2$+FLD10$,6)
3970 GOTO 4800
4000 PRINT DES$(11);" IS NOW ";FLD11$
4010 INPUT "ENTER THE NEW VALUE ";FLD11$
4015 FLD11$=RIGHT$(SP2$+FLD11$,6)
4020 GOTO 4800
4050 PRINT DES$(12);" IS NOW ";FLD12$
4060 INPUT "ENTER THE NEW VALUE ";FLD12$
4065 FLD12$=RIGHT$(SP2$+FLD12$,6)
4070 GOTO 4800
4100 PRINT DES$(13);" IS NOW ";FLD13$
4110 INPUT "ENTER THE NEW VALUE ";FLD13$
4115 FLD13$=RIGHT$(SP2$+FLD13$,4)
4120 GOTO 4800
4150 PRINT DES$(14);" IS NOW ";FLD14$
4160 INPUT "ENTER THE NEW VALUE ";FLD14$
4165 FLD14$=RIGHT$(SP2$+FLD14$,1)
4170 GOTO 4800
4200 PRINT DES$(15);" IS NOW ";FLD15$
4210 INPUT "ENTER THE NEW VALUE ";FLD15$
4215 FLD15$=RIGHT$(SP2$+FLD15$,6)
4220 GOTO 4800
4250 PRINT DES$(16);" IS NOW ";FLD16$
4260 INPUT "ENTER THE NEW VALUE ";FLD16$
4265 FLD16$=RIGHT$(SP2$+FLD16$,6)
4270 GOTO 4800
4300 PRINT DES$(17);" IS NOW ";FLD17$
4310 INPUT "ENTER THE NEW VALUE ";FLD17$
4315 FLD17$=RIGHT$(SP2$+FLD17$,6)
4320 GOTO 4800
4350 PRINT DES$(18);" IS NOW ";FLD18$
4360 INPUT "ENTER THE NEW VALUE ";FLD18$
4365 FLD18$=RIGHT$(SP2$+FLD18$,6)
4370 GOTO 4800
4400 PRINT DES$(19);" IS NOW ";FLD19$
4410 INPUT "ENTER THE NEW VALUE ";FLD19$
4415 FLD19$=RIGHT$(SP2$+FLD19$,6)
4420 GOTO 4800
4450 PRINT DES$(20);" IS NOW ";FLD20$
4460 INPUT "ENTER THE NEW VALUE ";FLD20$
4465 FLD20$=RIGHT$(SP2$+FLD20$,6)
4470 GOTO 4800
4500 PRINT DES$(21);" IS NOW ";FLD21$
4510 INPUT "ENTER THE NEW VALUE ";FLD21$
4515 FLD21$=RIGHT$(SP2$+FLD21$,2)
4520 GOTO 4800
4550 PRINT DES$(22);" IS NOW ";FLD22$
4560 INPUT "ENTER THE NEW VALUE ";FLD22$
4565 FLD22$=RIGHT$(SP2$+FLD22$,8)
4570 GOTO 4800
4600 PRINT DES$(23);" IS NOW ";FLD23$
4610 INPUT "ENTER THE NEW VALUE ";FLD23$
4615 FLD23$=RIGHT$(SP2$+FLD23$,8)
4620 GOTO 4800
4650 PRINT DES$(24);" IS NOW ";FLD24$
4660 INPUT "ENTER THE NEW VALUE ";FLD24$
4665 FLD24$=RIGHT$(SP2$+FLD24$,6)
4670 GOTO 4800
4800 PRINT USING "&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&";#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$
4810 GOTO 3200
9999 END