Здравствуйте,
пожалуйста подскажите решение следующей проблеммы возникшей у меня при переходе с терминала Cache под Windows на терминал под Unix:

;---чтение клавиш в окружении Env
readKey(Env)
;s $zt="errf"
i $g(Env)="" s Env=$$DBMS^ZClass
n esc,key,keyExt1,keyExt2,keyExt3,keyExt4,res
s esc=$c(27) u $io:("":"S":esc)
i Env="DTM" d
.r *key
.s res=key
i Env="CACHE" d
.;s esc=$c(27) u $io:("":"S":esc)
.r *key i $zb=esc u $io:("":"S":esc)
.r *keyExt1:0
.i keyExt1=91!79 r *keyExt2:0
.r *keyExt3:0
.r *keyExt4:0
.s res=$g(key)_$g(keyExt1)_$g(keyExt2)_$g(keyExt3)
.;u $io:("":"S")
u $io:("":"S")
s res=$g(res)
q res

Данный код предназначен для считывания и возвращения кода клавиши в зависимости от среды в которой вызывается DTM или CACHE в UNIX терминале от не работает.

Вопрос: ЧТО ДЕЛАТЬ!!!!!!!!!!!!!!!!!!!!!!!