Anonymous

=         if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)       }     }     else {       %current = $iif($mid($1-, %i, 1) == ., 0, 1)       if (%previous != %current) {         %previous = %current         if (%curcolor) {           if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor           else %res = %res $+ $chr(3)         }         else %res = %res $+ $chr(22)       }       %res = %res $+ $chr(160)     }     inc %i   }   return %res