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) {
if (1) {
while ($bfind(&var, $v1, 9)) {
bset &var $v1 0
}
bwrite txt.txt -1 &var
}
}
}
}