eca5386b7f 2010-05-31 charlesch: ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
eca5386b7f 2010-05-31 charlesch: ( Copyright [c] 2010, Charles Childers                      )
eca5386b7f 2010-05-31 charlesch: ( License: ISC                                              )
eca5386b7f 2010-05-31 charlesch: ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
eca5386b7f 2010-05-31 charlesch: 
e96ace507c 2010-09-12 charlesch: with files'
eca5386b7f 2010-05-31 charlesch: 
58f5878c50 2010-08-14       crc: : fread! ( ha-f ) swap read dup rot ! ;
eca5386b7f 2010-05-31 charlesch: : >file ( $h- )
eca5386b7f 2010-05-31 charlesch:   push repeat @+ dup 0 =if rdrop 2drop ;then
58f5878c50 2010-08-14       crc:   r write 0 =if rdrop 2drop ;then again ;