;2e8(U+U*USETQLISPT-PATCHxORGETDDTSYMQUOTE$DEV5KLAMBDAU+TTTY-RETURNVALRET :SL :EXISTS :VP xSUBR ,(BO . ,D  , Z .,<M,<XNw, w*p R2Op 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,x; Job "" killed; No t: editor job? @ $KILLEDITORD$DONE "F,x]&#`DISOWN-EDITOR7B+)D ,8 ,&7Z 84N%7`. E`/7@@@@,X+. ,7Z 8 Dh4N,7`17 ",x; Job "" dis Qowned ; No editor job? p$DISOWNEDITORG t 4B4 "F,xx3REOWN-EDITOR,87@ " -,0$ B`7D+>2B+> ,7ZL4A 84N<7`Z* "H+Y4D?CLOBBER-EDITOR? AI `,8[0D6+H g-,1$ BZ`[ F $I* & "/+Y ,7Z 8 D4NK7`\ gE[`0B3+O`]L !+P``7/7B +X-,Ad ,X,8 "<-, $=,`d=,8",<, "/,x; Editor already owned ; Job "" is owned by another job" not found 5hd 7B+cCLOSE-EDITORJ7B+eJ+f "h$,xHbOPEN-EDITOR,8,8INPUT0DK+t ,k2,8,8,8",OPEN<K B,8% 1 "LTECO-VL $,X ,s,8,8R # "ML,8",FILEPOS<M + 2 ,w,8,8,8",<K B,8 "LbRL $,X ,~,8,8 "NdL,8",<M /,xINRi6 ASCIINOx r2OUTOOx O r2 (f,8CLOSEP P 3B`7 " ( "-, "/0``,x ,<,8,<!@ "N Nw *w,8 (.g,< "p Nw *w,8 g..,< "p /2o`+ g..,< "p .`-, /+ `-,A:u//,x HCURRENT-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](  @<RUN-TECOLSUBR-0,8 ,XQA4LISTIFYU $ "B*APPLYV ",8!@ "N,<.. $M,< "p w..,< $p "R-, "  ,,X "R/2`01 ",x HUM,8+-,Q`LISPT-TEXT-STRINGV ,7Z 84Nf7`r fJ7 `*E7 "NOINTERRUPTW `H0-, ",X,0@ " ,q,8,8TYI,8W",TYIPEEK<X+; Error while editor executing U commands requested by LISP:8`LISPT-READ-LOOPDEFAULT-LISPT-READ-EVAL-PRINT-LOOPu+A" XXYxLISPT-READTABLEREADTABLE YYZx,8TTY-RETURN-PROMPT?,8Z+ $KHF! gJAX J7@`+ "C A:R+ "/,xx; Reading from the editor abortedTERPRI9[[zPC &(B-,ERRLIST \ ,,8,8'",<7@1 ,7Z 84N7`'7 *E" -,INFILE\^Q ],8Q$READ ]5B "],8LISPT-EOF "^C`/04  B`1B^+#+ B^ `(N{6 80BH+[`INCLUDE0D_+Z`[,8@1 ,7Z 84N7`* `E b `LOAD_7`,,XE7PRIN1P# `5B "`,8 g*EVAL` BHC` /+ /,,E$77`. ",xCa; Reading from the editor ; Including File ; End] of File ; Finished reading EPRINC0-0,8 1n+6 Z(@b3BP+6Z(Q ,<,8 g4n9 0 Z(+: ",8,8",<9 "t/,x U0EPRINT-0,8 A@!1n+C Z(3BP+CZ(Q ` ,I,8 g4nF Z(+G "G# ,8,8",PRINT<bEFORCE-OUTPUTc "/0.@`,x U=EPRIN1-0,8 1n+P Z(3BP+PZ(Q ,V  ,8 g4nT Z(+T ",8 h,8",<`c "/,x 8UKP0ETERPRI-0,8 4n] Z(@b3BP+]Z(Q ,`,8,8",<[A:c "/,x @UXESPRINTER-0);UU $SPRINTER "eEDITOR-OUTPUT$e HUbEGRINDEFFSUBRw 0 $GRINDEF "g$e `fdETYO-0,8  1n+k Z(3BP+kZ(@Q ,q,8 g4no Z(+o 4 ",8,8",TYO<h "/JG:,x xUf FORCE-OUTPUT"h 0sECLOSE "J]*U*W tDEFUNEDITTMACROFORMIFLISP-EDITCDRijjkk,@AQl  eg lkTNx ",8,8@5By ,y,8,8 ",<1@  `20N+}Z`[Q7B+DR6DP+ ,,8,8",<1FEXPRfmz JKDi!E 2 "g 5B "g -, * E"Q-, 4^DmOUTFILESn^R n01[`-, $*gV,c J% "H/,xNo editor joboNo channel open to the editor or no buffer selected.o XuU8S$DEMOMODE$TRANSLMODEppx,8,8Z z,%*  5B ,@f,8,8#",<1+ ,,8,8$",@!# <7 ,,8,8$",PRINT-CONSOLE-MSG<q $K g 0JTECO-BATCHq,8 J,X4J , @`,8,8%",<q7@`+" "C ,HJ%/,xZapping MACSYMA code into a LISP without MACSYMA? ra(Reading Commands from the Editor)r(Finished)%i(QsTECO-BATCH-ERRORszP1[e (s-,$DISPFLAGtQ(E" STt$ERRORFUNu \$BATCHKILL7Bu+-KILL144Qv u0B+,$RESETv "GCTWAwQ(c"$INCHAR wCHECKLABELx5B1$LINENUM x..-,1 FR Bx wMAKELABELy-,~ EOF# "yhT03Bg+dIMAGE-STRING@@zGET-COMMAND-STRINGz[ Bg~ DgR ;0D{g " BtZg~ Ft0Dy+; PT2Q "+e $ zREPRINT{ tOLDST J|AE#7Bp+A-,4PARSE1|, @& +B| Bg5BE7`f7+d7Dp(b +G[TRANSLATE-MACEXPR}+I[CONTINUE1} B`L&Q6@`+L7`l7+d[`$% B~QD$OUTCHAR ~y$NOLABELS6B+ULINELABLE  ~(@-,$LASTTIMEZZ[Z[-,52 TIME & $*7Bt+YNODISP!(t1" $ REMPROPDISPLAY*+[ & $Hb  x..-, Bx wyhT3Q7Bp+2$CURSOR STRIPDOLLARETYI*b2 1N+27`r7@@t "/0+Syntax error occurred in reading commands from the editor.Error occurred while executing commands from the editor.DEMO TERMINATED% ,7Z 8 D`4Nw7`x 7 (Command reading from the Editor aborted)8t,<,<(@j,8TAB -,FF -,5 "LF -,CR -,@A ,8N,8,8 `1By+:1B{+:R0R$1B+: "yREADCH* B`\0BDC+-,UPCASEP "y, 0 g~ B` "-, `-, Bg~  +6"0B+ g~-, Bg~-,1@A ,8 `1B+0By+ + "y g~ B`-, Bg~+@,/ B`+6 g4J"[("Z (0H+7@g+6Zz Dz+67@g 4A!+$SP3B+6/0B +4 "yd B`0BH+1@@g,8 "y2B`++L `+/ B`0BH+( "y B` A@ 0B +(/ B`+6 g~ " -,0@ `-, Bg~+6 g~-,A Bg~7@g+96@g~g "+9 " Bg+/[`1B{+=0B+L ,@@0,8,8,8",<X Nw *w,8U1  z g$f `MEMBER 4BF `0Nb1g "+L ,J,8,8,8@0",<X Np "p B`+B/,X/,x(|,<,8 ,R,8,8,8c",<W Np *p,8 (@ 1N`+V0N+X g-,+b "(D!O z-, Bz7D+a `1n0+a0.=+a/.,< "pO/ +b `O//,x`%y hNVx $KJ,8[` 8 29Nj JZ`23 BV+o ,m`,8,8",<W `-, B`+et3 /,x d$SELECTBUFFERQ "F,x]H48p$TEDIT $$TSTRING " V "A t "F,x@fr|LT1@f[`[/5u$CONSFUNDEF& PUv|LT2AEXPR $ `MGETQ004B} & $ ` -,/0,,x`Uy,8@5B,[`$LISTP@34B[`Z[Q6B+R @dMACSYMA-EDIT "Q -, *-,@d 4mn n,8 " $0-.0@ gy-,,8,87@g+.4A[g$ALL1B+$INPUT0B+ wGETLABELS* $Zg0 Bg+#$FUNCTIONS0B+ , Q,8 $ Z,,8 $$ARRAYSZ ,,8Zg~,8",NCONC< Bg @+#LISTARGP B`4B# &Z[GETLABELS  Zg0 Bg7[gSTRMEVALMAKSTRING@0 $9,[g(B{7 +* 4! $[g55B+$STRDISP6B+,`:+,(`;Zg Bg+ "/-,0 + 5B1 * J`77@`+6ERRBREAK1 D*R *-,ERRSET @@4TSTRINGATTEMPT1NzUr$yyQAD#ERLIST,@@n J/ , "F/,x$;Hf~P MACSYMA-EDIT-INTERRUPT,8 ,>,8,8",LISTEN<4NA1 ,A,8,8g",<W@5BCA6B *+E "Q ,I,8 tREVERSE= h4,8",<ac "NT $ t{ *u "F/,x;TTYINT ,   x$TECOR(h !TECO "ENTER-SPECIFIC-INF-EDITOR "F,x0M ""])@Z8O$EMACSEMACS " "F,xHP "Pw*p"PR ""0SINF-EDITINF-EDIT MACRO$jxZ@ @0,84DZ*-, $-,-,5 LISPT-EDIT $-,+ZzSf /h 3],x`TINF-EDIT*-0U"pU[$EDITU*\LIST*PROGNLISTMAP-STRIP$ij  l    !!! F Fx,8(B{7  (0+` `+b $! `,/0,0,x],84Bg(B{6 +g@Z`5Bg[` D`6@`+i +r ` (N{7 8+m `-,+r[` (B{7 +p[`+r ,r,8,8z@",<1,8 g(N{7 8+v g +wZg[-,-,pTK/+ First arg must be atomic."hc@@Z,8D1-,-,@5B~, "F@0A,  "H/,xYB*@z 5B7D$+ FIND-ROVING-EDITOR",xX AR,8,8[0D3+ "#@@ +A1Ng ",8,X(b4J gEDITOR-FROM-DDT#+* ,7Z 8 FF4N7`,*TYI$ .A1N +)FF z,%*  4B$ERROR$+^G% " B+*0D6+&7F6+ ,7Z 8 D&14N7`4+ 7 g-, B 4Z`[ D $I  "+*4D(  "+* ,*,8,86",<1/0,xRoving editor job is inferior to some other job. Create a new one? (Y or N) %:; Roving editor reowned Can't create editor job (system full?)%(U*U*UCHNLCHARDO=..SAFE/ 1 :VP TTYCONSEditor jName? ZEROPU*U.FLATCREADLINEUNWIND-PROTECTPROG2NOUUOLISPT-EDIT-INTERRUPT &&''(&(W&'(W[' )&9)' **'+&' +,&,,!' &-,&x,8,8@17 ,;,8,8g",<4N? ,>,8  ,8g",<W3O`+?+8@5BA,!H  "A ,/,xP7,8  zP_'L0Q -,  "W,7@`+IRh@jRETURN-TO-EDITOR-z@<,bfTTY-RETURN-LIST H./RETURN-TO-DDT .(CM7B+M "+M ",xXJQB!LISPT-^Z # JC7B$+V7D+V .ROVING-EDITOR-TTY-RETURN- $P1/z7MOMEMQ05BU ./z7MO-, B.QE:WEDITOR-TO-DDT0+V ",xpNDEFAULT-RETURN-TO-DDT-LISTDDT-RETURN 11/1x AD00 " $Z-. #-,+0@` 5Bd ,7Z 84N^7`e D7 "WRa.7BZ+c "C +d P "+d ",x; Warning: Can't get the ,Beditor.xW6B+l ,l,8,8 ", F<1  ,8D @ 015Bs ,s,8,8 ",<1-, J0R , ,8,8JNAME2zyx631 ,8 :vp "2 $-,,X-, :job $3-,H g-,  ..star/jrst $3-,,X-,5 @1:job $4-, $=,= ,8",<,/@@ "EI0,xNo editor job. 4Disowning the editor failed 5h,87@ " B0-, B`7D+ I `,81 [0D6+ Z[+ $0D3+ !!D1 "#  &A4N +  , ,8 !,8 &",<1-, , ,82zyx631)` ,8 :VP "5-,,X-,R@R :DISOWN :JOB $6-, g-,:JOB $6 0-, $=,=,8",<&,+ $4D " , $,8,8 '", %<1/,X"HEditor belongs to some job other than DDT7Editor job doesn't exist %AD78 -,4 ,7Z 8 D #4N +7` 4,*READCH8,87UYy89zP[df,X4J 2[(Z (0H+ /P D+ 3 "+ ,xClobber the exi?sting editor? (Y or N)  ';