Smyčka obsluhy událostí (Event Loop).  je částí programu která vybírá (přijímá) události od PalmOs, a dále je zpracovává. Všechny programy musí mít tuto smyčku, aby jste se mohli přepnout do jiné aplikace. Nepotřebujete-li obsluhovat žádné události, můžete použít jednoduchou „prázdnou“ smyčku.

: default-event-loop ( -- )
  begin
    ekey drop
  again ;
	  

: default-event-loop ( -- )
  begin
    ekey drop
  again ;
      

Slovo ekey čeká na událost až 500ms. Chceme-li rychlejší smyčku můžeme použít slovo (ekey).

: faster-event-loop ( -- )
    begin
        10. (ekey)      ( → ekey) \ wait max of 100ms
        do-my-thing     ( ekey → ekey )
        drop            ( ekey → )
    again ;
      

Úsporná smyčka s „nekonečným“ čekáním. 

: event-loop ( -- )
  begin
    -1. (ekey)
\   dispatch-event
    drop
  again ;
	

Hodnota -1. slova (ekey) přepne procesor do „doze mode“. Z hlediska našeho programu tento nedostane řízení, dokud nenastane nějaká událost. Rovněž není nikdy vrácena událost nilEvent.

V programu psaném v QuartusForth se nemusíte zajímat o obsluhu většiny událostí, Forth to udělá za vás, kdykoliv použijete KEY nebo EKEY. Automaticky jsou obsluhovány události

Události které nebyli obslouženy automaticky jsou vráceny na zásobník, kde je můžeme přečíst a obsloužit.

Základ obsluhy událostí vypadá takto

begin ekey drop again

Takováto obsluha ignoruje všechny události. Ve skutečnosti nejsou všechny události ignorovány ale řada z nich je obsloužena standardně.

\ eh
needs events
: go ( -- )
  begin ekey
    dup penDownEvent = if
      ." Pen Down detected" cr
    else dup penUpEvent = if
      ." Pen Up detected" cr
      then
    then  drop
  again ;
      

Zajímavé je, jakým způsobem je ošetřena událost appStopEvent. Quartus Forth vám dává plnou kontrolu nad tím co se bude dít při ukončení programu. Když Quartus Forth obdrží appStopEvent, vygeneruje výjimku -257 THROW. Za normálních (běžných) okolností je tato výjimka ošetřena standardní obsluhou výjimek a program jednoduše skončí voláním příkazu (bye). Nicméně můžete tuto vájimku odchytit a zařídit si třeba úklid použitých prostředků před voláním (bye)

-257 constant byeThrow
: go ( -- )
  MainForm
  ." Go ahead, start another app." cr
  begin
    ['] key catch
    byeThrow = if
      ." Exiting in 5 seconds!"
      500. SysTaskDelay
      (bye)
    then  drop
  again ;