Artifact 6813c951891beb9886f359991af6443bd6081149

File hangman/files.retro part of check-in [eca5386b7f] - Check in of hangman game from the forthlets part of the main Retro repo. by charleschilders on 2010-05-31 21:51:52. [annotate]

( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
( Copyright [c] 2010, Charles Childers                      )
( License: ISC                                              )
( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
' files open

: fread! ( ha-f ) swap fread dup rot ! ;

: slurp ( a"- )
  :r fopen dup
  if
    swap repeat 2dup fread! 0 =if 0 swap ! fclose drop ;then 1+ again
  else
    drop 0 swap !
  then ;
: >file ( $h- )
  push repeat @+ dup 0 =if rdrop 2drop ;then
  r fwrite 0 =if rdrop 2drop ;then again ;