\ then of F83 : >RESOLVE ( addr -- ) HERE SWAP ! ;: ?>RESOLVE ( f addr-- )swap?condition \ control structure mismatch ?>RESOLVE ;: THEN ( f addr -- )?>RESOLVE ; IMMEDIATE \ then of Win32Forth: >RESOLVE ( addr -- ) HERE CELL+ SWAP ! ;: THEN ( addr f -- )?COMP \ word-name is compilation only ?2 ?PAIRS \ control structure mismatch ?COMPILE _THEN >RESOLVE ; IMMEDIATE