%from IMP %include FORMATS, Streams, Depio

%external %routine Open Input %alias "3L_IMP_OPEN_INPUT" -
                           (%integer Stream, %string(255) File)
   Push  Input Stream(Stream, Open SCB(File, 0!0, -1, 1024))
%end

%external %routine Open Binary Input %alias "3L_IMP_OPEN_BINARY_INPUT" -
                           (%integer Stream, %string(255) File)
   Push  Input Stream(Stream, Open SCB(File, 2!0, -1, 1024))
%end