-+-+-+-+-+-+-+-+ START OF PART 3 -+-+-+-+-+-+-+-+
X`009`009ungetc(in_char,tcfp);
X`009`009break;
X`009`125
X`125
$ CALL UNPACK TC2TT.C;3 774099670
$ v=f$verify(v)
$ EXIT