# generate a header for p400
#					Mon Feb  3 - ck --

# no user defined shorthands
unalias *

# document open, landscape format
echo -n \
"\[;\FO'ANTIC15.N.8.P';\LA'QWERTZU';\LD4.;\EL2;\ET5;\PY20.;\PX10.;\M0.;\DF0;\BO1;" 

if ( $#argv == 0 ) then
   set argv=("std-input")
   set argv=( $argv $argv )
endif

# userid and name

# select banner				Wed Feb  5 - ck --
if ( $?BANNER ) then
    if ( -x $BANNER ) then
	$BANNER "$argv[1]" $LOGNAME 
    else
	banner "$argv[1]" $LOGNAME 
    endif
else
# Wed Feb  5 17:26:04 PST 1986 helmut
# letterbanner produces more than 10 big letters
    letterbanner "$argv[1]" $LOGNAME 
endif

# info
#shift argv /* Fri 11. Apr 1986, 17:54, -- Helmut -- */

echo '\LD6.;'
echo '\n\n\n'

set effname=(`whoami`)
if ($effname == $LOGNAME) echo User:'	\EL5;'$LOGNAME'\EL2;'
if ($effname != $LOGNAME) echo User:'	\EL5;'$LOGNAME\($effname\)'\EL2;'

echo Time:'	\EL5;'`date`'\EL2;'
if ($#argv > 1) then
    echo Files:'	\EL5;'$argv | cut -c1-40 ; echo '\EL2;'
else
    echo File:'	\EL5;'$argv | cut -c1-40; echo '\EL2;'
endif

# document close
echo -n '\DF0;\];' 
