( POLYFORTH COMPATIBLE LINE EDITOR )                            FORTH DEFINITIONS HEX                                                                                                           : TEXT                                                              HERE C/L 1+ BLANKS WORD                                         HERE PAD C/L 1+ CMOVE ;                                                                                                     : LINE                                                              DUP 0FFF0 AND                                                   IF ." NOT ON CURRENT EDITING SCREEN " QUIT                      THEN SCR @ (LINE) DROP ;                                                                                                                                                                                                                                                                                                    -->                                                             