* initialize a device plot
.control
begin
  unset devfile
  if $argc = 1
    set devfile = $argv[1]
    load $devfile
    strcmp flag "$?&y" "1"
    if ($flag = 0)
      let yaxis = y[0]
      transpose all
      let xaxis = x[0]
      transpose all
      setscale yaxis
    end
  else
    echo "usage: devload <filename>"
  end

  unset devfile flag
end