! Please change the above line to include "ECSLIB.INCLUDE_UTIL" <<<<<<<<<<<<<<<<
! Useful pre-definitions for portable Imp programs

%external %string (15) %fn %spec Date
%external %string (15) %fn %spec Time
%dynamic %string (255) %fn %spec ItoS %alias "IMP_I_TO_S" (%integer I, P)
%dynamic %string (255) %fn %spec RtoS %alias "IMP_R_TO_S" (%long %real R,
                                                           %integer A, B)
%dynamic %integer %fn      %spec StoI %alias "IMP_S_TO_I" (%string (255) S)
%dynamic %integer %fn      %spec REM  %alias "IMP_REM"    (%integer A, B)

%external %routine %spec Prompt (%string (63) STR)

! Lattice Imp stream handling facilities

%dynamic %routine %spec Open Input  %alias "IMP_OPEN_INPUT" (%integer S,
                                                             %string (255) ST)
%dynamic %routine %spec Close Input %alias "IMP_CLOSE_INPUT"
%dynamic %routine %spec Reset Input %alias "IMP_RESET_INPUT"
%dynamic %integer %fn %spec Input Stream %alias "IMP_INPUT_STREAM"
%dynamic %string (255) %fn %spec Input Name %alias "IMP_INPUT_NAME"

%dynamic %routine %spec Open Output  %alias "IMP_OPEN_OUTPUT" (%integer S,
                                                               %string (255) ST)
%dynamic %routine %spec Close Output %alias "IMP_CLOSE_OUTPUT"
%dynamic %routine %spec Reset Output %alias "IMP_RESET_OUTPUT"
%dynamic %integer %fn %spec Output Stream %alias "IMP_OUTPUT_STREAM"
%dynamic %string (255) %fn %spec Output Name %alias "IMP_OUTPUT_NAME"

! Transient?
%dynamic %routine %spec Set Default %alias "IMP_SET_DEFAULT" (%string (63) S)