; S`QU+U*USETQLISPT-PATCHxORGETDDTSYMQUOTE$DEV5KLAMBDAU+U*UTTY-RETURNVALRET:SL :EXISTS VP   xTPURIFYCURRENT-TECO-BUFFER-BLOCKTRUTHSUBRD q ,!OPW  ,va, 1,<@,*p2Op/0,x  "p $pi ,<am 0 0+:{x 3n0g]`',=_`"`/0+B/KI6@//0g]."P0+B7M"P0c2 %4P- 7Jb1 0+BZ]K86Q80 N0+B1&,\+- 6q( 88 +B/KIa/0+B7M.T0g]4T,Z4N,..+ Q`X40+B1t(\0 d< 4,< N[dPp[d  O[d[@"0d4N( 4 P[d @-0e;a3,x@kOh90+4t( @,< 0+6^` 0gddt8`T7 N`,\,x 0g].08c2 % N0g]@@0c2 %ˀ+ Ad/0g].*I,&  N/*I,& ,x.08+B/KI#I00+B1t(d,x@8c\0+4t( @S? 0+4t( @Pp8USR-OPEN-FIXC "  N0+:{x 0gdd+@G.`Jd,x@_B-`0+4t(  80+6^`0+;( @0+;<, @p;U  pkOANDNOTU+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 !+-/1xEDITOR-JOBEDITOR-USR-INPUTU+U*WEDITOR-USR-OUTPUTEDITOR-JNAMELISPT-FILE-FORCED35 xBOUNDPLISPT-FILESYS2TS7!9 xU:U.WLISPT-INITIAL-SNAMEUDIR7;; xLISPT-JNAMEMACSYMAMACST7== ? xLISPT-PROTECT7  xU+U.ULISPT-PROMPTERTTYRETFUNLISP-PROMPT7AA !CxLISPT-TTY-PASSING-MSG(Console Passing to the Editor)7""ExLISPT-TTY-TO-DDT-MSG(Console Passing to DDT)u:U*U7##GxROVING-EDITOR?7$$xDEFPROP$EDPROTECTALIASEDPROTECTREVERSEALIAS$ROVERW*]*UROVER I% KI &MI'$KI$OMx*BREAK16-FUNCTION*BREAK-TECO(QxLOAD-FROM-TECOBATCH-FROM-TECOLISPT-READ-TEXTLISPT-RETURN-TO-DDTU( CLEAR-TTY-RETURNLISPT-TECO-ERRORNULL,< A Np$1 *p (=NW )` (0N#1+Z `S`0N` *`1C0N+_ "`U`0N` "`U1#`0N `+`0N` `Wb  ,,xQU*U*UEXPLODENHSNAMEXUNAMEEDITMERGEFSYSSYS1*NCONCCan't find editor on disk! U*U*UERRORPROBEFLENGTHNREVERSEIMPLODECan't create LISPT job Can't Create job (system full?) FOREIGN^WU*U*UDEFAULTFGETFASLOADREOWNEDCan't load LISPT job TTY-VERBOSECURSORPOS*TERPRICRLFU*U*U" Created ; Editor job "PRINCPNGET" Reowned ..SAFE/1:VP U( #EXPLODECMAKNAMMAKE-EDITOR,<=`Y,80d-zjYYP3 -,1 !-,[znZP3P` z :7t-,,X-,-zjYYP3@`S -,1 !-,[znZP3 (`.z 8Ux5-,,X-, -,0@1,X-,,X-,7@g ` g7 8` g-,1  $-, Bg7@g+z-,2F1 },?K<,0@`",xaD1g4oxhINF-EDITOR-TESTCONTINUE-EDITORSTART-EDITOR@5BC` "h100100. FS EXITSET-JCLWAIT-FOR-EDITORGZP-EDITOR@4243`B `+ "`%` # ",x0TTY-PASSING-MSG " `+lG:Uh% "(CLEAN-UP-EDITOR*PRINCDONE!23KILL-EDITOR7B`)D `+`- ,gq1#Z 8!9835`859!@@5`1 ,gqZ 8/9 P`9 "E,x6Wcυ|6wc`O|SqxWc|X$DONE$KILLEDITOR` # "F,xh=DISOWN-EDITOR7B`UD    ,gqZ 84N&98_5"`8a9@@5+/ ,gqb4Z 8[98e9 ",x6WcO|;p_B6wc`O|SqxWchb@]|p $DISOWNEDITORGm "F,xx5*U(@0CLOBBER-EDITOR?REOWN-EDITOR " -, B`07D+@P5+@ ,gqZ 8}P"09`\ "H+[4DA` ``'b[0D7+J-,5Z`[@4 F $I@ "+[`-01 ,gqZ 898`"[`i`8+R89AD 7B `-, ,Z,8 ">-,2F1 },?K<,2@ ",x6/ay'cpF_|sy?c_ x 6Wcxx/a| s xwcxGa?||Pa_y/c_ 7Qd CLOSE-EDITOR7B+hJ3+jJ` "jU*U,x@INPUTINASCIIOPENTECO-VFILEPOSOUTOPEN-EDITOR,8` ,p C,8 ",<L3M $ $a ,83MH"",<N3` ,8,8", C1<L BM $a ,`,8,8 "OM",<N /07 ,xKx r2x O r2 xkCLOSEP3P 3B` " ( "-, "0``,x3  ,<,<!@ "O  ( "p ˀ "p`2o``9.. "p .`-,`; `-,A:u,x P CURRENT-EDITOR-BUFFERxCan't select buffer - No editor job.U*T1Buffer names must be atoms.OUTPUTSELECT-BUFFER-, D@5B$ ,$,8,8@K<1 ` 6 8`Q Q,8K<17B @ "+*J `-, `+ 0B "O.. $RC "pa/ˀ $pa1!M$ "`%` "O B "`% 0d#,Xa1 $S aKP, ",xQ 8RUN-TECO-COMMANDP`C `+ "O-, ..3 "pa/ˀh3 $pa1 "`%`,X @0a1, ",x]*T @ALISTIFY*APPLYRUN-TECOLSUBR-0  4`+` $ "BU!@ "O..  "pa/ˀ $pa1-, " `% ,,Xa12u*P ",x XVLISPT-TEXT-STRINGNOINTERRUPTTYITYIPEEKD+-,3 ,gqZ 8 D`3989 `*`9 " $W ``+-, "`% , ,v,8,8",<X+6/d_%x@|3pP x'b?)x@|r_Jxcxo`?x'd`__|Sp_B.UjWxf )8eLISPT-READ-LOOPDEFAULT-LISPT-READ-EVAL-PRINT-LOOP7YxLISPT-READTABLEREADTABLE7ZxPhTTY-RETURN-PROMPT?+ ap@3J7@`+ "pA` "/jU*U,x; Reading from the editor abortedTERPRIERRLISTCINFILE^QREADU*U%LISPT-EOF+INCLUDELOADPRIN1*EVAL;[zPc&-,@ 0 \ ,8,8.Koq ,gqZL&B 898]9 *3-,D],8 ^5B "^C` B`0+* B_ `6 8`I[``IZ`[01 ,gqZ 84N 98e ``33! ``9`5`9M2aa BHC``%``c1,,99`7  ",x6a?x'b?x8Cy'b p_BO|H6Oc_xge? xOc_oP6/c_q qF|67b?xOdx/a_|qG| PEPRINC-0 ;` !Z(p`Z(` ,84nC` @` ",8",<; *P ",x V:PRINTEFORCE-OUTPUTEPRINT-00 ;` Z(p `Z(` ,84nP P@` ",8",<b` "t,x 0VGEPRIN1-0 `!;+Z Z(p+ZZ(` ` ,`,8 @+^ "f@0,8",o` ",x]@ 8VETERPRI-0 4ng @p+g@` ,8,8KP Uo` ",x @VbSPRINTEREDITOR-OUTPUTP`C]ESPRINTER-0` $$e XVGRINDEFU:PEGRINDEFFSUBR $ "f$e hgnTYOETYO-00 ;+u Z(p +uZ(` ,{,8 P @+y,8",o "0.D;Q,xVFORCE-OUTPUT h (ECLOSE jU*U"JDEFUNEDITTMACROFORMIFLISP-EDITCDRu*U*jk,@Cl efkTO xNo editor job No channel open to the editor or no buffer selected.FEXPR^DOUTFILES^R,8@5B ,,8,8K<1 `2!!0N` Z`[`7B`+ T1 , ,8/K<1gnz JKDi "fa5B!H @1 "f -,1 *-, 5"`o[`-,1 $@U`",` "H/,xm]+U*U P $DEMOMODE$TRANSLMODEpxZapping MACSYMA code into a LISP without MACSYMA? (Reading Commands from the Editor)PRINT-CONSOLE-MSGTECO-BATCH(Finished)bz,%*  5B ,,8,8-KD<1+ , ,8[Koq E,83,8.K<r a`3 JS S,8]K<r7@` @`"`W "pA ,/,xqK@;sGETCHARN|LT1 i@V/U*U*UTECO-BATCH-ERROR$DISPFLAGST$ERRORFUN$BATCHKILLKILL1$RESETGCTWA$INCHARU*U*UCHECKLABEL$LINENUMMAKELABELEOF#IMAGE-STRINGGET-COMMAND-STRING;REPRINTOLDSTU*U*UPARSE1TRANSLATE-MACEXPRCONTINUE1$%$OUTCHAR$NOLABELSLINELABLE$LASTTIMETIMEU*U% NODISPREMPROPDISPLAY*$CURSORSTRIPDOLLARTYI*zP1[e -,1D!uv \`qw M# 0B`o` "xy5B<D02ˀ-,z-,~H` 3Bg+q@@{`[ Dg0D|!b " Bu $t@,2Bg 2+H "` $ {a J}#+N-,5`,``L&989+q+T[01~`[` B`6@``9`|@D2 9+q[` Bz6B+b@ ,ZZ[Z[-,2!!  $*7Bu` $E#a` & $ˀb#!#-,z7Bp`{@1`` 1N`{9`9  "/+}f?y'`?0p_I|Kqxy/d_%x/a|'q`%x/`? xOc_?߁Ox7d_xhJ|#pP x'b?)xG}/d_%x@?|Wr/I|p@/xGb?>_O|;ppx?xc_ yCy'b p_BO|HpImpri (a ,gqZ 898 9#ߍ|qoBya?x'b?x8Cy'b /a*Uy'cpA|?r/JBAH TABFFLFCRU*U*U$READCH*\UPCASEP"SP/ P MEMBER,<,<,8 -,1D1 -, -, -,0@  ,8`,8 `0+O1B| +O1B+O` B`0B`I-,1```,3 B` "`A-, `-,`0B +1b3-,-,,8 `1B ++`W+/` g~ B`-, Bg~`Q,@  B``m[(Z (0H`c7@g   `Z{ D{`7@g`qp`0B +I` B`0BH`@@g,80A2B`` `+D` B`0BH+=0A` B`0B += B``@`3 " -, `-,`3-,7@g`3 "@`A+N " Bg+[`1B|+Rb0B` ,U,8,83",<XP11  z 3 `a5B^` ,\@0,8,83",<X Np "p B``K`/,x8P`,< ,83", Np *p (1N``+j 2-,+t "(` {-, B{+s `1n0+s {+s/.  "p`+t ``/C,x xx a`#,8[` 833JZ``e 3+ ,83Ko ` `]-, B``,x v$SELECTBUFFERP*` "F,xH$TSTRING$TEDIT $ " F@]U "`  "F,xXgCONSFUNDEFPc]|LT2@f[`[&hVAEXPRU MGET|LT3 $ `a & $ ` U-,1,xV $LISTPMACSYMA-EDITU*U*U$ALL$INPUTGETLABELS*$FUNCTIONS$ARRAYSNCONCLISTARGPGETLABELSSTRMEVALMAKSTRING$STRDISPERRBREAK1ERRSETTSTRINGATTEMPTERLIST@01%`[``!-[`Z[ 2`6B`1 "` -,1 *D 2-, 5o,8 "` $B-. gy-,,8AA#3+@`0#+$0B+'`%@(As0+50B+0 ,/,8  0Z, $@',0Zg~K<+5`) B`4B5 `0 &Z[As09`P `+ $;,`7 @1!+< $`65B=Ѐ-+>8`}(`M@`A "/-,10 +  * J`97@`` *J01-,/@@51K1zy,A@d J, "F,x6Pg!LISTENREVERSEMACSYMA-EDIT-INTERRUPT b,8K3 ,83K121@5BUC6B+W "` ,[ `,8?Ko` "OB4 T $a "F,x( U:U$TTYINT , 7 75xTECOENTER-SPECIFIC-INF-EDITOR$TECO "`9 "F;C,xP "h9@EMACS$EMACS;`9 C; "F,x`;h9X "h90U:@INF-EDITINF-EDIT MACROI=xLISPT-EDITZ,84Dl*-,2@d $-,-,1 ?-, AA:`?zSf ,xpINF-EDIT*-0nU*W`h?V$EDITLIST*PROGNLISTMAP-STRIP$A!C"?"EFC?FxB 7 ` `+t E P `,,x(o First arg must be atomic.B6 `Z`[` D`a6@``=` `7 8+a `-,` [`7 +D[``  ,8,8 K<1 7 8++ @[-,0F-,=`9/+%H`1#xu-,-,C#@!` "`,  " "H,xHFIND-ROVING-EDITOR /7D$ *U`/=`G,x)EDITOR-FROM-DDT*TYI$ERRORU` ^GCan't create editor job (system full?)`'[i+, "$@@{A1N "`-04J"`I`y ,gqZ 84N%S9`>% A3++z,%*  Dh U`K++& "`y0D7+87F8+2 ,gqZ 84N19`I`eD9-,5Z`[ D $I44  "`y4D:`- "`y y@``,8,8MK<1/,xex_xwa`O|SqxWcxOc_x/d_x@|Sqp'x? q|#p_IxWc;uXx/`?>xwa?.q|9x@\%P6cxOc_p_BO|Hd_ xu*Ux/aM8CHNLCHARDO=U*U*U..SAFE/ 1:VP TTYCONSEditor jName? ZEROPFLATCREADLINEUNWIND-PROTECTPROG2NOUUOWLISPT-EDIT-INTERRUPT'O(Q)3O)O(SW( *O;U( +W(,O( Y-O[[?"(;'.[O x,89 ,8,8gK34NV ,8,8gK3O`+V Dh2+O@` "` ,/jT,x` RETURN-TO-EDITORTTY-RETURN-LISTRETURN-TO-DDTzP_'L0Q-, ) "W,7@``]z@<,bf H/cCh_(Z7B``+ "`% u*Q+d ",xhROVING-EDITOR-TTY-RETURNMEMQEDITOR-TO-DDTLISPT-^Z #!!%17B$`7D` /0zJ aaAD1 /0zJ -, B/1+m ",x]+H1DEFAULT-RETURN-TO-DDT-LISTDDT-RETURN722cex " $q-.5 `I-,1+  ,gqZL&C 8989 "WRa/ (` "pA+{ "+{ ",x6?`? %xwb?#|qa|Pe>|qJ#!No editor job. Disowning the editor failed JNAME :vp :job   ..star/jrst :job 6B` ## ,8,8 K<1 `+ `)HbD   ,8 7K!S<1-, 1,854zyx631 @ i-,1,X-, $5-,0H g-, k-,,X-,2H $6-, },?A@b K<,@@ "E,x".U*P3g Editor belongs to some job other than DDT :VP  :DISOWN :JOB :JOB Editor job doesn't exist @! " -, B`7D+ ` `A1`'[0D7+ %Z[+ <11i` q "$ {A S`-+ ,! , ,,8,8 >K<1-, oL,84zyx631  "7-,1,X-,2@  o-, g-,7 $8-,2F },?K<,1+ < s`- , <,8 }K<1`D]hmqH *READCHUDYy-,5 ,gqZ 81054N C98 ,99s:zP[df@ 4J J[(Z (0H` `+ K "+ ,xGxgcxa?$rOD|a?1xOdxOc_?p_BO|9x@\$  ?;