; Y\QU+U*USETQLISPT-PATCHxORGETDDTSYMQUOTE$DEV5KLAMBDATTY-RETURNVALRET:SL :EXISTS VP   xSUBR ,!O D  ,v 1,<,*p R2Op/,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!`oX35*PRINCEX5`o@@015`1 ,7Z 8/`oX7`oDONE,x; Job "" killed; No t: editor job? @$KILLEDITORD$DONE,x]&#`;DISOWN-EDITOR7B`S`  ,17Z 84N%`oX]5EX_`o@@5+. ,7Z 8 DhY`o`1`o ",x; Job "" dis owned ; No editor job? p$DISOWNEDITORG t i,xx3REOWN-EDITOR " -,0$ B`7D+>P5+> ,7ZL4A 8y`o`Z*+Y4D?CLOBBER-EDITOR? AI ``'[0D6+H-, 5Z`[ F @ & +Y`- ,7Z 81`oXE[`g`XL !+PX`o7B `-,Ad ,X,8y-,1 $=,`d`{K<, ",x; Editor already owned ; Job "" is owned by another job" not found 5hd 7B`CLOSE-EDITORJ3`J+f ",xHbOPEN-EDITOR,8INPUT0DK+t 2,8,8",OPENo3% 1 "LTECO-V` $ ,s,83C! "M`",FILEPOSo3+ 2 ,w,8",o B "LbR` $ ,8,8 "Nd`",o /,xINRi6 ASCIIOx r2OUTOx O r2 ( CLOSEP3P 3B`7 " ( "-, 0``,x3 ,<,<!@ "N  ( "p ˀ "p`2o`+.. "p .`-,+ `-,A:u,x HCURRENT-EDITOR-BUFFERxSELECT-BUFFER#-, `? ?,8w@aK<1 `6 8+$ ,$,8 B0,8,8,8gK3O```q`5BA`Y2  A ,/,xP7zP_'L0QbC-, "W,7@`+IZ j;RETURN-TO-EDITOR[z@<,bfTTY-RETURN-LIST H.RETURN-TO-DDTh](C 7B+M`+ `%` ",xXJQB!LISPT-^Z #7B$+V7D+V .ROVING-EDITOR-TTY-RETURN- $P1_zJ MEMQ05BU ._zJ -, B.QE:WEDITOR-TO-DDT`a` ",xpNDEFAULT-RETURN-TO-DDT-LISTDDT-RETURN711/cx AD00 " -.5`G-,1+01 5Bd ,7Z 84N^`o`eC"!`o "WRa.+c "pA` P "` ",x; Warning: Can't get the ,Beditor.xW6B+l ,l,8 K###<1 `+ `)` @ 015Bs ,s,8,8 K<1-,  J0R , ,85JNAME2zyx631  :vp e$-,1,X-,:job $3-,H g-,  ..star/jrst g-,,X-,@c:job $4-, $=,`{ K<,@@I0,xNo editor job. iDisowning the editor failed 5 " B0-, B`7D` I ``'A1A[0D6` Z[` Ig+ !!D1 "#  &A4N `-` ) ),8! MK<1-, , ,82zyx631)`  :VP k-,1,X-,R@R :DISOWN :JOB $6-, g-,7:JOB md0-, $=,`{K<&,` I4D "`- I,8,8 'K %<1"H Editor belongs to some job other than DDT7Editor job doesn't exist %ADo8 -,4 ,7Z 81 W`o` 4,*READCH8`oYyq9zP[df e[(Z (0H+ /P D` g "+ ,xClobber the exi?sting editor? (Y or N)  O;