\ cleanbyte  2001/5/12 KDJ

\ THIS CODE IS PROVIDED "AS IS"
\ WITHOUT WARRANTY OF ANY KIND.
\ THE AUTHOR SHALL NOT BE LIABLE
\ FOR ANY CLAIM IN CONNECTION
\ WITH THIS CODE.
\ 
\ This code may be used, copied,
\ modified, or distributed for any
\ purpose

: cleanbyte ( u1 -- u2 )
  (hex) FF and ;

: byte>flag ( PalmOSBoolean -- f )
  cleanbyte 0<> ;
