TKINT11 ;PG&A,TK-CONFIG,2.23,CRT DEFINITION  (QVT101);12JUN92 1:16P
 ;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
 F B=49:1:75 S A=A_$C(27,124,B,49,27,91,65+B-49,25)
 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)
FNC S ^TK(.1,T,1)=""
 S ^(2)="14`16`6`18`4`27,91,66`27,91,70`27,91,74`20`10`27,91,68`27,91,67`27,91,71`27,91,75`26",^(3)="```````````````7`27,91,76`27,91,73`11`8`27,91,72`30```12`1`27,91,71`27,91,75"
 S ^(5)="Ctrl N`Ctrl P`Ctrl F`Ctrl R`Ctrl D`PF2`Shift PF2`Ctrl PF2`Ctrl T`Linefeed`PF4`PF3`Shift PF3`Ctrl PF3`Shift Home (Clear)"
 S ^(6)="```````````````Ctrl G`Ctrl PF4`Ctrl PF1`Shift Linefeed`Backspace`Shift PF4`Home`PF1`Shift PF1`Shift Backspace`Ctrl A`Shift PF3`Ctrl PF3"
 S ^(7)="\\"
CLNUP D @(OS_"^TKINTRM") Q
 ;
DATA ;QVT101;Qume QVT101
 ;BI\$C(111)\BLC\$C(101)\BRC\$C(104)\C\$C(56,48)\CL\$C(27,84)\CS\$C(27,89)\D\$C(10)\DL\$C(27,87)\F\$C(27,42)\G0\$C(27,37)\G1\$C(27,36)\H\$C(30)\HI\$C(27,40)\HL\$C(107)\IL\"$C(27,69)"\DT\"$C(27,82)"\
 ;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")\
 ;TI\$C(110)\TLC\$C(102)\TRC\$C(103)\U\$C(11)\UF\""\UO\""\V\$C(49)\VL\$C(106)\X\$C(105)\
 ;Z\$C(27,71,48,27,40)\SR\""\CSR\""\a\$C(27,71,52,96,27,71,48,96,27,71,56,96,27,71,48)
 ;UK\$C(28)\DK\$C(29)\LK\$C(21)\RK\$C(31)\INK\$C(27,91,65)\DLK\$C(27,91,69)