%externalstring(1)%fnspec hdx1(%integer i)
%externalstring(2)%fnspec hdx2(%integer i)
%externalstring(4)%fnspec hdx4(%integer i)

%externalintegerfnspec hdx to i(%string(255) s)

!%externalroutinespec pxb(%integer what)
%externalstring(2)%fnspec itox2(%integer what)

%externalroutinespec upper case(%string(*)%name s)

%externalroutinespec zap login(%string(*)%name text) 

%externalintegerfnspec pack(%string(255) s, %integername p1, p2)
%externalstring(31)%fnspec unpack(%integer p1, p2)

%externalintegerfnspec encrypt(%string(255) pass)
!%externalstring(255)%fnspec endecrypt(%string(255)owner,pass,%integer en)

%externalroutinespec bulk move(%integer bytes, %bytename from, to)

%externalroutinespec trace(%integer context, inout, %string(255) text)

%externalroutinespec iof
%externalroutinespec ion

%externalintegerfnspec claim buffer
%externalroutinespec release buffer(%integer which)

%externalroutinespec pdate

%externalroutinespec time stamp(%shortname date, time)

%externalshortfnspec pack date(%string(255) date)
%externalshortfnspec pack time(%string(255) time)

%externalstring(15)%fnspec unpack date(%short date)
%externalstring(15)%fnspec unpack time(%short time)

%end %of %file