TKINIT1D ;PG&A,TK-CONFIG,2.25,O.S. PARAMETERS  (M11);4AUG92 4:07P [ 11/17/2000  5:33 PM ]
 ;Copyright (C) 1985,7 Patterson, Gray and Assoc., Inc.
 S OS="M11" W !!,"***> Initializing Operating System Parameters ... ",OS
 S ^TK("OS")=OS
 S ^("ECHO-ON")="U 0:(0:""T"":$C(8,9,24,127))"
 S ^("ECHO-OFF")="U 0:(0:""ST"":$C(8,9,24,127))"
 S ^("TERM-ON")="U 0:(0:""T"":$C(8,9,24,127)) S TK(1)=TK(1)+1"
 S ^("TERMST")="S ZF=$S($ZB?1C.E:$ZB,1:$C(0))"
 S ^("TERM-OFF")="S TK(1)=TK(1)-1 U:'TK(1) 0:(0:""C"":"""")"
 S ^("ERROR")="$ZT"
 S ^("ERRORR")="$ZE"
 S ^("WRAP-ON")="U:'TK(1) 0:^TK(""MARGIN"")"
 S ^("WRAP-OFF")="U 0:0"
 S ^("PAD")=$C(0)
 S ^("INIT")="K TK W:$D(^TK($I))=0 !!,""Device not defined to the Toolkit - Use ^TKDEV"",!! Q:$D(^($I))=0  S TK=^($I),TK(1)=0,TK(""T"")=^(""TERMST""),TKP=^(0,TK,""P"") X ""F TKI=0:1:5 I $D(^(TKI)) X ^(TKI)"" W TK(""SET"") K TKI,TK(""SET"")"
 S ^("EXT")="$TR"
 Q