1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM         MODG0 : CTC MANUFACTURING PARTS CONTROL
4  REM
5  REM         36210 REV B  PART 14 OF 23   2/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
10  REM * MODIFIES MANUFACTURING AUXILLARY FILE, G0 *
11  DIM T[30],A$[20],B$[20],C$[10],D$[20]
100  FILES G0
200  READ A1,A2,A3,A4
210  DATA 21,6,2,1
300  C$="0123456789"
900  MAT  READ #1;T
1000  PRINT "ENTER NEW: (1) WEEKLY SCHEDULES, (2) MAX-MIN WEEKS, "
1005  PRINT "OR (3) % DOLLAR USAGE BREAK POINTS";
1010  INPUT A$
1020  GOSUB 4200
1030  IF  NOT B1 THEN 1060
1040  PRINT '7'7'7'7"WHAT";
1050  GOTO 1010
1060  GOTO Z OF 1070,1270,1400
1065  GOTO 1040
1070  PRINT "WEEKLY SCHEDULE FOR:"
1072  FOR I1=1 TO A1
1075  GOTO I1 OF 1095,1100,1105,1110,1115,1120,1125,1245,1245,1245
1080  GOTO I1-10 OF 1145,1150,1155,1160,1165,1170,1175,1180,1185,1190
1085  GOTO 1245
1095  B$="3300/3000"
1097  GOTO 1210
1100  B$="2200-350"
1102  GOTO 1210
1105  B$="3360-100"
1107  GOTO 1210
1110  B$="3300-200"
1112  GOTO 1210
1115  B$="2200-000"
1117  GOTO 1210
1120  B$="2200-300"
1122  GOTO 1210
1125  B$="2200-200"
1127  GOTO 1210
1145  B$="3360-200"
1147  GOTO 1210
1150  B$="3300-300"
1152  GOTO 1210
1155  B$="VT06"
1157  GOTO 1210
1160  B$="2200-112"
1162  GOTO 1210
1165  B$="2200-400"
1167  GOTO 1210
1170  B$="2200-401"
1172  GOTO 1210
1175  B$="2200-402"
1177  GOTO 1210
1180  B$="2200-420"
1182  GOTO 1210
1185  B$="2200PS"
1187  GOTO 1210
1190  B$="2200-404"
1210  PRINT "OLD ";B$;" =";T[I1]
1212  PRINT "NEW ";B$;
1215  INPUT A$
1220  GOSUB 4200
1225  IF  NOT B1 THEN 1240
1230  PRINT '7'7'7'7'7'7'7"BAD DATA"
1235  GOTO 1210
1240  T[I1]=Z
1242  PRINT 
1245  NEXT I1
1247  PRINT "ABOVE ALL RIGHT";
1248  INPUT A$
1249  IF A$[1,1]="N" THEN 1070
1250  MAT  PRINT #1,1;T
1255  PRINT #1; END 
1260  END 
1270  FOR I1=1 TO A2 STEP 2
1280  GOTO I1 OF 1285,1285,1295,1295,1305,1305
1285  B$="A"
1290  GOTO 1310
1295  B$="B"
1300  GOTO 1310
1305  B$="C"
1310  D$="MAXIMUM"
1312  X=0
1315  GOSUB 1340
1325  D$="MINIMUM"
1327  X=1
1330  GOSUB 1340
1335  NEXT I1
1336  PRINT "ABOVE ALL RIGHT";
1337  INPUT A$
1338  IF A$[1,1]="N" THEN 1270
1339  GOTO 1250
1340  PRINT D$;" WEEKS FOR'"B$;"' ITEMS";
1345  INPUT A$
1347  GOSUB 4200
1350  IF  NOT B1 THEN 1365
1355  PRINT '7'7'7'7'7'7'7"BAD DATA"
1360  GOTO 1340
1365  T[I1+A1+X]=Z
1370  RETURN 
1400  FOR I1=1 TO 2
1410  PRINT "% USAGE BREAK POINT";I1;
1420  INPUT Z
1445  T[I1+A1+A2]=Z
1450  NEXT I1
1451  PRINT "ABOVE ALL RIGHT";
1452  INPUT A$
1453  IF A$[1,1]="N" THEN 1400
1455  GOTO 1250
4200  B1=Z=0
4210  FOR L1=1 TO LEN(A$)
4220  FOR L2=1 TO 10
4230  IF A$[L1,L1]=C$[L2,L2] THEN 4270
4240  NEXT L2
4250  B1=1
4260  RETURN 
4270  Z=Z*10+L2-1
4280  NEXT L1
4290  RETURN 
9999  END 
