Description

create a named marker that you can use to FORGET , running the created word will reset the dict/order variables to the state at the creation of this name.

 : (MARKER) (CREATE) HERE , 
         GET-ORDER DUP , 0 DO ?DUP IF , THEN LOOP 0 , 
         ...
   DOES> DUP @ (FORGET) 
         ...
 ;