( (HOLD-, (KILL-, (SPREAD-, X, Y )                                                                                              : (HOLD)                                                            LINE INSERT-BUF 1+ C/L DUP INSERT-BUF C! CMOVE ;                                                                            : (KILL)                                                            LINE C/L BLANKS UPDATE ;                                                                                                    : (SPREAD)                                                          >LINE# DUP 1 - 0E                                               DO I LINE I 1+ -MOVE -1 +LOOP (KILL) ;                                                                                      : Y >LINE# (HOLD) ;                                             : X >LINE# DUP (HOLD) 0F DUP ROT                                    DO I 1+ LINE I -MOVE LOOP (KILL) ;                          -->                                                             