

{  18/7/87  21:28   utils.inc}

%externalroutinespec append cell(%record(*)%name r,l)
%externalpredicatespec belongs(%string(80) s,%record(line80listf)%name l)
%externalroutinespec concat lists(%record(*)%name l,m)
%externallong%realfnspec cos(%long%real x)
%externalstring(255)%fnspec ddate
%externalroutinespec decincr(%string(*)%name a)
%externalroutinespec delete(%string(255) s)
%externalroutinespec delete list(%record(*)%name l)
%externalintegerfnspec dtoi(%string(255) s)
%externalroutinespec excise cell(%record(*)%name q,l)
%externalpredicatespec exists(%string(63) s)
%externalstring(255)%fnspec fixfile(%string(255) f,%string(15) dir,
%string(3) ext)
%externalroutinespec get line(%string(*)%name a)
%externalintegerfnspec htoi(%string(255) s)
%externalroutinespec insert cell after(%record(*)%name q,p,l)
%externalroutinespec insert cell before(%record(*)%name q,p,l)
%externalstring(255)%fnspec itod(%integer l)
%externalstring(255)%fnspec itoh(%integer l)
%externalintegerfnspec list length(%record(*)%name l)
%externalroutinespec listout(%record(*)%name a,%string(255) s)
%externalroutinespec lower(%string(*)%name s)
%externalroutinespec memed(%string(255) s)
%externalroutinespec message(%string(255) s,%string(15) mon)
%externalstring(255)%fnspec pad(%string(255) s,%integer leng,pad)
%externalroutinespec prefix cell(%record(*)%name r,l)
%externalroutinespec purge string(%string(*)%name a,%byteinteger char)
%externalroutinespec rename(%string(255) old,new)
%externalstring(255)%fnspec rtod(%long%real x,%integer intgr,frac)
%externalstring(255)%fnspec rtofl(%long%real x,%integer p)
%externalstring(255)%fnspec seqno
%externalroutinespec set up(%string(*)%name a,%string(31) lvar,var,
  %string(255) errmess,%record(line80listf)%name values)
%externallong%realfnspec sin(%long%real x)
%externallong%realfnspec tan(%long%real x)
%externallong%realarrayspec tentothe(-38:38)
%externalintegerfnspec toid(%byteintegerarray(1)%name b, %c
  %integer max,%integername p)
%externalintegerfnspec toih(%byteintegerarray(1)%name b, %c
  %integer max,%integername p)
%externalintegerfnspec tois(%byteintegerarray(1)%name b, %c
  %integer max,rad,%integername p)
%externallong%realfnspec tor(%byteintegerarray(1)%name b,  %c
  %integer max,%integername p)
%externalstring(255)%fnspec tos(%byteintegerarray(1)%name b, %c
  %integer max,%integername p)
%externalstring(255)%fnspec tow(%byteintegerarray(1)%name b, %c
  %integer max,%integername p)
%externalintegerarrayspec twotothe(0:31)
%externalroutinespec upper(%string(*)%name s)


%endoffile
