"Please use INC:UTIL.IMP instead of I:UTIL.INC"
%endoffile
%externalroutinespec READLINE(%string(*)%name s)
@16_10D4%integerfn TESTSYMBOL
%externalroutinespec PRINTLINE(%string(255) s)
%externalstring(255)%mapspec CLIPARAM
%recordformat paminfo(%byte GROUPSEP,KEYFLAG, %short allflags,
                      %record(*)%name params)
%external%record(paminfo)%mapspec PAM
%constinteger PAM NEWGROUP=1, PAM NODEFAULT=2, PAM MAJOR=4, PAM KEEPCASE=8,
              PAM INFILE=16, PAM OUTFILE=32
%external%routinespec DEFINE PARAM %alias "PAM_DEFSTRING" %c
          (%string(255) text, %string(*)%name variable, %integer flags)
%external%routinespec DEFINE INT PARAM %alias "PAM_DEFINT" %c
          (%string(255) text, %integername variable, %integer flags)
%external%routinespec DEFINE ENUM PARAM %alias "PAM_DEFENUM" %c
          (%string(255) text, %bytename variable, %integer flags)
%external%routinespec DEFINE BOOLEAN PARAMS %alias "PAM_DEFBOOL" %c
          (%string(255) text, %integername variable, %integer flags)
%external%routinespec PROCESS PARAMETERS %alias "PAM_PROCESS"(%string(255) parm)
%external%string(255)%fnspec ITOS(%integer v,p)
%external%string(255)%fnspec RTOS(%real R, %integer BP, AP)
%external%integer%fnspec STOI(%string(255) s)
%externalstring(8)%fnspec DATE
%externalstring(5)%fnspec TIME
%externalroutinespec CONNECT FILE(%string(255) f, %integer mode,
                                %integername start,len)
@16_118C%routine PHEX1(%integer x)
@16_1190%routine PHEX2(%integer x)
@16_1194%routine PHEX4(%integer x)
@16_1198%routine PHEX(%integer x)
@16_119C%integerfn HEX
%routine RHEX(%integername x)
  x = hex
%end
%list