\ Skeleton code for
\ intercepting events before the PalmOS gets them.
\ This code intercepts Graffiti <Return> strokes
\ and displays a field (MainField) on the screen.
: go
mainForm showform
begin
500. event >abs EvtGetEvent
event @ dup keyDownEvent = if
ekey>char if
ReturnChar = if
fldChars MainField field>string
fldChars swap 0 0 at type
then
else drop
then
else drop
then
HandleEvent
again ;