1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM         PRT22 : CTC INVENTORY CONTROL 
4  REM                 FOR FINISHED PRODUCTS
5  REM         36211 REV  B  PART 25 OF 35   2/73 
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
10  DIM S$[54],T$[54],A$[20],X$[1]
11  DIM C[8],D[2,2],E[1000]
12  B3=0
13  DIM Z$[54]
100  FILES C10,G10A,G0
200  READ C9,C8,C7,G8
210  DATA 13,4,8,3
240  DATA "C10","C11","C12","C13"
245  DATA "G10A","G10B","G10C"
400  READ A$
405  ASSIGN A$,1,W5
410  READ #1,141
1000  E=0
1005  S5=7761
1015  IF  END #1 THEN 1100
1020  IF S5>10350 THEN 2000
1025  MAT  READ #1;C
1030  S5=S5+1
1035  IF C[1]=-1 THEN 1020
1040  X=INT(C[2]/10^5)
1045  IF X#2 AND X#5 AND X#6 THEN 1020
1050  X=C[1]-INT(C[1]/10^4)*10^4
1055  FOR I=1 TO E
1060  IF E[I]=X THEN 1020
1065  NEXT I
1070  E=E+1
1075  IF E<1001 THEN 1090
1080  PRINT '7'7'7">1000 DIFFERENT CUSTS"
1085  STOP 
1090  E[E]=X
1095  GOTO 1020
1100  READ A$
1105  ASSIGN A$,1,W5
1110  GOTO 1015
2000  FOR I=1 TO E
2005  FOR J=I TO 2 STEP -1
2010  IF E[J] >= E[J-1] THEN 2040
2015  X=E[J]
2020  E[J]=E[J-1]
2025  E[J-1]=X
2030  NEXT J
2040  NEXT I
2050  PRINT E;"CUSTS TO BE PRINTED"
2055  PRINT "READY";
2060  INPUT A$
3000  FOR I=1 TO 3
3010  FOR J=1 TO 4
3011  PRINT J
3012  NEXT J
3013  PRINT 
3014  PRINT 
3015  FOR J=1 TO 1000
3016  NEXT J
3017  NEXT I
3020  FOR E0=1 TO E
3022  A0=E[E0]
3025  GOSUB 5300
3030  NEXT E0
3040  END 
4700  J=1
4705  Z$=""
4710  FOR I=I1 TO LEN(T$)
4715  F2=1
4720  IF T$[I,I]='17 THEN 4780
4725  F2=2
4730  IF T$[I,I]='18 THEN 4780
4735  Z$[J,J]=T$[I,I]
4740  J=J+1
4742  IF B3 THEN 4765
4745  IF T$[I,I]="." THEN 4755
4750  IF T$[I,I]#"," THEN 4765
4755  Z$[J,J]=" "
4760  J=J+1
4765  NEXT I
4770  F2=3
4780  RETURN 
4900  X=INT(D[M1,1]/100)
4902  READ #3,4
4905  FOR J1=1 TO 52
4907  READ #3;X1
4910  IF X<X1 THEN 4925
4920  NEXT J1
4925  READ #3,2
4930  FOR J=1 TO J1
4935  READ #3;Z$
4940  NEXT J
4950  RETURN 
5300  REM
5305  X=A0
5307  RESTORE 245
5310  FOR M=1 TO G8
5312  READ A$
5315  IF X<401 THEN 5340
5320  X=X-400
5325  NEXT M
5330  T$=""
5335  GOTO 5397
5340  M0=INT(X/2)
5345  M1=2
5350  IF M0*2=X THEN 5365
5355  M0=M0+1
5360  M1=1
5365  ASSIGN A$,2,W5
5390  READ #2,M0;S$,D[1,1],D[1,2],T$,D[2,1],D[2,2]
5392  IF M1=2 THEN 5397
5395  T$=S$
5397  REM
5400  I1=1
5405  F0=P9=0
5410  GOSUB 4700
5415  GOTO F2 OF 5420,5440,5465
5420  PRINT Z$;
5421  IF F0 THEN 5425
5422  PRINT "   ";A0;
5423  F0=1
5425  PRINT 
5426  P9=P9+1
5427  IF P9=4 THEN 5510
5430  I1=I+1
5435  GOTO 5410
5440  PRINT Z$;
5445  IF D[M1,1]=0 THEN 5425
5450  GOSUB 4900
5455  PRINT ", ";Z$;D[M1,1];
5460  GOTO 5425
5465  IF Z$="" THEN 5490
5470  PRINT "ATTN: ";Z$
5480  P9=P9+1
5490  IF P9 >= 4 THEN 5510
5495  PRINT 
5500  GOTO 5480
5510  PRINT 
5520  PRINT 
5530  RETURN 
9999  END 
