256 constant /input-buffer
create input-buffer /input-buffer chars allot

: show-file ( c-addr u -- )
  r/o open-file throw
  >r
  begin
    input-buffer dup /input-buffer r@ read-line throw
    while type cr
  repeat
  2drop r> close-file throw ;

\ Example:
s" test.txt" show-file