TKINT02 ;PG&A,TK-CONFIG,2.23,CRT DEFINITION  (VT100);8JUL91 4:01P [ 11/22/2000   2:29 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=""
 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,49,125),^("fof")=$C(27,92,183)
 S ^("fost")="S X=$C(P4>94*32+P4+33,P1>94*32+P1+33,P2>94*32+P2+33,P3>94*32+P3+33)",^("foft")="S P4=$A(JJ)>159*-32+$A(JJ)-33,P1=$A(JJ,2)>159*-32+$A(JJ,2)-33,P2=$A(JJ,3)>159*-32+$A(JJ,3)-33,P3=$A(JJ,4)>159*-32+$A(JJ,4)-33"
FNC S ^TK(.1,T,1)="W $C(27),""(B"",$C(27),"")0""",^(7)="W $C(27,91),""?3h""\W $C(27,91),""?3l"""
 S ^(2)="27,79,116`27,79,119`6`8`10`27,79,112`27,79,110`27,79,114`27,79,115`27,79,80`27,79,81`27,79,118`27,79,108`27,79,109`27,79,117"
 S ^(3)="```````````````27,79,121`27,79,77`27,79,113`27,79,83`23`27,79,82`27,79,120```5`1`27,79,108`27,79,109"
 S ^(5)="Keypad 4`Keypad 7`CTRL F`Backspace`Linefeed`Keypad 0`Keypad .`Keypad 2`Keypad 3`PF1`PF2`Keypad 6`Keypad ,`Keypad -`Keypad 5"
 S ^(6)="```````````````Keypad 9`Keypad ENTER`Keypad 1`PF4`Ctrl W`PF3`Keypad 8`Ctrl Z`Ctrl D`Ctrl E`Ctrl A`Keypad ,`Keypad -"
CLNUP D @(OS_"^TKINTRM") Q
 ;
DATA ;VT100;DEC VT100 Basic
 ;BO\$C(27,91,53,109)\BI\$C(118)\BLC\$C(109)\BF\$C(27,91,50,53,109)\BRC\$C(106)\C\$C(56,48)\CL\$C(27,91,75)\CS\$C(27,91,74)\D\$C(27,91,66)\DL\""\F\$C(27,91,50,74,27,91,72)\H\$C(27,91,72)\
 ;G0\$C(15)\G1\$C(14)\HI\$C(27,91,49,109)\HL\$C(113)\IN\""\L\$C(27,91,68)\LI\$C(116)\LO\$C(27,91,48,59,109)\P\"$C(27,91)_%R_"";""_%C_""H"""\
 ;R\$C(50,52)\RI\$C(117)\ROF\$C(27,91,48,109)\RON\$C(27,91,55,109)\RT\$C(27,91,67)\SET\$C(27,41,48,27,61)\TI\$C(119)\TLC\$C(108)\TRC\$C(107)\U\$C(27,91,65)\
 ;UF\$C(27,91,59,109)\UO\$C(27,91,52,109)\V\$C(49)\VL\$C(120)\X\$C(110)\Z\$C(27,91,59,49,109)\IL\"$C(27,91)_%R_"";24r""_$C(27,91)_%R_$C(72,27,77,27)_""[2;22r""_$C(27,91)_%R_$C(72,13)"
 ;DT\"$C(27,91)_%R_"";24r""_$C(27)_""[24;1H""_$C(13,10,27)_""[2;22r""_$C(27,91)_%R_"";1H"""\SR\"$C(27,91)_%R_"";""_%C_""r"""\CSR\"$C(27,91,114)"
 ;UK\$C(27,91,65)\DK\$C(27,91,66)\RK\$C(27,91,67)\LK\$C(27,91,68)\INK\$C(26)\DLK\$C(4)