( (SEEK-, (DELETE- )                                            : (SEEK)                                                            BEGIN 3FF R# @ <                                                  IF SEEK-ERROR                                                   THEN 1LINE                                                    UNTIL ;                                                                                                                     : (DELETE)                                                        >R #LAG + R -                                                   #LAG R MINUS R# +!                                              #LEAD + SWAP CMOVE                                              R> BLANKS UPDATE ;                                                                                                                                                                                                                                            -->                                                             