                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                CR ." Converting to OPERATOR system " CR                        HEX NOV-HDS VARIABLE &S VARIABLE &T : H? NOOP ; VARIABLE &B     : 1BW BEGIN 2- @H DUP &B @ U< UNTIL ; : RM DDUP - DUP &S ! IF   %HLEN - &T ! %HLEN - &B ! VOC-LINK @ BEGIN DUP 2- DUP @ DUP &T  @ U< IF DUP &B @ U< IF DDROP ELSE 1BW SWAP ! THEN 0 ELSE DUP &S @ + ROT ! 2- THEN ?DUP IF BEGIN DUP @H DUP &T @ U< IF DUP &B @  U< IF DDROP ELSE 1BW SWAP !H THEN 0 ELSE DUP &S @ + ROT !H 2-   THEN ?DUP 0= UNTIL THEN @ ?DUP 0= UNTIL HSEG @ &T @ OVER &B @   &DP-HDS @ &T @ - BMOVEL &S @ &DP-HDS +! ELSE DDROP THEN ;       : RMV CONTEXT @ @ &DP-HDS @ !H &DP-HDS @ BEGIN BEGIN @H 2- DUP  @H DUP 0= IF DDROP EXIT THEN RFA C@H H? 0= UNTIL DUP BEGIN @H   2- DUP @H DUP IF RFA C@H H? ELSE DROP 1 THEN UNTIL DUP 2+ ROT   2+ RM DUP @H 0= IF DROP EXIT THEN AGAIN LATEST RFA C@H H? 0= IF LATEST DUP %HLEN - &DP-HDS ! 2- @H CONTEXT @ ! THEN ; : PRX&F   6B6F $OK 1+ ! FORGET-SYS ' 1- CFADR ' H? ! RMV                  [COMPILE] FORGET ; PRX&F &S                                     