TKINIT1G ;PG&A,TK-CONFIG,2.25,O.S. PARAMETERS  (DSM - VAX);17APR95 1:39P;;;21NOV96  13:32 [ 11/17/2000  5:50 PM ]
 ;Copyright (C) 1985,7 Patterson, Gray and Assoc., Inc.
 S OS="DSM4" W !!,"***> Initializing Operating System Parameters ... ",OS
 S ^TK("OS")=OS
 S ^("ECHO-ON")="U $I:ECHO"
 S ^("ECHO-OFF")="U $I:NOECHO"
 S ^("TERM-ON")="U $I:(ESCAPE,PASTHRU,TERMINATOR=$C(1,4,5,6,7,8,9,10,11,12,13,14,16,18,21,22,23,26,28,29,30,31,127)) S TK(1)=TK(1)+1"
 I $P($ZV," V",2)>5.9 S ^("TERM-ON")="U $I:(ESCAPE:NOLINE:NOPASTHRU:TERMINATOR=$C(1,2,4,5,6,7,8,9,12,16,23,26,127)) 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) $I:(NOESCAPE:NOPASTHRU:TERMINATOR=$C(13))"
 S ^("ERROR")="$ZT"
 S ^("ERRORR")="$ZE"
 S ^("WRAP-ON")="U:'TK(1) $I:WIDTH=^TK(""MARGIN"")"
 S ^("WRAP-OFF")="U $I:WIDTH=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