!
! >>> HEAP STRING <<<
!
! Returns a pointer to a string on the heap with the contents passed to us
! by parameter.
!
%from IMP %include Heap

%external %string(*) %map Heap String %alias "3L_IMP_HEAP_STRING" -
                                    ( %string(255) S )
   %integer Ad = Get Space(Length(S)+1)
   String(Ad) = S
   %result == String(Ad)
%end