1* initialize a device plot
2.control
3begin
4  unset devfile
5  if $argc = 1
6    set devfile = $argv[1]
7    load $devfile
8    strcmp flag "$?&y" "1"
9    if ($flag = 0)
10      let yaxis = y[0]
11      transpose all
12      let xaxis = x[0]
13      transpose all
14      setscale yaxis
15    end
16  else
17    echo "usage: devload <filename>"
18  end
19
20  unset devfile flag
21end
22