или вот так:

Sergey M. 29.03.2005 17:15

@ascii[symb][i]
^if(!def $ascii){$ascii[^process{^for[i](1;255){^^#^i.format[%02X]}}]}
$result(^ascii.pos[$symb] + 1)

@char[code][i]
^if(!def $ascii){$ascii[^process{^for[i](1;255){^^#^i.format[%02X]}}]}
$result[^ascii.mid(^code.int(0) - 1;1)]

никак не получается вставить в строку ^#00, ошибка синтаксиса... :(

---