TKINT19 ;PG&A,TK-CONFIG,2.23,CRT DEFINITION  (VIEWPOINT A2);2JUN92 3:08P [ 11/22/2000  10:56 AM ]
 ;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,110),^("fof")=$C(27,111)
 S ^("fost")="S X=$C(P4#200+33)",^("foft")="S P4=$A(JJ)-33,(P1,P2,P3)=0"
FNC S ^TK(.1,T,1)="" ; S %R=23,%C=1 W @TKP,$C(27),""A"",$C(27),""p"" X ""F I=0:1:9 W $C(27),""""eA"""",I,$C(27),""""S"""",$C(27),""""["""",$C(65+I),$C(27),""""x"""",$C(27),""""eB"""",I,$C(27),""""S"""",$C(27),""""["""",$C(75+I),$C(27),""""x"""""" W $C(27),""q"""
 S ^(2)="27,91,76`27,91,77`27,91,78`27,91,80`27,91,79`27,69`27,82`27,59`27,91,75`27,91,67`27,91,66`27,91,68`27,91,70`27,91,71`27,91,72"
 S ^(3)="```````````````27,91,73`27,91,74`27,91,65`27,91,69`23`31`30```5"
 S ^(5)="PROG B + 1`PROG B + 2`PROG B + 3`PROG B + 5`PROG B + 4`LINE INS`LINE DEL`CLEAR`PROG B + 0`PROG A + 2`PROG A + 1`PROG A + 3`PROG A + 5`PROG A + 6`PROG A + 7"
 S ^(6)="```````````````PROG A + 8`PROG A + 9`PROG A + 0`PROG A + 4`Ctrl W`New Line`HOME`CHAR INS`CHAR DEL`Ctrl E"
CLNUP D @(OS_"^TKINTRM") Q
 ;
DATA ;VIEWPOINT;VIEWPOINT A2
 ;BI\$C(27,71,72)\BLC\$C(27,71,67)\BRC\$C(27,71,68)\C\$C(56,48)\CL\$C(27,84)\CS\$C(27,89)\D\$C(10)\DL\$C(27,87)\F\$C(27,59)\G0\""\G1\""\H\$C(30)\HI\$C(27,40)\HL\$C(27,71,73)\IL\"$C(27,69)"\DT\"$C(27,82)"\
 ;IN\$C(27,81)\L\$C(8)\LI\$C(27,71,71)\LO\$C(27,41)\P\"$C(27,61,%R+31,%C+31)"\R\$C(50,52)\RI\$C(27,71,70)\ROF\$C(27,107)\
 ;RON\$C(27,106)\RT\$C(12)\SET\$C(27,65)\TI\$C(27,71,69)\TLC\$C(27,71,65)\TRC\$C(27,71,66)\U\$C(11)\UF\$C(27,109)\UO\$C(27,108)\V\$C(49)\VL\$C(27,71,74)\X\$C(27,71,75)\
 ;Z\$C(0,27,107,27,109,27,40)\SR\""\CSR\""
 ;UK\$C(11)\DK\$C(10)\RK\$C(12)\LK\$C(8)\INK\$C(27,81)\DLK\$C(27,87)\BO\$C(27,110)\BF\$C(27,111)