(COND((AND(< 1 QLJ(1+ Q&J))(< QL@ 20))(Q?J)(COMMAND".COPY"ENAME"""@""@")(SETQ Q%@(ENTLAST)Q$@(QQ(IF(MEMBER(QQ 72 Q|J)(quote (0 3 5)))10 11)Q|J)QL@(1+ QL@))(ENTMOD(Q#(CONS 1(SETQ Q0(SUBSTR QQJ QLJ)))(ENTGET Q%@)))(ENTMOD(Q#(CONS 1(SETQ QQJ(SUBSTR QQJ 1(1- QLJ))))Q|J))(PROMPT"\nStart point: ")(COMMAND".STRETCH""R""C"Q$@ Q$@"A"Q%@""Q$@ PAUSE)(REDRAW ENAME)(SSADD Q%@ QOJ)(IF(AND QJQ(Q1@"\nSort text entities?"T))(SETQ QOJ((LOAD(STRCAT QLQ"ted.001"))QOJ)))(SETQ Q$J(Q#(LIST(CONS ENAME QQJ)(CONS Q%@ Q0))Q$J)Q&@ T QLJ 1 Q#J -1)(WHILE(NOT(EQ(SSNAME QOJ(SETQ Q#J(1+ Q#J)))Q%@)))))