( WIPE, COPY 1LINE )                                            : WIPE                                                              10 0 DO I (KILL) LOOP ;                                                                                                     : COPY                                                              B/SCR * OFFSET @ + SWAP B/SCR * B/SCR                           OVER + SWAP                                                     DO DUP FORTH I BLOCK 2 - ! 1+ UPDATE LOOP                       DROP FLUSH ;                                                                                                                : 1LINE                                                             #LAG FIND-BUF COUNT MATCH R# +! ;                                                                                                                                                                                                                           -->                                                             