! I/O package procedure specs added
%end %of %list
%external %routine %spec  OPEN %alias "IO$OPEN" %c
                               (%string(*) %name s, %integer stream)
%external %routine %spec  DIR FN %alias "IO$DIRFN" %c
                               (%record(sdfm)%name x, %integer func)
%external %routine %spec  DEV FN %alias "IO$DEVFN"  %c
                               (%record(sdfm) %name x, %integer func)
%external %routine %spec  FLUSH OUT %alias "IO$FLUSH"
%external %routine %spec  SET EOT   %alias "IO$SETEOT" (%integer buffad)
%external %predicate %spec  GOT SYM %alias "IO$GOTSYM"
%external %predicate %spec  PARSE   %alias "IO$PARSE" %c
                                 (%string(*)%name file, %record(sdfm)%name t)
%external %integer %function %spec  CHECK %alias "IO$CHECK" %c
                                          (%integer sno, min)
%external %string(12) %function %spec  CONSTRUCT %alias "IO$CONS" %c
                                                 (%record(sdfm)%name d)
%list
%end %of %file