#

# no user defined shorthands
unalias *

set sedfile=/z/rootbin/lib/p400.sed

set xoff=20
set yoff=20
set lxpand=2
set txpand=2
set copy=1
set pagel=66
set width=80
set language="'QWERTY'"
set quer=0

set nqopts=()

# somebody hating banners may set NOBANNER
if ( $?NOBANNER ) set argv=( -nb $argv )

while ($#argv)
    switch ($argv[1])
       case -h : 
	  shift argv
	  set title=("$argv[1]")
	  breaksw
       case -nb :
	  alias /z/rootbin/lib/p400banner echo
	  breaksw;
       case -q :
	   set yoff=274
	   set xoff=26
	   set lxpand=1
	   set txpand=2
	   set width=132
	   set quer=1
	   breaksw
       case -l :
	   shift argv
	   set pagel=$argv[1]
	   breaksw
       case -w :
	   shift argv
	   set width=$argv[1]
	   breaksw
       case -x :
	   shift argv
	   set xoff=$argv[1]
	   breaksw
       case -y :
	   shift argv
	   set yoff=$argv[1]
	   breaksw
       case -s :
	   shift argv
	   set txpand=$argv[1]
	   set lxpand=$argv[1]
	   breaksw
       case -c :
	   shift argv
	   set copy=$argv[1]
	   breaksw
       case -t :
	   shift argv
	   switch ($argv[1])
		case 0 :
			breaksw
		case 1 :
			set language="'AZERTY'"
			breaksw
		case 2 :
			set language="'QWERTZU'"
			breaksw
		default:
			set language="$1"
			break
		endsw
	   breaksw
       case -m : 
	   set nqopts=($nqopts -m)
	   breaksw
       case -Q : 
	   shift argv
	   set nqopts=($nqopts -q $argv[1])
	   breaksw
       case -nq :
	   shift argv
	   set nqopts=($nqopts $argv[1])
	   breaksw
       case -* :
	   set ratte=$0
	   echo2 $ratte:t\: unknown option $argv[1]
	   exit 1
	   breaksw
       default:
	   break
    endsw
    shift argv
end

if ( ! $?title ) set title=( "$1" )
set title=( $argv )
#set title=( "$title" $argv ) helmut 11.4.86


if ( ! $quer ) then
    ( /z/rootbin/lib/p400banner "$title"; echo -n "\[;\NC$copy;\FO'ANTIC15.N.8.P';\LA$language;\LD4.;\EL$lxpand;\ET$txpand;\PX$xoff.;\PY$yoff.;\M0.;\CR;\NL$pagel;\DF1;" ; \
    /usr/bin/expand $argv | sed -e '1,$ s/^$/ /' | cut -c1-$width | /usr/bin/sed -f $sedfile ; \
    echo -n '\DF0;\];' ) | /usr/bin/nq -nb -q text:1 $nqopts
else
    ( /z/rootbin/lib/p400banner "$title"; echo -n "\[;\NC$copy;\FO'ANTIC15.N.8.L';\PRL;\LA$language;\LD4.;\EL$lxpand;\ET$txpand;\PY$yoff.;\PX$xoff.;\M0.;\CR;\DF1;" ; \
    /usr/bin/expand $argv | sed -e '1,$ s/^$/ /' | cut -c1-$width | /usr/bin/sed -f $sedfile ; \
    echo -n '\DF0;\];' ) | /usr/bin/nq -nb -q text:1 $nqopts
endif
