#! /bin/sh

f=$(basename ${0})
[ -n "${2}" ]&&{
/usr/local/bin/f8 "s\" /dev/null\" r/w open-file out-chan is-chan : o( [_] ( ; : o-cr ; include /usr/src/forth/lib4th/4th/scsq.f8 ${f} ${1} ${2} bye"
}||{ echo -e "\t screenfile to sequential conversion\n\t\tuse: ${0} infile outfile";exit 1; }
exit
# Forth vs C prg:

$ time ./blk2seq forth_scr forth_scr.seq
real    0m0.108s
user    0m0.030s
sys     0m0.070s

$ time ./fromblock < forth_scr >forth_scr.stm
real    0m0.120s
user    0m0.110s
sys     0m0.010s

# # # alt # # #
f=$(basename ${0})
[ -n "${2}" ]&&{
echo "s\" /dev/null\" r/w open-file out-chan is-chan : o( [_] ( ; : o-cr ; include /usr/src/forth/lib4th/4th/scsq.f8 ${f} ${1} ${2} bye"|/usr/local/bin/f8
}||{ echo -e "\t screenfile to sequential conversion\n\t\tuse: ${0} infile outfile";exit 1; }
exit
