INTEGER FUNCTION PACK (RSTRING, STRING, MAX0)
      INTEGER STRING(10000), RSTRING(MAX0)
      I = 1
23000 IF(.NOT.(I .LT. MAX0))GOTO 23002
      BYTE(STRING,I) = RSTRING(I)
      IF(.NOT.(RSTRING(I) .EQ. 10002))GOTO 23003
      GOTO 23002
23003 CONTINUE
23001 I = I + 1
      GOTO 23000
23002 CONTINUE
      BYTE(STRING,I) = 0
      PACK=(I-1)
      RETURN
      END