forth.forth

   1 5 .
   2 word ' here define
   3 word word find , word find find , word ; find ,
   4 word : here define
   5 ' word , ' here , ' define , ' ; ,
   6 : IWRITE-MODE ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; ,
   7 ' find , ' dup , ' JZ: , here 12 + , ' , , ' ; ,
   8 : i ' LIT , ' MODE , ' LIT , ' IWRITE-MODE , ' ! , ' ; ,
   9 : e ' LIT , ' MODE , ' LIT , ' EXECUTE-MODE , ' ! , ' ; ,
  10 : TEST \i DUP + DUP + . ; \e
  11 5 TEST
  12 2 .