%externalintegerfnspec heapget(%integer need)
%externalroutinespec heapput(%integer pos)
%externalroutinespec heapinit(%integer size)
%externalrecord(*)%mapspec new(%integer size)
%externalroutinespec dispose(%record(*)%name n)
%externalroutinespec heapanal
%externalintegerfnspec freestore
%endoffile
