( WHERE, #LOCATE )                                              VOCABULARY EDITOR IMMEDIATE HEX                                                                                                 : WHERE                                                             DUP B/SCR / DUP SCR ! ." SCR # " DECIMAL .                      SWAP C/L /MOD C/L * ROT BLOCK + CR C/L TYPE                     CR HERE C@ - SPACES 5E EMIT                                     [COMPILE] EDITOR QUIT ;                                                                                                     EDITOR DEFINITIONS                                                                                                              : #LOCATE                                                           R# @ C/L /MOD ;                                                                                                                                                                             -->                                                             