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