(PROMPT(STRCAT"\e[s\e[3;1H\e[KMove cursor, use \e[7mENTER\e[0m to mark end.\e[u""\e[s\e[7m"(SUBSTR QQJ QLJ 1)"\e[0m\e[u"))(SETQ QO QLJ)(WHILE(/=(SETQ Q0(CADR(GRREAD)))13)(COND((AND(= Q0 243)(> QLJ QO))(PROMPT(STRCAT"\e[0m"(SUBSTR QQJ QLJ 1)))(SETQ QLJ(1- QLJ))(Q1J))((AND(= Q0 244)(< QLJ Q&J))(SETQ QLJ(1+ QLJ))(Q1J)(PROMPT(STRCAT"\e[s\e[7m"(SUBSTR QQJ QLJ 1)"\e[0m\e[u")))))(IF(< QO QLJ)(SETQ Q0 QO QO QLJ QLJ Q0))(SETQ Q|@(SUBSTR QQJ QLJ(- QO QLJ -1)))(Q?@)(IF(Q1@"Remove text from current line? "T)(SETQ QQJ(STRCAT(SUBSTR QQJ 1(1- QLJ))(SUBSTR QQJ(1+ QO)))Q&J(STRLEN QQJ)))(Q?@)(QJ@)