Egy Forth programrészlet

:EVEKT0
<BUILDS DUP ,
  1+ 1 DO 0 , LOOP DROP
DOES>
  DUP @
  ROT <
  IF … HIBÁS INDEX …
  ." HIBÁS INDEX:" DROP .
  ELSE SWAP 2* +
ENDIF ;