TKINT11A ;PG&A,TK-CONFIG,2.23,CRT DEFINITION  (QVT119);26OCT92 11:23P [ 11/22/2000  2:07 PM ]
 ;Copyright (C) 1987, Patterson, Gray and Assoc., Inc.
BEG S OS=$S($D(^TK("OS")):^("OS"),1:"") Q:OS=""  S A=$T(DATA),T=$P(A,";",2) W !?5,$P(A,";",3),?50,"Initialize? (Y or N) " R A#5 S A=$E(A) Q:A=""!("Yy"'[$E(A))  W !,?8,"Initializing ",T S M=0,^TK(0,T,M)="",H=""
 S A="" ; F B=1:1:4 S A=A_$C(27,77,48+B,$P("28`29`21`31","`",B),0,0,0) ;change cursor set keys
 ; S I=17 F B=64:1:64+9,64+13:1:64+15,96,98,100,101,104 S A=A_$C(27)_"K1"_$C(B,1,27,91)_I_$C(126,1),I=I+1
 S ^TK(0,T,"SET")=A
 F I=1:1 S A=$T(DATA+I) Q:A=""  S C=$P(A,";",2,99) F J=1:2:$L(C,"\")-1 S D=$P(C,"\",J),E=$P(C,"\",J+1),X="X="_E,@X,^TK(0,T,D)=X W "." S Y=",TK("""_D_""")="_E S:$L(H)+$L(Y)>240 ^(M)="S "_$E(H,2,255),M=M+1,H="" S H=H_Y
 S:H'="" ^(M)="S "_$E(H,2,255),^("fon")=$C(27,80,59,124,47),^("fof")=$C(27,47,254)
 S ^("fost")="S X=$C(P4>58*1+P4+33,P1>58*1+P1+33,P2>58*1+P2+33)",^("foft")="S P4=$A(JJ)>92*-1+$A(JJ)-33,P1=$A(JJ,2)>92*-1+$A(JJ,2)-33,P2=$A(JJ,3)>92*-1+$A(JJ,3)-33,P3=0"
FNC S ^TK(.1,T,1)="D:'$D(TK(""z"")) INIT^TKINT11A"
 S ^(2)="27,91,50,57,126`27,91,50,56,126`27,91,50,55,126`27,91,50,49,126`27,91,51,50,126`27,91,49,57,126`27,91,51,49,126`27,91,50,51,126`27,25`27,91,49,55,126`27,91,51,48,126`27,91,50,48,126`27,91,50,50,126`27,91,51,51,126`30"
 S ^(3)="```````````````27,91,49,56,126`27,91,50,53,126`27,91,51,52,126`27,91,50,54,126`23`27,91,50,52,126`27,84```27,114`1`27,91,50,52,126`27,91,50,52,126"
 S ^(5)="F16`F15`F14`F5`SHIFT F5`F3`SHIFT F3`F7`SHIFT TAB`F1`SHIFT F1`F4`F6`SHIFT F6`HOME",^(6)="```````````````F2`F9`SHIFT F9`F10`CTRL W`F8`SCRN CLR`INS`DEL`CTRL E`CTRL A`F8`SHIFT F8"
CLNUP D @(OS_"^TKINTRM") Q
INIT U 0:0 S I=17 F B=64:1:64+9,64+13:1:64+15,96,98,100,101,104,80,81 W $C(27),"K1",$C(B,1,27,91),I,$C(126,1) S I=I+1
 F B=74,75,76,97,99,102,103,105:1:111 W $C(27),"K1",$C(B),$C(1,23,1)
 S TK("z")=1 Q
 ;
DATA ;Q119PC;Qume QVT119 with PC char set
 ;C\$C(56,48)\CL\$C(27,84)\CS\$C(27,89)\D\$C(10)\DL\$C(27,87)\F\$C(27,43)\HI\$C(27,40)\IL\"$C(27,69)"\DT\"$C(27,82)"\
 ;H\$C(30)\IN\$C(27,81)\L\$C(8)\LI\$C(109)\LO\$C(27,41)\P\"$C(27,61,%R+31,%C+31)"\R\$C(50,52)\RI\$C(108)\ROF\""\RON\""\RT\$C(12)\SET\^("SET")\a\$C(27,71,52,96,27,71,48,96,27,71,56,96,27,71,48)
 ;U\$C(11)\UF\""\UO\""\V\$C(49)\VL\$C(106)\X\$C(105)\
 ;Z\$C(27,71,48,27,40)\SR\""\CSR\""\
 ;UK\$C(11)\DK\$C(10)\LK\$C(8)\RK\$C(12)\INK\$C(27,91,51,53,126)\DLK\$C(27,91,51,54,126)
 ;BI\$C(193)\BLC\$C(192)\BRC\$C(217)\G0\""\G1\""\
 ;LI\$C(195)\HL\$C(196)\RI\$C(180)\TI\$C(194)\TLC\$C(218)\TRC\$C(191)\
 ;VL\$C(179)\X\$C(197)\