2 word word find , word find find , word ; find ,
4 ' word , ' here , ' define , ' ; ,
5 : IWRITE-MODE ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; ,
6 ' 2dup , ' find , ' dup , ' JZ: , here 16 + , ' , , ' 2drop , ' ; ,
7 ' drop , ' LIT , ' LIT , ' , , 16720 , ' , , ' ; ,
8 : ^i ' LIT , ' MODE , ' LIT , ' IWRITE-MODE , ' ! , ' ; ,
9 : ^e ' LIT , ' MODE , ' LIT , ' EXECUTE-MODE , ' ! , ' ; ,
10 : test \^i 20 20 + ; \^e