TKINT05 ;PG&A,TK-CONFIG,2.23,CRT DEFINITION  (FREEDOM 200);17DEC87 2:31P [ 11/22/2000  2:03 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)
FNC S ^TK(.1,T,1)="F I=1:1:21 W $C(27),""|"",$C($P(""49,50,51,52,53,54,55,56,57,58,60,61,62,63,64,4,5,8,9,10,11"","","",I)),1,$C(27),""["",$E(""ABCDEFGHIJKLMNOPPQRST"",I),$C(25)"
 S ^(2)="27,91,65`27,91,75`27,91,66`27,91,81`27,91,82`27,69`27,82`27,91,80`27,91,72`27,91,69`27,91,73`27,91,67`27,91,68`27,91,78"
 S ^(3)="```````````````27,91,76`27,91,70`27,91,71`27,91,74`27,91,84`27,91,77`30```5"
 S ^TK(5)="F1`Shift F1`F2`SCROLL UP`SCROLL DN`INS LINE`DEL LINE`CLEAR EOL`F8`F50`F9`F3`F4`Shift F4"
 S ^(6)="```````````````Shift F2`F6`F7`F10`WORD >l W`Shift F3`HOME`INS CHAR`DEL CHAR`Ctrl E"
CLNUP D @(OS_"^TKINTRM") Q
 ;
DATA ;FREEDOM;LIBERTY ELECTRONICS Freedom 200
 ;BI\$C(27,7,79)\BLC\$C(27,7,69)\BRC\$C(27,7,72)\C\$C(56,48)\CL\$C(27,84)\CS\$C(27,89)\CSR\""\D\$C(22)\DL\$C(27,87)\DLK\$C(27,87)\DT\"$C(27,82)"\F\$C(26)\G0\""\G1\""\H\$C(30)\
 ;HI\$C(27,71,48)\HL\$C(27,7,75)\IL\$C(27,69)\IN\$C(27,81)\INK\$C(27,81)\L\$C(8)\LI\$C(27,7,77)\LO\$C(27,71,64)\P\$C(36,67,40,50,55,44,54,49,44,37,82,43,51,49,44,37,67,43,51,49,41)\
 ;R\$C(50,52)\RI\$C(27,7,76)\ROF\$C(27,71,48)\RON\$C(27,71,52)\RT\$C(12)\SET\""\SR\""\TI\$C(27,7,73)\TLC\$C(27,7,70)\TRC\$C(27,7,71)\U\$C(11)\UF\$C(27,71,48)\
 ;UO\$C(27,71,56)\V\$C(49)\VL\$C(27,7,74)\X\$C(27,7,73)\Z\$C(27,71,48,27,71,48,27,71,48)\
 ;UK\""\DK\""\RK\""\LK\""