( D, TILL )                                                     : D                                                                 (F) E ;                                                                                                                     : TILL                                                              #LEAD + 5E TEXT                                                 FIND-BUF BUF-MOVE                                               1LINE 0=                                                        IF SEEK-ERROR                                                   THEN #LEAD + SWAP - (DELETE)                                    DISPLAY-CURSOR ;                                                                                                                                                                                                                                                                                                            -->                                                             