( #LEAD, #LAG, -MOVE, BUF-MOVE )                                : #LEAD                                                             #LOCATE LINE SWAP ;                                                                                                         : #LAG                                                              #LEAD DUP >R + C/L R> - ;                                                                                                   : -MOVE                                                             LINE C/L CMOVE UPDATE ;                                                                                                     : BUF-MOVE                                                          PAD 1+ C@                                                       IF PAD SWAP C/L 1+ CMOVE                                        ELSE DROP                                                       THEN ;                                                      -->                                                             