FUNCTION Background()
local x
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
' x=len("I:\data\")
' message "x is:"&str(x)
  if dpath = "I:\data\"
    screen print 1 85 12 0 "Using MRCDB"
  else
    screen print 1 85 10 0 "Using"&dpath
  end if
END FUNCTION ' Background()