TKINIT1A ;PG&A,TK-CONFIG,2.25,O.S. PARAMETERS  (PSM);6DEC89 3:12P [ 11/17/2000  5:32 PM ]
 ;Copyright (C) 1985,7 Patterson, Gray and Assoc., Inc.
 S OS="PSM" W !!,"***> Initializing Operating System Parameters ... ",OS
 S ^TK("OS")=OS
 S ^("ECHO-ON")="U 0:(:""TR"")"
 S ^("ECHO-OFF")="U 0:(:""TSR"")"
 S ^("TERM-ON")="U 0:(:""TR"") S TK(1)=TK(1)+1"
 S ^("TERMST")="S ZF=$ZF"
 S ^("TERM-OFF")="S TK(1)=TK(1)-1 U:'TK(1) 0:(0:"""")"
 S ^("ERROR")="$ZE"
 S ^("ERRORR")="$ZE"
 S ^("WRAP-ON")="U:'TK(1) 0:0"
 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