#
onintr EXINT
set typ=t
echo -n "From LCF (f) or to LCF (t) [t]: "
set temp=$<
if ($temp != "") set typ=$temp
if ($typ =~ t* || $typ =~ T*) then
   set code=TOLCF
else
   set code=FROMLCF
endif
set ftyp=s
echo -n "Standard (s) or multirecord (m) file [s]: "
set temp=$<
if ($temp != "") set ftyp=$temp
if ($ftyp =~ m* || $typ =~ M*) then
   set ftype=MULTIRECORD
else
   set ftype=STANDARD
endif
if ($code == TOLCF) then
   echo -n "Name of input exchange data file: "
   set exchfile=$<
   echo -n "Name of output LCF file: "
   set lcffile=$<
else
   echo -n "Name of input LCF file: "
   set lcffile=$<
   echo -n "Name of output exchange data file: "
   set exchfile=$<
endif
echo "$LAUE_BIN/exchange LCF $lcffile EXCHANGE $exchfile <<END-lcfdump" >>$1
echo $code $ftype >>$1
echo END-lcfdump >>$1
exit 0
EXINT:
exit 99