
{  1/9/87  10:21   inc:util.imp}

{Modified by Sto avoid duplicate deinitions}

%option "-LOW"
{Utility procedures}
@16_3F00-24 %integer%fn MULDIV(%integer a,b,c)

{Environment enquiry}
%system%integer%fn%spec FREESTORE
%system%string(15)%fn%spec DATE
%system%string(15)%fn%spec TIME
%system%string(31)%fn%spec DATETIME

{Heap}
%external%integer%fn%spec HEAPGET(%integer x)
%external%routine%spec HEAPPUT(%integer x)
%external%routine%spec MARK
%external%routine%spec RELEASE

{Files}
%external%string(255)%fn%spec INFILENAME
%external%string(255)%fn%spec OUTFILENAME
%external%routine%spec OPENAPPEND(%integer stream,%string(255)file)
%external%routine%spec CLOSEAPPEND
%external%integer%fn%spec FILESIZE(%string(255)file)
%external%string(255)%fn%spec NINFO(%string(255)file)
%external%routine%spec CONNECT FILE %c
 (%string(255) fname, %integer mode, %integer%name start,limit)
%external%routine%spec COPY(%string(255)from,to)
%external%routine%spec PERMIT(%string(255)file,perms)
%external%routine%spec UNPACK FINFO(%string(255)s,%record(finfof)%name r)
