TKINT09 ;PG&A,TK-CONFIG,2.23,CRT DEFINITION  (HP2392A);17DEC87 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 z=$C(27),a=$C(27,38,107,49,92,27,91,62,49,49,27,41,48,27,61)
 S a=a_z_"&f0a1k4d3LHelp"_z_"[E"_z_"&f0a2k12d3LInsert  Char"_z_"[F"_z_"&f0a3k12d3LRemove  Char"_z_"[G"_z_"&f0a4k4d3LExit"_z_"[H"
 S a=a_z_"&f0a5k12d3LInsert  Line"_z_"[I"_z_"&f0a6k12d3LRemove  Line"_z_"[J"_z_"&f0a7k13d3LClear   L/P/D"_z_"[K"_z_"&f0a8k16d3LCopy/   Move/Ins"_z_"[L"_z_"&jB"
 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)="",^(7)="\\$C(27,91)_""4h""\$C(27,91)_""4l"""
 S ^(2)="27,79,113`27,79,116`27,79,119`27,79,115`27,79,118`27,91,73`27,91,74`27,91,75`27,79,109`27,91,69`27,79,83`27,91,76`27,79,120`27,79,121`27,79,114"
 S ^(3)="```````````````27,79,80`27,79,77`27,79,108`27,91,72`27,79,112`27,79,81`27,79,117```27,79,110`27,79,82`27,79,109`27,79,108"
 S ^(5)="keypad 1`keypad 4`keypad 7`keypad 3`keypad 6`f5`f6`f7`keypad -`f1`PF4`f8`keypad 8`keypad 9`keypad 2"
 S ^(6)="```````````````PF1`kepad ENTER`keypad ,`f4`keypad 0`PF2`keypad 5`f2`f3`keypad .`PF3`keypad -`keypad ,"
CLNUP D @(OS_"^TKINTRM") Q
 ;
DATA ;HP2392A;Hewlett-Packard HP2392A ANSI Mode
 ;BI\$C(118)\BLC\$C(109)\BRC\$C(106)\C\$C(56,48)\CL\$C(27,91,75)\CS\$C(27,91,74)\D\$C(27,91,66)\DL\$C(27,91,80)\F\$C(27,91,50,74,27,91,72)\G0\15\G1\14\IL\"$C(27,91,76)"\DT\"$C(27,91,77)"
 ;H\$C(27,91,72)\HI\$C(27,91,48,109)\HL\$C(113)\IN\""\L\$C(27,91,68)\LI\$C(116)\LO\$C(27,91,49,109)\P\"$C(27,91)_%R_"";""_%C_""H"""\
 ;R\$C(50,52)\RI\$C(117)\ROF\$C(27,91,48,59,49,109)\RON\$C(27,91,55,109,0,0)\RT\$C(27,91,67)\SET\^("SET")\TI\$C(119)\TLC\$C(108)\TRC\$C(107)\
 ;U\$C(27,91,65)\UF\$C(27,91,48,59,49,109)\UO\$C(27,91,52,109,0,0)\V\$C(49)\VL\$C(120)\X\$C(110)\Z\$C(27,91,48,59,49,109)\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(27,91,70)\DLK\$C(27,91,71)