alias test2 {
var %idx = 0, %b, %chr
write -c txt.txt
fopen a page.txt
while (!feof) {
if ($ferr || $feof) { fclose a | return }
%b = $fread(a,4096,&var)
if (%b) {
while (%idx < %b) {
inc %idx
%chr = $bvar(&var,%idx)
if ($istok(10.13,%chr,46)) { bset &new %idx %chr }
elseif (!$istok(10.13.9,%chr,46)) { bset &new %idx %chr }
}
bwrite txt.txt -1 &new
%idx = 0
bunset &new
}
}
}