Improved TPK

variable fid
: open ( c-addr u -- )  r/o open-file throw fid ! ;
: close ( -- )  fid @ close-file throw ;
: read ( -- u )  here 1 fid @ read-file throw ;
: display ( -- )  here c@ emit ;

: go ( c-addr u -- )  open  begin read while display repeat  close ;