if -r /tmp/plock echo "plotter busy"
endif
while -r /tmp/plock
sleep 30
end
echo $s >/tmp/plock
getlbl</dev/tty$t
cp $1 $1$$
if -r /tmp/ax8xa then
	else fastax8
endif
cat filterm>>$1$$
if -r /tmp/plt_data_a then rm -f /tmp/plt_data_*
endif
fastscale $2 < $1$$
glabel
cat /tmp/ax8xa>>/tmp/plt_data_a
cat /tmp/ax8xb>>/tmp/plt_data_b
cat /tmp/ax8xc>>/tmp/plt_data_c
assign /dev/lp
fastplt | dlpr -p
assign -
rm -f /tmp/glabel /tmp/exp /tmp/gscale 
rm -f /tmp/plt_data_* /tmp/plock $1$$
rm -f /tmp/legend
