00100	PROGRAM OBJASC ( F*, OUTPUT );
00200	 
00300	VAR  B,N,I: INTEGER;  CH: CHAR;
00400	     F: FILE OF INTEGER;
00500	 
00600	  PROCEDURE ERROR ( N: INTEGER );
00700	    BEGIN   WRITELN ( TTY,'*** ERROR',N:3,' ***');
00800	    END;
00900	 
01000	  BEGIN
01100	    LOOP   WHILE NOT EOF(F) AND (F^<>1) DO GET(F);
01200	    EXIT IF EOF(F);
01300	      GET(F);   IF F^<>0 THEN ERROR(1);  GET(F);
01400	      N:=F^;   GET(F);  IF F^<>0 THEN ERROR(2);  GET(F);
01500	      FOR I:=5 TO N DO
01600		BEGIN
01700		  WRITE(CHR(F^ DIV 16 +48), CHR(F^ MOD 16 +48));
01800		  GET(F);
01900		END;
02000	     GET(F);   GET(F);    (* CHECKSUM *)
02100	      WRITELN;
02200	    END
02300	  END.