Miscellany

alias pres {
  if ( !$1 ) {
    echo -s É necessário escrever uma segunda palavra para pesquisa
  }
  if ( $1 ) {
    echo -s 1
    var %x 1
    var %readline 1
    while ( %x <= 10 ) {
      echo -s %x
      if ( $read( BD.txt, w, $+( $chr(42), $1-, $chr(42)), %readline) != $null ) {
        echo -s $read( BD.txt, $readn)
        set %readline $readn
        inc %readline
        inc %x
      }
      if ( $read( BD.txt, w, $+( *, $1-, *), %readline) == $null ) {
        var %x 11
      }
    }
  }
}