(TEXTSCR)(PROMPT"\nTED v3.2a Shareware [03/09/91] (c)1987-91 Alacrity, All Rights Reserved.")(PROMPT"\n\nYou are granted a 21 day trial period.  If you then decide to continue to use")(PROMPT"\nthis software, you are morally obligated to register your copy.  Please use")(PROMPT"\na printed copy of REGISTER.FRM when registering.")(PROMPT"\n\n  If this isn't in REVERSE VIDEO, ")(PROMPT"ANSI.SYS isn't loaded and TED won't work!")(PROMPT"\n\nTechnical support for TED v3.2, and other fine Alacrity Software products, is")(PROMPT"\nprovided via Alacrity Software BBS (206)643-LISP 8N1 24hrs 1200/2400/9600 HST.")(PROMPT"\n\n    Alacrity Software BBS -- Where all the Truly Cool AutoDudes hang out!\n")(PROMPT"\nLoading %0")(SETQ Qj 0)(DEFUN Q@()(PROMPT(STRCAT"\010"(NTH(ABS(REM(SETQ Qj(1+ Qj))4))(quote ("\\""|""/""-"))))))(PROMPT"\rLoading %3")(DEFUN QQ(Ql Q&)(SETQ Ql(STRCASE(GETSTRING(APPLY(quote STRCAT)(APPEND(LIST Ql)(IF Q&(LIST" <"Q&">"))(LIST": "))))))(COND((NOT(EQ Ql""))Ql)(Q&)))(PROMPT"\rLoading %6")(DEFUN Q1(Ql Q# / Q0)(APPLY(quote STRCAT)(CONS(CAR Ql)(MAPCAR(quote (LAMBDA(Q0)(STRCAT Q# Q0)))(CDR Ql)))))(PROMPT"\rLoading %9")(DEFUN Q$(Ql)(INITGET(Q1 Ql" "))(Q1 Ql"/"))(PROMPT"\rLoading %12")(DEFUN QO()(GRAPHSCR)(IF(NOT Q|)(SETQ Q|"Left"))(SETQ Ql(GETKWORD(STRCAT"\nJustification "(Q$(LIST"Left""Right""Center""Mid""Same"))"/<"Q|">: ")))(IF Ql(SETQ Q| Ql))(COND((EQ Q|"Same")(WHILE(AND(SETQ Q%(ENTSEL"\nSelect TEXT entity: "))(SETQ Q?j(ENTGET(CAR Q%)))(/="TEXT"(Qjj 0 Q?j)))(PROMPT"\nNot a TEXT entity, please try again..."))(SETQ Q@j(Qjj 7 Q?j)QQj(TBLSEARCH"STYLE"Q@j)Ql(Qjj 72 Q?j)Q|(NTH Ql(LIST"Left""Center""Right""Left""Mid""Left"))Qlj(Qjj 50 Q?j)Q&j(IF(ZEROP(Qjj 40 QQj))(Qjj 40 Q?j)NIL)Q1j(Qjj(IF(MEMBER Ql(quote (0 3 5)))10 11)Q?j)))(PROGN(IF(NOT Q@j)(SETQ Q@j(GETVAR"TextStyle")))(WHILE(PROGN(SETQ Q@j(QQ"\nStyle name"Q@j))(NOT(SETQ QQj(TBLSEARCH"STYLE"Q@j))))(PROMPT"Style not found, try again."))(IF(NOT Q&j)(SETQ Q&j(GETVAR"TextSize")))(IF(ZEROP(SETQ Ql(Qjj 40 QQj)))(PROGN(INITGET 6)(IF(SETQ Ql(GETDIST(STRCAT"\nHeight <"(RTOS Q&j)">: ")))(SETQ Q&j Ql)))(SETQ Q&j NIL))(IF(NOT Qlj)(SETQ Qlj 0.0))(IF(SETQ Ql(GETORIENT(STRCAT"\nRotation <"(ANGTOS Qlj)">: ")))(SETQ Qlj Ql))))(INITGET(IF Q1j"Continue"1))(SETQ Ql(APPLY(quote GETPOINT)(APPEND(LIST(STRCAT"\nStart point"(IF Q1j" or <Continue>""")": "))(IF Q1j(LIST Q1j)))))(COND((EQ(TYPE Ql)(quote LIST))(SETQ Q1j Ql))(T(SETQ Q1j(POLAR Q1j(+ Qlj(* PI 1.5))(*(IF Q&j Q&j(Qjj 40 QQj))1.666)))))(APPLY(quote COMMAND)(APPEND(LIST".TEXT""Style"Q@j)(IF(EQ Q|"Left")NIL(LIST(SUBSTR Q| 1 1)))(LIST Q1j Q&j(ANGTOS Qlj)"*")))(SETQ ENAME(ENTLAST)Q#j(APPEND Q#j(LIST(ENTLAST)))Q0j(CONS(CONS ENAME"*")Q0j)Q$j(1+ Q$j))(SSADD ENAME QOj))(PROMPT"\rLoading %15")(DEFUN Q|j()(TEXTSCR)(Q%j NIL)(PROMPT"\e[H\e[0m")(REPEAT 26(PROMPT"\e[K\n"))(PROMPT"\e[HTED 3.2a (c)1991 Alacrity   ")(MAPCAR(quote (LAMBDA(Q?@ Q0)(PROMPT(STRCAT"\e[7m"Q?@"\e[0m"Q0))))(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"))(Qj@(NOT Q@@))(REPEAT 16(PROMPT"+\315\315\315\315"))(SETQ Q?@ -1 QQ@ NIL)(WHILE(SETQ ENAME(SSNAME QOj(SETQ Q?@(1+ Q?@))))(PROMPT(STRCAT(Qjj ENAME Q0j)"\4\n")))(Ql@ 0))(PROMPT"\rLoading %18")(DEFUN Q&@(/ Q1@)(SETQ Q1@(SSGET"P"))(COMMAND".SETVAR""PdMode"1".SETVAR""BlipMode"0".POINT"(GETVAR"ExtMin")".SELECT"(ENTLAST)""".SETVAR""PdMode"(Qjj"PdMode"Q#@)".SETVAR""BlipMode"(Qjj"BlipMode"Q#@))(ENTDEL(ENTLAST))(COMMAND".SELECT")(SETVAR"CmdEcho"1)(PROMPT"\nSelect objects: ")(WHILE(PROGN(INITGET"\n Crossing Window Add Remove Previous AUto BOX Last")(SETQ Ql(GETKWORD)))(COND((AND(EQ Ql"Previous")Q1@)(SETQ Ql Q1@))((MEMBER Ql(quote ("Window""Crossing""AUto""BOX")))(SETQ Q0@ T)))(COMMAND Ql))(SETVAR"CmdEcho"0)(COMMAND"")(COND((AND(SETQ QOj(SSGET"P"))(SSNAME QOj 0))(SETQ Q?@ -1 Q$j 0 Q0(SSADD))(WHILE(AND(< Q$j 20)(SETQ ENAME(SSNAME QOj(SETQ Q?@(1+ Q?@)))))(COND((EQ(Qjj 0(SETQ Q?j(ENTGET ENAME)))"TEXT")(SETQ Ql(Qjj 1 Q?j)Q#(SUBSTR Ql 1 78))(COND((OR(EQ Ql Q#)(Q$@"\nWARNING! Text string too long. Truncate? "NIL))(SETQ Q$j(1+ Q$j)Q0j(CONS(CONS ENAME Q#)Q0j))(SSADD ENAME Q0))(T(PROMPT"\nText removed from selection set."))))))(SETQ QOj Q0 Q0 NIL)(IF(AND Q0@(Q$@"\nSort text entities?"T))(SETQ QOj(QO@ QOj))))(T(IF Q1@(COMMAND".SETVAR""HIGHLIGHT""0"".SELECT"Q1@""".SETVAR""HIGHLIGHT"(Qjj"HighLight"Q#@)))))(COND((AND(EQ(TYPE QOj)(quote PICKSET))(SETQ ENAME(SSNAME QOj 0)))(SETQ Q?j(ENTGET ENAME)Q#(Qjj ENAME Q0j)))(T(PROMPT"\nNo text entities were selected.  Entering CREATE mode...")(SETQ Q#"*"QOj(SSADD)Q|@ T)(QO))))(PROMPT"\rLoading %21")(DEFUN Q%@()(COND(QOj(SETQ Q?@ -1)(PROMPT"\nUpdating -")(WHILE(SETQ ENAME(SSNAME QOj(SETQ Q?@(1+ Q?@))))(SETQ Q?j(ENTGET ENAME))(IF(NOT(EQ(SETQ Q#(Qjj ENAME Q0j))(Qjj 1 Q?j)))(ENTMOD(Q?Q(CONS 1 Q#)Q?j)))(IF(ZEROP(REM Q?@ 4))(GC))(Q@))(PROMPT"\rDone.     "))))(PROMPT"\rLoading %24")(DEFUN QjQ()(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 Q# Q@Q 1)"\e[0m\e[u"))(SETQ Q?@ Q@Q)(WHILE(/=(SETQ Ql(CADR(GRREAD)))13)(COND((AND(= Ql 243)(> Q@Q Q?@))(PROMPT(STRCAT"\e[0m"(SUBSTR Q# Q@Q 1)))(SETQ Q@Q(1- Q@Q))(QQQ))((AND(= Ql 244)(< Q@Q QlQ))(SETQ Q@Q(1+ Q@Q))(QQQ)(PROMPT(STRCAT"\e[s\e[7m"(SUBSTR Q# Q@Q 1)"\e[0m\e[u")))))(IF(< Q?@ Q@Q)(SETQ Ql Q?@ Q?@ Q@Q Q@Q Ql))(SETQ Q&Q(SUBSTR Q# Q@Q(- Q?@ Q@Q -1)))(Q1Q)(IF(Q$@"Remove text from current line? "T)(SETQ Q#(STRCAT(SUBSTR Q# 1(1- Q@Q))(SUBSTR Q#(1+ Q?@)))QlQ(STRLEN Q#)))(Q1Q)(Q#Q))(PROMPT"\rLoading %27")(DEFUN Q0Q()(COND((AND(< 1 Q@Q(1+ QlQ))(< Q$j 20))(Q$Q)(COMMAND".COPY"ENAME"""@""@")(SETQ QOQ(ENTLAST)Q1j(Qjj(IF(MEMBER(Qjj 72 Q?j)(quote (0 3 5)))10 11)Q?j)Q$j(1+ Q$j))(ENTMOD(Q?Q(CONS 1(SETQ Ql(SUBSTR Q# Q@Q)))(ENTGET QOQ)))(ENTMOD(Q?Q(CONS 1(SETQ Q#(SUBSTR Q# 1(1- Q@Q))))Q?j))(PROMPT"\nStart point: ")(COMMAND".STRETCH""R""C"Q1j Q1j"A"QOQ""Q1j PAUSE)(REDRAW ENAME)(SSADD QOQ QOj)(IF(AND Q0@(Q$@"\nSort text entities?"T))(SETQ QOj(QO@ QOj)))(SETQ Q0j(Q?Q(LIST(CONS ENAME Q#)(CONS QOQ Ql))Q0j)QQ@ T Q@Q 1 Q|Q -1)(WHILE(NOT(EQ(SSNAME QOj(SETQ Q|Q(1+ Q|Q)))QOQ))))))(PROMPT"\rLoading %30")(DEFUN Q%Q()(Q1Q)(COND((AND(PROGN(INITGET 6)(SETQ Q?@(GETINT"Join which line number: ")))(/=(SETQ Q?@(1- Q?@))Q|Q)(< Q?@ Q$j))(Q$Q)(SETQ Ql(SSNAME QOj Q?@)Q#(STRCAT(SUBSTR Q# 1(1- Q@Q))(Qjj 1(ENTGET Ql))(SUBSTR Q# Q@Q))Q$j(1- Q$j)QlQ(STRLEN Q#)QQ@ T Q0j(Q?Q(CONS Ql NIL)Q0j))(ENTDEL Ql)(SSDEL Ql QOj)(Q?l Q# 1)(IF(< Q?@ Q|Q)(SETQ Q|Q(1- Q|Q))))(T(Q1Q)(QQQ))))(PROMPT"\rLoading %33")(DEFUN Qjl()(Q1Q)(COND((Q$@"Delete line of text? "T)(Q$Q)(ENTDEL ENAME)(SSDEL ENAME QOj)(SETQ Q# NIL Q$j(1- Q$j))(IF(>= Q|Q Q$j)(SETQ Q|Q(1- Q|Q)))(IF(NOT(ZEROP Q$j))(SETQ QQ@ T)))(T(Q1Q)(SETQ Q#"*"Q@Q 1 QlQ 1)(Q#Q))))(PROMPT"\rLoading %36")(DEFUN QO@(QOj / Q1j Q?@ Q0 ENAME Q?j Ql Q0j)(COND(QOj(PROMPT"\nSorting  ")(Q@)(SETQ Q?@ -1 Q@l(CADR(TRANS(GETVAR"ExtMin")0 1)))(Q@)(WHILE(SETQ ENAME(SSNAME QOj(SETQ Q?@(1+ Q?@))))(SETQ Q?j(ENTGET ENAME)Q0(DISTANCE(SETQ Q1j(MAPCAR(quote (LAMBDA(QQl Qll)QQl))(TRANS(Qjj 10 Q?j)ENAME 1)(quote (T T))))(LIST(CAR Q1j)Q@l))Q0j(CONS(CONS Q?@ Q0)Q0j)))(SETQ Q0j(T:SORT Q0j))(SETQ Ql(SSADD))(FOREACH Q0 Q0j(SSADD(SSNAME QOj(CAR Q0))Ql)(Q@))(Q@)(IF(NOT(ZEROP(SSLENGTH Ql)))Ql))))(PROMPT"\rLoading %39")(DEFUN T:SORT(Q0)(Q@)(COND((NULL(CDR Q0))Q0)(T(T:MRGE(T:SORT(T:HEAD Q0(1-(LENGTH Q0))))(T:SORT(T:TAIL Q0(1-(LENGTH Q0))))))))(PROMPT"\rLoading %42")(DEFUN T:MRGE(QQl Qll)(Q@)(COND((NULL QQl)Qll)((NULL Qll)QQl)((>(CDAR QQl)(CDAR Qll))(CONS(CAR QQl)(T:MRGE(CDR QQl)Qll)))(T(CONS(CAR Qll)(T:MRGE QQl(CDR Qll))))))(PROMPT"\rLoading %45")(DEFUN T:HEAD(Q&l Q1l)(COND((MINUSP Q1l)NIL)(T(CONS(CAR Q&l)(T:HEAD(CDR Q&l)(- Q1l 2))))))(PROMPT"\rLoading %48")(DEFUN T:TAIL(Q&l Q1l)(COND((MINUSP Q1l)Q&l)(T(T:TAIL(CDR Q&l)(- Q1l 2)))))(PROMPT"\rLoading %51")(DEFUN Qjj(QQl Qll / Q0)(IF(ATOM QQl)(CDR(ASSOC QQl Qll))(MAPCAR(quote (LAMBDA(Q0)(CDR(ASSOC QQl Qll))))QQl)))(PROMPT"\rLoading %54")(DEFUN Q?Q(QQl Qll / Ql Q0)(FOREACH Ql(COND((ATOM(CAR QQl))(LIST QQl))(QQl))(SETQ Qll(COND((SETQ Q0(ASSOC(CAR Ql)Qll))(SUBST Ql Q0 Qll))(T(APPEND Qll(LIST Ql)))))))(PROMPT"\rLoading %57")(DEFUN Q%j(Q?@ / Q#l)(COND((OR(NOT Q?@)(AND Q?@ Q0l))(SETQ Q#l(OPEN"CON""w"))(MAPCAR(quote (LAMBDA(Ql)(PRINC(STRCAT"\e[0;"(ITOA(CAR Ql))";0;"(ITOA((IF Q?@ CAR CDR)Ql))"p")Q#l)))(LIST(CONS 59 84)(CONS 75 115)(CONS 77 116)(CONS 71 119)(CONS 79 117)(CONS 73 132)(CONS 81 118)(CONS 82 23)(CONS 72 132)(CONS 80 118)))(SETQ Q#l(CLOSE Q#l)Q0l(NOT Q?@)))))(PROMPT"\rLoading %60")(DEFUN Q$Q()(Q%j T)(PROMPT"\e[H")(REPEAT 25(PROMPT"\e[K\n"))(REPEAT 26(PRINT))(GRAPHSCR))(PROMPT"\rLoading %63")(DEFUN Q$l()(COND(Q@@(SETQ Q#(STRCAT(SUBSTR Q# 1(1- Q@Q))(PRINC(CHR Ql))(PRINC(SUBSTR Q# Q@Q)))QlQ(1+ QlQ))(PROMPT"\4"))(T(SETQ Q#(STRCAT(SUBSTR Q# 1(1- Q@Q))(PRINC(CHR Ql))(SUBSTR Q#(1+ Q@Q))))(IF(> Q@Q QlQ)(PROGN(SETQ QlQ(1+ QlQ))(PROMPT"\4")))))(SETQ Q@Q(1+ Q@Q))(QQQ))(PROMPT"\rLoading %66")(DEFUN QQQ()(PROMPT(STRCAT"\e[2;25H"(ITOA Q@Q)" \e["(ITOA(+ 5 Q|Q))";"(ITOA Q@Q)"H")))(PROMPT"\rLoading %69")(DEFUN Ql@(Q?@)(SETQ Q|Q(+ Q?@ Q|Q)Q0j(Q?Q(CONS ENAME Q#)Q0j)ENAME(SSNAME QOj Q|Q)Q?j(ENTGET ENAME)Q#(COND((Qjj ENAME Q0j))((Qjj 1 Q?j)))QlQ(STRLEN Q#)Q@Q(IF(> Q@Q QlQ)QlQ Q@Q))(PROMPT(STRCAT"\e[2;15H"(ITOA(1+ Q|Q))" "))(QQQ))(PROMPT"\rLoading %72")(DEFUN Q?l(QQl Qll)(COND((AND QQl(NOT(EQ QQl(Qjj Qll Q?j))))(ENTMOD(SETQ Q?j(Q?Q(CONS Qll QQl)Q?j)))(SETQ Q0j(Q?Q(CONS ENAME QQl)Q0j)))))(PROMPT"\rLoading %75")(DEFUN Q1Q()(PROMPT"\e[3;1H\e[K"))(PROMPT"\rLoading %78")(DEFUN Q#Q()(PROMPT(STRCAT"\e["(ITOA(+ 5 Q|Q))";1H\e[K"Q#"\4"))(QQQ))(PROMPT"\rLoading %81")(DEFUN Qj@(Q0)(PROMPT(STRCAT"\e[s\e[2;1H"(IF(SETQ Q@@(NOT Q0))"Insert ""Replace")"\e[u")))(PROMPT"\rLoading %84")(DEFUN QOl()(Q$Q)(Q?l Q# 1)(PROMPT"\nAny key to continue, [ESC] to end.")(COND((EQUAL(GRREAD)(LIST 2 27))(SETQ Q$j 0))(T(SETQ QQ@ T))))(PROMPT"\rLoading %87")(DEFUN Q$@(STR Q0 / Ql)(INITGET"Yes No")(SETQ STR(GETKWORD(STRCAT STR" "(IF Q0"No/<Yes>""Yes/<No>")": ")))(COND((EQ STR"Yes"))((AND Q0(NOT STR)))))(PROMPT"\rLoading %90")(DEFUN T:ERR1(Q0)(IF(NOT QQ@)(Q$Q))(IF Q#l(SETQ Q#l(CLOSE Q#l)))(SETQ *ERROR* Q|l)(MAPCAR(quote (LAMBDA(Q0)(APPLY(quote SETVAR)Q0)))Q#@)(PROMPT"\nerror: ")(PROMPT Q0)(MAPCAR(quote (LAMBDA(QQl)(SET QQl NIL)))(quote (Ql QOj Q$j Q?@ Q0 Q@@ Q@Q Q1j Q@l QlQ Q# Q|Q Q&Q Q?j ENAME QOQ Q|l Q0j Q|@ Q0@ Q1@ Q#@ QQ@)))(GC)(PRINC))(PROMPT"\rLoading %93")(DEFUN C:TED(/ Ql QOj Q$j Q?@ Q0 Q@@ Q@Q Q1j Q@l QlQ Q# Q|Q Q&Q Q?j ENAME QOQ Q|l Q0j Q|@ Q0@ Q1@ Q#@ QQ@)(SETQ Q|l *ERROR* *ERROR* T:ERR1 Q@Q 1 Q|Q 0 Q$j 0 QQ@ T Q#@(MAPCAR(quote (LAMBDA(Q0)(SETQ Ql(GETVAR(CAR Q0)))(COND((CDR Q0)(APPLY(quote SETVAR)Q0)))(LIST(CAR Q0)Ql)))(quote (("CmdEcho"0)("BlipMode")("Highlight")("LimCheck"0)("PdMode")))))(Q&@)(WHILE(NOT(ZEROP Q$j))(IF QQ@(Q|j))(SETQ Ql(GRREAD))(COND((/=(CAR Ql)2))((NOT(SETQ Ql(CADR Ql))))((< 31 Ql 127)(Q$l))((AND(= Ql 8)(> Q@Q 1))(PROMPT"\10")(SETQ Q@Q(1- Q@Q))(COND(Q@@(SETQ QlQ(1- QlQ)Q#(STRCAT(SUBSTR Q# 1(1- Q@Q))(PRINC(SUBSTR Q#(1+ Q@Q)))))(PROMPT"\4 ")))(QQQ))((AND(= Ql 211)(<= Q@Q QlQ))(SETQ Q#(STRCAT(SUBSTR Q# 1(1- Q@Q))(PRINC(SUBSTR Q#(1+ Q@Q)))))(PROMPT"\4 ")(SETQ QlQ(1- QlQ))(QQQ))((AND(= Ql 243)(> Q@Q 1))(SETQ Q@Q(1- Q@Q))(QQQ))((AND(= Ql 244)(<= Q@Q QlQ))(SETQ Q@Q(1+ Q@Q))(QQQ))((= Ql 9)(SETQ Q@Q(IF(=(/(1- Q@Q)5)(/(1- Q@Q)5.0))(+ Q@Q 5)(+ 6(*(/(1- Q@Q)5)5))))(IF(>= Q@Q QlQ)(SETQ Q@Q(1+ QlQ)))(QQQ))((= Ql 143)(SETQ Q@Q(IF(=(/(1- Q@Q)5)(/(1- Q@Q)5.0))(- Q@Q 5)(1+(*(/(1- Q@Q)5)5))))(IF(< Q@Q 1)(SETQ Q@Q 1))(QQQ))((= Ql 247)(SETQ Q@Q 1)(QQQ))((= Ql 245)(SETQ Q@Q(1+ QlQ))(QQQ))((MEMBER Ql(quote (246 13)))(COND((< Q|Q(1- Q$j))(Ql@ 1))((AND Q|@(< Q|Q 19))(SETQ Q0j(Q?Q(CONS ENAME Q#)Q0j))(Q$Q)(QO)(SETQ Q@@ NIL)(Q|j)(Ql@ 1))))((AND(= Ql 132)(> Q|Q 0))(Ql@ -1))((= Ql 188)(Q%Q))((= Ql 189)(Q0Q))((AND(= Ql 190)(<= Q@Q QlQ))(QjQ))((= Ql 191)(COND(Q&Q(SETQ Q#(STRCAT(SUBSTR Q# 1(1- Q@Q))Q&Q(SUBSTR Q# Q@Q))QlQ(STRLEN Q#))(IF(< QlQ 79)(Q#Q)))))((= Ql 4)(Q1Q)(COND((PROGN(INITGET"Upper Lower")(SETQ Ql(GETKWORD"Case? Upper/Lower: ")))(SETQ Q#(STRCASE Q#(EQ Ql"Lower")))))(Q1Q)(Q#Q))((= Ql 7)(SETQ Q#(Qjj 1 Q?j)Q@Q 1 QlQ(STRLEN Q#)Q0j(Q?Q(CONS ENAME Q#)Q0j))(Q#Q))((= Ql 160)(SETQ Q@Q(COND((ZEROP Q@Q)0)((1- Q@Q)))Q#(SUBSTR Q# 1 Q@Q)QlQ Q@Q)(Q#Q))((= Ql 159)(SETQ Q#(SUBSTR Q#(1+ Q@Q))QlQ(STRLEN Q#)Q@Q 1)(Q#Q))((= Ql 151)(Qj@ Q@@))((EQ Ql 27)(Q$Q)(SETQ Q0j(Q?Q(CONS ENAME Q#)Q0j)Q$j 0))((EQ Ql 212)(QOl)))(COND((< QlQ 1)(Qjl))((> QlQ 78)(SETQ Q#(SUBSTR Q# 1 78)QlQ 78 Q@Q(COND((> Q@Q QlQ)QlQ)(Q@Q)))(Q1Q)(PROMPT"*NOTE* Text truncated!")(Q#Q))))(Q%@)(MAPCAR(quote (LAMBDA(Q0)(APPLY(quote SETVAR)Q0)))Q#@)(SETQ *ERROR* Q|l)(PRINC))(PROMPT"\rLoaded %100")(PRINC)