TKINIT1F ;PG&A,TK-CONFIG,2.25,O.S. PARAMETERS  (MSM);15SEP94 10:35A [ 11/17/2000  5:50 PM ]
 ;Copyright (C) 1985,7 Patterson, Gray and Assoc., Inc.
 S OS="MSM" W !!,"***> Initializing Operating System Parameters ... ",OS
 S ^TK("OS")=OS
 S ^("ECHO-ON")="U 0:(:::::1) S TK(1)=TK(1)\1"
 S ^("ECHO-OFF")="U 0:(::::1) S TK(1)=TK(1)+.01"
 S ^("TERM-ON")="U:'TK(1) 0:(0::::852032::::$C(0,1,2,4,5,6,7,8,9,10,11,12,13,14,16,18,20,21,22,23,24,25,26,28,29,31,127)) S TK(1)=TK(1)+1"
 S ^("TERMST")="S ZF=$S($ZB#256=27:$C(27,$ZB\256),$ZB>31&($ZB<127):$C(0),1:$C($ZB#256))"
 S ^("TERM-OFF")="S TK(1)=TK(1)-1 U:'TK(1) 0:(:::::524353:::$C(13))"
 S ^("ERROR")="$ZT"
 S ^("ERRORR")="$ZE"
 S ^("WRAP-ON")="U:'TK(1) 0:^TK(""MARGIN"")"
 S ^("WRAP-OFF")="U 0:0"
 S ^("8BIT")="S TK(""T"")=""S ZF=$S($ZB\256:$C(27,$ZB\256),$ZB=127:$C(27,126),$ZB=8:$C(127),$ZB>31:$C(0),1:$C($ZB#256)) X:$ZB=0 """"U 0:(::::1) R *ZF:0 U:TK(1)#1=0 0:(:::::1) S ZF=$S(ZF<1:$C(0),1:$C(27,ZF))"""""""
 S ^TK("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)"" K TKI W TK(""SET"")"
 S ^("EXT")="$TR"
 Q