;2e((U+U*USETQLISPT-PATCHxORGETDDTSYMQUOTE$DEV5KLAMBDAU+TTTY-RETURNVALRET :SL :EXISTS :VP xSUBR ,(BO . ,D  , Z .,<M,<XNw, w*p R2Ow Ow,/,xgT (` "p $pPURIFY&,<,0,6 0 08" :{x3n0 ;B+,=_`"`$0/08 B/K6@//0 ;B.7`/"P08 B7"P0 B24P 7Jb 0 BZ]6Q`p880 N0 B1,\+ 6q( 8 B/K ,0/0 B7.T0 ;B4T,CURRENT-TECO-BUFFER-BLOCKZ4N,@p..`@+ Q`X40 B1t\0`BdB< 4,< N`-dPp N"`-d 4 O`-d O`-d 4N( 4 P`-d/ -08p (;O,x@kOh90 4t(@`p,<,< 0 6^` 0 Hd?,X3PP`T7 N`,\,\,x 0 ;B.0 B2A` N0 ;B@@0 B2&.`@+ $./08@p ;B. I,& N/ I,& ,x.0 B/Kb&0U0GI00 B1t`Bd,x@C\y@0 4t(@@S? 0 4t(@USR-OPEN-FIXZ  "  N0 :{x 0 Hd?A.G.)`JdTRUTH ",x@_B-`0 4t( 80 6^`0 ;(@0 ;<, @p;U  @ pkODANDNOTU+UjUSTATUSFEATURELISPT xSSTATUS xMAPCXCONDU*U*UGETLEXPRAUTOLOADPUTPROPLDDTFASLDSKLIBLSPSTART-JOBU*U.USET-JOB-START-ADRCONTINUE-JOBWAIT-FOR-JOBMAKE-JOBDISOWN-JOBJOB-START-ADR    xHUMBLESELECT-JOBU*U.ULOAD-JOBKILL-JOBEXAMINE-JOBDEPOSIT-JOBJOB-USET-READJOB-USET-WRITE    xEDITOR-JOBEDITOR-USR-INPUTU+U*WEDITOR-USR-OUTPUTEDITOR-JNAMELISPT-FILE-FORCEDxBOUNDPLISPT-FILESYS2TS  xU:U.WLISPT-INITIAL-SNAMEUDIR  xLISPT-JNAMEMACSYMAMACST   xLISPT-PROTECT   xU+U.ULISPT-PROMPTERTTYRETFUNLISP-PROMPT   !!xLISPT-TTY-PASSING-MSG(Console Passing to the Editor) """xLISPT-TTY-TO-DDT-MSG(Console Passing to DDT)u:U*U ###xROVING-EDITOR? $$xDEFPROP$EDPROTECTALIASEDPROTECTREVERSEALIAS$ROVERW*\ROVER $% %$ &&$'$%$$'&x*BREAK16-FUNCTION*BREAK-TECO((x,<,8 .QA Np *p,8 (=NW LOAD-FROM-TECO)%#+e (0N+Z BATCH-FROM-TECO)+e0N (b%+\ LISPT-READ-TEXT*+e0N+_ "LISPT-RETURN-TO-DDT@(1*+e0N+a "*+e0N +cQD*CLEAR-TTY-RETURN++e0N+e LISPT-TECO-ERROR+/5 NULL ,//,xQPT2MAKE-EDITOR,< EXPLODEN-,8,8HSNAME)AH-zjYYP3 -, $-,,8XUNAME)T 0.znZP3 z :7t-,,X-,,8)AH-zjYYP3 -, $-,,8.znZP3 0 EDIT.z 8Ux5-,,X-,,8` -,,X-,,X-,,87@g+ g(N{7 8+ g -, $-, Bg7@g+zCan't create LISPT job >Can't Create job (system full?) %u# ?Can't load LISPT job ?HhSTART-EDITORINF-EDITOR-TEST@5B,%t1 "CONTINUE-EDITOR"A}GZP-EDITOR@5B,100100. FS EXIT% FCQ "BSET-JCLB  "WAIT-FOR-EDITORC ,T  ",x "TTY-PASSING-MSG JC,8 lG:,X" "0 KILL-EDITOR7B+QHfCLEAN-UP-EDITORD  ,7Z 8 DT14N7` *PRINCE`7@@@`@@+ ,7Z 84N7`7DONE "E,x6Wcq?D|3qOB|:6wc`|pOD|SqIxWc|@ $KILLEDITORD$DONE .D "F,x`DISOWN-EDITOR7B+*D   ,8 ,7Z 84N&7`/ LDE`07@@@@,X+/ ,7b4Z 84N-7`27 ",x6WcpOD|OqK|;p_B6wc`|pOD|SqIxWchb@]|p $DISOWNEDITORG4B6 "F,xx5REOWN-EDITOR  ,87@ " -, B`7D+@2B  +@ ,7Z 84N>7`\* FF "H+[4DACLOBBER-EDITOR?I `,8[ @ 0D6+J g-, BZ`[ FRh  $I* "/+[@1 ,7Z 84NM7`_ gE"[`0B3+Q``+R`d7/AD 7B +Z-, ,Z,8 "<-,2F $=,=,8",<,2@ "/,x6/ay'c$pF|Kp_@|sy?c_ x 6WcqIxex/a| sxwc)xGa?$q/G|qoG|Pa_y/c_ 7hd 7B+hCLOSE-EDITORJ7B+jJ+j "h$,xHfOPEN-EDITOR,8,8INPUT0DK+x ,p2,8,8,8",OPEN<K B,8% 1 "LTECO-VL $,X ,w,8,8R # "ML,8",FILEPOS<M + 2 ,{,8,8,8",<K B,8 "LbRL $,X ,,8,8 "NdL,8",<M /,xINRi6 ASCIINOx r2OUTOOx O r2 (k,8CLOSEP P 3B`7 " ( "-, "/0``,x ,<,8,<!@ "N Nw *w,8 (.g,< "p Nw *w,8 g..,< "p /2o`+ g..,< "p .`-, /+ `-,A:u//,x H CURRENT-EDITOR-BUFFERPxSELECT-BUFFERF,8-,@5B$ ,$,8,8@@a",<1 `(N{6 8+( ,(,8 B0,8@",<17B+*J `-, C BP ,XB ",8 "NH,<.. $Q,< "p wH4..,< $p "R "C!I# "N B " ,X "RH#/OUTPUT $R J, )KP ",xCan't select buffer - No editor job.SBuffer names must be atoms.S RUN-TECO-COMMAND,8P`C  ",8 "N-,,<.. g,< "p w..h3,< $p "R "C,X "R @0/, "/,x](  @ARUN-TECOLSUBR-0,8 ,XQA4LISTIFYU $ "B*APPLYV ",8!@ "N,<.. $M,< "p w..,< $p "R-, "  ,,X "R/2`01 ",x HUQ,8+-,Q`LISPT-TEXT-STRINGV ,7Z 84Nj7`v fJ7 `*E7 "NOINTERRUPTW `H0-, ",X,0@ " ,v,8,8TYI,8W",TYIPEEK<X+6/d_%xd@|_qD|3pP x'b?)xd@|sB|r_J|'qoCxcxo`?x'd`|Kp_H|Wp_I|Sp_B.UjWxf Y'@8eLISPT-READ-LOOPDEFAULT-LISPT-READ-EVAL-PRINT-LOOP XXYxLISPT-READTABLEREADTABLE YYZxh,8TTY-RETURN-PROMPT?,8Z+ $K gJAX J7@`+ "C + "/jJQ,x; Reading from the editor abortedTERPRI9[[zPC &-,ERRLIST \ , ,8,8.",<7 ,7Z 8 Dh 54N7`.7 * -,INFILE " \^Q ],8READ ]5B "]` ,8LISPT-EOF "^C`/ B`1B^+*Qa+ B^ `(N{6 8+$[`INCLUDE @0D_+$Z`[,8 ,7Z 8 D 4N 7`2 `E `LOAD_7 t! `5,XE7PRIN1 `5B& "`,8 @ g*EVAL` BHC`/+/0 3 ,,77`7 ",xCa6a?x'b?x8C|KqFy'b p_B|'rOG|H6Oc_xge? xOc_oD|3pP6/c_qCqF|67b?xOdx/a|Kp_@|qG| PEPRINC-0,8 1n+? Z(3BP+?Z(Q ,E,8 g4nC( Z(+C ",8,8",<9  0 "/,x U:EPRINT-0,8  1n+L Z(3BP+LZ(@Q ,R,8 g4nP Z(+P : ",8,8",PRINT<bEFORCE-OUTPUTc "t/,x UGEPRIN1-0,8 A@!1n+Z Z(3BP+ZZ(Q ` ,`,8 g4n] Z(+^ "f@0,8,8",<`c "/,x]@ 8UTETERPRI-0,8 4ng Z(3BP+gZ(Q ,i,8,8",P P<[c "/,x @UbESPRINTER-01BI#]U $SPRINTER "eEDITOR-OUTPUT$e HUkEGRINDEFP):FSUBR $GRINDEF "g$e `fnETYO-0 `,8 1n+u Z(3BP+uD0Z(Q ,{,8 g4nx Z( A# +y ",8,8",TYO<h "/0,T;Q,x xUo FORCE-OUTPUT"h 0|ECLOSE jU*U"J }DEFUNEDITTMACROFORMIFLISP-EDITCDRpbijjkk,@AQl  eg lkTNx,8,8@5B ,,8,8", <1 `20N+Z`[Q7B  +6DP+ , ,8,8",<1FEXPR* (2fmz JKDi "g 5B "g -, T* *-, 4^DmOUTFILESn^R@ n[`-, $*gV,A$Rc "H/,xNo editor joboNo channel open to the editor or no buffer selected.o]+@% X~$DEMOMODE$TRANSLMODEppx,8,8Z z,%*  5B1 ,,8,8-",<1+ , ,8,8-D ",<7 ,",8,8.",PRINT-CONSOLE-MSG<q $Kh`# gJTECO-BATCHq,8 J,X4J)! ,),8,8.",<q7@`++ "C DR ,/,xZapping MACSYMA code into a LISP without MACSYMA? ra(Reading Commands from the Editor)rR.J@5(Finished)sTECO-BATCH-ERRORszP1[e (s-,$DISPFLAG D*tSTt$ERRORFUNu \$BATCHKILL7Bu+7QI#%KILL1v u0B+6$RESETv "GCTWA Fw$INCHAR wCHECKLABELx5B:$LINENUM x..T05-, Bx wMAKELABELy-,~ EOF# E# "y3Bg+nIMAGE-STRING@@zGET-COMMAND-STRINGz[ Bg~  Dg;0D{g " BtZg~ Ft0Dy #+E "+n $ zREPRINT{ tOLDST * J|7Bp+K-,4PARSE1|,0L1+K| Bg5BN7`o7+nBFQ7Dp+Q[TRANSLATE-MACEXPR}+R[CONTINUE1}b1 B`6@`+U7`y7+n[`$%t!Q B~$OUTCHAR ~y$NOLABELS6B+_LINELABLE D ~-,$LASTTIMEZZ[Z[)-,TIME & $*7Bt+bR G# NODISP $ REMPROPDISPLAY*+d &! @ $  x..-, Bx wE#y7Bp+<$CURSOR STRIPDOLLARETYI*& 1N+<7`7@@t "@/+}f?y'`?0p_I|KqIx`y/d_%x/a|'q`%x/`? xOc_p?G|7q_@|;pOIx7d_xhJ|#pP x'b?)xdG}/d_%xd@|?p?A|Wr/I|p@/xGb?x(B|cp_A|WrOD|;ppxc?xc_ yC|KqFy'b p_B|'rOG|HpImpKJmPi /@1 ,7Z 84N7` 7}'u|?q_F|qoBya?x'b?x8C|KqFy'b /ay'c``0$pA|?r/J|pB 8,<,<,85 "TAB -,FF -,QT 0LF -,CR -,,8_ ,8,8 `1By+L1B{+L$ RF 1B+L "yREADCH* B`\0B+!(H00-,UPCASEP "y, g~@ B` "-, `-, Bg~+GR`"0B+. g~-, Bg~-,,8 `1B+(0By+(+,!@` "y g~ B`-, Bg~+%,0/ B`+G g4J3[(Z (@$!0H+.7@g+GZz Dz+G7@g+5QHSP3B+G/0B +F "y B` @ @0BH+B@@g,8 "y2B`+< ` AC+A B`0BH+: "y B`0B +:/ B`+G g~ " -,0 `-, Bg~+G g~-, Bg~@7@g+J6@g~g "+K " Bg+A/[`1B{+O0B+^ ,R,8,8,8",<X Nw *w,8RBF  z g$f `MEMBER 4BX `0Ng L  "+] ,[,8,8,8",<X Np "p B`+S/,X/0``,x(,<,8 ,d,8@`,8,8u",<W Np *p,8 (1N`a+h0N+i g-,+s "(OD z-, Bz7D+r `1n0+r@000.=+r/.,< "pO/+sA@`R `O//,x` _``h`Vx $KJ,8[` 89N|@f! JZ`23 BV+ ,~,8 `,8",<W `-, B`+w/0.F4,x u$SELECTBUFFERQ "F,x8P)C$TEDIT $$TSTRING " V "A  .@ "F,x@f|LT1@f[`[/QnT@QCONSFUNDEF& PU|LT2AEXPR $ `MGET 4B & $ ` -,/@b0Q,x`U ,8@5B,[`$LISTP2 4B[`Z[Q6B+MACSYMA-EDIT!H @1 "Q -, *-, 4 Amn n,8 " $A-. ` gy-,,8,87@g+?[gRHQ$ALL1B+#$INPUT0B+& wGETLABELS*@4AZg0 Bg+4$FUNCTIONS0B+/ ,.,8!@J $ Z,,8 $$ARRAYSZ,0#,8Zg~,8",NCONC< Bg+4Q@(QLISTARGP B`4B4 &Z[GETLABELS@a#QZg0 Bg7[gSTRMEVALMAKSTRING  $9,[g(B{7 +; $FD[g55B<$STRDISP6B+=`L+>`L`0Zg Bg+ "/-,+0PR 5BC * J`77@`+HERRBREAK1 *(E*--,ERRSET @@4TSTRINGATTEMPT1NzUr$yyERLISTD00,@@n J/,2@] "F/,x6HfMACSYMA-EDIT-INTERRUPT@#,8 ,P,8,8",LISTEN<4NS ,Sf,8,8g",<W@5BTA6B+V!D# "Q ,Z,8 tREVERSE=,8MB",<ac "NT $ t{ "Fu.U/,xMTTYINT ,   x$TECOTECO% 4 "ENTER-SPECIFIC-INF-EDITOR "F,x0_ ""8aUh !$EMACSEMACS " "F,xHb ""Zu.Pd ""0eINF-EDITINF-EDIT MACRO$jxZ,8H4Dk*-, $-,-,RBP0LISPT-EDIT $-,+lzSf /,x]F;U`fINF-EDIT*-0U"pUm$EDITLIST*U+@0PROGNLISTMAP-STRIP$ij  l    !!! F Fx,8(B{7 +rE `+s $! `,/@ ,xn,84By(B{6 +yZ`!5By[` D`6@`+{ + `(N{a7 8+~ `-,+[`(B{7 +[`+ ,,8,8 ",a<1,8 g(N{7 8+ g+@bZg[-,-,p/0I2+ First arg must be atomic."ht@@Z,8-,0F!-,@5B, "Ah,  "H/,x@ H%# 5B7D$+ FIND-ROVING-EDITOR",x@!,8,8[0D3++ "# =A1Ng ",8,X4J! 0 gEDITOR-FROM-DDT#+< ,7Z 84N$h` 7`=*TYI$ .A1N +* z,%* hc#  4B*$ERROR$+*^G% "+< H 00D6+77F6+1 ,7Z 84N0D`7`H+27 g-, BZ`FA [ D $I  "+<4D9 D "+< ,<,8,8L",<1/,xexe_xwa`|pOD|SqIxWcqIxOc_ x/d_xd@|Sqp'xc? qJ|#p_IxWc;uX%x/`?)x(@xwa?.qG|xxd@\%P6c-xOc_p_B$]|'rOG|Hd_ xex/aCan't create editor job (system full?)%( WbLISPT-EDIT-INTERRUPT &&x,87 ,P,8,8g",<@3 4NS ,S,8,8g",<W@5BU,!H  "A ,/,xhM,8  zP_'L0Q -,  "W,7@`+]Rh@jRETURN-TO-EDITOR'z@<,bfTTY-RETURN-LIST H'/RETURN-TO-DDT ((WM7B+a "+a ",xp^QB!LISPT-^Z # JC7B$+j7D+j 'ROVING-EDITOR-TTY-RETURN- $P1)z7MOMEMQ)5Bi ')z7MO-, B'QE:WEDITOR-TO-DDT*+j ",xbDEFAULT-RETURN-TO-DDT-LISTDDT-RETURN **(+x AD00 " $n-. #-,+0@` 5Bx ,7Z 84Nr7`y D7 "WRa'7BZ+w "C +x P "+x ",x6?`?%xwb?x; |qa(pB!|Pex(B|qJ|?r#@k6B+  , ,8 F#,8 ",<1  ,8DD  5B  , ,8,8 ",<1-,1% , ,8,8JNAME+zyx631 ,8R@R :vp ",-,,X-, :job $, $-, g-,  ..star/jrst $--,H ,X-,:job $--, $=,1@=,8",<,/I$X@@ "E,xNo editor job. .Disowning the editor failed . },8@!7@ " -, B`7D+ I `,8[0D6+ "Z[+ 9 Pb0D3+ 6 "#  ;A4N '+ ) , ),8,8 ;",<1-, , 5L@0,8+zyx631 ,8 :VP "/-,,X)`-, :DISOWN :JOB $/-, g-,RH:JOB $0-, $=,=,8AB",<,+ 94D 7 , 9,8 ,8 <",<1/,X"HEditor belongs to some job other than DDT%`b0Editor job doesn't exist 18 -,4 ,7bQZ 84N @7` I,*READCH1jJ,87Yy22zP[df,X4J G[(Z (L(0H+ DD+ H "+ ,xGxgcxa?$rOD|a?1xOd)xOc_p_B|'rOG|Ixxd@|\$  <;