TKINT04 ;PG&A,TK-CONFIG,2.23,CRT DEFINITION  (AMPEX 230+);14AUG91 4:29P [ 11/22/2000  2:01 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) S ^("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),"".A1"" R J:10 X ^TK(""TERMST"") I ZF'=($C(27)_""[1~"") S %R=24,%C=1,J=1 F I=1:1:9,"":"","";"",""G"",""H"",""I"",""J"",""K"" W @TKP,$C(27),""|"",I,1,$C(27),""["",J,""~"",$C(25) S J=J+1"
 S ^(2)="27,75`27,74`27,91,49,126`27,106`10`27,69`27,82`26`27,91,49,49,126`27,91,49,53,126`27,91,49,52,126`27,91,50,126`27,91,51,126`27,91,52,126`27,91,53,126"
 S ^(3)="```````````````27,91,54,126`24`27,91,55,126`27,91,49,54,126`27,91,56,126`27,91,49,51,126`30```27,91,57,126`27,91,49,48,126"
 S ^(5)="PAGE`SHIFT PAGE`F1`Shift Cursor UP`Shift Cursor DOWN`LINE INSERT`DELETE LINE`CLEAR`F11`F15`F14`F2`F3`F4`F5"
 S ^(6)="```````````````F6`CE`F7`F16`F8`F13`HOME`CHAR INSERT`DELETE CHAR`F9`F10"
 S ^(7)="W $C(27),"".6"" S TKP=""$C(27,46,57)_%R_""""R""""_%C_""""C""""""\W $C(27),"".5"" S TKP=^TK(0,TK,""P"")\$C(27,113,27,79)\$C(27,114,27,79)"
CLNUP D @(OS_"^TKINTRM") Q
 ;
DATA ;AMPEX+;AMPEX 230+
 ;BI\$C(79)\BLC\$C(69)\BRC\$C(72)\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(75)\IL\"$C(27,69)"\DT\"$C(27,82)"\
 ;IN\$C(27,81)\L\$C(8)\LI\$C(77)\LO\$C(27,41)\P\"$C(27,61,%R+31,%C+31)"\R\$C(50,52)\RI\$C(76)\ROF\$C(27,71,48,127)\RON\$C(27,71,52,127)\RT\$C(12)\SET\""\
 ;TI\$C(78)\TLC\$C(70)\TRC\$C(71)\U\$C(11)\UF\$C(27,71,48,0)\UO\$C(27,71,56,127)\V\$C(49)\VL\$C(74)\X\$C(73)\Z\$C(0,27,71,48,27,40)\SR\""\CSR\""\
 ;UK\$C(11)\DK\$C(22)\LK\$C(8)\RK\$C(12)\INK\$C(27,81)\DLK\$C(27,87)\BO\$C(27,71,50)\BF\$C(27,71,48)