!
! >> IMP STRING <<
!
! Returns an IMP string containing the characters in memory
! starting at the given address and finishing at a 0-byte
! (not included) or when the string gets too big.
!
%external %string(255) %function Imp String %alias "3L_IMP_IMP_STRING" -
                                          ( %integer Start Address )
   %byte %name P == Byte(Start Address)
   %string(255) Result = ""
   %while P # 0 %and Length(Result) # 255 %cycle
      Result = Result . P
      P == P[1]
   %repeat
   %result = Result
%end