(Q?@)(COND((Q1@"Delete line of text? "T)(Q?J)(ENTDEL ENAME)(SSDEL ENAME QOJ)(SETQ QQJ NIL QL@(1- QL@))(IF(>= Q#J QL@)(SETQ Q#J(1- Q#J)))(IF(NOT(ZEROP QL@))(SETQ Q&@ T)))(T(Q?@)(SETQ QQJ"*"QLJ 1 Q&J 1)(QJ@)))