! EDDEFDEV - EDWIN DEFault DEVice routine

from Imp include Lognames
external string (255) fn spec TERMINAL MODEL alias "IMP_TERMINAL_MODEL"

external integer fn DEFAULT DEVICE alias "EDWIN_DEFAULT_DEV"
   const string (255) DEFAULT NAME = "EDWIN_DEFAULT_DEVICE"
   string (127) TERM, Terminal Name

   on 3,4,9 start
      result = 0
   finish

   TERM = TRANSLATE (DEFAULT NAME)
   result = STOI (TERM) if TERM#DEFAULT NAME
   Terminal Name = Translate ("TT")
   result = 4014 if Sub String (Terminal Name,1,3) = "_TK"
   result = 'W'  if Sub String (Terminal Name,1,3) = "_WT"
   TERM = TERMINAL MODEL
   result = 200 if TERM = "VISUAL200"
   result = 131 if TERM = "VT100"
   result = 0
end

end of file