PROGRAM PROBJ(INOBJ,OUTPUT);
LABEL 10;
VAR INOBJ:TEXT;
    I,J,NUM:INTEGER;
BEGIN
RESET(INOBJ,'OBJFILE.SEG');
WHILE NOT EOF(INOBJ) DO BEGIN
  FOR J:=1 TO 8 DO BEGIN
    NUM:=0;
    FOR I:=1 DOWNTO 0 DO BEGIN
      NUM:=LOR(SHIFT(ORD(INOBJ^),I*8,NUM);
      GET(INOBJ);
      IF EOF(INOBJ) THEN BEGIN
        WRITE(NUM:4:-16);
        GOTO 10;
      END;
      WRITE(NUM:4:-16);
    END;
  10:
  WRITELN;
END;
END.