Artifact 753d69c1eb8b6f200d6f0ed854c4988c0ea24fab

File hangman/files.retro part of check-in [e96ace507c] - Update 'hangman' to work with latest changes by charleschilders on 2010-09-12 16:19:23. [annotate]

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

with files'

: fread! ( ha-f ) swap read dup rot ! ;
: >file ( $h- )
  push repeat @+ dup 0 =if rdrop 2drop ;then
  r write 0 =if rdrop 2drop ;then again ;