(TEXTSCR)(Q$ NIL)(PROMPT"\e[H\e[0m")(REPEAT 26(PROMPT"\e[K\n"))(PROMPT"\e[HTED 3.2a (c)1991 Alacrity   ")(MAPCAR(quote (LAMBDA(QO Q1)(PROMPT(STRCAT"\e[7m"QO"\e[0m"Q1))))(quote ("F1""F2""F3""F4""F5""F6""F7""ESC"))(quote ("Modify""Join""Break""Cut""Paste""Case""Undo""Exit")))(PROMPT(STRCAT"         Line\e[2;18HColumn\e[2;32H""\021 \020 \036 \037 \021\315 Home End Shift/TAB Ins Del Alt-D Alt-S\n"))(Q@@(NOT Q@J))(REPEAT 16(PROMPT"+\315\315\315\315"))(SETQ QO -1 Q&@ NIL)(WHILE(SETQ ENAME(SSNAME QOJ(SETQ QO(1+ QO))))(PROMPT(STRCAT(QQ ENAME Q$J)"\4\n")))(Q0J 0)