( S )                                                           : S                                                                 0C EMIT 5E TEXT 0 COUNTER !                                     FIND-BUF BUF-MOVE                                               SCR @ DUP >R                                                    DO                                                                I SCR ! (TOP)                                                   BEGIN                                                             1LINE                                                           IF DISPLAY-CURSOR SCR ? BUMP                                    THEN 3FF R# @ <                                               UNTIL                                                         LOOP                                                            R> SCR ! ;                                                                                                                  -->                                                             