gistfile1.txt

: above ( aa-a ) repeat tuck @ over =if drop ;then swap @ 0; again ;

2 elements tp tib 1024 allot
: tib, tp ++ !@tp ;
: tz tib !tp ; tz

2 elements t trig
: findTrig !t trig repeat @ 0; dup 1+ @ @t = not 0; drop again ;
: doTrig   findTrig dup 3 + @ swap 2 + @ with-class ;
: addTrig  here @trig , !trig , &.word , here 1+ , 0 , 0 , [ ;
: delTrig  findTrig dup above swap @ 0; swap ! ;

: listen
  tz repeat key
    doTrig
    not 0; drop
    tib,
  again ;