#! /bin/sh
# ${*} = files to test vt sequences

x=4

p=$(basename ${0})

ms='0 1 sleep-n'
#ms='1 ms'
f () {
i=${1}
echo "\
linux also forth \
new-chan value ch \
f\" ${i}\" -dup \
if
    r/o open-file \
    ch is-chan \
    if \
	begin \
	    ch read-char drop emit ${ms} ch ch-eof \
	until \
    endif drop \
else drop .\" no file(s) specified\" cr endif \
0 bye-r"|${x}
}

for i in ${*};do [ "$(basename ${i})" = "${p}" ]||f ${i};done

# # # #
