perm filename TINIT.SAI[LIB,AIL] blob sn#408151 filedate 1979-01-09 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	entry !t!i!n!i!t,!T!T!Y
C00003 ENDMK
CāŠ—;
entry !t!i!n!i!t,!T!T!Y;
begin "tinit"
   define library!entry = true;
   require "sys:std.hdr" source!file;
   internal integer !t!t!y, !t!e!o!f;
   simple internal procedure !t!i!n!i!t;
      !t!t!y := OpenIn("tty:",!t!e!o!f);
end "tinit"