\ tap 20/6/98 11:05 pm
: stylus@ ( -- y x ) [ evt 4 + ] literal 2@  ;

\ Wait for a screen-area tap
\ 0 if tapped outside
\ or if an unexpected evt occured
\  -- { pressY pressX relY relX 1}/0)
: tap begin ekey? until
ekey 1 = if \ pressed?
  stylus@
  begin ekey dup 3 = while \ dragged?
    drop repeat
  2 = if \ released?
    stylus@ 1
  else
    2drop 0 then
else 0 then ;
\ : t begin tap while line repeat ;