%from IMP %include FORMATS, Streams, Depio

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

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