alias filetest {
if (%filetest.lastfpos !isnum) {
set %filetest.lastfpos 0
}
.fopen filetest $1-
if (!$ferr) {
/fseek filetest %filetest.lastfpos
}
while (!$feof && !$ferr) {
/echo $fread(filetest)
}
set %filetest.lastfpos $fopen(filetest).pos
.fclose filetest
return
:error
if (*command halted* iswm $error) {
if ($fopen(filetest)) .fclose $v1
}
}