cQCV ;Convert Characters ;cQCV; [ 01/03/01  6:17 PM ]
 G YZ
 ;
NT2D(K) ;from Iso-Latin-1 to 850-multilingual
 N From,I,To
 S (From,To)="" F I=128:1:255 S From=From_$C(I)
 S To=$C(32,32,32,32,32,32,32,32,32,32,32,32)
 S To=To_$C(32,32,32,32,32,32,32,32,32,32,32,32)
 S To=To_$C(32,32,32,32,32,32,32,32,32,173,189,156)
 S To=To_$C(207,190,221,245,249,184,166,174,170,240,169,238)
 S To=To_$C(248,241,253,252,239,230,244,250,247,251,167,175)
 S To=To_$C(172,171,243,168,183,181,182,199,142,143,146,128)
 S To=To_$C(212,144,210,211,222,214,215,216,209,165,227,224)
 S To=To_$C(226,229,153,158,157,235,233,234,154,237,232,225)
 S To=To_$C(133,160,131,198,132,134,145,135,138,130,136,137)
 S To=To_$C(141,161,140,139,208,164,149,162,147,228,148,246)
 S To=To_$C(155,151,163,150,129,236,231,152)
 Q $TR(K,From,To)
 ;
D2NT(K) ;from 850-multilingual to Iso-Latin-1
 N From,I,To
 S (From,To)="" F I=128:1:255 S From=From_$C(I)
 S To=$C(199,252,233,226,228,224,229,231,234,235,232)
 S To=To_$C(239,238,236,196,197,201,230,198,244,246,242)
 S To=To_$C(251,249,255,214,220,248,163,216,215,131,225)
 S To=To_$C(237,243,250,241,209,170,186,191,174,172,189)
 S To=To_$C(188,161,171,187,32,32,32,32,32,193,194)
 S To=To_$C(192,169,32,32,32,32,162,165,32,32,32)
 S To=To_$C(32,32,32,134,227,195,32,32,32,32,32)
 S To=To_$C(32,135,164,240,208,202,203,200,49,205,206)
 S To=To_$C(207,32,32,32,32,166,204,32,211,223,212)
 S To=To_$C(210,245,213,181,254,222,218,219,217,253,221)
 S To=To_$C(175,146,173,177,32,190,182,167,247,130,176)
 S To=To_$C(168,183,185,179,178,149,32)
 Q $TR(K,From,To)
 ;
YZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8