TKINT16 ;PG&A,TK-CONFIG,2.25,CRT DEFINITION  (WYSE 75);16JAN95 2:58P [ 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))
ENT W !,?8,"Initializing ",T S M=0,^TK(0,T,M)="",H=""
 F I=1:1 S A=$T(DATA+I) S C=$P(A,";",2,99) Q:C=""  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)="W $C(27),""(B"",$C(27),"")0"",$C(27,91),0,$C(116) S a=""55,56,57,48,49,51,52,53,54,56,57,49,50,51,52"",b=49 F I=1:1:15 S:I=4 b=50 S:I=12 b=51 W $C(27,91),$C(62),$C(96+I),$C(47),$C(27,91),$C(b),$C($P(a,"","",I)),$C(126),$C(47)"
 S ^(7)="W $C(27,91),""?3h""\W $C(27,91),""?3l""\$C(27,91)_""4h""\$C(27,91)_""4l"""
 S ^(2)="27,91,54,126`27,91,53,126`27,91,50,52,126`27,91,50,53,126`27,91,50,54,126`27,91,49,56,126`27,91,49,55,126`27,91,51,52,126`27,91,51,50,126`27,91,50,56,126`27,91,51,49,126`27,91,49,57,126`27,91,50,49,126`27,91,50,48,126`27,79,83"
 S ^(3)="```````````````27,91,49,126`27,91,50,57,126`27,91,51,51,126`27,91,50,51,126`27,79,80`27,91,52,126`27,79,82```27,79,81`1`6`6"
 S ^(5)="NEXT SCREEN`PREV SCREEN`F12`F13`F14`F7`F6`F20`F18`HELP`F17`F8`F10`F9`PF4",^(6)="```````````````FIND`DO`F19`F11`PF1`SELECT`PF3`INSERT HERE`REMOVE`PF2`Ctrl A`Ctrl E`Ctrl F"
CLNUP D @(OS_"^TKINTRM") Q
 ;
DATA ;WYSE75;WYSE 75
 ;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)\IL\"$C(27,91,76)"\DT\"$C(27,91,77)"\G0\$C(15)\G1\$C(14)
 ;H\$C(27,91,72)\HI\$C(27,91,48,59,109)\HL\$C(113)\IN\$C(27,91,64)\L\$C(27,91,68)\LI\$C(116)\LO\$C(27,91,59,49,109)\P\"$C(27,91)_%R_"";""_%C_""H"""\
 ;R\$C(50,52)\RI\$C(117)\RON\$C(27,91,48,48,109)\ROF\$C(27,91,48,49,109)\RT\$C(27,91,67)\SET\$C(27,41,48)\TI\$C(119)\TLC\$C(108)\TRC\$C(107)\
 ;U\$C(27,91,65)\UF\$C(27,91,50,52,109)\UO\$C(27,91,48,52,109)\V\$C(49)\VL\$C(120)\X\$C(110)\Z\$C(27,91,48,59,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,50,126)\DLK\$C(27,91,51,126)\