(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 -")(SETQ Qj 0)(DEFUN Q@()(PROMPT(STRCAT"\010"(NTH(ABS(REM(SETQ Qj(1+ Qj))4))(quote ("\\""|""/""-"))))))(Q@)(DEFUN QQ(Ql Q& / Q1)(IF(ATOM Ql)(CDR(ASSOC Ql Q&))(MAPCAR(quote (LAMBDA(Q1)(CDR(ASSOC Ql Q&))))Ql)))(Q@)(DEFUN Q#(Ql Q& / Q0 Q1)(FOREACH Q0(COND((ATOM(CAR Ql))(LIST Ql))(Ql))(SETQ Q&(COND((SETQ Q1(ASSOC(CAR Q0)Q&))(SUBST Q0 Q1 Q&))(T(APPEND Q&(LIST Q0)))))))(Q@)(DEFUN Q$(QO / Q|)(COND((OR(NOT QO)(AND QO Q%))(SETQ Q|(OPEN"CON""w"))(MAPCAR(quote (LAMBDA(Q0)(PRINC(STRCAT"\e[0;"(ITOA(CAR Q0))";0;"(ITOA((IF QO CAR CDR)Q0))"p")Q|)))(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|(CLOSE Q|)Q%(NOT QO)))))(Q@)(DEFUN Q?j()(Q$ T)(PROMPT"\e[H")(REPEAT 25(PROMPT"\e[K\n"))(REPEAT 26(PRINT))(GRAPHSCR))(Q@)(DEFUN Qjj()(COND(Q@j(SETQ QQj(STRCAT(SUBSTR QQj 1(1- Qlj))(PRINC(CHR Q0))(PRINC(SUBSTR QQj Qlj)))Q&j(1+ Q&j))(PROMPT"\4"))(T(SETQ QQj(STRCAT(SUBSTR QQj 1(1- Qlj))(PRINC(CHR Q0))(SUBSTR QQj(1+ Qlj))))(IF(> Qlj Q&j)(PROGN(SETQ Q&j(1+ Q&j))(PROMPT"\4")))))(SETQ Qlj(1+ Qlj))(Q1j))(Q@)(DEFUN Q1j()(PROMPT(STRCAT"\e[2;25H"(ITOA Qlj)" \e["(ITOA(+ 5 Q#j))";"(ITOA Qlj)"H")))(Q@)(DEFUN Q0j(QO)(SETQ Q#j(+ QO Q#j)Q$j(Q#(CONS ENAME QQj)Q$j)ENAME(SSNAME QOj Q#j)Q|j(ENTGET ENAME)QQj(COND((QQ ENAME Q$j))((QQ 1 Q|j)))Q&j(STRLEN QQj)Qlj(IF(> Qlj Q&j)Q&j Qlj))(PROMPT(STRCAT"\e[2;15H"(ITOA(1+ Q#j))" "))(Q1j))(Q@)(DEFUN Q%j(Ql Q&)(COND((AND Ql(NOT(EQ Ql(QQ Q& Q|j))))(ENTMOD(SETQ Q|j(Q#(CONS Q& Ql)Q|j)))(SETQ Q$j(Q#(CONS ENAME Ql)Q$j)))))(Q@)(DEFUN Q?@()(PROMPT"\e[3;1H\e[K"))(Q@)(DEFUN Qj@()(PROMPT(STRCAT"\e["(ITOA(+ 5 Q#j))";1H\e[K"QQj"\4"))(Q1j))(Q@)(DEFUN Q@@(Q1)(PROMPT(STRCAT"\e[s\e[2;1H"(IF(SETQ Q@j(NOT Q1))"Insert ""Replace")"\e[u")))(Q@)(DEFUN QQ@()(Q?j)(Q%j QQj 1)(PROMPT"\nAny key to continue, [ESC] to end.")(COND((EQUAL(GRREAD)(LIST 2 27))(SETQ Ql@ 0))(T(SETQ Q&@ T))))(Q@)(DEFUN Q1@(STR Q1 / Q0)(INITGET"Yes No")(SETQ STR(GETKWORD(STRCAT STR" "(IF Q1"No/<Yes>""Yes/<No>")": ")))(COND((EQ STR"Yes"))((AND Q1(NOT STR)))))(Q@)(DEFUN T:ERR1(Q1)(IF(NOT Q&@)(Q?j))(IF Q|(SETQ Q|(CLOSE Q|)))(MAPCAR(quote (LAMBDA(Q1)(APPLY(quote SETVAR)Q1)))Q#@)(SETQ *ERROR* Q0@)(PROMPT"\nerror: ")(PROMPT Q1)(MAPCAR(quote (LAMBDA(Ql)(SET Ql NIL)))(quote (Q0 QOj Ql@ QO Q1 Q@j Qlj Q$@ QO@ Q&j QQj Q#j Q|@ Q|j ENAME Q%@ Q0@ Q$j Q?Q QjQ Q@Q Q#@ Q&@)))(GC)(PRINC))(Q@)(DEFUN C:TED(/ Q0 QOj Ql@ QO Q1 Q@j Qlj Q$@ QO@ Q&j QQj Q#j Q|@ Q|j ENAME Q%@ Q0@ QQQ Q$j Q?Q QjQ Q@Q Q&@)(SETQ Q0@ *ERROR* *ERROR* T:ERR1 Qlj 1 Q#j 0 Ql@ 0 Q&@ T Q#@(MAPCAR(quote (LAMBDA(Q1)(SETQ Q0(GETVAR(CAR Q1)))(COND((CDR Q1)(APPLY(quote SETVAR)Q1)))(LIST(CAR Q1)Q0)))(quote (("CmdEcho"0)("BlipMode")("Highlight")("LimCheck"0)("PdMode")))))((LOAD(STRCAT QlQ"ted.007")))(WHILE(NOT(ZEROP Ql@))(IF Q&@(LOAD(STRCAT QlQ"ted.008")))(SETQ Q0(GRREAD))(COND((/=(CAR Q0)2))((NOT(SETQ Q0(CADR Q0))))((< 31 Q0 127)(Qjj))((AND(= Q0 8)(> Qlj 1))(PROMPT"\10")(SETQ Qlj(1- Qlj))(COND(Q@j(SETQ Q&j(1- Q&j)QQj(STRCAT(SUBSTR QQj 1(1- Qlj))(PRINC(SUBSTR QQj(1+ Qlj)))))(PROMPT"\4 ")))(Q1j))((AND(= Q0 211)(<= Qlj Q&j))(SETQ QQj(STRCAT(SUBSTR QQj 1(1- Qlj))(PRINC(SUBSTR QQj(1+ Qlj)))))(PROMPT"\4 ")(SETQ Q&j(1- Q&j))(Q1j))((AND(= Q0 243)(> Qlj 1))(SETQ Qlj(1- Qlj))(Q1j))((AND(= Q0 244)(<= Qlj Q&j))(SETQ Qlj(1+ Qlj))(Q1j))((= Q0 9)(SETQ Qlj(IF(=(/(1- Qlj)5)(/(1- Qlj)5.0))(+ Qlj 5)(+ 6(*(/(1- Qlj)5)5))))(IF(>= Qlj Q&j)(SETQ Qlj(1+ Q&j)))(Q1j))((= Q0 143)(SETQ Qlj(IF(=(/(1- Qlj)5)(/(1- Qlj)5.0))(- Qlj 5)(1+(*(/(1- Qlj)5)5))))(IF(< Qlj 1)(SETQ Qlj 1))(Q1j))((= Q0 247)(SETQ Qlj 1)(Q1j))((= Q0 245)(SETQ Qlj(1+ Q&j))(Q1j))((MEMBER Q0(quote (246 13)))(COND((< Q#j(1- Ql@))(Q0j 1))((AND Q?Q(< Q#j 19))(SETQ Q$j(Q#(CONS ENAME QQj)Q$j))(Q?j)((LOAD(STRCAT QlQ"ted.009")))(SETQ Q@j NIL)(LOAD(STRCAT QlQ"ted.008"))(Q0j 1))))((AND(= Q0 132)(> Q#j 0))(Q0j -1))((= Q0 188)(LOAD(STRCAT QlQ"ted.003")))((= Q0 189)(LOAD(STRCAT QlQ"ted.004")))((AND(= Q0 190)(<= Qlj Q&j))(LOAD(STRCAT QlQ"ted.005")))((= Q0 191)(COND(Q|@(SETQ QQj(STRCAT(SUBSTR QQj 1(1- Qlj))Q|@(SUBSTR QQj Qlj))Q&j(STRLEN QQj))(IF(< Q&j 79)(Qj@)))))((= Q0 4)(Q?@)(COND((PROGN(INITGET"Upper Lower")(SETQ Q0(GETKWORD"Case? Upper/Lower: ")))(SETQ QQj(STRCASE QQj(EQ Q0"Lower")))))(Q?@)(Qj@))((= Q0 7)(SETQ QQj(QQ 1 Q|j)Qlj 1 Q&j(STRLEN QQj)Q$j(Q#(CONS ENAME QQj)Q$j))(Qj@))((= Q0 160)(SETQ Qlj(COND((ZEROP Qlj)0)((1- Qlj)))QQj(SUBSTR QQj 1 Qlj)Q&j Qlj)(Qj@))((= Q0 159)(SETQ QQj(SUBSTR QQj(1+ Qlj))Q&j(STRLEN QQj)Qlj 1)(Qj@))((= Q0 151)(Q@@ Q@j))((EQ Q0 27)(Q?j)(SETQ Q$j(Q#(CONS ENAME QQj)Q$j)Ql@ 0))((EQ Q0 212)(QQ@)))(COND((< Q&j 1)(LOAD(STRCAT QlQ"ted.002")))((> Q&j 78)(SETQ QQj(SUBSTR QQj 1 78)Q&j 78 Qlj(COND((> Qlj Q&j)Q&j)(Qlj)))(Q?@)(PROMPT"*NOTE* Text truncated!")(Qj@))))(LOAD(STRCAT QlQ"ted.006"))(MAPCAR(quote (LAMBDA(Q1)(APPLY(quote SETVAR)Q1)))Q#@)(SETQ *ERROR* Q0@)(PRINC))(SETQ QlQ(IF(SETQ QlQ(GETENV"TED"))(SETQ QlQ(STRCAT QlQ"\\"))""))(COND((NOT(FINDFILE(STRCAT QlQ"ted.001")))(PROMPT"\rUnable to locate TED.001 overlay file -- TED won't run!"))(T(PROMPT"\rLoaded.   ")))(PRINC)