# Blame this on archon =)

alias more {
  if ([$0]) {
    @ line = 0
    @ done = 0
    @ rows = winsize() - 1
    if (fexist($0) == 1) {
      @ fd = open($0 R)
      while (!eof($fd) && (pause!=[q])) {
        while (line++ != rows) {
          echo $read($fd)
          if (eof($fd)) {
            @ line = rows
            @ done = 1
          }
        }
        if (!done) {
          ^assign pause $"Enter q to quit, or anything else to continue "
          @ line = 0
        }
      }
      @ close($fd)
      ^assign -fd
      ^assign -line
      ^assign -done
      ^assign -rows
      ^assign -pause
    }{
      echo $0\: no such file.
    }
  }{
    echo Usage: /more <filename>
  }
}

#archon'96
