Artifact f6d2b7cfcfa53f795e73f4ebefe4bab902ca9ff2

File hangman/files.retro part of check-in [54e5f1b915] - update to 11.0-2010.10.24 image by crc on 2010-10-25 18:29:01. [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
  tors write 0 =if rdrop 2drop ;then again ;