; YTQU+U*USETQLISPT-PATCHxORGETDDTSYMQUOTE$DEV5KLAMBDATTY-RETURNVALRET:SL :EXISTS VP   xSUBR ,!O D  ,v 1,<,*p RS/,xT (` "p $pPURIFY&,<am 0 08" :{x3n0g]`',=_`"`/08 B/K6@//0g]."P08 B7"P0c2 4P 7Jb 0 BZ]6Qp880 N0 B1,\+ 6q( 8 B/K!a/0 B7.T0g]4T,CURRENT-TECO-BUFFER-BLOCKC4N,@p..+ Q`X40 B1t\0da< 4,< N[dPp"[d  O[d[d 4N( 4 P[d -08pe;,x@kOh90 4t(@`p,< 0 6^` 0gddt`T7 N`,\,x 0g].0c2 A` N0g]@@0c2 ˀ+ /0 pg]. I,& N/ I,& ,x.0 B/Kb#I00 B1td,x@c\@0 4t(@S? 0 4t(@USR-OPEN-FIXC "  N0 :{x 0gdd+G. @`JdTRUTH,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*\ROVER I% KI &MI'$KI$OMx*BREAK16-FUNCTION*BREAK-TECO(Qx,< A Np *p (=NW LOAD-FROM-TECO)%#` (0N+Z BATCH-FROM-TECO`S`0N (b%` LISPT-READ-TEXT*`0N+_ LISPT-RETURN-TO-DDT1`U`0N` "`U`0N `QD*CLEAR-TTY-RETURN+`0N` LISPT-TECO-ERROR`W NULL ,,xQPT2MAKE-EDITOR,<=EXPLODEN-,8HSNAME)AH[zjYYP3 -,1 !-,XUNAME)T 0.znZP3 z :7t-,,X-,0d[zjYYP3 -,1 !-,.znZP3 0 EDIT]z 8Ux5-,,X-,` -,1,X-,,X-,7@g` g7 8` gd-,1 $-, Bg7@g+zCan't create LISPT job }Can't Create job (system full?) ?Can't load LISPT job HhSTART-EDITORINF-EDITOR-TEST`5B`Y%t1 CONTINUE-EDITOR"AGZP-EDITOR``Y100100. FS EXIT#C "BSET-JCL` `+ `%WAIT-FOR-EDITORC * # ,x "TTY-PASSING-MSG `+;#!h% "0KILL-EDITOR7B`)QHfCLEAN-UP-EDITOR` `+`- ,7Z 8 DT1!`o835*PRINCE85`o@@015`1 ,7Z 8/`o``oDONE,x6Wcυ|:6wc`O|SqxWc|@$KILLEDITORD$DONE #,x`=DISOWN-EDITOR7B`U`    ,7Z 84N&`o8_5"E8a`o@@5+/ ,7b4Z 8[`o8e`o ",x6WcO|;p_B6wc`O|SqxWchb@]|p $DISOWNEDITORGm,xx5REOWN-EDITOR   " -, B`7D+@P5 +@ ,7Z 8}`o`\* FF+[4DACLOBBER-EDITOR?I ``'[ @ 0D6+J-,5Z`[ F@4 @ +[`-01 ,7Z 8`o8E"[`g`8+R8`oAD 7B `-, ,Z,8y-,2F1 $=,`{K<,2@ ",x6/ay'cpF_|sy?c_ x 6Wcxx/a| s xwcxGa?||Pa_y/c_ 7hd 7B+hCLOSE-EDITORJ3+jJ` ",xHOPEN-EDITOR,8INPUT0DK` ,p2,8 ",OPENo3% 1 "LTECO-V` $ ,83C! "M`",FILEPOSo3` 2 ,8,8",o B "LbR` $ ,,8,8 "Nd`",o /,xINRi6 ASCIIOx r2OUTOx O r2 (kCLOSEP3P 3B` " ( "-, 0``,x3  ,<,<!@ "N  ( "p ˀ "p`2o``9.. "p .`-,`; `-,A:u,x H CURRENT-EDITOR-BUFFERxSELECT-BUFFER#-, `5B$ ,$,8,8@@aK<1 `6 8`Q Q,8 B0K<17B+*J `-, C `+` "NH..  "pa/43ˀ $p "Ra1 `%C!I# "N `% ,X "RH#a1OUTPUT a, )KP ,xCan't select buffer - No editor job.SBuffer names must be atoms. RUN-TECO-COMMANDP`C `+ "N-, ..3 "pa/ˀh3 $p "Ra1 `%C,X "R @0a1, ,x](  @ARUN-TECOLSUBR-0 `+QA4LISTIFY` $*APPLYV!@ "N.. $M "pa/ˀ $p "Ra1-,   `% ,,X "Ra12`01 ,x HU+-,3 01LISPT-TEXT-STRING ,7Z 8`o8 fJ`o `*E`o "NOINTERRUPTW `H0`+-,  `%,0@" ,v,8,8TYI",TYIPEEK<X+6/d_%x@|3pP x'b?)x@|r_Jxcxo`?x'd`__|Sp_B.UjWxf )8eLISPT-READ-LOOPDEFAULT-LISPT-READ-EVAL-PRINT-LOOP7YxLISPT-READTABLEREADTABLE7ZxhTTY-RETURN-PROMPT?+ $Kap@3J7@`+ "pA` "/jJQ,x; Reading from the editor abortedTERPRIs[zPc&-,ERRLIST \ ,8,8.K<7 ,7Z 8 Dh 5`o8]`o 3-,INFILE" ^Q ],8READ5B`ALISPT-EOF "^C` B`1B^+*Qa+ `6 8`I[`INCLUDE @0D_`IZ`[ ,7Z 81 34N `o8e `E `LOAD``o t! `5E`oPRIN1 `M "` @*EVAL`C``%0 3 ,,`o`o`7 ,xCa6a?x'b?x8Cy'b p_BO|H6Oc_xge? xOc_oP6/c_q qF|67b?xOdx/a_|qG| PEPRINC-0 ;` !Z(p`Z(Q ,84nC` @` ",8",os  0 ,x U:EPRINT-0  ;` Z(p`Z(Q ,84nP @` : ",8",PRINToEFORCE-OUTPUTc t,x UGEPRIN1-0 `!;+Z Z(p+ZZ(Q ` ,`,8 @+^ "f@0,8",<`c ,x]@ 8UETERPRI-0 4ng @p+g@Q ,8,8KP Poc ,x @UbESPRINTER-01BI#]` $SPRINTER "eEDITOR-OUTPUTi HUEGRINDEFP):FSUBR $GRINDEF "gi0nETYO-0`! ;+u Z(p+uD0Z(Q ,{,8 @ A# +y,8",TYO<h 0,T;Q,x xU FORCE-OUTPUTh 0ECLOSE jU*U"JDEFUNEDITTMACROFORMIFLISP-EDITCDRpbjk,Ql gkTN x,8`5B ,,8,8K <1 `20N` Z`[Q7B  `+ , ,8/K<1FEXPR* (2mz JKDi "ga5B "g -,1 T* -, 4^DOUTFILESn^R@[`-,1 $@V,A$Rc/,xNo editor jobo No channel open to the editor or no buffer selected.%1 X $DEMOMODE$TRANSLMODEpxz,%*  5B1 ,,8,8-K<1+ , ,8[D K<7 E,8,8.KPRINT-CONSOLE-MSG<q $K:0#aTECO-BATCH`3JS! S,8]K<q7@``W "pADR ,/,xZapping MACSYMA code into a LISP without MACSYMA? ra(Reading Commands from the Editor)R.J@5(Finished)sTECO-BATCH-ERRORzP1[e -,$DISPFLAG*!tST$ERRORFUNu \$BATCHKILL+7QI#%KILL1v +6$RESET` "GCTWA Fw$INCHARCHECKLABELxu$LINENUMˀT05-,MAKELABELy-,~EOF# E#3Bg+nIMAGE-STRING@@zGET-COMMAND-STRING`[  Dg;0D{ BtA #+E ` zREPRINTaOLDST * J|+K-,4PARSE1`,11```o8`o+n+Q[TRANSLATE-MACEXPR}`[CONTINUE1`b1 B`6@```o`y`o+n[`$%t!Q B~$OUTCHARy$NOLABELS6B_LINELABLED ~-,$LASTTIMEZZ[Z[j@!-,TIME  $*7Bt`R G# NODISP $REMPROPaDISPLAY*` &! @ ˀ-,E#y7Bp+<$CURSORSTRIPDOLLARETYI*&` 1N+<`o``o "@/+}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_ yC y'b p_BO|HpImpri /@1 ,7Z 8 `o8ho#ߍ|qoBya?x'b?x8Cy'b /ay'c``0$pA|?r/JBA8,<,<,85"TAB -,1FF -, j aLF -,CR -,,8 `0+L1B{+L$ A1B+LREADCH*` B`\0B`C(H00-,UPCASEP` ,3@` B` "-, `-,`R`"0B+.3-,-,,8 `1B+(`Q+,!@`` g~ B`-, Bg~`K,0 B``g[(Z (!0H`]7@g`Zz Dz`7@g`kQHSPp`/0B +F` B` @ @`@@g,82B``y ` AC+A` B`+:` B`0B +: B``3 " -,0 `-,`3-,7@g`3 +K " Bg+A[`1B{+O0B+^ ,R,8,83",<X RBF  z 3 `MEMBERa4BX `  L  "`` ,8,83",<X Np "p B``/0``,x (,< ,d,8@`3,8u", Np *p (1N`a+h`-,` "(O" z-, Bz` `1n0`0a {`/. "pO`A@`R `O/,x` 0`h`x $Ka,8[` 89N|@f!3JZ``e3` ,8 `3Ko `-, B`+w 4 ,x $SELECTBUFFERQ,x8 CC#$TEDIT $$TSTRINGV A  .@,x`|LT1@f[`[;@CONSFUNDEFiPU|LT2AEXPR  `MGET 4B & `a-,110,x`U`5B`Y[`$LISTP`24B[`Z[Q6B+MACSYMA-EDIT!H @1 "Q -,1 -, 4 An,8 -.` gy-,,83``A$ALL0!`G$INPUT0B`MGETLABELS*`#@4AAsaa`i$FUNCTIONS0B`_ ],8!@J $Z, $$ARRAYS@%,Zg~KNCONC<`i0LISTARGP`' B`i Z[GETLABELS00Asaa`o`STRMEVAL`)MAKSTRING  s,`7 `w $1`5y$STRDISPЀ+`{`L+>8`0@+ "/-,1+0PR 5BC J``o7@`+HERRBREAK1 *(E*--,ERRSET-@@4TSTRINGATTEMPT1/zyERLISTD00, J,2@],x6dMACSYMA-EDIT-INTERRUPT ,P,8KLISTEN<4NS ,S3!,83K``6B`!D# "Q ,8REVERSE`3`{MBKoc "NT au.U,xMTTYINT , 5 51x$TECOTECO@;7ENTER-SPECIFIC-INF-EDITOR,x0_7"8a4 C$EMACSEMACS ",xHb ""Zu.Pd ""0eINF-EDITINF-EDIT MACROI;xZ,8H*-, $-,-,1RBP0LISPT-EDIT =-,+l=zSf ,x]F;U`fINF-EDIT*-0`h=pUm$EDITLIST*aPROGNLISTMAP-STRIP$? A!=!C A=x7 +rE `` C `,@ ,x4By6 +yZ`!5By[` D`6@`+{=+ `a7 8` `-,+[`7 `[`+ ,,8Ka<17 8``@b@[-,-,=/0I2+ First arg must be atomic."h-,#C-,`5B`Y Ab4 , ,x@  5B7D$+=FIND-ROVING-EDITOR`E,x0C`'[g`W "# =A1N `-C0EDITOR-FROM-DDT`G+< ,7Z 8I0`o8{*TYI$ A3`Uz,%* 1A 4B*$ERROR`I`U^G% "+<00D6`om`c ,7Z 8aD``o8+2`o-,5Z`$#A[ D  +<s`- D "+< ,<,8K<1/,xex_xwa`O|SqxWcxOc_x/d_x@|Sqp'x? q|#p_IxWc;uXx/`?>xwa?.q|9x@\%P6cxOc_p_B$]O|Hd_ xx/aCan't create editor job (system full?)K(/ 1LISPT-EDIT-INTERRUPT&Mx`o ,83K<3 ,83K`5BU`Y2  A ,,xhMzP_'L0QbC-, "W,7@`+]Z j;RETURN-TO-EDITOR'z@<,bfTTY-RETURN-LISTORETURN-TO-DDT ((C 7B+a`+ `%` ",xp^QB!LISPT-^Z #7B$+j7D+jOROVING-EDITOR-TTY-RETURN- $P1)zJ MEMQaS5BiO)zJ -,OQE:WEDITOR-TO-DDT*` ",xbDEFAULT-RETURN-TO-DDT-LISTDDT-RETURN7UUQ+x AD00 " -.5`G-,1+01 5Bx ,7Z 84Nr`o`yC"!`o "WX@O+w "pA` P "` ",x6?`?%xwb?#|qa!|Pe>|qJ#k6B+  , ,8## 1K<1 `+ `)`D  5B  , ,8,8 K<1-,1% , ,85JNAMEWzyx631 R@R :vp ",-,1,X-,:job Y$-, g-,  ..star/jrst $--,H ,X-,:job [-, $=,1@`{K<,I$X@@,xNo editor job. .Disowning the editor failed ] @! " -, B`7D` ;I `A1`'[0D6` EZ[` s11g+ 6 "#  ;A4N '`-` S! S,8 wK<1-, , 5L@0,8Wzyx631  :VP "/-,1,X)`-, :DISOWN :JOB _-, g-,7RH:JOB $0-, $=,`{ABK<,` s4D 7`- s,8 ,8