This one shouldn't have a problem with the line too long error.

Code:
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,-,$calc(%position + 900))).text,$cr)
    inc %position 900
  }
}


/viewfile <file>