; Y\QU*]*SETQMACRO-EXPANSION-USEQUOTEDISPLACExALLBUTLASTSUBRZ0 [`@`,X-, A,x(NILLIST 5N "`h "p` $-,u.U,x8 forget-macromemos|1ST xDEFPROP1ST MACROWFMACRO xMACROFETCH` %Z`[-,5 @1CAR $-, $ `MACROMEMO.Wa,xX2NDx2ND MACROxDR` 3Z`[-,1CADR $ 00-, & $ `a,x]:\'3RDx3RD MACRO x` AZ`H [-,1CADDR -,  $AA:u `a,x 54TH x4TH MACROp 5 x` OZ`[-,1CADDDR  $ -, & $ `a1,x8CDO-FOREVERxDO-FOREVER MACROx` a dZ`,8`3z:w-,3 $-,RHDO -,  $a ,xPQFORxFOR MACROx` 5BDZ`[Z[Z [(Z(T@0 ",8-,11+ $-,@$-,1 `-,> -,` $-,3-, $ -,`2,X-, -, & W $ `a,xhcVARSxWbVARS MACRO!x` 5BQZ`[ZAH "-,LAMBDA $-,@LENGTH0# "p`,X-,@  & $ `a,xEW+@1<=x<= MACRO%x` Z`[`Z[@,8-,1,X-, $ -,-,1NOT $-, ``] & $ `a,x(R>=u8'x>= MACRO'x` 5BhZ`[Z 5[@,8-,1,X-,<  @2 )-,-,1 $-, ' W $ `a,x@PROG1xWbPROG1 MACRO+x` Z`,8`3-,@3PROG2 $-, & $aujp,xXiDEFSTRUCTURE-xDEFSTRUCTURE MACRO-xA@` g,<Z`[Z ",8 *UEXPLODE`/ $CREATZ:0-135zDf*APPENDIMPLODE`7`# -,1 -,-,1   -,-,1-,1 -,0j -,1,X-,APPEND $-,0JR-,1HUNK9z oMGq-,LIST* $H-,-,1 $-,,X-,5 DEFMACRO ;-,@`/i@,8,86@g~+ `+-[g~`/ ,,83,85K<`7STRUCTUREz !C! g~-,CXR=z P.5j@`e-,LIST $-,-,1z !C! @0-,,X-, ;-, ` -, B` ?,8k,8g~,863NJ",<`7VALUE?z \ g~-,RAHRPLACX z ˖-, $-,-,1(d?z \-,,X-, ;-, `-,ˀ Np *pZg~ B` 5 Dg~+ /3-,COMPILE(HAz ?dfSOE#15xdf"x>dfpW+@1ARRAYSTOREGxARRAYSTORE MACROG$x` Z`-, ARGSI[ZI@,8`j ,X-, $-,ARRAYCALL $%-,0 F5ILAST`K,X-,STORE@ $&-,, G $ `aujp,x@mARRAYGETMxARRAYGET MACROM'x@ ` 5BQZ`-,I[ZIH A@-, $-, $%-,0, M $ `akU`1,xpNEWARRAYOxNEWARRAY MACROO(x-,IHD@2` A@III "-, $)d-,*ARRAY Q-, O $ujpa+RCREATE-ATOMLOC)xCREATE-ATOMLOC MACRO)Sxi%`  "*`ATOMLOCUz ftlt" 900-, &) $ `a,x]:\[STORE-ATOMLOC^THE-ATOM+xSTORE-ATOMLOC^THE-ATOM MACRO+Wx` Z`[Z[@,8-,1,X-,2H  $*-, $ -, &+ $AA:u `a,x8ATOMLOC^THE-ATOM,xATOMLOC^THE-ATOM MACROp 2,Yx` Z`[-,1 $*d@-, =-, &, $ `aujp,xHSTORE-ATOMLOC^END-POS-xSTORE-ATOMLOC^END-POS MACRO-[x@` Z`[Z[@,8-,0T@21,X-, $.-, $ 00-, &- $ `a,x]:\XATOMLOC^END-POS]xATOMLOC^END-POS MACRO]/x` Z`d[-,1 $.-, =-, ``] ] $ `a,xpSTORE-ATOMLOC^BEGIN-POSu8_xSTORE-ATOMLOC^BEGIN-POS MACRO_0x` %Z`[Z 2[@,8-,1,X-, Cd@-, $ -, _ $ `aujp,xATOMLOC^BEGIN-POSaxATOMLOC^BEGIN-POS MACROa1x@d` 5Z`[-,1 C-,  =-, a $ `a1,x'CREATE-LEFTPARENLOCcxCREATE-LEFTPARENLOC MACROc2x` 5B"!i&@2 "*`LEFTPARENLOCez -<3-l 9-, c W $ `a,x 7STORE-LEFTPARENLOC^SX3xWbSTORE-LEFTPARENLOC^SX MACRO3gx` 5B-Z`[Z[@ @,8-,1,X-, $*-,2H $ -, &3 $ `a ,x8#LEFTPARENLOC^SX4xLEFTPARENLOC^SX MACRO4ix`  @25B5Z`[-,1 $*-, =00-, &4 $ `a,x]:\H.STORE-LEFTPARENLOC^END-POS5xSTORE-LEFTPARENLOC^END-POS MACRO5kx` 5B@Z`[Z[@,8-,1,X-,2H  $.-, $ -, &5 $AA:u `a,xX6LEFTPARENLOC^END-POS6xLEFTPARENLOC^END-POS MACROp 26mx` 5BHZ`[-,1 $.d@-, =-, &6 $ `aujp,xhASTORE-LEFTPARENLOC^BEGIN-POS7xSTORE-LEFTPARENLOC^BEGIN-POS MACRO7ox@` 5BSZ`[Z[@,8-,0H 1,X-, C-, $ -,@  &7 $ `a,xxIW+@1LEFTPARENLOC^BEGIN-POS8xLEFTPARENLOC^BEGIN-POS MACRO8qx` 5B[Z`[ @2-,1 C-, =-, &8 W $ `a,xTCREATE-RIGHTPARENLOC9x1CCREATE-RIGHTPARENLOC MACRO9sx`  "*`RIGHTPARENLOC:z ޶7H 9-, &9 $ `a ,x\STORE-RIGHTPARENLOC^SXuxSTORE-RIGHTPARENLOC^SX MACROu;x` Z`[Z[@,8-,1d,X-, $*-, $ -, ``] u $ `a,x0RIGHTPARENLOC^SXu8wxRIGHTPARENLOC^SX MACROw<x` Z`[-,2H 1 $*-, =-, w $AA:u `a,x@STORE-RIGHTPARENLOC^END-POSyxSTORE-RIGHTPARENLOC^END-POS MACROp y=x` Z`[Z[@d,8-,1,X-, $.-,  $ -, y $ `a1,xPRIGHTPARENLOC^END-POS{xRIGHTPARENLOC^END-POS MACRO{>x` H Z`[-,1 $.-, =-,@  { $ `a,x`W+@1STORE-RIGHTPARENLOC^BEGIN-POS}xSTORE-RIGHTPARENLOC^BEGIN-POS MACRO}?x` 'Z`[`Z[@,8-,1,X-, d C-, $ -, } $ `.Wa,xpRIGHTPARENLOC^BEGIN-POSxRIGHTPARENLOC^BEGIN-POS MACRO@xD ` 7Z`[-,1 C-,2H =-,  $ `a ,x)CREATE-BREAKPOINTxCREATE-BREAKPOINT MACROAx` tS 5B#`BREAKPOINTBz 5D<< 9-,@  $ `a,x9W+@1STORE-BREAKPOINT^PATCH-ENABLExSTORE-BREAKPOINT^PATCH-ENABLE MACROCx` 5B.Z`[`Z[@,8-,1,X-, d -, $ -, $ `.Wa,x0$BREAKPOINT^PATCH-ENABLExBREAKPOINT^PATCH-ENABLE MACRODxD ` 5B6Z`[-,1 -,2H =-, $ `a ,x@/STORE-BREAKPOINT^PATCHxSTORE-BREAKPOINT^PATCH MACROEx` 5BAZ`[Z[@,8-,1H ,X-, -, $ -,@  $ `a,xP7W+@1BREAKPOINT^PATCHFxBREAKPOINT^PATCH MACROFx` 5BIZ`[ @2-,1 -, =-, &F W $ `a,xhBSTORE-BREAKPOINT^ACTION-ENABLEGxWbSTORE-BREAKPOINT^ACTION-ENABLE MACROGx` 5BTZ`[Z[@R@,8-,1,X-, $Hd@-, $ -, &G $ `aujp,xxJBREAKPOINT^ACTION-ENABLExBREAKPOINT^ACTION-ENABLE MACROIx@d` 5B\Z`[-,1 $H-,  =-, $ `a1,x USTORE-BREAKPOINT^ACTIONxSTORE-BREAKPOINT^ACTION MACROJx` 5Bg0Z`[Z[@,8-,1,X)d-, -, $ -, ``] $ `a,x ]BREAKPOINT^ACTIONu8KxBREAKPOINT^ACTION MACROKx` 5BoZ`[-,2H 1 -, =-, &K $AA:u `a,x 8hSTORE-BREAKPOINT^IF-ENABLELxSTORE-BREAKPOINT^IF-ENABLE MACROp Lx` 5BzZ`[Z[@j ,8-,1,X-, $M-,2H $ -, &L $ `a ,x HpBREAKPOINT^IF-ENABLExBREAKPOINT^IF-ENABLE MACRONx`  @25BZ`[-,1 $M-, =00-, $ `a,x]:\ `{STORE-BREAKPOINT^IFxSTORE-BREAKPOINT^IF MACROOx` 5BZ`[Z[@,8-,1,X-,2H  $*-, $ -, $AA:u `a,x pBREAKPOINT^IFxBREAKPOINT^IF MACROp 2Px` 5BZ`[-,1 $*d@-, =-, $ `aujp,x STORE-BREAKPOINT^FUNCTIONxSTORE-BREAKPOINT^FUNCTION MACROQx@` 5B Z`[Z[@,8-,0H 1,X-, $.-, $ -,@  $ `a,x W+@1BREAKPOINT^FUNCTIONxBREAKPOINT^FUNCTION MACRORx` 5B(Z`[ @2-,1 $.-, =-, W $ `a,x !STORE-BREAKPOINT^NAMExWbSTORE-BREAKPOINT^NAME MACROSx` 5B3Z`[Z[@ @,8-,1,X-, C-,2H $ -, $ `a ,x 0)BREAKPOINT^NAMExBREAKPOINT^NAME MACROTx`  @25B;Z`[-,1 C-, =00-, $ `a,x]*U*U @4DIDL$BREAKPOINT-LIST$GLOBAL-WHEN-CONDITION$GLOBAL-WHEN-CONDITION-ENABLE$LOCAL-WHEN-CONDITION$LOCAL-WHEN-CONDITION-ENABLE$HT-SIZEU*U*W$UNIQUE-NUMBER$UNIQUE-SYMBOLGENSYM$IS-SCREEN-SPLIT?$INFO-AREA-LENGTH$ECHO-AREA-LENGTH UVWXYZ[.\xU*U*U$COMMAND-FIRST-WINDOW$COMMAND-LAST-WINDOW$COMMAND-NEXT-OR-PREVIOUS-WINDOW+$COMMAND-REWINDOW&$COMMAND-SHOW-LEFT-PARENU*U*U$COMMAND-SHOW-RIGHT-PAREN)$COMMAND-LOOK-AT-FRAMES#$COMMAND-JUMP-TO-FRAME%$COMMAND-SHOW-FRAMEU*U*U$COMMAND-INTO-SXI$COMMAND-OUT-OF-SXO$COMMAND-NEXT'$COMMAND-PREVIOUS($COMMAND-EXAMINE-USER-FUNCTIONU*U*U,$COMMAND-GRIND-FUNCTIONG$COMMAND-EVALUATE-IN-FRAMEE$COMMAND-FORCE-RETURN-FROM-FRAME)$COMMAND-CONTINUECU*U*U$COMMAND-SHOW-VALUE$COMMAND-STEP-DEEPER;$COMMAND-HELP?$COMMAND-QUITQ$COMMAND-BREAKPOINTU*U*U!$BKPT-COMMAND-SET-BREAKPOINTS$BKPT-COMMAND-CLEAR-BREAKPOINT$BKPT-COMMAND-TELL-ABOUT-BREAKPOINT*$BKPT-COMMAND-LIST-ALL-BREAKPOINTS$BKPT-COMMAND-GOTO-BREAKPOINT$BKPT-COMMAND-SET-IFU*U*U$BKPT-COMMAND-SET-ACTIONA$BKPT-COMMAND-SET-PATCH$COMMAND-WHENW$WHEN-COMMAND-LOCAL$WHEN-COMMAND-GLOBAL$WHEN-COMMAND-TELL-ABOUT-WHEN-CONDITIONS$COMMAND-CHARS-TO-IGNOREU*UjU  ]^_`abcdefghijklmnopqrstnuv`kwfxiyz`k{|}~IxPUTPROPPUT-MISERDIDL-PUT-FORMATu;UnUxCONDxxPROGx!xORSTATUSU*]*TTYINTSSTATUSFUNCTIONENTER-DIDLxXAP;DIDL 258_1LSUBRZ`[:J0WINDOW-PRIN1 in  WINDOW-PRINCZ`@(vWINDOW-TERPRIh   <-0-.!9` ,UNSPLIT-SCREEN,x W,8 m"! -,EVALHOOK W+gS &TERPRI FOPEN-TTYS`Cz~2ggCzt FRgTYO  SFAP`4BR &TTYSIZE $ S  .;pD+S zji4rgZ 8D# -,$SCREEN-WIDTH  `4BZ &!@ $  .;pD+[ zji4rg[@j 8/[-,$WINDOW-LENGTH B @@U1,8 nERRLIST `MEMQ  `#Q-,CREATE-LINE`$STATUS-LINE BB!HT-SETUP` *Ѐ+lSPLIT-SCREENQhTJECHO-AREA-CLEAR`$LAST-SCREEN@@NO-SCREEN $LAST-SCREEN-TYPE J$LAST-TOP-WINDOW-LINEhBJ!CCz@'$f$LAST-POS H "EVALFRAME`#QA@FRAMEARRAY,84BsPUT-FRAME-ARRAY-USER-FUNCTIONS`% ` .@ Bg,8 o ,v,8 KQA@0WINDOW-SET-STATUS-LINE<4n4 Z(0-, B`HT-FIND`' $Z[ &ZZ[ Bg~ Fg}R@@g  (3`3DIDL-SCREEN $H@GETa)USER-FUNCTION-SCREEN *@ FgLOC^BEGIN-POS@A`+ Bgx @0BB+@`-, Bg{INFO-AREA-CLEARHit breakpoint -INFO-AREA-PRINC01[g{ g{Z4B4, but has an enabled patch!/+4 A@STEPPING1B`-@0`-@A+4 `6 8+[``M(tC" `INFO-AREA-PRIN1`1 => " *M (*(T!-,PRINLEVEL3PRINLENGTH  ,",83a#,8",oINFO-AREA-PRIN1T`5,C@--Continue-- "*TYI`7 * Jg|+4`A @0B`UStepping "INFO-AREA-PRINCT`94C+4@`_Global when-condition "INFO-AREA-PRINTb`; satisfied "`9+4@+4Local when-condition !HtC=`;satisfied "`9@"3`m gz` y,8,8g|,8gt,8gt ,8g{3,8gs3,8g|",DIDL-REDISPLAYo?Ѐ @+>@@gv J gu H F@R3` .` Bg~ guFRAME-SCREEN0B +Kas  `+J@(a# DgxREAD-COMMAND-ARG`AREAD-COMMAND-CHAR! BgABORT-COMMAND ADC S`+SNo window to scroll. ""DIDL-ERROR`E+ gCCz'$f Bgo+ g1S+\+Y ""`E+ g ` C-,13-, Bgo+ gACS`` ""`E+ g gx@@ 4nb7 p   &0  $gx!. #À  &p3CFORCE-INTO-RANGE#C`a-,1,X-, Bgo+ g@S` "+ gS+vR0B``+ Bgo+ gNot looking at a user form.GH`E+ gS`0B+{Q@(1LOC^END-POS$ Bgo+ gG`E+ gS + 7@gq`6@gy` gqMAKE-FRAME-SCREEN`I Bgy 0 gy ( C-,13-, BgoR gq .`3 Jgv+ gNo frames to display. "%H`E+ gS+0B `% gx 3C#C-,1,X-,0H1 Bgo+ gNot looking at frames.K`E+ gS`m gxKK gw "(`'Z[ZZ[3A@@gv"@  "+ g $a) *`@ Fgv`+ Bgo+ g7@gq+5Zgp`Z[`'Z[ZZ[@35F0@@gv  "+ g  $a) *@ Fgv`+ Bgob + gNo frame to show. "&`E+ gS+A0B` gx3 gvSCREEN-GO-INTO-SXaM`+aR Bgo`-,+ gNot looking at a user function. "'H`E+ gS`0B+J gx(`03 gvSCREEN-GO-OUT-OF-SXaO`+ Bgo`(1-,+ g "'`E+ gS`0B` gx3 gvSCREEN-NEXT-SX(0a`+ Bgo`-,+ gC0B +].gx &p3C#@C-,1,X-, BgoC+ g Not looking at frames or a user function.Q`E+ gS` 0B` gx3 gvSCREEN-PREVIOUS-SX) `+ Bgo`-,+ g0B +p/gx &p3C# `C-,1,X-, Bgo $+ gQ`E+ gS+ ,8(a# KECHO-AREA-PROMPT-AND-READoSUSER-FUNCTION*4B `QPJ PUT-DEFUN-IF-NECESSARY`U $ `a) *DIDL-TOPLOC $+@ `a) ` Bgu` Bgv gu Hgt Jgn0a`++Not a user function.W`E+ g S+ ,,8,8 qKoSBF*4B `PUT-DEFUN,+ W`E0H+ gS+" ,,8 KaoS3+ " 1-. /,8,8gyZg-, ,8 rKoA# -,1+ [ECHO-AREA-PRINT`Y`A " ?-. =,8,8gy ",o@:-,1+ [`YECHO-AREA-TERPRI-0H+ gS+5 ,&,8,8 sKaoS3+3 " $.-. ,-,8,8gyZg-, ",EVALo[@-,1+ B`c[@[QFH1RFRETURN.+4Error while eval'ing value.]`E+4Nothing to return to. "/`E+ gS`3+@  ,?,87@gr`y grZy gr`0a+= ",o` CNothing to continue._`E+ gS+a3`  ,87@gr+I grZ4BI gr` 0`,8 t",o ,R,8,8gu,8g,8g,8gt3,8g3,8gu",@ o?@@go J gn H F3:C` .` BgwReturned: "040*3 ``5 "3!WINDOW-SET-CURSOR-WITH-POSaa`7(1` _`E+ gS +3` ,k,87@gr` grZ gr`+i ",o@ ,8,8gu,8g,8g,8gt3,8g`3,8gu",o?@@go J gn H  F3+x .` Bgw!@h: "0 ``5 "INFO-AREA-TERPRI133aC!aa`7` _`E + gS+ !2N`%a6 8+3BREAKPOINT-ENTERac@ Bgr ,8[,8 u ",0:CECHO-AREA-PROMPT-AND-READ-WITH-DEFAULT<2QCgrBreakpoint set, named e[gr`5b + gCan't set a breakpoint now. "3`E+ g2N`I7@gr@+# 3,8`,8 v ",(b<2BREAKPOINT-REMOVE`g4B!as2D`+30:CBreakpoint "4 ``1 cleared.i`9`aR+"No breakpoint has that name. "5`E+ gNo breakpoint to clear.kH`E+ g w2N+86 8` `m3ac Bgr gx5./ *XJ`1Disabled if on breakpoint "6[gr`9+ g g,8`[gq,8 wK<2 gr0(1 gr *XJ+ g "3`E+ g2N`6 8+J3ac@:C Bgr gx *Disabled action on breakpoint mD [gr`9+ g ,G,8[[gq K<2 grQB( gr *+ g!D@ "3`E+ g2N+_6 80@ `3ac Bgr gx5.V *:CXJDisabled patch on breakpoint "7[gr`9+ g ,8`[gq,8 xK<2 grC 0 gr *XJ+ g "3`E+ g v32N+hCWINDOW-CLEAR-LINE`oBreakpoints: "8` bC $ U, U5B gNo breakpoints have been setq D@ 5B g` + g u2N+ 7@gr` C0`o[gr: in "9 gr@4CR` grZ5Br[Disabled] sIf: ":f  gr`` gr@s`Action: u gr[` grPtCZ5B}sPatch: "; gr`FH1` + gNo current breakpoint.w`E+ g2N@ 2` 9 , ,8 KoS,8U,80H16@g+ No such breakpoint. "<`E` 7[gZ[P` 3[g[ " Dgu`'Z[ZZ[ B` " Dgs Fgt`+ ` $ gsa)[gZ *3@a Jg+ Zg Bg`  "+ gR $Not a breakpoint command.y`E+ g yS+ B!#R2N` U gx K@@VDisabled global when-condition "=D`9+ g Q,8,8 y",<2!@ " BV+ g z2N` i gx _@@W1!Disabled local when-condition {`9+ g e,8 2B",<2 " BW+ g {2N` 2:CC`o6BW+ 9sLocal when-condition: ">LBCR` 6BV` {sGlobal when-condition: }#11` + gNot a when-condition command. "?`E+ g S+ \,<,< ,8 1,8 z ",OPENoWINDOW-CLEAR@ 0,83,8 {",TYI 0 `9N Q` End of help. --Redisplay-- "ACLOSE`P+ Y*z 3 `MEMBERB5B T `WINDOW-TYO` 0 , W,8,8g ", Np "p B`4+ M//`7 "+ g 0S+ c ,8,8 |,8",H o[ ,QUIT-FROM-DIDL "C` 14 5B g`E*TYODd1+ C+ j`Command aborted.`E`i  ,-.,x-@RCCx'$fDIDL-EVALHOOK!ExxӃCFunction: % $"Evaluate: FEEReturn: EER)J"DIDL-EVALHOOK-STEPGBreakpoint name [type space for default name: ]: H Breakpoint to clear [type space for default: HR)J% If [type space for old if]: I Action [type space for old action]:  Patch [type space for old patch]: JBreakpoint name: Global when-condition [type space for old one]: %U%RKLocal when-condition [type space for old one]: DSKLIBDOCHELPLMxINR!0NNEx~ Oy\ A UASSQ(1a7DW+  " -.0``*EVALO-,1+ [4D  @ ,8,8 /3",o+ .7BV+  "F -.O-,1+ 1[4D  !,8 _3",o+ .7@`+ +Z` B`@ + `[O1 `Z4B  ``O` 3 "Z4B "7@`+ , ,8,8 0,8g~1,8g~Ko`O+ *7@`+ ' M,8 a,8g~,8g~Ko+ * , *,83,8 1",o+ . , .,8,8g c",o/,xDD#BBEEP } Ua!A#7DW+ = " q-.O``-,1+ [4D = y,8 $3",o` 7BV+ F " -.#O-,1+ [4D F1 ,8,8 c3",o` 7@`` `Z` B`[O `Z ``O+ M "Z 7@``  ,8 ,8g~,8g~Ko`@"O` 7@`` , Z,8,8 d,8g~,8g~1Ko` ,83 ",oa` ,8,8 e3",oD"/,xBBEp 2DSTEP , i,8,8 j",oQ,xGx -,TTYP%  "NOINTERRUPT` , o,8,8PK ,FXg*PRINTQ*TERPRI`+8 ,80$0+ ! J`3+ w g|@23B` [g} g|WINDOW-REDISPLAYR!` [g} !!WINDOW-REDISPLAY-IF-NECESSARYa!3+ g|2B+ 1! `EQUALS5B 0B+  , ",83 ]3,8 /!!=N gy  .bT!.   \+ _R ] --Top--` # gy .bT!. @  |+ 7 0 ] --Bottom-- "T",<QEWINDOW-DISPLAY-STATUS-LINE`+ 0B +  1,8 a3 `#,8 1K<` g}!aa` [3 + -7 8` G3` G11WINDOW-CLEAR-AND-PRINTU E,8 cK<`` [13+ )U , (,8,8 2K<3`` [@ , ,,8 eK<` A$R` [ " ,x (Frame #) [Top line: VR)J% ] --All-- ] --Middle--WFrame display [ frames]XAtomKCNon-user-formY H$ D;#"( 3,8 UaZ @`0 ,8,8,8,8,80 ,8,8,8,8  K o93-,7 U-,1(`0 BUBREAKPOINT-NEW-NAME`QC`-, `@ ` *XJ ` (2 ` & `QJ `XJ `2/0d,xB 6,8U3+ X`$ Z[2B`` U`*DELQZ BU @@0 "` As3+ P "/,xZ"Q8 O * -,BASE*NOPOINT [D0Uˀ-,`/ $BP)L0\z`df`7+ ,8@ 5. g ./ &paO+ {,< " ,8 | `@ 3ogy` -,` -,F  `SCREEN-NEXT-LOCa B` $ gx@A-,` Ze` Bgx-,0D + v+ n `ˀ Np "pA@`0 B`` + ,xCh a,8   ./ &paM` -,<A " $  / `3ogy+  -,+ -, ` @SCREEN-PREVIOUS-LOC] B`5B  $ gx-,`Aa` Ze+  Bgx-,` #`  `ˀ Np "p B`+ @`0+ ,x%@Cx ,8 5.  ./ 2 &p)` k,< "  $ 5 m `3ogy` G-,0@ + 4-, `$ $ 0SCREEN-CHAR-OR-MARKERaZa B` WZ P`20D:` [ $ gx-,` eB0+ 0 Bgx-,` a+ % `ˀ Np "p B`` A+ @K,xC ,8 5. = ./ &p(da+ T,< " ,8 Ua `3ogy` -,` -,0 `] B`4B HZe@A+ J $ gx-,` 0D:` [aZ Bgx-,+ O+ D `ˀ Np "p B`` 0 + ,xCX 7,8Z0F:+ YA` [Q@ SCREEN-NEXT-POS^,83+ c3 a B`6 ` Z`` 30 ^+ [ "/,xH ,8Z0F:+ hA` [SCREEN-PREVIOUS-POS`a,83+ r3aB B`6 ` Z`` 3`Xa+ j "/,xP  .`*`[ 8 `+ y@ .`,8Z[8 82.@`` ˀ-,-,1[`-,+[ 82/g` ˀC-,0@a 1 $p-,7+ "0,,x` ,8Z[8 8;@`` -,-,1[`-,+[ 8;` 3[ @   +`+@ .`  -,1 $p-,7+ "`/,xh[ 8 4.`` =@Z[8 8 4."`` E a@,xX,<-, ,8,86@g+3 eB ,.,8,8,8G g}ˀ *pKoQ gNREVERSE_# g~-,7 $FILLARRAYa+EZgaZ[ B`6 +>[`0 $` 0` 0` +INTERNAL-TTYSCAN-SUBR1B``  4N>1BE` 1BG` ˀ Np "p3 g-,Zg[`#A@`" Bg` M,xYX #,< .`,8[,80  g[+Y g `+P@ZZ[ D`6  0+V[`*4BV[``U gˀ Np`0 "p Bg+K "/,x%h C( FIND-USER-FRAME,<,8 .` "-, `[` @+` g~ ` 4.f`` @ -, `' `-,+m g@0.` Np "p B`` "0,0,x   an(b@0+s `FIND-FUNa` ",xX@R  ,< .`Broke at Q@ EXPLODENb ,~,8,8gQ@ARRAYDIMS`Z[KoQ gB .2,84 `2og}+13` g~ `  0+ ` 4. ``@ZZ[@  Dg) `n`)[g1DE `#0DG`))Zg[ Fg@ g`'Z[4B$ G,8 7`+@ gEXPLODENDEC0ci3 g}b,85FbKSTUFF-LINEo+. ,.,8 4.(``Q@ gc@k3bKo `ˀ Np "p B`+JU,xCd~x3-d~x3-d~x3-H ,8 {,8 ,<0,8,8",MINo",MAX<e,x0 6-,~ ,TYIPEEK" ,8X `9`1.`$. `/0. Nw  "w3`-` ./g * Bg`3 $g`0-,+V`7 , Np "p B` "+C//,xCY0}`7 +a`1n=+]+^ /.-,,xY $@f%a) `a`'5BgGrinding "fECHO-AREA-PRINC(`:%` `ECHO-AREA-PRIN1g `,.ECHO-AREA-PRINCT h,x(_EXPRFEXPRiz \a(Q@GETLaZ[4Bp4Bn 0an` `a+p `/0a,xha7 +w# ,w,8,83",ERROR<j ,8 0 ,8 ,8KoQ *Y .# 2 gCCz0'$f `PUT-SXb &+ $P00 ga &,Xa/,xRI0has no reasonable functional propertyk @q,8a,8,87 + g~PUT-ATOM@a l+.[g~7 `9 [g~A1a) B`90B`%3 g~.R1RPUT-BLOCK`+3 g~b+.PUT-FUNCTION-CALL0Bmb`13 g~m+. ,,8,8/[g} !#",<j+. g~FLATSIZE g  "pFITS-ON-LINEnG3 g3D0 g~b+.[g~M an`WFSUBR iz W;|S[g~aW3 g3D g~m+.3 g3 g~0),xdoes not have a legal DIDL-Put-Formato( ,8,8(h ,<HT-ENTER` e@f "-,25 (:@f "-,5 -,13-,7XCg g~-,@00 g~-,QC` g}-,`0 g}-, `0 g~POS+1p@0Z[,8 g "a-, &(` g}PUTSCREEN-CHARa g|-,,8s 0-,~7@g~` g~7 8  "7g~[g~Zg~4DS7 " B`3+Y &e g} `a g}pp Bg}3 g}3 1b Bg7@`+_$3POS+1-WITH-INDENTq+d0$[ 8ˀ-,1 $p@-,7 Bg} g~6 8Zg~ˀ Np *p Bg~``/ g "b-, & `@a ` g`KJ; ,xYp_ *YPUT-BLOCK-INDENTjH!l *.jP,<,8,8h ,<` e@f "-,25 (:@f "-,5 -,1 g~-,7XCg-,@00-,QC`-,@0-, `0pZ[@ @. 3 "a-, & g}a-,0@ ,8F-,~7@g~`{ g~7 8 "7g~[g~@5BZg~97 " B`3+& `0 &e3 gyaˀ (pF0 $ g}COMPUTE-NEXT-BLOCK-POSr gz` gyb Bg7@`+.$ g}`aˀ $pq+7$B@7 +2@+3@[ (p3 g}r  g~6 8Zg~ˀ Np *p Bg~+/ g "b0-, &3*g|a  g//,xYX,8,8 .. AAB "pn[g 8ds @@2N` .Ds[@ @.-, -,1as-,+Yc 8ˀ@-, $p-,7` /,x ,8 U@f  "-,5-,QC`0-, `0@`/ g-,0B*g-,6@g`(  `` C[gGETCHARN` &p g~aZgp  ( Hg3+f0``,x@ Z,<,8`Z[8 8 Np *p[g  83n(` ,,8,8g~,8.(F (p,8K*REARRAY<s g PUTLINE-CHARa/,xX` u,8,<[Z[  `+@L,8;` ` '0+_ `[+ g ` (~@ 32T+T `ˀ Np "pA@ B``)-, g@  C0+" M,8 g .`,8g~",<e .0 Y,8 g} .`,8g",<e``K .0/,xC8 P LINE-CHAR  e`+3@`X6 7`[`,x@0AAZe`s[`0D:`w[` @"U`{[` ,8",K<j,xis not a loc [loc^begin-pos]XmZ @( e+E@+L0D:+G@+LU+I@+L ,L,8,8M",<jI0,xis not a loc [loc^end-pos]u@B,8 !Z[@ @.{+S "`a/,x`  ,Z,8,8ˀ *pKoQX *Y .2,xH,8Z[8 8k`[ 8ˀ@*-, $p-,7@`+iˀ-,-,1as-,h;P/,x^ C$qjDUMP-SCREEN,<,8 .bT `2n +`,< ` `+t"@5Bv8 +8 .bT3 `2n ` `tD `ˀ `0 Np "p B``0  `ˀ Np "p B`` "/0X,xC]&`CXkB ,8,8,8 KoQ$HASH-TABLE : Bv,xX HT-BUCKET-INDEX .x v`Z[@ @& `0-,,xh` v ` /`+@ $ ga@ E-,3 B`-, v g 4.!0`C ` `E/,xx,8v`3  4.(aH`QAHa"i8G,<{  .[3/``m a,83,8>$WINDOW-TTY,8wKCURSORPOSo@0 g,8},8w",o `ˀ Np  "p B`++ y,8  ˀ$ *p,8?,8wKo/HKQ,xYYLxY*WINDOW-DISPLAY  %`` CWINDOW-DISPLAY-PART(y ,8,8 . "-, g~ Nw .` *w g[` `{` g`o+S g} ` #`+R@ gWINDOW-OUTPUT-LINEa `ˀ g; Np *p Bg J`+J   ",x(A,<C,8  &. \` Ca HC+f  &.  Pp *p $(@ a-,/@,x  ,8 3.` .  |+oAR+p "A00-,,x(,<*@,8`o ` .`2o`@0` ,8 gt,8w", < ˀ Np "p` ",xCq CWINDOW-SET-CURSORz 0K ,,8 ,8w",o,xxx@`-0,<,< `!@,8"E,8 g[+3og~`# g-, .`!0`A.Z8 B` g[`;7@``;[` g 4.0`3Z` gˀ B` Jg+0ˀ Np "p+ /0D,x.C  * -, 01 [b+0#-0,8`LISTIFY` $c,3-,T; $/*APPLY${ M  ˀ``X $p a,xHY@,8 ,9,8  *p  (p,8,8wKo/`/,x  a[ 8/ˀZ``X[ "pz,x u(g0@WINDOW-PRINT`h P@ ,F,8  ,8w",PRINT<|,x8@  ,8,8w",PRINCo0,,x`G ,O,8,8w",QAA1PRIN1<},xP ,8,8wB`K<,xhP ,8,8w0`a",< ,x(S,< `2o[` ,_,8.  *p 0a,8m,8wKo ,8,8w",o `ˀ Np "p B`` ,8  ˀ *p ``",8n,8wKo/,xCY", xY` ,q,8,8wK<,xX  ,u,8,8w",o0,,xp ,8,8w",<|,xXv ,~,8 P,8w",<},xINFO-AREA-PRINTC@1 ,,83,8w",o,xX ,8,8w",o` 1H , ,8,8w0c",<} 1( ,,8!Q`K$ECHO-AREA-TTY,8~",o,xh ',8 ,8~K<,xP /,8 ,8~",o,xh , ,8,8~",<|,xH1@ A,8,8~",<}h,xpECHO-AREA-PRINTC- K,83,8~AA0",o,xhC ,*,8`c],8~",o -MECHO-AREA-PRIN1T@ ],8,8~",<}``1 -p+-0,<`  `[+8.Z8` `ˀ a Np "p B`+2 ,;,8  KREADoP+> CC`1@  -,xCL _-0,<,<` `,8[ `[+J.Z8` `ˀ Np "p B`+D ,0  (0N` @D-,`+S CC`  ,8KoP` C `C` -//K,x. A ,8,8g",o  B~  Jw ,c,8",ENDPAGEFN!< ,f,8,8~,8h",<,xPxEAdUHKOUTECHOPxa`#3`DIDL-ENDPAGEFN ,8 ,8p,8~",SYSCALL<TTYCONS~z  w Rg ~ J ",xYSCML1`-0 0N+t`7 ,xDB,8,8|,8~",< w J )H " z0g,xYYX`8 q "` `j `7 ,,8b,8g",o ,,8,8 ,8g",@ o , ,8,8g",oDR,x ;?KC ZxTOP_@ };