All pastes #162730 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-09-06 20:13 UTC
rendered paste body
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