TKINIT1C ;PG&A,TK-CONFIG,2.25,O.S. PARAMETERS  (DSM);18FEB91 8:29A [ 11/17/2000  5:33 PM ]
 ;Copyright (C) 1985,7 Patterson, Gray and Assoc., Inc.
 S OS="DSM" W !!,"***> Initializing Operating System Parameters ... ",OS
 S ^TK("OS")=OS
 S ^("ECHO-ON")="U 0:(:::::1)"
 S ^("ECHO-OFF")="U 0:(::::1)"
 S ^("TERM-ON")="U 0:(::::589888::::$C(1,5,6,7,8,9,10,11,12,13,14,16,18,20,21,22,23,24,26,28,29,30,31)) S TK(1)=TK(1)+1"
 S ^("TERMST")="S ZF=$S($ZB\256:$C(27,$ZB\256),$ZB=27:$C(27,0),1:$C($ZB#256))"
 S ^("TERM-OFF")="S TK(1)=TK(1)-1 U:'TK(1) 0:(:::::524353:::$C(13,27))"
 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"")"
 I $P($ZV," ",3)>3.9 S ^TK("EXT")="$TR"
 Q