: ${user?}
: ${acct?}
: ${bin?}
: ${sgrade=1}

trap 'rm -f $tmp1 $tmp2; exit 1' 1 2 3 15
tmp1=${SPOOL?}/tf$$.1
tmp2=${SPOOL?}/tf$$.2

F= X=c cat=:
for A do
	case $A in
	-s)	X=s;;
	-f)	X=f;;
	-c)	X=c;;
	-v)	X=v;;
	--)	cat=cat;;
	-*)	prompt "bad flag: $A";;
	*)	F="$F $A";;
	esac
done

cat $F >$tmp2

cat <<! >$tmp1
M $user
N draw $*
S
L\$	SGRADE	$sgrade
L\$	IDENT	$acct,$bin,$user
L\$	REMOTE	**,ONL
L\$	SELECT	CC/UNIXSUPPORT/FSEND.2
La *OT
L\$	MASS	OT,X05S,101
L\$	DATA	I*,NCKSUM
B$tmp2
U$tmp2
L\$	PROGRAM	RLHS,ON1
L\$	LIMITS	,26K
L\$	PRMFL	H*,,,JRV/PLOT.$X
L\$	MASS	05,X05D
L\$	ENDJOB
!

$cat $tmp1
dfile=${SPOOL?}/df$$
mv $tmp1 $dfile
${DPD?}