TKFAXZ ;Data-M,1.00,CONVERT DOCUMENT; [ 10/24/95  10:46 AM ]
 ;
REVERS G S2:'$D(@TKWPD@(.015)) S TK=^(.015) G S2:'$D(^TK(0,TK)) S X=$S($E(^(TK,"Z"))'=$C(27):$A(^("Z")),1:127)
 S TK("rof")=^("ROF"),TK("ron")=^("RON"),TK("uo")=^("UO"),TK("uf")=^("UF") I TK("ron")="" S TK("uo")=^("LO")_$C(X,X),TK("uf")=^("HI")_$C(0,X),TK("ron")=^("LO")_$C(X,0),TK("rof")=^("HI")_$C(0,0)
 S TK("gon")=^("G1"),TK("gof")=^("G0"),XS=$E(TK("uo"))
 I TK("gon")'[XS S TK("gon")=$S(TK["VT":$C(27,62,127,127),TK["DTM":$C(255,76,70,127),TK["MSM":$C(27,2,2,2,2),TK["IBMPC":$C(27,25,0),1:$C(27,127))_TK("gon")
 I TK("gof")'[XS S TK("gof")=$S(TK["VT":$C(27,62,127,127),TK["DTM":$C(255,76,70,128),TK["MSM":$C(27,2,2,2,4),TK["IBMPC":$C(27,25,2),1:$C(27,128))_TK("gof")
 S TK("fon")=$S($D(^TK(0,TK,"fon")):^("fon"),1:"[("),TK("fof")=$S($D(^("fof")):^("fof"),1:")]") I TK("fon")="[(" D:'$D(^TK(0,TK,"foft")) FOS
 S XSL=0 F I="uo","uf","ron","rof","gon","gof" I $L(TK(I))>XSL S XSL=$L(TK(I))
 S X=$C(X,X,X,X) F I="uo","uf","ron","rof","gon","gof" S TK(I)=$E(TK(I)_X,1,XSL)
 K X,CA N FR,TO S FR=TK,TO=$P(DVP,"\",5) D:TO'="" CHARSET^TKINIT2
 Q
 ;
S2 S (XS,TK("uo"),TK("uf"),TK("ron"),TK("rof"),TK("gon"),TK("gof"))=$C(27),XSL=1 Q
 ;
FOS S ^("fost")="S X=$C(P4+33#255,P1+33#255,P2+33#255,P3+33#255)",^("foft")="S P4=$A(JJ)-33,P1=$A(JJ,2)-33,P2=$A(JJ,3)-33,P3=$A(JJ,3)-33" Q