Line Wrapping

var am,xx,ii,tt;
  am = 1;
  xx = 0;
  ii = 0;
  str[ 1 ] = '';
  var i;
  for(i=1;i<string_length(argument0) + 1;i=i+1)
  {
    str[ am ] = str[ am ] + string_char_at( argument0 , i );
    xx = xx + string_width( string_char_at( argument0 , i ) );
    ww = string_width( string_char_at( argument0 , i + 1 ) );
    if xx + ww > room_width or string_char_at( argument0 , i ) == chr( 10 )
    {
      xx = 0;
      am = am + 1;
      ii = i;
      str[ am ] = '';
    }
  }
  str[ am ] = string_copy( argument0 , ii , i - ii );