alias viewfile {
if (!$isfile($1-)) {
echo -abcfilrt Info * /viewfile: No such file ' $+ $1-'
return
}
bread $qt($1-) 0 $file($1-) &file
breplace &file 10 44
var %position = 1, %size = $bvar(&file,0)
if ($bvar(&file,%size) == 44) { bcopy -c &file 1 &file 1 $calc(%size - 1) }
while (%position < %size) {
echo -a $remove($bvar(&file,%position,899).text,$cr)
inc %position 900
}
}