{"version": 2, "width": 94, "height": 52, "timestamp": 1727495277, "idle_time_limit": 2.5, "env": {"SHELL": "/bin/bash", "TERM": "screen"}}
[0.114778, "o", "gtoal@linux:~/github/uparse-main/mcelan$ "]
[1.039724, "o", "e"]
[1.287657, "o", "m"]
[1.388389, "o", "a"]
[1.682974, "o", "c"]
[1.768474, "o", "s"]
[1.924769, "o", " "]
[2.436325, "o", "-"]
[3.218674, "o", "n"]
[3.386354, "o", "w"]
[3.779937, "o", " "]
[4.436507, "o", "m"]
[4.579917, "o", "c"]
[4.900703, "o", "e"]
[5.353988, "o", "l"]
[5.474492, "o", "a"]
[5.842822, "o", "n"]
[6.616689, "o", "."]
[6.843655, "o", "a"]
[7.836302, "o", "6"]
[7.965292, "o", "0"]
[9.581097, "o", "\r\n"]
[9.624104, "o", "\u001b[?1049h\u001b[34l\u001b[?1h\u001b="]
[9.632805, "o", "\u001b[H\u001b[J"]
[9.632947, "o", "\u001b[52d\u001b[K\u001b[?1l\u001b>\u001b[34h\u001b[?25h\u001b[?1049l\u001b[39;49m\r\u001b[?1049h\u001b[34l\u001b[?1h\u001b="]
[9.644377, "o", "\u001b[H\u001b[J"]
[9.646209, "o", "\u001b[51d\u001b[?25l\u001b[3m-UUU:----F1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m\u001b[1m*scratch*   \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m   All L1     (Fundamental) -----------------------------------------\u001b[0m\u001b[39;49m\u001b[23m\r\n\u001bM\u001b[2d\u001b[34h\u001b[?25h\u001b[34l"]
[9.646988, "o", "\u001b[52d\u001b[?25lLoading 00debian-vars...done\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.647315, "o", "\u001b[52;9H\u001b[?25l/etc/emacs/site-start.d/50autoconf.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.647968, "o", "\u001b[52;58H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.648387, "o", "\u001b[52;35H\u001b[?25lcmake-data.el (source)...\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.649069, "o", "\u001b[52;60H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.649691, "o", "\u001b[52;35H\u001b[?25ldictionaries-common.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.65051, "o", "\u001b[52;9H\u001b[?25ldebian-ispell...\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.651984, "o", "\u001b[52;9H\u001b[?25l/var/cache/dictionaries-common/emacsen-ispell-default.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.652517, "o", "\u001b[52;77H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.653172, "o", "\u001b[52;9H\u001b[?25ldebian-ispell...done\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.653629, "o", "\u001b[52;9H\u001b[?25l/var/cache/dictionaries-common/emacsen-ispell-dicts.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.654197, "o", "\u001b[52;75H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l\u001b[52;10H\u001b[?25letc/emacs/site-start.d/50dictionaries-common\u001b[6P\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.654603, "o", "\u001b[52;35H\u001b[?25lfestival.el (source)...\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.655026, "o", "\u001b[52;58H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.655276, "o", "\u001b[52;35H\u001b[?25lpython-docutils.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.655841, "o", "\u001b[52;65H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.656089, "o", "\u001b[52;35H\u001b[?25lxcscope-el.el (source)...\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.656859, "o", "\u001b[52;60H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.677755, "o", "\u001b[52;10H\u001b[?25lusr/share/emacs/site-lisp/xcscope/xcscope.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.739587, "o", "\u001b[52;66H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.7789, "o", "\u001b[>4;1m\u001b[?2004h"]
[9.779627, "o", "\u001b[52d\u001b[?25lFor information about GNU Emacs and the GNU system, type C-h C-a.\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.781931, "o", "\u001b[52d\u001b[?25lmcelan.a60 has auto save data; consider M-x recover-this-file\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[9.793706, "o", "\u001b[52d\u001b[?25lmcelan.a60 has auto save data; consider M-x recover-this-file\u001b[K\u001b[H\u001b[3mFile Edit Options Buffers Tools Lisp-Interaction Help                                         \u001b[0m\u001b[39;49m\u001b[23m\r\n\u001bM\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K"]
[9.794016, "o", "\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[3m-UUU:----F1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m\u001b[1m*scratch*   \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m   All L1     (Lisp Interaction) ------------------------------------\u001b[0m\u001b[39;49m\u001b[23m\r\n\u001bM\u001b[2d\u001b[34h\u001b[?25h\u001b[34l"]
[10.8308, "o", "\u001b[52d\u001b[?25lmcelan.a60 has auto save data; consider M-x recover-this-file\u001b[K\u001b[H\u001b[3mFile Edit Options Buffers Tools Help                                                          \u001b[0m\u001b[39;49m\u001b[23m\r\n\u001bM"]
[10.831498, "o", "\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\u001b[K\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\u001b[K\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\u001b[K\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\u001b[K\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\u001b[K\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\u001b[K\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K\r\n      from actualstack:= accent read:= \u001b[1m\u001b"]
[10.831667, "o", "[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\r\n      max of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\r\n      max of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\r\n      max of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\r\n      max of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\r\n      asterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\r\n      stackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n      endmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\r\n      namestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\r\n      freeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b["]
[10.83183, "o", "1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\r\n            ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\r\n            lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[K\r\n            bcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[K\r\n            ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\r\n            namestack[stackptr]:= stackptr - save;\u001b[K\r\n            namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[K\r\n            stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲"]
[10.832048, "o", "\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            begin ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[K\r\n\u001b[3m-UUU:----F1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m\u001b[1mmcelan.a60  \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m   Top L1     (Simple Algol 60 Mode) --------------------------------\u001b[0m\u001b[39;49m\u001b[23m\r\n\u001bM\u001b[2d\u001b[34h\u001b[?25h\u001b[34l"]
[14.056455, "o", "\u001b[52d\u001b[K\u001b[2d\u001b[?25l            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            begin ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[K\r\n            else reaffer1:= reaffer;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\r\n                  for i:= i while condition do reaffer1\u001b[K\r\n            end reaffer1 while;\u001b[K\r\n\n            ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            if symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[13;7H      smaller symbol then\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3026\u001b[39;49m);\u001b[15;7H            reaffer1 while(symbol ≠ colon symbol ∧\u001b[16;7H            symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[17;7H      end;\u001b[K\u001b[18;7H      if symbol ≠ colon symbol then"]
[14.056918, "o", "\u001b[19;7H      begin i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[20;7H            in comma mode:= symbol = open symbol;\u001b[21;7H            for i:= i + \u001b[35m1\u001b[39;49m while symbol ≠ colon symbol do\u001b[22;7H            begin par= i; reaffer1;\u001b[23;7H                  if in comma mode ∧ i > \u001b[35m1\u001b[39;49m then reaffer1 while\u001b[24;7H                  (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\r\n                        if 10 < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m then\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m if i = \u001b[35m23\u001b[39;49m then\r\n                              begin ERROR(true,\u001b[35m3002\u001b[39;49m); reaffer1 while\r\n                                    (symbol ≠ colon symbol)\u001b[29;7H                        end else\u001b[30;7H                        begin store letgits(formallist,ptr,max of\u001b[31;37Hformallist, reaffer);\u001b[32;7H                              if ptr - aux> \u001b[35m22\u001b[39;49m then\u001b[33;7H                              begin ERROR(true,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[34;13H                        end;\u001b["]
[14.057161, "o", "K\u001b[35;13H                        formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[36;13H                        aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[37;13H                        if symbol = accent symbol then\u001b[K\u001b[38;13H                        begin ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent\u001b[39;13H                        end;\u001b[K\u001b[40;13H                        if in comma mode then\u001b[41;13H                        begin if symbol = close symbol then\u001b[42;7H                                begin if reaffer1 ≠ colon symbol then\r\n\t\t\t\t\tbegin ERROR(true,\u001b[35m3004\u001b[39;49m);\u001b[44;7H                                    reaffer1 while\u001b[45;7H                                    (symbol ≠ colon symbol)\u001b[46;13H                            end\n\b\b\b\b\bend else if symbol ≠ comma symbol then\u001b[48;13H                          begin ERROR(true,\u001b[35m3005\u001b[39;49m);\u001b[49;13H                            reaffer1 while(symbol ≠ comma\u001b[50;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[51;29H\u001b[3m 8% L48\u001b[0m\u001b[39;"]
[14.057327, "o", "49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[22.136748, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[22.137225, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[22.976429, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[23.436837, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[23.766627, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[24.119207, "o", "\u001b[C"]
[24.595423, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[25.498497, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[25.596625, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[25.808956, "o", "\u001b[C"]
[27.232019, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[27.562321, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[28.07422, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[29.119621, "o", "\u001b[?25l3\u001b[34h\u001b[?25h\u001b[34l"]
[31.256392, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ for /rz3)\u001b[34h\u001b[?25h\u001b[34l"]
[31.699944, "o", "\r\t\b\b\u001b[?25l(f/ for /rz3)0\u001b[34h\u001b[?25h\u001b[34l"]
[34.815179, "o", "\r"]
[34.925237, "o", "\u001b[K\u001b[2d"]
[34.943068, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[34.943462, "o", "\r\nend\u001b[K\r\nend skip macro declarations;\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\u001b[7;7Hpr tape symbol:= space symbol;\u001b[8;7Hlinecounter:= o;\u001b[K\u001b[9;7Hskip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m do\u001b[11;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[12;13H         ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;13Hif symb\u001b[11@ol = accent\u001b[14;19HNS;\u001b[K\n\b\b\bif symbol = accent symbol\u001b[K\u001b[16;19Hthen symbol:= apostrophe symbol else\u001b[K\u001b[17;13H      if compare(\u001b[32m\"end\"\u001b[39;49m) then begcntr:= begcntr - \u001b[35m1\u001b[39;49m else\u001b[18;13H      if compare(\u001b[32m\"begin\"\u001b[39;49m) then begcntr:= begcntr + \u001b[35m1\u001b[39;49m else\u001b[19;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS end\u001b[20;13Hend;\u001b[K\n\b\b\b\bif symbol = apostrophe symbol then\u001b[K\u001b[22;13Hread while(symbol ≠ nlcr symbol ∧ symbol ≠ s"]
[34.943657, "o", "emicolon symbol)\u001b[23;7Hend;\u001b[K\n\b\b\b\brunout; runout\u001b[K\r\nend print elantext;\u001b[K\r\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;6H\u001b[3m**--F1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m\u001b[1mmcelan.a60  \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m   Bot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[36.365934, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[36.380258, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[36.380658, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m "]
[36.380744, "o", "\u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mod"]
[36.380804, "o", "e;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13Hbegin ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[36.776677, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[36.785175, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[37.087021, "o", "\u001b[52;11H\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[37.087498, "o", "\u001b[H\n"]
[37.103557, "o", "\t\b\b\u001b[?25l\u001b[1m\u001b[36m\u001b[45mr̲\u001b[0m\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[37.338498, "o", "\u001b[52;12H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[37.338863, "o", "\u001b[2;8H"]
[37.35406, "o", "\b\u001b[?25l\u001b[1m\u001b[36mr̲\u001b[0m\u001b[39;49m\u001b[3;44H\u001b[36m\u001b[45mre\u001b[39;49m"]
[37.354249, "o", "\u001b[51;34H\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[3;46H\u001b[34h\u001b[?25h\u001b[34l"]
[37.619151, "o", "\u001b[5;70H\u001b[?25l\u001b[46mre\u001b[39;49m\u001b[7;21H\u001b[46mre\u001b[39;49m\u001b[13;33H\u001b[46mre\u001b[39;49m\u001b[19;26H\u001b[46mre\u001b[39;49m\u001b[24;8H\u001b[46mre\u001b[39;49m\u001b[32;17H\u001b[46mre\u001b[39;49m\u001b[37;16H\u001b[46mre\u001b[39;49m letgits(namestack,stackptr,max of namestack,\u001b[46mre\u001b[39;49m\u001b[42;11H\u001b[33m\u001b[46mre\u001b[39;49m\n\n\t\u001b[46mre\u001b[39;49m\u001b[48;31H\u001b[46mre\u001b[39;49m\u001b[3;46H\u001b[34h\u001b[?25h\u001b[34l"]
[37.636654, "o", "\u001b[52;13H\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[37.636986, "o", "\u001b[3;46H"]
[37.653014, "o", "\b\b\u001b[?25l\u001b[46mre\u001b[39;49m\u001b[7;21H\u001b[36m\u001b[45mrea\u001b[39;49m\u001b[51;34H\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[37.661465, "o", "\u001b[3;44H\u001b[?25lre\u001b[5;70Hre\u001b[13;33Hre\u001b[19;26Hre\u001b[24;8Hre\u001b[32;17Hre\u001b[37;16Hre letgits(namestack,stackptr,max of namestack,re\u001b[42;11H\u001b[33mre\u001b[39;49m\n\n\tre\u001b[48;31Hre\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[37.926611, "o", "\u001b[13;33H\u001b[?25l\u001b[46mrea\u001b[39;49m\u001b[32;17H\u001b[46mrea\u001b[39;49m\u001b[37;63H\u001b[46mrea\u001b[39;49m\u001b[42;11H\u001b[33m\u001b[46mrea\u001b[39;49m\n\n\t\u001b[46mrea\u001b[39;49m\u001b[48;31H\u001b[46mrea\u001b[39;49m\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[38.244556, "o", "\u001b[52;14H\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[38.245167, "o", "\u001b[7;24H"]
[38.265393, "o", "\b\b\b\u001b[?25l\u001b[46mrea\u001b[39;49m"]
[38.265743, "o", "\u001b[37;63H\u001b[36m\u001b[45mreaf\u001b[39;49m\u001b[51;34H\u001b[3m36\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;67H\u001b[34h\u001b[?25h\u001b[34l"]
[38.27392, "o", "\u001b[7;21H\u001b[?25lrea\u001b[13;33Hrea\u001b[32;17Hrea\u001b[42;11H\u001b[33mrea\u001b[39;49m\n\n\trea\u001b[48;31Hrea\u001b[37;67H\u001b[34h\u001b[?25h\u001b[34l"]
[38.441565, "o", "\u001b[52;15H\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[38.441994, "o", "\u001b[37;67H"]
[38.461131, "o", "\u001b[?25l\u001b[36m\u001b[45mf\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[38.727004, "o", "\u001b[48;31H\u001b[?25l\u001b[46mreaff\u001b[39;49m\u001b[37;68H\u001b[34h\u001b[?25h\u001b[34l"]
[38.7473, "o", "\u001b[52;16H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[38.747659, "o", "\u001b[37;68H"]
[38.76763, "o", "\u001b[?25l\u001b[36m\u001b[45me\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[38.776041, "o", "\u001b[48;31H\u001b[?25lreaff\u001b[37;69H\u001b[34h\u001b[?25h\u001b[34l"]
[39.04162, "o", "\u001b[48;31H\u001b[?25l\u001b[46mreaffe\u001b[39;49m\u001b[37;69H\u001b[34h\u001b[?25h\u001b[34l"]
[39.08078, "o", "\u001b[52;17H\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[39.081357, "o", "\u001b[37;69H"]
[39.095721, "o", "\u001b[?25l\u001b[36m\u001b[45mr\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[39.104075, "o", "\u001b[48;31H\u001b[?25lreaffe\u001b[37;70H\u001b[34h\u001b[?25h\u001b[34l"]
[39.369706, "o", "\u001b[48;31H\u001b[?25l\u001b[46mreaffer\u001b[39;49m\u001b[37;70H\u001b[34h\u001b[?25h\u001b[34l"]
[42.61812, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[37;70H\u001b[34h\u001b[?25h\u001b[34l"]
[42.677998, "o", "\b\b\b\b\b\b\b\u001b[?25lreaffer\u001b[48;31Hreaffer\n\n\n\b\b\b\u001b[3m7    (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;57H\u001b[34h\u001b[?25h\u001b[34l"]
[43.017116, "o", "\u001b[52;1H\u001b[K\u001b[51;35H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;51H\u001b[34h\u001b[?25h\u001b[34l"]
[43.367578, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;52H\u001b[34h\u001b[?25h\u001b[34l"]
[48.626433, "o", "\u001b[51;34H\u001b[?25l\u001b[3m40\u001b[0m\u001b[39;49m\u001b[23m\u001b[41d\u001b[34h\u001b[?25h\u001b[34l"]
[49.118925, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;21H\u001b[34h\u001b[?25h\u001b[34l"]
[49.150241, "o", "\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[49.18073, "o", "\u001b[51;35H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;30H\u001b[34h\u001b[?25h\u001b[34l"]
[49.215079, "o", "\u001b[51;35H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;35H\u001b[34h\u001b[?25h\u001b[34l"]
[49.241153, "o", "\u001b[51d\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;35H\u001b[34h\u001b[?25h\u001b[34l"]
[49.275664, "o", "\u001b[51d\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;13H\u001b[34h\u001b[?25h\u001b[34l"]
[52.486533, "o", "\u001b[51;35H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;40H\u001b[34h\u001b[?25h\u001b[34l"]
[53.249735, "o", "\u001b[51;35H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;42H\u001b[34h\u001b[?25h\u001b[34l"]
[53.66029, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[50;55H\u001b[34h\u001b[?25h\u001b[34l"]
[53.953145, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[53.95355, "o", "\u001b[26;1H\u001b[?25l            else reaffer1:= reaffer;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while condition do reaffer1\u001b[K\r\n            end reaffer1 while;\u001b[K\r\n\u001b[K\n            ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            if symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[K\r\n            smaller symbol then\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3026\u001b[39;49m);\u001b[K\r\n                  reaffer1 while(symbol ≠ colon symbol ∧\u001b[K\r\n                  symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[K\r\n            end;\u001b[K\r\n            if symbol ≠ colon symbol then\u001b[K\r\n            begin i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n                  in comma mode:= symbol = open symbol;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;4"]
[53.953967, "o", "9m i:= i + \u001b[35m1\u001b[39;49m while symbol ≠ colon symbol do\u001b[K\r\n                  begin par= i; reaffer1;\u001b[K\r\n                        if in comma mode ∧ i > \u001b[35m1\u001b[39;49m then reaffer1 while\u001b[K\r\n                        (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\u001b[K\r\n                        if 10 < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m then\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m if i = \u001b[35m23\u001b[39;49m then\u001b[K\r\n                              begin ERROR(true,\u001b[35m3002\u001b[39;49m); reaffer1 while\u001b[K\r\n                                    (symbol ≠ colon symbol)\u001b[K\u001b[51;29H\u001b[3m 5% L50\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;37H\u001b[34h\u001b[?25h\u001b[34l"]
[67.697043, "o", "\u001b[52;1H\u001b[?25lMark set\u001b[26;37H\u001b[34h\u001b[?25h\u001b[34l"]
[67.713498, "o", "\u001b[1;50r\u001b[2;1H\u001b[25L\u001b[1;52r"]
[67.713994, "o", "\u001b[2;1H\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\u001b[K\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\u001b[K\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\u001b[K\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\u001b[K\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\u001b[K\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\u001b[K\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K\r\n      from actualstack:= accent r"]
[67.714288, "o", "ead:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\r\n      max of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\r\n      max of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\r\n      max of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\r\n      max of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\r\n      asterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\r\n      stackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n      endmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\r\n      namestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\r\n      freeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[51;29H\u001b[3mTop L1 \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[68.976641, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[68.977071, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[69.78852, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[70.441407, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[70.732582, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[70.941137, "o", "\u001b[C"]
[71.314152, "o", "\u001b[?25lb\u001b[34h\u001b[?25h\u001b[34l"]
[71.443377, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[71.884922, "o", "\u001b[?25lg\u001b[34h\u001b[?25h\u001b[34l"]
[72.073483, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[72.345138, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[72.609617, "o", "\t"]
[73.704175, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[74.212978, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[74.687941, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[75.243882, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[75.924223, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ begin /rz5)\u001b[34h\u001b[?25h\u001b[34l"]
[76.187832, "o", "\r\t\b\b\u001b[?25l(f/ begin /rz5)0\u001b[34h\u001b[?25h\u001b[34l"]
[79.809322, "o", "\r"]
[79.836826, "o", "\u001b[K\u001b[2d"]
[79.867566, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[79.868007, "o", "\r\nend\u001b[K\r\nend skip macro declarations;\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m do\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      if symbol = accent symbol then\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            if symbol = accent symbol\u001b[16;7H            then symbol:= apostrophe symbol else\u001b[17;7H            if compare(\u001b[32m\"end\"\u001b[39;49m) then begcntr:= begcntr - \u001b[35m1\u001b[39;49m else\u001b[18;7H            if compare(\u001b[32m\"begin\"\u001b[39;49m) then begcntr:= begcntr + \u001b[35m1\u001b[39;49m else\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS end\u001b[20"]
[79.868112, "o", ";7H      end;\u001b[K\u001b[21;7H      if symbol = apostrophe symbol then\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7Hend;\u001b[K\n\b\b\b\brunout; runout\r\nend print elantext;\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[83.531803, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[83.545575, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲"]
[83.545892, "o", "e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49"]
[83.546238, "o", "m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36"]
[83.546585, "o", "mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[85.171901, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[86.239754, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[87.863573, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[89.790237, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[98.598584, "o", "\u001b[C"]
[99.025448, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[99.268729, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[99.374437, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[100.167464, "o", "\u001b[?25l;\u001b[34h\u001b[?25h\u001b[34l"]
[101.739407, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[103.442097, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[104.022745, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[104.973384, "o", "\u001b[?25l3\u001b[34h\u001b[?25h\u001b[34l"]
[107.587095, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ end;/rz3)\u001b[34h\u001b[?25h\u001b[34l"]
[107.836724, "o", "\r\t\b\b\u001b[?25l(f/ end;/rz3)0\u001b[34h\u001b[?25h\u001b[34l"]
[109.377933, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[109.751235, "o", "\u001b[?25l-\u001b[34h\u001b[?25h\u001b[34l"]
[109.989735, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[110.824448, "o", "\r"]
[110.848018, "o", "\u001b[K\u001b[2d"]
[110.860486, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\r\n\u001b[34h\u001b[?25h\u001b[34l"]
[114.67965, "o", "\u001b[?25l            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[K\r\n            else reaffer1:= reaffer;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while condition do reaffer1\u001b[K\r\n            end reaffer1 while;\u001b[K\r\n\n            ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            if symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[13;7H      smaller symbol then\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3026\u001b[39;49m);\u001b[15;7H            reaffer1 while(symbol ≠ colon symbol ∧\u001b[16;7H            symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[17;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;"]
[114.680049, "o", "49m\u001b[K\u001b[18;7H      if symbol ≠ colon symbol then\u001b[19;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[20;7H            in comma mode:= symbol = open symbol;\u001b[21;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m while symbol ≠ colon symbol do\u001b[22;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[23;7H                  if in comma mode ∧ i > \u001b[35m1\u001b[39;49m then reaffer1 while\u001b[24;7H                  (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\r\n                        if 10 < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m then\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m if i = \u001b[35m23\u001b[39;49m then\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3002\u001b[39;49m); reaffer1 while\r\n                                    (symbol ≠ colon symbol)\u001b[29;7H                        end else\u001b[30;7H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[31;37Hformallist, reaffer);\u001b[32;7H "]
[114.680748, "o", "                             if ptr - aux> \u001b[35m22\u001b[39;49m then\u001b[33;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[34;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[35;13H                        formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[36;13H                        aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[37;13H                        if symbol = accent symbol then\u001b[K\u001b[38;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent\u001b[39;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[40;13H                        if in comma mode then\u001b[41;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m if symbol = close symbol then\u001b[42;7H                                \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m if reaffer1 ≠ colon symbol then\r\n\t\t\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3004\u001b[39;49m);\u001b[44;7H   "]
[114.680957, "o", "                                 reaffer1 while\u001b[45;7H                                    (symbol ≠ colon symbol)\u001b[46;13H                            end\n\b\b\b\b\bend else if symbol ≠ comma symbol then\u001b[48;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3005\u001b[39;49m);\u001b[49;13H                            reaffer1 while(symbol ≠ comma\u001b[50;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[51;29H\u001b[3m 8% L48\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[122.69387, "o", "\u001b[52d\u001b[?25lMark set\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[122.707276, "o", "\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\u001b[K\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b"]
[122.707775, "o", "[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formall"]
[122.708689, "o", "ist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[K\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K"]
[122.708896, "o", "\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[K\u001b[51;29H\u001b[3mTop L1 \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[124.464145, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[124.46457, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[125.351323, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[125.720171, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[126.151903, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[126.420868, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[126.735598, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[126.848958, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[126.958436, "o", "\u001b[C"]
[127.151729, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[127.461129, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[127.543518, "o", "\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[127.753742, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[129.174993, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[129.919249, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[130.702563, "o", "\u001b[?25l8\u001b[34h\u001b[?25h\u001b[34l"]
[131.769476, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/end else/z8)\u001b[34h\u001b[?25h\u001b[34l"]
[132.042923, "o", "\r\t\b\b\u001b[?25l(f/end else/z8)0\u001b[34h\u001b[?25h\u001b[34l"]
[133.918324, "o", "\r"]
[133.961767, "o", "\u001b[K\u001b[2d"]
[133.983267, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[133.983634, "o", "\r\nend\u001b[K\r\nend skip macro declarations;\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m do\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      if symbol = accent symbol then\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            if symbol = accent symbol\u001b[16;7H            then symbol:= apostrophe symbol else\u001b[17;7H            if compare(\u001b[32m\"end\"\u001b[39;49m) then begcntr:= begcntr - \u001b[35m1\u001b[39;49m else\u001b[18;7H            if compare(\u001b[32m\"begin\"\u001b[39;49m) then begcntr:= begcntr + \u001b[35m1\u001b[39;49m else\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS end\u001b[20"]
[133.984699, "o", ";7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      if symbol = apostrophe symbol then\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\r\nend print elantext;\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[138.960287, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[138.97744, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲"]
[138.97869, "o", "e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49"]
[138.978774, "o", "m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36"]
[138.978804, "o", "mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[140.365974, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[140.366434, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[141.960279, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[142.763187, "o", "\t"]
[142.934879, "o", "\u001b[C"]
[143.372497, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[143.809759, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[144.326462, "o", "\u001b[?25l.\u001b[34h\u001b[?25h\u001b[34l"]
[144.551507, "o", "\u001b[C"]
[144.745915, "o", "\u001b[?25l.\u001b[34h\u001b[?25h\u001b[34l"]
[145.340544, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[145.896962, "o", "\b\b\b\b\b\b\u001b[?25l\u001b[46m(\u001b[39;49mv. .r)\u001b[34h\u001b[?25h\u001b[34l"]
[146.097252, "o", "\b\b\b\b\b\b\b\u001b[?25l(v. .r)0\u001b[34h\u001b[?25h\u001b[34l"]
[146.636992, "o", "\u001b[C"]
[147.142665, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[147.508613, "o", "\u001b[?25l.\u001b[34h\u001b[?25h\u001b[34l"]
[147.744628, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[148.05676, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[148.156427, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[149.395798, "o", "\u001b[?25l.\u001b[34h\u001b[?25h\u001b[34l"]
[149.913085, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[150.551047, "o", "\u001b[?25l3\u001b[34h\u001b[?25h\u001b[34l"]
[151.975572, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[152.235893, "o", "\u001b[?25l,\u001b[34h\u001b[?25h\u001b[34l"]
[152.375299, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[153.17953, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49m  (v. .r)0 v.end.z3m,m)\u001b[34h\u001b[?25h\u001b[34l"]
[153.397126, "o", "\r\t\b\b\u001b[?25l(  (v. .r)0 v.end.z3m,m)0\u001b[34h\u001b[?25h\u001b[34l"]
[154.781218, "o", "\r"]
[154.810016, "o", "\u001b[K\u001b[2d"]
[154.829842, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[154.830046, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m do\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      if symbol = accent symbol then\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            if symbol = accent symbol\u001b[16;7H            then symbol:= apostrophe symbol else\u001b[17;7H            if compare(\u001b[32m\"end\"\u001b[39;49m) then begcntr:= begcntr - \u001b[35m1\u001b[39;49m else\u001b[18;7H            if compare(\u001b[32m\"begin\"\u001b[39;49m) then begcntr:= begcntr + \u001b[35m1\u001b[39;49m else\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲"]
[154.830152, "o", "i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS end\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      if symbol = apostrophe symbol then\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[158.388594, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[158.404155, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲"]
[158.404496, "o", "e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;5H\u001b[33minitialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;4"]
[158.404791, "o", "9m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[3"]
[158.404943, "o", "6mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[159.361836, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[159.807456, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[160.210419, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[160.557343, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[162.521132, "o", "\u001b[C"]
[162.707288, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[162.874281, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[163.004945, "o", "\u001b[C"]
[164.380435, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[164.67788, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[165.266795, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[165.439455, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[166.065295, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ if /rzz)\u001b[34h\u001b[?25h\u001b[34l"]
[166.282634, "o", "\r\t\b\b\u001b[?25l(f/ if /rzz)0\u001b[34h\u001b[?25h\u001b[34l"]
[167.503459, "o", "\r"]
[167.545385, "o", "\u001b[K\u001b[2d"]
[167.565076, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[167.56542, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m do\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol then\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            then symbol:= apostrophe symbol else\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) then begcntr:= begcntr - \u001b[35m1\u001b[39;49m else\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[3"]
[167.565678, "o", "2m\"begin\"\u001b[39;49m) then begcntr:= begcntr + \u001b[35m1\u001b[39;49m else\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS end\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol then\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[171.602446, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[171.619537, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[171.621831, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;5H\u001b[33minitialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m"]
[171.622109, "o", " \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mo"]
[171.622188, "o", "de;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[172.387561, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[172.388001, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[172.868709, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[173.305573, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[173.737127, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[174.0226, "o", "\u001b[C"]
[174.15642, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[174.368232, "o", "\u001b[?25lh\u001b[34h\u001b[?25h\u001b[34l"]
[174.539548, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[174.675412, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[174.892525, "o", "\t\b"]
[175.695492, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[176.223627, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[176.617409, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[177.176781, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[178.086453, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ then /rz4)\u001b[34h\u001b[?25h\u001b[34l"]
[178.264878, "o", "\r\t\b\b\u001b[?25l(f/ then /rz4)0\u001b[34h\u001b[?25h\u001b[34l"]
[179.678705, "o", "\r"]
[179.704775, "o", "\u001b[K\u001b[2d"]
[179.724947, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[179.725486, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m do\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol then\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol else\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m else"]
[179.725702, "o", "\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m else\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS end\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol then\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[191.452018, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[191.467884, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[191.468403, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;5H\u001b[33minitialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m"]
[191.470075, "o", " \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mo"]
[191.470593, "o", "de;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[192.319097, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[192.7602, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[193.664485, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[194.152075, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[195.147554, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[195.271987, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[195.74033, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[196.132298, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[196.343892, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[196.574539, "o", "\u001b[?25lh\u001b[34h\u001b[?25h\u001b[34l"]
[196.684577, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[196.891337, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[198.553069, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[198.829995, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[199.282177, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[199.733405, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[199.873149, "o", "\u001b[?25l,\u001b[34h\u001b[?25h\u001b[34l"]
[200.071747, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[200.621501, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mr0l4v/then/z4m,m)\u001b[34h\u001b[?25h\u001b[34l"]
[200.862997, "o", "\r\t\b\b\u001b[?25l(r0l4v/then/z4m,m)0\u001b[34h\u001b[?25h\u001b[34l"]
[201.919572, "o", "\r"]
[201.957047, "o", "\u001b[K\u001b[2d"]
[201.979167, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[201.979621, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m do\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol else\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= "]
[201.979938, "o", "begcntr - \u001b[35m1\u001b[39;49m else\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m else\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS end\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[204.008697, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[204.022042, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[204.022411, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;5H\u001b[33minitialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m"]
[204.022497, "o", " \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mo"]
[204.022569, "o", "de;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[204.830751, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[204.831209, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[205.35671, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[207.614646, "o", "\t"]
[207.979973, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[208.148659, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[208.341707, "o", "\u001b[C"]
[212.492982, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[213.366137, "o", "\u001b[?25l2\u001b[34h\u001b[?25h\u001b[34l"]
[213.984849, "o", "\u001b[C"]
[214.514323, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[214.845031, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[215.16555, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[215.292799, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[216.302032, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[216.582594, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[216.759527, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[217.999232, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[218.225193, "o", "\u001b[?25l,\u001b[34h\u001b[?25h\u001b[34l"]
[218.37301, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[219.152868, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49m r0 l2 v/do/zzm,m)\u001b[34h\u001b[?25h\u001b[34l"]
[219.333999, "o", "\r\t\b\b\u001b[?25l( r0 l2 v/do/zzm,m)0\u001b[34h\u001b[?25h\u001b[34l"]
[219.882202, "o", "\r"]
[219.911785, "o", "\u001b[K\u001b[2d"]
[219.934101, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[219.934397, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol else\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n"]
[219.934661, "o", "̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m else\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m else\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS end\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[225.186068, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[225.194459, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲"]
[225.195607, "o", "e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;5H\u001b[33minitialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;4"]
[225.195822, "o", "9m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[3"]
[225.196666, "o", "6mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[225.960091, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[225.960373, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[226.439062, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[226.878131, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[227.060315, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[228.99793, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[229.098484, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[229.547343, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[229.860611, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[230.026077, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[230.394444, "o", "\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[231.844744, "o", "\b\u001b[K"]
[232.740678, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[232.996465, "o", "\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[233.149148, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[234.500353, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[234.799966, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[235.446507, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[235.989859, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[236.07007, "o", "\u001b[?25l,\u001b[34h\u001b[?25h\u001b[34l"]
[236.252175, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[236.707827, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mr0l4v/else/z4m,m)\u001b[34h\u001b[?25h\u001b[34l"]
[236.9439, "o", "\r\t\b\b\u001b[?25l(r0l4v/else/z4m,m)0\u001b[34h\u001b[?25h\u001b[34l"]
[238.460815, "o", "\r"]
[238.485574, "o", "\u001b[K\u001b[2d"]
[238.507231, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[238.507603, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\""]
[238.507913, "o", "\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS end\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[245.102617, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[245.117125, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲"]
[245.117528, "o", "e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;5H\u001b[33minitialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;4"]
[245.117616, "o", "9m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[3"]
[245.117691, "o", "6mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent end\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[246.166767, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[246.167377, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[248.151995, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[248.779366, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[249.087413, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[250.577757, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[250.692133, "o", "\u001b[?25l3\u001b[34h\u001b[?25h\u001b[34l"]
[251.176437, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[251.496378, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[251.886532, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[252.262867, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[252.344993, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[254.292456, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[254.650354, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[255.222118, "o", "\u001b[?25l3\u001b[34h\u001b[?25h\u001b[34l"]
[255.596551, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[255.70611, "o", "\u001b[?25l,\u001b[34h\u001b[?25h\u001b[34l"]
[255.887369, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[256.371914, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mr0l3v/end/z3m,m)\u001b[34h\u001b[?25h\u001b[34l"]
[256.607918, "o", "\r\t\b\b\u001b[?25l(r0l3v/end/z3m,m)0\u001b[34h\u001b[?25h\u001b[34l"]
[258.386431, "o", "\r"]
[258.428026, "o", "\u001b[K\u001b[2d"]
[258.451011, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[258.451165, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\""]
[258.452263, "o", "\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[264.451053, "o", "\u001b[2d\u001b[?25l            j = j + \u001b[35m1\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                  list[pointer]:= word × t6 + symbol;\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[7;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[8;7H      symbol:= letgit\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m while j < \u001b[35m4\u001b[39;49m do word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[12;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true else list[pointer]:= word;"]
[264.451595, "o", "\u001b[13;7Hpointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[20;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[21;13H  stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;13Hstackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[K\u001b[23;10H\u001b[33m unstack macros;\u001b[39;49m\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[26;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[27;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[28;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i while symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[29;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until"]
[264.451838, "o", "(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[30;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i while begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[31;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[32;28H∧ symbol ≠ apostrophe symbol);\u001b[33;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\n\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[36;19H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[37;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[38;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[39;19Helse \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol);\r\n\t\t\t\tNS\u001b[41;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n"]
[264.451996, "o", "̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[44;7Hread while(symbol ≠ nlcr symbol\r\n\t\t\b∧ symbol ≠ semicolon symbol)\r\n\u001b[32m{indentation again!}\u001b[39;49m}\u001b[47;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\n\u001b[3m90% L589\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[274.381716, "o", "\n\n\u001b[?25lMark set\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[274.395165, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K"]
[274.395584, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\r\n      max of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\r\n      max of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\r\n\t\b\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n"]
[274.396677, "o", "̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;10H\u001b[33m read name;\u001b[39;49m\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e"]
[274.396969, "o", "̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\n\t\b\b      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[275.318931, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[275.319457, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[276.205757, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[276.578784, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[276.964362, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[277.211425, "o", "\u001b[C"]
[277.378215, "o", "\u001b[?25lw\u001b[34h\u001b[?25h\u001b[34l"]
[277.528546, "o", "\u001b[?25lh\u001b[34h\u001b[?25h\u001b[34l"]
[277.975061, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[278.274898, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[278.396028, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[278.555066, "o", "\t"]
[279.941083, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[280.756677, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[281.29836, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[281.862083, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[282.47928, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ while /rz5)\u001b[34h\u001b[?25h\u001b[34l"]
[282.745112, "o", "\r\t\b\b\u001b[?25l(f/ while /rz5)0\u001b[34h\u001b[?25h\u001b[34l"]
[283.309808, "o", "\r"]
[283.338131, "o", "\u001b[K\u001b[2d"]
[283.371788, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[283.372084, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲"]
[283.372155, "o", "\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[290.247673, "o", "\u001b[2d\u001b[?25l            j = j + \u001b[35m1\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                  list[pointer]:= word × t6 + symbol;\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[7;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[8;7H      symbol:= letgit\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m do word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[12;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true else list[pointer]:= word;\u001b[13;7Hpointer:= pointer + \u001b[35m1\u001b[39;"]
[290.248145, "o", "49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[20;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[21;13H  stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;13Hstackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[K\u001b[23;10H\u001b[33m unstack macros;\u001b[39;49m\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[26;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[27;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[28;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[29;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n"]
[290.248476, "o", "̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[30;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[31;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[32;28H∧ symbol ≠ apostrophe symbol);\u001b[33;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\n\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[36;19H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[37;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[38;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[39;19Helse \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol);\r\n\t\t\t\tNS\u001b[41"]
[290.248649, "o", ";19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[44;7Hread while(symbol ≠ nlcr symbol\r\n\t\t\b∧ symbol ≠ semicolon symbol)\r\n\u001b[32m{indentation again!}\u001b[39;49m}\u001b[47;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\n\u001b[3m90% L589\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[295.215078, "o", "\n\n\u001b[?25lMark set\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[295.231729, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K"]
[295.232015, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\r\n      max of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\r\n      max of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\r\n\t\b\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n"]
[295.232379, "o", "̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;10H\u001b[33m read name;\u001b[39;49m\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e"]
[295.232592, "o", "̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\n\t\b\b      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[296.149694, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[297.060505, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[297.417332, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[297.834506, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[298.082766, "o", "\u001b[C"]
[298.243997, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[298.463265, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[298.608179, "o", "\u001b[C"]
[299.779747, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[300.212726, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[300.685473, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[300.844855, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[301.399542, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ do /rzz)\u001b[34h\u001b[?25h\u001b[34l"]
[301.579818, "o", "\r\t\b\b\u001b[?25l(f/ do /rzz)0\u001b[34h\u001b[?25h\u001b[34l"]
[302.811137, "o", "\r"]
[302.836334, "o", "\u001b[K\u001b[2d"]
[302.87054, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[302.870967, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip until (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲"]
[302.871089, "o", "\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[310.755375, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[310.770115, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[310.770402, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;5H\u001b[33minitialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m"]
[310.770757, "o", " \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mo"]
[310.770935, "o", "de;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[311.550665, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[311.551096, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[311.975463, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[312.302746, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[312.557868, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[312.775986, "o", "\u001b[C"]
[313.073346, "o", "\u001b[?25lu\u001b[34h\u001b[?25h\u001b[34l"]
[313.261638, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[313.659747, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[313.796314, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[314.261814, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[314.81208, "o", "\t"]
[315.331921, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[315.787855, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[316.450522, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[316.942498, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[317.737409, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ until /rz5)\u001b[34h\u001b[?25h\u001b[34l"]
[317.916857, "o", "\r\t\b\b\u001b[?25l(f/ until /rz5)0\u001b[34h\u001b[?25h\u001b[34l"]
[319.167816, "o", "\r"]
[319.195919, "o", "\u001b[K\u001b[2d"]
[319.22065, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[319.221049, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[1"]
[319.221479, "o", "7;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[329.431842, "o", "\u001b[2d\u001b[?25l            j = j + \u001b[35m1\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                  list[pointer]:= word × t6 + symbol;\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[7;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[8;7H      symbol:= letgit\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[12;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true else list[pointer]:= word;\u001b[13;7Hpointe"]
[329.432221, "o", "r:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[20;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[21;13H  stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;13Hstackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[K\u001b[23;10H\u001b[33m unstack macros;\u001b[39;49m\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[26;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[27;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[28;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[29;"]
[329.432461, "o", "7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[30;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[31;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[32;28H∧ symbol ≠ apostrophe symbol);\u001b[33;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\n\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[36;19H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[37;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[38;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[39;19Helse \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ ac"]
[329.432548, "o", "cent symbol);\r\n\t\t\t\tNS\u001b[41;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[44;7Hread while(symbol ≠ nlcr symbol\r\n\t\t\b∧ symbol ≠ semicolon symbol)\r\n\u001b[32m{indentation again!}\u001b[39;49m}\u001b[47;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\n\u001b[3m90% L589\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[337.744922, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, first symbol;\r\n      first symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\r\n      read while(first symbol ≠\r\n          (if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[12;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[13;7H    (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b["]
[337.74543, "o", "35m27\u001b[39;49m else symbol))\u001b[14;4H\u001b[33m skip until;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\ninteger max,char; integer array stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[19;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol & spacecntr < \u001b[35m255\u001b[39;49m\u001b[20;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[22;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[24;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3018\u001b[39;49m)\u001b[25;7H      else stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[26;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e"]
[337.745509, "o", "̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[28;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[29;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[30;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[31;13H      stow into stack(stack,max,char)\u001b[K\u001b[32;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[34;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[35;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K"]
[337.746163, "o", "\u001b[36;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;7Hstow into stack(stack,max,o)\u001b[K\u001b[38;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\ninteger pointer,max,letgit; integer array list;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,j,word;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\r\n      word:= j:= \u001b[35m0\u001b[39;49m; full:= false;\u001b[47;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[48;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\r\n            j = j + \u001b[35m1\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f"]
[337.74628, "o", "̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m83% L542\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[354.275258, "o", "\n\n\u001b[?25lMark set\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[354.291692, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K"]
[354.291959, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\r\n      max of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\r\n      max of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\r\n      max of savestack:= \u001b[35m120\u001b[39;49m;\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H"]
[354.292217, "o", "\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;7H      ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;7H      lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;7H      bcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;7H      store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;7H      ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\r\n            namestack[stackptr]:= stackptr - save;\r\n            namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\r\n\t\b\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m "]
[354.292357, "o", "integer i,ptr,aux,par;\u001b[46;7H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\n\t\b\b      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[356.107215, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[356.107686, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[356.955917, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[357.276137, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[357.603231, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[357.888394, "o", "\u001b[C"]
[358.287883, "o", "\u001b[?25l&\u001b[34h\u001b[?25h\u001b[34l"]
[358.425602, "o", "\u001b[C"]
[359.206545, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[359.356607, "o", "\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[359.676011, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[360.148524, "o", "\t"]
[360.617499, "o", "\u001b[?25l∧\u001b[34h\u001b[?25h\u001b[34l"]
[361.50145, "o", "\u001b[C"]
[362.492135, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[363.458899, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ & /s/ ∧ /)\u001b[34h\u001b[?25h\u001b[34l"]
[363.690394, "o", "\r\t\b\b\u001b[?25l(f/ & /s/ ∧ /)0\u001b[34h\u001b[?25h\u001b[34l"]
[364.470391, "o", "\r"]
[364.543485, "o", "\u001b[K\u001b[2d"]
[364.579132, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[364.579634, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[1"]
[364.579909, "o", "7;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[366.677471, "o", "\u001b[2d\u001b[?25l            j = j + \u001b[35m1\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                  list[pointer]:= word × t6 + symbol;\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[7;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[8;7H      symbol:= letgit\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[12;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true else list[pointer]:= word;\u001b[13;7Hpointe"]
[366.677628, "o", "r:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[20;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[21;13H  stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;13Hstackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[K\u001b[23;10H\u001b[33m unstack macros;\u001b[39;49m\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[26;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[27;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[28;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[29;"]
[366.67796, "o", "7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[30;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[31;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[32;28H∧ symbol ≠ apostrophe symbol);\u001b[33;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\n\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[36;19H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[37;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[38;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[39;19Helse \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ ac"]
[366.678443, "o", "cent symbol);\r\n\t\t\t\tNS\u001b[41;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[44;7Hread while(symbol ≠ nlcr symbol\r\n\t\t\b∧ symbol ≠ semicolon symbol)\r\n\u001b[32m{indentation again!}\u001b[39;49m}\u001b[47;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\n\u001b[3m90% L589\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[366.88883, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, first symbol;\r\n      first symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\r\n      read while(first symbol ≠\r\n          (if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[12;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[13;7H    (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b["]
[366.890271, "o", "35m27\u001b[39;49m else symbol))\u001b[14;4H\u001b[33m skip until;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\ninteger max,char; integer array stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[19;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ??? spacecntr < \u001b[35m255\u001b[39;49m\u001b[20;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[22;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[24;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3018\u001b[39;49m)\u001b[25;7H      else stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[26;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h"]
[366.89042, "o", "̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[28;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[29;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[30;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[31;13H      stow into stack(stack,max,char)\u001b[K\u001b[32;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[34;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[35;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[36;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;7Hstow into stack(stack,max,o)\u001b[K\u001b[38;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store l"]
[366.89048, "o", "etgits(list,pointer,max,letgit); value max;\r\ninteger pointer,max,letgit; integer array list;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,j,word;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\r\n      word:= j:= \u001b[35m0\u001b[39;49m; full:= false;\u001b[47;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[48;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\r\n            j = j + \u001b[35m1\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m83% L542\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[367.068292, "o", "\u001b[2d\u001b[K\n\u001b[?25l      integer \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer s;\u001b[K\r\n            s:= RESYM1;\u001b[6;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\r\n                  prsym(s);\u001b[K\u001b[9;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\u001b[10;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[11;11H  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into buffer(s);\u001b[K\u001b[12;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;11H        line number:= line number + \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bread and buffer:= s\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw"]
[367.068842, "o", "̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= false \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[21;7H      else symbol:= read and buffer;\r\n\t\t\bsymbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[23;19Hnextacc:= read and buffer;\u001b[K\r\n\t\t\bnextacc = accent symbol\u001b[K\u001b[25;13H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[26;7H      else accent read:= true\u001b[27;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[K\u001b[30;13H        ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[31;7Hsymbol:= read and buffer;\u001b[K\u001b[32;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mo"]
[367.068991, "o", "de \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer s,k;\u001b[K\u001b[41;7Hk:= \u001b[35m0\u001b[39;49m; compare:= true;\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= false; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[46;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:"]
[367.069328, "o", "= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[51;29H\u001b[3m76% L495\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[384.003202, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[3;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[4;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[5;13H      t8J:= t16; Word:= actualstack[LLcntr]\u001b[6;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[8;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[9;19Ht8J:= t8J / t8\u001b[K\u001b[10;21H\u001b[33m s:= Word;\u001b[39;49m\u001b[11;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= false; s:= macro sym"]
[384.003589, "o", "\u001b[13;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[15;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr: = bbcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[16;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[17;19Hword:= definitionstack[llcntr]\u001b[18;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K"]
[384.003656, "o", "\u001b[19;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;20H:= word ÷ t8j; word:= word - s × t8j;\u001b[K\u001b[21;13H      t8j:= t8j / t8\u001b[K\u001b[22;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[K\u001b[23;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= true; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[25;13H      LLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[26;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= false;\u001b[27;7H            s := macro sym\u001b[28;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[29;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[30;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\u001b[K\u001b[31;7H            freeptr:= pointerptr;\u001b[32;7H            namestac"]
[384.003701, "o", "k[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[33;7H            -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= false; stow into buffer(ksiretsa)\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ restore expansion;\u001b[39;49m\r\n                  s= savestack[saveptr + \u001b[35m5\u001b[39;49m] \u001b[32m{s:= ?}\u001b[39;49m\u001b[38;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s > endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= s - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nmacro sym: = s\u001b[K\r\n\u001b[32m{lost indent above again}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m macro sym;\u001b[39;49m\u001b[K\r\n\u001b[K\ninteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer;\r\n\u001b"]
[384.003752, "o", "[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\r\n\u001b[K\n      integer \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\u001b[51;29H\u001b[3m69% L448\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[395.024961, "o", "\u001b[2d\u001b[?25l      par:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[3;7Hread actuals;\u001b[K\u001b[4;7Hnamestack[place of name+ \u001b[35m1\u001b[39;49m]:= -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[5;7Hsavestack[saveptr + \u001b[35m4\u001b[39;49m]:= place of name;\u001b[K\u001b[6;7Hsavestack[saveptr + \u001b[35m5\u001b[39;49m]:= symbol;\u001b[7;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from macro \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m store expansion \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[8;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= true; stow into buffer(asterisk) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[9;7Hsaveptr:= saveptr + \u001b[35m6\u001b[39;49m; bbcntr:= \u001b[35m1\u001b[39;49m; llcntr:= p;\u001b[10;7Hpr tape symbol:= space symbol;\u001b[11;7Hsymbol:= macro sym;\u001b[K\u001b[12;7Hstow into buffer(symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m expand macro;\u001b[39;49m\r\n\u001b[K\ninteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m macro sym;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,s;\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m restore expansion;"]
[395.025472, "o", "\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr:= savestack[saveptr];\u001b[20;13Hllcntr:= savestack[saveptr + \u001b[35m1\u001b[39;49m];\u001b[K\u001b[21;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= \u001b[35m1\u001b[39;49m; word:= definitionstack[llcntr];\u001b[23;13Hword:= word - word ÷ t8 × t8\u001b[24;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[25;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= t8; word:= definitionstack[llcntr];\u001b[K\u001b[27;13Hword:= word - word ÷ t16 × t16\u001b[28;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m] ≠ -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= savestack[saveptr + \u001b[35m2\u001b[39;49m];\u001b[31;13HLLcntr:= savestack[saveptr + \u001b[35m3\u001b[39;49m];\u001b[32;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m2\u001b[39;49m"]
[395.02559, "o", " \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= \u001b[35m1\u001b[39;49m; Word:= actualstack[LLcntr];\u001b[34;19HWord:= Word - Word ÷ t8 × t8\u001b[35;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[36;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= t8; Word:= actualstack[LLcntr];\u001b[38;13H      Word:= Word - Word ÷ t16 × t16\u001b[39;7H\u001b[6@\n      from actualstack:= true\u001b[41;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      place of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\r\n      pointerptr:= pointerptr + definitionstack[namestack\r\n      [place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\u001b[45;5H\u001b[33mrestore expansion;\u001b[39;49m\r\n\n\u001b[Cf spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[48;7Hspacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39"]
[395.025896, "o", ";49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[51;30H\u001b[3m2% L401\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[402.126436, "o", "\u001b[2;7H\u001b[?25l            bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[3;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[4;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[5;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[6;7H                    quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[7;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[8;7H                    quotcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[9;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[10;7H            complete actual parameter;\u001b[11;7H            reaffer;\u001b[12;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[14;34H∨symbol = semicolon symbol);\r\n               "]
[402.1269, "o", "         ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[17;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[18;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[19;7H      else ERROR(true,\u001b[35m3025\u001b[39;49m);\u001b[K\u001b[20;13Hin actual mode:= false\u001b[K\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[23;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3016\u001b[39;49m);\u001b[25;7H      auxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[26;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[27;13Hpointerstack[i]:= -\u001b[35m1\u001b[39;49m;\u001b[K\u001b[28;7H      freeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[29;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b"]
[402.12712, "o", "[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3001\u001b[39;49m);\u001b[K\u001b[32;13Hread while(symbol ≠ nlcr symbol\u001b[33;13H         ∧ symbol ≠ semicolon symbol)\u001b[K\u001b[34;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\u001b[39;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[40;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[42;7H      savestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[K\u001b[43;7H      from actualstack:= false\u001b[K\u001b[44;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\u001b[K\u001b[45;5H\u001b[2P\r\n\u001b[32m{indents missing above}\u001b[39;49m\r\n      ERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\r\n      p:= namestack[place "]
[402.127306, "o", "of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\r\n      par:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[50;7Hread actuals;\u001b[K\u001b[51;29H\u001b[3m55% L354\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[417.217454, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[417.689493, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[417.720357, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[417.758069, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[417.786247, "o", "\u001b[51;35H\u001b[?25l\u001b[3m49\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[417.81392, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[417.84839, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[417.880161, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[417.914474, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[417.947811, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[417.98197, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.013081, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.043289, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.07489, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.10893, "o", "\u001b[51;35H\u001b[?25l\u001b[3m39\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.142047, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.176787, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.20867, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.236329, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.270782, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.303448, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.336122, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.364606, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.397375, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.424766, "o", "\u001b[51;35H\u001b[?25l\u001b[3m29\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.466643, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.498546, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.532318, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.576995, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.600241, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.630744, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.664217, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.69549, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.730121, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.761555, "o", "\u001b[51;35H\u001b[?25l\u001b[3m19\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.796715, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.828858, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.862607, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[418.896684, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;1H\u001b[34h\u001b[?25h\u001b[34l"]
[419.153225, "o", "\u001b[C"]
[419.644109, "o", "\u001b[C"]
[419.673236, "o", "\u001b[C"]
[419.705786, "o", "\u001b[C"]
[419.735038, "o", "\u001b[C"]
[419.765912, "o", "\u001b[C"]
[419.799829, "o", "\t\b"]
[419.833591, "o", "\t"]
[419.865182, "o", "\u001b[C"]
[419.900779, "o", "\u001b[C"]
[419.93355, "o", "\u001b[C"]
[419.967228, "o", "\u001b[C"]
[419.99957, "o", "\u001b[C"]
[420.027297, "o", "\u001b[C"]
[420.028032, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[11d\u001b[34h\u001b[?25h\u001b[34l"]
[420.029764, "o", "\u001b[52d\u001b[?25ldone\u001b[11;15H\u001b[34h\u001b[?25h\u001b[34l"]
[420.061851, "o", "\u001b[52;1H\u001b[K\u001b[11;16H"]
[420.09598, "o", "\t"]
[420.127459, "o", "\u001b[C"]
[420.163099, "o", "\u001b[C"]
[420.19254, "o", "\u001b[C"]
[420.224615, "o", "\u001b[C"]
[420.256711, "o", "\u001b[C"]
[420.29326, "o", "\u001b[C"]
[420.325685, "o", "\t\b"]
[420.35641, "o", "\t"]
[420.383595, "o", "\u001b[C"]
[420.416523, "o", "\u001b[C"]
[420.450742, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[420.484516, "o", "\u001b[C"]
[420.516851, "o", "\u001b[C"]
[420.550472, "o", "\u001b[C"]
[420.584005, "o", "\u001b[C"]
[420.615482, "o", "\u001b[C"]
[420.649794, "o", "\u001b[C"]
[421.106835, "o", "\t\b"]
[421.596791, "o", "\t"]
[421.629427, "o", "\u001b[C"]
[421.661705, "o", "\u001b[C"]
[421.695634, "o", "\u001b[C"]
[421.728858, "o", "\u001b[C"]
[421.761722, "o", "\u001b[C"]
[421.795528, "o", "\u001b[C"]
[421.830091, "o", "\t\b"]
[421.86195, "o", "\t"]
[421.894586, "o", "\u001b[C"]
[421.92824, "o", "\u001b[C"]
[421.956625, "o", "\u001b[C"]
[421.990182, "o", "\u001b[C"]
[422.024193, "o", "\u001b[C"]
[422.056357, "o", "\u001b[C"]
[422.091027, "o", "\t\b"]
[422.119173, "o", "\t"]
[422.153274, "o", "\u001b[C"]
[422.185867, "o", "\u001b[C"]
[422.219285, "o", "\u001b[C"]
[422.253025, "o", "\u001b[C"]
[422.281605, "o", "\u001b[C"]
[422.316017, "o", "\u001b[C"]
[422.34975, "o", "\t\b"]
[422.378763, "o", "\t"]
[422.412563, "o", "\u001b[C"]
[422.624153, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;34H\u001b[34h\u001b[?25h\u001b[34l"]
[422.988015, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;34H\u001b[34h\u001b[?25h\u001b[34l"]
[423.373747, "o", "\u001b[C"]
[423.568939, "o", "\u001b[?25l\u001b[1@ \u001b[34h\u001b[?25h\u001b[34l"]
[428.441818, "o", "\u001b[2;13H\u001b[?25lfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[3;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[4;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[5;19Hpointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[K\u001b[6;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[7;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[9;7Hauxptr:= freeptr;\u001b[10;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[12;13Hopcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[13;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[K\u001b[15;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;"]
[428.442182, "o", "49m;\u001b[17;13H            bcntr:= \u001b[35m2\u001b[39;49m\u001b[18;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[19;13H      reaffer;\u001b[K\u001b[20;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[21;7H            opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[22;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[23;7H            opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[24;7H            read while(symbol = nlcr symbol ∨\u001b[25;13H                 symbol = semicolon symbol);\u001b[26;13H      lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[27;13H      stow into stack(actualstack,max of actualstack,\u001b[28;13H      symbol);\u001b[K\u001b[29;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[30;7H            ≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[31;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[32;13H           "]
[428.442344, "o", " \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[33;22H     opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[34;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\r\n                          opcntr - \u001b[35m1\u001b[39;49m"]
[428.443315, "o", "\u001b[36;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\r\n                  complete actual parameter\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[39;7H      reaffer;\u001b[K\u001b[40;7H      in actual mode:= false\u001b[41;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[K\u001b[44;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\r\n                  quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[47;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[48;7H            lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[49;7H            bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[50;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b["]
[428.443506, "o", "1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3m47% L307\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[458.462187, "o", "\n\n\u001b[?25lAuto-saving...\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[458.463842, "o", "\u001b[52;15H\u001b[?25ldone\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[461.144041, "o", "\n\n\u001b[K\u001bM\u001bM"]
[461.44591, "o", "\n\n\u001b[?25lMark set\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[461.460672, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲"]
[461.461643, "o", "\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b"]
[461.461772, "o", "[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma m"]
[461.461861, "o", "ode;\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[461.789733, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[461.805131, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[462.090363, "o", "\u001b[52;12H"]
[462.091327, "o", "\u001b[?25lw\u001b[34h\u001b[?25h\u001b[34l"]
[462.093437, "o", "\u001b[?25lh\u001b[34h\u001b[?25h\u001b[34l"]
[462.106719, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[462.114769, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[462.122919, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[462.130991, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[462.131288, "o", "\u001b[H\n"]
[462.17393, "o", "\u001b[1;50r\u001b[2;1H\u001b[27M\u001b[1;52r"]
[462.174267, "o", "\u001b[24;1H\u001b[?25l            else reaffer1:= reaffer;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1\u001b[36m\u001b[45m while(\u001b[39;49mcondition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaffer1\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\u001b[K\r\n\u001b[K\n            ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[K\r\n            smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3026\u001b[39;49m);\u001b[K\r\n                  reaffer1 while(symbol ≠ colon symbol ∧\u001b[K\r\n                  symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49"]
[462.174311, "o", "m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n                  in comma mode:= symbol = open symbol;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\u001b[K\r\n                        (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                   "]
[462.17434, "o", "           \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3002\u001b[39;49m); reaffer1 while\u001b[K\r\n                                    (symbol ≠ colon symbol)\u001b[K\r\n                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[K\u001b[51;29H\u001b[3m 5% L52\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;38H\u001b[34h\u001b[?25h\u001b[34l"]
[462.440258, "o", "\u001b[35;27H\u001b[?25l\u001b[46m while(\u001b[39;49m\u001b[26;38H\u001b[34h\u001b[?25h\u001b[34l"]
[466.154907, "o", "\b\b\b\b\b\b\b\u001b[?25l\u001b[46m while(\u001b[39;49m\u001b[35;27H\u001b[36m\u001b[45m while(\u001b[39;49m\u001b[51d\u001b[3m61\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;34H\u001b[34h\u001b[?25h\u001b[34l"]
[467.097718, "o", "\u001b[2;7H\u001b[?25l                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[3;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[4;31H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3002\u001b[39;49m); reaffer1 while\u001b[5;7H                              (symbol ≠ colon symbol)\u001b[6;7H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[7;13H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[8;13H                        formallist, reaffer);\u001b[K\u001b[9;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - aux> \u001b[35m22\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[10;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m"]
[467.098194, "o", "\u001b[11;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[12;13H                        formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[13;13H                        aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[14;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[15;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent\u001b[16;37H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[17;7H                              \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[18;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3004\u001b[39;49m);\u001b[21;13H   "]
[467.098295, "o", "                           reaffer1 while\u001b[22;13H                              (symbol ≠ colon symbol)\u001b[23;13H                            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[25;39H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3005\u001b[39;49m);\u001b[26;13H                            reaffer1\u001b[36m\u001b[45m while(\u001b[39;49msymbol ≠ comma\u001b[27;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[28;19H                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m"]
[467.100091, "o", "\u001b[30;37H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[31;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3006\u001b[39;49m);\u001b[32;13H                            reaffer1 while(symbol ≠ smaller\u001b[33;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[34;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[35;19H                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[36;19H                      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer1 while(symbol =\u001b[37;13H                              nlcr symbol ∨ symbol = semicolon\u001b[38;13H                              symbol);\u001b[39;13H                              ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\u001b[40;19H                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[41;19H                      \u001b[1m\u001b[36mi"]
[467.100225, "o", "̲f̲\u001b[0m\u001b[39;49m symbol ≠ smaller symbol ∧\u001b[42;19H                      symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t                \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3007\u001b[39;49m);\u001b[K\r\n\t\t\t                  reaffer1 while(symbol ≠\u001b[K\r\n\t\t\t                  smaller symbol ∧ symbol ≠\r\n\t\t\t                  colon symbol)\u001b[47;31H          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[48;37H  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[49;31H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[50;31H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\b\u001b[3m12% L95\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;56H\u001b[34h\u001b[?25h\u001b[34l"]
[467.37259, "o", "\u001b[32;49H\u001b[?25l\u001b[46m while(\u001b[39;49m\n\n\n\n\b\u001b[46m while(\u001b[39;49m\u001b[44;51H\u001b[46m while(\u001b[39;49m\u001b[26;56H\u001b[34h\u001b[?25h\u001b[34l"]
[468.675658, "o", "\b\b\b\b\b\b\b\u001b[?25l\u001b[46m while(\u001b[39;49m\u001b[32;49H\u001b[36m\u001b[45m while(\u001b[39;49m\u001b[51;34H\u001b[3m101\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;56H\u001b[34h\u001b[?25h\u001b[34l"]
[469.16496, "o", "\b\b\b\b\b\b\b\u001b[?25l\u001b[46m while(\u001b[39;49m"]
[469.165294, "o", "\n\n\n\n\b\u001b[36m\u001b[45m while(\u001b[39;49m\u001b[51;36H\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;62H\u001b[34h\u001b[?25h\u001b[34l"]
[471.202005, "o", "\b\b\b\b\b\b\b\u001b[?25l\u001b[46m while(\u001b[39;49m\u001b[44;51H\u001b[36m\u001b[45m while(\u001b[39;49m\u001b[51;35H\u001b[3m13\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;58H\u001b[34h\u001b[?25h\u001b[34l"]
[472.689429, "o", "\u001b[2;25H\u001b[?25l            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[12@\u001b[3;46Hsymbol ≠ greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[4;31H\u001b[8@\u001b[4;59H\u001b[35m6\u001b[39;49m);\u001b[K\u001b[5;37H    reaffer1\u001b[46m while(\u001b[39;49msymbol ≠ smaller\u001b[6;31H          symbol ∧ symbol ≠ colon symbol)\u001b[7;31H        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[8;37H  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;37H    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer1\u001b[46m while(\u001b[39;49msymbol =\u001b[10;37H      nlcr symbol ∨ symbol = semicolon\u001b[11;37H      symbol);\u001b[12;37H      ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\u001b[13;37H    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[14;37H\u001b[4@\u001b[14;51H≠ smaller symbol ∧\u001b[K\u001b[15;37H    symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;37H    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3007\u001b[39;49m);\u001b[17;37H      reaffer1\u001b[46m while(\u001b[39;49m"]
[472.689877, "o", "symbol ≠\u001b[18;37H      smaller symbol ∧ symbol ≠\u001b[K\u001b[19;39H    colon symbol)\u001b[K\r\n\t\t\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;31H\u001b[10P\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[14P\u001b[25;45H\u001b[35m8\u001b[39;49m\u001b[26;31Hreaffer1\u001b[36m\u001b[45m while(\u001b[39;49msymbol ≠ comma symbol ∧\u001b[K\u001b[27;31Hsymbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[K\u001b[28;31Hsymbol)\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[30;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[31;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[32;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[33;13Helse ERROR(true, \u001b[35m3009\u001b[39;49m);\u001b[K\u001b[34;13Hreaffer;\u001b[K\u001b[35;13HERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m);\u001b[K\u001b[36;13Hread while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\r\n\toutaccent: definitionstack[l"]
[472.689992, "o", "cntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[K\u001b[38;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\u001b[42;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[K\u001b[43;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[K\u001b[44;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, j, l, ptr, length;\u001b[K\u001b[45;19H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\u001b[46;19Hinteger array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\u001b[47;19Hptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[48;19Hreaffer;\u001b[K\u001b[49;19Hstore letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[50;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[51;30H\u001b[3m9% L122\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;46H\u001b[34h\u001b[?25h\u001b[34l"]
[472.697377, "o", "\u001b[5;49H\u001b[?25l while(\n\n\n\n\b while(\u001b[17;51H while(\u001b[26;46H\u001b[34h\u001b[?25h\u001b[34l"]
[472.963459, "o", "\u001b[5;49H\u001b[?25l\u001b[46m while(\u001b[39;49m\n\n\n\n\b\u001b[46m while(\u001b[39;49m\u001b[17;51H\u001b[46m while(\u001b[39;49m\u001b[36;17H\u001b[46m while(\u001b[39;49m\u001b[26;46H\u001b[34h\u001b[?25h\u001b[34l"]
[474.165657, "o", "\b\b\b\b\b\b\b\u001b[?25l\u001b[46m while(\u001b[39;49m\u001b[36;17H\u001b[36m\u001b[45m while(\u001b[39;49m\u001b[51;35H\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;24H\u001b[34h\u001b[?25h\u001b[34l"]
[475.086094, "o", "\u001b[2;25H\u001b[?25l\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= true \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word : t8;\u001b[K\u001b[4;31Hs:= word - definitionstack[lcntr] × t8;\u001b[5;31Hbcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[7;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[10;13Hin def mode:= true;\u001b[K\u001b[11;13Hstow into stack(definitionstack,max of defstack,symbol);\u001b[12;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(trne,\u001b[35m3010\u001b[39;49m); skip until(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[14;13Hbegcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[15;13Hdeclarations:= symbol ≠ nlcr symbol ∧ symbol ≠ semicolon\u001b[16;13Hsymbol; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ declarations \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;13H\u001b["]
[475.086449, "o", "1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[18;19Hin def mode:= false;\u001b[K\u001b[19;19Hreaffer;\u001b[K\u001b[20;19Hstow into stack(definitionstack,max of defstack,\u001b[21;19Hsymbol); in def mode:= true\u001b[22;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[24;13Hwithin accents:= false;\u001b[25;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i: = i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read\u001b[36m\u001b[45m while(\u001b[39;49msymbol ≠ accent symbol\u001b[K\u001b[27;28H∧ symbol ≠ smaller symbol);\u001b[K\u001b[28;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m compare parameters;\u001b[29;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within accents:= ¬ within accents;\u001b[31;13H      reaffer;\u001b[32;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m within accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲"]
[475.086747, "o", "n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[35;13H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[36;13H                    \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\u001b[K\r\n\t                        \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;7H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[39;35H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\u001b[40;7H                            ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[41;7H                            \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[42;13H                      empty:= false\u001b[K\u001b[43;13H                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[44;13H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[3"]
[475.086946, "o", "9;49m\u001b[K\u001b[45;19H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[46;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[47;19H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[48;19H            begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[49;19H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m33% L196\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;30H\u001b[34h\u001b[?25h\u001b[34l"]
[478.230145, "o", "\u001b[2;25H\u001b[?25l          \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[K\r\n\t\t\t          empty:= false\u001b[K\u001b[4;31H  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;28H\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[7;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[8;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;31Hbegcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[10;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bin def mode:= false; reaffer;\u001b[15;13Hstow into stack(definitionstack,max of defstack,endmarker);\u001b[16;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[17;13Hnamestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[18;19H                \u001b[1m\u001b[36mt"]
[478.230673, "o", "̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\u001b[19;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= false;\u001b[22;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[23;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[24;13Hread formals;\u001b[K\u001b[25;13Hread block;\u001b[K\u001b[26;13Hread\u001b[36m\u001b[45m while(\u001b[39;49m\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[27;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[28;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[29;13H      read while(symbol = nlcr symbol\u001b[30;13H               ∨ symbol = semicolon symbol);\u001b[31;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[32;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= true\u001b[39;49m\u001b[K\u001b[33;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\u001b[K\r\n\u001b[1m\u001b[36m"]
[478.231044, "o", "e̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[39;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\u001b[40;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[K\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[44;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[45;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[46;19Hbcntr:= bcntr - l\u001b[K\u001b[47;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[49;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker);\u001b[39;49m\u001b[K\u001b[50;13Hfreeptr:= freeptr "]
[478.231655, "o", "+ \u001b[35m1\u001b[39;49m;\n\b\b\b\b\b\b\u001b[3m40% L235\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;24H\u001b[34h\u001b[?25h\u001b[34l"]
[478.496675, "o", "\n\n\n\b\u001b[?25l\u001b[46m while(\u001b[39;49m\u001b[26;24H\u001b[34h\u001b[?25h\u001b[34l"]
[481.68071, "o", "\u001b[52;1H\u001b[K\u001b[26;24H"]
[482.431746, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;24H\u001b[34h\u001b[?25h\u001b[34l"]
[482.432069, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[26;24H\u001b[34h\u001b[?25h\u001b[34l"]
[482.447253, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[482.447561, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi"]
[482.447655, "o", "̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;7H      ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\r\n            lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\r\n            store letgits(namestack,stackptr,max of namestack,reaffer);\r\n            ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumbe\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integ"]
[482.44773, "o", "er i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[483.262795, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[483.278103, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[483.645827, "o", "\u001b[52;11H\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[483.646281, "o", "\u001b[H\n"]
[483.660484, "o", "\t\b\b\u001b[?25l\u001b[1m\u001b[36m\u001b[45mr̲\u001b[0m\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[483.862485, "o", "\u001b[52;12H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[483.862856, "o", "\u001b[2;8H"]
[483.879378, "o", "\b\u001b[?25l\u001b[1m\u001b[36mr̲\u001b[0m\u001b[39;49m\u001b[3;44H\u001b[36m\u001b[45mre\u001b[39;49m\u001b[51;34H\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[3;46H\u001b[34h\u001b[?25h\u001b[34l"]
[484.158504, "o", "\u001b[5;70H\u001b[?25l\u001b[46mre\u001b[39;49m\u001b[7;21H\u001b[46mre\u001b[39;49m\u001b[13;33H\u001b[46mre\u001b[39;49m\u001b[19;26H\u001b[46mre\u001b[39;49m\u001b[24;8H\u001b[46mre\u001b[39;49m\u001b[32;17H\u001b[46mre\u001b[39;49m"]
[484.15899, "o", "\u001b[37;16H\u001b[46mre\u001b[39;49m letgits(namestack,stackptr,max of namestack,\u001b[46mre\u001b[39;49m\u001b[42;11H\u001b[33m\u001b[46mre\u001b[39;49m\n\n\t\u001b[46mre\u001b[39;49m\u001b[48;31H\u001b[46mre\u001b[39;49m\u001b[3;46H\u001b[34h\u001b[?25h\u001b[34l"]
[484.286455, "o", "\u001b[52;13H\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[484.286861, "o", "\u001b[3;46H"]
[484.30504, "o", "\b\b\u001b[?25l\u001b[46mre\u001b[39;49m\u001b[7;21H\u001b[36m\u001b[45mrea\u001b[39;49m"]
[484.305356, "o", "\u001b[51;34H\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[484.314418, "o", "\u001b[3;44H\u001b[?25lre\u001b[5;70Hre\u001b[13;33Hre\u001b[19;26Hre\u001b[24;8Hre\u001b[32;17Hre\u001b[37;16Hre letgits(namestack,stackptr,max of namestack,re\u001b[42;11H\u001b[33mre\u001b[39;49m\n\n\tre\u001b[48;31Hre\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[484.585849, "o", "\u001b[13;33H\u001b[?25l\u001b[46mrea\u001b[39;49m\u001b[32;17H\u001b[46mrea\u001b[39;49m\u001b[37;63H\u001b[46mrea\u001b[39;49m\u001b[42;11H\u001b[33m\u001b[46mrea\u001b[39;49m\n\n\t\u001b[46mrea\u001b[39;49m\u001b[48;31H\u001b[46mrea\u001b[39;49m\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[484.676876, "o", "\u001b[52;14H\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[484.677394, "o", "\u001b[7;24H"]
[484.688287, "o", "\u001b[?25l\u001b[36m\u001b[45md\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[484.697562, "o", "\n\n\n\n\n\n\t\u001b[?25lrea\u001b[32;17Hrea\u001b[37;63Hrea\u001b[42;11H\u001b[33mrea\u001b[39;49m\n\n\trea\u001b[48;31Hrea\u001b[7;25H\u001b[34h\u001b[?25h\u001b[34l"]
[484.963215, "o", "\n\n\n\n\n\n\t\u001b[?25l\u001b[46mread\u001b[39;49m\u001b[32;17H\u001b[46mread\u001b[39;49m\u001b[42;11H\u001b[33m\u001b[46mread\u001b[39;49m\n\n\t\u001b[46mread\u001b[39;49m\u001b[7;25H\u001b[34h\u001b[?25h\u001b[34l"]
[485.738019, "o", "\u001b[52;16H"]
[485.748672, "o", "\u001b[?25lw\u001b[34h\u001b[?25h\u001b[34l"]
[485.75929, "o", "\u001b[?25lh\u001b[34h\u001b[?25h\u001b[34l"]
[485.768095, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[485.777083, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[485.786033, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[485.795112, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[485.795401, "o", "\u001b[7;25H"]
[485.824983, "o", "\u001b[H\n\u001b[?25l                                          ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\r\n                                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ smaller symbol ∧\u001b[K\r\n                                        symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3007\u001b[39;49m);\r\n                                          reaffer1 while(symbol ≠\r\n                                          smaller symbol ∧ symbol ≠\u001b[K\r\n                                          colon symbol)\r\n\t\t\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n                                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n                                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;7H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K"]
[485.825315, "o", "\u001b[14;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[15;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3008\u001b[39;49m);\u001b[16;7H                        reaffer1 while(symbol ≠ comma symbol ∧\u001b[17;7H                        symbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[18;7H                        symbol)\u001b[19;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[22;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[23;7H      else ERROR(true, \u001b[35m3009\u001b[39;49m);\u001b[24;7H      reaffer;\r\n            ERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m);\u001b[26;13H\u001b[36m\u001b[45mread while(\u001b[39;49msymbol = nlcr symbol ∨ symbol = semicolon symbol);\r\n        outaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b["]
[485.825907, "o", "39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[32;7H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[33;7H      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, j, l, ptr, length;\u001b[K\u001b[35;13H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\u001b[36;13H      integer array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\u001b[37;13H      ptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[K\u001b[38;13H      reaffer;\u001b[K\u001b[39;13H      store letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[40;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[41;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length "]
[485.827086, "o", "≠ \u001b[35m0\u001b[39;49m ∧ \u001b[35m7\u001b[39;49m ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[42;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m length = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[44;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[45;7H                        \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m parameter[i - \u001b[35m1\u001b[39;49m] =\u001b[46;13H                  formallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[47;31H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[48;13H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:= \u001b[35m1\u001b[39;49m, \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m l ≠ smaller symbol\u001b[49;13H                        \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\u001b[50;13H                        stow into stack(definitionstack,\u001b[51;29H\u001b[3m21% L132\u001b[0m\u001b[39;49m\u001b[2"]
[485.827352, "o", "3m\u001b[26;24H\u001b[34h\u001b[?25h\u001b[34l"]
[489.92198, "o", "\u001b[2;25H\u001b[?25l\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= true \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word : t8;\u001b[4;31Hs:= word - definitionstack[lcntr] × t8;\u001b[5;31Hbcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[7;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[10;13Hin def mode:= true;\u001b[K\u001b[11;13Hstow into stack(definitionstack,max of defstack,symbol);\u001b[12;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(trne,\u001b[35m3010\u001b[39;49m); skip until(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[14;13Hbegcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[15;13Hdeclarations:= symbol ≠ nlcr symbol ∧ symbol ≠ semicolon\u001b[16;13Hsymbol; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ declarations \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;13H\u001b["]
[489.922113, "o", "1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[18;19Hin def mode:= false;\u001b[19;19Hreaffer;\u001b[K\u001b[20;19Hstow into stack(definitionstack,max of defstack,\u001b[21;13H      symbol); in def mode:= true\u001b[22;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[24;13Hwithin accents:= false;\u001b[25;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i: = i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45mread while(\u001b[39;49msymbol ≠ accent symbol\u001b[K\r\n\t                   ∧ symbol ≠ smaller symbol);\u001b[28;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m compare parameters;\u001b[29;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within accents:= ¬ within accents;\u001b[31;7H            reaffer;\u001b[K\u001b[32;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m within accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K"]
[489.923262, "o", "\u001b[33;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[35;19H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\u001b[36;19H              \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\u001b[37;19H              \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;19H              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[39;19H                \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\u001b[40;19H                ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[41;19H                \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[K\u001b[42;19H                empty:= false\r\n\t\t\t        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;4"]
[489.923318, "o", "9m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[48;31Hbegcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m33% L196\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;30H\u001b[34h\u001b[?25h\u001b[34l"]
[492.291492, "o", "\u001b[2;25H\u001b[?25l          \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[K\r\n\t\t\t          empty:= false\u001b[K\u001b[4;31H  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;28H\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[7;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[8;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;31Hbegcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[10;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bin def mode:= false; reaffer;\u001b[15;13Hstow into stack(definitionstack,max of defstack,endmarker);\u001b[16;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[17;13Hnamestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[18;19H                \u001b[1m\u001b[36mt"]
[492.292359, "o", "̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\u001b[19;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= false;\u001b[22;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[23;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[24;13Hread formals;\u001b[K\u001b[25;13Hread block;\u001b[K\u001b[26;13H\u001b[36m\u001b[45mread while(\u001b[39;49m\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[27;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[28;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[29;13H      read while(symbol = nlcr symbol\u001b[30;13H               ∨ symbol = semicolon symbol);\u001b[31;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[32;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= true\u001b[39;49m\u001b[K\u001b[33;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\u001b[K\r\n\u001b[1m\u001b[36m"]
[492.293148, "o", "e̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[39;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\u001b[40;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[K\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[44;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[45;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[46;19Hbcntr:= bcntr - l\u001b[K\u001b[47;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[49;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker);\u001b[39;49m\u001b[K\u001b[50;13Hfreeptr:= freeptr "]
[492.293826, "o", "+ \u001b[35m1\u001b[39;49m;\n\b\b\b\b\b\b\u001b[3m40% L235\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;24H\u001b[34h\u001b[?25h\u001b[34l"]
[492.564705, "o", "\u001b[29;19H\u001b[?25l\u001b[46mread while(\u001b[39;49m\u001b[26;24H\u001b[34h\u001b[?25h\u001b[34l"]
[494.80957, "o", "\u001b[26;13H\u001b[?25l\u001b[46mread while(\u001b[39;49m\u001b[29;19H\u001b[36m\u001b[45mread while(\u001b[39;49m\u001b[51;36H\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;30H\u001b[34h\u001b[?25h\u001b[34l"]
[500.458797, "o", "\u001b[2;13H\u001b[?25lstow into stack(actualstack,max of actualstack,\u001b[3;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker);\u001b[39;49m\u001b[K\u001b[4;13Hfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[5;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[7;19Hpointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[12;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[13;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[14;13Hopcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[15;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[17;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n"]
[500.459934, "o", "̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m;\u001b[19;7H                  bcntr:= \u001b[35m2\u001b[39;49m\u001b[20;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[21;7H            reaffer;\u001b[K\u001b[22;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[23;7H            opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[24;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[25;13H      opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[26;13H      \u001b[36m\u001b[45mread while(\u001b[39;49msymbol = nlcr symbol ∨\u001b[27;13H                 symbol = semicolon symbol);\u001b[28;13H      lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[29;19Hstow into stack(actualstack,max of actualstack,\u001b[30;19Hsymbol);\u001b[K\u001b[31;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[32;13H      ≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[3"]
[500.460042, "o", "9;49m\u001b[33;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[34;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\r\n                          opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\r\n                          opcntr - \u001b[35m1\u001b[39;49m\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[39;7H            complete actual parameter\u001b[40;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\breaffer;\u001b[42;7H      in actual mode:= false\u001b[K\u001b[43;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[44;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[47;13H\u001b[1m\u001b[36mb̲e̲g"]
[500.460131, "o", "̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[48;13H      quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[49;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H      lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[51;30H\u001b[3m7% L281\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;30H\u001b[34h\u001b[?25h\u001b[34l"]
[501.65788, "o", "\u001b[2;13H\u001b[?25l      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[3;13H      complete actual parameter\u001b[4;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\breaffer;\u001b[K\u001b[6;13Hin actual mode:= false\u001b[7;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[8;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[K\u001b[10;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[11;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[12;7H            quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[13;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[14;13H      lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[15;13H      bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[16;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcnt"]
[501.65871, "o", "r > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[18;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\r\n\t\t\t  quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[20;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[21;19H        quotcntr - \u001b[35m1\u001b[39;49m\u001b[22;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bcomplete actual parameter;\u001b[24;19Hreaffer;\u001b[K\u001b[25;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[26;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45mread while(\u001b[39;49msymbol = nlcr symbol\u001b[27;30H\u001b[6@    ∨ \u001b[28;19H      ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\u001b[29;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[30;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[K\u001b[32;13Helse ERROR(true,\u001b"]
[501.658753, "o", "[35m3025\u001b[39;49m);\u001b[K\u001b[33;13Hin actual mode:= false\u001b[34;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[36;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3016\u001b[39;49m);\u001b[K\u001b[38;13Hauxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[39;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[40;13Hpointerstack[i]:= -\u001b[35m1\u001b[39;49m;\u001b[41;13Hfreeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3001\u001b[39;49m);\u001b[K\u001b[45;7H      read while(symbol ≠ nlcr symbol\u001b[46;13H         ∧ symbol ≠ semicolon symbol)\u001b[K\u001b[47;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b"]
[501.658781, "o", "[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\u001b[51;29H\u001b[3m53% L317\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[501.929479, "o", "\u001b[45;13H\u001b[?25l\u001b[46mread while(\u001b[39;49m\u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[502.428597, "o", "\r\t\t\t\u001b[?25l\u001b[46mread while(\u001b[39;49m\u001b[45;13H\u001b[36m\u001b[45mread while(\u001b[39;49m\u001b[51;35H\u001b[3m36\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;24H\u001b[34h\u001b[?25h\u001b[34l"]
[503.84838, "o", "\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[3;13Helse accent read:= true\u001b[K\u001b[4;7H\u001b[6P\n\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[6;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[7;7H              ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[8;7Hsymbol:= read and buffer;\u001b[K\u001b[9;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer s,k;\u001b[K\u001b[18;7Hk:= \u001b[35m0\u001b[39;49m; compare:= true;\u001b[K"]
[503.848573, "o", "\u001b[19;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[20;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol)\u001b[21;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= false; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[23;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45mread while(\u001b[39;49mcondition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m"]
[503.849864, "o", " \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, first symbol;\u001b[K\u001b[33;7Hfirst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[34;7Hread while(first symbol ≠\u001b[35;7H    (if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[36;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[37;7H    (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\ninteger max,char; integer array stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m inte"]
[503.850524, "o", "ger i;\u001b[43;10Hchar = space symbol ??? spacecntr < \u001b[35m255\u001b[39;49m\u001b[K\u001b[44;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[47;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3018\u001b[39;49m)\u001b[49;13Helse stack[lcntr] := \u001b[35m0\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m79% L494\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;22H\u001b[34h\u001b[?25h\u001b[34l"]
[504.128038, "o", "\u001b[34;7H\u001b[?25l\u001b[46mread while(\u001b[39;49m\u001b[36;42H\u001b[46mread while(\u001b[39;49m\u001b[26;22H\u001b[34h\u001b[?25h\u001b[34l"]
[533.886071, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[K\u001b[26;22H\u001b[34h\u001b[?25h\u001b[34l"]
[534.88888, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49mread while(\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[565.948134, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;22H\u001b[34h\u001b[?25h\u001b[34l"]
[565.98629, "o", "\u001b[2;13H\u001b[?25lelse stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[3;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[5;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[6;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[7;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[8;7H            stow into stack(stack,max,char)\u001b[9;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      stack[lcntr]:= stack[lcntr] × t8 + char;\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      stow into stack(stack,max,o)\u001b[15;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b"]
[565.987374, "o", "[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\ninteger pointer,max,letgit; integer array list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,j,word;\r\n\t\b\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\u001b[23;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= false;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[25;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\r\n            j = j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true \u001b[1m\u001b[36me̲l̲"]
[565.987558, "o", "s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  list[pointer]:= word × t6 + symbol;\u001b[30;19Hword:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\r\n            symbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[K\u001b[36;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true else list[pointer]:= word;\u001b[37;7Hpointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\u001b[38;4H\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m "]
[565.987716, "o", "integer i;\u001b[K\u001b[44;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[45;7H        stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;13Hstackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[47;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m unstack macros;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[50;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3m86% L517   (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[567.553858, "o", "\u001b[52d\u001b[K\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[3;7H      else accent read:= true\u001b[4;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[K\u001b[7;13H        ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[8;7Hsymbol:= read and buffer;\u001b[K\u001b[9;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[10;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer s,k;\u001b[K\u001b[18;7Hk:= \u001b[35m0\u001b[39;49m; compare:= true;"]
[567.554757, "o", "\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= false; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[23;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0"]
[567.554852, "o", "m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, first symbol;\r\n      first symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\r\n      read while(first symbol ≠\r\n          (if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[36;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[37;7H    (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\u001b[38;4H\u001b[33m skip until;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\ninteger max,char; integer array stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[43;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m cha"]
[567.554934, "o", "r = space symbol ??? spacecntr < \u001b[35m255\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[46;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[47;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[48;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3018\u001b[39;49m)\u001b[49;7H      else stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[50;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m79\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[569.085507, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.54716, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.577936, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.607221, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.639358, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.675461, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.707881, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.742054, "o", "\u001b[51;35H\u001b[?25l\u001b[3m09\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.777504, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.807108, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.83736, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.876893, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.911336, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.939224, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[569.972986, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.007491, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.039149, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.072548, "o", "\u001b[51;34H\u001b[?25l\u001b[3m499\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.105546, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.138356, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.176552, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.202459, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.240685, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.26913, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.304135, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.338728, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.374098, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.406186, "o", "\u001b[51;35H\u001b[?25l\u001b[3m89\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.438733, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.472734, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.515773, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.531424, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.570667, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.597229, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.63233, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.65974, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.69361, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.726259, "o", "\u001b[51;35H\u001b[?25l\u001b[3m79\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.759391, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[10;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.793632, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[9;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.82144, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[8;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.854286, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.891656, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[6;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.922838, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[5;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.957809, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[4;1H\u001b[34h\u001b[?25h\u001b[34l"]
[570.987808, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\n\u001b[34h\u001b[?25h\u001b[34l"]
[571.021712, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[571.075877, "o", "\u001b[1;49r\u001b[2;1H\u001b[25L\u001b[1;52r"]
[571.076439, "o", "\u001b[2;1H\u001b[?25linteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\n\u001b[K\n      integer \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer s;\u001b[K\r\n            s:= RESYM1;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\u001b[K\r\n                  prsym(s);\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into buffer(s);\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  line number:= line number + \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;4"]
[571.076686, "o", "9m\u001b[K\r\n            read and buffer:= s\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= false \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            else symbol:= read and buffer;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\u001b[K\u001b[50;1H\u001b[K\u001b[51;30H\u001b[3m6% L469\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[571.112174, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[571.120294, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[571.153638, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[571.188201, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[571.351893, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[571.371652, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[571.78442, "o", "\u001b[52;11H\u001b[?25l?\u001b[34h\u001b[?25h\u001b[34l"]
[571.784849, "o", "\u001b[22;1H"]
[571.823828, "o", "\u001b[2d\u001b[?25l      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol)\u001b[4;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= false; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[6;13Hk:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36m"]
[571.825035, "o", "t̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, first symbol;\u001b[K\u001b[16;7Hfirst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[17;7Hread while(first symbol ≠\u001b[18;7H    (if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[19;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[20;7H    (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\ninteger max,char; integer array stack;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[26;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char "]
[571.825231, "o", "= space symbol \u001b[36m\u001b[45m?\u001b[39;49m?? spacecntr < \u001b[35m255\u001b[39;49m\u001b[27;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[28;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[29;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[31;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3018\u001b[39;49m)\u001b[32;13Helse stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[33;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\bSPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[35;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i"]
[571.825332, "o", "̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\r\n                  stow into stack(stack,max,char)\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[40;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n      stack[lcntr]:= stack[lcntr] × t8 + char;\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[43;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[44;7Hstow into stack(stack,max,o)\u001b[K\u001b[45;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\ninteger pointer,max,letgit; integer array list;\u001b[51;29H\u001b[3m81% L511\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;31H\u001b[34h\u001b[?25h\u001b[34l"]
[571.980048, "o", "\u001b[52;12H\u001b[?25l?\u001b[34h\u001b[?25h\u001b[34l"]
[571.980564, "o", "\u001b[26;31H"]
[572.003494, "o", "\u001b[?25l\u001b[36m\u001b[45m?\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[573.370493, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[573.391266, "o", "\b\b\u001b[?25l??\u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[589.312616, "o", "\u001b[52;1H\u001b[K\u001b[26;32H"]
[589.81672, "o", "\t"]
[590.422314, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[590.618838, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[591.096107, "o", "\b\b\u001b[?25l  \u001b[1P\b\u001b[34h\u001b[?25h\u001b[34l"]
[591.739192, "o", "\b\u001b[?25l &\u001b[1@ \b\u001b[34h\u001b[?25h\u001b[34l"]
[592.159085, "o", "\t\b\u001b[?25l\u001b[1@ \b\u001b[34h\u001b[?25h\u001b[34l"]
[592.583886, "o", "\u001b[?25l\u001b[1P\b\u001b[34h\u001b[?25h\u001b[34l"]
[592.891712, "o", "\b\b\u001b[?25l  \u001b[1P\b\u001b[34h\u001b[?25h\u001b[34l"]
[593.699831, "o", "\b\u001b[?25l &\u001b[1@ \b\u001b[34h\u001b[?25h\u001b[34l"]
[593.810592, "o", "\b\u001b[?25l∧\u001b[34h\u001b[?25h\u001b[34l"]
[594.202518, "o", "\t\b\u001b[?25l\u001b[1@ \b\u001b[34h\u001b[?25h\u001b[34l"]
[594.718936, "o", "\u001b[?25l\u001b[1P\b\u001b[34h\u001b[?25h\u001b[34l"]
[595.603876, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[596.09405, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[596.142624, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[596.521305, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[596.695739, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[596.861404, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[597.819675, "o", "\t\b"]
[598.309393, "o", "\t"]
[598.341368, "o", "\u001b[C"]
[598.376637, "o", "\u001b[C"]
[598.408956, "o", "\u001b[C"]
[598.441504, "o", "\u001b[C"]
[598.474973, "o", "\u001b[C"]
[598.506934, "o", "\u001b[C"]
[598.543244, "o", "\t\b"]
[598.575531, "o", "\t"]
[598.607583, "o", "\u001b[C"]
[598.640686, "o", "\u001b[C"]
[598.674333, "o", "\u001b[C"]
[598.702296, "o", "\u001b[C"]
[598.733978, "o", "\u001b[C"]
[599.057757, "o", "\u001b[C"]
[599.476314, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[614.806467, "o", "\u001b[52d\u001b[?25lMark set\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[614.823225, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\u001b[K\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲"]
[614.82356, "o", "s̲e̲\u001b[0m\u001b[39;49m;\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\r\n      max of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker:= spacecntr:= SPACEcntr:= 150;\u001b[39;49m\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\r\n      freeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r"]
[614.823644, "o", "̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;7H      ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;7H      lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲"]
[614.823719, "o", "e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[615.740891, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[615.741228, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[616.2482, "o", "\t\b"]
[617.537451, "o", "\b"]
[618.286324, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[618.472476, "o", "\t"]
[618.867685, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[619.367003, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[619.663984, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[619.769864, "o", "\u001b[C"]
[619.905559, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[620.526985, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[620.943244, "o", "\r\t\u001b[?25l\u001b[46m(\u001b[39;49mv/ /r)\u001b[34h\u001b[?25h\u001b[34l"]
[621.092541, "o", "\r"]
[621.093098, "o", "\t"]
[621.093519, "o", "\u001b[?25l(v/ /r)0\u001b[34h\u001b[?25h\u001b[34l"]
[621.405505, "o", "\u001b[C"]
[621.609081, "o", "\u001b[C"]
[622.04689, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[622.305939, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[622.478037, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[622.719721, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[622.821812, "o", "\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[622.976987, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[623.846311, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[624.066208, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[624.488183, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[625.537232, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49m (v/ /r)0  v/else/z4)\u001b[34h\u001b[?25h\u001b[34l"]
[625.816549, "o", "\r\t\b\b\u001b[?25l( (v/ /r)0  v/else/z4)0\u001b[34h\u001b[?25h\u001b[34l"]
[626.629915, "o", "\r"]
[626.670905, "o", "\u001b[K\u001b[2d"]
[626.683136, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\r\n\u001b[34h\u001b[?25h\u001b[34l"]
[630.673661, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[631.63785, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[632.037887, "o", "\t"]
[632.216889, "o", "\u001b[C"]
[632.522015, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[632.866471, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[633.183924, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[633.672211, "o", "\u001b[C"]
[634.369565, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[634.999431, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[635.4529, "o", "\b\b\b\b\b\b\u001b[?25l\u001b[46m(\u001b[39;49mv/ /r)\u001b[34h\u001b[?25h\u001b[34l"]
[635.701514, "o", "\b\b\b\b\b\b\b\u001b[?25l(v/ /r)0\u001b[34h\u001b[?25h\u001b[34l"]
[635.969103, "o", "\u001b[C"]
[636.138547, "o", "\u001b[C"]
[636.491826, "o", "\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[636.910268, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[637.385627, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[637.899811, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[638.042878, "o", "\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[638.237215, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[639.431617, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[641.312326, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[641.818537, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[642.325139, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[642.415002, "o", "\u001b[?25l,\u001b[34h\u001b[?25h\u001b[34l"]
[642.614456, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[643.394193, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49m  (v/ /r)0  v/else/z4m,m)\u001b[34h\u001b[?25h\u001b[34l"]
[643.587703, "o", "\r\t\b\b\u001b[?25l(  (v/ /r)0  v/else/z4m,m)0\u001b[34h\u001b[?25h\u001b[34l"]
[644.333187, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[644.679299, "o", "\u001b[?25l-\u001b[34h\u001b[?25h\u001b[34l"]
[644.886695, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[645.57375, "o", "\r"]
[645.5986, "o", "\u001b[K\u001b[2d"]
[645.611514, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\r\n\u001b[34h\u001b[?25h\u001b[34l"]
[664.111633, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[665.387991, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[665.985151, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[666.263466, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[666.651011, "o", "\u001b[?25le̲n̲d̲marker\u001b[34h\u001b[?25h\u001b[34l"]
[668.115604, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[669.221144, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[669.597066, "o", "\u001b[?25l3\u001b[34h\u001b[?25h\u001b[34l"]
[670.448569, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/e̲n̲d̲marker/z3)\u001b[34h\u001b[?25h\u001b[34l"]
[670.655706, "o", "\r\t\b\b\u001b[?25l(f/e̲n̲d̲marker/z3)0\u001b[34h\u001b[?25h\u001b[34l"]
[671.149901, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[671.437587, "o", "\u001b[?25l-\u001b[34h\u001b[?25h\u001b[34l"]
[671.748804, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[672.842159, "o", "\r"]
[672.883897, "o", "\u001b[K\u001b[2d"]
[672.896874, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[672.897187, "o", "\r\n\u001b[34h\u001b[?25h\u001b[34l"]
[674.315906, "o", "\u001b[?25l\u001b[1@0\u001b[34h\u001b[?25h\u001b[34l"]
[675.163785, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[682.835263, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[682.849489, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[683.178638, "o", "\u001b[52;11H\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[683.180135, "o", "\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[683.181629, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[683.185577, "o", "\u001b[?25lk\u001b[34h\u001b[?25h\u001b[34l"]
[683.18956, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[683.193422, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[683.193625, "o", "\u001b[H\n"]
[683.203099, "o", "\u001b[5;30H\u001b[?25l\u001b[36m\u001b[45mmarker\u001b[39;49m"]
[683.203228, "o", "\u001b[51;34H\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[5;36H\u001b[34h\u001b[?25h\u001b[34l"]
[683.468007, "o", "\u001b[21;10H\u001b[?25l\u001b[33m\u001b[46mmarker\u001b[39;49m\u001b[5;36H\u001b[34h\u001b[?25h\u001b[34l"]
[684.203117, "o", "\b\b\b\b\b\b\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[21;10H\u001b[36m\u001b[45mmarker\u001b[39;49m"]
[684.203766, "o", "\u001b[51;34H\u001b[3m20\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;16H\u001b[34h\u001b[?25h\u001b[34l"]
[685.122741, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[21;16H\u001b[34h\u001b[?25h\u001b[34l"]
[685.167075, "o", "\u001b[5;30H\u001b[?25lmarker\u001b[21;10H\u001b[33mmarker\u001b[39;49m\u001b[51;35H\u001b[3m1    (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;16H\u001b[34h\u001b[?25h\u001b[34l"]
[685.61631, "o", "\u001b[52;1H\u001b[K\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;16H\u001b[34h\u001b[?25h\u001b[34l"]
[686.624046, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;16H\u001b[34h\u001b[?25h\u001b[34l"]
[686.851403, "o", "\u001b[51;35H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;16H\u001b[34h\u001b[?25h\u001b[34l"]
[687.382849, "o", "\b"]
[687.871744, "o", "\b"]
[687.901963, "o", "\b"]
[687.93544, "o", "\b"]
[687.968741, "o", "\b"]
[687.999544, "o", "\b"]
[688.032802, "o", "\b"]
[688.069148, "o", "\b"]
[688.097747, "o", "\b"]
[688.130962, "o", "\b"]
[688.164147, "o", "\b"]
[688.197452, "o", "\b"]
[689.503426, "o", "\u001b[C"]
[689.716232, "o", "\u001b[C"]
[690.08123, "o", "\u001b[C"]
[690.944775, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[690.945099, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[691.291466, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[691.644398, "o", "\u001b[?25l3\u001b[34h\u001b[?25h\u001b[34l"]
[691.819328, "o", "\r"]
[691.86654, "o", "\u001b[K\u001b[21;7H"]
[691.880985, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;"]
[691.881263, "o", "\u001b[21;10H\u001b[34h\u001b[?25h\u001b[34l"]
[692.799631, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[21;10H\u001b[34h\u001b[?25h\u001b[34l"]
[692.819133, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[21;10H\u001b[34h\u001b[?25h\u001b[34l"]
[692.995397, "o", "\u001b[52;11H\u001b[?25lmarker\u001b[21;10H\u001b[34h\u001b[?25h\u001b[34l"]
[692.999438, "o", "\u001b[?25l\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[693.266187, "o", "\u001b[5;30H\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[21;16H\u001b[34h\u001b[?25h\u001b[34l"]
[693.538168, "o", "\u001b[H\n\u001b[?25l            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within accents:= ¬ within accents;\u001b[K\r\n                  reaffer;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m within accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\r\n                                \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\u001b[K\r\n                                \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\r\n                                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\r\n              "]
[693.538508, "o", "                    ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[13;7H                            \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[14;7H                            empty:= false\u001b[15;7H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[16;7H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[17;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[18;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[20;7H                        begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[K\u001b[21;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            in def mode:= false; reaffer;\u001b[26;13Hstow into stack(definitionstack,max"]
[693.539091, "o", " of defstack,end\u001b[36m\u001b[45mmarker\u001b[39;49m);\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            namestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[29;7H                            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\u001b[30;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\u001b[32;7Hmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= false;\u001b[33;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[34;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[35;13Hread formals;\u001b[K\u001b[36;13Hread block;\u001b[K\u001b[37;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[38;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[39;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[40;13H      read while(symbol = nlcr symbol\u001b[K\u001b[41;13H               ∨ symbol = semic"]
[693.539272, "o", "olon symbol);\u001b[42;7H            ERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[43;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= true\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[50;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\n\b\u001b[3m38% L224\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;70H\u001b[34h\u001b[?25h\u001b[34l"]
[694.585305, "o", "\u001b[2;13H\u001b[?25lread block;\u001b[K\u001b[3;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[4;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[5;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[6;19Hread while(symbol = nlcr symbol\u001b[K\u001b[7;28H∨ symbol = semicolon symbol);\u001b[K\u001b[8;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[K\u001b[9;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= true\u001b[39;49m\u001b[K\u001b[10;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[16;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\u001b[17;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;"]
[694.585689, "o", "\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[K\u001b[20;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[22;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[23;13H      bcntr:= bcntr - l\u001b[25;13Hstow into stack(actualstack,max of actualstack,\u001b[26;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[33m);\u001b[39;49m\u001b[K\u001b[27;13Hfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[28;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[K\u001b[30;7H            pointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[31;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[32;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\u001b[K"]
[694.585809, "o", "\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[35;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[36;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[37;13Hopcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[38;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[39;19HERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[40;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m;\u001b[42;19H      bcntr:= \u001b[35m2\u001b[39;49m\u001b[K\u001b[43;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[44;7H            reaffer;\u001b[45;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[47;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                "]
[694.585889, "o", "  opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\r\n                  read while(symbol = nlcr symbol ∨\u001b[50;7H                       symbol = semicolon symbol);\u001b[51;29H\u001b[3m44% L258\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;22H\u001b[34h\u001b[?25h\u001b[34l"]
[695.487917, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;22H\u001b[34h\u001b[?25h\u001b[34l"]
[695.537306, "o", "\r\t\t\b\u001b[?25l\u001b[33mmarker\u001b[39;49m"]
[695.537549, "o", "\u001b[51;36H\u001b[3m9   (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;22H\u001b[34h\u001b[?25h\u001b[34l"]
[695.979531, "o", "\u001b[52;1H\u001b[K\u001b[51;35H\u001b[?25l\u001b[3m60\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;22H\u001b[34h\u001b[?25h\u001b[34l"]
[696.013447, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;22H\u001b[34h\u001b[?25h\u001b[34l"]
[696.294651, "o", "\u001b[2;13H\u001b[?25l      read while(symbol = nlcr symbol ∨\u001b[3;13H                 symbol = semicolon symbol);\u001b[4;13H      lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[5;13H      stow into stack(actualstack,max of actualstack,\u001b[6;19Hsymbol);\u001b[K\u001b[7;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[8;19H≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[10;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[11;7H                    opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[13;27Hopcntr - \u001b[35m1\u001b[39;49m\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  complete actual parameter\u001b[16;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[17;"]
[696.295122, "o", "7H      reaffer;\u001b[K\u001b[18;13Hin actual mode:= false\u001b[19;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[20;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[21;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[K\u001b[22;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[24;13H      quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[25;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;13H      lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[27;13H      bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[28;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[29;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[30;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller"]
[696.295335, "o", " symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[31;13H              quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[32;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[33;27Hquotcntr - \u001b[35m1\u001b[39;49m\u001b[34;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[35;7H            complete actual parameter;\u001b[36;7H            reaffer;\u001b[K\u001b[37;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[38;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[39;13H                     ∨ symbol = semicolon symbol);\u001b[40;19H      ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\u001b[41;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[42;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[44;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3025\u001b[39;49m);\u001b[45;13Hin actual mode:= false\u001b"]
[696.29555, "o", "[K\u001b[46;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[48;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[49;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3016\u001b[39;49m);\u001b[K\u001b[50;13Hauxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[51;29H\u001b[3m51% L28\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[696.499204, "o", "\t\b\b\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3016\u001b[39;49m);\u001b[K\u001b[3;13Hauxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[4;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[5;13Hpointerstack[i]:= -\u001b[35m1\u001b[39;49m;\u001b[K\u001b[6;13Hfreeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[7;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3001\u001b[39;49m);\u001b[K\u001b[10;13Hread while(symbol ≠ nlcr symbol\u001b[K\u001b[11;22H∧ symbol ≠ semicolon symbol)\u001b[12;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[17;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[18;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1"]
[696.499763, "o", "m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[20;7H      savestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[21;7H      from actualstack:= false\u001b[22;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store expansion;\u001b[39;49m\u001b[K\r\n\u001b[32m{indents missing above}\u001b[39;49m\u001b[K\u001b[25;7HERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\u001b[26;7Hp:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\u001b[K\u001b[27;7Hpar:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[28;7Hread actuals;\u001b[K\u001b[29;7Hnamestack[place of name+ \u001b[35m1\u001b[39;49m]:= -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[30;7Hsavestack[saveptr + \u001b[35m4\u001b[39;49m]:= place of name;\u001b[K\u001b[31;7Hsavestack[saveptr + \u001b[35m5\u001b[39;49m]:= symbol;\u001b[K\u001b[32;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from macro \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m store expansion \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲"]
[696.500043, "o", "\u001b[0m\u001b[39;49m from macro:= true; stow into buffer(asterisk) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[34;7Hsaveptr:= saveptr + \u001b[35m6\u001b[39;49m; bbcntr:= \u001b[35m1\u001b[39;49m; llcntr:= p;\u001b[35;7Hpr tape symbol:= space symbol;\u001b[K\u001b[36;7Hsymbol:= macro sym;\u001b[K\u001b[37;7Hstow into buffer(symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m expand macro;\u001b[39;49m\u001b[K\r\n\u001b[K\ninteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m macro sym;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,s;\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m restore expansion;\u001b[K\u001b[44;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr:= savestack[saveptr];\u001b[45;13Hllcntr:= savestack[saveptr + \u001b[35m1\u001b[39;49m];\u001b[46;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[47;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= \u001b[35m1\u001b[39;49m; word:= definitionstack[llcntr];\u001b[48;7H      word:= word - word ÷ t8 × t8\u001b[49;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[50;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b"]
[696.500263, "o", "[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;30H\u001b[3m8% L328\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[697.667347, "o", "\t\b\b\u001b[?25l            read while(symbol = nlcr symbol ∨\u001b[3;13H                 symbol = semicolon symbol);\u001b[4;13H      lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[5;13H      stow into stack(actualstack,max of actualstack,\u001b[6;13H      symbol);\u001b[K\u001b[7;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[8;7H            ≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[10;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[11;22H     opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\r\n                          opcntr - \u001b[35m1\u001b[39;49m\u001b[14;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m"]
[697.667667, "o", "\r\n                  complete actual parameter\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[17;7H      reaffer;\u001b[K\u001b[18;7H      in actual mode:= false\u001b[19;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[20;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[K\u001b[22;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\r\n                  quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[25;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;7H            lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[27;7H            bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[28;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0"]
[697.667756, "o", "\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[29;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[30;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[31;7H                    quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[32;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[33;7H                    quotcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[34;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[35;7H            complete actual parameter;\u001b[36;7H            reaffer;\u001b[37;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[39;34H∨ symbol = semicolon symbol);\r\n                        ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[42;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[3"]
[697.667834, "o", "9;49m\u001b[43;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[44;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3025\u001b[39;49m);\u001b[K\u001b[45;13Hin actual mode:= false\u001b[K\u001b[46;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[48;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[49;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3016\u001b[39;49m);\u001b[50;7H      auxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[51;30H\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[697.839714, "o", "\u001b[2;13H\u001b[?25lread block;\u001b[K\u001b[3;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[4;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[5;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[6;19Hread while(symbol = nlcr symbol\u001b[7;19H         ∨ symbol = semicolon symbol);\u001b[K\u001b[8;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[9;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= true\u001b[39;49m\u001b[10;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[16;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[17;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;"]
[697.840841, "o", "\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[20;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[22;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[23;13H      bcntr:= bcntr - l\u001b[K\u001b[24;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[26;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker);\u001b[39;49m\u001b[K\u001b[27;13Hfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[28;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[29;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[30;19Hpointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[K\u001b[31;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[32;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete act"]
[697.841305, "o", "ual parameter;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[35;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[36;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[37;13Hopcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[38;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[39;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[K\u001b[40;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m;\u001b[42;13H            bcntr:= \u001b[35m2\u001b[39;49m\u001b[43;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[44;13H      reaffer;\u001b[K\u001b[45;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[46;7H            opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[47;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;"]
[697.841613, "o", "49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[48;7H            opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[49;7H            read while(symbol = nlcr symbol ∨\u001b[50;13H                 symbol = semicolon symbol);\u001b[51;29H\u001b[3m44% L282\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[698.938142, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[698.938584, "o", "\u001b[26;1H\u001b[?25l                  lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\r\n                  stow into stack(actualstack,max of actualstack,\u001b[K\r\n                  symbol);\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[K\r\n                  ≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[K\r\n                          opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[K\r\n                          opcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  complete actual parameter\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[3"]
[698.938842, "o", "9;49m\u001b[K\r\n            reaffer;\u001b[K\r\n            in actual mode:= false\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[K\r\n                  quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[K\r\n                  bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;30H\u001b[3m7% L283\u001b[0m\u001b[39;49m\u001b[2"]
[698.938986, "o", "3m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[700.378531, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[702.491666, "o", "\u001b[2;13H\u001b[?25l                      empty:= false\u001b[3;13H                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;13H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[5;19H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[6;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[7;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[8;31Hbegcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[9;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[10;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bin def mode:= false; reaffer;\u001b[14;13Hstow into stack(definitionstack,max of defstack,endmarker);\u001b[15;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[16;13Hnamestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of de"]
[702.492832, "o", "fstack\u001b[K\r\n\t\t\t          \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\u001b[18;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= false;\u001b[K\u001b[21;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[23;13Hread formals;\u001b[K\u001b[24;13Hread block;\u001b[K\u001b[25;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[26;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[27;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[28;19Hread while(symbol = nlcr symbol\u001b[29;19H         ∨ symbol = semicolon symbol);\u001b[K\u001b[30;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[31;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= true\u001b[39;49m\u001b[32;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol"]
[702.493035, "o", "\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[38;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[39;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[42;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[44;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[45;13H      bcntr:= bcntr - l\u001b[K\u001b[46;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[48;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker);\u001b[39;49m\u001b[K\u001b[49;13Hfreep"]
[702.493136, "o", "tr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[50;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[51;30H\u001b[3m0% L260\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[703.193098, "o", "\n\n\u001b[?25l\u001b[36mI-search: \u001b[39;49m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[703.213, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[703.379842, "o", "\u001b[52;11H\u001b[?25lmarker\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[703.420722, "o", "\u001b[2;19H\u001b[?25lWord:= Word - Word ÷ t8 × t8\u001b[K\u001b[3;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[4;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[5;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= t8; Word:= actualstack[LLcntr];\u001b[6;19HWord:= Word - Word ÷ t16 × t16\u001b[7;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bfrom actualstack:= true\u001b[K\u001b[9;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bplace of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\u001b[11;7Hpointerptr:= pointerptr + definitionstack[namestack\u001b[12;7H[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m restore expansion;\u001b[39;49m\u001b[K\r\n\u001b[K\nif spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;4"]
[703.421832, "o", "9m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[20;7H            t8J:= t16; Word:= actualstack[LLcntr]\u001b[21;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[22;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[23;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[24;13H      t8J:= t8J / t8\u001b[25;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= Word;\u001b[39;49m\u001b[K\r\n\t\t = end\u001b[36m\u001b[45mmarker\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[27;19Hfrom actualstack:= false; s:= macro sym\u001b[28;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[30;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr: = bbcntr - \u001b[35m1\u001b["]
[703.422863, "o", "39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[31;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[32;7H            word:= definitionstack[llcntr]\u001b[33;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[35;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= word ÷ t8j; word:= word - s × t8j;\r\n                  t8j:= t8j / t8\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[38;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[39;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= true; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[40;19HLLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[41;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from ac"]
[703.423771, "o", "tualstack:= false;\u001b[42;7H            s := macro sym\u001b[43;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[44;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[45;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\u001b[46;13H      freeptr:= pointerptr;\u001b[47;13H      namestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[K\u001b[48;13H      -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[49;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= false; stow into buffer(ksiretsa)\u001b[51;29H\u001b[3m67% L409\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;29H\u001b[34h\u001b[?25h\u001b[34l"]
[703.687841, "o", "\u001b[44;23H\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[705.023854, "o", "\b\b\b\b\b\b\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[44;23H\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[51;35H\u001b[3m27\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;29H\u001b[34h\u001b[?25h\u001b[34l"]
[706.718293, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[44;29H\u001b[34h\u001b[?25h\u001b[34l"]
[706.760297, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\u001b[7;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[8;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[10;7H      savestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[K\u001b[11;7H      from actualstack:= false\u001b[K\u001b[12;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\u001b[K\u001b[13;5H\u001b[2P\r\n\u001b[32m{indents missing above}\u001b[39;49m\r\n      ERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\r\n      p:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\r\n      par:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[18;7Hread actuals;\u001b[K"]
[706.761161, "o", "\u001b[19;7Hnamestack[place of name+ \u001b[35m1\u001b[39;49m]:= -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[20;7Hsavestack[saveptr + \u001b[35m4\u001b[39;49m]:= place of name;\u001b[K\u001b[21;7Hsavestack[saveptr + \u001b[35m5\u001b[39;49m]:= symbol;\u001b[22;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from macro \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m store expansion \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[23;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= true; stow into buffer(asterisk) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[24;7Hsaveptr:= saveptr + \u001b[35m6\u001b[39;49m; bbcntr:= \u001b[35m1\u001b[39;49m; llcntr:= p;\u001b[25;7Hpr tape symbol:= space symbol;\u001b[26;7Hsymbol:= macro sym;\u001b[K\u001b[27;7Hstow into buffer(symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m expand macro;\u001b[39;49m\r\n\u001b[K\ninteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m macro sym;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,s;\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m restore expansion;\u001b[34;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr:= savestack[saveptr];\u001b[35;13Hllcntr:= savestack[saveptr + \u001b"]
[706.761567, "o", "[35m1\u001b[39;49m];\u001b[K\u001b[36;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= \u001b[35m1\u001b[39;49m; word:= definitionstack[llcntr];\u001b[38;13Hword:= word - word ÷ t8 × t8\u001b[39;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[40;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= t8; word:= definitionstack[llcntr];\u001b[K\u001b[42;13Hword:= word - word ÷ t16 × t16\u001b[43;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m] ≠ -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= savestack[saveptr + \u001b[35m2\u001b[39;49m];\u001b[46;13HLLcntr:= savestack[saveptr + \u001b[35m3\u001b[39;49m];\u001b[47;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[48;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= \u001b[35m1\u001b[39;49m; Word:="]
[706.762082, "o", " actualstack[LLcntr];\u001b[49;19HWord:= Word - Word ÷ t8 × t8\u001b[50;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[51;30H\u001b[3m0% L386   (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[706.946976, "o", "\n\n\u001b[K\u001b[2;7H\u001b[?25l                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\r\n                          opcntr - \u001b[35m1\u001b[39;49m\u001b[4;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\r\n                  complete actual parameter\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[7;7H      reaffer;\u001b[K\u001b[8;7H      in actual mode:= false\u001b[9;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[10;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[K\u001b[12;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\r\n                  quotcntr:= \u001b[35m1\u001b[39;49m;"]
[706.947821, "o", "\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;7H            lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[17;7H            bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[18;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[20;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[21;7H                    quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[22;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[23;7H                    quotcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[24;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[25;7H            complete actual parameter;\u001b[26;7H            reaffer;\u001b[27;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ po"]
[706.948512, "o", "int symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[29;34H∨ symbol = semicolon symbol);\r\n                        ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[32;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[33;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[34;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3025\u001b[39;49m);\u001b[K\u001b[35;13Hin actual mode:= false\u001b[K\u001b[36;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[38;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[39;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3016\u001b[39;49m);\u001b[40;7H      auxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[41;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[42;13Hpointerstack["]
[706.948615, "o", "i]:= -\u001b[35m1\u001b[39;49m;\u001b[K\u001b[43;7H      freeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[46;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3001\u001b[39;49m);\u001b[K\u001b[47;13Hread while(symbol ≠ nlcr symbol\u001b[48;13H         ∧ symbol ≠ semicolon symbol)\u001b[K\u001b[49;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m53% L339\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[707.138371, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[6;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[7;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;\r\n\u001b[K\u001b[9;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[10;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[12;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[13;13H      bcntr:= bcntr - l\u001b[K\u001b[14;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[16;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33mmarker);\u001b[39;49m\u001b[K\u001b[17;13H"]
[707.139754, "o", "freeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[18;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[20;19Hpointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[K\u001b[21;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[25;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[27;13Hopcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[28;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[K\u001b[30;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[31;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m;\u001b[32;1"]
[707.139867, "o", "3H            bcntr:= \u001b[35m2\u001b[39;49m\u001b[33;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[34;13H      reaffer;\u001b[K\u001b[35;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[36;7H            opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[37;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[38;7H            opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[39;7H            read while(symbol = nlcr symbol ∨\u001b[40;13H                 symbol = semicolon symbol);\u001b[41;13H      lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[42;13H      stow into stack(actualstack,max of actualstack,\u001b[43;13H      symbol);\u001b[K\u001b[44;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[45;7H            ≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[47;13H            \u001b[1m\u001b[36m"]
[707.139943, "o", "i̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[48;22H     opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[49;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\r\n                          opcntr - \u001b[35m1\u001b[39;49m\u001b[51;29H\u001b[3m45% L292\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[707.446441, "o", "\n\n\u001b[?25l\u001b[36mI-search: \u001b[39;49m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[707.46756, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[707.639104, "o", "\u001b[52;11H\u001b[?25lmarker\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[707.676614, "o", "\u001b[2d\u001b[?25l                  Word:= Word - Word ÷ t8 × t8\u001b[3;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= t8; Word:= actualstack[LLcntr];\u001b[6;7H            Word:= Word - Word ÷ t16 × t16\u001b[7;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bfrom actualstack:= true\u001b[9;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bplace of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\u001b[11;7Hpointerptr:= pointerptr + definitionstack[namestack\u001b[12;7H[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m restore expansion;\u001b[39;49m\u001b[K\r\n\u001b[K\nif spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b"]
[707.677561, "o", "[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;19HLLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[20;19Ht8J:= t16; Word:= actualstack[LLcntr]\r\n\t\t\b\u001b[33m;\u001b[39;49m\u001b[22;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[24;7H            t8J:= t8J / t8\u001b[25;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= Word;\u001b[39;49m\u001b[K\u001b[26;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = end\u001b[36m\u001b[45mmarker\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[27;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= false; s:= macro sym\u001b[28;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[30;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39"]
[707.678103, "o", ";49m bbcntr: = bbcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[31;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[K\u001b[32;19Hword:= definitionstack[llcntr]\u001b[33;13H\u001b[6P\n\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[35;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= word ÷ t8j; word:= word - s × t8j;\u001b[36;19Ht8j:= t8j / t8\u001b[K\u001b[37;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[K\u001b[38;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[39;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= true; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[40;19HLLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[41;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= false;\u001b[42;20H := macro sym\u001b[K\u001b[43;13H\u001b[1m\u001b[36me̲n̲d̲\u001b["]
[707.67816, "o", "0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[44;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[45;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\u001b[46;19Hfreeptr:= pointerptr;\u001b[47;19Hnamestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[K\u001b[48;19H-namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[49;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= false; stow into buffer(ksiretsa)\u001b[51;29H\u001b[3m67% L409\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;29H\u001b[34h\u001b[?25h\u001b[34l"]
[707.946301, "o", "\u001b[44;23H\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[708.963211, "o", "\b\b\b\b\b\b\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[44;23H\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[51;35H\u001b[3m27\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;29H\u001b[34h\u001b[?25h\u001b[34l"]
[709.783505, "o", "\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[3;13H      word:= definitionstack[llcntr]\u001b[4;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= word ÷ t8j; word:= word - s × t8j;\u001b[7;13H      t8j:= t8j / t8\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[K\u001b[9;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[10;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= true; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[11;7H            LLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[12;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= false;"]
[709.784148, "o", "\r\n                  s := macro sym\u001b[14;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = end\u001b[46mmarker\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\u001b[K\r\n                  freeptr:= pointerptr;\u001b[18;7H            namestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[K\u001b[19;13H      -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[K\u001b[20;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= false; stow into buffer(ksiretsa)\u001b[22;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ restore expansion;\u001b[39;49m\u001b[23;13H      s= savestack[saveptr + \u001b[35m5\u001b[39;49m] \u001b[32m{s:= ?}\u001b[39;49m\u001b[K\u001b[24;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[25;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[6P\u001b[26;12H> end\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[27;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= s - \u001b[35m1\u001b["]
[709.784215, "o", "39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nmacro sym: = s\r\n\u001b[32m{lost indent above again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m macro sym;\u001b[39;49m\u001b[K\r\n\u001b[K\ninteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\n\u001b[K\n\t\b\binteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\u001b[37;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer s;\u001b[K\u001b[38;13Hs:= RESYM1;\u001b[K\u001b[39;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[40;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\u001b[41;19Hprsym(s);\u001b[K\u001b[42;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\u001b[44;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into buffer(s);\u001b[45;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[46;19Hline number:= line number + \u001b[35m1\u001b[39;49m\u001b"]
[709.784257, "o", "[47;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bread and buffer:= s\u001b[K\u001b[49;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[51;29H\u001b[3m71% L438\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[709.791529, "o", "\u001b[15d\u001b[?25lmarker\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[710.055866, "o", "\u001b[15d\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[710.760671, "o", "\u001b[2;11H\u001b[?25l(if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[3;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[4;11H(if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\ninteger max,char; integer array stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[K\u001b[11;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K"]
[710.761638, "o", "\u001b[13;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\r\n\t\t\blcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3018\u001b[39;49m)\u001b[16;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[17;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[20;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[21;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;19Hstow into stack(stack,max,char)\u001b[23;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[25;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[26;10Hch"]
[710.762663, "o", "a\u001b[2@r=\u001b[27;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      stow into stack(stack,max,o)\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[C\u001b[32mmore lost indentation above}\u001b[39;49m\u001b[31;5H\u001b[33mstow into stack;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\ninteger pointer,max,letgit; integer array list;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,j,word;\u001b[36;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\u001b[37;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= false;\u001b[38;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[39;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[40;13Hj = j + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[41;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b["]
[710.7629, "o", "36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[42;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[43;13H      list[pointer]:= word × t6 + symbol;\u001b[44;13H      word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[45;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[46;13Hsymbol:= letgit\u001b[K\r\n\u001b[12P\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[50;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true else list[pointer]:= word;\u001b[51;29H\u001b[3m84% L527\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;25H\u001b[34h\u001b[?25h\u001b[34l"]
[711.573149, "o", "\u0007"]
[711.573804, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41mmarker\u001b[39;49m\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[713.061682, "o", "\u001b[52;1H\u001b[K\u001b[26;25H"]
[713.315762, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;25H\u001b[34h\u001b[?25h\u001b[34l"]
[713.316165, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[26;25H\u001b[34h\u001b[?25h\u001b[34l"]
[713.328179, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\u001b[K\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[713.328492, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:=\u001b[12@ spacecntr:=\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲"]
[713.328598, "o", "a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\r\n            ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\r\n            lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;7H      bcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;7H      store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;7H      ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲"]
[713.328672, "o", "e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\n            \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[713.762681, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[713.778255, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[714.147228, "o", "\u001b[52;11H\u001b[?25lmarker\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[714.157043, "o", "\u001b[5;30H\u001b[?25l\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[51;34H\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[5;36H\u001b[34h\u001b[?25h\u001b[34l"]
[714.425277, "o", "\u001b[21;10H\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[5;36H\u001b[34h\u001b[?25h\u001b[34l"]
[715.030982, "o", "\b\b\b\b\b\b\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[21;10H\u001b[36m\u001b[45mmarker\u001b[39;49m"]
[715.031377, "o", "\u001b[51;34H\u001b[3m20\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;16H\u001b[34h\u001b[?25h\u001b[34l"]
[715.567447, "o", "\u001b[H\n\u001b[?25l            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within accents:= ¬ within accents;\u001b[K\r\n                  reaffer;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m within accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\r\n                                \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\u001b[K\r\n                                \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\r\n                                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\r\n              "]
[715.567933, "o", "                    ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[13;7H                            \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[14;7H                            empty:= false\u001b[15;7H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[16;7H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[17;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[18;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[20;7H                        begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[K\u001b[21;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            in def mode:= false; reaffer;\u001b[26;13Hstow into stack(definitionstack,max"]
[715.568112, "o", " of defstack,end\u001b[36m\u001b[45mmarker\u001b[39;49m);\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            namestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[29;7H                            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\u001b[30;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\u001b[32;7Hmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= false;\u001b[33;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[34;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[35;13Hread formals;\u001b[K\u001b[36;13Hread block;\u001b[K\u001b[37;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[38;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[39;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[40;13H      read while(symbol = nlcr symbol\u001b[K\u001b[41;13H               ∨ symbol = semic"]
[715.568324, "o", "olon symbol);\u001b[42;7H            ERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[43;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= true\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[50;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\n\b\u001b[3m38% L224\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;70H\u001b[34h\u001b[?25h\u001b[34l"]
[716.312366, "o", "\u001b[2;13H\u001b[?25lread block;\u001b[K\u001b[3;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[4;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[5;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[6;19Hread while(symbol = nlcr symbol\u001b[K\u001b[7;28H∨ symbol = semicolon symbol);\u001b[K\u001b[8;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[K\u001b[9;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= true\u001b[39;49m\u001b[K\u001b[10;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[16;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\u001b[17;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;"]
[716.312908, "o", "\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[K\u001b[20;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[22;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[23;13H      bcntr:= bcntr - l\u001b[25;13Hstow into stack(actualstack,max of actualstack,\u001b[26;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[33m);\u001b[39;49m\u001b[K\u001b[27;13Hfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[28;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[K\u001b[30;7H            pointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[31;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[32;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\u001b[K"]
[716.313178, "o", "\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[35;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[36;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= true;\u001b[37;13Hopcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[38;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[39;19HERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[40;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m;\u001b[42;19H      bcntr:= \u001b[35m2\u001b[39;49m\u001b[K\u001b[43;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[44;7H            reaffer;\u001b[45;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[47;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                "]
[716.313342, "o", "  opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\r\n                  read while(symbol = nlcr symbol ∨\u001b[50;7H                       symbol = semicolon symbol);\u001b[51;29H\u001b[3m44% L258\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;22H\u001b[34h\u001b[?25h\u001b[34l"]
[717.798916, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;22H\u001b[34h\u001b[?25h\u001b[34l"]
[717.813339, "o", "\r\t\t\b\u001b[?25l\u001b[33mmarker\u001b[39;49m"]
[717.81365, "o", "\u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;21H\u001b[34h\u001b[?25h\u001b[34l"]
[717.995662, "o", "\u001b[52;1H\u001b[K\u001b[26;20H"]
[718.202431, "o", "\b"]
[718.387712, "o", "\b"]
[718.577129, "o", "\b"]
[718.7648, "o", "\b"]
[718.97279, "o", "\b"]
[719.872091, "o", "\b"]
[720.385978, "o", "\b"]
[721.485522, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[721.485859, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[721.824147, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[722.018638, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[722.19873, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[722.412231, "o", "\r"]
[722.461548, "o", "\u001b[K\u001b[26;13H"]
[722.492959, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;13Hendmarker);\r\t\t\b\u001b[34h\u001b[?25h\u001b[34l"]
[724.936505, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[26;16H\u001b[34h\u001b[?25h\u001b[34l"]
[724.95524, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;16H\u001b[34h\u001b[?25h\u001b[34l"]
[725.200317, "o", "\u001b[52;11H\u001b[?25lmarker\u001b[26;16H\u001b[34h\u001b[?25h\u001b[34l"]
[725.209776, "o", "\u001b[?25l\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[725.830487, "o", "\u001b[2;13H\u001b[?25l      Word:= Word - Word ÷ t8 × t8\u001b[3;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\n\b\b\b\b\bBBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[5;19Ht8J:= t8; Word:= actualstack[LLcntr];\u001b[6;19HWord:= Word - Word ÷ t16 × t16\u001b[K\u001b[7;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bfrom actualstack:= true\u001b[K\u001b[9;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bplace of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\r\n\t\bointerptr:= pointerptr + definitionstack[namestack\r\n      [place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m restore expansion;\u001b[39;49m\r\n\u001b[K\nif spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;7H\u001b[1m\u001b[36m"]
[725.831844, "o", "b̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[20;7H            t8J:= t16; Word:= actualstack[LLcntr]\u001b[21;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[24;13H      t8J:= t8J / t8\u001b[25;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= Word;\u001b[39;49m\u001b[K\u001b[26;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = end\u001b[36m\u001b[45mmarker\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[27;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= false; s:= macro sym\u001b[28;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[30;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr: = bbcntr - \u001b[35m1\u001b[39;49m; \u001b["]
[725.831938, "o", "1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[31;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[32;7H            word:= definitionstack[llcntr]\u001b[33;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[34;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[35;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= word ÷ t8j; word:= word - s × t8j;\u001b[36;7H            t8j:= t8j / t8\u001b[K\u001b[37;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[38;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[39;19Hfrom actualstack:= true; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[40;19HLLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[41;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= false;\u001b[K\u001b[42;19Hs := macro sym\u001b[K\u001b[43;13H\u001b[1m\u001b[36me̲n̲d̲\u001b"]
[725.832015, "o", "[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[44;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[45;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\u001b[K\u001b[46;19Hfreeptr:= pointerptr;\u001b[K\u001b[47;19Hnamestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[48;19H-namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[49;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= false; stow into buffer(ksiretsa)\u001b[51;29H\u001b[3m67% L409\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;29H\u001b[34h\u001b[?25h\u001b[34l"]
[726.104523, "o", "\u001b[44;23H\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[726.930646, "o", "\b\b\b\b\b\b\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[44;23H\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[51;35H\u001b[3m27\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;29H\u001b[34h\u001b[?25h\u001b[34l"]
[727.82837, "o", "\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[3;13H      word:= definitionstack[llcntr]\u001b[4;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= word ÷ t8j; word:= word - s × t8j;\u001b[7;13H      t8j:= t8j / t8\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[K\u001b[9;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[10;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= true; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[11;7H            LLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[12;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= false;"]
[727.828641, "o", "\r\n                  s := macro sym\u001b[14;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = end\u001b[46mmarker\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\u001b[K\r\n                  freeptr:= pointerptr;\u001b[18;7H            namestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[K\u001b[19;13H      -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[K\u001b[20;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= false; stow into buffer(ksiretsa)\u001b[22;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ restore expansion;\u001b[39;49m\u001b[23;13H      s= savestack[saveptr + \u001b[35m5\u001b[39;49m] \u001b[32m{s:= ?}\u001b[39;49m\u001b[K\u001b[24;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[25;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[6P\u001b[26;12H> end\u001b[36m\u001b[45mmarker\u001b[39;49m\u001b[27;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= s - \u001b[35m1\u001b["]
[727.828841, "o", "39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nmacro sym: = s\r\n\u001b[32m{lost indent above again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m macro sym;\u001b[39;49m\u001b[K\r\n\u001b[K\ninteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\n\u001b[K\n\t\b\binteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\u001b[37;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer s;\u001b[K\u001b[38;13Hs:= RESYM1;\u001b[K\u001b[39;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[40;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\u001b[41;19Hprsym(s);\u001b[K\u001b[42;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\u001b[44;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into buffer(s);\u001b[45;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[46;19Hline number:= line number + \u001b[35m1\u001b[39;49m\u001b"]
[727.828953, "o", "[47;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bread and buffer:= s\u001b[K\u001b[49;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[51;29H\u001b[3m71% L438\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[727.836679, "o", "\u001b[15d\u001b[?25lmarker\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[728.10139, "o", "\u001b[15d\u001b[?25l\u001b[46mmarker\u001b[39;49m\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[729.629787, "o", "\u001b[2;11H\u001b[?25l(if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[3;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[4;11H(if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\ninteger max,char; integer array stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[K\u001b[11;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K"]
[729.631428, "o", "\u001b[13;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\r\n\t\t\blcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3018\u001b[39;49m)\u001b[16;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[17;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[20;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[21;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;19Hstow into stack(stack,max,char)\u001b[23;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[25;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[26;10Hch"]
[729.631908, "o", "a\u001b[2@r=\u001b[27;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      stow into stack(stack,max,o)\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[C\u001b[32mmore lost indentation above}\u001b[39;49m\u001b[31;5H\u001b[33mstow into stack;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\ninteger pointer,max,letgit; integer array list;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,j,word;\u001b[36;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\u001b[37;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= false;\u001b[38;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[39;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[40;13Hj = j + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[41;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b["]
[729.632207, "o", "36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[42;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[43;13H      list[pointer]:= word × t6 + symbol;\u001b[44;13H      word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[45;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[46;13Hsymbol:= letgit\u001b[K\r\n\u001b[12P\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[50;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= true else list[pointer]:= word;\u001b[51;29H\u001b[3m84% L527\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;25H\u001b[34h\u001b[?25h\u001b[34l"]
[732.260534, "o", "\u0007"]
[732.261046, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41mmarker\u001b[39;49m\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[735.275486, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;25H\u001b[34h\u001b[?25h\u001b[34l"]
[735.293649, "o", "\b\b\b\b\b\b\u001b[?25lmarker\u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[752.74541, "o", "\u001b[52;1H\u001b[K\u001b[26;26H"]
[753.111775, "o", "\u001b[52;1H\u001b[?25lMark set\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[753.127359, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\u001b[K\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[753.127668, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:=\u001b[12@ spacecntr:=\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲"]
[753.127809, "o", "a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\r\n            ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\r\n            lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;7H      bcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;7H      store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;7H      ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲"]
[753.127885, "o", "e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\n            \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[781.220951, "o", "\u001b[52d\u001b[K\u001b[51;34H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\n\u001b[34h\u001b[?25h\u001b[34l"]
[781.712044, "o", "\u001b[51;34H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[4;1H\u001b[34h\u001b[?25h\u001b[34l"]
[781.741271, "o", "\u001b[51;34H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[5;1H\u001b[34h\u001b[?25h\u001b[34l"]
[781.777813, "o", "\u001b[51;34H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[6;1H\u001b[34h\u001b[?25h\u001b[34l"]
[781.809956, "o", "\u001b[51;34H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;1H\u001b[34h\u001b[?25h\u001b[34l"]
[781.840751, "o", "\u001b[51;34H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[8;1H\u001b[34h\u001b[?25h\u001b[34l"]
[781.876467, "o", "\u001b[51;34H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[9;1H\u001b[34h\u001b[?25h\u001b[34l"]
[781.908497, "o", "\u001b[51;34H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[10;1H\u001b[34h\u001b[?25h\u001b[34l"]
[782.918832, "o", "\u001b[51;34H\u001b[?25l\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;1H\u001b[34h\u001b[?25h\u001b[34l"]
[784.452752, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[785.378818, "o", "\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[786.820491, "o", "\u001b[51;35H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.307905, "o", "\u001b[51;35H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.340509, "o", "\u001b[51;35H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.372314, "o", "\u001b[51;35H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.402668, "o", "\u001b[51;35H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.435114, "o", "\u001b[51;35H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.469298, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.50295, "o", "\u001b[51;34H\u001b[?25l\u001b[3m20\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.531636, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.565671, "o", "\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.595783, "o", "\u001b[51;35H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.62743, "o", "\u001b[51;35H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[787.660331, "o", "\u001b[51;35H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[788.102567, "o", "\u001b[51;35H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[788.102987, "o", "\u001b[52d\u001b[?25lAuto-saving...\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[788.103642, "o", "\u001b[52;15H\u001b[?25ldone\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[798.221751, "o", "\u001b[52d\u001b[K\u001b[51;35H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[800.846658, "o", "\u001b[51;35H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[801.645068, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[803.186887, "o", "\u001b[51;34H\u001b[?25l\u001b[3m30\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[803.501236, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[804.300864, "o", "\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[804.718742, "o", "\u001b[51;35H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[806.646059, "o", "\u001b[51;35H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[806.986495, "o", "\u001b[51;35H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[810.010888, "o", "\u001b[51;35H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[810.38184, "o", "\u001b[51;35H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[811.557246, "o", "\u001b[51;35H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[812.369457, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[812.685276, "o", "\u001b[51;34H\u001b[?25l\u001b[3m40\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[812.929068, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[814.627056, "o", "\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[814.821163, "o", "\u001b[51;35H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[826.46259, "o", "\u001b[51;35H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[833.537615, "o", "\u001b[51;35H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[833.844394, "o", "\u001b[51;35H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[834.115392, "o", "\u001b[51;35H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[836.212818, "o", "\u001b[51;35H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[836.903575, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[841.692564, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[841.693157, "o", "\u001b[26;1H\u001b[?25l            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m reaffer1:= reaffer;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaffer1\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\u001b[K\r\n\u001b[K\n            ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[K\r\n            smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3026\u001b[39;49m);\u001b[K\r\n                  reaffer1 while(symbol ≠ colon symbol ∧\u001b[K\r\n                  symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b["]
[841.694061, "o", "33m;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n                  in comma mode:= symbol = open symbol;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\u001b[K\r\n                        (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n        "]
[841.69422, "o", "                      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3002\u001b[39;49m); reaffer1 while\u001b[K\r\n                                    (symbol ≠ colon symbol)\u001b[K\u001b[51;29H\u001b[3m 5% L50\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[853.519617, "o", "\u001b[51;34H\u001b[?25l\u001b[3m49\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[854.179623, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[854.199223, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[854.66899, "o", "\u001b[52;11H\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[854.669378, "o", "\u001b[25;1H"]
[854.689517, "o", "\t\t\t\u001b[?25l\u001b[36m\u001b[45mt\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[854.837457, "o", "\u001b[52;12H\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[854.837899, "o", "\u001b[25;26H"]
[854.859884, "o", "\u001b[?25l\u001b[36m\u001b[45mr\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[855.12837, "o", "\u001b[9;25H\u001b[?25l\u001b[46mtr\u001b[39;49m\r\n\t\t\b\u001b[46mtr\u001b[39;49m:= savel:= namestack[stackp\u001b[46mtr\u001b[39;49m]; ERROR(lcn\u001b[46mtr\u001b[39;49m\r\n\t\t\b\u001b[46mtr\u001b[39;49m:= \u001b[35m2\u001b[39;49m; save:= stackp\u001b[46mtr\u001b[39;49m:= stackp\u001b[46mtr\u001b[39;49m\u001b[12;43H\u001b[46mtr\u001b[39;49m\r\n\t\t\t\u001b[46mtr\u001b[39;49m\u001b[14;29H\u001b[46mtr\u001b[39;49m]:= stackp\u001b[46mtr\u001b[39;49m\u001b[15;29H\u001b[46mtr\u001b[39;49m\u001b[16;19H\u001b[46mtr\u001b[39;49m:= stackp\u001b[46mtr\u001b[39;49m\u001b[20;24H\u001b[46mtr\u001b[39;49m\u001b[33;14H\u001b[46mtr\u001b[39;49m"]
[855.128685, "o", "\n\n\n\t\t\u001b[46mtr\u001b[39;49m\u001b[49;43H\u001b[46mtr\u001b[39;49m\u001b[25;27H\u001b[34h\u001b[?25h\u001b[34l"]
[855.219749, "o", "\u001b[52;13H\u001b[?25lu\u001b[34h\u001b[?25h\u001b[34l"]
[855.220124, "o", "\u001b[25;27H"]
[855.241157, "o", "\u001b[?25l\u001b[36m\u001b[45mu\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[855.250522, "o", "\u001b[9;25H\u001b[?25ltr\r\n\t\t\btr:= savel:= namestack[stackptr]; ERROR(lcntr\r\n\t\t\btr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr\u001b[12;43Htr\r\n\t\t\ttr\u001b[14;29Htr]:= stackptr\u001b[15;29Htr\u001b[16;19Htr:= stackptr"]
[855.251054, "o", "\u001b[20;24Htr\u001b[33;14Htr\n\n\n\t\ttr\u001b[49;43Htr\u001b[25;28H\u001b[34h\u001b[?25h\u001b[34l"]
[855.317971, "o", "\u001b[52;14H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[855.318568, "o", "\u001b[25;28H"]
[855.331924, "o", "\u001b[?25l\u001b[36m\u001b[45me\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[855.610174, "o", "\u001b[36;25H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[49;43H\u001b[46mtrue\u001b[39;49m\u001b[25;29H\u001b[34h\u001b[?25h\u001b[34l"]
[857.489319, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[36;25H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;34H\u001b[3m60\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;29H\u001b[34h\u001b[?25h\u001b[34l"]
[857.868079, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[49;43H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;34H\u001b[3m73\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;47H\u001b[34h\u001b[?25h\u001b[34l"]
[858.802611, "o", "\u001b[H\n\u001b[?25l            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\r\n\u001b[K\u001b[4;7H      ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[5;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[6;13Hsmaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[7;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[46mtrue\u001b[39;49m,\u001b[35m3026\u001b[39;49m);\u001b[8;7H            reaffer1 while(symbol ≠ colon symbol ∧\u001b[9;13H      symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[10;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[13;13H      in comma mode:= symbol = open symbol;\u001b[K\u001b[14;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[15;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[K\u001b[1"]
[858.80378, "o", "6;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\u001b[17;7H                  (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[20;7H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[46mtrue\u001b[39;49m,\u001b[35m3002\u001b[39;49m); reaffer1 while\u001b[21;13H                        (symbol ≠ colon symbol)\u001b[22;31H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[23;13H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[24;13H                        formallist, reaffer);\u001b[25;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - aux> \u001b[35m22\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[26;13H                        \u001b["]
[858.80399, "o", "1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[36m\u001b[45mtrue\u001b[39;49m,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[27;37H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[28;13H                        formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m\u001b[29;13H                        aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[30;19H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[31;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent\u001b[32;37H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[33;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[35;13H       \u001b[44@                   \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon\u001b[36;13H\u001b[28@\u001b[36;53Htrue,\u001b[35m3004\u001b[39;49m\u001b[37;19H\u001b[24@\t\t\t\t"]
[858.804171, "o", "\t\u001b[K\u001b[38;19H                        (symbol ≠ colon\u001b[39;13H                            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[40;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[41;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3005\u001b[39;49m);\u001b[42;19H                      reaffer1 while(symbol ≠ comma\u001b[43;19H                      symbol ∧ symbol ≠ colon symbol)\u001b[44;19H                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\t\t\t            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\t\t\t            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3006\u001b[39;49m);\r\n\t\t\t                reaffer1 while(symbol ≠ smaller\u001b[49;31H          symbol ∧ symbol ≠ colon symbol)\u001b[50;37H  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[51"]
[858.804597, "o", ";30H\u001b[3m9% L79\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;53H\u001b[34h\u001b[?25h\u001b[34l"]
[858.811125, "o", "\u001b[7;25H\u001b[?25ltrue\u001b[20;43Htrue\u001b[26;53H\u001b[34h\u001b[?25h\u001b[34l"]
[859.074741, "o", "\u001b[7;25H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[20;43H\u001b[46mtrue\u001b[39;49m\u001b[31;49H\u001b[46mtrue\u001b[39;49m"]
[859.075143, "o", "\u001b[36d\u001b[46mtrue\u001b[39;49m\u001b[41;51H\u001b[46mtrue\u001b[39;49m\u001b[47;51H\u001b[46mtrue\u001b[39;49m\u001b[26;53H\u001b[34h\u001b[?25h\u001b[34l"]
[859.564481, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[31;49H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;34H\u001b[3m84\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;53H\u001b[34h\u001b[?25h\u001b[34l"]
[859.857281, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[36d\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;35H\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;57H\u001b[34h\u001b[?25h\u001b[34l"]
[860.075697, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[41;51H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;34H\u001b[3m94\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;55H\u001b[34h\u001b[?25h\u001b[34l"]
[860.411337, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[47;51H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;34H\u001b[3m100\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;55H\u001b[34h\u001b[?25h\u001b[34l"]
[860.752336, "o", "\u001b[2;13H\u001b[?25l                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[3;41H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[46mtrue\u001b[39;49m,\u001b[35m3004\u001b[39;49m);\u001b[4;13H                              reaffer1 while\u001b[5;13H                              (symbol ≠ colon symbol)\u001b[K\u001b[6;13H                            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[7;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[8;19H                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[46mtrue\u001b[39;49m,\u001b[35m3005\u001b[39;49m);\u001b[9;19H                      reaffer1 while(symbol ≠ comma\u001b[10;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[11;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[12;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m"]
[860.753191, "o", "\u001b[13;19H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[14;19H                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[46mtrue\u001b[39;49m,\u001b[35m3006\u001b[39;49m);\u001b[K\u001b[15;19H                      reaffer1 while(symbol ≠ smaller\r\n\t\t\t                symbol ∧ symbol ≠ colon symbol)\r\n\t\t\t              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\t\t\t              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t                \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer1 while(symbol =\u001b[20;31H            nlcr symbol ∨ symbol = semicolon\u001b[21;37H      symbol);\u001b[K\u001b[22;31H            ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\u001b[23;31H          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[24;37H    \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ smaller symbol ∧\u001b[25;37H    symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b["]
[860.753684, "o", "39;49m\u001b[26;37H\u001b[4@\u001b[26;53H\u001b[36m\u001b[45mtrue\u001b[39;49m,\u001b[35m3007\u001b[39;49m);\u001b[K\u001b[27;37H      reaffer1 while(symbol ≠\u001b[28;37H      smaller symbol ∧ symbol ≠\u001b[29;37H      colon symbol)\u001b[K\u001b[30;37H    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[31;37H  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\u001b[K\u001b[33;31H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3008\u001b[39;49m);\u001b[K\u001b[36;31Hreaffer1 while(symbol ≠ comma symbol ∧\u001b[37;31Hsymbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[38;31Hsymbol)\u001b[K\r\n\t\t\t\u001b[16P\n\b\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[42;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[43;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(true, \u001b[35m3009\u001b[39;49m);\u001b[K\u001b[44;13Hreaffer;\u001b[K\u001b[45;13HERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b["]
[860.753914, "o", "35m3024\u001b[39;49m);\u001b[46;13Hread while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\r\n\toutaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[K\u001b[48;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\n\u001b[C\u001b[3m16% L112\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;57H\u001b[34h\u001b[?25h\u001b[34l"]
[860.759494, "o", "\u001b[3;53H\u001b[?25ltrue\u001b[8;51Htrue\u001b[14;51Htrue"]
[860.759942, "o", "\u001b[26;57H\u001b[34h\u001b[?25h\u001b[34l"]
[861.024101, "o", "\u001b[3;53H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[8;51H\u001b[46mtrue\u001b[39;49m\u001b[14;51H\u001b[46mtrue\u001b[39;49m"]
[861.024771, "o", "\u001b[35;37H\u001b[46mtrue\u001b[39;49m\u001b[43;24H\u001b[46mtrue\u001b[39;49m\u001b[26;57H\u001b[34h\u001b[?25h\u001b[34l"]
[861.382053, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[35;37H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;35H\u001b[3m21\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;41H\u001b[34h\u001b[?25h\u001b[34l"]
[861.836649, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m"]
[861.837077, "o", "\u001b[43;24H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;36H\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;28H\u001b[34h\u001b[?25h\u001b[34l"]
[862.409361, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[4;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\u001b[5;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\u001b[6;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[7;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[K\u001b[8;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, j, l, ptr, length;\u001b[K\u001b[9;19H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\u001b[10;19Hinteger array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\u001b[11;19Hptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[12;19Hreaffer;\u001b[K\u001b[13;19Hstore letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[K\u001b[14;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[15;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length ≠ \u001b[35m0\u001b[39;49m ∧ \u001b[35m7\u001b[39;49m ¬ found \u001b"]
[862.410738, "o", "[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[16;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m length = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[K\n\b\b\b\b\b\b\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m parameter[i - \u001b[35m1\u001b[39;49m] =\u001b[K\u001b[20;31Hformallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;31H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;31H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:= \u001b[35m1\u001b[39;49m, \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m l ≠ smaller symbol\u001b[K\u001b[23;37H\u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\u001b[24;37Hstow into stack(definitionstack,\u001b[25;37Hmax of defstack,j);\u001b[K\u001b[26;37Hfound:= \u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[K\u001b[27;31H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bptr:= ptr + length+ \u001b[35m1\u001b[39;4"]
[862.410951, "o", "9m\u001b[K\u001b[30;19H\u001b[22P\n\b\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare parameters;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[33;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m delete symbol(s); integer s;\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer word;\u001b[K\u001b[35;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[36;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= definitionstack[lcntr];\u001b[K\r\n\t\t\tlcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m\u001b[K\u001b[38;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[39;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m word:= definitionstack[lcntr];\u001b[40;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= true \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[41;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word : t8;\u001b[42;13H                  s:= word - definitionstack[lcntr] × t8;\u001b[K\u001b[43;13H                  bcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[44;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;4"]
[862.411055, "o", "9m\u001b[45;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b      in def mode:= true;\u001b[49;13Hstow into stack(definitionstack,max of defstack,symbol);\u001b[50;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3m26% L158\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;49H\u001b[34h\u001b[?25h\u001b[34l"]
[862.684792, "o", "\u001b[40;50H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[48;27H\u001b[46mtrue\u001b[39;49m\u001b[26;49H\u001b[34h\u001b[?25h\u001b[34l"]
[863.265618, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[40;50H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;35H\u001b[3m72\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;54H\u001b[34h\u001b[?25h\u001b[34l"]
[863.658571, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[48;27H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;35H\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;31H\u001b[34h\u001b[?25h\u001b[34l"]
[864.322104, "o", "\u001b[2;7H\u001b[?25l            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[3;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= definitionstack[lcntr];\u001b[4;7H                  lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m\u001b[5;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[6;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m word:= definitionstack[lcntr];\u001b[7;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= \u001b[46mtrue\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[8;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word : t8;\u001b[9;19H            s:= word - definitionstack[lcntr] × t8;\u001b[10;19H            bcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[11;19H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[15;13Hin def mode:= \u001b[46mtrue\u001b[39;49m;\u001b[K\u001b[16;13Hstow into stack(definitionstack,m"]
[864.32228, "o", "ax of defstack,symbol);\u001b[17;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(trne,\u001b[35m3010\u001b[39;49m); skip until(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[19;13Hbegcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[20;13Hdeclarations:= symbol ≠ nlcr symbol ∧ symbol ≠ semicolon\u001b[21;13Hsymbol; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ declarations \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[23;19Hin def mode:= false;\u001b[K\u001b[24;19Hreaffer;\u001b[K\u001b[25;19Hstow into stack(definitionstack,max of defstack,\u001b[26;19Hsymbol); in def mode:= \u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[K\u001b[27;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[29;13Hwithin accents:= false;\u001b[K\u001b[30;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i: = i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[31;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol "]
[864.322333, "o", "≠ accent symbol\u001b[32;28H∧ symbol ≠ smaller symbol);\u001b[33;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m compare parameters;\u001b[34;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[35;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within accents:= ¬ within accents;"]
[864.322577, "o", "\u001b[36;19Hreaffer;\u001b[K\u001b[37;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m within accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[39;19H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\r\n\t\t\t        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\u001b[K\u001b[42;31H  \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\b\b  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\r\n\t\t\t          \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\u001b[45;19H                ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[46;13H                      \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[47;35Hempty:= false\u001b[48;13H                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[49;13H                  \u001b[1m\u001b[3"]
[864.322628, "o", "6me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[3m32% L191\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;46H\u001b[34h\u001b[?25h\u001b[34l"]
[864.330271, "o", "\u001b[7;50H\u001b[?25ltrue\u001b[15;27Htrue\u001b[26;46H\u001b[34h\u001b[?25h\u001b[34l"]
[864.603985, "o", "\u001b[7;50H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[15;27H\u001b[46mtrue\u001b[39;49m\u001b[26;46H\u001b[34h\u001b[?25h\u001b[34l"]
[865.287817, "o", "\u001b[2;19H\u001b[?25l      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[3;19H            begcntr:= begcntr + \u001b[35m1\u001b[39;49m\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[5;22H\u001b[K\u001b[6;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bin def mode:= false; reaffer;\u001b[K\u001b[9;13Hstow into stack(definitionstack,max of defstack,endmarker);\u001b[10;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[11;13Hnamestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[12;19H                \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\u001b[13;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\u001b[15;7Hmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= false;\u001b[16;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read "]
[865.289612, "o", "name;\u001b[K\u001b[18;13Hread formals;\u001b[K\u001b[19;13Hread block;\u001b[K\u001b[20;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[21;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;19Hreaffer;\u001b[K\u001b[23;19Hread while(symbol = nlcr symbol\u001b[24;19H         ∨ symbol = semicolon symbol);\u001b[25;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[K\u001b[26;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= \u001b[39;49m\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[K\u001b[27;7H\u001b[6P\npr tape symbol:= space symbol\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\u001b[34;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[37;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0"]
[865.290068, "o", "m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[39;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[40;19Hbcntr:= bcntr - l\u001b[K\u001b[41;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[43;13Hendmarker);\u001b[K\u001b[44;13Hfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[45;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[K\u001b[47;19Hpointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[48;13H\u001b[20P\u001b[49;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\r\n\u001b[K\u001b[51;29H\u001b[3m41% L24\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;34H\u001b[34h\u001b[?25h\u001b[34l"]
[866.131082, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer p,par;\u001b[K\u001b[6;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[7;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;\r\n\u001b[K\u001b[9;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[12;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[13;7H            bcntr:= bcntr - l\u001b[14;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[15;7H      stow into stack(actualstack,max of actualstack,\u001b[16;7H      endmarker);\u001b[K\u001b[17;7H      freeptr:= freeptr +"]
[866.132964, "o", " \u001b[35m1\u001b[39;49m;\u001b[18;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[20;13H      pointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[21;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[K\u001b[25;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[36m\u001b[45mtrue\u001b[39;49m;\u001b[27;7H      opcntr:= \u001b[35m1\u001b[39;49m;\u001b[28;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[30;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[3"]
[866.133524, "o", "5m1\u001b[39;49m;\r\n                        bcntr:= \u001b[35m2\u001b[39;49m\u001b[33;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[34;7H            reaffer;\u001b[K\u001b[35;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[36;7H            opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[37;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[38;13H      opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[39;13H      read while(symbol = nlcr symbol ∨\u001b[K\u001b[40;19H           symbol = semicolon symbol);\u001b[41;13H      lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[42;13H\u001b[6@\n      symbol);\u001b[44;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[45;13H      ≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[47;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m"]
[866.133949, "o", "\u001b[39;49m opcntr:=\u001b[48;13H              opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[49;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[50;27Hopcntr - \u001b[35m1\u001b[39;49m\u001b[51;30H\u001b[3m5% L268\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;34H\u001b[34h\u001b[?25h\u001b[34l"]
[866.59226, "o", "\u001b[1;29r\u001b[28;1H\u001b[1M\u001b[1;52r"]
[866.59244, "o", "\u001b[2;1H\u001b[?25l                  reaffer;\u001b[3;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[6;7H            opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[7;7H            read while(symbol = nlcr symbol ∨\u001b[8;30Hsymbol = semicolon symbol);\u001b[9;7H            lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[10;7H            stow into stack(actualstack,max of actualstack,\u001b[11;13H      symbol);\u001b[K\u001b[12;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[13;19H≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[14;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[15;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[16;13H              opcntr + \u001b[35m1\u001b[39;49m"]
[866.593333, "o", " \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[17;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[18;13H              opcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[19;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bcomplete actual parameter\u001b[K\r\n\t\t\b\u001b[33m;\u001b[39;49m\u001b[22;7H      reaffer;\u001b[K\u001b[23;13Hin actual mode:= false\u001b[24;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[25;19Hsmal\u001b[3@ler\u001b[27;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n\n                  quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[31;19Hlcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[32;19H\u001b[6P\u001b[32;28H;\u001b[33;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[34;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[35;19H\u001b[6@\u001b[35;37Hsmaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[36;19H        quo\u001b[1@t\u001b[37;19H\u001b["]
[866.593433, "o", "6@\u001b[37;37Hgreater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[38;19H        quotcntr - \u001b[35m1\u001b[39;49m\u001b[39;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bcomplete actual parameter;\u001b[K\u001b[41;19Hreaffer;\u001b[K\u001b[42;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[44;19H               ∨ symbol = semicolon symbol);\u001b[K\u001b[45;19H      ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\u001b[46;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[47;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[49;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3025\u001b[39;49m);\u001b[K\u001b[50;13Hin actual mode:= false\u001b[K\n\b\b\b\b\b\b\u001b[3m50% L300\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;34H\u001b[34h\u001b[?25h\u001b[34l"]
[866.8661, "o", "\u001b[49;24H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[26;34H\u001b[34h\u001b[?25h\u001b[34l"]
[867.013164, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[49;24H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;35H\u001b[3m23\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;28H\u001b[34h\u001b[?25h\u001b[34l"]
[867.806126, "o", "\u001b[2;19H\u001b[?25l\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[3;19Hlcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[4;19Hbcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[5;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[6;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[7;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[8;27Hquotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[10;19H        quotcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[11;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bcomplete actual parameter;\u001b[K\u001b[13;19Hreaffer;\u001b[K\u001b[14;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[15;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[K\u001b[16;27H       ∨ symbol ="]
[867.806568, "o", " semicolon symbol);\r\n\t\t\tERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\u001b[K\u001b[18;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;13H\u001b[6P\n\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[21;14H\u001b[1m\u001b[36ml̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[46mtrue\u001b[39;49m,\u001b[35m3025\u001b[39;49m);\u001b[22;13Hin actual mode:= false\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[25;10Hfreeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;13HERROR(\u001b[36m\u001b[45mtrue\u001b[39;49m,\u001b[35m3016\u001b[39;49m);\u001b[K\u001b[27;13Hauxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[28;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;13Hpointerstack[i]:= -\u001b[35m1\u001b[39;49m;\u001b[30;13Hfreeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[K\u001b[31;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m "]
[867.806657, "o", "ERROR(true,\u001b[35m3001\u001b[39;49m);\u001b[K\u001b[34;13Hread while(symbol ≠ nlcr symbol\u001b[35;22H∧ symbol ≠ semicolon symbol)\u001b[K\u001b[36;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\u001b[41;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[42;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[K\u001b[44;13Hsavestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[K\u001b[45;13Hfrom actualstack:= false\u001b[K\u001b[46;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store expansion;\u001b[39;49m\r\n\u001b[32m{indents missing above}\u001b[39;49m\u001b[K\u001b[49;7HERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\u001b[50;7Hp:= namestack[place of name - namestack[place of name] - \u001b[35m"]
[867.806714, "o", "1\u001b[39;49m];\u001b[51;30H\u001b[3m5% L328\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[867.814246, "o", "\u001b[21;24H\u001b[?25ltrue\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[868.078035, "o", "\u001b[21;24H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[33;19H\u001b[46mtrue\u001b[39;49m\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[868.617818, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[33;19H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;35H\u001b[3m35\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;23H\u001b[34h\u001b[?25h\u001b[34l"]
[869.028323, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[46mtrue\u001b[39;49m,\u001b[35m3001\u001b[39;49m);\u001b[K\u001b[3;13Hread while(symbol ≠ nlcr symbol\u001b[K\u001b[4;19H   ∧ symbol ≠ semicolon symbol)\u001b[5;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\u001b[10;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[11;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[12;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcnt\u001b[13;13Hsavestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[14;13Hfrom actualstack:= false\u001b[K\u001b[15;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store expansion;\u001b[39;49m\u001b[K\r\n\u001b[32m{indents missing above}\u001b[39;49m\u001b[K\u001b[18;7HERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);"]
[869.02868, "o", "\u001b[19;7Hp:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\u001b[20;7Hpar:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[21;7Hread actuals;\u001b[K\u001b[22;7Hnamestack[place of name+ \u001b[35m1\u001b[39;49m]:= -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[23;7Hsavestack[saveptr + \u001b[35m4\u001b[39;49m]:= place of name;\u001b[24;7Hsavestack[saveptr + \u001b[35m5\u001b[39;49m]:= symbol;\u001b[25;12Hom macro \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m store expansion \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[26;13Hfrom macro:= \u001b[36m\u001b[45mtrue\u001b[39;49m; stow into buffer(asterisk) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[27;7Hsaveptr:= saveptr + \u001b[35m6\u001b[39;49m; bbcntr:= \u001b[35m1\u001b[39;49m; llcntr:= p;\u001b[28;7Hpr tape symbol:= space symbol;\u001b[K\u001b[29;7Hsymbol:= macro sym;\u001b[K\u001b[30;7Hstow into buffer(symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m expand macro;\u001b[39;49m\r\n\u001b[K\ninteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m macro sym;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,s;\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m restore expansion;\r"]
[869.028802, "o", "\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr:= savestack[saveptr];\u001b[38;13Hllcntr:= savestack[saveptr + \u001b[35m1\u001b[39;49m];\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= \u001b[35m1\u001b[39;49m; word:= definitionstack[llcntr];\u001b[41;7H      word:= word - word ÷ t8 × t8\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[44;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= t8; word:= definitionstack[llcntr];\u001b[45;13Hword:= word - word ÷ t16 × t16\u001b[46;10H\u001b[33m;\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m] ≠ -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= savestack[saveptr + \u001b[35m2\u001b[39;49m];"]
[869.029124, "o", "\u001b[49;7H      LLcntr:= savestack[saveptr + \u001b[35m3\u001b[39;49m];\u001b[K\u001b[50;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\u001b[3m60% L359\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;30H\u001b[34h\u001b[?25h\u001b[34l"]
[869.037096, "o", "\u001b[2;19H\u001b[?25ltrue\u001b[26;30H\u001b[34h\u001b[?25h\u001b[34l"]
[869.298781, "o", "\u001b[2;19H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[26;30H\u001b[34h\u001b[?25h\u001b[34l"]
[869.853478, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,s;\u001b[K\r\n\u001b[K\u001b[4;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m restore expansion;\u001b[K\u001b[5;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr:= savestack[saveptr];\r\n            llcntr:= savestack[saveptr + \u001b[35m1\u001b[39;49m];\u001b[7;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= \u001b[35m1\u001b[39;49m; word:= definitionstack[llcntr];\r\n            word:= word - word ÷ t8 × t8\u001b[10;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\n\b\b\b\b\bbbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;13Ht8j:= t8; word:= definitionstack[llcntr];\u001b[13;13Hword:= word - word ÷ t16 × t16\u001b[K\u001b[14;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m] ≠ -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K"]
[869.854344, "o", "\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= savestack[saveptr + \u001b[35m2\u001b[39;49m];\r\n            LLcntr:= savestack[saveptr + \u001b[35m3\u001b[39;49m];\u001b[18;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= \u001b[35m1\u001b[39;49m; Word:= actualstack[LLcntr];\u001b[K\u001b[20;7H            Word:= Word - Word ÷ t8 × t8\u001b[21;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[22;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= t8; Word:= actualstack[LLcntr];\u001b[24;7H            Word:= Word - Word ÷ t16 × t16\u001b[25;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[26;7H      from actualstack:= \u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[K\u001b[27;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\blace of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\u001b[29;7Hpointerptr:= pointerptr + definitionstack[namestack\u001b[30;7H[place of name - namesta"]
[869.854683, "o", "ck[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\u001b[31;5H\u001b[33mrestore expansion;\u001b[39;49m\r\n\n\u001b[Cf spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[34;7Hspacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[36;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[37;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[38;13H      t8J:= t16; Word:= actualstack[LLcntr]\u001b[39;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[40;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[42;7H            t8J:= t8J / t8\u001b[43;7H      \u001b[1m\u001b[3"]
[869.854789, "o", "6me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= Word;\u001b[39;49m\u001b[44;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[45;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= false; s:= macro sym\u001b[46;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[47;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\n\b\bbbcntr: = bbcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[49;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[50;13H      word:= definitionstack[llcntr]\u001b[51;30H\u001b[3m4% L391\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[870.361181, "o", "\u001b[H\n\u001b[?25lif spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[5;13HBBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[7;7H            t8J:= t16; Word:= actualstack[LLcntr]\u001b[8;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[11;7H            t8J:= t8J / t8"]
[870.362259, "o", "\u001b[12;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= Word;\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= false; s:= macro sym\u001b[15;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[17;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr: = bbcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[18;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[19;13H      word:= definitionstack[llcntr]\u001b[K\u001b[20;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= word ÷ t8j; word:= word - s × t8j;\u001b[23;13H      t8j:= t8j / t8\u001b[K\u001b[24;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b"]
[870.362621, "o", "[39;49m\u001b[K\u001b[25;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[26;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[36m\u001b[45mtrue\u001b[39;49m; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[27;7H            LLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[28;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= false;\u001b[29;7H            s := macro sym\u001b[K\u001b[30;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[32;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\r\n                  freeptr:= pointerptr;\r\n                  namestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[K\r\n                  -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[36;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;13H      \u001b["]
[870.362737, "o", "1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= false; stow into buffer(ksiretsa)\u001b[38;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ restore expansion;\u001b[39;49m\u001b[K\u001b[39;13H      s= savestack[saveptr + \u001b[35m5\u001b[39;49m] \u001b[32m{s:= ?}\u001b[39;49m\u001b[40;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s > endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= s - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nmacro sym: = s\u001b[K\r\n\u001b[32m{lost indent above again}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m macro sym;\u001b[39;49m\r\n\u001b[K\ninteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[51;30H\u001b[3m8% L422\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;42H\u001b[34h\u001b[?25h\u001b[34l"]
[870.880701, "o", "\u001b[H\n\u001b[K\n\u001b[?25l      integer \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer s;\u001b[K\u001b[5;7H      s:= RESYM1;\u001b[K\u001b[6;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[7;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\u001b[8;13H      prsym(s);\u001b[9;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\u001b[10;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[11;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into buffer(s);\u001b[12;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[13;13H      line number:= line number + \u001b[35m1\u001b[39;49m\u001b[14;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bread and buffer:= s\u001b[16;11H\u001b[33mread and buffer;\u001b[39;49m\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b"]
[870.881068, "o", "[36md̲o̲\u001b[0m\u001b[39;49m\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= false \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[21;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\u001b[22;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\u001b[24;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\u001b[25;13H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[26;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[K\u001b[27;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[30;13H        ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m"]
[870.881762, "o", "\u001b[31;7Hsymbol:= read and buffer;\u001b[K\u001b[32;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer s,k;\u001b[41;7Hk:= \u001b[35m0\u001b[39;49m; compare:= true;\u001b[42;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[43;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= false; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0"]
[870.882842, "o", "m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[47;5H\u001b[33mcompare;\u001b[39;49m\u001b[K\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[51;29H\u001b[3m76% L471\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[871.157409, "o", "\u001b[41;24H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[871.366802, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m"]
[871.367196, "o", "\u001b[41;24H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;35H\u001b[3m86\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;28H\u001b[34h\u001b[?25h\u001b[34l"]
[871.844119, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, first symbol;\u001b[11;7Hfirst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[12;7Hread while(first symbol ≠\u001b[K\u001b[13;11H(if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[14;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[15;11H(if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b["]
[871.844603, "o", "39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\u001b[K\r\ninteger max,char; integer array stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[21;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[22;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K\r\n\t\t\bbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[25;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[26;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[36m\u001b[45mtrue\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[27;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[28;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b["]
[871.844856, "o", "33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[30;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[31;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[32;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[33;7H\u001b[12@\u001b[33;35Hstack,max,char)\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      stack[lcntr]:= stack[lcntr] × t8 + char;\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[38;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      stow into stack(stack,max,o)\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow in"]
[871.845289, "o", "to stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\ninteger pointer,max,letgit; integer array list;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,j,word;\u001b[K\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[48;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= false;\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[51;29H\u001b[3m83% L51\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;43H\u001b[34h\u001b[?25h\u001b[34l"]
[872.445935, "o", "\u001b[1;50r\u001b[2;1H\u001b[27M\u001b[1;52r"]
[872.446276, "o", "\u001b[24;1H\u001b[?25l            j = j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[36m\u001b[45mtrue\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  list[pointer]:= word × t6 + symbol;\u001b[K\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[K\r\n            symbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;4"]
[872.44673, "o", "9m full:= true else list[pointer]:= word;\u001b[K\r\n      pointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[K\r\n              stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            stackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m unstack macros;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      \u001b["]
[872.446764, "o", "1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;30H\u001b[3m6% L543\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;52H\u001b[34h\u001b[?25h\u001b[34l"]
[872.723827, "o", "\u001b[34;36H\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[26;52H\u001b[34h\u001b[?25h\u001b[34l"]
[872.827268, "o", "\b\b\b\b\u001b[?25l\u001b[46mtrue\u001b[39;49m\u001b[34;36H\u001b[36m\u001b[45mtrue\u001b[39;49m\u001b[51;35H\u001b[3m51\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;40H\u001b[34h\u001b[?25h\u001b[34l"]
[873.242981, "o", "\u0007"]
[873.243516, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41mtrue\u001b[39;49m\u001b[34;40H\u001b[34h\u001b[?25h\u001b[34l"]
[874.868561, "o", "\u001b[52;1H\u001b[K\u001b[34;40H"]
[875.217451, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[34;40H\u001b[34h\u001b[?25h\u001b[34l"]
[875.21787, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[34;40H\u001b[34h\u001b[?25h\u001b[34l"]
[875.231196, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0"]
[875.231565, "o", "m\u001b[39;49m;\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\r\n      max of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\r\n      max of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\r\n      max of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\r\n      asterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b["]
[875.232032, "o", "39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;7H      ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[35;7H      lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\r\n            bcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\r\n            store letgits(namestack,stackptr,max of namestack,reaffer);\r\n            ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma m"]
[875.232183, "o", "ode;\r\n\u001b[K\n\t\b\b      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(true,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[875.931605, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[875.932082, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[876.44746, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[876.879001, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[877.336036, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[877.527054, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[877.70553, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[878.307136, "o", "\u001b[?25lu\u001b[34h\u001b[?25h\u001b[34l"]
[878.400138, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[879.405442, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[879.666254, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[880.100942, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[880.991196, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/true/z4)\u001b[34h\u001b[?25h\u001b[34l"]
[881.193488, "o", "\r\t\b\b\u001b[?25l(f/true/z4)0\u001b[34h\u001b[?25h\u001b[34l"]
[882.435364, "o", "\r"]
[882.473684, "o", "\u001b[K\u001b[2d"]
[882.498177, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[882.498468, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[1"]
[882.498561, "o", "7;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[883.843134, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[883.857725, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[883.858004, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;5H\u001b[33minitialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b["]
[883.858716, "o", "0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t"]
[883.858887, "o", "̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[885.171852, "o", "\u001b[52d\u001b[K\u001b[2d\u001b[?25l            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m reaffer1:= reaffer;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaffer1\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\u001b[K\r\n\n            ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[13;7H      smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[3"]
[885.172273, "o", "6mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3026\u001b[39;49m);\u001b[15;7H            reaffer1 while(symbol ≠ colon symbol ∧\u001b[16;7H            symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[17;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[18;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[20;7H            in comma mode:= symbol = open symbol;\u001b[21;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[22;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[23;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\u001b[24;7H                  (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10"]
[885.17237, "o", "\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3002\u001b[39;49m); reaffer1 while\r\n                                    (symbol ≠ colon symbol)\u001b[29;7H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[30;7H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[31;37Hformallist, reaffer);\u001b[32;7H                              \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - aux> \u001b[35m22\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[34;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[35;13H                      "]
[885.172444, "o", "  formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[36;13H                        aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[37;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); goto outaccent\u001b[39;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[40;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[41;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[42;7H                                \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3004\u001b[39;49m);\u001b[44;7H                                "]
[885.172521, "o", "    reaffer1 while\u001b[45;7H                                    (symbol ≠ colon symbol)\u001b[46;13H                            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[48;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3005\u001b[39;49m);\u001b[49;13H                            reaffer1 while(symbol ≠ comma\u001b[50;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[51;29H\u001b[3m 8% L48\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[885.45943, "o", "\u001b[2;13H\u001b[?25l                            reaffer1 while(symbol ≠ comma\u001b[3;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[4;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[6;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[7;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3006\u001b[39;49m);\u001b[8;19H                      reaffer1 while(symbol ≠ smaller\u001b[9;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[10;39H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[11;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m"]
[885.45959, "o", "\u001b[12;13H                            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer1 while(symbol =\u001b[K\u001b[13;13H                              nlcr symbol ∨ symbol = semicolon\u001b[14;13H                              symbol);\u001b[15;19H                        ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\u001b[16;19H                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[17;13H                            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ smaller symbol ∧\u001b[18;13H  \u001b[25@                         \u001b[19;13H                            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3007\u001b[39;49m);\u001b[20;19H                        reaffer1 while(symbol ≠\u001b[21;19H                        smaller symbol ∧ symbol ≠\u001b[22;19H                        colon symbol)\r\n\t\t\t                \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b"]
[885.460051, "o", "[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3008\u001b[39;49m);\u001b[K\u001b[29;31Hreaffer1 while(symbol ≠ comma symbol ∧\u001b[30;31Hsymbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[K\u001b[31;31Hsymbol)\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[34;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[35;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[36;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m, \u001b[35m3009\u001b[39;49m);\u001b[K\u001b[37;13Hreaffer;\u001b[K\u001b[38;13HERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m);\u001b[K\u001b[39;13Hread while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\r\n\toutaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e"]
[885.460251, "o", "̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\u001b[44;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\u001b[45;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[K\u001b[47;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, j, l, ptr, length;\u001b[K\u001b[48;19H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\u001b[49;19Hinteger array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\u001b[50;19Hptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[K\u001b[51;29H\u001b[3m18% L95\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[887.962096, "o", "\u001b[2;19H\u001b[?25linteger array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\u001b[3;19Hptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[K\u001b[4;19Hreaffer;\u001b[K\u001b[5;19Hstore letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[6;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m ≠ \u001b[35m22\u001b[39;49m ∧ symbol =\u001b[15P\u001b[7;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length ≠ \u001b[35m0\u001b[39;49m ∧ \u001b[35m7\u001b[39;49m ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[8;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m length = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[K\n\b\b\b\b\b\b\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m parameter[i - \u001b[35m1\u001b[39;49m] =\u001b[K\u001b[12;31Hformallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;31H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;31H\u001b[1m\u001b[3"]
[887.963533, "o", "6mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:= \u001b[35m1\u001b[39;49m, \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m l ≠ smaller symbol\u001b[15;37H\u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[16;37Hstow into stack(definitionstack,\u001b[17;37Hmax of defstack,j);\u001b[K\u001b[18;37Hfound:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;31H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bptr:= ptr + length+ \u001b[35m1\u001b[39;49m\u001b[K\u001b[22;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare parameters;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[25;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m delete symbol(s); integer s;\u001b[26;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer word;\u001b[K\u001b[27;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[28;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= definitionstack[lcntr];\r\n\t\t\tlcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m\u001b[K\u001b[30;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33"]
[887.96389, "o", "m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[31;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m word:= definitionstack[lcntr];\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[33;19H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word : t8;\u001b[34;13H                  s:= word - definitionstack[lcntr] × t8;\u001b[35;13H                  bcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[36;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[38;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t    in def mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[41;7H      stow into stack(definitionstack,max of defstack,symbol);\u001b[42;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[43;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(trne,\u001b[35m3010\u001b[39;49m); skip until(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b"]
[887.964097, "o", "[39;49m\u001b[44;7H      begcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[45;13Hdeclarations:= symbol ≠ nlcr symbol ∧ symbol ≠ semicolon\u001b[46;13Hsymbol; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ declarations \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[47;19Hlcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[48;19Hin def mode:= false;\u001b[49;19Hreaffer;\u001b[K\u001b[50;19Hstow into stack(definitionstack,max of defstack,\u001b[51;29H\u001b[3m28% L142\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[889.107577, "o", "\u001b[2;19H\u001b[?25l                      reaffer1 while(symbol ≠ comma\u001b[3;19H                      symbol ∧ symbol ≠ colon symbol)\u001b[4;19H                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[5;19H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[6;19H                  \u001b[1m\u001b[36mb̲e̲\u001b[0m\u001b[39;49m\u001b[15@\u001b[1m\u001b[36mg̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠\u001b[7;19H                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3006\u001b[39;49m);\u001b[K\u001b[8;19H                      reaffer1 while(symbol ≠ smaller\r\n\t\t\t                symbol ∧ symbol ≠ colon symbol)\r\n\t\t\t              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[11;31H        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[12;31H          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer1 while(symbol =\u001b[13;31H            nlcr symbol ∨ symbol = semicolon\u001b[14;31H            symbol);\u001b[K\u001b[15;"]
[889.108025, "o", "37H      ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\u001b[16;37H    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[17;37H    \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ smaller symbol ∧\u001b[18;37H    symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;31H          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3007\u001b[39;49m);\r\n\t\t\t                  reaffer1 while(symbol ≠\r\n\t\t\t                  smaller symbol ∧ symbol ≠\u001b[22;19H                        colon symbol)\u001b[23;13H                            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[25;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;13H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[27;19H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[28;19H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3008\u001b[39;49m);\u001b[K\r\n\t\t\t      reaffer1 while(symbol ≠ comma symbol ∧\u001b[30;19H            symbol ≠ smaller symbol ∧ s"]
[889.10818, "o", "ymbol ≠ colon\u001b[31;19H            symbol)\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[34;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[35;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[36;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m, \u001b[35m3009\u001b[39;49m);\u001b[37;13Hreaffer;\u001b[K\u001b[38;13HERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m);\u001b[39;13Hread while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\r\n\toutaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[41;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\u001b[44;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[45;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0"]
[889.10831, "o", "m\u001b[39;49m compare parameters;\u001b[K\u001b[47;19Hinteger i, j, l, ptr, length;\u001b[48;19H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\u001b[49;19Hinteger array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[50;19Hptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[K\u001b[51;29H\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[889.327085, "o", "\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[3;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m reaffer1:= reaffer;\u001b[K\r\n\u001b[K\u001b[6;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\u001b[7;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[8;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaffer1\u001b[K\u001b[9;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[11;13Hptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[12;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[13;13Hsmaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K"]
[889.327246, "o", "\u001b[14;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3026\u001b[39;49m);\u001b[K\u001b[15;19Hreaffer1 while(symbol ≠ colon symbol ∧\u001b[K\u001b[16;19Hsymbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[17;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m\u001b[25P\n\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[20;19Hin comma mode:= symbol = open symbol;\u001b[K\u001b[21;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\r\n\t\t\t(Symbol= nlcr symbol ∨ symbol = semicolon symbol);\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m2"]
[889.327339, "o", "3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3002\u001b[39;49m); reaffer1 while\r\n\t\t\t            (symbol ≠ colon symbol)\u001b[29;31H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[30;31H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[31;31H      formallist, reaffer);\r\n\t\t\t            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - aux> \u001b[35m22\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;19H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[34;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[35;13H                        formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[K"]
[889.327431, "o", "\u001b[36;13H                        aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[37;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[38;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); goto outaccent\u001b[39;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\t                            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[41;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[42;39H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[43;7H                                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3004\u001b[39;49m);"]
[889.32792, "o", "\u001b[44;7H                                    reaffer1 while\u001b[45;13H                              (symbol ≠ colon symbol)\u001b[46;13H                            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[47;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[48;19H                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3005\u001b[39;49m);\u001b[49;19H                      reaffer1 while(symbol ≠ comma\u001b[50;19H                      symbol ∧ symbol ≠ colon symbol)\u001b[51;29H\u001b[3m 8% L96 \u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[890.963424, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\u001b[K\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲"]
[890.963886, "o", "e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m for"]
[890.964107, "o", "mallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[K\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r"]
[890.96433, "o", "\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3mTop L49\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[892.850223, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[892.850715, "o", "\u001b[26;1H\u001b[?25l            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m reaffer1:= reaffer;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaffer1\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\u001b[K\r\n\u001b[K\n            ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[K\r\n            smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3026\u001b[39;49m);\u001b[K\r\n                  reaffer1 while(symbol ≠ colon symbol ∧\u001b[K\r\n                  symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[K\r\n            \u001b[1"]
[892.850931, "o", "m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n                  in comma mode:= symbol = open symbol;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\u001b[K\r\n                        (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e"]
[892.851121, "o", "̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3002\u001b[39;49m); reaffer1 while\u001b[K\r\n                                    (symbol ≠ colon symbol)\u001b[K\u001b[51;29H\u001b[3m 5% L50\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[903.459241, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[903.768129, "o", "\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[904.191023, "o", "\u001b[51;35H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[913.097378, "o", "\u001b[51;35H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[913.634747, "o", "\u001b[51;35H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[913.906549, "o", "\u001b[51;35H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[914.153256, "o", "\u001b[51;35H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[915.534725, "o", "\u001b[51;35H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[915.898335, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[924.163843, "o", "\u001b[51;34H\u001b[?25l\u001b[3m60\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[924.462197, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[924.736798, "o", "\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[927.156023, "o", "\u001b[51;35H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[927.545632, "o", "\u001b[51;35H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[930.188915, "o", "\u001b[51;35H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[931.621552, "o", "\u001b[51;35H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[935.472756, "o", "\u001b[51;35H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[937.822338, "o", "\u001b[51;35H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[938.209594, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[938.925862, "o", "\u001b[51;34H\u001b[?25l\u001b[3m70\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[943.386872, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[949.206087, "o", "\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[949.5814, "o", "\u001b[51;35H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[949.961491, "o", "\u001b[51;35H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[950.273944, "o", "\u001b[1;50r\u001b[3;1H\u001b[25M\u001b[1;52r"]
[950.274426, "o", "\u001b[2;1H\u001b[K\u001b[26d\u001b[?25l                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[K\r\n                                    formallist, reaffer);\u001b[K\r\n                                    \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - aux> \u001b[35m22\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[K\r\n                                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                                    formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[K\r\n                                    aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[K\r\n                                    \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERRO"]
[950.274973, "o", "R(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); goto outaccent\u001b[K\r\n                                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                                    \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3004\u001b[39;49m);\u001b[K\r\n                                          reaffer1 while\u001b[K\r\n                                          (symbol ≠ colon symbol)\u001b[K\r\n                                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[3"]
[950.275065, "o", "3m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[K\r\n                                      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3005\u001b[39;49m);\u001b[K\r\n                                        reaffer1 while(symbol ≠ comma\u001b[K\r\n                                        symbol ∧ symbol ≠ colon symbol)\u001b[K\r\n                                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;30H\u001b[3m9% L75\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[959.17723, "o", "\u001b[51;35H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[963.525975, "o", "\u001b[51;35H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[963.853581, "o", "\u001b[51;35H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[973.36246, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[977.107008, "o", "\u001b[51;34H\u001b[?25l\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[977.421448, "o", "\u001b[51;35H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[977.670066, "o", "\u001b[51;35H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[978.782125, "o", "\u001b[51;35H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1008.561109, "o", "\u001b[52d\u001b[?25lMark set\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1008.590287, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[1008.590517, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e"]
[1008.590637, "o", "̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[K\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[K\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b["]
[1008.590709, "o", "K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3mTop L1 \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1008.987149, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1009.005612, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1009.420735, "o", "\u001b[52;11H\u001b[?25lg\u001b[34h\u001b[?25h\u001b[34l"]
[1009.421098, "o", "\u001b[H\n"]
[1009.433564, "o", "\u001b[2;5H\u001b[?25l\u001b[1m\u001b[36m\u001b[45mg̲\u001b[0m\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1009.701788, "o", "\u001b[8;5H\u001b[?25l\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m\u001b[12;3H\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m\u001b[28;3H\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m\u001b[1m\u001b[36mi̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲\u001b[0m\u001b[39;49m\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m\n\n\b\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m\r\n\n\n\t\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m\u001b[1m\u001b[36mi̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲\u001b[0m\u001b[39;49m\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m"]
[1009.70224, "o", "\u001b[37;22H\u001b[46mg\u001b[39;49m\u001b[45;9H\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m\u001b[1m\u001b[36mi̲n̲\u001b[0m\u001b[39;49m inte\u001b[46mg\u001b[39;49m\n\n\n\b\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m\n\n\b\b\b\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m\u001b[1m\u001b[36mi̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[46mg\u001b[39;49m\u001b[2;6H\u001b[34h\u001b[?25h\u001b[34l"]
[1009.736341, "o", "\u001b[52;12H\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[1009.736721, "o", "\u001b[2;6H"]
[1009.7624, "o", "\b\u001b[?25l\u001b[1m\u001b[36m\u001b[46mg̲\u001b[0m\u001b[39;49m"]
[1009.762644, "o", "\u001b[50;37H\u001b[36m\u001b[45mgo\u001b[39;49m\n\b\b\b\b\b\u001b[3m49\u001b[0m\u001b[39;49m\u001b[23m\u001bM\t\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[1009.771863, "o", "\u001b[2;5H\u001b[?25l\u001b[1m\u001b[36mg̲\u001b[0m\u001b[39;49m\u001b[8;5H\u001b[1m\u001b[36mg̲\u001b[0m\u001b[39;49m\u001b[12;3H\u001b[1m\u001b[36mg̲\u001b[0m\u001b[39;49m\u001b[28;3H\u001b[1m\u001b[36mg̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲\u001b[0m\u001b[39;49m\n\n\b\u001b[1m\u001b[36mg̲\u001b[0m\u001b[39;49m\r\n\n\n\t\u001b[1m\u001b[36mg̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲\u001b[0m\u001b[39;49m"]
[1009.772101, "o", "\u001b[37;22Hg\u001b[45;9H\u001b[1m\u001b[36mg̲i̲n̲\u001b[0m\u001b[39;49m integ\n\n\n\b\u001b[1m\u001b[36mg̲\u001b[0m\u001b[39;49m\n\n\b\b\b\u001b[1m\u001b[36mg̲\u001b[0m\u001b[39;49m\u001b[50;39H\u001b[34h\u001b[?25h\u001b[34l"]
[1009.896843, "o", "\u001b[52;13H\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[1009.897175, "o", "\u001b[50;39H"]
[1009.922004, "o", "\u001b[?25l\u001b[36m\u001b[45mt\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1010.126134, "o", "\u001b[52;14H\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[1010.126532, "o", "\u001b[50;40H"]
[1010.153177, "o", "\u001b[?25l\u001b[36m\u001b[45mo\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1011.011396, "o", "\r\n\n\t\t\b"]
[1011.012025, "o", "\u001b[50;41H"]
[1011.030048, "o", "\u001b[?25l\u001b[36m\u001b[45m \u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1011.456133, "o", "\u001b[H\n\u001b[?25l            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3026\u001b[39;49m);\u001b[K\r\n                  reaffer1 while(symbol ≠ colon symbol ∧\u001b[K\r\n                  symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\r\n                  in comma mode:= symbol = open symbol;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[10;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while"]
[1011.456457, "o", "\r\n                        (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\u001b[13;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[14;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[15;7H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3002\u001b[39;49m); reaffer1 while\u001b[16;7H                              (symbol ≠ colon symbol)\u001b[17;7H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[18;7H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[19;7H                              formallist, reaffer);\u001b[20;7H                              \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - aux> \u001b[35m22\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[21;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m"]
[1011.456509, "o", "\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[22;7H                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[23;7H                              formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[24;7H                              aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\r\n                                    \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[26;37H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[36m\u001b[45mgoto \u001b[39;49moutaccent\r\n                                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\r\n                                    \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[29;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;7H                                \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;"]
[1011.45654, "o", "49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3004\u001b[39;49m);\u001b[32;7H                                    reaffer1 while\u001b[33;7H                                    (symbol ≠ colon symbol)\u001b[34;13H                            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[35;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[36;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3005\u001b[39;49m);\u001b[37;13H                            reaffer1 while(symbol ≠ comma\u001b[K\u001b[38;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[39;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[40;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[41;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symb"]
[1011.456582, "o", "ol ≠ greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[42;7H                                \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3006\u001b[39;49m);\r\n\t\t\t\t\treaffer1 while(symbol ≠ smaller\u001b[44;7H                                  symbol ∧ symbol ≠ colon symbol)\u001b[45;7H                                \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[46;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer1 while(symbol =\u001b[48;13H                              nlcr symbol ∨ symbol = semicolon\u001b[49;13H                              symbol);\u001b[50;13H                              ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\u001b[51;29H\u001b[3m10% L84\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;66H\u001b[34h\u001b[?25h\u001b[34l"]
[1012.372352, "o", "\u0007"]
[1012.37275, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41mgoto\u001b[39;49m\u001b[41m \u001b[39;49m\u001b[26;66H\u001b[34h\u001b[?25h\u001b[34l"]
[1014.38275, "o", "\u001b[52;1H\u001b[K\u001b[26;66H"]
[1014.495972, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;66H\u001b[34h\u001b[?25h\u001b[34l"]
[1014.509833, "o", "\b\b\b\b\b\u001b[?25lgoto \u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1015.260971, "o", "\u001b[52d\u001b[K\u001b[26d"]
[1015.419281, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1015.43559, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K"]
[1015.435896, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n"]
[1015.435981, "o", "̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[K"]
[1015.43606, "o", "\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); goto outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;"]
[1015.436153, "o", "29H\u001b[3mTop L1 \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1016.182509, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[1016.18282, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1016.687795, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[1017.03373, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1017.400577, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1017.751386, "o", "\u001b[?25lg\u001b[34h\u001b[?25h\u001b[34l"]
[1017.980104, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[1018.099507, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[1018.249509, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[1018.652661, "o", "\u001b[C"]
[1019.590026, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1019.869558, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[1020.342119, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[1021.056316, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/goto /z4)\u001b[34h\u001b[?25h\u001b[34l"]
[1021.488569, "o", "\r\t\b\b\u001b[?25l(f/goto /z4)0\u001b[34h\u001b[?25h\u001b[34l"]
[1022.252474, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[1022.696612, "o", "\u001b[?25l-\u001b[34h\u001b[?25h\u001b[34l"]
[1023.537575, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[1026.32701, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1026.670072, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1028.121491, "o", "\u001b[?25l,\u001b[34h\u001b[?25h\u001b[34l"]
[1029.159971, "o", "\u001b[?25l3\u001b[34h\u001b[?25h\u001b[34l"]
[1029.522679, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[1029.704984, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[1029.879664, "o", "\u001b[?25l2\u001b[34h\u001b[?25h\u001b[34l"]
[1030.278207, "o", "\u001b[?25l) [No matching parenthesis found]\u001b[52;31H\u001b[34h\u001b[?25h\u001b[34l"]
[1031.193399, "o", "\r"]
[1031.225302, "o", "\u001b[K\u001b[2d"]
[1031.257108, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[1031.257519, "o", "\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m reaffer1:= reaffer;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaffer1\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[10;13Hptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\r\n            smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3026\u001b[39;49m)"]
[1031.257651, "o", ";\u001b[K\u001b[14;7H            reaffer1 while(symbol ≠ colon symbol ∧\u001b[15;7H            symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[16;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[17;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[18;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[19;7H            in comma mode:= symbol = open symbol;\u001b[20;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[21;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[K\u001b[22;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\u001b[23;7H                  (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\u001b[24;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n  "]
[1031.25788, "o", "                      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[26;31H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3002\u001b[39;49m); reaffer1 while\r\n                                    (symbol ≠ colon symbol)\r\n                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[29;7H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[30;7H                              formallist, reaffer);\u001b[31;37H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - aux> \u001b[35m22\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[32;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[33;7H                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[34;13H                        formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[35;13H                        aux:="]
[1031.258161, "o", " ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[36;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[37;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent\u001b[38;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[39;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[40;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[41;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[42;7H                                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3004\u001b[39;49m);\u001b[43;43Hreaffer1 while\u001b[44;7H                                    (s"]
[1031.25837, "o", "ymbol ≠ colon symbol)\u001b[45;7H                                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[46;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[47;39H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3005\u001b[39;49m);\u001b[48;13H                            reaffer1 while(symbol ≠ comma\u001b[49;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[50;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m 8% L73\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;47H\u001b[34h\u001b[?25h\u001b[34l"]
[1032.837962, "o", "\u001b[2;13H\u001b[?25l                            symbol ∧ symbol ≠ colon symbol)\u001b[3;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[5;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[6;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3006\u001b[39;49m);\u001b[7;19H                      reaffer1 while(symbol ≠ smaller\u001b[8;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[9;39H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[10;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[11;13H                            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer1 while(symbol =\u001b[K"]
[1032.838125, "o", "\u001b[12;13H                              nlcr symbol ∨ symbol = semicolon\u001b[13;13H                              symbol);\u001b[14;19H                        ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\u001b[15;19H                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[16;13H                            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ smaller symbol ∧\u001b[17;13H  \u001b[25@                         \u001b[18;13H                            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3007\u001b[39;49m);\u001b[19;19H                        reaffer1 while(symbol ≠\u001b[20;19H                        smaller symbol ∧ symbol ≠\u001b[21;19H                        colon symbol)\r\n\t\t\t                \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt"]
[1032.838583, "o", "̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3008\u001b[39;49m);\u001b[K\u001b[28;31Hreaffer1 while(symbol ≠ comma symbol ∧\u001b[29;31Hsymbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[K\u001b[30;31Hsymbol)\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[32;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[34;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[35;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m, \u001b[35m3009\u001b[39;49m);\u001b[K\u001b[36;13Hreaffer;\u001b[K\u001b[37;13HERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m);\u001b[K\u001b[38;13Hread while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\r\n\toutaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[K\u001b[40;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, beg"]
[1032.838674, "o", "cntr;\u001b[K\u001b[44;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[K\u001b[45;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, j, l, ptr, length;\u001b[K\u001b[47;19H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\u001b[48;19Hinteger array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\u001b[49;19Hptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[K\u001b[50;19Hreaffer;\u001b[K\u001b[51;29H\u001b[3m18% L96\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1032.839298, "o", "\u001b[52d\u001b[?25lAuto-saving...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1032.839507, "o", "\u001b[52;15H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1034.159812, "o", "\u001b[52d\u001b[K\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[3;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m reaffer1:= reaffer;\u001b[K\r\n\u001b[K\u001b[5;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\u001b[7;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaffer1\u001b[K\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[10;13Hptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[11;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[12;13Hsmaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3026\u001b[39;49m);\u001b[K\u001b[14;19Hreaffer1 while(symbol ≠ colon "]
[1034.161163, "o", "symbol ∧\u001b[K\u001b[15;19Hsymbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b[16;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m\u001b[25P\n\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[19;19Hin comma mode:= symbol = open symbol;\u001b[K\u001b[20;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\r\n\t\t\t(Symbol= nlcr symbol ∨ symbol = semicolon symbol);\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3002\u001b[39;49"]
[1034.161623, "o", "m); reaffer1 while\r\n\t\t\t            (symbol ≠ colon symbol)\u001b[28;31H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[29;31H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[30;31H      formallist, reaffer);\r\n\t\t\t            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - aux> \u001b[35m22\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[32;19H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[33;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[34;13H                        formallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[35;13H                        aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[36;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[37;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent\u001b[38;13H       "]
[1034.163262, "o", "                 \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\t                            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[40;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[41;39H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[42;7H                                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3004\u001b[39;49m);\u001b[43;7H                                    reaffer1 while\u001b[44;13H                              (symbol ≠ colon symbol)\u001b[45;13H                            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[46;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[47;19H                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[3"]
[1034.163562, "o", "5m3005\u001b[39;49m);\u001b[48;19H                      reaffer1 while(symbol ≠ comma\u001b[49;19H                      symbol ∧ symbol ≠ colon symbol)\u001b[50;19H                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3m \u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1036.283679, "o", "\u001b[51;35H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1036.658995, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1036.65933, "o", "\u001b[26;1H\u001b[?25l                                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3006\u001b[39;49m);\u001b[K\r\n                                        reaffer1 while(symbol ≠ smaller\u001b[K\r\n                                        symbol ∧ symbol ≠ colon symbol)\u001b[K\r\n                                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                                      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer1 while(symbol =\u001b[K\r\n                                          nlcr symbol ∨ symbol = semicolon\u001b[K\r\n"]
[1036.659825, "o", "                                          symbol);\u001b[K\r\n                                          ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\u001b[K\r\n                                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ smaller symbol ∧\u001b[K\r\n                                        symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3007\u001b[39;49m);\u001b[K\r\n                                          reaffer1 while(symbol ≠\u001b[K\r\n                                          smaller symbol ∧ symbol ≠\u001b[K\r\n                                          colon symbol)\u001b[K\r\n                                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n               "]
[1036.659859, "o", "               \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3008\u001b[39;49m);\u001b[K\r\n                              reaffer1 while(symbol ≠ comma symbol ∧\u001b[K\u001b[51;29H\u001b[3m13% L98\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1085.418609, "o", "\u001b[C"]
[1086.116404, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1086.604035, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1086.637567, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1086.670448, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1086.700263, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1086.732757, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1087.41169, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1087.584794, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1087.738867, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1087.91858, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1088.115549, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1088.645483, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1089.766303, "o", "\u001b[C"]
[1090.254133, "o", "\u001b[C"]
[1090.286336, "o", "\u001b[C"]
[1090.323517, "o", "\u001b[C"]
[1090.356393, "o", "\u001b[C"]
[1090.389352, "o", "\t\b"]
[1090.423965, "o", "\t"]
[1090.456509, "o", "\u001b[C"]
[1090.483813, "o", "\u001b[C"]
[1090.517175, "o", "\u001b[C"]
[1090.550164, "o", "\u001b[C"]
[1090.583414, "o", "\u001b[C"]
[1090.617242, "o", "\u001b[C"]
[1090.646802, "o", "\t\b"]
[1090.678517, "o", "\t"]
[1090.707258, "o", "\u001b[C"]
[1090.742206, "o", "\u001b[C"]
[1090.776177, "o", "\u001b[C"]
[1090.808295, "o", "\u001b[C"]
[1090.843292, "o", "\u001b[C"]
[1090.874638, "o", "\u001b[C"]
[1090.908492, "o", "\t\b"]
[1090.942824, "o", "\t"]
[1090.971673, "o", "\u001b[C"]
[1091.006936, "o", "\u001b[C"]
[1091.038311, "o", "\u001b[C"]
[1091.069812, "o", "\u001b[C"]
[1091.101851, "o", "\u001b[C"]
[1091.134098, "o", "\u001b[C"]
[1091.168271, "o", "\t\b"]
[1091.201111, "o", "\t"]
[1091.798017, "o", "\u001b[51;35H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1094.123078, "o", "\u001b[51;34H\u001b[?25l\u001b[3m100\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1094.984235, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1095.550021, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1096.436778, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1096.810003, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1098.441689, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1098.986718, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1100.728395, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1101.040316, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1101.524668, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1102.114968, "o", "\u001b[51;35H\u001b[?25l\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1102.42819, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1102.753702, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1103.469407, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1105.248734, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1105.964753, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1106.800993, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1107.732072, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1108.144093, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1108.552428, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1109.132034, "o", "\u001b[51;35H\u001b[?25l\u001b[3m20\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1111.401695, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1112.348877, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001bM\b\b\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[1114.568033, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1114.568496, "o", "\u001b[26;1H\u001b[?25l                              symbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[K\r\n                              symbol)\u001b[K\r\n                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m, \u001b[35m3009\u001b[39;49m);\u001b[K\r\n            reaffer;\u001b[K\r\n            ERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m);\u001b[K\r\n            read while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\u001b[K\r\n        outaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\r\n      "]
[1114.56875, "o", "\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, begcntr;\u001b[K\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[K\r\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, j, l, ptr, length;\u001b[K\r\n                  \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\r\n                  integer array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\r\n                  ptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[K\r\n                  reaffer;\u001b[K\r\n                  store letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length ≠ \u001b[35m0\u001b[39;49m ∧ \u001b[35m7\u001b[39;49m ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;30H\u001b[3"]
[1114.568827, "o", "m9% L123\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1115.412696, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1116.408603, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;28H\u001b[34h\u001b[?25h\u001b[34l"]
[1117.029953, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;22H\u001b[34h\u001b[?25h\u001b[34l"]
[1122.862294, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;27H\u001b[34h\u001b[?25h\u001b[34l"]
[1123.374155, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1127.222633, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1128.636564, "o", "\u001b[51;35H\u001b[?25l\u001b[3m30\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1130.34984, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1132.172381, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1139.990061, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1140.256418, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1141.070441, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1141.94833, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1142.359753, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1142.847692, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1142.883633, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1142.915679, "o", "\u001b[51;35H\u001b[?25l\u001b[3m40\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1142.94852, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1142.981311, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.015586, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.04842, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.079868, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.110423, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1143.144834, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1143.208656, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1143.209696, "o", "\u001b[26;1H\u001b[?25l                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m length = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n                              \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m parameter[i - \u001b[35m1\u001b[39;49m] =\u001b[K\r\n                              formallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:= \u001b[35m1\u001b[39;49m, \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m l ≠ smaller symbol\u001b[K\r\n                                    \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\u001b[K\r\n                                    stow into stack(definitionstack,\u001b["]
[1143.211111, "o", "K\r\n                                    max of defstack,j);\u001b[K\r\n                                    found:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                        ptr:= ptr + length+ \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare parameters;\u001b[39;49m\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m delete symbol(s); integer s;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer word;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= definitionstack[lcntr];\u001b[K\r\n                        lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b["]
[1143.211418, "o", "36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m word:= definitionstack[lcntr];\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m25% L148\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.249553, "o", "\u001b[51;35H\u001b[?25l\u001b[3m50\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.273394, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.301578, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.335546, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.36457, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.399009, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1143.739858, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1164.744286, "o", "\u001b[52d\u001b[?25lMark set\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1164.773695, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\u001b[K\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲"]
[1164.77488, "o", "l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formal"]
[1164.775054, "o", "list[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1"]
[1164.775139, "o", "m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1165.379372, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1165.395262, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1165.718249, "o", "\u001b[52;11H\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[1165.719277, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[1165.720804, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[1165.722521, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1165.724103, "o", "\u001b[?25lg\u001b[34h\u001b[?25h\u001b[34l"]
[1165.735307, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1165.743485, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1165.743936, "o", "\u001b[H\n"]
[1165.76087, "o", "\u001b[45;13H\u001b[?25l\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;34H\u001b[3m44\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1165.761344, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[K\u001b[45;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1166.76254, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49minteger\u001b[45;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1167.900959, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[45;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1167.965488, "o", "\b\b\b\b\b\b\b\u001b[?25linteger\u001b[51;35H\u001b[3m5    (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1169.018704, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[K\u001b[46;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1169.043173, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[46;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1169.21259, "o", "\u001b[52;11H\u001b[?25linteger\u001b[46;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1169.250056, "o", "\u001b[1;50r\u001b[2;1H\u001b[28M\u001b[1;52r"]
[1169.250469, "o", "\u001b[23;1H\u001b[?25l            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m reaffer1:= reaffer;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45minteger\u001b[39;49m i;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaffer1\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\u001b[K\r\n\u001b[K\n            ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\u001b[K\r\n            smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3026\u001b[39;49m);\u001b[K\r\n                  reaffer1 while(symbol ≠ colon symbol ∧\u001b[K\r\n                  symbol ≠ open symbol ∧ symbol ≠ smaller symbol)\u001b["]
[1169.25063, "o", "K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n                  in comma mode:= symbol = open symbol;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\u001b[K\r\n                        (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m"]
[1169.250981, "o", " \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3002\u001b[39;49m); reaffer1 while\u001b[K\r\n                                    (symbol ≠ colon symbol)\u001b[K\r\n                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(formallist,ptr,max of\u001b[K\r\n                                    formallist, reaffer);\u001b[K\u001b[51;29H\u001b[3m 5% L53\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1169.515352, "o", "\u001b[17;13H\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1170.858004, "o", "\u001b[2;7H\u001b[?25l                                    reaffer1 while(symbol ≠\u001b[3;43Hsmaller symbol ∧ symbol ≠\u001b[4;7H                                    colon symbol)\u001b[5;7H                                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[6;13H                          \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[7;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[8;13H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[10;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3008\u001b[39;49m);\u001b[K\u001b[11;13H                  reaffer1 while(symbol ≠ comma symbol ∧\u001b[12;13H                  symbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[13;13H                  symbol)\u001b[14;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[15;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[16;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[17;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < m"]
[1170.85838, "o", "ax of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[18;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m, \u001b[35m3009\u001b[39;49m);\u001b[19;13Hreaffer;\u001b[20;13HERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m);\u001b[21;13Hread while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\r\n\toutaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[K\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\u001b[25;7H\u001b[6P\u001b[25;20Hd block;\u001b[K\u001b[26;7H\u001b[6P\u001b[26;22H, begcntr;\u001b[27;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[K\u001b[28;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[29;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i, j, l, ptr, length;\u001b[30;13H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[31;13H      integer array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\u001b[32;13H      ptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[33;13H      "]
[1170.858684, "o", "reaffer;\u001b[K\u001b[34;19Hstore letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[35;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[36;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length ≠ \u001b[35m0\u001b[39;49m ∧ \u001b[35m7\u001b[39;49m ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[37;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[38;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m length = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[39;19H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[40;19H\u001b[12@\u001b[40;51Hparameter[i - \u001b[35m1\u001b[39;49m] =\u001b[K\u001b[41;19H            formallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n\t\t\t      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:= \u001b[35m1\u001b[39;49m, \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;"]
[1170.858776, "o", "49m l ≠ smaller symbol\u001b[K\r\n\t\t\t            \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\r\n\t\t\t            stow into stack(definitionstack,\u001b[46;31H      max of defstack,j);\u001b[K\u001b[47;37Hfound:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[48;34H\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bptr:= ptr + length+ \u001b[35m1\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m23% L137\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1171.132515, "o", "\n\n\n\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[31;19H\u001b[46minteger\u001b[39;49m\u001b[26;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1172.186134, "o", "\b\b\b\b\b\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\n\n\n\b\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;35H\u001b[3m40\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1172.630096, "o", "\b\b\b\b\b\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[31;19H\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;36H\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1173.662721, "o", "\u001b[2;19H\u001b[?25l\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\u001b[3;19H\u001b[46minteger\u001b[39;49m array parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\u001b[4;19Hptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[K\u001b[5;19Hreaffer;\u001b[K\u001b[6;19Hstore letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[7;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[8;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length ≠ \u001b[35m0\u001b[39;49m ∧ \u001b[35m7\u001b[39;49m ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[9;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m length = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[K\n\b\b\b\b\b\b\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m parameter[i - \u001b[35m1\u001b[39;49m] =\u001b[K"]
[1173.663144, "o", "\u001b[13;31Hformallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n\t\t\t      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[15;19H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:= \u001b[35m1\u001b[39;49m, \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m l ≠ smaller symbol\u001b[16;13H                        \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\u001b[17;13H                        stow into stack(definitionstack,\u001b[K\u001b[18;13H                        max of defstack,j);\u001b[19;13H                        found:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[20;13H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\t                ptr:= ptr + length+ \u001b[35m1\u001b[39;49m\u001b[K\u001b[23;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare parameters;\u001b[39;49m\r\n\u001b[K\n\t\b\b      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m delete symbol(s); \u001b[36m\u001b"]
[1173.663793, "o", "[45minteger\u001b[39;49m s;\u001b[27;14H\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m integer word;\u001b[K\u001b[28;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= definitionstack[lcntr];\u001b[30;19H      lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m\u001b[31;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[32;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m word:= definitionstack[lcntr]\u001b[33;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[34;19H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word : t8;\u001b[35;19H            s:= word - definitionstack[lcntr] × t8;\u001b[36;19H            bcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[37;19H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[39;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[41;13Hin def mode:= \u001b"]
[1173.663893, "o", "[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[42;13Hstow into stack(definitionstack,max of defstack,symbol);\u001b[43;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[44;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(trne,\u001b[35m3010\u001b[39;49m); skip until(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[45;13Hbegcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[46;13Hdeclarations:= symbol ≠ nlcr symbol ∧ symbol ≠ semicolon\u001b[47;13Hsymbol; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ declarations \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[48;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[49;19Hin def mode:= false;\u001b[50;19Hreaffer;\u001b[K\u001b[51;30H\u001b[3m7% L165\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;48H\u001b[34h\u001b[?25h\u001b[34l"]
[1173.671809, "o", "\u001b[3;19H\u001b[?25linteger\u001b[26;48H\u001b[34h\u001b[?25h\u001b[34l"]
[1173.937783, "o", "\u001b[3;19H\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[27;19H\u001b[46minteger\u001b[39;49m\u001bM\t\t\t\b\u001b[34h\u001b[?25h\u001b[34l"]
[1174.839214, "o", "\r\t\t\t\t\t\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[27;19H\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;36H\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1175.9817, "o", "\u001b[2;13H\u001b[?25lin def mode:= false; reaffer;\u001b[3;13Hstow into stack(definitionstack,max of defstack,endmarker);\u001b[4;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[5;13Hnamestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[6;19H                \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\u001b[7;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[9;7Hmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= false;\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[12;13Hread formals;\u001b[K\u001b[13;13Hread block;\u001b[K\u001b[14;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[15;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[17;19Hread while(symbol = nlcr symbol\u001b[K\u001b"]
[1175.983134, "o", "[18;28H∨ symbol = semicolon symbol);\u001b[19;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[20;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= t̲r̲u̲e̲\u001b[39;49m\u001b[21;7H\u001b[18P\npr tape symbol:= space symbol\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45minteger\u001b[39;49m p,par;\u001b[K\u001b[27;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\u001b[28;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,opcntr,quotcntr,savel,auxptr;\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[K\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[32;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[33;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39"]
[1175.983622, "o", ";49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[34;19Hbcntr:= bcntr - l\u001b[K\u001b[35;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[37;13Hendmarker);\u001b[K\u001b[38;13Hfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[39;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[40;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[41;13H      pointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[42;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[K\u001b[46;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[47;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[48;13Hopcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ER"]
[1175.983827, "o", "ROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[51;29H\u001b[3m42% L247\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1176.254776, "o", "\n\n\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1177.07917, "o", "\r\t\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\n\n\b\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;36H\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1178.384444, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\u001b[3;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[K\u001b[4;7H\u001b[6P\u001b[4;10Hfrom actual\u001b[11P\u001b[5;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[K\u001b[6;13Hsavestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[K\u001b[7;7H      from actualstack:= false\u001b[8;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store expansion;\u001b[39;49m\u001b[K\r\n\u001b[32m{indents missing above}\u001b[39;49m\u001b[K\u001b[11;7HERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\u001b[12;7Hp:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\u001b[13;7Hpar:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[14;7Hread actuals;\u001b[K\u001b[15;7Hnamestack[place of name+ \u001b[35m1\u001b[39;49m]:= -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[16;7Hsavestack[saveptr + \u001b[35m4\u001b[39;49m]:= place of name;\u001b[17;7Hsavestack[saveptr + \u001b[35m5\u001b[39;49m]:= symbol;\u001b[K\u001b[18;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from mac"]
[1178.384837, "o", "ro \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m store expansion \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; stow into buffer(asterisk) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[20;7Hsaveptr:= saveptr + \u001b[35m6\u001b[39;49m; bbcntr:= \u001b[35m1\u001b[39;49m; llcntr:= p;\u001b[21;7Hpr tape symbol:= space symbol;\u001b[22;7Hsymbol:= macro sym;\u001b[K\r\n      stow into buffer(symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m expand macro;\u001b[39;49m\r\n\u001b[K\n\u001b[36m\u001b[45minteger\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m macro sym;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,s;\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m restore expansion;\u001b[30;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr:= savestack[saveptr];\u001b[K\u001b[31;7H      llcntr:= savestack[saveptr + \u001b[35m1\u001b[39;49m];\u001b[32;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= \u001b[35m1\u001b[39;49m; word:= definitionstac"]
[1178.38515, "o", "k[llcntr];\u001b[K\u001b[34;13Hword:= word - word ÷ t8 × t8\u001b[35;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[36;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= t8; word:= definitionstack[llcntr];\u001b[38;13Hword:= word - word ÷ t16 × t16\u001b[39;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m] ≠ -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= savestack[saveptr + \u001b[35m2\u001b[39;49m];\u001b[K\u001b[42;13HLLcntr:= savestack[saveptr + \u001b[35m3\u001b[39;49m];\u001b[43;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[44;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= \u001b[35m1\u001b[39;49m; Word:= actualstack[LLcntr];\u001b[45;7H            Word:= Word - Word ÷ t8 × t8\u001b[46;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[47;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = "]
[1178.385396, "o", "\u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[48;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= t8; Word:= actualstack[LLcntr];\u001b[49;13H      Word:= Word - Word ÷ t16 × t16\u001b[50;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m60% L366\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1178.659914, "o", "\n\b\u001b[?25l\u001b[46minteger\u001b[39;49m\r\u001bM\t\b\u001b[34h\u001b[?25h\u001b[34l"]
[1179.512311, "o", "\r\u001b[?25l\u001b[46minteger\u001b[39;49m\n\b\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;36H\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1180.154832, "o", "\u001b[H\n\u001b[?25l            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[3;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[4;7H            LLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[5;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= false;\u001b[6;13H      s := macro sym\u001b[K\u001b[7;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[8;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\r\n                  freeptr:= pointerptr;\u001b[11;7H            namestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[K\u001b[12;7H            -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[K"]
[1180.155232, "o", "\u001b[13;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[14;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= false; stow into buffer(ksiretsa)\u001b[15;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ restore expansion;\u001b[39;49m\u001b[K\u001b[16;7H            s= savestack[saveptr + \u001b[35m5\u001b[39;49m] \u001b[32m{s:= ?}\u001b[39;49m\u001b[17;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s > endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= s - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nmacro sym: = s\u001b[K\r\n\u001b[32m{lost indent above again}\u001b[39;49m\u001b[K\u001b[24;5H\u001b[33mmacro sym;\u001b[39;49m\u001b[K\r\n\n\u001b[36m\u001b[45minteger\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[27;7Hinteger i;\u001b[K\u001b[29;7Hinteger \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer"]
[1180.155331, "o", ";\u001b[30;13Hinteger s;\u001b[K\u001b[31;13Hs:= RESYM1;\u001b[K\u001b[32;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\u001b[34;13H      prsym(s);\u001b[K\u001b[35;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\u001b[36;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[37;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into buffer(s);\u001b[K\u001b[38;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[39;7H            line number:= line number + \u001b[35m1\u001b[39;49m\u001b[40;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[41;7H      read and buffer:= s\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲"]
[1180.155415, "o", "i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= false \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[47;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\u001b[48;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[49;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\u001b[K\u001b[50;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\u001b[51;29H\u001b[3m72% L445\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1180.427533, "o", "\n\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[29;7H\u001b[46minteger\u001b[39;49m\n\b\u001b[46minteger\u001b[39;49m\u001b[26;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1180.968907, "o", "\r\u001b[?25l\u001b[46minteger\u001b[39;49m\n\b\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;36H\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1181.321333, "o", "\r\t\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[29;7H\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;36H\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1181.971123, "o", "\r\t\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\n\b\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;36H\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1182.873954, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[4;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[5;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= false \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[7;14H\u001b[1m\u001b[36ml̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\r\n\t\tymbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;19Hnextacc:= read and buffer;\u001b[10;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\u001b[K\u001b[11;13H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[K\u001b[12;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K"]
[1182.874272, "o", "\u001b[15;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[16;19H  ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;7Hsymbol:= read and buffer;\u001b[18;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[19;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\r\n\u001b[32m{missing indent again}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45minteger\u001b[39;49m s,k;\u001b[K\r\n      k:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[28;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[29;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m"]
[1182.87436, "o", "\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol)\u001b[30;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= false; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[32;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b["]
[1182.874427, "o", "39;49m integer i, first symbol;\u001b[K\u001b[42;7Hfirst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[43;7Hread while(first symbol ≠\u001b[44;7H    (if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[45;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[46;11H(if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\ninteger max,char; integer array stack;\u001b[51;30H\u001b[3m8% L485\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1183.152643, "o", "\u001b[36;7H\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[41;7H\u001b[46minteger\u001b[39;49m\u001b[50;1H\u001b[46minteger\u001b[39;49m max,char; \u001b[46minteger\u001b[39;49m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1183.797344, "o", "\r\t\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[36;7H\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;35H\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1184.624519, "o", "\r\t\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[41;7H\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;34H\u001b[3m500\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1185.609641, "o", "\r\t\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[50;1H\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;36H\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\t\b\u001b[34h\u001b[?25h\u001b[34l"]
[1186.672282, "o", "\r\u001b[?25l\u001b[46minteger\u001b[39;49m max,char; \u001b[36m\u001b[45minteger\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1187.661871, "o", "\u001b[1;49r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1187.662338, "o", "\u001b[25;1H\u001b[?25l\u001b[46minteger\u001b[39;49m max,char; \u001b[46minteger\u001b[39;49m array stack;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45minteger\u001b[39;49m i;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K"]
[1187.662865, "o", "\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\r\n                  stow into stack(stack,max,char)\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      stack[lcntr]:= stack[lcntr] × t8 + char;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      stow into stack(stack,max,o)\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me"]
[1187.663195, "o", "̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\u001b[51;29H\u001b[3m81% L510\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1187.673839, "o", "\u001b[11;7H\u001b[?25linteger\u001b[16;7Hinteger\u001b[25;1Hinteger max,char; integer"]
[1187.674061, "o", "\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1187.952731, "o", "\u001b[11;7H\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[16;7H\u001b[46minteger\u001b[39;49m\u001b[25;1H\u001b[46minteger\u001b[39;49m max,char; \u001b[46minteger\u001b[39;49m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1188.863668, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1188.863786, "o", "\u001b[26;1H\u001b[?25l\u001b[36m\u001b[45minteger\u001b[39;49m pointer,max,letgit; integer array list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,j,word;\u001b[K\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\r\n      word:= j:= \u001b[35m0\u001b[39;49m; full:= false;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[K\r\n            j = j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  list[pointer]:= word × t6 + symbol;\u001b[K"]
[1188.864158, "o", "\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[K\r\n            symbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m else list[pointer]:= word;\u001b[K\r\n      pointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b["]
[1188.864212, "o", "39;49m integer i;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[K\u001b[51;30H\u001b[3m5% L535\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1189.144256, "o", "\u001b[26;29H\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[27;7H\u001b[46minteger\u001b[39;49m\u001b[49;13H\u001b[46minteger\u001b[39;49m\u001b[26;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1190.553509, "o", "\r\u001b[?25l\u001b[46minteger\u001b[39;49m pointer,max,letgit; \u001b[36m\u001b[45minteger\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1191.895644, "o", "\b\b\b\b\b\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[27;7H\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;36H\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1192.556935, "o", "\r\t\b\b\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[49;13H\u001b[36m\u001b[45minteger\u001b[39;49m\u001b[51;35H\u001b[3m58\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1193.4916, "o", "\u001b[2;7H\u001b[?25l      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[3;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[4;7H            list[pointer]:= word × t6 + symbol;\u001b[5;13H      word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[6;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[7;13Hsymbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[11;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m else list[pointer]:= word;\u001b[12;7Hpoi"]
[1193.49207, "o", "nter:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\u001b[18;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[46minteger\u001b[39;49m i;\u001b[K\u001b[19;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[20;7H        stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H      stackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m unstack macros;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45minteger\u001b[39;49m i, begcntr;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36m"]
[1193.492602, "o", "w̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n\t\b\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[29;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[30;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[31;7H                     ∧ symbol ≠ apostrophe symbol);\u001b[32;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[34;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[K\u001b[35;19H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[36;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[37;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h"]
[1193.493013, "o", "̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[38;13H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol);\r\n                                NS\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\bsymbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7Hread while(symbol ≠ nlcr symbol\r\n               ∧ symbol ≠ semicolon symbol)\r\n\u001b[32m{indentation again!}\u001b[39;49m}\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\r\n\u001b[K\u001b[51;29H\u001b[3m90% L566\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;20H\u001b[34h\u001b[?25h\u001b[34l"]
[1193.501592, "o", "\u001b[18;13H\u001b[?25linteger\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[1193.76747, "o", "\u001b[18;13H\u001b[?25l\u001b[46minteger\u001b[39;49m\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[1194.508656, "o", "\u001b[1;37r\u001b[32;1H\u001b[1L\u001b[1;52r"]
[1194.509272, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[3;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[K\u001b[5;19H         ∧ symbol ≠ apostrophe symbol);\u001b[6;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[7;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\r\n                  \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[11;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;"]
[1194.510273, "o", "49m\u001b[K\u001b[12;7H            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol);\r\n                                NS\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[17;7Hread while(symbol ≠ nlcr symbol\u001b[18;7H         ∧ symbol ≠ semicolon symbol)\r\n\u001b[32m{indentation again!}\u001b[39;49m}\u001b[K\u001b[20;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\r\n\u001b[6P\n\t\b\bpr tape symbol:= space symbol;\u001b[K\u001b[28;7Hlinecounter:= o;\u001b[K\u001b[29;7Hskip \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[3"]
[1194.511147, "o", "6mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[K\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[38;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[39;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[40;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[41;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[42;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[43;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m print elantext;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L592\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1195.54012, "o", "\u0007"]
[1195.540522, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41minteger\u001b[39;49m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1197.420343, "o", "\u001b[52;1H\u001b[K\u001b[26;14H"]
[1197.707237, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1197.707599, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[1197.722641, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲"]
[1197.723097, "o", "s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\r\n      asterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\r\n      namestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39"]
[1197.723382, "o", ";49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t"]
[1197.723608, "o", "\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m integer i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1198.892515, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[1198.892949, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1199.636984, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[1200.080696, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1200.844499, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1201.205407, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[1201.433084, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[1201.773319, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[1201.9644, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1202.107329, "o", "\u001b[?25lg\u001b[34h\u001b[?25h\u001b[34l"]
[1202.245537, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1202.438055, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1202.606149, "o", "\u001b[C"]
[1202.92904, "o", "\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[1203.157586, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1203.321944, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1203.425815, "o", "\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[1203.855112, "o", "\u001b[?25ly\u001b[34h\u001b[?25h\u001b[34l"]
[1205.813508, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1209.186118, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[1210.605524, "o", "\u001b[?25l7\u001b[34h\u001b[?25h\u001b[34l"]
[1211.712047, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1212.473016, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[1213.951177, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[1214.987274, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/integer array/z7rz5)\u001b[34h\u001b[?25h\u001b[34l"]
[1215.337195, "o", "\r\t\b\b\u001b[?25l(f/integer array/z7rz5)0\u001b[34h\u001b[?25h\u001b[34l"]
[1216.11478, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[1216.64817, "o", "\u001b[?25l-\u001b[34h\u001b[?25h\u001b[34l"]
[1216.904565, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[1217.33153, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[1218.027169, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1218.439804, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1218.935091, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[1219.610316, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[1219.876063, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[1220.185828, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1220.617809, "o", "\u001b[?25lg\u001b[34h\u001b[?25h\u001b[34l"]
[1221.034207, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1221.213348, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1221.64082, "o", "\u001b[C"]
[1222.670499, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1224.058157, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[1224.857877, "o", "\u001b[?25l7\u001b[34h\u001b[?25h\u001b[34l"]
[1225.686928, "o", "\u001b[52;34H\u001b[?25l\u001b[46m(\u001b[39;49mf/integer /z7)\u001b[34h\u001b[?25h\u001b[34l"]
[1225.948933, "o", "\u001b[52;34H\u001b[?25l(f/integer /z7)0\u001b[34h\u001b[?25h\u001b[34l"]
[1227.777597, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[1228.561496, "o", "\u001b[?25l-\u001b[34h\u001b[?25h\u001b[34l"]
[1228.832662, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[1229.170789, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1229.537286, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1229.695173, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1229.92668, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1230.185541, "o", "\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[1230.476196, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[1230.7065, "o", "\u001b[C"]
[1230.956881, "o", "\u001b[?25lb\u001b[34h\u001b[?25h\u001b[34l"]
[1231.166151, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[1231.403733, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[1231.512898, "o", "\u001b[?25lc\u001b[34h\u001b[?25h\u001b[34l"]
[1231.687687, "o", "\u001b[?25lk\u001b[34h\u001b[?25h\u001b[34l"]
[1232.527137, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1233.32238, "o", "\r"]
[1233.373874, "o", "\u001b[K\u001b[2d"]
[1233.40434, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[1233.404736, "o", "\r\n                                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3007\u001b[39;49m);\u001b[K\r\n                                          reaffer1 while(symbol ≠\u001b[K\r\n                                          smaller symbol ∧ symbol ≠\u001b[K\r\n                                          colon symbol)\u001b[K\r\n                                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n                                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3008\u001b[39;49m);\r\n                              reaffer1 while(symbol ≠ comma symbol ∧\u001b[13;7H                        symbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[14;7H                        symbol)\u001b[15;7H               "]
[1233.404869, "o", "   \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[18;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[19;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m, \u001b[35m3009\u001b[39;49m);\u001b[K\u001b[20;7H      reaffer;\u001b[K\u001b[21;7H      ERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m);\u001b[22;7H      read while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\u001b[23;7H  outaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[24;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[29;7H    "]
[1233.40492, "o", "  \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[30;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, j, l, ptr, length;\u001b[31;19H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[32;7H            \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[33;7H            ptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[34;13H      reaffer;\u001b[K\u001b[35;13H      store letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[K\u001b[36;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[37;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length ≠ \u001b[35m0\u001b[39;49m ∧ \u001b[35m7\u001b[39;49m ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[38;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[39;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m leng"]
[1233.404974, "o", "th = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[40;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[41;13H                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m parameter[i - \u001b[35m1\u001b[39;49m] =\u001b[42;7H                        formallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[43;31H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[44;7H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:= \u001b[35m1\u001b[39;49m, \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m l ≠ smaller symbol\u001b[45;7H                              \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\u001b[46;13H                        stow into stack(definitionstack,\u001b[47;37Hmax of defstack,j);\u001b[48;13H                        found:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[49;13H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m"]
[1233.405224, "o", ";\u001b[39;49m\u001b[K\n\u001b[3m22% L136\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;17H\u001b[34h\u001b[?25h\u001b[34l"]
[1235.772957, "o", "\u001b[2;31H\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bptr:= ptr + length+ \u001b[35m1\u001b[39;49m\u001b[K\u001b[5;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare parameters;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[8;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m delete symbol(s); \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s;\u001b[9;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m word;\u001b[K\u001b[10;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[11;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= definitionstack[lcntr];\r\n\t\t\tlcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m\u001b[K\u001b[13;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[14;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m word:= definitionstack[lcntr];\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[16;19H      \u001b[1m\u001b["]
[1235.773423, "o", "36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word : t8;\u001b[17;13H                  s:= word - definitionstack[lcntr] × t8;\u001b[18;13H                  bcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[19;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[21;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t    in def mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[24;7H      stow into stack(definitionstack,max of defstack,symbol);\u001b[25;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[26;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(trne,\u001b[35m3010\u001b[39;49m); skip until(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[27;7H      begcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[28;13Hdeclarations:= symbol ≠ nlcr symbol ∧ symbol ≠ semicolon\u001b[29;13Hsymbol; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ declarations \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;19Hlcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[31;19Hin def mode:= fa"]
[1235.773638, "o", "lse;\u001b[32;19Hreaffer;\u001b[K\u001b[33;19Hstow into stack(definitionstack,max of defstack,\u001b[34;19Hsymbol); in def mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[35;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[37;13Hwithin accents:= false;\u001b[K\u001b[38;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i: = i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[39;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n\t\t\t   ∧ symbol ≠ smaller symbol);\u001b[41;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m compare parameters;\u001b[K\u001b[42;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within accents:= ¬ within accents;\u001b[44;19Hreaffer;\u001b[K\u001b[45;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m within accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b["]
[1235.773812, "o", "K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[48;31H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\u001b[49;31H  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\r\n\t\t\t        \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3m31% L159\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1236.064506, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m"]
[1236.064836, "o", "\u001b[34h\u001b[?25h\u001b[34l"]
[1237.108041, "o", "\b\u001b[?25l                                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3007\u001b[39;49m);\r\n\t\t\t                  reaffer1 while(symbol ≠\r\n\t\t\t                  smaller symbol ∧ symbol ≠\u001b[5;19H                        colon symbol)\u001b[6;13H                            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[8;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;13H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[10;19H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[11;19H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3008\u001b[39;49m);\u001b[K\r\n\t\t\t      reaffer1 while(symbol ≠ comma symbol ∧\u001b[13;19H            symbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[14;19H            symbol)\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K"]
[1237.108315, "o", "\u001b[17;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[18;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[19;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m, \u001b[35m3009\u001b[39;49m);\u001b[20;13Hreaffer;\u001b[K\u001b[21;13HERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m);\u001b[22;13Hread while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\r\n\toutaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[24;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\u001b[27;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[28;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[K\u001b[29;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[K\u001b[30;19H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, j, "]
[1237.108511, "o", "l, ptr, length;\u001b[31;19H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\u001b[32;19H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[33;19Hptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= false;\u001b[K\u001b[34;19Hreaffer;\u001b[K\u001b[35;13H      store letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[36;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[37;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length ≠ \u001b[35m0\u001b[39;49m ∧ \u001b[35m7\u001b[39;49m ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[38;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[39;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m length = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[41;13H                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h"]
[1237.108738, "o", "̲i̲l̲e̲\u001b[0m\u001b[39;49m parameter[i - \u001b[35m1\u001b[39;49m] =\u001b[42;13H                  formallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[43;13H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[44;19H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:= \u001b[35m1\u001b[39;49m, \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m l ≠ smaller symbol\u001b[45;19H                  \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\u001b[46;19H                  stow into stack(definitionstack,\r\n\t\t\t            max of defstack,j);\u001b[K\u001b[48;31H      found:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[35m0\u001b[39;49m                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\u001b[3m22\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1240.657734, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.123103, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.152452, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.185808, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.221799, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.266141, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.284509, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.315318, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.346834, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.377863, "o", "\u001b[51;35H\u001b[?25l\u001b[3m49\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.411543, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.447536, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.474381, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.508479, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.5387, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.575042, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.609781, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.642226, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.673908, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.703797, "o", "\u001b[51;35H\u001b[?25l\u001b[3m39\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.734869, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1241.769176, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1242.270081, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1243.004782, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1246.697349, "o", "\u001b[51;35H\u001b[?25l\u001b[3m40\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1247.512112, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1248.347999, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1249.714057, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1250.202274, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1270.348057, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1278.065401, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1278.499509, "o", "\u001b[C"]
[1278.98695, "o", "\u001b[C"]
[1279.020616, "o", "\u001b[C"]
[1279.056122, "o", "\u001b[C"]
[1279.086982, "o", "\u001b[C"]
[1279.121027, "o", "\t\b"]
[1279.148729, "o", "\t"]
[1279.182432, "o", "\u001b[C"]
[1279.215518, "o", "\u001b[C"]
[1279.249659, "o", "\u001b[C"]
[1279.282787, "o", "\u001b[C"]
[1279.310339, "o", "\u001b[C"]
[1279.344707, "o", "\u001b[C"]
[1279.378993, "o", "\t\b"]
[1279.412125, "o", "\t"]
[1279.446519, "o", "\u001b[C"]
[1279.480108, "o", "\u001b[C"]
[1279.517946, "o", "\u001b[C"]
[1279.545611, "o", "\u001b[C"]
[1279.700243, "o", "\u001b[C"]
[1279.987531, "o", "\u001b[C"]
[1280.769155, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1281.083366, "o", "\u001b[?25l\u001b[1@l\u001b[34h\u001b[?25h\u001b[34l"]
[1282.433608, "o", "\b"]
[1282.921548, "o", "\b"]
[1282.954515, "o", "\b"]
[1282.986913, "o", "\b"]
[1283.020164, "o", "\b"]
[1283.048712, "o", "\b"]
[1283.082339, "o", "\b"]
[1283.115565, "o", "\b"]
[1283.147997, "o", "\b"]
[1283.181632, "o", "\b"]
[1283.212197, "o", "\b"]
[1289.150723, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;12H\u001b[34h\u001b[?25h\u001b[34l"]
[1289.15129, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[37;12H\u001b[34h\u001b[?25h\u001b[34l"]
[1289.151735, "o", "\u001b[52;15H\u001b[?25ldone\u001b[37;12H\u001b[34h\u001b[?25h\u001b[34l"]
[1296.169081, "o", "\u001b[52;1H\u001b[K\u001b[37;13H"]
[1296.66166, "o", "\u001b[C"]
[1296.693291, "o", "\u001b[C"]
[1296.721101, "o", "\t\b"]
[1296.755849, "o", "\t"]
[1296.788943, "o", "\u001b[C"]
[1296.822693, "o", "\u001b[C"]
[1296.856308, "o", "\u001b[C"]
[1296.884643, "o", "\u001b[C"]
[1296.9169, "o", "\u001b[C"]
[1296.951811, "o", "\u001b[C"]
[1296.983948, "o", "\t\b"]
[1297.019223, "o", "\t"]
[1297.048771, "o", "\u001b[C"]
[1297.076939, "o", "\u001b[C"]
[1297.106292, "o", "\u001b[C"]
[1297.140147, "o", "\u001b[C"]
[1297.173475, "o", "\u001b[C"]
[1297.201801, "o", "\u001b[C"]
[1297.23508, "o", "\t\b"]
[1297.266931, "o", "\t"]
[1297.302042, "o", "\u001b[C"]
[1297.335433, "o", "\u001b[C"]
[1297.366426, "o", "\u001b[C"]
[1297.401811, "o", "\u001b[C"]
[1297.432896, "o", "\u001b[C"]
[1297.466666, "o", "\u001b[C"]
[1297.499464, "o", "\t\b"]
[1297.532986, "o", "\t"]
[1297.566667, "o", "\u001b[C"]
[1297.596006, "o", "\u001b[C"]
[1297.627953, "o", "\u001b[C"]
[1297.662711, "o", "\u001b[C"]
[1297.694926, "o", "\u001b[C"]
[1297.727328, "o", "\u001b[C"]
[1297.762527, "o", "\t\b"]
[1297.795108, "o", "\t"]
[1297.8286, "o", "\u001b[C"]
[1297.857963, "o", "\u001b[C"]
[1297.890955, "o", "\u001b[C"]
[1297.92489, "o", "\u001b[C"]
[1297.953873, "o", "\u001b[C"]
[1297.986377, "o", "\u001b[C"]
[1298.016607, "o", "\t\b"]
[1298.050366, "o", "\t"]
[1298.085284, "o", "\u001b[C"]
[1298.11335, "o", "\u001b[C"]
[1298.146935, "o", "\u001b[C"]
[1298.180084, "o", "\u001b[C"]
[1298.212855, "o", "\u001b[C"]
[1298.247047, "o", "\u001b[C"]
[1298.279344, "o", "\t\b"]
[1298.313315, "o", "\t"]
[1298.342844, "o", "\u001b[C"]
[1300.534548, "o", "\u001b[C"]
[1300.824796, "o", "\u001b[C"]
[1301.046395, "o", "\u001b[C"]
[1301.891819, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1302.039188, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1303.633237, "o", "\u001b[C"]
[1304.122502, "o", "\u001b[C"]
[1304.15104, "o", "\u001b[C"]
[1304.18739, "o", "\u001b[C"]
[1304.220137, "o", "\t\b"]
[1304.254936, "o", "\t"]
[1304.287507, "o", "\u001b[C"]
[1304.319603, "o", "\u001b[C"]
[1304.347582, "o", "\u001b[C"]
[1304.381509, "o", "\u001b[C"]
[1304.414722, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1304.446362, "o", "\u001b[C"]
[1304.479528, "o", "\u001b[C"]
[1305.31301, "o", "\u001b[C"]
[1305.801571, "o", "\u001b[C"]
[1305.830906, "o", "\u001b[C"]
[1305.865999, "o", "\u001b[C"]
[1305.894877, "o", "\t\b"]
[1305.926736, "o", "\t"]
[1305.961476, "o", "\u001b[C"]
[1305.995016, "o", "\u001b[C"]
[1330.588842, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;11H\u001b[34h\u001b[?25h\u001b[34l"]
[1330.869621, "o", "\u001b[51;35H\u001b[?25l\u001b[3m50\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;11H\u001b[34h\u001b[?25h\u001b[34l"]
[1344.507748, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;11H\u001b[34h\u001b[?25h\u001b[34l"]
[1344.907723, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;11H\u001b[34h\u001b[?25h\u001b[34l"]
[1364.920883, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;11H\u001b[34h\u001b[?25h\u001b[34l"]
[1371.214384, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;11H\u001b[34h\u001b[?25h\u001b[34l"]
[1371.951488, "o", "\u001b[C"]
[1372.441859, "o", "\u001b[C"]
[1372.474974, "o", "\u001b[C"]
[1372.509376, "o", "\u001b[C"]
[1372.546365, "o", "\t\b"]
[1372.576706, "o", "\t"]
[1372.612262, "o", "\u001b[C"]
[1372.644985, "o", "\u001b[C"]
[1372.677101, "o", "\u001b[C"]
[1372.70616, "o", "\u001b[C"]
[1372.738882, "o", "\u001b[C"]
[1372.774206, "o", "\u001b[C"]
[1372.801853, "o", "\t\b"]
[1372.833797, "o", "\t"]
[1372.868204, "o", "\u001b[C"]
[1377.671637, "o", "\u001b[C"]
[1377.672384, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[44;27H\u001b[34h\u001b[?25h\u001b[34l"]
[1377.674413, "o", "\u001b[52;15H\u001b[?25ldone\u001b[44;27H\u001b[34h\u001b[?25h\u001b[34l"]
[1378.158651, "o", "\u001b[52;1H\u001b[K\u001b[44;28H"]
[1378.186569, "o", "\u001b[C"]
[1378.220629, "o", "\u001b[C"]
[1378.252876, "o", "\u001b[C"]
[1378.285853, "o", "\t\b"]
[1378.318752, "o", "\t"]
[1378.352709, "o", "\u001b[C"]
[1378.406143, "o", "\u001b[C"]
[1378.417462, "o", "\u001b[C"]
[1378.451586, "o", "\u001b[C"]
[1378.484657, "o", "\u001b[C"]
[1378.517735, "o", "\u001b[C"]
[1378.552428, "o", "\t\b"]
[1378.584278, "o", "\t"]
[1378.617793, "o", "\u001b[C"]
[1378.650449, "o", "\u001b[C"]
[1378.679754, "o", "\u001b[C"]
[1378.713792, "o", "\u001b[C"]
[1378.742237, "o", "\u001b[C"]
[1378.774082, "o", "\u001b[C"]
[1378.809143, "o", "\t\b"]
[1378.840933, "o", "\t"]
[1379.851552, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1380.184008, "o", "\u001b[?25l\u001b[1@l\u001b[34h\u001b[?25h\u001b[34l"]
[1399.786558, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;49H\u001b[34h\u001b[?25h\u001b[34l"]
[1400.246595, "o", "\b"]
[1400.736799, "o", "\b"]
[1400.76696, "o", "\b"]
[1400.799667, "o", "\b"]
[1400.833362, "o", "\b"]
[1400.865355, "o", "\b"]
[1400.897451, "o", "\b"]
[1400.932723, "o", "\b"]
[1400.9639, "o", "\b"]
[1400.996986, "o", "\b"]
[1401.030681, "o", "\b"]
[1401.062699, "o", "\b"]
[1401.096198, "o", "\b"]
[1401.127194, "o", "\b"]
[1401.158508, "o", "\b"]
[1401.190489, "o", "\b"]
[1401.224707, "o", "\b"]
[1401.257219, "o", "\b"]
[1401.289616, "o", "\b"]
[1401.321468, "o", "\b"]
[1401.352115, "o", "\b"]
[1401.383455, "o", "\b"]
[1401.413652, "o", "\b"]
[1406.865127, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1407.794049, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1410.33626, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1410.85623, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1411.431145, "o", "\u001b[51;35H\u001b[?25l\u001b[3m60\u001b[0m\u001b[39;49m\u001b[23m\u001b[50;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1412.148516, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1412.148954, "o", "\u001b[26;1H\u001b[?25l                        ptr:= ptr + length+ \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare parameters;\u001b[39;49m\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m delete symbol(s); \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m word;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= definitionstack[lcntr];\u001b[K\r\n                        lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m word:= definitionstack[lcntr];\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= \u001b[1m\u001b[36mt̲r̲u̲"]
[1412.14918, "o", "e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word : t8;\u001b[K\r\n                              s:= word - definitionstack[lcntr] × t8;\u001b[K\r\n                              bcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\n            in def mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n            stow into stack(definitionstack,max of defstack,symbol);\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(trne,\u001b[35m3010\u001b[39;49m); skip until(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            begcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\r\n            declarations:= symbol ≠ nlcr symbol ∧ symbol ≠ semicolon\u001b[K\u001b[51;30H\u001b"]
[1412.149422, "o", "[3m7% L161\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1413.382276, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;22H\u001b[34h\u001b[?25h\u001b[34l"]
[1413.784487, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1414.497072, "o", "\u001b[C"]
[1415.022646, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1415.271145, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1415.495531, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1415.739149, "o", "\u001b[51;35H\u001b[?25l\u001b[3m59\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;2H\u001b[34h\u001b[?25h\u001b[34l"]
[1416.219378, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1417.175561, "o", "\u001b[?25l\u001b[1@\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1418.953264, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[1419.653104, "o", "\u001b[C"]
[1420.139561, "o", "\u001b[C"]
[1420.169976, "o", "\u001b[C"]
[1420.203218, "o", "\u001b[C"]
[1420.236346, "o", "\u001b[C"]
[1420.269253, "o", "\u001b[C"]
[1420.303248, "o", "\t\b"]
[1420.48569, "o", "\u001b[51;35H\u001b[?25l\u001b[3m60\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1420.957162, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1420.986539, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1421.020516, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1421.050898, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1424.855108, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;8H\u001b[34h\u001b[?25h\u001b[34l"]
[1426.347085, "o", "\b"]
[1427.046015, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1429.92904, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1432.526379, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1434.707228, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1436.957571, "o", "\u001b[51;35H\u001b[?25l\u001b[3m70\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1437.510911, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1438.515671, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1439.549752, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1440.388319, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1444.866541, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1445.248668, "o", "\t\b"]
[1445.738685, "o", "\t"]
[1445.772603, "o", "\u001b[C"]
[1445.805401, "o", "\u001b[C"]
[1445.837482, "o", "\u001b[C"]
[1445.871382, "o", "\u001b[C"]
[1445.904846, "o", "\u001b[C"]
[1445.937747, "o", "\u001b[C"]
[1445.970635, "o", "\t\b"]
[1446.005182, "o", "\t"]
[1446.037514, "o", "\u001b[C"]
[1446.070913, "o", "\u001b[C"]
[1446.099042, "o", "\u001b[C"]
[1446.133482, "o", "\u001b[C"]
[1446.166111, "o", "\u001b[C"]
[1446.166715, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[38;22H\u001b[34h\u001b[?25h\u001b[34l"]
[1446.16815, "o", "\u001b[52;15H\u001b[?25ldone\u001b[38;22H\u001b[34h\u001b[?25h\u001b[34l"]
[1446.200093, "o", "\u001b[52;1H\u001b[K\u001b[38;23H"]
[1446.23337, "o", "\t\b"]
[1446.266232, "o", "\t"]
[1446.295245, "o", "\u001b[C"]
[1446.32795, "o", "\u001b[C"]
[1446.360892, "o", "\u001b[C"]
[1446.394607, "o", "\u001b[C"]
[1446.427775, "o", "\u001b[C"]
[1446.458198, "o", "\u001b[C"]
[1446.487062, "o", "\t\b"]
[1446.516603, "o", "\t"]
[1446.55132, "o", "\u001b[C"]
[1446.58304, "o", "\u001b[C"]
[1446.616136, "o", "\u001b[C"]
[1446.650992, "o", "\u001b[C"]
[1446.68383, "o", "\u001b[C"]
[1446.716459, "o", "\u001b[C"]
[1446.750832, "o", "\t\b"]
[1446.781891, "o", "\t"]
[1446.815527, "o", "\u001b[C"]
[1446.848223, "o", "\u001b[C"]
[1447.534616, "o", "\u001b[C"]
[1448.022989, "o", "\u001b[C"]
[1448.056573, "o", "\u001b[C"]
[1448.087341, "o", "\u001b[C"]
[1448.119618, "o", "\t\b"]
[1448.155537, "o", "\t"]
[1448.186482, "o", "\u001b[C"]
[1448.220032, "o", "\u001b[C"]
[1448.246972, "o", "\u001b[C"]
[1451.196553, "o", "\u001b[C"]
[1451.687921, "o", "\u001b[C"]
[1451.72275, "o", "\u001b[C"]
[1451.750503, "o", "\t\b"]
[1451.783976, "o", "\t"]
[1451.817584, "o", "\u001b[C"]
[1451.850715, "o", "\u001b[C"]
[1452.305762, "o", "\u001b[C"]
[1452.644389, "o", "\u001b[C"]
[1453.558325, "o", "\b\b\u001b[?25l  t8;\u001b[K\b\b\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[1454.295647, "o", "\b\u001b[?25l / t8;\b\b\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[1454.453713, "o", "\b\u001b[?25l÷\u001b[34h\u001b[?25h\u001b[34l"]
[1455.705213, "o", "\u001b[C"]
[1456.027901, "o", "\u001b[C"]
[1456.287165, "o", "\t\b"]
[1456.479079, "o", "\t"]
[1456.846137, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1461.924539, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1463.094424, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1463.561125, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1464.637534, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1465.052646, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1465.411195, "o", "\u001b[51;35H\u001b[?25l\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1467.987519, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1474.408949, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1474.789174, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1480.217137, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1499.217875, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1502.067193, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1502.067625, "o", "\u001b[26;1H\u001b[?25l            symbol; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ declarations \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\r\n                  in def mode:= false;\u001b[K\r\n                  reaffer;\u001b[K\r\n                  stow into stack(definitionstack,max of defstack,\u001b[K\r\n                  symbol); in def mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[K\n            within accents:= false;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i: = i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[K\r\n                           ∧ symbol ≠ smaller symbol);\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m compare parameters;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[3"]
[1502.067708, "o", "6mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within accents:= ¬ within accents;\u001b[K\r\n                  reaffer;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m within accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\u001b[K\r\n                                \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\u001b[K\r\n                                \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[K\r\n                                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h"]
[1502.067783, "o", "̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\u001b[K\r\n                                  ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[K\u001b[51;29H\u001b[3m32% L186\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1505.694299, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1506.89202, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1507.331859, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1507.778302, "o", "\u001b[51;35H\u001b[?25l\u001b[3m90\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1509.197602, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1509.562634, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1510.439077, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1511.118362, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1515.177936, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1515.666721, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1515.700247, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1541.69411, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1542.247359, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1544.364072, "o", "\u001b[51;34H\u001b[?25l\u001b[3m200\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1545.150725, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1547.386777, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1550.644467, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1551.095367, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1551.481133, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1551.945094, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1552.394659, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1558.901968, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1562.50474, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1563.078492, "o", "\u001b[51;35H\u001b[?25l\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1566.890354, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1566.890542, "o", "\u001b[26;1H\u001b[?25l                                  \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[K\r\n                                  empty:= false\u001b[K\r\n                                \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            in def mode:= false; reaffer;\u001b[K\r\n            stow into stack(definitionstack,max of de"]
[1566.890629, "o", "fstack,endmarker);\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            namestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[K\r\n                                  \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[K\n      max of formallist:= \u001b[35m127\u001b[39;49m; empty:= false;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[K\r\n            read formals;\u001b[K\r\n            read block;\u001b[K\r\n            read while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[51;30H\u001b[3m6% L211\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1569.868857, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1570.353396, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1570.786707, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1571.248909, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1571.746894, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1572.584089, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1573.434722, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1576.066262, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1576.347594, "o", "\u001b[51;35H\u001b[?25l\u001b[3m20\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1576.615244, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1587.226996, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1588.122732, "o", "\u001b[C"]
[1588.614002, "o", "\u001b[C"]
[1588.647653, "o", "\u001b[C"]
[1588.681894, "o", "\u001b[C"]
[1588.719713, "o", "\u001b[C"]
[1589.195043, "o", "\u001b[C"]
[1589.475374, "o", "\t\b"]
[1589.758676, "o", "\t"]
[1589.759377, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[37;9H\u001b[34h\u001b[?25h\u001b[34l"]
[1589.761172, "o", "\u001b[52;15H\u001b[?25ldone\u001b[37;9H\u001b[34h\u001b[?25h\u001b[34l"]
[1590.086705, "o", "\u001b[52;1H\u001b[K\u001b[37;10H"]
[1590.814826, "o", "\u001b[C"]
[1591.151716, "o", "\u001b[C"]
[1591.545184, "o", "\u001b[C"]
[1612.091635, "o", "\u001b[?25l\\\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\b\b\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[1613.301839, "o", "\b\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\b\b\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[1614.093583, "o", "\b\u001b[1P"]
[1615.262283, "o", "\b\u001b[1P"]
[1615.692902, "o", "\b\u001b[1P"]
[1616.280297, "o", "\b\u001b[1P"]
[1616.565356, "o", "\b\u001b[1P"]
[1617.964685, "o", "\b\u001b[1P"]
[1621.850432, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1623.495734, "o", "\u001b[38;12H\u001b[1P\b\b\b\b\b"]
[1623.748613, "o", "\u001b[38;11H\u001b[1P\b\b\b\b"]
[1624.020763, "o", "\t\u001b[C\u001b[1P\b\b\b"]
[1624.461589, "o", "\t\u001b[1P\b\b"]
[1624.773535, "o", "\t\b\u001b[1P\b"]
[1625.264791, "o", "\u001b[1P"]
[1630.222522, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1631.721547, "o", "\u001b[39;12H\u001b[1P\b\b\b\b\b"]
[1631.982673, "o", "\u001b[39;11H\u001b[1P\b\b\b\b"]
[1632.36284, "o", "\t\u001b[C\u001b[1P\b\b\b"]
[1632.725599, "o", "\t\u001b[1P\b\b"]
[1632.978316, "o", "\t\b\u001b[1P\b"]
[1633.297652, "o", "\u001b[1P"]
[1633.759144, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1634.134217, "o", "\u001b[40;12H\u001b[1P\b\b\b\b\b"]
[1634.335305, "o", "\u001b[40;11H\u001b[1P\b\b\b\b"]
[1634.559615, "o", "\t\u001b[C\u001b[1P\b\b\b"]
[1634.868593, "o", "\t\u001b[1P\b\b"]
[1635.077809, "o", "\t\b\u001b[1P\b"]
[1635.344239, "o", "\u001b[1P"]
[1635.787364, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1636.220071, "o", "\u001b[41;12H\u001b[1P\b\b\b\b\b"]
[1636.43551, "o", "\u001b[41;11H\u001b[1P\b\b\b\b"]
[1636.658588, "o", "\t\u001b[C\u001b[1P\b\b\b"]
[1636.99542, "o", "\t\u001b[1P\b\b"]
[1637.224946, "o", "\t\b\u001b[1P\b"]
[1637.595445, "o", "\u001b[1P"]
[1638.058429, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1638.787308, "o", "\u001b[42;34H\u001b[1P\r\t\b\b"]
[1639.698976, "o", "\t\t\t\t\u001b[1P\r\t\b\b"]
[1639.962812, "o", "\t\t\t\t\b\u001b[1P\r\t\b\b"]
[1640.252532, "o", "\u001b[42;31H\u001b[1P\r\t\b\b"]
[1640.479619, "o", "\u001b[42;30H\u001b[1P\r\t\b\b"]
[1640.858458, "o", "\u001b[42;29H\u001b[1P\r\t\b\b"]
[1641.377369, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1642.450427, "o", "\b\u001b[1P"]
[1642.636123, "o", "\b\u001b[1P"]
[1643.11364, "o", "\b\u001b[1P"]
[1643.497414, "o", "\b\u001b[1P"]
[1643.777076, "o", "\b\u001b[1P"]
[1644.116465, "o", "\b\u001b[1P"]
[1647.407086, "o", "\u001b[52d\u001b[?25lMark set\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1647.4269, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲"]
[1647.427392, "o", "\u001b[0m\u001b[39;49m;\u001b[K\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m for"]
[1647.427505, "o", "mallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;7H      store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;7H      ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[K\u001b[46;7H      \u001b[1m\u001b[36"]
[1647.427591, "o", "mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1647.855452, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1647.871575, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1648.447047, "o", "\u001b[52;11H\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1648.447395, "o", "\u001b[H\n"]
[1648.463772, "o", "\u001b[2;14H\u001b[?25l\u001b[36m\u001b[45mf\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1648.744586, "o", "\t\t\t\b\u001b[?25l\u001b[46mf\u001b[39;49m de\u001b[46mf\u001b[39;49mstack, max o\u001b[46mf\u001b[39;49m actualstack, max o\u001b[46mf\u001b[39;49m\u001b[3;20H\u001b[46mf\u001b[39;49m savestack, stackptr, \u001b[46mf\u001b[39;49m\n\n\u001b[C\u001b[46mf\u001b[39;49m\u001b[6;14H\u001b[46mf\u001b[39;49m mode, in actual mode, only mac, \u001b[46mf\u001b[39;49mrom macro, \u001b[46mf\u001b[39;49m\u001b[8;35H\u001b[46mf\u001b[39;49m\u001b[12;12H\u001b[46mf\u001b[39;49m mode:= in actual mode:= only mac:= \u001b[46mf\u001b[39;49m\u001b[13;7H\u001b[46mf\u001b[39;49mrom actualstack:= accent read:= \u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\u001b[14;12H\u001b[46mf\u001b[39;49m\n\b\u001b[46mf\u001b[39;49m de\u001b[46mf\u001b[39;49m\n\b\b\b\b\b\u001b[46mf\u001b[39;49m\u001b[2;15H\u001b[34h\u001b[?25h\u001b[34l"]
[1648.755928, "o", "\u001b[17;12H\u001b[?25l\u001b[46mf\u001b[39;49m\n\b\u001b[46mf\u001b[39;49m\u001b[24;7H\u001b[46mf\u001b[39;49m\u001b[27;13H\u001b[46mf\u001b[39;49m\u001b[28;28H\u001b[46mf\u001b[39;49m \u001b[46mf\u001b[39;49m\u001b[30;21H\u001b[46mf\u001b[39;49m\u001b[34;35H\u001b[46mf\u001b[39;49m"]
[1648.756243, "o", "\u001b[37;51H\u001b[46mf\u001b[39;49m namestack,rea\u001b[46mff\u001b[39;49m\u001b[38;39H\u001b[46mf\u001b[39;49m\u001b[44;22H\u001b[46mf\u001b[39;49m\u001b[48;34H\u001b[46mff\u001b[39;49m\u001b[49;14H\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\u001b[2d\u001b[34h\u001b[?25h\u001b[34l"]
[1648.790411, "o", "\u001b[52;12H\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[1648.791085, "o", "\u001b[2;15H"]
[1648.832705, "o", "\r\u001b[?25l                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3008\u001b[39;49m);\u001b[K\r\n                              reaffer1 while(symbol ≠ comma symbol ∧\u001b[K\r\n                              symbol ≠ smaller symbol ∧ symbol ≠ colon\r\n                              symbol)\r\n                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m, \u001b[35m3009\u001b[39;49m);\u001b[K\u001b[13;7H      reaffer;\u001b[K\u001b[14;7H      ERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symb"]
[1648.832969, "o", "ol,\u001b[35m3024\u001b[39;49m);\u001b[15;7H      read while(symbol = nlcr symbol ∨ symbol = semicolon symbol);\u001b[16;7H  outaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\u001b[17;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\u001b[20;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[22;7H      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[23;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, j, l, ptr, length;\u001b[24;7H            \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\r\n                  \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[26;19Hptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= \u001b[36m\u001b[45mfa\u001b[39;49mlse;\r\n                  reaffer;\r\n             "]
[1648.833112, "o", "     store letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[29;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m l ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length ≠ \u001b[35m0\u001b[39;49m ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[31;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\u001b[32;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m length = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[34;13H                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m parameter[i - \u001b[35m1\u001b[39;49m] =\u001b[35;13H                  formallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[36;13H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;13H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b"]
[1648.833686, "o", "[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:= \u001b[35m1\u001b[39;49m, l \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m l ≠ smaller symbol\u001b[38;13H                        \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\u001b[39;13H                        stow into stack(definitionstack,\u001b[40;13H                        max of defstack,j);\u001b[41;13H                        found:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[42;7H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[44;7H                  ptr:= ptr + length+ \u001b[35m1\u001b[39;49m\u001b[45;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare parameters;\u001b[39;49m\u001b[48;13H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m delete symbol(s); \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s;\u001b[49;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m word;\u001b[K\u001b[50;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H"]
[1648.833868, "o", "\u001b[3m24% L143\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;51H\u001b[34h\u001b[?25h\u001b[34l"]
[1648.995037, "o", "\u001b[52;13H\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[1648.995406, "o", "\u001b[26;51H"]
[1649.015397, "o", "\u001b[?25l\u001b[36m\u001b[45ml\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1649.113122, "o", "\u001b[52;14H\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[1649.113806, "o", "\u001b[26;52H"]
[1649.132817, "o", "\u001b[?25l\u001b[36m\u001b[45ms\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1649.358676, "o", "\u001b[52;15H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1649.359257, "o", "\u001b[26;53H"]
[1649.381499, "o", "\u001b[?25l\u001b[36m\u001b[45me\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1649.995828, "o", "\u001b[H\n\u001b[K\u001b[3;13H\u001b[?25l\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m delete symbol(s); \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s;\u001b[4;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m word;\u001b[K\u001b[5;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= definitionstack[lcntr];\u001b[K\r\n\t\t\tlcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m\u001b[8;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[9;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m word:= definitionstack[lcntr];\u001b[10;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[11;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word ÷ t8;\u001b[K\u001b[12;13H                  s:= word - definitionstack[lcntr] × t8;\u001b[13;13H                  bcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[14;13H            \u001b[1m\u001b[36me̲n"]
[1649.996168, "o", "̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[15;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[18;13Hin def mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[19;7H      stow into stack(definitionstack,max of defstack,symbol);\u001b[20;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[21;14H\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(trne,\u001b[35m3010\u001b[39;49m); skip until(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[22;13Hbegcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[23;13Hdeclarations:= symbol ≠ nlcr symbol ∧ symbol ≠ semicolon\u001b[24;13Hsymbol; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ declarations \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[25;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[26;19Hin def mode\u001b[16P\u001b[28;22Hw into stack(definitionstack,max of defstack,\u001b[29;19Hsymbol); in def mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[30;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[32;13Hwithin"]
[1649.99624, "o", " accents:= false;\u001b[K\u001b[33;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i: = i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[K\u001b[35;28H∧ symbol ≠ smaller symbol);\u001b[K\u001b[36;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m compare parameters;\u001b[37;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within accents:= ¬ within accents;\u001b[K\u001b[39;19Hreaffer;\u001b[K\u001b[40;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m within accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\r"]
[1649.996291, "o", "\n\t\t\t        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\u001b[45;19H              \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[46;13H                    \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[47;35H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\u001b[48;13H                      ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[49;13H                      \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[50;19H                empty:= false\u001b[51;29H\u001b[3m32% L188\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;38H\u001b[34h\u001b[?25h\u001b[34l"]
[1650.270148, "o", "\u001b[32;30H\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[50;43H\u001b[46mfalse\u001b[39;49m\u001b[26;38H\u001b[34h\u001b[?25h\u001b[34l"]
[1650.558193, "o", "\b\b\b\b\b\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[32;30H\u001b[36m\u001b[45mfalse\u001b[39;49m\u001b[51d\u001b[3m94\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;35H\u001b[34h\u001b[?25h\u001b[34l"]
[1651.136433, "o", "\b\b\b\b\b\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[50;43H\u001b[36m\u001b[45mfalse\u001b[39;49m\u001b[51;34H\u001b[3m212\u001b[0m\u001b[39;49m\u001b[23m\u001bM\t\t\b\u001b[34h\u001b[?25h\u001b[34l"]
[1651.897915, "o", "\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[3;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within accents:= ¬ within accents;\u001b[4;13H      reaffer;\u001b[K\n\b\b\b\b\bwithin accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[8;19H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\u001b[9;19H              \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\r\n\t\t\t        \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[K\u001b[12;31H    \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\u001b[K\u001b[13;31H    ∧ i ≠ semicolon symbol ∧ ¬ empty\r\n\t\t\t          \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[15;19H      "]
[1651.899091, "o", "          empty:= \u001b[46mfalse\u001b[39;49m\u001b[16;13H                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[18;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[19;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[21;13H                  begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[K\u001b[22;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[23;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[25;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[12P\u001b[26;21H\u001b[36m\u001b[45mfalse\u001b[39;49m; reaffer;\u001b[27;7Hstow into stack(definitionstack,max of defstack,endmarker);\u001b[28;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;7Hnamestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of def"]
[1651.899409, "o", "stack\u001b[30;13H                \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\r\n\u001b[K\n\t\b\bmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= false;\u001b[34;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[35;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[36;13Hread formals;\u001b[K\u001b[37;13Hread block;\u001b[K\u001b[38;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[39;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[40;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[41;19Hread while(symbol = nlcr symbol\r\n\t\t\t   ∨ symbol = semicolon symbol);\u001b[K\u001b[43;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[K\u001b[44;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= t̲r̲u̲e̲\u001b[39;49m\u001b[K\u001b[45;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\u001b[K\r"]
[1651.899604, "o", "\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m p,par;\u001b[K\u001b[51;30H\u001b[3m8% L223\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1651.905991, "o", "\u001b[15;43H\u001b[?25lfalse\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1652.164292, "o", "\u001b[15;43H\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[33;40H\u001b[46mfalse\u001b[39;49m\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[1652.904931, "o", "\b\b\b\b\b\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[33;40H\u001b[36m\u001b[45mfalse\u001b[39;49m\u001b[51;35H\u001b[3m30\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;45H\u001b[34h\u001b[?25h\u001b[34l"]
[1653.357557, "o", "\u001b[2;13H\u001b[?25l      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m;\u001b[3;13H            bcntr:= \u001b[35m2\u001b[39;49m\u001b[K\u001b[4;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\breaffer;\u001b[K\u001b[6;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol\u001b[7;19Hopcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[8;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;19Hopcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;19Hread while(symbol = nlcr symbol ∨\u001b[11;30Hsymbol = semicolon symbol);\u001b[12;19Hlcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[13;19Hstow into stack(actualstack,max of actualstack,\u001b[K\u001b[14;19Hsymbol);\u001b[K\u001b[15;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[16;19H≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[17;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e"]
[1653.359487, "o", "̲n̲\u001b[0m\u001b[39;49m opcntr:=\r\n\t\t\t  opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[21;27Hopcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[22;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bcomplete actual parameter\r\n\t\t\b\u001b[33m;\u001b[39;49m\u001b[25;7H      reaffer;\u001b[26;7H      in actual mode:= \u001b[36m\u001b[45mfalse\u001b[39;49m\u001b[K\u001b[27;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\n\b\b\b\bymbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[30;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[32;19Hquotcntr:= \u001b[35m1\u001b[39;49m;\u001b[33;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[34;7H            "]
[1653.36072, "o", "lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[35;7H            bcntr:= \u001b[35m2\u001b[39;49m;\u001b[36;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[37;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[38;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[39;13H              quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[40;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[41;19H        quotcntr - \u001b[35m1\u001b[39;49m\u001b[K\u001b[42;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bcomplete actual parameter;\u001b[K\u001b[44;13H      reaffer;\u001b[K\u001b[45;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[46;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\r\n                                 ∨ symbol = semico"]
[1653.36189, "o", "lon symbol);\r\n\t\t\tERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m49% L297\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;35H\u001b[34h\u001b[?25h\u001b[34l"]
[1654.251177, "o", "\u001b[1;50r\u001b[2;1H\u001b[27M\u001b[1;52r"]
[1654.251281, "o", "\u001b[24;1H\u001b[?25l            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3025\u001b[39;49m);\u001b[K\r\n            in actual mode:= \u001b[36m\u001b[45mfalse\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      pointerptr:= auxptr;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3016\u001b[39;49m);\u001b[K\r\n            auxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            pointerstack[i]:= -\u001b[35m1\u001b[39;49m;\u001b[K\r\n            freeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K"]
[1654.251527, "o", "\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3001\u001b[39;49m);\u001b[K\r\n            read while(symbol ≠ nlcr symbol\u001b[K\r\n                     ∧ symbol ≠ semicolon symbol)\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\r\n      savestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[K\r\n            savestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[K\r\n            from actualstack:= false\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\u001b["]
[1654.251571, "o", "K\u001b[51;29H\u001b[3m54% L324\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;35H\u001b[34h\u001b[?25h\u001b[34l"]
[1654.524842, "o", "\u001b[49;32H\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[26;35H\u001b[34h\u001b[?25h\u001b[34l"]
[1655.031506, "o", "\b\b\b\b\b\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[49;32H\u001b[36m\u001b[45mfalse\u001b[39;49m\n\n\b\b\u001b[3m47\u001b[0m\u001b[39;49m\u001b[23m\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1655.855116, "o", "\u001b[2;7H\u001b[?25l      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[3;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;19Ht8J:= t8; Word:= actualstack[LLcntr];\u001b[K\u001b[5;19HWord:= Word - Word ÷ t16 × t16\u001b[6;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bfrom actualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[8;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bplace of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\u001b[K\u001b[10;7Hpointerptr:= pointerptr + definitionstack[namestack\u001b[11;7H[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m restore expansion;\u001b[39;49m\u001b[K\r\n\u001b[K\nif spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m"]
[1655.855864, "o", "\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[18;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[19;19Ht8J:= t16; Word:= actualstack[LLcntr]\u001b[20;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[22;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[23;13H      t8J:= t8J / t8\u001b[24;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= Word;\u001b[39;49m\u001b[K\u001b[25;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[36m\u001b[45mfalse\u001b[39;49m; s:= macro sym\u001b[27;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[28;7H\u001b[1m\u001b[36me̲n̲"]
[1655.856154, "o", "d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr: = bbcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[31;13H      word:= definitionstack[llcntr]\u001b[32;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= word ÷ t8j; word:= word - s × t8j;\u001b[35;7H            t8j:= t8j / t8\u001b[36;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[K\u001b[37;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[38;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[39;19HLLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b["]
[1655.856848, "o", "35m1\u001b[39;49m;\u001b[40;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= false;\r\n                  s := macro sym\u001b[42;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\u001b[12@\t\t\t\b\bptr:= saveptr - \u001b[35m6\u001b[39;49m;\u001b[K\u001b[45;7H            freeptr:= pointerptr;\u001b[46;7H            namestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[47;7H            -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[48;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[49;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= false; stow into buffer(ksiretsa)\u001b[50;7H\u001b[12@\u001b[50;28H\u001b[33mrestore expansion;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m67% L410\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;43H\u001b[34h\u001b[?25h\u001b[34l"]
[1656.132368, "o", "\u001b[40;58H\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[49;38H\u001b[46mfalse\u001b[39;49m\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[1656.562279, "o", "\b\b\b\b\b\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[40;58H\u001b[36m\u001b[45mfalse\u001b[39;49m\u001b[51;35H\u001b[3m24\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;63H\u001b[34h\u001b[?25h\u001b[34l"]
[1657.181606, "o", "\b\b\b\b\b\u001b[?25l\u001b[46mfalse\u001b[39;49m\u001b[49;38H\u001b[36m\u001b[45mfalse\u001b[39;49m\u001b[51;35H\u001b[3m33\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;43H\u001b[34h\u001b[?25h\u001b[34l"]
[1657.856534, "o", "\u001b[H\n\u001b[?25lmacro sym: = s\u001b[K\r\n\u001b[32m{lost indent above again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m macro sym;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\n\u001b[K\u001b[9;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s;\u001b[K\u001b[11;7H      s:= RESYM1;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[13;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\r\n                  prsym(s);\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[17;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m st"]
[1657.857402, "o", "ow into buffer(s);\u001b[K\u001b[18;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;19Hline number:= line number + \u001b[35m1\u001b[39;49m\u001b[K\u001b[21;13Hread and buffer:= s\u001b[22;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[25;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;19Hsymbol:= nextacc; accent read:= \u001b[36m\u001b[45mfalse\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[27;14H\u001b[1m\u001b[36ml̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\u001b[28;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[29;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\u001b[K\u001b[30;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\u001b[K\u001b[31;13H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[K\u001b[32;14H\u001b[1m\u001b[3"]
[1657.858162, "o", "6ml̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[33;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[35;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[36;13H        ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[37;7Hsymbol:= read and buffer;\u001b[K\u001b[38;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[39;7Hstow into stack(definitionstack,max of defstack,symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\u001b[47;7Hk:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b["]
[1657.858396, "o", "39;49m;\u001b[K\u001b[48;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[49;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol)\u001b[50;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m75% L465\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;56H\u001b[34h\u001b[?25h\u001b[34l"]
[1658.68078, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1658.681223, "o", "\u001b[26;1H\u001b[?25l      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[36m\u001b[45mfalse\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K"]
[1658.681717, "o", "\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\u001b[K\r\n      first symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[K\r\n      read while(first symbol ≠\u001b[K\r\n          (if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[K\r\n          (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39"]
[1658.681876, "o", ";49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\u001b[3m8% L490\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;28H\u001b[34h\u001b[?25h\u001b[34l"]
[1659.431443, "o", "\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[3;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[4;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[5;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[6;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[8;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[9;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[10;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[11;19Hstow into stack(stack,max,char)"]
[1659.4318, "o", "\u001b[12;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\tack[lcntr]:= stack[lcntr] × t8 + char;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      stow into stack(stack,max,o)\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;\u001b[K\u001b[25;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[26;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[36m\u001b[45mfal"]
[1659.431835, "o", "se\u001b[39;49m;\u001b[K\u001b[27;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[29;13Hj = j + \u001b[35m1\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                  list[pointer]:= word × t6 + symbol;\u001b[K\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[34;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\r\n            symbol:= letgit\u001b[K"]
[1659.432229, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[39;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m else list[pointer]:= word;\u001b[K\u001b[40;7Hpointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\r\n\u001b[6@\n\t\b\b      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[48;7H        stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[49;7H      stackptr:= stackptr - namestack["]
[1659.432257, "o", "stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[50;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m unstack macros;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m86% L538\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1659.897804, "o", "\u0007"]
[1659.898228, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41mfalse\u001b[39;49m\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1661.357831, "o", "\u001b[52;1H\u001b[K\u001b[26;33H"]
[1661.69314, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1661.693533, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[1661.709177, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲"]
[1661.709389, "o", "s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\r\n      asterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\r\n      stackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\r\n      namestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\r\n      freeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formall"]
[1661.709462, "o", "ist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);"]
[1661.710184, "o", "\r\n            bcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\r\n            store letgits(namestack,stackptr,max of namestack,reaffer);\r\n            ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\r\n            stackptr:= stackptr + \u001b[35m2\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[46;7H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m302"]
[1661.71028, "o", "3\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1662.516942, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1663.06236, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[1663.459423, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1663.934943, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1664.169167, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1664.510819, "o", "\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[1664.748701, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[1664.85631, "o", "\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[1665.124264, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1666.309462, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1666.511586, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[1667.027126, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[1667.69436, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/false/z5)\u001b[34h\u001b[?25h\u001b[34l"]
[1668.227569, "o", "\r\t\b\b\u001b[?25l(f/false/z5)0\u001b[34h\u001b[?25h\u001b[34l"]
[1671.024431, "o", "\r"]
[1671.06052, "o", "\u001b[K\u001b[2d"]
[1671.085618, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[1671.086267, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b"]
[1671.087405, "o", "[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L612\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1672.53385, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[1672.534243, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1672.922001, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1673.324406, "o", "\u001b[?25l-\u001b[34h\u001b[?25h\u001b[34l"]
[1673.813043, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1673.950765, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1674.173012, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1674.502993, "o", "\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[1674.786952, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[1675.03802, "o", "\u001b[C"]
[1675.278762, "o", "\u001b[?25lb\u001b[34h\u001b[?25h\u001b[34l"]
[1675.562172, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[1675.874422, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[1676.031648, "o", "\u001b[?25lc\u001b[34h\u001b[?25h\u001b[34l"]
[1676.224149, "o", "\u001b[?25lk\u001b[34h\u001b[?25h\u001b[34l"]
[1677.165324, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1677.40228, "o", "\r"]
[1677.436336, "o", "\u001b[?25l* Failure: m\u001b[K\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1677.464905, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[1677.465372, "o", "\r\n                                  ∧ i ≠ semicolon symbol ∧ ¬ empty\r\n                                  \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[4;35Hempty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                                \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[7;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[8;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[10;7H                        begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[11;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bin def mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; reaffer;\u001b[K\u001b[16;7Hstow into stac"]
[1677.465456, "o", "k(definitionstack,max of defstack,endmarker);\u001b[17;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;7Hnamestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[K\u001b[19;19H          \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[23;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[24;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\r\n            read formals;\u001b[26;13Hread block;\u001b[27;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[28;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[29;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[30;19Hread while(symbol = nlcr symbol\u001b[31;28H∨ symbol = semicolon symbol);\u001b[32;19HERR"]
[1677.465499, "o", "OR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[33;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= t̲r̲u̲e̲\u001b[39;49m\u001b[34;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bpr tape symbol:= space symbol\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m p,par;\u001b[40;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,opcntr,quotcntr,savel,auxptr;\u001b[43;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[44;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[45;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[46;13H\u001b[1m\u001b["]
[1677.465529, "o", "36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[47;19Hbcntr:= bcntr - l\u001b[48;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[50;13Hendmarker);\u001b[51;29H\u001b[3m40% L234\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[1680.337568, "o", "\u001b[52;1H\u001b[K\u001b[2;13H\u001b[?25lstow into stack(actualstack,max of actualstack,\u001b[K\u001b[3;13Hendmarker);\u001b[K\u001b[4;13Hfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[5;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[K\u001b[7;19Hpointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[K\u001b[12;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[13;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7H      opcntr:= \u001b[35m1\u001b[39;49m;\u001b[15;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[16;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[K"]
[1680.337662, "o", "\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m;"]
[1680.337687, "o", "\r\n"]
[1680.337708, "o", "\t"]
[1680.33773, "o", "\t\tbcntr:= \u001b[35m2\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\breaffer;\u001b[22;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[23;7H            opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[24;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[25;13H      opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[26;13H      read while(symbol = nlcr symbol ∨\u001b[27;13H                 symbol = semicolon symbol);\u001b[28;13H      lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[29;13H      stow into stack(actualstack,max of actualstack,\u001b[30;19Hsymbol);\u001b[K\u001b[31;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[32;19H≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K"]
[1680.337765, "o", "\u001b[34;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[35;7H                    opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m"]
[1680.339471, "o", "\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[37;27Hopcntr - \u001b[35m1\u001b[39;49m\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  complete actual parameter\u001b[40;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[41;7H      reaffer;\u001b[K\u001b[42;13Hin actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[43;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[44;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[47;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[48;13H      quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[49;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[3"]
[1680.339539, "o", "9;49m\u001b[K\u001b[50;13H      lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[51;30H\u001b[3m7% L257\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1681.724934, "o", "\u001b[2;13H\u001b[?25l                      ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[3;13H                      \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[4;13H                      empty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[5;13H                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;13H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[7;19H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[8;13H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[10;31Hbegcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[11;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[12;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bin def mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; reaffer;\u001b[K\u001b[16;7Hstow into stack(definitionstack,max o"]
[1681.725966, "o", "f defstack,endmarker);\u001b[17;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;7Hnamestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[K\r\n\t\t\t    \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m else lcntr + \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[23;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[25;13Hread formals;\u001b[K\u001b[26;13Hread block;\u001b[K\u001b[27;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[28;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[29;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[30;19Hread while(symbol = nlcr symbol\u001b[31;19H         ∨ symbol = semicolon symbol);\u001b[K\u001b[32;19HERROR(symbo"]
[1681.726186, "o", "l < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[33;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= t̲r̲u̲e̲\u001b[39;49m\u001b[34;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m p,par;\u001b[K\u001b[40;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,opcntr,quotcntr,savel,auxptr;\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[44;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[45;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;"]
[1681.72634, "o", "49m\u001b[46;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[47;13H      bcntr:= bcntr - l\u001b[K\u001b[48;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[50;13Hendmarker);\u001b[K\u001b[51;30H\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1682.298875, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1682.767011, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1682.799439, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1682.83465, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1682.86218, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1682.897051, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1682.928067, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1682.963695, "o", "\u001b[51;35H\u001b[?25l\u001b[3m49\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1682.997057, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.029011, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.061823, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.091691, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.128104, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.162009, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.193755, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.231126, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.261767, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.294538, "o", "\u001b[51;35H\u001b[?25l\u001b[3m39\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.328605, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.35661, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.388436, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.422269, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.455576, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.490471, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.490839, "o", "\u001b[52d\u001b[?25lAuto-saving...\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.491503, "o", "\u001b[52;15H\u001b[?25ldone\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.518605, "o", "\u001b[52d\u001b[K\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1683.553082, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1684.138088, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1691.704474, "o", "\u001b[51;35H\u001b[?25l\u001b[3m29\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1692.902225, "o", "\u001b[?25l{\u001b[34h\u001b[?25h\u001b[34l"]
[1693.00617, "o", "\b\u001b[?25l\u001b[32m\u001b[46m{\u001b[39;49m\u001b[32m}\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1693.957414, "o", "\r\u001b[?25l\u001b[32m{\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1695.438729, "o", "\u001b[?25l\u001b[32mp}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1695.608078, "o", "\u001b[?25l\u001b[32mr}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1695.822154, "o", "\u001b[?25l\u001b[32mo}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1696.029119, "o", "\u001b[?25l\u001b[32mc}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1696.172523, "o", "\u001b[?25l\u001b[32m }\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1696.385382, "o", "\u001b[?25l\u001b[32ma}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1696.525063, "o", "\u001b[?25l\u001b[32mb}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1697.075959, "o", "\u001b[?25l\u001b[32mo}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1697.402567, "o", "\u001b[?25l\u001b[32mv}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1697.501282, "o", "\u001b[?25l\u001b[32me}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1697.639977, "o", "\u001b[?25l\u001b[32m }\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1697.810516, "o", "\u001b[?25l\u001b[32ms}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1698.013364, "o", "\u001b[?25l\u001b[32mh}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1698.300143, "o", "\u001b[?25l\u001b[32mo}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1698.567185, "o", "\u001b[?25l\u001b[32mu}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1699.612483, "o", "\u001b[?25l\u001b[32ml}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1699.682035, "o", "\u001b[?25l\u001b[32md}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1699.998994, "o", "\u001b[?25l\u001b[32m }\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1700.363278, "o", "\u001b[?25l\u001b[32mb}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1700.442576, "o", "\u001b[?25l\u001b[32me}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1700.575166, "o", "\u001b[?25l\u001b[32m }\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1700.871775, "o", "\u001b[?25l\u001b[32mi}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1701.112367, "o", "\u001b[?25l\u001b[32mn}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1701.190166, "o", "\u001b[?25l\u001b[32md}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1701.365876, "o", "\u001b[?25l\u001b[32me}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1701.61149, "o", "\u001b[?25l\u001b[32mn}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1701.729619, "o", "\u001b[?25l\u001b[32mt}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1702.001832, "o", "\u001b[?25l\u001b[32me}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1702.250022, "o", "\u001b[?25l\u001b[32md}\u001b[39;49m\b\u001b[34h\u001b[?25h\u001b[34l"]
[1706.466329, "o", "\t\b"]
[1707.072228, "o", "\u001b[51;35H\u001b[?25l\u001b[3m30\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1711.382545, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1717.766495, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1718.171109, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1719.392697, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1720.688693, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1721.107207, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1723.113072, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1724.048115, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1745.415098, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1748.639338, "o", "\u001b[51;35H\u001b[?25l\u001b[3m40\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1753.886292, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1756.687784, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1758.040257, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1772.662063, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1772.959674, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1773.275079, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1774.469715, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1775.28388, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1777.501722, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;21H\u001b[34h\u001b[?25h\u001b[34l"]
[1777.93959, "o", "\u001b[1;50r\u001b[41;1H\u001b[1L\u001b[1;52r"]
[1777.940053, "o", "\u001b[40;1H\u001b[K\n\u001b[?25l      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\u001b[51;36H\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1779.124283, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1780.236058, "o", "\u001b[51;35H\u001b[?25l\u001b[3m50\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1781.319545, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1781.766218, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1787.388165, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1789.837692, "o", "\u001b[1;50r\u001b[45;1H\u001b[1L\u001b[1;52r"]
[1789.838147, "o", "\u001b[44;1H\u001b[K\n\u001b[?25l      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[K\u001b[51;36H\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1791.268267, "o", "\u001b[?25l{\u001b[34h\u001b[?25h\u001b[34l"]
[1791.963164, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[1792.174608, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[1792.330474, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[1792.545376, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1792.926799, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[1793.029067, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[1793.16893, "o", "\t"]
[1793.62412, "o", "\b\u001b[?25l p\u001b[34h\u001b[?25h\u001b[34l"]
[1793.751258, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1793.913047, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[1794.207084, "o", "\u001b[?25lc\u001b[34h\u001b[?25h\u001b[34l"]
[1794.47355, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1794.672842, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[1795.000019, "o", "\u001b[?25lu\u001b[34h\u001b[?25h\u001b[34l"]
[1795.104667, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1795.296079, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1795.426868, "o", "\u001b[C"]
[1795.715814, "o", "\b\u001b[?25l b\u001b[34h\u001b[?25h\u001b[34l"]
[1795.825018, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1796.380651, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[1796.579109, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[1796.657187, "o", "\u001b[?25lw\u001b[34h\u001b[?25h\u001b[34l"]
[1797.237283, "o", "\r\u001b[?25l\u001b[32m\u001b[46m{\u001b[39;49m\u001b[32mindent procedure below}\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1798.238184, "o", "\r\u001b[?25l\u001b[32m{\u001b[39;49m\t\t\t\u001b[34h\u001b[?25h\u001b[34l"]
[1798.733584, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1799.277407, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1802.745038, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1806.290919, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1810.188459, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1812.728576, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1813.235516, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1813.235971, "o", "\u001b[26;1H\u001b[?25l            stow into stack(actualstack,max of actualstack,\u001b[K\r\n            endmarker);\u001b[K\r\n            freeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[K\r\n                  pointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\u001b[K\r\n\u001b[K\n      auxptr:= freeptr;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n            opcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b["]
[1813.236408, "o", "35m3013\u001b[39;49m);\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m;\u001b[K\r\n                        bcntr:= \u001b[35m2\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  reaffer;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[K\r\n                  read while(symbol = nlcr symbol ∨\u001b[K\u001b[51;30H\u001b[3m4% L259\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1818.203498, "o", "\u001b[51;35H\u001b[?25l\u001b[3m60\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1819.253713, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1819.664738, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1821.868693, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1823.580791, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1824.184469, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1825.204581, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1827.407631, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1827.713139, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1832.941941, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1836.521652, "o", "\u001b[51;35H\u001b[?25l\u001b[3m70\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1839.271578, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1840.686939, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1842.828554, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1849.323311, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1852.647254, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1857.022502, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1857.36063, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1858.86729, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1859.677849, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1862.380127, "o", "\u001b[51;35H\u001b[?25l\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1867.803037, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1868.23096, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1869.760613, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1870.716346, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[1870.716657, "o", "\u001b[26;1H\u001b[?25l                             symbol = semicolon symbol);\u001b[K\r\n                  lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\r\n                  stow into stack(actualstack,max of actualstack,\u001b[K\r\n                  symbol);\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[K\r\n                  ≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[K\r\n                          opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[K\r\n                          opcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  complete actual para"]
[1870.717247, "o", "meter\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            reaffer;\u001b[K\r\n            in actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[K\r\n                  quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m else lcntr:= savel;\u001b[K\r\n                  bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\n\u001b[C\u001b[3m7% L284\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1871.952685, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1878.916857, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1879.223528, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1879.675354, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1892.675845, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1894.128038, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1897.157461, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1897.664707, "o", "\u001b[51;35H\u001b[?25l\u001b[3m90\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1898.533926, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1899.545525, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1899.89792, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1900.540874, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1900.935582, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1901.344846, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1902.491617, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1903.254873, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1903.681471, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1904.151853, "o", "\u001b[51;34H\u001b[?25l\u001b[3m300\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1904.152512, "o", "\u001b[52d\u001b[?25lAuto-saving...\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1904.153748, "o", "\u001b[52;15H\u001b[?25ldone\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1905.757656, "o", "\u001b[52d\u001b[K\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1914.685983, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1917.579951, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1920.71181, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1922.090997, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1923.212784, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1924.188493, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1926.747251, "o", "\u001b[C"]
[1927.23592, "o", "\u001b[C"]
[1927.268552, "o", "\u001b[C"]
[1927.302062, "o", "\u001b[C"]
[1927.335051, "o", "\u001b[C"]
[1927.36848, "o", "\u001b[C"]
[1927.404991, "o", "\t\b"]
[1927.430521, "o", "\t"]
[1927.46424, "o", "\u001b[C"]
[1927.49876, "o", "\u001b[C"]
[1927.533795, "o", "\u001b[C"]
[1927.563636, "o", "\u001b[C"]
[1927.591601, "o", "\u001b[C"]
[1927.625533, "o", "\u001b[C"]
[1927.658635, "o", "\t\b"]
[1927.692468, "o", "\t"]
[1927.726969, "o", "\u001b[C"]
[1927.757662, "o", "\u001b[C"]
[1927.787341, "o", "\u001b[C"]
[1927.818952, "o", "\u001b[C"]
[1927.852578, "o", "\u001b[C"]
[1927.884354, "o", "\u001b[C"]
[1927.914622, "o", "\t\b"]
[1927.948485, "o", "\t"]
[1927.981694, "o", "\u001b[C"]
[1928.01465, "o", "\u001b[C"]
[1928.047095, "o", "\u001b[C"]
[1928.081026, "o", "\u001b[C"]
[1928.114297, "o", "\u001b[C"]
[1928.146787, "o", "\u001b[C"]
[1928.180107, "o", "\t\b"]
[1928.210983, "o", "\t"]
[1928.241844, "o", "\u001b[C"]
[1928.274054, "o", "\u001b[C"]
[1928.308915, "o", "\u001b[C"]
[1928.341739, "o", "\u001b[C"]
[1928.374514, "o", "\u001b[C"]
[1928.403235, "o", "\u001b[C"]
[1928.436894, "o", "\t\b"]
[1928.46998, "o", "\t"]
[1928.503999, "o", "\u001b[C"]
[1928.536953, "o", "\u001b[C"]
[1928.565105, "o", "\u001b[C"]
[1928.598509, "o", "\u001b[C"]
[1928.633608, "o", "\u001b[C"]
[1928.666254, "o", "\u001b[C"]
[1928.697964, "o", "\t\b"]
[1928.727028, "o", "\t"]
[1928.765903, "o", "\u001b[C"]
[1928.792347, "o", "\u001b[C"]
[1928.833927, "o", "\u001b[C"]
[1928.858322, "o", "\u001b[C"]
[1930.73076, "o", "\r\n\n\n\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[1930.731191, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1931.21602, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[1931.83876, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[1932.293502, "o", "\r"]
[1932.334414, "o", "\u001b[K\u001b[49;53H"]
[1932.363513, "o", "\u001b[1;48r\u001b[2;1H\u001b[23M\u001b[1;52r\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[1932.363979, "o", "\u001b[26;1H                  lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m lcntr:= savel;\u001b[K\r\n                  bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[K\r\n                          quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[K\r\n                          quotcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  complete actual parameter;\u001b[K\r\n                  reaffer;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b"]
[1932.365152, "o", "[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[K\r\n                                 ∨ symbol = semicolon symbol);\u001b[K\r\n                        ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3025\u001b[39;49m);\u001b[K\r\n            in actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      pointerptr:= auxptr;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[49;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3016\u001b[39;49m);\u001b[K\u001b[50;13Hauxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[51;29H\u001b[3m51\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;5"]
[1932.366181, "o", "7H\u001b[34h\u001b[?25h\u001b[34l"]
[1934.265944, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;29H\u001b[34h\u001b[?25h\u001b[34l"]
[1934.971246, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1939.954619, "o", "\u001b[51;35H\u001b[?25l\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1945.123769, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1945.142804, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1945.711174, "o", "\u001b[52;12H"]
[1945.711586, "o", "\u001b[29;1H"]
[1945.733149, "o", "\u001b[?25l\u001b[36m\u001b[45m                  \u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1945.950399, "o", "\u001b[52;12H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1945.951007, "o", "\u001b[29;19H"]
[1945.970334, "o", "\r\u001b[?25l                  \u001b[31;39H\u001b[36m\u001b[45m \u001b[39;49m\u001b[1m\u001b[36m\u001b[45me̲\u001b[0m\u001b[39;49m\u001b[51;36H\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;41H\u001b[34h\u001b[?25h\u001b[34l"]
[1946.170155, "o", "\u001b[52;13H\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[1946.173374, "o", "\u001b[31;41H"]
[1946.216269, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[3;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[4;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\u001b[K\u001b[5;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\u001b[7;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\u001b[K\u001b[8;13H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[9;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[10;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[K\u001b[13;21H∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md"]
[1946.216588, "o", "̲o̲\u001b[0m\u001b[39;49m\u001b[14;7Hsymbol:= read and buffer;\u001b[15;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\u001b[24;7Hk:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[25;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[26;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m\u001b[36m\u001b[45m el\u001b[39;49mse symbol)\u001b[27;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b"]
[1946.216707, "o", "\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b"]
[1946.216908, "o", "[0m\u001b[39;49m i, first symbol;\u001b[K\u001b[39;7Hfirst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[K\u001b[40;7Hread while(first symbol ≠\u001b[K\u001b[41;11H(if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[42;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[43;11H(if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[49;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[50;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m"]
[1946.216995, "o", " SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3m78% L490\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;63H\u001b[34h\u001b[?25h\u001b[34l"]
[1946.283557, "o", "\u001b[52;14H\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[1946.2837, "o", "\u001b[26;63H"]
[1946.31854, "o", "\u001b[?25l\u001b[36m\u001b[45ms\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1946.492746, "o", "\u001b[52;15H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1946.493143, "o", "\u001b[26;64H"]
[1946.514604, "o", "\u001b[?25l\u001b[36m\u001b[45me\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1946.784449, "o", "\u001b[29;50H\u001b[?25l\u001b[46m else\u001b[39;49m\u001b[34;56H\u001b[46m else\u001b[39;49m\u001b[41;57H\u001b[46m else\u001b[39;49m\n\n\b\b\b\b\b\u001b[46m else\u001b[39;49m\u001b[26;65H\u001b[34h\u001b[?25h\u001b[34l"]
[1947.753271, "o", "\b\b\b\b\b\u001b[?25l\u001b[46m else\u001b[39;49m\u001b[29;50H\u001b[36m\u001b[45m else\u001b[39;49m\u001b[51;36H\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;55H\u001b[34h\u001b[?25h\u001b[34l"]
[1948.996653, "o", "\b\b\b\b\b\u001b[?25l\u001b[46m else\u001b[39;49m\u001b[34;56H\u001b[36m\u001b[45m else\u001b[39;49m\u001b[51;36H\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;61H\u001b[34h\u001b[?25h\u001b[34l"]
[1950.905444, "o", "\u001b[52;1H\u001b[K\u001b[34;61H"]
[1951.167753, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[34;61H\u001b[34h\u001b[?25h\u001b[34l"]
[1951.168269, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[34;61H\u001b[34h\u001b[?25h\u001b[34l"]
[1951.177794, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[1951.178414, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\r\n      max of pointerstack:= \u001b[35m128\u001b[39;49m;\r\n      max of savestack:= \u001b[35m120\u001b[39;49m;\r\n      asterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\r\n      stackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\r\n      namestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\r\n\t\b\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;"]
[1951.178981, "o", "49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\n\u001b[6@\u001b[32;22Hname;\u001b[K\r\n\u001b[6@\u001b[33;21Hsave;\r\n            ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\r\n            lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\r\n            store letgits(namestack,stackptr,max of namestack,reaffer);\r\n            ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;11H  stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\n          "]
[1951.179157, "o", "  \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1951.651108, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1951.666921, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1951.916636, "o", "\u001b[52;12H\u001b[?25lelse\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1951.951782, "o", "\u001b[?25l                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\u001b[K\r\n                                \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\u001b[K\r\n                                \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\r\n                                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\u001b[K\r\n                                  ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[10;35H\u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);"]
[1951.952092, "o", "\r\n                                  empty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                                \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;7H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[15;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[16;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[17;7H                        begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[18;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bin def mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; reaffer\u001b[23;7Hstow into stack(definitionstack,max of defstack,endmarker);\u001b[24;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b["]
[1951.952199, "o", "1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n      namestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[26;29H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m\u001b[36m\u001b[45m else\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[32m{proc above should be indented}\u001b[39;49m\u001b[K\u001b[29;7Hmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[30;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[32;7H      read formals;\u001b[K\u001b[33;7H      read block;\u001b[K\u001b[34;13Hread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[35;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[36;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[37;13H      read while(symbol = nlcr symbol\u001b[K\u001b[38;13H               ∨ symbol = semicolon symbol\u001b[39;13H      ERROR(symbol < \u001b[35"]
[1951.95223, "o", "m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[40;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= t̲r̲u̲e̲\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m p,par;\u001b[K\u001b[48;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\u001b[49;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,opcntr,quotcntr,savel,auxptr;\r\n\u001b[K\u001b[51;29H\u001b[3m38% L227\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;41H\u001b[34h\u001b[?25h\u001b[34l"]
[1953.491541, "o", "\u001b[2;7H\u001b[12P\t\t\b\u001b[?25laccent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[3;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\u001b[K\u001b[5;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\u001b[7;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\u001b[K\u001b[8;13H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[K\u001b[9;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[13;21H∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[14;7Hsymbol:= read and buffer;\u001b[K"]
[1953.492982, "o", "\u001b[15;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\u001b[24;7Hk:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[25;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m\u001b[36m\u001b[45m else\u001b[39;49m symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compa"]
[1953.493631, "o", "re:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[29;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer else NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\u001b[K\u001b[39;7Hfirst symbol"]
[1953.49414, "o", ":= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[K\u001b[40;7Hread while(first symbol ≠\u001b[K\u001b[41;7H    (if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol));\u001b[42;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\r\n          (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m else symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[49;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[K\u001b[50;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1"]
[1953.49423, "o", "m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3m78% L490\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;65H\u001b[34h\u001b[?25h\u001b[34l"]
[1953.774184, "o", "\u001b[29;50H\u001b[?25l\u001b[46m else\u001b[39;49m\u001b[34;56H\u001b[46m else\u001b[39;49m\u001b[41;57H\u001b[46m else\u001b[39;49m\n\n\b\b\b\b\b\u001b[46m else\u001b[39;49m\u001b[26;65H\u001b[34h\u001b[?25h\u001b[34l"]
[1954.478703, "o", "\b\b\b\b\b\u001b[?25l\u001b[46m else\u001b[39;49m\u001b[29;50H\u001b[36m\u001b[45m else\u001b[39;49m\u001b[51;36H\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;55H\u001b[34h\u001b[?25h\u001b[34l"]
[1955.337881, "o", "\b\b\b\b\b\u001b[?25l\u001b[46m else\u001b[39;49m\u001b[34;56H\u001b[36m\u001b[45m else\u001b[39;49m\u001b[51;36H\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;61H\u001b[34h\u001b[?25h\u001b[34l"]
[1956.138784, "o", "\b\b\b\b\b\u001b[?25l\u001b[46m else\u001b[39;49m\u001b[41;57H\u001b[36m\u001b[45m else\u001b[39;49m\u001b[51;34H\u001b[3m505\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;62H\u001b[34h\u001b[?25h\u001b[34l"]
[1957.131271, "o", "\b\b\b\b\b\u001b[?25l\u001b[46m else\u001b[39;49m\n\n\b\b\b\b\b\u001b[36m\u001b[45m else\u001b[39;49m\u001b[51;36H\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;62H\u001b[34h\u001b[?25h\u001b[34l"]
[1957.706839, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[3;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;7Hstow into stack(stack,max,o)\u001b[K\u001b[5;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;\u001b[K\u001b[12;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\u001b[13;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K"]
[1957.707193, "o", "\u001b[14;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[15;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[16;7H      j = j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                  list[pointer]:= word × t6 + symbol;\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[21;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\r\n            symbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1"]
[1957.7073, "o", "m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[26;10Hpointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[36m\u001b[45m else\u001b[39;49m list[pointer]:= word;\u001b[K\u001b[27;7Hpointer:= pointer + \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\u001b[30;5H\u001b[33mstore letgits;\u001b[39;49m\r\n\n\u001b[6@\t\tunstack macros;\u001b[K\r\n\u001b[6@\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\r\n              stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[36;13Hstackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m unstack macros;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[K\u001b[40;7H\u001b["]
[1957.707757, "o", "1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[K\r\n\t\t\b,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[45;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                           ∧ symbol ≠ apostrophe symbol);\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[49;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[K\u001b[50;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3m88% L553\u001b[0"]
[1957.707908, "o", "m\u001b[39;49m\u001b[23m\u001b[26;45H\u001b[34h\u001b[?25h\u001b[34l"]
[1958.668379, "o", "\u0007"]
[1958.668908, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41m else\u001b[39;49m\u001b[26;45H\u001b[34h\u001b[?25h\u001b[34l"]
[1960.119774, "o", "\u001b[52;1H\u001b[K\u001b[26;45H"]
[1960.437232, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;45H\u001b[34h\u001b[?25h\u001b[34l"]
[1960.437676, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[26;45H\u001b[34h\u001b[?25h\u001b[34l"]
[1960.451931, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:=\u001b[12@ accent read\u001b[14;7Hmax of namestac"]
[1960.452194, "o", "k:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\r\n      freeptr:= \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\n\t\trea"]
[1960.45228, "o", "d name;\u001b[K\n\b\b\b\b\b\bsave;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[37;7H      store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[6P\u001b[49;22H= acce"]
[1960.452342, "o", "nt symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1962.498096, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[K\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[1962.498482, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[1963.394059, "o", "\u001b[?25l(\u001b[34h\u001b[?25h\u001b[34l"]
[1963.720776, "o", "\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[1964.115147, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1964.54479, "o", "\u001b[C"]
[1964.693744, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1964.987631, "o", "\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[1965.110255, "o", "\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[1965.324714, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1965.441438, "o", "\t\b"]
[1966.336871, "o", "\u001b[?25l/\u001b[34h\u001b[?25h\u001b[34l"]
[1966.634604, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1967.023932, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[1967.578535, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[1968.07776, "o", "\r\t\b\b\u001b[?25l\u001b[46m(\u001b[39;49mf/ else /rz4)\u001b[34h\u001b[?25h\u001b[34l"]
[1968.423781, "o", "\r\t\b\b\u001b[?25l(f/ else /rz4)0\u001b[34h\u001b[?25h\u001b[34l"]
[1972.200582, "o", "\r"]
[1972.228281, "o", "\u001b[K\u001b[2d"]
[1972.253482, "o", "\u001bM\t\t\t\t\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[1972.253848, "o", "\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[C\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\r\n      linecounter:= o;\u001b[K\r\n      skip \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[15;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[16;7H            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b"]
[1972.254259, "o", "[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[19;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[20;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H      read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol)\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\brunout; runout\u001b[25;5H\u001b[33mprint elantext;\u001b[39;49m\u001b[K\r\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\n\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot L614\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1973.673852, "o", "\u001b[52d\u001b[?25lMark set\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1973.703007, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[C\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲"]
[1973.703365, "o", "e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;5H\u001b[33minitialize macro variables;\u001b[39;49m\r\n\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[32;7"]
[1973.703657, "o", "H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m"]
[1973.703778, "o", " \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1974.344589, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1974.360916, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1974.679432, "o", "\u001b[52;11H\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[1974.680003, "o", "\u001b[H\n"]
[1974.689418, "o", "\t\b\b\u001b[?25l\u001b[1m\u001b[36m\u001b[45mr̲\u001b[0m\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1974.917542, "o", "\u001b[52;12H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[1974.917947, "o", "\u001b[2;8H"]
[1974.932252, "o", "\b\u001b[?25l\u001b[1m\u001b[36mr̲\u001b[0m\u001b[39;49m\u001b[3;44H\u001b[36m\u001b[45mre\u001b[39;49m\u001b[51;34H\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[3;46H\u001b[34h\u001b[?25h\u001b[34l"]
[1975.198388, "o", "\u001b[5;70H\u001b[?25l\u001b[46mre\u001b[39;49m\u001b[7;21H\u001b[46mre\u001b[39;49m\u001b[13;33H\u001b[46mre\u001b[39;49m\u001b[19;26H\u001b[46mre\u001b[39;49m\u001b[24;8H\u001b[46mre\u001b[39;49m\u001b[32;17H\u001b[46mre\u001b[39;49m"]
[1975.198864, "o", "\u001b[37;16H\u001b[46mre\u001b[39;49m letgits(namestack,stackptr,max of namestack,\u001b[46mre\u001b[39;49m\u001b[42;11H\u001b[33m\u001b[46mre\u001b[39;49m\n\n\t\u001b[46mre\u001b[39;49m\u001b[48;31H\u001b[46mre\u001b[39;49m\u001b[3;46H\u001b[34h\u001b[?25h\u001b[34l\u001b[52;13H\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l\u001b[3;46H"]
[1975.210448, "o", "\b\b\u001b[?25l\u001b[46mre\u001b[39;49m\u001b[7;21H\u001b[36m\u001b[45mrea\u001b[39;49m\u001b[51;34H\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[1975.219471, "o", "\u001b[3;44H\u001b[?25lre\u001b[5;70Hre\u001b[13;33Hre\u001b[19;26Hre\u001b[24;8Hre\u001b[32;17Hre"]
[1975.220222, "o", "\u001b[37;16Hre letgits(namestack,stackptr,max of namestack,re\u001b[42;11H\u001b[33mre\u001b[39;49m\n\n\tre\u001b[48;31Hre\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[1975.426151, "o", "\u001b[52;14H\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[1975.426601, "o", "\u001b[7;24H"]
[1975.438127, "o", "\u001b[?25l\u001b[36m\u001b[45md\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1975.56423, "o", "\u001b[52;16H"]
[1975.564706, "o", "\u001b[7;25H"]
[1975.587202, "o", "\b\b\b\b\u001b[?25lread\u001b[32;17H\u001b[36m\u001b[45mread \u001b[39;49m\u001b[51;34H\u001b[3m31\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;22H\u001b[34h\u001b[?25h\u001b[34l"]
[1975.707819, "o", "\u001b[52;16H\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[1975.708382, "o", "\u001b[32;22H"]
[1975.746318, "o", "\u001b[H\n\u001b[?25l      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      namestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m > max of defstack\u001b[K\r\n                            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[32m{proc above should be indented}\u001b[39;49m\u001b[K\r\n      max of formallist:= \u001b[35m127\u001b[39;49m; empty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[10;13Hread formals;\r\n            read block;\u001b[K\r\n            read while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[13;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b["]
[1975.747447, "o", "15;7H            read while(symbol = nlcr symbol\u001b[16;7H                     ∨ symbol = semicolon symbol);\u001b[17;7H            ERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[18;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= t̲r̲u̲e̲\u001b[39;49m\u001b[19;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m p,par;\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45mread a\u001b[39;49mctuals;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,opcntr,quotcntr,savel,auxptr;\r\n\u001b[K\n\u001b[32m{indent procedure below}\u001b[39;49m\u001b[30;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m"]
[1975.747754, "o", "0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[32;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[33;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[34;13H      bcntr:= bcntr - l\u001b[K\u001b[35;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[37;13Hendmarker);\u001b[K\u001b[38;13Hfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[39;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[40;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[K\u001b[41;13H      pointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[42;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[K\u001b[46;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[47;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in act"]
[1975.74785, "o", "ual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[48;13Hopcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n\t\t\tfreeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[51;29H\u001b[3m42% L249\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[1975.94196, "o", "\u001b[52;17H\u001b[?25lc\u001b[34h\u001b[?25h\u001b[34l"]
[1975.942396, "o", "\u001b[26;23H"]
[1975.962754, "o", "\u001b[?25l\u001b[36m\u001b[45mc\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1976.207071, "o", "\u001b[52;18H\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[1976.207466, "o", "\u001b[26;24H"]
[1976.226864, "o", "\u001b[?25l\u001b[36m\u001b[45mt\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1976.457814, "o", "\u001b[52;19H\u001b[?25lu\u001b[34h\u001b[?25h\u001b[34l"]
[1976.458289, "o", "\u001b[26;25H"]
[1976.47554, "o", "\u001b[?25l\u001b[36m\u001b[45mu\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1976.64865, "o", "\u001b[52;20H\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[1976.649001, "o", "\u001b[26;26H"]
[1976.663996, "o", "\u001b[?25l\u001b[36m\u001b[45ma\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[1978.089644, "o", "\u001b[2;7H\u001b[?25l            reaffer;\u001b[K\u001b[3;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\r\n                                 ∨ symbol = semicolon symbol);\r\n                        ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\u001b[7;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[8;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[9;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[10;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3025\u001b[39;49m);\u001b[11;13Hin actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[12;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[14;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[15;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3016\u001b[39;49m);\u001b[K\u001b[16;13Hauxptr"]
[1978.090083, "o", ":= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[17;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;13Hpointerstack[i]:= -\u001b[35m1\u001b[39;49m;\u001b[19;7H      freeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[20;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3001\u001b[39;49m);\r\n            read while(symbol ≠ nlcr symbol\r\n                     ∧ symbol ≠ semicolon symbol)\u001b[25;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m \u001b[39;49m\u001b[36m\u001b[45mread actua\u001b[39;49m\u001b[33mls;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[30;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[K\u001b[31;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt"]
[1978.090194, "o", "̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[32;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[K\u001b[33;13Hsavestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[K\u001b[34;13Hfrom actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[35;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store expansion;\u001b[39;49m\u001b[K\r\n\u001b[32m{indents missing above}\u001b[39;49m\u001b[38;7HERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\u001b[39;7Hp:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\u001b[40;7Hpar:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[41;7Hread actuals;\u001b[K\u001b[42;7Hnamestack[place of name+ \u001b[35m1\u001b[39;49m]:= -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[43;7Hsavestack[saveptr + \u001b[35m4\u001b[39;49m]:= place of name;\u001b[44;7Hsavestack[saveptr + \u001b[35m5\u001b[39;49m]:= symbol;\u001b[45;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from macro \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m store expansion \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[46;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b"]
[1978.090273, "o", "[0m\u001b[39;49m from macro:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; stow into buffer(asterisk) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[47;7Hsaveptr:= saveptr + \u001b[35m6\u001b[39;49m; bbcntr:= \u001b[35m1\u001b[39;49m; llcntr:= p;\u001b[48;7Hpr tape symbol:= space symbol;\u001b[49;7Hsymbol:= macro sym;\u001b[K\u001b[50;7Hstow into buffer(symbol)\u001b[K\n\b\b\u001b[3m56% L341\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;15H\u001b[34h\u001b[?25h\u001b[34l"]
[1978.361075, "o", "\u001b[41;7H\u001b[?25l\u001b[46mread actua\u001b[39;49m\u001b[26;15H\u001b[34h\u001b[?25h\u001b[34l"]
[1978.822829, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;15H\u001b[34h\u001b[?25h\u001b[34l"]
[1978.856005, "o", "\u001b[2;7H\u001b[?25lsymbol:= macro sym;\u001b[K\u001b[3;7Hstow into buffer(symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m expand macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m macro sym;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,s;\u001b[K\r\n\u001b[K\u001b[9;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m restore expansion;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr:= savestack[saveptr];\u001b[11;13Hllcntr:= savestack[saveptr + \u001b[35m1\u001b[39;49m];\u001b[12;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[13;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= \u001b[35m1\u001b[39;49m; word:= definitionstack[llcntr];\u001b[14;7H      word:= word - word ÷ t8 × t8\u001b[15;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[16;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= t8; word:= definitionstack[llcntr];\u001b[18;13Hwor"]
[1978.856268, "o", "d:= word - word ÷ t16 × t16\u001b[19;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m] ≠ -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[21;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= savestack[saveptr + \u001b[35m2\u001b[39;49m];\u001b[K\u001b[22;7H      LLcntr:= savestack[saveptr + \u001b[35m3\u001b[39;49m];\u001b[23;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[24;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= \u001b[35m1\u001b[39;49m; Word:= actualstack[LLcntr];\u001b[25;7H            Word:= Word - Word ÷ t8 × t8\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[27;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= t8; Word:= actualstack[LLcntr];\r\n                  Word:= Word - Word ÷ t16 × t16\u001b[30;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[31;7H      from actualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b["]
[1978.856414, "o", "32;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bplace of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\u001b[34;7Hpointerptr:= pointerptr + definitionstack[namestack\u001b[35;7H[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\u001b[36;5H\u001b[2@\u001b[33mre\u001b[39;49m\r\n\u001b[K\nif spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[42;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[K\u001b[43;7H            t8J:= t16; Word:= actualstack[LLcntr]\u001b[44;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[45;7H "]
[1978.85676, "o", "     \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[K\u001b[47;7H            t8J:= t8J / t8\u001b[K\u001b[48;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= Word;\u001b[39;49m\u001b[K\u001b[49;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; s:= macro sym\u001b[51;29H\u001b[3m63% L364   (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1980.513586, "o", "\u001b[52d\u001b[K\u001b[2;7H\u001b[?25l            reaffer;\u001b[3;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[5;34H∨ symbol = semicolon symbol);\r\n                        ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[9;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[10;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3025\u001b[39;49m);\u001b[K\u001b[11;13Hin actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[14;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[15;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3016\u001b[39;49m);\u001b[16;7H      auxptr:= aux"]
[1980.513983, "o", "ptr + par - \u001b[35m1\u001b[39;49m;\u001b[17;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr step 1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;13Hpointerstack[i]:= -\u001b[35m1\u001b[39;49m;\u001b[K\u001b[19;7H      freeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[20;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3001\u001b[39;49m);\u001b[K\u001b[23;13Hread while(symbol ≠ nlcr symbol\u001b[24;13H         ∧ symbol ≠ semicolon symbol)\u001b[K\u001b[25;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\u001b[30;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[31;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[32;7H\u001b["]
[1980.514182, "o", "1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[33;7H      savestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[K\u001b[34;7H      from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[35;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\u001b[K\u001b[36;5H\u001b[2P\r\n\u001b[32m{indents missing above}\u001b[39;49m\r\n      ERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\r\n      p:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\r\n      par:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[41;7Hread actuals;\u001b[K\u001b[42;7Hnamestack[place of name+ \u001b[35m1\u001b[39;49m]:= -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[43;7Hsavestack[saveptr + \u001b[35m4\u001b[39;49m]:= place of name;\u001b[K\u001b[44;7Hsavestack[saveptr + \u001b[35m5\u001b[39;49m]:= symbol;\u001b[45;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from macro \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m store expansion \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[46;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; stow in"]
[1980.51438, "o", "to buffer(asterisk) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[47;7Hsaveptr:= saveptr + \u001b[35m6\u001b[39;49m; bbcntr:= \u001b[35m1\u001b[39;49m; llcntr:= p;\u001b[48;7Hpr tape symbol:= space symbol;\u001b[49;7Hsymbol:= macro sym;\u001b[K\u001b[50;7Hstow into buffer(symbol)\u001b[K\n\b\b\u001b[3m56\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[1982.408457, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1982.876174, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1982.907782, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1982.943928, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1982.974714, "o", "\u001b[51;35H\u001b[?25l\u001b[3m59\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.010677, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.040055, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.073763, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.109799, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.143275, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.175765, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.207264, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.236865, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.270247, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.303333, "o", "\u001b[51;35H\u001b[?25l\u001b[3m49\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.336508, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.33712, "o", "\u001b[52d\u001b[?25lAuto-saving...\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.338688, "o", "\u001b[52;15H\u001b[?25ldone\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.371573, "o", "\u001b[52d\u001b[K\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.39712, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.43148, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.46345, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.494802, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.526225, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.557991, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.591046, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.625691, "o", "\u001b[51;35H\u001b[?25l\u001b[3m39\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.676637, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.689646, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.729718, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.756983, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.790804, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.823658, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.868972, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.890351, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.923473, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.957375, "o", "\u001b[51;35H\u001b[?25l\u001b[3m29\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1983.989066, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1984.022607, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1985.530871, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.020218, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[10;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.050934, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[9;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.080944, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[8;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.113355, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.143216, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[6;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.176239, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[5;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.210528, "o", "\u001b[51;35H\u001b[?25l\u001b[3m19\u001b[0m\u001b[39;49m\u001b[23m\u001b[4;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.238302, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\n\u001b[34h\u001b[?25h\u001b[34l"]
[1986.269464, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[1986.326943, "o", "\u001b[1;50r\u001b[2;1H\u001b[25L\u001b[1;52r"]
[1986.32707, "o", "\u001b[2;1H\u001b[?25l                          opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[K\r\n                          opcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  complete actual parameter\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            reaffer;\u001b[K\r\n            in actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K"]
[1986.327439, "o", "\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[K\r\n                  quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m lcntr:= savel;\u001b[K\r\n                  bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[K\r\n                          quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[K\r\n                          quotcntr - \u001b[35"]
[1986.327628, "o", "m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  complete actual parameter;\u001b[K\u001b[51;30H\u001b[3m2% L316\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.330521, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.366334, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.396475, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.430715, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.464518, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.494129, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.528829, "o", "\u001b[51;35H\u001b[?25l\u001b[3m09\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1986.719538, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1987.212376, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1987.244005, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1987.27541, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1987.307506, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1987.342654, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1987.507504, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1989.652874, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1994.874563, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1995.271957, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1995.845568, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1997.501524, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[1999.669807, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2003.818094, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2004.107265, "o", "\u001b[51;35H\u001b[?25l\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2004.643841, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2011.704577, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2013.285182, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2014.242374, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2014.758815, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2015.079392, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2015.604861, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2015.994895, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2016.969061, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2017.575193, "o", "\u001b[51;35H\u001b[?25l\u001b[3m20\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2022.330026, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2022.870829, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2024.214216, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2024.890603, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2025.75072, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2028.563021, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2030.059989, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2032.235532, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2033.500831, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2035.251295, "o", "\u001b[51;35H\u001b[?25l\u001b[3m30\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2036.307621, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2038.227988, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2043.287151, "o", "\u001b[52d\u001b[?25lMark set\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2043.301595, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[6P\t\u001b[Cdef mode:= in actual mode:= only mac:= from macro:="]
[2043.301642, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;"]
[2043.302518, "o", "\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3"]
[2043.30284, "o", "000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;7H      store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;7H      ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[46;7H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K"]
[2043.302938, "o", "\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2043.691139, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2043.700291, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2044.249774, "o", "\u001b[52;12H"]
[2044.250219, "o", "\u001b[H\n"]
[2044.277511, "o", "\t\b\u001b[?25l\u001b[36m\u001b[45m \u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2044.417135, "o", "\u001b[52;12H\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[2044.417578, "o", "\u001b[H\n\t"]
[2044.432163, "o", "\b\u001b[?25l \u001b[3;21H\u001b[36m\u001b[45m s\u001b[39;49m\u001b[51;34H\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[3;23H\u001b[34h\u001b[?25h\u001b[34l"]
[2044.659023, "o", "\u001b[52;13H\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[2044.659436, "o", "\u001b[3;23H"]
[2044.675155, "o", "\b\b\u001b[?25l savestack,\u001b[36m\u001b[45m st\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2044.822555, "o", "\u001b[52;14H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[2044.837219, "o", "\u001b[3;35H"]
[2044.867157, "o", "\r\u001bM\u001b[?25l                  bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[K\r\n                          quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\r\n                          quotcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bcomplete actual parameter;\r\n                  reaffer;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K"]
[2044.867552, "o", "\u001b[13;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[14;7H                           ∨ symbol = semicolon symbol);\u001b[15;7H                  ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\u001b[16;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[18;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[19;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3025\u001b[39;49m);\u001b[K\u001b[20;7H      in actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[23;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[24;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3016\u001b[39;49m);\r\n            auxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[26;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr\u001b[36m\u001b[45m ste\u001b[39;49mp 1 "]
[2044.867883, "o", "\u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n            pointerstack[i]:= -\u001b[35m1\u001b[39;49m;\r\n            freeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3001\u001b[39;49m);\u001b[32;7H      read while(symbol ≠ nlcr symbol\u001b[33;7H               ∧ symbol ≠ semicolon symbol)\u001b[34;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\u001b[39;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[K\u001b[40;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[4"]
[2044.868227, "o", "2;7H      savestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[43;13Hfrom actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store expansion;\u001b[39;49m\u001b[K\r\n\u001b[32m{indents missing above}\u001b[39;49m\u001b[K\u001b[47;7HERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\u001b[48;7Hp:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\u001b[49;7Hpar:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[50;7Hread actuals;\u001b[K\u001b[51;29H\u001b[3m55% L332\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;32H\u001b[34h\u001b[?25h\u001b[34l"]
[2045.287826, "o", "\u001b[52;15H\u001b[?25lp\u001b[34h\u001b[?25h\u001b[34l"]
[2045.28821, "o", "\u001b[26;32H"]
[2045.30782, "o", "\u001b[?25l\u001b[36m\u001b[45mp\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2045.936862, "o", "\u001b[52;17H"]
[2045.937658, "o", "\u001b[26;33H"]
[2045.956265, "o", "\u001b[?25l\u001b[36m\u001b[45m \u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2046.391657, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[3;11H(if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[9;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[10;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;"]
[2046.392461, "o", "\u001b[12;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[14;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[K\u001b[15;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[16;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[18;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[19;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[20;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[21;7H            stow into stack(stack,max,char)\u001b[22;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l"]
[2046.392567, "o", "̲s̲e̲\u001b[39;49m\u001b[K\u001b[24;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[25;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr\u001b[36m\u001b[45m step \u001b[39;49m1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[27;7Hstow into stack(stack,max,o)\u001b[28;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[36;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m"]
[2046.392659, "o", "\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[39;7H      j = j + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[40;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[42;13H      list[pointer]:= word × t6 + symbol;\u001b[43;13H      word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[44;7H\u001b[6@\u001b[44;22H\u001b[33mword:= word × t6 + symbol;\u001b[39;49m\u001b[K\r\n            symbol:= letgit\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1"]
[2046.393599, "o", "m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[K\u001b[49;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m list[pointer]:= word;\u001b[50;7Hpointer:= pointer + \u001b[35m1\u001b[39;49m\n\u001b[C\u001b[3m84% L530\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[2047.105009, "o", "\u0007"]
[2047.105635, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41m step\u001b[39;49m\u001b[41m \u001b[39;49m\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[2048.503289, "o", "\u001b[52;1H\u001b[K\u001b[26;26H"]
[2048.82079, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[2048.821331, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[2048.837057, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲"]
[2048.8374, "o", "\u001b[0m\u001b[39;49m;\u001b[K\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m"]
[2048.837484, "o", "0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\n\u001b[6@\t\tread name;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\r\n            ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;7H      lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;7H      bcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;7H      store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;7H      ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\n       "]
[2048.837559, "o", "     \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2049.170002, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2049.187861, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2049.327828, "o", "\u001b[52;12H\u001b[?25lstep\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2049.35738, "o", "\u001b[?25l                  bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[K\r\n                          quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\r\n                          quotcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bcomplete actual parameter;\r\n                  reaffer;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[14;7H                           ∨ s"]
[2049.357718, "o", "ymbol = semicolon symbol);\u001b[15;7H                  ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\u001b[16;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[18;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[19;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3025\u001b[39;49m);\u001b[K\u001b[20;7H      in actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[23;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[24;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3016\u001b[39;49m);\r\n            auxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[26;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr\u001b[36m\u001b[45m step \u001b[39;49m1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n            pointerstack[i]:= -\u001b[35m1\u001b[39;49m;\r\n     "]
[2049.358403, "o", "       freeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[K\u001b[29;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3001\u001b[39;49m);\u001b[32;7H      read while(symbol ≠ nlcr symbol\u001b[33;7H               ∧ symbol ≠ semicolon symbol)\u001b[34;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\u001b[39;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[K\u001b[40;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[42;7H      savestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[43;13Hfrom actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[44;7H\u001b"]
[2049.358511, "o", "[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store expansion;\u001b[39;49m\u001b[K\r\n\u001b[32m{indents missing above}\u001b[39;49m\u001b[K\u001b[47;7HERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\u001b[48;7Hp:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\u001b[49;7Hpar:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[K\u001b[50;7Hread actuals;\u001b[K\u001b[51;29H\u001b[3m55% L332\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;34H\u001b[34h\u001b[?25h\u001b[34l"]
[2049.949874, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;34H\u001b[34h\u001b[?25h\u001b[34l"]
[2049.966837, "o", "\b\b\b\b\b\b\u001b[?25l step \u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[2050.418876, "o", "\u001b[52;1H\u001b[K\u001b[26;32H"]
[2050.630068, "o", "\b"]
[2050.883559, "o", "\b"]
[2051.311171, "o", "\b"]
[2052.625837, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2053.027092, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2053.537797, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[2053.700372, "o", "\r"]
[2053.744386, "o", "\u001b[K\u001b[26;29H"]
[2053.775079, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;28H \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[2054.664487, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[2054.682531, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[2054.900582, "o", "\u001b[52;12H\u001b[?25lstep\u001b[26;33H\u001b[34h\u001b[?25h\u001b[34l"]
[2054.945459, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[3;11H(if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[9;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[10;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;"]
[2054.945795, "o", "\u001b[12;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[14;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[K\u001b[15;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[16;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[18;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[19;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[20;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[21;7H            stow into stack(stack,max,char)\u001b[22;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l"]
[2054.945886, "o", "̲s̲e̲\u001b[39;49m\u001b[K\u001b[24;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[25;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr\u001b[36m\u001b[45m step \u001b[39;49m1 \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[27;7Hstow into stack(stack,max,o)\u001b[28;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[36;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m"]
[2054.946251, "o", "\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[39;7H      j = j + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[40;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[42;13H      list[pointer]:= word × t6 + symbol;\u001b[43;13H      word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[44;7H\u001b[6@\u001b[44;22H\u001b[33mword:= word × t6 + symbol;\u001b[39;49m\u001b[K\r\n            symbol:= letgit\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nif j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1"]
[2054.946801, "o", "m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[K\u001b[49;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m list[pointer]:= word;\u001b[50;7Hpointer:= pointer + \u001b[35m1\u001b[39;49m\n\u001b[C\u001b[3m84% L530\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[2055.400404, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[2055.420101, "o", "\b\b\b\b\b\b\u001b[?25l step \u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;25H\u001b[34h\u001b[?25h\u001b[34l"]
[2055.668835, "o", "\u001b[52;1H\u001b[K\u001b[26;24H"]
[2055.933061, "o", "\b"]
[2056.186635, "o", "\b"]
[2056.637793, "o", "\b"]
[2057.147996, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2057.483868, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2057.867257, "o", "\u001b[?25l4\u001b[34h\u001b[?25h\u001b[34l"]
[2058.059711, "o", "\r"]
[2058.11134, "o", "\u001b[K\u001b[26;21H"]
[2058.150057, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;20H \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[2058.581347, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[26;25H\u001b[34h\u001b[?25h\u001b[34l"]
[2058.611237, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;25H\u001b[34h\u001b[?25h\u001b[34l"]
[2058.756333, "o", "\u0007"]
[2058.756818, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41m step\u001b[39;49m\u001b[41m \u001b[39;49m\u001b[26d\u001b[34h\u001b[?25h\u001b[34l"]
[2063.260269, "o", "\u001b[52;1H\u001b[K\u001b[2;7H\u001b[?25l            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[3;11H        line number:= line number + \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bread and buffer:= s\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[9;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[11;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\r\n\t\t\bsymbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[13;19Hnextacc:= read and buffer;\u001b[K\r\n\t\t\bnextacc = accent symbol\u001b[K\u001b[15;13H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol"]
[2063.260681, "o", "\u001b[16;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[17;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[19;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[K\u001b[20;13H        ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[21;7Hsymbol:= read and buffer;\u001b[K\u001b[22;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[23;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\u001b[31;7Hk:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m"]
[2063.260936, "o", "\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[36;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m"]
[2063.261194, "o", " \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\r\n      first symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\r\n      read while(first symbol ≠\r\n          (if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol));\u001b[49;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[50;7H    (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;4"]
[2063.261372, "o", "9m symbol))\u001b[51;29H\u001b[3m77% L507   (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2066.563579, "o", "\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; s:= macro sym\u001b[3;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[5;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr: = bbcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[6;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[7;19Hword:= definitionstack[llcntr]\u001b[8;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[9;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;20H:= word ÷ t8j; word:= word - s × t8j;\u001b[K\u001b[11;13H      t8j:= t8j / t8\u001b[K\u001b[12;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from act"]
[2066.564994, "o", "ualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[15;13H      LLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[16;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[17;7H            s := macro sym\u001b[18;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[19;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\u001b[K\u001b[21;7H            freeptr:= pointerptr;\u001b[22;7H            namestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[23;7H            -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; stow into buffer(ksiretsa)\r\n                  \u001b["]
[2066.565197, "o", "1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ restore expansion;\u001b[39;49m\r\n                  s= savestack[saveptr + \u001b[35m5\u001b[39;49m] \u001b[32m{s:= ?}\u001b[39;49m\u001b[28;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s > endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= s - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nmacro sym: = s\u001b[K\r\n\u001b[32m{lost indent above again}\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m macro sym;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\r\n\u001b[K\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s;\u001b[K\r\n "]
[2066.565324, "o", "           s:= RESYM1;\u001b[43;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\r\n                  prsym(s);\u001b[K\u001b[46;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\u001b[47;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[48;11H  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into buffer(s);\u001b[K\u001b[49;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;11H        line number:= line number + \u001b[35m1\u001b[39;49m\u001b[K\u001b[51;30H\u001b[3m0% L460\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2069.230373, "o", "\u001b[2;7H\u001b[?25lstow into buffer(symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m expand macro;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m macro sym;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,s;\u001b[K\r\n\u001b[K\u001b[8;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m restore expansion;\u001b[9;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr:= savestack[saveptr];\u001b[10;13Hllcntr:= savestack[saveptr + \u001b[35m1\u001b[39;49m];\u001b[K\u001b[11;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= \u001b[35m1\u001b[39;49m; word:= definitionstack[llcntr];\u001b[13;13Hword:= word - word ÷ t8 × t8\u001b[14;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[15;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= t8; word:= definitionstack[llcntr];\u001b[K\u001b[17;13Hword:= word - word ÷ t16 × t16\u001b["]
[2069.230911, "o", "18;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m] ≠ -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[20;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= savestack[saveptr + \u001b[35m2\u001b[39;49m];\u001b[21;13HLLcntr:= savestack[saveptr + \u001b[35m3\u001b[39;49m];\u001b[22;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[23;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= \u001b[35m1\u001b[39;49m; Word:= actualstack[LLcntr];\u001b[24;19HWord:= Word - Word ÷ t8 × t8\u001b[25;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[26;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[27;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= t8; Word:= actualstack[LLcntr];\u001b[28;13H      Word:= Word - Word ÷ t16 × t16\u001b[29;7H\u001b[6@\n      from actualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[31;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      place of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\r\n   "]
[2069.231269, "o", "   pointerptr:= pointerptr + definitionstack[namestack\r\n      [place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\u001b[35;5H\u001b[33mrestore expansion;\u001b[39;49m\r\n\nif spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;7Hspacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[40;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[41;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[42;13H      t8J:= t16; Word:= actualstack[LLcntr]\u001b[43;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[45;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:"]
[2069.23161, "o", "= Word - s × t8J;\u001b[46;19Ht8J:= t8J / t8\u001b[K\u001b[47;21H\u001b[33m s:= Word;\u001b[39;49m\u001b[48;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[49;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; s:= macro sym\u001b[50;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m63% L413\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2069.953778, "o", "\u001b[2;7H\u001b[?25l            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol = nlcr symbol\u001b[4;34H∨ symbol = semicolon symbol);\r\n                        ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[7;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[8;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[9;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3025\u001b[39;49m);\u001b[K\u001b[10;13Hin actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[13;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3016\u001b[39;49m);\u001b[15;7H      auxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[16;7H "]
[2069.954238, "o", "     \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;13Hpointerstack[i]:= -\u001b[35m1\u001b[39;49m;\u001b[K\u001b[18;7H      freeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[19;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[21;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3001\u001b[39;49m);\u001b[K\u001b[22;13Hread while(symbol ≠ nlcr symbol\u001b[23;13H         ∧ symbol ≠ semicolon symbol)\u001b[K\u001b[24;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\u001b[29;7Hsavestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[30;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b["]
[2069.954376, "o", "31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[32;7H      savestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[K\u001b[33;7H      from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[34;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\u001b[K\u001b[35;5H\u001b[2P\r\n\u001b[32m{indents missing above}\u001b[39;49m\r\n      ERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\r\n      p:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\r\n      par:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[40;7Hread actuals;\u001b[K\u001b[41;7Hnamestack[place of name+ \u001b[35m1\u001b[39;49m]:= -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[42;7Hsavestack[saveptr + \u001b[35m4\u001b[39;49m]:= place of name;\u001b[K\u001b[43;7Hsavestack[saveptr + \u001b[35m5\u001b[39;49m]:= symbol;\u001b[44;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from macro \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m store expansion \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; "]
[2069.954455, "o", "stow into buffer(asterisk) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[46;7Hsaveptr:= saveptr + \u001b[35m6\u001b[39;49m; bbcntr:= \u001b[35m1\u001b[39;49m; llcntr:= p;\u001b[47;7Hpr tape symbol:= space symbol;\u001b[48;7Hsymbol:= macro sym;\u001b[K\u001b[49;7Hstow into buffer(symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m expand macro;\u001b[39;49m\u001b[51;29H\u001b[3m56% L366\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2069.954842, "o", "\n\n\u001b[?25lAuto-saving...\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2069.955511, "o", "\u001b[52;15H\u001b[?25ldone\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2074.130351, "o", "\n\n\u001b[K\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2074.604955, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.632541, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.668266, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.701033, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.731226, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.767199, "o", "\u001b[51;35H\u001b[?25l\u001b[3m59\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.798063, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.83408, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.864629, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.898804, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.933975, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.965758, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2074.998571, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.025752, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.0604, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.09215, "o", "\u001b[51;35H\u001b[?25l\u001b[3m49\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.123612, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.15536, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.190557, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.222048, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.253729, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.28561, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.317487, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.349521, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.381485, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.416751, "o", "\u001b[51;35H\u001b[?25l\u001b[3m39\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.450195, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.482285, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.517169, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.549404, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.581792, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.61826, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.652072, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.679957, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.716607, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.74954, "o", "\u001b[51;35H\u001b[?25l\u001b[3m29\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.779044, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.8117, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.853392, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[10;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.881515, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[9;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.913599, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[8;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.947759, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2075.980465, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[6;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2076.010213, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[5;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2076.045088, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[4;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2076.077419, "o", "\u001b[51;35H\u001b[?25l\u001b[3m19\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\n\u001b[34h\u001b[?25h\u001b[34l"]
[2076.109558, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2076.160032, "o", "\u001b[1;50r\u001b[2;1H\u001b[25L\u001b[1;52r"]
[2076.16038, "o", "\u001b[2;1H\u001b[?25l                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\u001b[K\r\n                          opcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  complete actual parameter\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            reaffer;\u001b[K\r\n            in actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[K\r\n                  quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\r\n     "]
[2076.160552, "o", "             \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m lcntr:= savel;\u001b[K\r\n                  bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[K\r\n                          quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[K\r\n                          quotcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                  complete actual parameter;\u001b[K\r\n                  reaffer;\u001b[K\u001b[51;"]
[2076.160657, "o", "30H\u001b[3m2% L317\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2076.205016, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2076.232624, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2076.26698, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2076.301731, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2076.332007, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2079.321375, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2080.410195, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2080.902601, "o", "\u001b[51;35H\u001b[?25l\u001b[3m09\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2080.926965, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2080.961545, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2080.998366, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2081.028871, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2081.804886, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2082.551085, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2082.85135, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2083.140523, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2083.436782, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2083.710635, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2084.864896, "o", "\u001b[51;35H\u001b[?25l\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2085.208935, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2085.512049, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2085.826842, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2086.065074, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2086.317832, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2086.555861, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2086.858962, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2087.131909, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2087.398428, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2087.714851, "o", "\u001b[51;35H\u001b[?25l\u001b[3m20\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2088.222432, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2088.478671, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2088.725174, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2088.98685, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2089.826081, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2090.134438, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2090.435529, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2091.58932, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2092.132511, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2093.662925, "o", "\u001b[51;35H\u001b[?25l\u001b[3m30\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2094.729056, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2095.140805, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2097.745766, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2099.544026, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2100.142431, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2101.339829, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2105.21446, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2106.036467, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2107.124928, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2107.497972, "o", "\u001b[51;35H\u001b[?25l\u001b[3m40\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2108.115316, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2108.896975, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[2108.897435, "o", "\u001b[26;1H\u001b[K\n\u001b[?25l\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr]:= bbcntr;\u001b[K\r\n      savestack[saveptr + \u001b[35m1\u001b[39;49m]:= llcntr;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m]:= BBcntr;\u001b[K\r\n            savestack[saveptr + \u001b[35m3\u001b[39;49m]:= LLcntr;\u001b[K\r\n            from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ savestack[saveptr + 2]:= -1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store expansion;\u001b[39;49m\u001b[K\r\n\u001b[32m{indents missing above}\u001b[39;49m\u001b[K\r\n      ERROR(saveptr + \u001b[35m5\u001b[39;49m > max of actualstack,\u001b[35m3017\u001b[39;49m);\u001b[K\r\n      p:= namestack[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m];\u001b[K\r\n      par:= -definitionstack[p] - \u001b[35m1\u001b[39;49m;\u001b[K\r\n      read actuals;\u001b[K\r\n      namestack[place of name+ \u001b[35m1\u001b[39;49m]:= -"]
[2108.897645, "o", "namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[K\r\n      savestack[saveptr + \u001b[35m4\u001b[39;49m]:= place of name;\u001b[K\r\n      savestack[saveptr + \u001b[35m5\u001b[39;49m]:= symbol;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from macro \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m store expansion \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; stow into buffer(asterisk) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      saveptr:= saveptr + \u001b[35m6\u001b[39;49m; bbcntr:= \u001b[35m1\u001b[39;49m; llcntr:= p;\u001b[K\r\n      pr tape symbol:= space symbol;\u001b[K\r\n      symbol:= macro sym;\u001b[K\r\n      stow into buffer(symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m expand macro;\u001b[39;49m\u001b[K\u001b[51;30H\u001b[3m6% L342\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2117.5808, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2117.581569, "o", "\u001b[52d\u001b[?25lAuto-saving...\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2117.58293, "o", "\u001b[52;15H\u001b[?25ldone\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2118.645108, "o", "\u001b[52d\u001b[K\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2120.114923, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2121.785739, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2122.087033, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2123.694103, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2124.03352, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2124.305274, "o", "\u001b[51;35H\u001b[?25l\u001b[3m50\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2126.70958, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2127.471675, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2129.927878, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2130.923031, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2131.386384, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2132.456471, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2132.870593, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2133.233452, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2134.149712, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2134.570388, "o", "\u001b[51;35H\u001b[?25l\u001b[3m60\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2134.918281, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2141.122988, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2146.821063, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2159.252135, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2160.349225, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2160.719513, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2161.021343, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[2161.021747, "o", "\u001b[26;1H\u001b[K\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m macro sym;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,s;\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m restore expansion;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr:= savestack[saveptr];\u001b[K\r\n            llcntr:= savestack[saveptr + \u001b[35m1\u001b[39;49m];\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= \u001b[35m1\u001b[39;49m; word:= definitionstack[llcntr];\u001b[K\r\n            word:= word - word ÷ t8 × t8\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= t8; word:= definitionstack[llcntr];\u001b[K\r\n            word:= word - word ÷ t16 × t16\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39"]
[2161.022861, "o", ";49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m] ≠ -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= savestack[saveptr + \u001b[35m2\u001b[39;49m];\u001b[K\r\n            LLcntr:= savestack[saveptr + \u001b[35m3\u001b[39;49m];\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= \u001b[35m1\u001b[39;49m; Word:= actualstack[LLcntr];\u001b[K\r\n                  Word:= Word - Word ÷ t8 × t8\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= t8; Word:= actualstack[LLcntr];\u001b[K\r\n                  Word:= Word - Word ÷ t16 × t16\u001b[K\u001b[51;29H\u001b[3m60% L367\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2161.748715, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2162.801514, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2163.557256, "o", "\u001b[51;35H\u001b[?25l\u001b[3m70\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2163.878483, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2165.495155, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2166.187262, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2166.487597, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2166.885664, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2172.087852, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2172.493914, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2173.331325, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2178.233152, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2178.646127, "o", "\u001b[51;35H\u001b[?25l\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2178.936359, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2183.252303, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2185.546632, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2187.010109, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2187.383763, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2187.956841, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2190.362282, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2192.035279, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2193.034253, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2196.310448, "o", "\u001b[51;35H\u001b[?25l\u001b[3m90\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2196.670679, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2196.987535, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[2196.987967, "o", "\u001b[26;1H\u001b[?25l            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            from actualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      place of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\u001b[K\r\n      pointerptr:= pointerptr + definitionstack[namestack\u001b[K\r\n      [place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m restore expansion;\u001b[39;49m\u001b[K\r\n\u001b[K\nif spacecntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲"]
[2196.988193, "o", "i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[K\r\n                  t8J:= t16; Word:= actualstack[LLcntr]\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[K\r\n                  t8J:= t8J / t8\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= Word;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; s:= macro sym\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr: = bbcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n     "]
[2196.988281, "o", "       \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[K\u001b[51;30H\u001b[3m4% L392\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2197.99548, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2198.656943, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2199.582944, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2200.29149, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2200.73708, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2213.109796, "o", "\u001b[C"]
[2216.389504, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;2H\u001b[34h\u001b[?25h\u001b[34l"]
[2216.897403, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2218.123371, "o", "\u001b[51;34H\u001b[?25l\u001b[3m400\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2219.588543, "o", "\u001b[51;34H\u001b[?25l\u001b[3m399\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2220.281751, "o", "\u001b[51;34H\u001b[?25l\u001b[3m400\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2221.39495, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[2221.395376, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2221.964403, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2222.128963, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2223.727637, "o", "\r"]
[2223.77577, "o", "\u001b[K\u001b[34d"]
[2223.810698, "o", "\u001b[1;50r\u001b[2;1H\u001b[8M\u001b[1;52r\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m "]
[2223.811132, "o", "\u001b[43;1H                  word:= definitionstack[llcntr]\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= word ÷ t8j; word:= word - s × t8j;\u001b[K\r\n                  t8j:= t8j / t8\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[51;30H\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;3H\u001b[34h\u001b[?25h\u001b[34l"]
[2234.178369, "o", "\u001b[52;1H\u001b[?25lMark set\u001b[26;3H\u001b[34h\u001b[?25h\u001b[34l"]
[2234.197489, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0"]
[2234.197893, "o", "m\u001b[39;49m;\u001b[K\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\r\n      freeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\t\b\u001b[1m\u001b[36mn̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\r\n\t\b\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36"]
[2234.198113, "o", "mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[46;14H\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e"]
[2234.198294, "o", "̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\r\n\t\tymbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;19HERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2234.799744, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2234.815236, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2235.384574, "o", "\u001b[52;11H\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[2235.385078, "o", "\u001b[H\n"]
[2235.401489, "o", "\u001b[?25l\u001b[1m\u001b[36m\u001b[45mi̲\u001b[0m\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2235.493356, "o", "\u001b[52;12H\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[2235.493793, "o", "\u001b[2;2H"]
[2235.540843, "o", "\b\u001b[?25l      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\r\n            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolo"]
[2235.541653, "o", "n symbol\u001b[K\u001b[13;7H              ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[14;7Hsymbol:= read and buffer;\u001b[15;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\u001b[24;7Hk:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[26;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (\u001b[36m\u001b[45mif\u001b[39;49m 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m2"]
[2235.541766, "o", "7\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n\t\b\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\n\u001b[6P\t\t\bwhile(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[6P\t\t\b\bi;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b["]
[2235.541836, "o", "36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\u001b[K\u001b[39;7Hfirst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[K\u001b[40;7Hread while(first symbol ≠\u001b[K\u001b[41;11H(if 37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol));\u001b[42;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[43;11H(if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[49;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = sp"]
[2235.542089, "o", "ace symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[50;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m78% L490\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;17H\u001b[34h\u001b[?25h\u001b[34l"]
[2235.811439, "o", "\u001b[41;12H\u001b[?25l\u001b[46mif\u001b[39;49m\n\n\b\b\u001b[46mif\u001b[39;49m\u001b[26;17H\u001b[34h\u001b[?25h\u001b[34l"]
[2235.948906, "o", "\u001b[52;14H"]
[2235.949312, "o", "\u001b[26;17H"]
[2235.980047, "o", "\u001b[?25l\u001b[36m\u001b[45m \u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2235.9938, "o", "\u001b[41;12H\u001b[?25lif\n\n\b\bif\u001b[26;18H\u001b[34h\u001b[?25h\u001b[34l"]
[2236.264545, "o", "\u001b[41;12H\u001b[?25l\u001b[46mif \u001b[39;49m\n\n\b\b\b\u001b[46mif \u001b[39;49m\u001b[26;18H\u001b[34h\u001b[?25h\u001b[34l"]
[2238.26022, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;18H\u001b[34h\u001b[?25h\u001b[34l"]
[2238.319934, "o", "\b\b\b\u001b[?25lif \u001b[41;12Hif \n\n\b\b\bif \u001b[51;36H\u001b[3m1   (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;11H\u001b[34h\u001b[?25h\u001b[34l"]
[2238.564437, "o", "\u001b[52;1H\u001b[K\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;18H\u001b[34h\u001b[?25h\u001b[34l"]
[2239.774685, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;11H\u001b[34h\u001b[?25h\u001b[34l"]
[2239.974554, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;18H\u001b[34h\u001b[?25h\u001b[34l"]
[2240.212861, "o", "\b"]
[2240.417315, "o", "\b"]
[2240.696512, "o", "\b"]
[2241.216581, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[2241.216973, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2241.506976, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2241.692718, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2242.075194, "o", "\r"]
[2242.100963, "o", "\u001b[K\u001b[26;15H"]
[2242.149677, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;15H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m"]
[2242.150035, "o", "\b\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[2242.902943, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[26;17H\u001b[34h\u001b[?25h\u001b[34l"]
[2242.928135, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;17H\u001b[34h\u001b[?25h\u001b[34l"]
[2243.078569, "o", "\u001b[52;11H\u001b[?25lif\u001b[26;17H\u001b[34h\u001b[?25h\u001b[34l"]
[2243.107189, "o", "\u001b[41;12H\u001b[?25l\u001b[36m\u001b[45mif \u001b[39;49m\u001b[51;34H\u001b[3m505\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;15H\u001b[34h\u001b[?25h\u001b[34l"]
[2243.378074, "o", "\n\n\b\b\b\u001b[?25l\u001b[46mif \u001b[39;49m\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2244.541335, "o", "\b\b\b\u001b[?25l\u001b[46mif \u001b[39;49m\n\n\b\b\b\u001b[36m\u001b[45mif \u001b[39;49m\u001b[51;36H\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;15H\u001b[34h\u001b[?25h\u001b[34l"]
[2244.961428, "o", "\u001b[2;7H\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[3;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[K\u001b[4;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[5;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;7Hstow into stack(stack,max,o)\u001b[K\u001b[7;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;\u001b[K"]
[2244.962505, "o", "\u001b[14;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\u001b[15;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[16;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\r\n            j = j + \u001b[35m1\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[21;19Hlist[pointer]:= word × t6 + symbol;\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[24;7H      sym"]
[2244.962624, "o", "bol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[36m\u001b[45mif \u001b[39;49mj ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[28;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m list[pointer]:= word;\u001b[29;7Hpointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\u001b[30;4H\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[36;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber "]
[2244.963445, "o", "∧\r\n              stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            stackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[39;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m unstack macros;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[K\u001b[42;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\r\n                           ∧ symbol ≠ apostrophe sy"]
[2244.96358, "o", "mbol);\u001b[49;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[51;29H\u001b[3m87% L551\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2246.03888, "o", "\u0007"]
[2246.039421, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41mif\u001b[39;49m\u001b[41m \u001b[39;49m\u001b[26;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2247.774983, "o", "\u001b[52;1H\u001b[K\u001b[26;4H"]
[2247.972, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2247.972373, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[26;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2247.986502, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[11;11Hinitialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\r\n      from actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m25"]
[2247.987385, "o", "5\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;4H\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d"]
[2247.987703, "o", "̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;7H      ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;7H      lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r"]
[2247.987809, "o", "̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;22H\u001b[1P\n\b\b\bERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2248.355731, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2248.370719, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2248.543495, "o", "\u001b[52;11H\u001b[?25lif\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2248.590145, "o", "\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\r\n      k:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[10;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m"]
[2248.590451, "o", "\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[14;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol\r\n\t\birst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\r\n    "]
[2248.590562, "o", "  read while(first symbol ≠\u001b[26;11H(\u001b[36m\u001b[45mif \u001b[39;49m37 ≤ symbol ∧ symbol < \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol));\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\r\n          (if 37 ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\r\n\u001b[6P\t\t\b\bi;\u001b[K\u001b[34;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[K\u001b[35;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[36;7H\u001b[1"]
[2248.590646, "o", "m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[37;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[39;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[K\u001b[40;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[44;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[45;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[46;13H      stow into stack(stack,max,char)\u001b[47;13H\u001b[1m\u001b[36me̲n"]
[2248.591207, "o", "̲d̲\u001b[0m\u001b[39;49m\u001b[48;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[49;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[50;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\u001b[3m81% L505\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;15H\u001b[34h\u001b[?25h\u001b[34l"]
[2248.860143, "o", "\n\n\b\b\b\u001b[?25l\u001b[46mif \u001b[39;49m\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2249.175592, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;15H\u001b[34h\u001b[?25h\u001b[34l"]
[2249.195822, "o", "\b\b\b\u001b[?25lif \n\n\b\b\bif \u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2249.430939, "o", "\u001b[52;1H\u001b[K\u001b[26;13H"]
[2249.692005, "o", "\b"]
[2250.206854, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[2250.207631, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2250.512723, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2250.679402, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2250.86974, "o", "\r"]
[2250.920954, "o", "\u001b[K\u001b[26;12H"]
[2250.961842, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;12H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m\b\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[2251.779159, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2251.806554, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2252.019441, "o", "\u001b[52;11H\u001b[?25lif\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2252.045832, "o", "\n\n\b\b\u001b[?25l\u001b[36m\u001b[45mif \u001b[39;49m\u001b[51;36H\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;15H\u001b[34h\u001b[?25h\u001b[34l"]
[2252.385399, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[28;15H\u001b[34h\u001b[?25h\u001b[34l"]
[2252.403552, "o", "\b\b\b\u001b[?25lif \u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2252.619093, "o", "\u001b[52;1H\u001b[K\u001b[28;13H"]
[2252.858947, "o", "\b"]
[2253.581626, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[2253.582163, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2253.978843, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2254.172671, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2256.004142, "o", "\r"]
[2256.043401, "o", "\u001b[K\u001b[28;12H"]
[2256.081113, "o", "\u001b[1;27r\u001b[2;1H\u001b[2M\u001b[1;50r\u001b[27;1H\u001b[2M\u001b[1;52r\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[2256.081599, "o", "\u001b[26;1H          (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\u001b[K\u001b[49;1H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      stow into stack(stack,max,o)\u001b[K\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2286.104804, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2286.106454, "o", "\u001b[52;15H\u001b[?25ldone\u001b[26;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2325.849178, "o", "\u001b[52;1H\u001b[K\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2327.04276, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;14H\u001b[34h\u001b[?25h\u001b[34l"]
[2327.517136, "o", "\u001b[C"]
[2328.00417, "o", "\t\b"]
[2328.033521, "o", "\t"]
[2328.06712, "o", "\u001b[C"]
[2328.0996, "o", "\u001b[C"]
[2328.129361, "o", "\u001b[C"]
[2328.161369, "o", "\u001b[C"]
[2328.193188, "o", "\u001b[C"]
[2328.22774, "o", "\u001b[C"]
[2328.260655, "o", "\t\b"]
[2328.28874, "o", "\t"]
[2328.322204, "o", "\u001b[C"]
[2328.355905, "o", "\u001b[C"]
[2328.388554, "o", "\u001b[C"]
[2328.421692, "o", "\u001b[C"]
[2328.455003, "o", "\u001b[C"]
[2328.487913, "o", "\u001b[C"]
[2328.520746, "o", "\t\b"]
[2328.554962, "o", "\t"]
[2328.586948, "o", "\u001b[C"]
[2328.619715, "o", "\u001b[C"]
[2328.652063, "o", "\u001b[C"]
[2328.686389, "o", "\u001b[C"]
[2328.720685, "o", "\u001b[C"]
[2329.17667, "o", "\b"]
[2329.966839, "o", "\b\b\u001b[?25l  62\u001b[1P\b\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[2330.529152, "o", "\b\u001b[?25l < \u001b[35m6\u001b[39;49m\u001b[1@\u001b[35m2\u001b[39;49m\b\b\b\u001b[34h\u001b[?25h\u001b[34l"]
[2330.895368, "o", "\b\u001b[?25l≤\u001b[34h\u001b[?25h\u001b[34l"]
[2339.464584, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[24;37H\u001b[34h\u001b[?25h\u001b[34l"]
[2339.492519, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[24;37H\u001b[34h\u001b[?25h\u001b[34l"]
[2339.962091, "o", "\u001b[52;11H\u001b[?25lif\u001b[24;37H\u001b[34h\u001b[?25h\u001b[34l"]
[2340.027602, "o", "\u001b[H\n\u001b[?25l      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      stack[lcntr]:= stack[lcntr] × t8 + char;\u001b[4;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      stow into stack(stack,max,o)\u001b[7;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;"]
[2340.028075, "o", "\u001b[14;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\r\n      word:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[K\r\n            j = j + \u001b[35m1\u001b[39;49m;\u001b[19;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n                  list[pointer]:= word × t6 + symbol;\u001b[22;7H            word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[23;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[24;11H  "]
[2340.028795, "o", "symbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[36m\u001b[45mif \u001b[39;49mj ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[28;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m list[pointer]:= word;\r\n      pointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[35;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[36;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1"]
[2340.029076, "o", "\u001b[39;49m]) = blocknumber ∧\u001b[37;13H  stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;13Hstackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[39;10H\u001b[33m unstack macros;\u001b[39;49m\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[K\u001b[42;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[K\u001b[44;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[46;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[47;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[48;7H                     ∧ symbol ≠ apostrophe symbol);\u001b[49;7H      \u001b[1m"]
[2340.029263, "o", "\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\u001b[51;30H\u001b[3m7% L551\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2342.55888, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2342.575635, "o", "\r\u001b[?25lif \u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;3H\u001b[34h\u001b[?25h\u001b[34l"]
[2342.948045, "o", "\u001b[52;1H\u001b[K\u001b[26;2H"]
[2343.368913, "o", "\b"]
[2344.572133, "o", "\u001b[52d\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2345.010527, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2345.169355, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2345.363463, "o", "\r"]
[2345.391373, "o", "\u001b[K\u001b[26d"]
[2345.442248, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m "]
[2345.442677, "o", "\b\u001b[34h\u001b[?25h\u001b[34l"]
[2347.393535, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[26;3H\u001b[34h\u001b[?25h\u001b[34l"]
[2347.418586, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;3H\u001b[34h\u001b[?25h\u001b[34l"]
[2347.591594, "o", "\u0007"]
[2347.592444, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41mif\u001b[39;49m\u001b[41m \u001b[39;49m\u001b[26;3H\u001b[34h\u001b[?25h\u001b[34l"]
[2349.111896, "o", "\u001b[52;1H\u001b[K\u001b[51;61H\u001b[?25l\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2350.233353, "o", "\u001b[52;1H\u001b[?25lMark set\u001b[26;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2350.246016, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[11;11Hinitialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\r\n      from actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m25"]
[2350.24635, "o", "5\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\u001b[25;4H\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d"]
[2350.246452, "o", "̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;7H      ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;7H      lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r"]
[2350.246528, "o", "̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;22H\u001b[1P\n\b\b\bERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2350.944227, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2350.95546, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2351.500818, "o", "\u001b[52;11H\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[2351.502475, "o", "\u001b[?25lp\u001b[34h\u001b[?25h\u001b[34l"]
[2351.505156, "o", "\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[2351.507775, "o", "\u001b[?25lc\u001b[34h\u001b[?25h\u001b[34l"]
[2351.509727, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[2351.510614, "o", "\u001b[?25lc\u001b[34h\u001b[?25h\u001b[34l"]
[2351.511498, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[2351.512544, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[2351.513482, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[2351.514525, "o", "\u001b[C"]
[2351.523926, "o", "\u001b[?25l>\u001b[34h\u001b[?25h\u001b[34l"]
[2351.532667, "o", "\u001b[C"]
[2351.541434, "o", "\u001b[?25l1\u001b[34h\u001b[?25h\u001b[34l"]
[2351.550143, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[2351.558869, "o", "\u001b[?25l0\u001b[34h\u001b[?25h\u001b[34l"]
[2351.55921, "o", "\u001b[H\n"]
[2351.609299, "o", "\u001b[?25l            word:= word - word ÷ t8 × t8\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8j:= t8; word:= definitionstack[llcntr];\u001b[K\r\n            word:= word - word ÷ t16 × t16\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m savestack[saveptr + \u001b[35m2\u001b[39;49m] ≠ -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= savestack[saveptr + \u001b[35m2\u001b[39;49m];\u001b[K\u001b[10;13HLLcntr:= savestack[saveptr + \u001b[35m3\u001b[39;49m];\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= \u001b[35m1\u001b[39;49m; Word:= actualstack[LLcntr];\u001b[K\u001b[13;7H            Word:= Word - Word ÷ t8 × t8"]
[2351.609566, "o", "\u001b[14;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[15;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[16;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m t8J:= t8; Word:= actualstack[LLcntr];\u001b[17;7H            Word:= Word - Word ÷ t16 × t16\u001b[18;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[19;7H      from actualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bplace of name:= savestack[saveptr - \u001b[35m2\u001b[39;49m];\u001b[K\u001b[22;7Hpointerptr:= pointerptr + definitionstack[namestack\u001b[23;7H[place of name - namestack[place of name] - \u001b[35m1\u001b[39;49m]] + \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m restore expansion;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45mspacecntr > 150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= spacecntr - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\r\n\t\b\u001b[1m\u001b[36mf"]
[2351.609705, "o", "̲\u001b[0m\u001b[39;49m from actualstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\b\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m BBcntr:= BBcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m LLcntr:= LLcntr + \u001b[35m1\u001b[39;49m; BBcntr:= \u001b[35m3\u001b[39;49m;\u001b[31;19Ht8J:= t16; Word:= actualstack[LLcntr]\u001b[32;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[33;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m BBcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= Word ÷ t8J; Word:= Word - s × t8J;\u001b[35;13H      t8J:= t8J / t8\u001b[K\u001b[36;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= Word;\u001b[39;49m\u001b[K\u001b[37;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; s:= macro sym\u001b[39;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[40;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲"]
[2351.609785, "o", "e̲\u001b[39;49m\u001b[K\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bbcntr: = bbcntr - \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[42;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m llcntr:= llcntr + \u001b[35m1\u001b[39;49m; bbcntr:= \u001b[35m3\u001b[39;49m; t8J:= t16;\u001b[43;19Hword:= definitionstack[llcntr]\u001b[44;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[45;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bbcntr ≠ \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;14H\u001b[1m\u001b[36me̲g̲i̲n̲\u001b[0m\u001b[39;49m s:= word ÷ t8j; word:= word - s × t8j;\u001b[47;19Ht8j:= t8j / t8\u001b[48;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ s:= word;\u001b[39;49m\u001b[K\r\n\t\t ≥ i28 ∧ s ≤ \u001b[35m149\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;19Hfrom actualstack:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m; BBcntr:= \u001b[35m1\u001b[39;49m;\u001b[51;29H\u001b[3m65% L400\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;19H\u001b[34h\u001b[?25h\u001b[34l"]
[2353.429837, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;19H\u001b[34h\u001b[?25h\u001b[34l"]
[2353.457512, "o", "\u001b[26;4H\u001b[?25lspacecntr > \u001b[35m150\u001b[39;49m\u001b[51;34H\u001b[3m399   (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2353.676604, "o", "\u001b[52d\u001b[K\u001b[51;34H\u001b[?25l\u001b[3m400\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2354.337181, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2354.576185, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2354.824563, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2355.044443, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2374.625963, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2374.863224, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2375.069571, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2375.305721, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2375.715396, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2377.679924, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2380.843105, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2384.259401, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2388.349599, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2390.67079, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2391.120911, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2392.926078, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2398.304378, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2403.824784, "o", "\u001b[51;35H\u001b[?25l\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2404.8031, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2405.190721, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2407.196223, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2414.557051, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2416.399983, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2419.445629, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2422.199256, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2429.66035, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2436.232849, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2436.555542, "o", "\u001b[51;35H\u001b[?25l\u001b[3m20\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2466.562211, "o", "\u001b[52d\u001b[?25lAuto-saving...\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2466.564033, "o", "\u001b[52;15H\u001b[?25ldone\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2470.715647, "o", "\u001b[52d\u001b[K\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2485.217906, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2485.487082, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2485.717643, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2485.992897, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[2485.993083, "o", "\u001b[26;1H\u001b[?25l                  LLcntr:= pointerstack[pointerptr + s - \u001b[35m128\u001b[39;49m] - \u001b[35m1\u001b[39;49m;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m LLcntr = -\u001b[35m2\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m from actualstack:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n                  s := macro sym\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m saveptr:= saveptr - \u001b[35m6\u001b[39;49m;\u001b[K\r\n                  freeptr:= pointerptr;\u001b[K\r\n                  namestack[place of name + \u001b[35m1\u001b[39;49m]:=\u001b[K\r\n                  -namestack[place of name + \u001b[35m1\u001b[39;49m];\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m saveptr = -\u001b[35m5\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m from macro:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; stow into buffer(ksiretsa)\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d"]
[2485.993168, "o", "̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ restore expansion;\u001b[39;49m\u001b[K\r\n                  s= savestack[saveptr + \u001b[35m5\u001b[39;49m] \u001b[32m{s:= ?}\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s > endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m spacecntr:= s - \u001b[35m1\u001b[39;49m; s:= space symbol \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nmacro sym: = s\u001b[K\r\n\u001b[32m{lost indent above again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m macro sym;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\n\u001b[K\u001b[51;30H\u001b[3m8% L425\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2500.804757, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2511.650756, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2516.216287, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2516.628983, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2518.410948, "o", "\u001b[51;35H\u001b[?25l\u001b[3m30\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2527.175081, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2528.87284, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2529.792989, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2530.128903, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2532.851933, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2533.156803, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2536.277409, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2537.976227, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2540.946985, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2554.136336, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2554.694621, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2569.263924, "o", "\u001b[51;35H\u001b[?25l\u001b[3m40\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2569.697732, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2574.516435, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2574.862996, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2575.17393, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2576.238129, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2576.666953, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2577.022442, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2577.342683, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2577.620435, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2577.924734, "o", "\u001b[1;49r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[2577.925146, "o", "\u001b[25;1H\u001b[K\n\u001b[?25l      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s;\u001b[K\r\n            s:= RESYM1;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\u001b[K\r\n                  prsym(s);\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into buffer(s);\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  line number:= line number + \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            read and buffer:= s\u001b[K\r\n      \u001b["]
[2577.925493, "o", "1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\u001b[K\r\n            \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;7H\u001b[1m\u001b[36me̲n̲d̲"]
[2577.925708, "o", "\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[51;29H\u001b[3m73% L450\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2588.708454, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2590.931536, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2591.294378, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2592.694967, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2594.174967, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2594.554177, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2606.137524, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2606.948093, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2612.13931, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2612.397098, "o", "\u001b[51;35H\u001b[?25l\u001b[3m60\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2617.075468, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2617.410739, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2618.210126, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2620.802171, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2621.782164, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2622.056526, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2626.029816, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2627.51925, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2630.003345, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2631.282003, "o", "\u001b[51;35H\u001b[?25l\u001b[3m70\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2631.837903, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2633.467016, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2634.293009, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2636.587249, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2638.704587, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2640.941442, "o", "\u001b[47;13H\u001b[1@\r\u001b[C"]
[2641.137186, "o", "\u001b[47;14H\u001b[1@\u001b[47;3H"]
[2641.364362, "o", "\t\t\b\b\u001b[1@\u001b[47;4H"]
[2641.60996, "o", "\t\t\b\u001b[1@\u001b[47;5H"]
[2641.808057, "o", "\t\t\u001b[1@\u001b[47;6H"]
[2642.040207, "o", "\u001b[47;18H\u001b[1@\r\t\b\b"]
[2642.174584, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2642.459491, "o", "\u001b[48;13H\u001b[1@\r\t\b"]
[2642.651512, "o", "\u001b[48;14H\u001b[1@\r\t"]
[2642.841367, "o", "\t\b\b\u001b[1@\b\b\b\b\b"]
[2643.060364, "o", "\t\b\u001b[1@\u001b[51;30H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;11H\u001b[34h\u001b[?25h\u001b[34l"]
[2643.39351, "o", "\t\u001b[1@\b\b\b\b\b"]
[2643.54607, "o", "\t\u001b[C\u001b[1@\b\b\b\b\b"]
[2643.799016, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;13H\u001b[34h\u001b[?25h\u001b[34l"]
[2643.981446, "o", "\u001b[1@\u001b[C"]
[2644.331906, "o", "\u001b[1@\u001b[C"]
[2644.649692, "o", "\u001b[1@\t\b"]
[2644.798694, "o", "\u001b[1@\t"]
[2645.077361, "o", "\u001b[1@\u001b[C"]
[2645.325737, "o", "\u001b[1@\u001b[C"]
[2645.967499, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[50;11H\u001b[34h\u001b[?25h\u001b[34l"]
[2647.038588, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[2647.039132, "o", "\u001b[26;1H\u001b[?25l      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[K\r\n                    ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      symbol:= read and buffer;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      stow into stack(definitionstack,max of defstack,symbol)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\r\n      k:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h"]
[2647.039474, "o", "̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\u001b[K\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r"]
[2647.039773, "o", "\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\u001b[51;30H\u001b[3m6% L475\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2655.548375, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2657.033855, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2657.334131, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2661.831845, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2663.445327, "o", "\u001b[51;35H\u001b[?25l\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2663.900112, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2666.436236, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2666.854218, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2667.371428, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2667.710441, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2668.031657, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2673.320366, "o", "\u001b[52d\u001b[?25lMark set\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2673.332737, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲"]
[2673.333073, "o", "e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K"]
[2673.333712, "o", "\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\r\n\t\b\u001b[1m\u001b[36mn̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\r\n            ERROR(stackptr > max of namestack,\u001b[35m300"]
[2673.333945, "o", "0\u001b[39;49m);\r\n            lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\r\n            store letgits(namestack,stackptr,max of namestack,reaffer);\r\n            ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;7H      namestack[stackptr]:= stackptr - save;\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[K\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\n            \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0"]
[2673.33402, "o", "m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2673.701258, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2673.716998, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2674.326206, "o", "\u001b[52;11H\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[2674.326653, "o", "\u001b[H\n"]
[2674.347715, "o", "\u001b[2;20H\u001b[?25l\u001b[36m\u001b[45ms\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2674.47821, "o", "\u001b[52;12H\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[2674.478734, "o", "\u001b[2;21H"]
[2674.495877, "o", "\u001b[?25l\u001b[36m\u001b[45mt\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2674.734536, "o", "\u001b[52;13H\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[2674.735766, "o", "\u001b[2;22H"]
[2674.775385, "o", "\r\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read and buffer;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s;\u001b[K\r\n            s:= RESYM1;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in actual mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into stack(actualstack,max of actualstack,s);\r\n                  prsym(s);\u001b[K\u001b[10;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s = nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m space(\u001b[35m7\u001b[39;49m)\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stow into buffer(s);\u001b[K\u001b[13;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s= nlcr symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H            line number:= line number + \u001b[35m1\u001b[39;49m\u001b[15;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[3"]
[2674.775685, "o", "9;49m\u001b[K\u001b[16;7H      read and buffer:= s\u001b[K\u001b[17;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[20;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[22;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\u001b[23;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[24;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\u001b[26;19H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apo\u001b[36m\u001b[45mstr\u001b[39;49mophe symbol\r\n                  \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36mt̲r"]
[2674.775783, "o", "̲u̲e̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[31;21H∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[32;7Hsymbol:= read and buffer;\u001b[33;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); string text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\u001b[42;7Hk:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[43;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, "]
[2674.77582, "o", "text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\u001b[45;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[47;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\u001b[51;29H\u001b[3m75% L472\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;39H\u001b[34h\u001b[?25h\u001b[34l"]
[2674.992524, "o", "\u001b[52;14H\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[2674.992906, "o", "\u001b[26;39H"]
[2675.019149, "o", "\b\b\b\u001b[?25lstr\u001b[40;34H\u001b[36m\u001b[45mstri\u001b[39;49m\u001b[51;35H\u001b[3m86\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;38H\u001b[34h\u001b[?25h\u001b[34l"]
[2675.288218, "o", "\u001b[43;15H\u001b[?25l\u001b[46mstri\u001b[39;49m\u001b[40;38H\u001b[34h\u001b[?25h\u001b[34l"]
[2675.41344, "o", "\u001b[52;15H\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[2675.413908, "o", "\u001b[40;38H"]
[2675.438229, "o", "\u001b[?25l\u001b[36m\u001b[45mn\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2675.449139, "o", "\u001b[43;15H\u001b[?25lstri\u001b[40;39H\u001b[34h\u001b[?25h\u001b[34l"]
[2675.609439, "o", "\u001b[52;16H\u001b[?25lg\u001b[34h\u001b[?25h\u001b[34l"]
[2675.609935, "o", "\u001b[40;39H"]
[2675.634457, "o", "\u001b[?25l\u001b[36m\u001b[45mg\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2675.902404, "o", "\u001b[43;15H\u001b[?25l\u001b[46mstring\u001b[39;49m\u001b[40;40H\u001b[34h\u001b[?25h\u001b[34l"]
[2676.250627, "o", "\u001b[52;18H"]
[2676.251145, "o", "\u001b[40;40H"]
[2676.277822, "o", "\u001b[?25l\u001b[36m\u001b[45m \u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2676.288902, "o", "\u001b[43;15H\u001b[?25lstring\u001b[40;41H\u001b[34h\u001b[?25h\u001b[34l"]
[2676.759562, "o", "\u001b[H\n\u001b[?25l                    ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[3;7Hsymbol:= read and buffer;\r\n\t\b\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[5;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); \u001b[46mstring \u001b[39;49mtext;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\u001b[13;7Hk:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[14;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[15;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0"]
[2676.75968, "o", "m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\u001b[16;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[18;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m rea"]
[2676.759728, "o", "d while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); \u001b[36m\u001b[45mstring \u001b[39;49mtext;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\u001b[K\u001b[28;7Hfirst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[29;7Hread while(first symbol ≠\u001b[K\u001b[30;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol));\u001b[31;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[32;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e"]
[2676.759772, "o", "̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[39;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[42;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[43;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[K\u001b[44;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[45;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b["]
[2676.759813, "o", "39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[47;13Hstack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[49;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\r\n                  stow into stack(stack,max,char)\u001b[K\u001b[51;29H\u001b[3m80% L501\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[2676.775664, "o", "\u001b[11;34H\u001b[?25lstring \u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[2677.048757, "o", "\u001b[11;34H\u001b[?25l\u001b[46mstring \u001b[39;49m\u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[2677.603755, "o", "\u0007"]
[2677.604128, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41mstring\u001b[39;49m\u001b[41m \u001b[39;49m\u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[2679.546291, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;36H\u001b[34h\u001b[?25h\u001b[34l"]
[2679.588149, "o", "\u001b[2;13H\u001b[?25l\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[3;7H            stow into stack(stack,max,char)\u001b[4;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[5;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      stack[lcntr]:= stack[lcntr] × t8 + char;\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n      stow into stack(stack,max,o)\u001b[10;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); value max;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b["]
[2679.588518, "o", "39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;\r\n\t\b\u001b[1m\u001b[36mo̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\u001b[18;7Hword:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[20;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\r\n            j = j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  list[pointer]:= word × t6 + symbol;\u001b[25;19Hword:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l"]
[2679.588608, "o", "̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\r\n            symbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[K\u001b[31;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m list[pointer]:= word;\u001b[32;7Hpointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\u001b[33;4H\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[38;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[39;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l"]
[2679.588684, "o", "̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[40;7H        stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[41;13Hstackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m unstack macros;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[45;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[46;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[47;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[48;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[50;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[51;30H\u001b"]
[2679.588745, "o", "[3m7% L524   (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2680.713076, "o", "\u001b[52d\u001b[K\u001b[2d"]
[2681.075953, "o", "\u001b[52d\u001b[?25lMark set\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2681.092082, "o", "\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m"]
[2681.092684, "o", "\u001b[39;49m;\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\r\n      max of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\r\n      max of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0"]
[2681.092763, "o", "\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\r\n            ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\r\n            lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;7H      store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;7H      ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\r\n\t\t\t\t+ \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;11H\u001b[33mread name;\u001b[39;49m\u001b[K\r\n\n\t\tread formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[46;7H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\n\t\b\b      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r"]
[2681.093595, "o", "̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;19HERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2681.481152, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2681.490367, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2681.635954, "o", "\u001b[52;11H\u001b[?25lstring\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2681.674811, "o", "\u001b[?25l            read and buffer:= s\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read and buffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = space symbol ∨ symbol = tab symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m accent read \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m symbol:= nextacc; accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol:= read and buffer;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m nextacc:= read and buffer;\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m nextacc = accent symbol\r\n                  \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[K\u001b[13;7H            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36m"]
[2681.675016, "o", "t̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[16;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[17;7H              ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[18;7Hsymbol:= read and buffer;\u001b[19;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\tow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); \u001b[36m\u001b[45mstring \u001b[39;49mtext;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\r\n      k:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mf̲o̲"]
[2681.6751, "o", "r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\r\n\t\b\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m s ≠ (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\u001b[31;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[33;13Hk:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K"]
[2681.675195, "o", "\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\nfor i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); string text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\u001b[43;7Hfirst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[44;7Hread while(first symbol ≠\u001b[45;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol));"]
[2681.675267, "o", "\u001b[46;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[47;11H(\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\u001b[51;29H\u001b[3m77% L486\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;41H\u001b[34h\u001b[?25h\u001b[34l"]
[2681.947216, "o", "\u001b[41;29H\u001b[?25l\u001b[46mstring \u001b[39;49m\u001b[26;41H\u001b[34h\u001b[?25h\u001b[34l"]
[2682.620133, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;41H\u001b[34h\u001b[?25h\u001b[34l"]
[2682.688707, "o", "\b\b\b\b\b\b\b\u001b[?25lstring \u001b[41;29Hstring \u001b[51d\u001b[3m7   (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;19H\u001b[34h\u001b[?25h\u001b[34l"]
[2683.48478, "o", "\u001b[52;1H\u001b[K\u001b[27;19H\u001b[?25l\u001b[35m0\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2684.493331, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;20H\u001b[34h\u001b[?25h\u001b[34l"]
[2684.703367, "o", "\u001b[C"]
[2685.193558, "o", "\u001b[C"]
[2685.221461, "o", "\u001b[C"]
[2685.254953, "o", "\t\b"]
[2685.282334, "o", "\t"]
[2685.316909, "o", "\u001b[C"]
[2685.348847, "o", "\u001b[C"]
[2685.383382, "o", "\u001b[C"]
[2685.416729, "o", "\u001b[C"]
[2685.450417, "o", "\u001b[C"]
[2685.483913, "o", "\u001b[C"]
[2685.515923, "o", "\t\b"]
[2685.516618, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[26;32H\u001b[34h\u001b[?25h\u001b[34l"]
[2685.518426, "o", "\u001b[52;15H\u001b[?25ldone\u001b[26;32H\u001b[34h\u001b[?25h\u001b[34l"]
[2685.548257, "o", "\u001b[52;1H\u001b[K\u001b[26;33H"]
[2685.580699, "o", "\u001b[C"]
[2685.611424, "o", "\u001b[C"]
[2685.641914, "o", "\u001b[C"]
[2686.030949, "o", "\b"]
[2686.544015, "o", "\b"]
[2687.300503, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[2687.300871, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2687.686216, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2688.243645, "o", "\u001b[?25l6\u001b[34h\u001b[?25h\u001b[34l"]
[2688.546323, "o", "\r"]
[2688.586992, "o", "\u001b[K\u001b[26;34H"]
[2688.62464, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;34H\u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m "]
[2688.624738, "o", "\b\u001b[34h\u001b[?25h\u001b[34l"]
[2689.278923, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[26;40H\u001b[34h\u001b[?25h\u001b[34l"]
[2689.297877, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;40H\u001b[34h\u001b[?25h\u001b[34l"]
[2689.4611, "o", "\u001b[52;11H\u001b[?25lstring\u001b[26;40H\u001b[34h\u001b[?25h\u001b[34l"]
[2689.488098, "o", "\u001b[41;29H\u001b[?25l\u001b[36m\u001b[45mstring \u001b[39;49m\u001b[51;34H\u001b[3m501\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;36H\u001b[34h\u001b[?25h\u001b[34l"]
[2689.991032, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[41;36H\u001b[34h\u001b[?25h\u001b[34l"]
[2690.009634, "o", "\b\b\b\b\b\b\b\u001b[?25lstring \u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2690.48406, "o", "\u001b[52;1H\u001b[K\u001b[41;34H"]
[2690.513508, "o", "\b"]
[2690.54975, "o", "\b"]
[2690.58376, "o", "\b"]
[2690.613539, "o", "\b"]
[2690.64455, "o", "\b"]
[2690.678522, "o", "\b"]
[2690.713324, "o", "\b"]
[2691.188485, "o", "\u001b[C"]
[2691.424951, "o", "\u001b[C"]
[2692.139811, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[2692.139922, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2692.476727, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2693.069063, "o", "\u001b[?25l6\u001b[34h\u001b[?25h\u001b[34l"]
[2693.411257, "o", "\r"]
[2693.452149, "o", "\u001b[K\u001b[41;29H"]
[2693.494668, "o", "\u001b[1;50r\u001b[2;1H\u001b[15M\u001b[1;52r\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;29H\u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m "]
[2693.494971, "o", "\u001b[36;1H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[K\r\n            \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n    "]
[2693.495256, "o", "  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\r\n                  stow into stack(stack,max,char)\u001b[K\u001b[51;29H\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2694.336586, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;31H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.220407, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.705991, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.739749, "o", "\u001b[51;34H\u001b[?25l\u001b[3m499\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;16H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.773049, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.810727, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;17H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.840166, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.872505, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.904252, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;13H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.935947, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.970211, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2695.998506, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;11H\u001b[34h\u001b[?25h\u001b[34l"]
[2696.031546, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2696.066975, "o", "\u001b[51d\u001b[?25l\u001b[3m89\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2696.096515, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;29H\u001b[34h\u001b[?25h\u001b[34l"]
[2696.132268, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;20H\u001b[34h\u001b[?25h\u001b[34l"]
[2696.162711, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2696.959936, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[10;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2697.472064, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2697.809654, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2698.225171, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2698.587647, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;20H\u001b[34h\u001b[?25h\u001b[34l"]
[2699.029859, "o", "\b\u001b[K"]
[2700.453548, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2713.166149, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2714.690277, "o", "\u001b[51;35H\u001b[?25l\u001b[3m90\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2720.336011, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2730.508994, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2733.785293, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2738.935614, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2739.260629, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2739.518224, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2741.40835, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2741.683379, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2744.883122, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2745.814225, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2746.865158, "o", "\u001b[1@\u001b[C"]
[2747.049875, "o", "\u001b[1@\u001b[C"]
[2747.247759, "o", "\u001b[1@\u001b[C"]
[2747.437944, "o", "\u001b[1@\u001b[C"]
[2747.637403, "o", "\u001b[1@\u001b[C"]
[2747.924668, "o", "\u001b[1@\u001b[C"]
[2749.384771, "o", "\b"]
[2749.776667, "o", "\b"]
[2750.383356, "o", "\u001b[C"]
[2750.600565, "o", "\u001b[C"]
[2751.687874, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2752.041416, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2752.42494, "o", "\u001b[?25l3\u001b[34h\u001b[?25h\u001b[34l"]
[2753.026783, "o", "\r"]
[2753.055305, "o", "\u001b[K\u001b[23;7H"]
[2753.106442, "o", "\u001b[1;50r\u001b[2;1H\u001b[3L\u001b[1;52r\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[K\u001b[26;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m "]
[2753.106746, "o", "\u001b[51;29H\u001b[3m79\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;10H\u001b[34h\u001b[?25h\u001b[34l"]
[2756.694629, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;10H\u001b[34h\u001b[?25h\u001b[34l"]
[2756.969805, "o", "\u001b[51;34H\u001b[?25l\u001b[3m500\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2757.235571, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2769.745804, "o", "\u001b[52d\u001b[?25lMark set\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2769.763903, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0"]
[2769.764259, "o", "m\u001b[39;49m;\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\r\n      max of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\r\n      namestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\r\n      freeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49"]
[2769.764396, "o", "m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;7H      ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[35;11H  lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\r\n            bcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\r\n            ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\r\n            namestack[stackptr]:= stackptr - save;\r\n            namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l"]
[2769.765343, "o", "̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\n\t\b\b      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2770.14278, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2770.156237, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2770.687246, "o", "\u001b[52;11H\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[2770.687361, "o", "\u001b[H\n"]
[2770.700861, "o", "\u001b[2;14H\u001b[?25l\u001b[36m\u001b[45mf\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2770.942233, "o", "\u001b[52;12H\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[2770.942755, "o", "\u001b[2;15H"]
[2770.965316, "o", "\b\u001b[?25lf\u001b[28;30H\u001b[36m\u001b[45mfo\u001b[39;49m\u001b[51;34H\u001b[3m27\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;32H\u001b[34h\u001b[?25h\u001b[34l"]
[2771.052726, "o", "\u001b[52;13H\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[2771.053086, "o", "\u001b[28;32H"]
[2771.068847, "o", "\u001b[?25l\u001b[36m\u001b[45mr\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2771.33516, "o", "\u001b[30;21H\u001b[?25l\u001b[46mfor\u001b[39;49m\u001b[44;22H\u001b[46mfor\u001b[39;49m\u001b[28;33H\u001b[34h\u001b[?25h\u001b[34l"]
[2771.992638, "o", "\b\b\b\u001b[?25l\u001b[46mfor\u001b[39;49m\u001b[30;21H\u001b[36m\u001b[45mfor\u001b[39;49m\u001b[51;35H\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;24H\u001b[34h\u001b[?25h\u001b[34l"]
[2772.670041, "o", "\b\b\b\u001b[?25l\u001b[46mfor\u001b[39;49m\u001b[44;22H\u001b[36m\u001b[45mfor\u001b[39;49m\u001b[51;34H\u001b[3m43\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;25H\u001b[34h\u001b[?25h\u001b[34l"]
[2773.48875, "o", "\u001b[H\n\u001b[?25l            \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1 while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\r\n                  \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaffer1\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer1 while;\u001b[39;49m\u001b[K\r\n\u001b[K\n            ptr:= \u001b[35m1\u001b[39;49m; par:= \u001b[35m0\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol ∧ symbol ≠ open symbol ∧ symbol ≠\r\n            smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3026\u001b[39;49m);\r\n                  reaffer1 while(symbol ≠ colon symbol ∧\r\n                  symbol ≠ open symbol ∧ symbol ≠ smaller symbol)"]
[2773.489914, "o", "\u001b[13;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[14;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[15;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= aux:= \u001b[35m0\u001b[39;49m;\u001b[16;7H            in comma mode:= symbol = open symbol;\u001b[17;7H            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ colon symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[18;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m par= i; reaffer1;\u001b[19;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer1 while\u001b[20;7H                  (Symbol= nlcr symbol ∨ symbol = semicolon symbol);\u001b[21;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m10\u001b[39;49m < symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[22;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m23\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b"]
[2773.49018, "o", "[23;7H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3002\u001b[39;49m); reaffer1 while\u001b[24;7H                              (symbol ≠ colon symbol)\r\n                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[26;31H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m store letgits(\u001b[36m\u001b[45mfor\u001b[39;49mmallist,ptr,max of\r\n                                    formallist, reaffer);\r\n                                    \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - aux> \u001b[35m22\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[29;7H                              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3011\u001b[39;49m); ptr:= aux+ \u001b[35m22\u001b[39;49m\u001b[30;7H                              \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bformallist[aux]= ptr - aux - \u001b[35m1\u001b[39;49m;\u001b[32;7H                              aux:= ptr; ptr:= ptr + \u001b[35m1\u001b[39;49m;\u001b[33;7H                              \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symb"]
[2773.491391, "o", "ol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent\u001b[35;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[36;13H                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in comma mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[37;13H                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[38;13H                          \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m reaffer1 ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[39;13H                            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3004\u001b[39;49m);\u001b[40;13H                              reaffer1 while\u001b[41;13H                              (symbol ≠ colon symbol)\u001b[42;7H                                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\n\b"]
[2773.492384, "o", "\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ i̲f̲ symbol ≠ comma symbol t̲h̲e̲n̲\u001b[39;49m\u001b[44;7H                                \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3005\u001b[39;49m);\u001b[45;7H                                  reaffer1 while(symbol ≠ comma\u001b[46;13H                            symbol ∧ symbol ≠ colon symbol)\u001b[47;39H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[48;13H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[49;13H                 \u001b[32@       \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ greater\u001b[50;13H\u001b[26@\u001b[50;58H\u001b[35m06\u001b[39;49m);\u001b[K\u001b[51;29H\u001b[3m 8% L76\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;54H\u001b[34h\u001b[?25h\u001b[34l"]
[2773.76451, "o", "\u001b[27;37H\u001b[?25l\u001b[46mfor\u001b[39;49m\n\n\n\n\b\b\b\u001b[46mfor\u001b[39;49m\u001b[26;54H\u001b[34h\u001b[?25h\u001b[34l"]
[2775.00955, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;54H\u001b[34h\u001b[?25h\u001b[34l"]
[2775.022034, "o", "\b\b\b\u001b[?25lfor\u001b[27;37Hfor\n\n\n\n\b\b\bfor\u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;55H\u001b[34h\u001b[?25h\u001b[34l"]
[2775.949147, "o", "\u001b[52;1H\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[K\u001b[26;55H\u001b[34h\u001b[?25h\u001b[34l"]
[2775.970007, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;55H\u001b[34h\u001b[?25h\u001b[34l"]
[2776.591859, "o", "\u001b[52;11H\u001b[?25lf\u001b[34h\u001b[?25h\u001b[34l"]
[2776.592163, "o", "\u001b[26;55H"]
[2776.609819, "o", "\t\t\t\b\b\u001b[?25l\u001b[36m\u001b[45mf\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2776.878407, "o", "\u001b[2;26H\u001b[?25l\u001b[46mf\u001b[39;49m"]
[2776.878929, "o", "\u001b[27;37H\u001b[46mf\u001b[39;49mormallist, rea\u001b[46mff\u001b[39;49m\u001b[28;38H\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\n\n\n\b\b\u001b[46mf\u001b[39;49m\n\n\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m"]
[2776.879181, "o", "\n\n\n\b\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\u001b[37;44H\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\n\u001b[C\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m rea\u001b[46mff\u001b[39;49m\u001b[40;46H\u001b[46mff\u001b[39;49m\n\n\n\t\u001b[33m\u001b[46mf̲\u001b[39;49m\u001b[45;44H\u001b[46mff\u001b[39;49m\n\n\n\n\b\b\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\u001b[26;72H\u001b[34h\u001b[?25h\u001b[34l"]
[2776.890487, "o", "\u001b[2;27H\u001b[?25l\u001b[46mf\u001b[39;49m\u001b[4;19H\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\u001b[1m\u001b[36mo̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m rea\u001b[46mff\u001b[39;49m\u001b[5;20H\u001b[33m\u001b[46mff\u001b[39;49m\u001b[8;14H\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\u001b[11;22H\u001b[46mff\u001b[39;49m\u001b[14;14H\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\u001b[17;19H\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\u001b[18;36H\u001b[46mff\u001b[39;49m\u001b[19;26H\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m rea\u001b[46mff\u001b[39;49m\u001b[21;26H\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\n\t\b\u001b[1m\u001b[36m\u001b[46mf̲\u001b[0m\u001b[39;49m\u001b[23;58H\u001b[46mff\u001b[39;49m"]
[2776.891003, "o", "\n\n\n\t\t\b\u001b[34h\u001b[?25h\u001b[34l"]
[2776.901212, "o", "\u001b[26;51H\u001b[?25l\u001b[46mf\u001b[39;49m\t\t\t\b\u001b[34h\u001b[?25h\u001b[34l"]
[2776.97648, "o", "\u001b[52;12H\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[2776.976834, "o", "\u001b[26;72H"]
[2776.994849, "o", "\b\u001b[?25l\u001b[46mf\u001b[39;49m\u001b[27;37H\u001b[36m\u001b[45mfo\u001b[39;49m\u001b[51;35H\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;39H\u001b[34h\u001b[?25h\u001b[34l"]
[2777.004643, "o", "\u001b[2;26H\u001b[?25lff\u001b[4;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m reaff\u001b[5;20H\u001b[33mff\u001b[39;49m\u001b[8;14H\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m\u001b[11;22Hff\u001b[14;14H\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m\u001b[17;19H\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m\u001b[18;36Hff\u001b[19;26H\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m in comma mode ∧ i > \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaff\u001b[21;26H\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m\n\t\b\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m\u001b[23;58Hff\u001b[26;51Hformallist,ptr,max of\u001b[27;52Hff\u001b[28;38H\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m\n\n\n\b\bf\n\n\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m"]
[2777.005021, "o", "\n\n\n\b\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m\u001b[37;44H\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m\n\u001b[C\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m reaff\u001b[40;46Hff\n\n\n\t\u001b[33mf̲\u001b[39;49m\u001b[45;44Hff\n\n\n\n\b\b\u001b[1m\u001b[36mf̲\u001b[0m\u001b[39;49m\u001b[27;39H\u001b[34h\u001b[?25h\u001b[34l"]
[2777.083368, "o", "\u001b[52;13H\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[2777.083996, "o", "\u001b[27;39H"]
[2777.116894, "o", "\u001b[?25l\u001b[36m\u001b[45mr\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2777.383193, "o", "\u001b[26;51H\u001b[?25l\u001b[46mfor\u001b[39;49m\u001b[31;37H\u001b[46mfor\u001b[39;49m\u001b[27d\u001b[34h\u001b[?25h\u001b[34l"]
[2777.422173, "o", "\u001b[52;15H"]
[2777.42257, "o", "\u0007\r\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49mfor\u001b[41m \u001b[39;49m\u001b[27;40H\u001b[34h\u001b[?25h\u001b[34l"]
[2777.448589, "o", "\u001b[26;51H\u001b[?25lfor\u001b[31;37Hfor\u001b[27d\u001b[34h\u001b[?25h\u001b[34l"]
[2779.253802, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[27;40H\u001b[34h\u001b[?25h\u001b[34l"]
[2779.269559, "o", "\b\b\b\u001b[?25lfor\u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;41H\u001b[34h\u001b[?25h\u001b[34l"]
[2781.392222, "o", "\u001b[52;1H\u001b[K\u001b[27;41H"]
[2781.662928, "o", "\u001b[52;1H\u001b[?25lMark set\u001b[27;41H\u001b[34h\u001b[?25h\u001b[34l"]
[2781.676764, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\u001b[K\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K"]
[2781.677796, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t"]
[2781.678422, "o", "̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[K\u001b[40;13Hnamestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[K\u001b[41;13Hstackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲"]
[2781.678557, "o", "g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent\u001b[32P\u001b[50;13H\u001b[26P\t\t\t\b\u001b[35m23\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1 \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2782.05259, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2782.065852, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2782.373687, "o", "\u001b[52;11H\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[2782.374104, "o", "\u001b[H\n"]
[2782.384783, "o", "\t\b\b\u001b[?25l\u001b[1m\u001b[36m\u001b[45mr̲\u001b[0m\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2782.570868, "o", "\u001b[52;12H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[2782.571166, "o", "\u001b[2;8H"]
[2782.584822, "o", "\b\u001b[?25l\u001b[1m\u001b[36mr̲\u001b[0m\u001b[39;49m\u001b[3;44H\u001b[36m\u001b[45mre\u001b[39;49m\u001b[51;34H\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[3;46H\u001b[34h\u001b[?25h\u001b[34l"]
[2782.846505, "o", "\u001b[5;70H\u001b[?25l\u001b[46mre\u001b[39;49m\u001b[7;21H\u001b[46mre\u001b[39;49m\u001b[13;33H\u001b[46mre\u001b[39;49m\u001b[19;26H\u001b[46mre\u001b[39;49m\u001b[24;8H\u001b[46mre\u001b[39;49m\u001b[32;17H\u001b[46mre\u001b[39;49m"]
[2782.846928, "o", "\u001b[37;16H\u001b[46mre\u001b[39;49m letgits(namestack,stackptr,max of namestack,\u001b[46mre\u001b[39;49m\u001b[42;11H\u001b[33m\u001b[46mre\u001b[39;49m\n\n\t\u001b[46mre\u001b[39;49m\u001b[48;31H\u001b[46mre\u001b[39;49m\u001b[3;46H\u001b[34h\u001b[?25h\u001b[34l"]
[2782.856257, "o", "\u001b[52;13H\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[2782.85653, "o", "\u001b[3;46H"]
[2782.874066, "o", "\b\b\u001b[?25l\u001b[46mre\u001b[39;49m\u001b[7;21H\u001b[36m\u001b[45mrea\u001b[39;49m\u001b[51;34H\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[2782.884216, "o", "\u001b[3;44H\u001b[?25lre\u001b[5;70Hre\u001b[13;33Hre\u001b[19;26Hre\u001b[24;8Hre\u001b[32;17Hre"]
[2782.884403, "o", "\u001b[37;16Hre letgits(namestack,stackptr,max of namestack,re\u001b[42;11H\u001b[33mre\u001b[39;49m\n\n\tre\u001b[48;31Hre\u001b[7;24H\u001b[34h\u001b[?25h\u001b[34l"]
[2783.131332, "o", "\u001b[52;14H\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[2783.132103, "o", "\u001b[7;24H"]
[2783.15109, "o", "\u001b[?25l\u001b[36m\u001b[45md\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2783.329131, "o", "\u001b[52;16H"]
[2783.329622, "o", "\u001b[7;25H"]
[2783.346718, "o", "\b\b\b\b\u001b[?25lread\u001b[32;17H\u001b[36m\u001b[45mread \u001b[39;49m\u001b[51;34H\u001b[3m31\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;22H\u001b[34h\u001b[?25h\u001b[34l"]
[2783.495853, "o", "\u001b[52;16H\u001b[?25lw\u001b[34h\u001b[?25h\u001b[34l"]
[2783.496471, "o", "\u001b[32;22H"]
[2783.540461, "o", "\u001b[H\n\u001b[?25l                                          ERROR(symbol = colon symbol,\u001b[35m3007\u001b[39;49m)\r\n                                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n                                        \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ smaller symbol ∧\u001b[K\r\n                                        symbol ≠ colon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n                                        \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3007\u001b[39;49m);\r\n                                          reaffer1 while(symbol ≠\r\n                                          smaller symbol ∧ symbol ≠\u001b[K\r\n                                          colon symbol)\r\n\t\t\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n                                      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n                                    \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K"]
[2783.540864, "o", "\u001b[13;7H                        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[14;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[15;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3008\u001b[39;49m);\u001b[16;7H                        reaffer1 while(symbol ≠ comma symbol ∧\u001b[17;7H                        symbol ≠ smaller symbol ∧ symbol ≠ colon\u001b[18;7H                        symbol)\u001b[19;7H                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[20;7H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[21;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m i̲f̲ symbol;\u001b[39;49m\u001b[K\u001b[22;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ptr - \u001b[35m1\u001b[39;49m < max of formallist \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m formallist[ptr - \u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m\u001b[23;7H      \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m, \u001b[35m3009\u001b[39;49m);\u001b[24;7H      reaffer;\r\n            ERROR(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol,\u001b[35m3024\u001b[39;49m)"]
[2783.540998, "o", ";\u001b[26;13H\u001b[36m\u001b[45mread w\u001b[39;49mhile(symbol = nlcr symbol ∨ symbol = semicolon symbol);\r\n        outaccent: definitionstack[lcntr]:= -par - \u001b[35m1\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read formals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read block;\u001b[K\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[32;7H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m declarations,within accents;\u001b[33;7H      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare parameters;\u001b[34;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, j, l, ptr, length;\u001b[K\u001b[35;13H      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m found;\u001b[K\u001b[36;13H      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m parameter[\u001b[35m0\u001b[39;49m:\u001b[35m20\u001b[39;49m];\u001b[K\u001b[37;13H      ptr:= l:= \u001b[35m0\u001b[39;49m; j:= \u001b[35m127\u001b[39;49m; found:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[38;13H      reaffer;\u001b[K\u001b[39;13H    "]
[2783.541087, "o", "  store letgits(parameter,\u001b[35m1\u001b[39;49m,\u001b[35m20\u001b[39;49m,reaffer);\u001b[40;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m l ≠ \u001b[35m22\u001b[39;49m ∧ symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[41;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m length:= formallist[ptr] \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m length ≠ \u001b[35m0\u001b[39;49m ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[42;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m;\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m length = l \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[44;7H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m i:= \u001b[35m0\u001b[39;49m;\u001b[45;7H                        \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m parameter[i - \u001b[35m1\u001b[39;49m] =\u001b[46;13H                  formallist[ptr + i] ∧ ¬ found \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[47;31H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m i = \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[48;13H                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m l:"]
[2783.541157, "o", "= \u001b[35m1\u001b[39;49m, l \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m l ≠ smaller symbol\u001b[49;13H                        \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbo1(l); i:= i - \u001b[35m1\u001b[39;49m;\u001b[50;13H                        stow into stack(definitionstack,\u001b[51;29H\u001b[3m21% L132\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;19H\u001b[34h\u001b[?25h\u001b[34l"]
[2783.717417, "o", "\u001b[52;17H\u001b[?25lh\u001b[34h\u001b[?25h\u001b[34l"]
[2783.717852, "o", "\u001b[26;19H"]
[2783.747477, "o", "\u001b[?25l\u001b[36m\u001b[45mh\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2783.993719, "o", "\u001b[52;18H\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[2783.994334, "o", "\u001b[26;20H"]
[2784.010144, "o", "\u001b[?25l\u001b[36m\u001b[45mi\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2784.332512, "o", "\u001b[52;19H\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[2784.332779, "o", "\u001b[26;21H"]
[2784.352879, "o", "\u001b[?25l\u001b[36m\u001b[45ml\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2784.550814, "o", "\u001b[52;20H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[2784.551176, "o", "\u001b[26;22H"]
[2784.570049, "o", "\u001b[?25l\u001b[36m\u001b[45me\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2785.092002, "o", "\u001b[2;25H\u001b[?25l\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m word < \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m empty:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m definitionstack[lcntr]:=word ÷ t8;\u001b[4;31Hs:= word - definitionstack[lcntr] × t8;\u001b[5;31Hbcntr:= bcntr - \u001b[35m1\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[7;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m delete symbol;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[10;13Hin def mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[11;13Hstow into stack(definitionstack,max of defstack,symbol);\u001b[12;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(trne,\u001b[35m3010\u001b[39;49m); skip until(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[14;13Hbegcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[15;13Hdeclarations:= symbol ≠ nlcr symbol ∧ symbol ≠ semicolon\u001b[16;13Hsymbol; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m ¬ "]
[2785.092178, "o", "declarations \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[18;19Hin def mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[19;19Hreaffer;\u001b[K\u001b[20;19Hstow into stack(definitionstack,max of defstack,\u001b[21;13H      symbol); in def mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[22;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[K\u001b[24;13Hwithin accents:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[25;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i: = i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[26;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45mread while\u001b[39;49m(symbol ≠ accent symbol\u001b[K\r\n\t                   ∧ symbol ≠ smaller symbol);\u001b[28;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m compare parameters;\u001b[29;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[30;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m within acce"]
[2785.093124, "o", "nts:= ¬ within accents;\u001b[31;7H            reaffer;\u001b[K\u001b[32;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m within accents \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[33;13H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[34;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[35;19H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m;\u001b[36;19H              \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m begcntr = \u001b[35m0\u001b[39;49m ∧ ¬ declarations\u001b[37;19H              \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;19H              \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[39;19H                \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m i ≠ nlcr symbol\u001b[40;19H                ∧ i ≠ semicolon symbol ∧ ¬ empty\u001b[41;19H                \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[K\u001b[42;19H     "]
[2785.093677, "o", "           empty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n\t\t\t        \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[48;31Hbegcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[K\r\n\t\t\t\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[50;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m33% L196\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;29H\u001b[34h\u001b[?25h\u001b[34l"]
[2785.635178, "o", "\u001b[2;25H\u001b[?25l          \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m delete symbol(i);\u001b[K\r\n\t\t\t          empty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;31H  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\b\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[6;28H\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[7;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[8;13H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;31Hbegcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[10;13H            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[11;13H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[12;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[13;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bin def mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; reaffer;\u001b[15;7Hstow into stack(definitionstack,max of defstack,endmarker);\u001b[K\u001b[16;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m stackptr < max of namestack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;7Hnamestack[stackptr]:= \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr +"]
[2785.636035, "o", " \u001b[35m1\u001b[39;49m > max of defstack\u001b[18;19H          \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m lcntr + \u001b[35m1\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read block;\u001b[39;49m\u001b[K\r\n\u001b[32m{proc above should be indented}\u001b[39;49m\u001b[K\u001b[21;7Hmax of formallist:= \u001b[35m127\u001b[39;49m; empty:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[22;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ empty \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[23;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read name;\u001b[24;13Hread formals;\u001b[K\u001b[25;13Hread block;\u001b[K\u001b[26;13H\u001b[36m\u001b[45mread while\u001b[39;49m(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m);\u001b[K\u001b[27;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[28;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[29;13H      read while(symbol = nlcr symbol\u001b[30;13H               ∨ symbol = semicolon symbol);\u001b[31;19HERROR(symbol < \u001b[35m10\u001b[39;49m ∨ symbol > \u001b[35m62\u001b[39;49m,\u001b[35m3030\u001b[39;49m)\u001b[32;13H\u001b[1m\u001b[36me"]
[2785.636323, "o", "̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ empty:= t̲r̲u̲e̲\u001b[39;49m\u001b[K\u001b[33;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpr tape symbol:= space symbol\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m define macro;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m expand macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m p,par;\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read actuals;\u001b[K\u001b[41;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,opcntr,quotcntr,savel,auxptr;\u001b[K\r\n\u001b[K\n\u001b[32m{indent procedure below}\u001b[39;49m\u001b[K\u001b[44;7H\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m complete actual parameter;\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr - \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m2\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[47;13H\u001b[1m\u001b[36mb̲e̲g̲i̲"]
[2785.636417, "o", "n̲\u001b[0m\u001b[39;49m actualstack[lcntr]:= actualstack[lcntr] ÷ t8;\u001b[48;19Hbcntr:= bcntr - l\u001b[K\u001b[49;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bstow into stack(actualstack,max of actualstack,\u001b[51;29H\u001b[3m40% L235\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[2785.917737, "o", "\n\n\n\b\b\b\b\u001b[?25l\u001b[46mread while\u001b[39;49m\u001b[26;23H\u001b[34h\u001b[?25h\u001b[34l"]
[2786.244463, "o", "\u001b[26;13H\u001b[?25l\u001b[46mread while\u001b[39;49m\n\n\n\b\b\b\b\u001b[36m\u001b[45mread while\u001b[39;49m"]
[2786.24459, "o", "\u001b[51;36H\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;29H\u001b[34h\u001b[?25h\u001b[34l"]
[2786.694382, "o", "\u001b[2;13H\u001b[?25lstow into stack(actualstack,max of actualstack,\u001b[3;13Hendmarker);\u001b[K\u001b[4;13Hfreeptr:= freeptr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[5;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr < max of pointerstack \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[6;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr;\u001b[7;19Hpointerstack[freeptr]:= lcntr + \u001b[35m1\u001b[39;49m\u001b[8;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[9;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m complete actual parameter;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\bauxptr:= freeptr;\u001b[12;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[13;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[14;7H      opcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[15;7H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m opcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[16;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[17;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt"]
[2786.694485, "o", "̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[18;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m savel:= lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m;\r\n                        bcntr:= \u001b[35m2\u001b[39;49m\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[21;7H            reaffer;\u001b[K\u001b[22;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[23;7H            opcntr:= opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[24;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[25;13H      opcntr:= opcntr - \u001b[35m1\u001b[39;49m;\u001b[26;13H      \u001b[36m\u001b[45mread while\u001b[39;49m(symbol = nlcr symbol ∨\u001b[27;13H                 symbol = semicolon symbol);\u001b[28;13H      lcntr:= savel; bcntr:= \u001b[35m2\u001b[39;49m;\u001b[29;19Hstow into stack(actualstack,max of actualstack,\u001b[30;19Hsymbol);\u001b[K\u001b[31;19H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m (symbol ≠ comma symbol ∨ opcntr\u001b[32;13H      ≠ \u001b[35m1\u001b[39;49m) ∧ opcntr ≠ \u001b[35m0\u001b[39;4"]
[2786.694532, "o", "9m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[33;7H            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[34;7H                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = open symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\r\n                          opcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m"]
[2786.694652, "o", "\r\n\t\t\t\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = close symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m opcntr:=\r\n                          opcntr - \u001b[35m1\u001b[39;49m\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bcomplete actual parameter\u001b[40;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[41;7H      reaffer;\u001b[K\u001b[42;13Hin actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[44;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[45;13Hin actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[46;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[47;19HERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[K\u001b[48;19Hquotcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[49;13H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m"]
[2786.694703, "o", "\u001b[50;13H      lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m lcntr:= savel;\u001b[51;30H\u001b[3m7% L283\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;29H\u001b[34h\u001b[?25h\u001b[34l"]
[2787.255618, "o", "\u001b[2;13H\u001b[?25l      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[3;13H      complete actual parameter\u001b[4;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\breaffer;\u001b[K\u001b[6;13Hin actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[7;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\u001b[8;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[9;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in actual mode:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[10;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:=i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[11;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(freeptr > max of pointerstack,\u001b[35m3013\u001b[39;49m);\u001b[12;7H            quotcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\u001b[13;7H            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr = auxptr \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[14;13H      lcntr:= pointerstack[freeptr] - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m lcntr:= savel;"]
[2787.255779, "o", "\u001b[15;13H      bcntr:= \u001b[35m2\u001b[39;49m;\u001b[K\u001b[16;13H      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m quotcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[17;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m reaffer;\u001b[K\u001b[18;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = smaller symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\r\n\t\t\t  quotcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[20;19H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = greater symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m quotcntr:=\u001b[21;19H        quotcntr - \u001b[35m1\u001b[39;49m\u001b[22;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bcomplete actual parameter;\u001b[24;19Hreaffer;\u001b[K\u001b[25;19H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[26;19H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45mread while\u001b[39;49m(symbol = nlcr symbol\u001b[27;30H\u001b[6@    ∨ \u001b[28;19H      ERROR(symbol = point symbol,\u001b[35m3025\u001b[39;49m)\u001b[29;19H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[30;13H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;"]
[2787.257103, "o", "\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = point symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer\u001b[K\u001b[32;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3025\u001b[39;49m);\u001b[K\u001b[33;13Hin actual mode:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[34;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\bpointerptr:= auxptr;\u001b[K\u001b[36;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m freeptr - auxptr ≠ par \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[37;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3016\u001b[39;49m);\u001b[K\u001b[38;13Hauxptr:= auxptr + par - \u001b[35m1\u001b[39;49m;\u001b[39;13H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= freeptr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m auxptr \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[40;13Hpointerstack[i]:= -\u001b[35m1\u001b[39;49m;\u001b[41;13Hfreeptr:= auxptr + \u001b[35m1\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≠ nlcr symbol ∧ symbol ≠ semicolon symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b"]
[2787.257915, "o", "[0m\u001b[39;49m\u001b[44;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3001\u001b[39;49m);\u001b[K\u001b[45;7H      read while(symbol ≠ nlcr symbol\u001b[46;13H         ∧ symbol ≠ semicolon symbol)\u001b[K\u001b[47;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read actuals;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store expansion;\u001b[K\u001b[51;29H\u001b[3m53% L319\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2787.529836, "o", "\u001b[45;13H\u001b[?25l\u001b[46mread while\u001b[39;49m\u001b[26;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2787.810126, "o", "\r\t\t\t\u001b[?25l\u001b[46mread while\u001b[39;49m"]
[2787.810426, "o", "\u001b[45;13H\u001b[36m\u001b[45mread while\u001b[39;49m\u001b[51;35H\u001b[3m38\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;23H\u001b[34h\u001b[?25h\u001b[34l"]
[2788.528489, "o", "\u001b[2;19H\u001b[?25l\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol\u001b[3;19H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m accent read:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m\u001b[K\u001b[4;7H\u001b[6P\n\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[6;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≠ semicolon symbol\u001b[7;7H              ∧ symbol ≠ n1cr symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[8;7Hsymbol:= read and buffer;\u001b[K\u001b[9;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m in def mode \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[10;7Hstow into stack(definitionstack,max of defstack,symbol)\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nreaffer:= symbol\u001b[K\r\n\u001b[32m{missing indent again}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m reaffer;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); \u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b"]
[2788.528956, "o", "[39;49m s,k;\u001b[K\u001b[18;7Hk:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[19;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[20;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\u001b[21;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[23;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m \u001b[36m\u001b[45mread whil"]
[2788.529602, "o", "e\u001b[39;49m(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[28;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); \u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\u001b[K\u001b[33;7Hfirst symbol:= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[34;7Hread while(first symbol ≠\u001b[35;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol));\u001b[36;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i wnile "]
[2788.52997, "o", "¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[37;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); value max,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[43;10Hchar = space symbol ∧ spacecntr < \u001b[35m255\u001b[39;49m\u001b[K\u001b[44;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[47;7H      \u001b[1m"]
[2788.530066, "o", "\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[49;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m79% L496\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;21H\u001b[34h\u001b[?25h\u001b[34l"]
[2788.826962, "o", "\u001b[29;5H\u001b[?25l\u001b[33m\u001b[46mread while\u001b[39;49m\u001b[34;7H\u001b[46mread while\u001b[39;49m\u001b[36;42H\u001b[46mread while\u001b[39;49m\u001b[26;21H\u001b[34h\u001b[?25h\u001b[34l"]
[2790.209548, "o", "\u001b[26;11H\u001b[?25l\u001b[46mread while\u001b[39;49m\u001b[29;5H\u001b[36m\u001b[45mread while\u001b[39;49m\u001b[51;36H\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;15H\u001b[34h\u001b[?25h\u001b[34l"]
[2790.615803, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[29;15H\u001b[34h\u001b[?25h\u001b[34l"]
[2790.636011, "o", "\u001b[26;11H\u001b[?25lread while\u001b[29;5H\u001b[33mread while\u001b[39;49m\u001b[34;7Hread while\u001b[36;42Hread while\u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;16H\u001b[34h\u001b[?25h\u001b[34l"]
[2791.039956, "o", "\u001b[52;1H\u001b[K\u001b[51;34H\u001b[?25l\u001b[3m500\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2799.939796, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2802.773489, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2804.803485, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2806.700755, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2808.604903, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2815.055513, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2818.718728, "o", "\u001b[C"]
[2819.207137, "o", "\u001b[C"]
[2819.239677, "o", "\u001b[C"]
[2819.266134, "o", "\u001b[C"]
[2819.303744, "o", "\u001b[C"]
[2819.329112, "o", "\u001b[C"]
[2819.361843, "o", "\t\b"]
[2819.395661, "o", "\t"]
[2819.430469, "o", "\u001b[C"]
[2819.462627, "o", "\u001b[C"]
[2819.496648, "o", "\u001b[C"]
[2819.528947, "o", "\u001b[C"]
[2819.529699, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[36;13H\u001b[34h\u001b[?25h\u001b[34l"]
[2819.531475, "o", "\u001b[52;15H\u001b[?25ldone\u001b[36;13H\u001b[34h\u001b[?25h\u001b[34l"]
[2819.562372, "o", "\u001b[52;1H\u001b[K\u001b[36;14H"]
[2819.59666, "o", "\u001b[C"]
[2819.62841, "o", "\t\b"]
[2819.662168, "o", "\t"]
[2819.694797, "o", "\u001b[C"]
[2819.729908, "o", "\u001b[C"]
[2819.761706, "o", "\u001b[C"]
[2820.278394, "o", "\b"]
[2821.093477, "o", "\b\u001b[?25l\u001b[1P\u001b[34h\u001b[?25h\u001b[34l"]
[2822.60431, "o", "\u001b[?25l\u001b[1@h\u001b[34h\u001b[?25h\u001b[34l"]
[2823.298976, "o", "\b"]
[2823.558623, "o", "\b"]
[2824.491446, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2824.938933, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2825.412257, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[2825.598017, "o", "\r"]
[2825.646344, "o", "\u001b[K\u001b[36;17H"]
[2825.687027, "o", "\u001b[1;50r\u001b[2;1H\u001b[10M\u001b[1;52r\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;16H \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m"]
[2825.687766, "o", "\u001b[41;1H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\r\n                  stow into stack(stack,max,char)\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K\r\n      stack[lcntr]:= stack[lcntr] × t8 + char;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;22H\u001b[34h\u001b[?25h\u001b[34l"]
[2828.44564, "o", "\b"]
[2828.93118, "o", "\b"]
[2828.965171, "o", "\b"]
[2828.996911, "o", "\b"]
[2829.029655, "o", "\b"]
[2829.066125, "o", "\b"]
[2829.091597, "o", "\b"]
[2829.124718, "o", "\b"]
[2829.158133, "o", "\b"]
[2829.191123, "o", "\b"]
[2829.226495, "o", "\b"]
[2829.733413, "o", "\b"]
[2830.219578, "o", "\b"]
[2830.251631, "o", "\b"]
[2830.286413, "o", "\b"]
[2830.318212, "o", "\b"]
[2830.35341, "o", "\b"]
[2830.383969, "o", "\b"]
[2830.417638, "o", "\b"]
[2830.980537, "o", "\b"]
[2831.203232, "o", "\b"]
[2834.548183, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2841.333536, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2841.689081, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2842.006874, "o", "\u001b[51;35H\u001b[?25l\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2847.56837, "o", "\u001b[52d\u001b[?25lMark set\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2847.586178, "o", "\u001b[2d\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\tin def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[2847.587139, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\r\n      max of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\r\n      max of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\r\n      asterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\r\n      endmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\r\n      namestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[23;7Htt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\u001b[24;7Hfreeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[29;7H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0"]
[2847.587349, "o", "m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\u001b[34;7H      ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;7H      lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\u001b[40;7H      namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[41;7H      stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[42;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\u001b[45;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b["]
[2847.587524, "o", "39;49m i,ptr,aux,par;\u001b[K\u001b[46;13H\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\n\t\b\b      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\u001b[49;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2847.946896, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2847.964498, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2848.280441, "o", "\u001b[52;11H\u001b[?25lv\u001b[34h\u001b[?25h\u001b[34l"]
[2848.280964, "o", "\u001b[H\n"]
[2848.297279, "o", "\n\t\t\t\b\u001b[?25l\u001b[36m\u001b[45mv\u001b[39;49m"]
[2848.297556, "o", "\u001b[51;34H\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[3;25H\u001b[34h\u001b[?25h\u001b[34l"]
[2848.398261, "o", "\u001b[52;12H\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[2848.405126, "o", "\u001b[3;25H"]
[2848.417734, "o", "\b\u001b[?25lv\u001b[11;28H\u001b[36m\u001b[45mva\u001b[39;49m\u001b[51;34H\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;30H\u001b[34h\u001b[?25h\u001b[34l"]
[2848.685584, "o", "\u001b[25;22H\u001b[?25l\u001b[33m\u001b[46mva\u001b[39;49m\u001b[11;30H\u001b[34h\u001b[?25h\u001b[34l"]
[2848.7883, "o", "\u001b[52;13H\u001b[?25ll\u001b[34h\u001b[?25h\u001b[34l"]
[2848.789467, "o", "\u001b[11;30H"]
[2848.847597, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); \u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\r\n      k:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K"]
[2848.848474, "o", "\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[14;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); \u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\u001b[19;7Hfirst symbol:"]
[2848.849474, "o", "= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[20;7Hread while(first symbol ≠\u001b[K\u001b[21;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol));\u001b[22;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[23;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); \u001b[36m\u001b[45mval\u001b[39;49mue max,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\r\n\t\t\b;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr"]
[2848.850106, "o", " < \u001b[35m255\u001b[39;49m\u001b[30;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[32;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[34;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[K\u001b[35;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[36;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[39;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[40"]
[2848.850594, "o", ";13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[41;13H      stow into stack(stack,max,char)\u001b[42;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[44;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[45;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[47;7Hstow into stack(stack,max,o)\u001b[48;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m81% L510\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;47H\u001b[34h\u001b[?25h\u001b[34l"]
[2849.08778, "o", "\u001b[52;14H\u001b[?25lu\u001b[34h\u001b[?25h\u001b[34l"]
[2849.08813, "o", "\u001b[26;47H"]
[2849.120728, "o", "\u001b[?25l\u001b[36m\u001b[45mu\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2849.18365, "o", "\u001b[52;15H\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[2849.184179, "o", "\u001b[26;48H"]
[2849.215673, "o", "\u001b[?25l\u001b[36m\u001b[45me\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2849.827206, "o", "\u001b[52;17H"]
[2849.827714, "o", "\u001b[26;49H"]
[2849.85811, "o", "\u001b[?25l\u001b[36m\u001b[45m \u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[2850.237524, "o", "\u001b[1;50r\u001b[2;1H\u001b[26M\u001b[1;52r"]
[2850.238029, "o", "\u001b[25;1H\u001b[K\n\u001b[?25l\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); \u001b[36m\u001b[45mvalue \u001b[39;49mmax;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;\u001b[K\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\r\n      word:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[K\r\n            j = j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b["]
[2850.238202, "o", "0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  list[pointer]:= word × t6 + symbol;\u001b[K\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[K\r\n            symbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m list[pointer]:= word;\u001b[K\r\n      pointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1"]
[2850.238713, "o", "m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[51;30H\u001b[3m5% L536\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;57H\u001b[34h\u001b[?25h\u001b[34l"]
[2850.758494, "o", "\u0007"]
[2850.759008, "o", "\u001b[52;1H\u001b[?25l\u001b[36mFailing I-search: \u001b[39;49m\u001b[41mvalue\u001b[39;49m\u001b[41m \u001b[39;49m\u001b[26;57H\u001b[34h\u001b[?25h\u001b[34l"]
[2852.177657, "o", "\u001b[52;1H\u001b[K\u001b[26;57H"]
[2852.945882, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;57H\u001b[34h\u001b[?25h\u001b[34l"]
[2852.94633, "o", "\u001b[52;7H\u001b[?25let\u001b[K\u001b[26;57H\u001b[34h\u001b[?25h\u001b[34l"]
[2852.959567, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲"]
[2852.959885, "o", "\u001b[0m\u001b[39;49m;\u001b[K\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\r\n      freeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\t\tsavel,max of formallist;\u001b[29;15Hempty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b"]
[2852.960203, "o", "[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\r\n            namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\r\n            stackptr:= stackptr + \u001b[35m2\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[4"]
[2852.960346, "o", "9;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1     (Simple Algol 60 Mode) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2853.940795, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2853.954943, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2854.136055, "o", "\u001b[52;11H\u001b[?25lvalue\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2854.183044, "o", "\u001b[?25l\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); \u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\r\n      k:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K"]
[2854.183475, "o", "\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[14;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); \u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\u001b[19;7Hfirst symbol:"]
[2854.183575, "o", "= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[20;7Hread while(first symbol ≠\u001b[K\u001b[21;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol));\u001b[22;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[23;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); \u001b[36m\u001b[45mvalue \u001b[39;49mmax,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\r\n\t\t\b;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr"]
[2854.183641, "o", " < \u001b[35m255\u001b[39;49m\u001b[30;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[32;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[34;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[K\u001b[35;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K"]
[2854.184095, "o", "\u001b[36;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[39;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[40;13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[41;13H      stow into stack(stack,max,char)\u001b[42;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[44;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[45;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[47;7Hstow into stack(stack,max,o)\u001b[48;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more l"]
[2854.184444, "o", "ost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m81% L510\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;50H\u001b[34h\u001b[?25h\u001b[34l"]
[2855.329681, "o", "\u001b[1;50r\u001b[2;1H\u001b[26M\u001b[1;52r"]
[2855.330335, "o", "\u001b[25;1H\u001b[K\n\u001b[?25l\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); \u001b[36m\u001b[45mvalue \u001b[39;49mmax;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;\u001b[K\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\r\n      word:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[K\r\n            j = j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b["]
[2855.330597, "o", "0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  list[pointer]:= word × t6 + symbol;\u001b[K\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[K\r\n            symbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m list[pointer]:= word;\u001b[K\r\n      pointer:= pointer + \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1"]
[2855.330693, "o", "m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[51;30H\u001b[3m5% L536\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;57H\u001b[34h\u001b[?25h\u001b[34l"]
[2855.828068, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;57H\u001b[34h\u001b[?25h\u001b[34l"]
[2855.841367, "o", "\b\b\b\b\b\b\u001b[?25lvalue \u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;56H\u001b[34h\u001b[?25h\u001b[34l"]
[2856.045975, "o", "\u001b[52;1H\u001b[K\u001b[26;55H"]
[2856.27109, "o", "\b"]
[2856.481642, "o", "\b"]
[2856.700056, "o", "\b"]
[2856.957571, "o", "\b"]
[2857.47793, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[2857.478331, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2857.792813, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2858.218684, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[2858.604823, "o", "\r"]
[2858.647087, "o", "\u001b[K\u001b[26;51H"]
[2858.68498, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;51H\u001b[1m\u001b[36mv̲a̲l̲u̲e̲\u001b[0m\u001b[39;49m "]
[2858.685219, "o", "\b\u001b[34h\u001b[?25h\u001b[34l"]
[2859.697071, "o", "\u001b[52;1H\u001b[?25lMark set\u001b[26;56H\u001b[34h\u001b[?25h\u001b[34l"]
[2859.712217, "o", "\u001b[H\n\u001b[?25l\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:="]
[2859.712507, "o", "\u001b[13;7Hfrom actualstack:= accent read:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\u001b[14;7Hmax of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\u001b[15;7Hmax of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\u001b[16;7Hmax of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[17;7Hmax of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[18;7Hmax of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K"]
[2859.713129, "o", "\u001b[19;7Hasterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[20;7Hstackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[21;7Hendmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[22;7Hnamestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\r\n      freeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\t\tsavel,max of formallist;\u001b[29;15Hempty;\u001b[30;7H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\r\n\u001b[K\n\t\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\u001b[33;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[34;13HERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[35;13Hlcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);"]
[2859.713373, "o", "\u001b[36;13Hbcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[37;13Hstore letgits(namestack,stackptr,max of namestack,reaffer);\u001b[38;13HERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[39;13Hnamestack[stackptr]:= stackptr - save;\r\n            namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\r\n            stackptr:= stackptr + \u001b[35m2\u001b[39;49m\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n\t"]
[2859.71374, "o", "\b\b\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\r\n\u001b[K\u001b[48;13H\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[49;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m"]
[2859.714291, "o", "\u001b[50;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[51;29H\u001b[3mTop L1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2860.085186, "o", "\u001b[52d\u001b[?25l\u001b[36mI-search: \u001b[39;49m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2860.094494, "o", "\u001b[51;61H\u001b[?25l\u001b[3m Isearch) \u001b[0m\u001b[39;49m\u001b[23m\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2860.249575, "o", "\u001b[52;11H\u001b[?25lvalue\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[2860.311724, "o", "\u001b[?25l\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m compare(text); \u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m text;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m s,k;\u001b[K\r\n      k:= \u001b[35m0\u001b[39;49m; compare:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m s:= stringsymbol(k, text) \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m s ≠ \u001b[35m255\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m s ≠ (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol)\r\n      \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m compare:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m; k:= -\u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[K"]
[2860.31211, "o", "\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m k:= k + \u001b[35m1\u001b[39;49m; \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m compare;\u001b[39;49m\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read while(condition); \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m condition;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[14;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m condition \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m first scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m reaffer \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m NS\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read while;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip until(text); \u001b[1m\u001b[36ms̲t̲r̲i̲n̲g̲\u001b[0m\u001b[39;49m text;\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, first symbol;\u001b[19;7Hfirst symbol:"]
[2860.312374, "o", "= stringsymbol(\u001b[35m0\u001b[39;49m,text);\u001b[20;7Hread while(first symbol ≠\u001b[K\u001b[21;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol));\u001b[22;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m ¬ compare(text) \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m read while(first symbol ≠\u001b[23;7H    (\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m \u001b[35m37\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol - \u001b[35m27\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m symbol))\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip until;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m stow into stack(stack,max,char); \u001b[36m\u001b[45mvalue \u001b[39;49mmax,char;\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max,char; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m stack;\r\n\t\t\b;\u001b[K\u001b[29;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char = space symbol ∧ spacecntr"]
[2860.312452, "o", " < \u001b[35m255\u001b[39;49m\u001b[30;7H\u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= SPACEcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[31;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m bcntr:= bcntr + \u001b[35m1\u001b[39;49m;\u001b[32;7H      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m bcntr = \u001b[35m3\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[33;7H      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m lcntr:= lcntr + \u001b[35m1\u001b[39;49m; bcntr:= \u001b[35m0\u001b[39;49m;\u001b[34;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m lcntr > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3018\u001b[39;49m)\u001b[K\u001b[35;13H\u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m stack[lcntr] := \u001b[35m0\u001b[39;49m\u001b[K\u001b[36;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\n\b\b\b\b\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m SPACEcntr > \u001b[35m150\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[38;7H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m stack[lcntr}:= stack[lcntr] × t8 + SPACEcntr;\u001b[39;13H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= space symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m151\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[40"]
[2860.312514, "o", ";13H\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\u001b[41;13H      stow into stack(stack,max,char)\u001b[42;7H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\u001b[43;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲\u001b[39;49m\u001b[44;7Hstack[lcntr]:= stack[lcntr] × t8 + char;\u001b[45;7H\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m char= endmarker \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\u001b[46;7H\u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= bcntr \u001b[1m\u001b[36ms̲t̲e̲p̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[47;7Hstow into stack(stack,max,o)\u001b[48;7H\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[32m{more lost indentation above}\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\u001b[K\u001b[51;29H\u001b[3m81% L510\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;50H\u001b[34h\u001b[?25h\u001b[34l"]
[2860.855541, "o", "\u001b[52;1H\u001b[?25lMark saved where search started\u001b[26;50H\u001b[34h\u001b[?25h\u001b[34l"]
[2860.878877, "o", "\b\b\b\b\b\b\u001b[?25lvalue \u001b[51;61H\u001b[3m) --------\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;49H\u001b[34h\u001b[?25h\u001b[34l"]
[2861.126096, "o", "\u001b[52;1H\u001b[K\u001b[26;48H"]
[2861.366056, "o", "\b"]
[2861.580992, "o", "\b"]
[2861.80735, "o", "\b"]
[2862.041722, "o", "\b"]
[2862.557154, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2862.926702, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[2863.393096, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[2863.610559, "o", "\r"]
[2863.638952, "o", "\u001b[K\u001b[26;44H"]
[2863.696245, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m\u001b[26;44H\u001b[1m\u001b[36mv̲a̲l̲u̲e̲\u001b[0m\u001b[39;49m \b\u001b[34h\u001b[?25h\u001b[34l"]
[2864.512378, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;39H\u001b[34h\u001b[?25h\u001b[34l"]
[2865.376208, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2876.767201, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2876.989988, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2884.440017, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2895.482515, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2898.212003, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2902.025858, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2903.247235, "o", "\u001b[34;13H\u001b[1@\r\u001b[C"]
[2903.424633, "o", "\u001b[34;14H\u001b[1@\u001b[34;3H"]
[2903.59968, "o", "\t\t\b\b\u001b[1@\u001b[34;4H"]
[2903.838711, "o", "\t\t\b\u001b[1@\u001b[34;5H"]
[2904.042958, "o", "\t\t\u001b[1@\u001b[34;6H"]
[2904.233018, "o", "\u001b[34;18H\u001b[1@\r\t\b\b"]
[2904.381612, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2904.707132, "o", "\u001b[35;13H\u001b[1@\r\t\b"]
[2904.902013, "o", "\u001b[35;14H\u001b[1@\r\t"]
[2905.095387, "o", "\t\b\b\u001b[1@\b\b\b\b\b"]
[2905.308181, "o", "\t\b\u001b[1@\b\b\b\b\b"]
[2905.496471, "o", "\t\u001b[1@\b\b\b\b\b"]
[2905.718512, "o", "\t"]
[2905.721375, "o", "\u001b[C\u001b[1@\b\b\b\b\b"]
[2908.127686, "o", "\b"]
[2908.619164, "o", "\b"]
[2908.655413, "o", "\b"]
[2908.689335, "o", "\b"]
[2908.721399, "o", "\b"]
[2908.74977, "o", "\b"]
[2908.782116, "o", "\b"]
[2908.817848, "o", "\b"]
[2908.851395, "o", "\b"]
[2909.415493, "o", "\u001b[51;35H\u001b[?25l\u001b[3m20\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2909.669, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2911.228772, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2924.124261, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2926.874572, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2927.770292, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2928.04255, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2928.315604, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2929.641978, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2932.816078, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2934.314562, "o", "\u001b[51;35H\u001b[?25l\u001b[3m30\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2936.631739, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;4H\u001b[34h\u001b[?25h\u001b[34l"]
[2938.945182, "o", "\u001b[C"]
[2939.431533, "o", "\u001b[C"]
[2939.464704, "o", "\u001b[C"]
[2939.498723, "o", "\t\b"]
[2939.532429, "o", "\t"]
[2939.564981, "o", "\u001b[C"]
[2939.597852, "o", "\u001b[C"]
[2939.598584, "o", "\r\n\n\n\n\n\u001b[?25lAuto-saving...\u001b[47;11H\u001b[34h\u001b[?25h\u001b[34l"]
[2939.600398, "o", "\u001b[52;15H\u001b[?25ldone\u001b[47;11H\u001b[34h\u001b[?25h\u001b[34l"]
[2939.631103, "o", "\r\n\n\n\n\n\u001b[K\u001b[47;12H"]
[2939.664737, "o", "\u001b[C"]
[2939.698874, "o", "\u001b[C"]
[2939.731057, "o", "\u001b[C"]
[2939.763481, "o", "\t\b"]
[2939.796451, "o", "\t"]
[2939.831611, "o", "\u001b[C"]
[2939.862355, "o", "\u001b[C"]
[2939.894639, "o", "\u001b[C"]
[2939.931115, "o", "\u001b[C"]
[2939.962663, "o", "\u001b[C"]
[2939.996033, "o", "\u001b[C"]
[2940.030149, "o", "\t\b"]
[2940.063334, "o", "\t"]
[2940.090573, "o", "\u001b[C"]
[2940.12427, "o", "\u001b[C"]
[2940.157798, "o", "\u001b[C"]
[2940.194862, "o", "\u001b[C"]
[2940.22395, "o", "\u001b[C"]
[2940.253491, "o", "\u001b[C"]
[2940.285967, "o", "\t\b"]
[2940.322082, "o", "\t"]
[2940.356303, "o", "\u001b[C"]
[2940.385685, "o", "\u001b[C"]
[2940.416121, "o", "\n\n\n\n\u001b[C\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2940.813994, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;35H\u001b[34h\u001b[?25h\u001b[34l"]
[2941.078097, "o", "\b"]
[2941.9178, "o", "\b\u001b[?25l)\u001b[K\b\u001b[34h\u001b[?25h\u001b[34l"]
[2942.337968, "o", "\u001b[?25l\u001b[35m0\u001b[39;49m)\b\u001b[34h\u001b[?25h\u001b[34l"]
[2943.741832, "o", "\u001b[C"]
[2943.966886, "o", "\n\n\n\n\u001b[C\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2946.969552, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2949.733065, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[2950.181474, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[2950.181864, "o", "\u001b[26;1H\u001b[K\n\u001b[?25l\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m store letgits(list,pointer,max,letgit); \u001b[1m\u001b[36mv̲a̲l̲u̲e̲\u001b[0m\u001b[39;49m max;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m pointer,max,letgit; \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m list;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,j,word;\u001b[K\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m full;\u001b[K\r\n      word:= j:= \u001b[35m0\u001b[39;49m; full:= \u001b[1m\u001b[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol ≤ \u001b[35m62\u001b[39;49m ∧ ¬ full \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol ≥ \u001b[35m37\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= symbol - \u001b[35m27\u001b[39;49m;\u001b[K\r\n            j = j + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j = \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e"]
[2950.181956, "o", "̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  list[pointer]:= word × t6 + symbol;\u001b[K\r\n                  word:= j:= \u001b[35m0\u001b[39;49m; pointer:= pointer+ \u001b[35m1\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m e̲l̲s̲e̲ word:= word × t6 + symbol;\u001b[39;49m\u001b[K\r\n            symbol:= letgit\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m j ≠ \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m j:= j + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m j < \u001b[35m4\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m word:= word × t6 + \u001b[35m63\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m pointer > max \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m full:= \u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m list[pointer]:= word;\u001b[K\r\n      pointer:= pointer + \u001b[35m1\u001b[3"]
[2950.182016, "o", "9;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\nERROR(full ∧ ¬ in def mode,\u001b[35m3019\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m store letgits;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m unstack macros;\u001b[K\n\b\b\u001b[3m5% L535\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2960.221607, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2960.508388, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2960.775012, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2961.138709, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2961.547195, "o", "\t\b\b\u001b[1@\r\u001b[C"]
[2961.730259, "o", "\t\b\u001b[1@\b\b\b\b\b"]
[2961.947315, "o", "\t\u001b[1@\b\b\b\b\b"]
[2962.199717, "o", "\t\u001b[C\u001b[1@\b\b\b\b\b"]
[2962.416075, "o", "\u001b[22;11H\u001b[1@\b\b\b\b\b"]
[2962.605187, "o", "\u001b[22;12H\u001b[1@\b\b\b\b\b"]
[2962.774283, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2963.104155, "o", "\u001b[1@\t\b"]
[2963.336087, "o", "\u001b[1@\t"]
[2963.567059, "o", "\u001b[1@\u001b[C"]
[2963.79884, "o", "\u001b[1@\u001b[C"]
[2964.029503, "o", "\u001b[1@\u001b[C"]
[2964.267411, "o", "\u001b[1@\u001b[C"]
[2964.38659, "o", "\b"]
[2964.87322, "o", "\b"]
[2964.909015, "o", "\b"]
[2964.940483, "o", "\b"]
[2964.975764, "o", "\b"]
[2965.013366, "o", "\b"]
[2965.052644, "o", "\b"]
[2965.074348, "o", "\b"]
[2965.107649, "o", "\b"]
[2965.141041, "o", "\b"]
[2965.31141, "o", "\u001b[51;35H\u001b[?25l\u001b[3m29\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;3H\u001b[34h\u001b[?25h\u001b[34l"]
[2965.594774, "o", "\t\b\b\u001b[1@\b\b\b"]
[2965.799869, "o", "\t\b\u001b[1@\b\b\b"]
[2966.00966, "o", "\t\u001b[1@\b\b\b"]
[2966.223372, "o", "\t\u001b[C\u001b[1@\b\b\b"]
[2966.436377, "o", "\u001b[20;11H\u001b[1@\b\b\b"]
[2966.636605, "o", "\u001b[20;12H\u001b[1@\r\t"]
[2966.922155, "o", "\b"]
[2967.412247, "o", "\b"]
[2967.445568, "o", "\b"]
[2967.478921, "o", "\b"]
[2967.511549, "o", "\b"]
[2967.544508, "o", "\b"]
[2967.578431, "o", "\b"]
[2967.611729, "o", "\b"]
[2967.642187, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;47H\u001b[34h\u001b[?25h\u001b[34l"]
[2967.670893, "o", "\b"]
[2967.709779, "o", "\b"]
[2967.998489, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;15H\u001b[34h\u001b[?25h\u001b[34l"]
[2968.819643, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2969.330213, "o", "\t\b\b\u001b[1@\r\u001b[C"]
[2969.538897, "o", "\t\b\u001b[1@\b\b\b\b\b"]
[2969.746992, "o", "\t\u001b[1@\b\b\b\b\b"]
[2969.968378, "o", "\t\u001b[C\u001b[1@\b\b\b\b\b"]
[2970.208476, "o", "\u001b[19;11H\u001b[1@\b\b\b\b\b"]
[2970.481084, "o", "\u001b[19;12H\u001b[1@\b\b\b\b\b"]
[2971.218168, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2972.157054, "o", "\u001b[1@\t\b"]
[2972.363349, "o", "\u001b[1@\t"]
[2972.588429, "o", "\u001b[1@\u001b[C"]
[2972.762861, "o", "\u001b[1@\u001b[C"]
[2972.986498, "o", "\u001b[1@\u001b[C"]
[2973.23131, "o", "\u001b[1@\u001b[C"]
[2973.435724, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;13H\u001b[34h\u001b[?25h\u001b[34l"]
[2973.657227, "o", "\u001b[1@\u001b[C"]
[2973.875741, "o", "\u001b[1@\u001b[C"]
[2974.093741, "o", "\u001b[1@\t\b"]
[2974.344646, "o", "\u001b[1@\t"]
[2974.572155, "o", "\u001b[1@\u001b[C"]
[2974.813921, "o", "\u001b[1@\u001b[C"]
[2975.150972, "o", "\u001b[C"]
[2975.641792, "o", "\u001b[C"]
[2975.673977, "o", "\u001b[C"]
[2975.709117, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[2975.74168, "o", "\u001b[C"]
[2976.238892, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;2H\u001b[34h\u001b[?25h\u001b[34l"]
[2976.438686, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;2H\u001b[34h\u001b[?25h\u001b[34l"]
[2976.642858, "o", "\b"]
[2977.01202, "o", "\u001b[16;19H\u001b[1@\r\u001b[C"]
[2977.209631, "o", "\u001b[16;20H\u001b[1@\u001b[16;3H"]
[2977.433493, "o", "\u001b[16;21H\u001b[1@\u001b[16;4H"]
[2977.694633, "o", "\u001b[16;22H\u001b[1@\u001b[16;5H"]
[2977.930944, "o", "\t\t\t\b\b\u001b[1@\u001b[16;6H"]
[2978.194175, "o", "\t\t\t\b\u001b[1@\r\t\b\b"]
[2978.427785, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;7H\u001b[34h\u001b[?25h\u001b[34l"]
[2978.666545, "o", "\u001b[15;13H\u001b[1@\r\t\b"]
[2978.870997, "o", "\u001b[15;14H\u001b[1@\r\t"]
[2979.121314, "o", "\t\b\b\u001b[1@\b\b\b\b\b"]
[2979.378578, "o", "\t\b\u001b[1@\b\b\b\b\b"]
[2979.603514, "o", "\t\u001b[1@\b\b\b\b\b"]
[2979.851851, "o", "\t\u001b[C\u001b[1@\b\b\b\b\b"]
[2985.053891, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;13H\u001b[34h\u001b[?25h\u001b[34l"]
[2987.466241, "o", "\b"]
[2987.95568, "o", "\b"]
[2987.990121, "o", "\b"]
[2988.018291, "o", "\b"]
[2988.053975, "o", "\b"]
[2988.081764, "o", "\b"]
[2988.115639, "o", "\b"]
[2988.147949, "o", "\b"]
[2988.1798, "o", "\b"]
[2988.513306, "o", "\u001b[14;13H\u001b[1@\u001b[14;5H"]
[2988.706087, "o", "\u001b[14;14H\u001b[1@\u001b[14;6H"]
[2988.908745, "o", "\t\t\b\b\u001b[1@\r\t\b\b"]
[2989.147034, "o", "\t\t\b\u001b[1@\r\t\b"]
[2989.342422, "o", "\t\t\u001b[1@\r\t"]
[2989.342899, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[14;9H\u001b[34h\u001b[?25h\u001b[34l"]
[2989.343554, "o", "\u001b[52;15H\u001b[?25ldone\u001b[14;9H\u001b[34h\u001b[?25h\u001b[34l"]
[2989.555302, "o", "\u001b[52;1H\u001b[K\u001b[14;18H\u001b[1@\u001b[14;10H"]
[2989.725004, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;10H\u001b[34h\u001b[?25h\u001b[34l"]
[2989.849021, "o", "\b"]
[2990.133534, "o", "\b"]
[2990.442756, "o", "\b"]
[2990.696252, "o", "\b"]
[2990.929979, "o", "\b"]
[2991.175881, "o", "\t\b\b\u001b[1@\b"]
[2991.382101, "o", "\t\b\u001b[1@\b"]
[2991.617034, "o", "\t\u001b[1@\b"]
[2991.89014, "o", "\t\u001b[C\u001b[1@\b"]
[2992.13644, "o", "\u001b[C\u001b[C\u001b[1@\b"]
[2992.409804, "o", "\u001b[C\u001b[C\u001b[1@\b"]
[2992.674231, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;11H\u001b[34h\u001b[?25h\u001b[34l"]
[2992.829265, "o", "\b"]
[2993.316337, "o", "\b"]
[2993.349348, "o", "\b"]
[2993.382385, "o", "\b"]
[2993.418384, "o", "\b"]
[2993.450479, "o", "\b"]
[2993.47981, "o", "\b"]
[2993.511869, "o", "\b"]
[2993.544071, "o", "\b"]
[2993.760545, "o", "\t\b\b\u001b[1@\b\b\b\b"]
[2993.967176, "o", "\t\b\u001b[1@\b\b\b\b"]
[2994.179342, "o", "\t\u001b[1@\b\b\b\b"]
[2994.388874, "o", "\t\u001b[C\u001b[1@\b\b\b\b"]
[2994.618387, "o", "\u001b[12;11H\u001b[1@\b\b\b\b"]
[2994.830016, "o", "\u001b[12;12H\u001b[1@\b\b\b\b"]
[2995.016835, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;8H\u001b[34h\u001b[?25h\u001b[34l"]
[2995.169133, "o", "\b"]
[2995.514455, "o", "\u001b[1@\t\b"]
[2995.714597, "o", "\u001b[1@\t"]
[2995.939853, "o", "\u001b[1@\u001b[C"]
[2996.161242, "o", "\u001b[1@\u001b[C"]
[2996.386265, "o", "\u001b[1@\u001b[C"]
[2996.661975, "o", "\u001b[1@\u001b[C"]
[2999.972584, "o", "\u001b[C"]
[3000.460228, "o", "\u001b[C"]
[3000.490104, "o", "\t\b"]
[3000.522933, "o", "\t"]
[3000.556327, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3001.517234, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3001.993674, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.027517, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.061712, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.094178, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.126117, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.160734, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.194165, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.227905, "o", "\u001b[51;35H\u001b[?25l\u001b[3m30\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.260944, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.294135, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.321422, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.354187, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.387376, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.422848, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3002.455318, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3010.916435, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3011.119872, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3011.342039, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3011.552166, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3012.370124, "o", "\u001b[K"]
[3012.524125, "o", "\u001b[1;50r\u001b[26;1H\u001b[1M\u001b[1;52r"]
[3012.529691, "o", "\u001b[24;1H\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m stow into stack;\u001b[39;49m\r\n\u001b[K\u001b[50d      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i;\u001b[K\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3013.490371, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3013.673317, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3025.901867, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3027.515016, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3028.573721, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3029.905818, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3031.406742, "o", "\u001b[51;35H\u001b[?25l\u001b[3m40\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3040.256949, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3043.766138, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3045.191136, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3046.555039, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3052.954103, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3056.537067, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3059.208047, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3061.655977, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3063.534934, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3065.445785, "o", "\u001b[1@\u001b[C"]
[3065.627181, "o", "\u001b[1@\u001b[C"]
[3065.810512, "o", "\u001b[1@\u001b[C"]
[3066.097895, "o", "\u001b[1@\u001b[C"]
[3066.293817, "o", "\u001b[1@\u001b[C"]
[3066.489956, "o", "\u001b[1@\u001b[C"]
[3069.348102, "o", "\t\b"]
[3069.83791, "o", "\t"]
[3069.870504, "o", "\u001b[C"]
[3069.903497, "o", "\u001b[C"]
[3069.939327, "o", "\u001b[51;35H\u001b[?25l\u001b[3m50\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3070.526188, "o", "\u001b[1@\u001b[C"]
[3070.722642, "o", "\u001b[1@\u001b[C"]
[3070.930628, "o", "\u001b[1@\u001b[C"]
[3071.140356, "o", "\u001b[1@\u001b[C"]
[3071.365098, "o", "\u001b[1@\u001b[C"]
[3071.593952, "o", "\u001b[1@\u001b[C"]
[3072.20666, "o", "\t\b"]
[3072.696764, "o", "\t"]
[3072.72668, "o", "\u001b[C"]
[3072.759062, "o", "\u001b[C"]
[3072.792238, "o", "\u001b[C"]
[3072.820257, "o", "\u001b[C"]
[3072.854725, "o", "\u001b[C"]
[3073.081963, "o", "\u001b[C"]
[3073.570264, "o", "\t\b"]
[3073.603914, "o", "\t"]
[3073.636814, "o", "\u001b[C"]
[3073.669947, "o", "\u001b[C"]
[3073.702102, "o", "\u001b[C"]
[3073.735969, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3073.768563, "o", "\u001b[C"]
[3074.143489, "o", "\b"]
[3074.73079, "o", "\u001b[1@\u001b[C"]
[3074.917076, "o", "\u001b[1@\u001b[C"]
[3075.12129, "o", "\u001b[1@\u001b[C"]
[3075.334033, "o", "\u001b[1@\u001b[C"]
[3075.574054, "o", "\u001b[1@\u001b[C"]
[3075.805611, "o", "\u001b[1@\u001b[C"]
[3080.004039, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;7H\u001b[34h\u001b[?25h\u001b[34l"]
[3080.452296, "o", "\b"]
[3080.940585, "o", "\b"]
[3080.974391, "o", "\b"]
[3081.003115, "o", "\b"]
[3082.821654, "o", "\t\b\b\u001b[1@\b\b\b"]
[3083.025388, "o", "\t\b\u001b[1@\b\b\b"]
[3083.204429, "o", "\t\u001b[1@\b\b\b"]
[3083.40952, "o", "\t\u001b[C\u001b[1@\b\b\b"]
[3083.614405, "o", "\u001b[43;11H\u001b[1@\b\b\b"]
[3083.919894, "o", "\u001b[43;12H\u001b[1@\r\t"]
[3084.16195, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;9H\u001b[34h\u001b[?25h\u001b[34l"]
[3084.162689, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[44;9H\u001b[34h\u001b[?25h\u001b[34l"]
[3084.163138, "o", "\u001b[52;15H\u001b[?25ldone\u001b[44;9H\u001b[34h\u001b[?25h\u001b[34l"]
[3084.384947, "o", "\u001b[52;1H\u001b[K\u001b[44;8H"]
[3084.875641, "o", "\b"]
[3084.902777, "o", "\b"]
[3084.937323, "o", "\b"]
[3084.969461, "o", "\b"]
[3085.00201, "o", "\b"]
[3085.037015, "o", "\b"]
[3085.257928, "o", "\t\b\b\u001b[1@\b\b\b\b"]
[3085.457547, "o", "\t\b\u001b[1@\b\b\b\b"]
[3085.650053, "o", "\t\u001b[1@\b\b\b\b"]
[3085.870867, "o", "\t\u001b[C\u001b[1@\b\b\b\b"]
[3086.091085, "o", "\u001b[44;11H\u001b[1@\b\b\b\b"]
[3086.341533, "o", "\u001b[44;12H\u001b[1@\b\b\b\b"]
[3086.896876, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;5H\u001b[34h\u001b[?25h\u001b[34l"]
[3087.192734, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3087.421179, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3087.904422, "o", "\u001b[1@\u001b[C"]
[3088.091396, "o", "\u001b[1@\u001b[C"]
[3088.316788, "o", "\u001b[1@\u001b[C"]
[3088.593569, "o", "\u001b[1@\u001b[C"]
[3088.785591, "o", "\u001b[1@\u001b[C"]
[3088.994345, "o", "\u001b[1@\u001b[C"]
[3090.313024, "o", "\t\b"]
[3090.80287, "o", "\t"]
[3090.837888, "o", "\u001b[C"]
[3090.872443, "o", "\u001b[C"]
[3091.346477, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3091.74415, "o", "\u001b[1@\u001b[C"]
[3091.927311, "o", "\u001b[1@\u001b[C"]
[3092.138182, "o", "\u001b[1@\u001b[C"]
[3092.326512, "o", "\u001b[1@\u001b[C"]
[3092.523087, "o", "\u001b[1@\u001b[C"]
[3092.781378, "o", "\u001b[1@\u001b[C"]
[3095.010569, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;7H\u001b[34h\u001b[?25h\u001b[34l"]
[3095.284443, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3095.689937, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[3096.466566, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\r\u001bM\u001b[34h\u001b[?25h\u001b[34l"]
[3096.973024, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[3096.9735, "o", "\u001b[26;1H\u001b[?25l            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m abs(namestack[stackptr - \u001b[35m1\u001b[39;49m]) = blocknumber ∧\u001b[K\r\n              stackptr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            stackptr:= stackptr - namestack[stackptr - \u001b[35m2\u001b[39;49m] - \u001b[35m3\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m unstack macros;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m skip macro declarations;\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m second scan \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i,i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m symbol = comma symbol \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m skip until(\u001b[32m\"begin\"\u001b[39;49m); begcntr:= \u001b[35m1\u001b[39;49m;\u001b[K\r\n            \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m"]
[3096.973725, "o", " \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[K\r\n                           ∧ symbol ≠ apostrophe symbol);\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[K\r\n                  \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol);\u001b[K\r\n                           "]
[3096.973903, "o", "     NS\u001b[K\r\n                  \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n      read while(symbol ≠ nlcr symbol\u001b[K\u001b[51;30H\u001b[3m9% L560\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3111.610542, "o", "\u001b[51;35H\u001b[?25l\u001b[3m59\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3113.621595, "o", "\u001b[51;35H\u001b[?25l\u001b[3m60\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3121.223602, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3122.622948, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3130.075607, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3130.363948, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3130.586576, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3132.85639, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3133.341874, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3137.056807, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3138.803387, "o", "\t\b\b\u001b[1@\r\u001b[C"]
[3138.975041, "o", "\t\b\u001b[1@\b\b\b\b\b"]
[3139.169432, "o", "\t\u001b[1@\b\b\b\b\b"]
[3139.397991, "o", "\t\u001b[C\u001b[1@\b\b\b\b\b"]
[3139.590158, "o", "\u001b[34;11H\u001b[1@\b\b\b\b\b"]
[3139.781775, "o", "\u001b[34;12H\u001b[1@\b\b\b\b\b"]
[3139.900147, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;7H\u001b[34h\u001b[?25h\u001b[34l"]
[3141.276303, "o", "\u001b[1@\t\b"]
[3141.46184, "o", "\u001b[1@\t"]
[3141.657072, "o", "\u001b[1@\u001b[C"]
[3141.855944, "o", "\u001b[1@\u001b[C"]
[3142.079255, "o", "\u001b[1@\u001b[C"]
[3142.425938, "o", "\u001b[1@\u001b[C"]
[3143.052606, "o", "\u001b[51;35H\u001b[?25l\u001b[3m70\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;13H\u001b[34h\u001b[?25h\u001b[34l"]
[3143.57837, "o", "\u001b[1@\u001b[C"]
[3143.771602, "o", "\u001b[1@\u001b[C"]
[3143.972152, "o", "\u001b[1@\t\b"]
[3144.253074, "o", "\u001b[1@\t"]
[3144.473714, "o", "\u001b[1@\u001b[C"]
[3144.72599, "o", "\u001b[1@\u001b[C"]
[3144.896945, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;19H\u001b[34h\u001b[?25h\u001b[34l"]
[3145.301984, "o", "\b"]
[3145.792636, "o", "\b"]
[3145.823753, "o", "\b"]
[3145.857362, "o", "\b"]
[3145.891294, "o", "\b"]
[3145.923337, "o", "\b"]
[3145.95838, "o", "\b"]
[3145.990242, "o", "\b"]
[3146.01927, "o", "\b"]
[3146.052115, "o", "\b"]
[3146.084359, "o", "\b"]
[3146.118459, "o", "\b"]
[3146.147517, "o", "\b"]
[3146.317041, "o", "\u001b[37;13H\u001b[1@\b\b\b\b\b\b"]
[3146.511955, "o", "\u001b[37;14H\u001b[1@\r\t\b"]
[3146.696314, "o", "\t\t\b\b\u001b[1@\r\t"]
[3146.911703, "o", "\t\b\u001b[1@\b\b\b\b\b\b"]
[3147.108811, "o", "\t\u001b[1@\u001b[51;30H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;11H\u001b[34h\u001b[?25h\u001b[34l"]
[3147.534292, "o", "\t\u001b[C\u001b[1@\b\b\b\b\b\b"]
[3148.390171, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;12H\u001b[34h\u001b[?25h\u001b[34l"]
[3150.768476, "o", "\u001b[38;28H\u001b[1@\u001b[38;13H"]
[3150.946965, "o", "\u001b[38;29H\u001b[1@\u001b[38;14H"]
[3151.158079, "o", "\u001b[38;30H\u001b[1@\r\t\t\b\b"]
[3151.372922, "o", "\t\t\t\b\b\u001b[1@\r\t\t\b"]
[3151.608643, "o", "\t\t\t\b\u001b[1@\r\t\t"]
[3151.924958, "o", "\t\t\u001b[1@\u001b[38;18H"]
[3152.094672, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;18H\u001b[34h\u001b[?25h\u001b[34l"]
[3152.49951, "o", "\b"]
[3152.982431, "o", "\b"]
[3153.017294, "o", "\b"]
[3153.050911, "o", "\b"]
[3153.083913, "o", "\b"]
[3153.118666, "o", "\b"]
[3153.153735, "o", "\b"]
[3153.184479, "o", "\b"]
[3153.214138, "o", "\b"]
[3153.249569, "o", "\b"]
[3153.2831, "o", "\b"]
[3153.314903, "o", "\b"]
[3153.34759, "o", "\b"]
[3153.380633, "o", "\b"]
[3153.692294, "o", "\u001b[39;13H\u001b[1@\u001b[39;5H"]
[3153.883477, "o", "\u001b[39;14H\u001b[1@\u001b[39;6H"]
[3154.110671, "o", "\t\t\b\b\u001b[1@\r\t\b\b"]
[3154.327429, "o", "\t\t\b\u001b[1@\r\t\b"]
[3154.548246, "o", "\t\t\u001b[1@\r\t"]
[3154.766707, "o", "\t\u001b[C\u001b[1@\u001b[39;10H"]
[3155.018911, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;10H\u001b[34h\u001b[?25h\u001b[34l"]
[3155.702253, "o", "\u001b[40;13H\u001b[1@\b\b"]
[3155.910988, "o", "\t\b\b\b\u001b[1@\b\b"]
[3156.125848, "o", "\t\b\b\u001b[1@\b\b"]
[3156.357405, "o", "\t\b\u001b[1@\b\b"]
[3156.570292, "o", "\t\u001b[1@\b\b"]
[3156.813935, "o", "\t\u001b[C\u001b[1@\b\b"]
[3156.968159, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;16H\u001b[34h\u001b[?25h\u001b[34l"]
[3157.213804, "o", "\u001b[41;19H\u001b[1@\b\b"]
[3157.418373, "o", "\u001b[41;20H\u001b[1@\b\b"]
[3157.643396, "o", "\u001b[41;21H\u001b[1@\b\b"]
[3157.848193, "o", "\t\b\b\b\u001b[1@\b\b"]
[3158.075459, "o", "\t\b\b\u001b[1@\b\b"]
[3158.314653, "o", "\t\b\u001b[1@\b\b"]
[3158.415286, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;22H\u001b[34h\u001b[?25h\u001b[34l"]
[3158.71771, "o", "\b"]
[3159.207167, "o", "\b"]
[3159.240589, "o", "\b"]
[3159.272559, "o", "\b"]
[3159.306249, "o", "\b"]
[3159.340288, "o", "\b"]
[3159.372733, "o", "\b"]
[3159.405618, "o", "\b"]
[3159.439279, "o", "\b"]
[3159.472217, "o", "\b"]
[3159.56307, "o", "\u001b[42;19H\u001b[1@\b\b\b\b\b\b"]
[3159.769413, "o", "\u001b[42;20H\u001b[1@\b\b\b\b\b\b"]
[3159.989763, "o", "\u001b[42;21H\u001b[1@\b\b\b\b\b\b"]
[3160.211266, "o", "\u001b[42;22H\u001b[1@\r\t\t\b"]
[3160.43291, "o", "\t\t\b\b\u001b[1@\r\t\t"]
[3160.663416, "o", "\t\b\u001b[1@\b\b\b\b\b\b"]
[3160.747895, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;18H\u001b[34h\u001b[?25h\u001b[34l"]
[3160.923768, "o", "\u001b[C\u001b[1@"]
[3160.924357, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[43;19H\u001b[34h\u001b[?25h\u001b[34l"]
[3160.924815, "o", "\u001b[52;15H\u001b[?25ldone\u001b[43d\u001b[34h\u001b[?25h\u001b[34l"]
[3161.132013, "o", "\u001b[52;1H\u001b[K\u001b[43;20H\u001b[1@"]
[3161.343293, "o", "\u001b[C\u001b[1@"]
[3161.581043, "o", "\u001b[C\u001b[1@"]
[3161.806425, "o", "\u001b[C\u001b[1@"]
[3162.031485, "o", "\t\b\u001b[1@"]
[3162.156894, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[44;24H\u001b[34h\u001b[?25h\u001b[34l"]
[3162.447489, "o", "\b"]
[3162.936086, "o", "\b"]
[3162.967463, "o", "\b"]
[3162.999068, "o", "\b"]
[3163.032283, "o", "\b"]
[3163.065699, "o", "\b"]
[3163.099744, "o", "\b"]
[3163.128619, "o", "\b"]
[3163.16213, "o", "\b"]
[3163.19411, "o", "\b"]
[3163.22724, "o", "\b"]
[3163.261678, "o", "\b"]
[3163.321934, "o", "\u001b[44;19H\u001b[1@\b\b\b\b\b\b"]
[3163.567563, "o", "\u001b[44;20H\u001b[1@\b\b\b\b\b\b"]
[3163.776454, "o", "\u001b[44;21H\u001b[1@\b\b\b\b\b\b"]
[3163.992379, "o", "\u001b[44;22H\u001b[1@\r\t\t\b"]
[3164.201967, "o", "\t\t\b\b\u001b[1@\r\t\t"]
[3164.421108, "o", "\t\b\u001b[1@\b\b\b\b\b\b"]
[3164.510403, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[45;18H\u001b[34h\u001b[?25h\u001b[34l"]
[3164.726201, "o", "\u001b[C\u001b[1@"]
[3164.952126, "o", "\u001b[C\u001b[1@"]
[3165.152573, "o", "\u001b[C\u001b[1@"]
[3165.388333, "o", "\u001b[C\u001b[1@"]
[3165.593499, "o", "\u001b[C\u001b[1@"]
[3165.837701, "o", "\t\b\u001b[1@"]
[3166.109932, "o", "\u001b[51;35H\u001b[?25l\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[46;24H\u001b[34h\u001b[?25h\u001b[34l"]
[3169.276603, "o", "\t\t\u001b[1@\r\t\t\t"]
[3169.508224, "o", "\t\u001b[C\u001b[1@\u001b[46;26H"]
[3169.802206, "o", "\u001b[46;35H\u001b[1@\u001b[46;27H"]
[3171.248224, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[47;22H\u001b[34h\u001b[?25h\u001b[34l"]
[3171.705703, "o", "\b"]
[3172.197584, "o", "\b"]
[3172.227703, "o", "\b"]
[3172.256869, "o", "\b"]
[3172.289997, "o", "\b"]
[3172.324121, "o", "\b"]
[3172.357947, "o", "\b"]
[3172.390391, "o", "\b"]
[3172.423968, "o", "\b"]
[3172.457033, "o", "\b"]
[3172.490756, "o", "\b"]
[3172.523546, "o", "\b"]
[3172.556858, "o", "\b"]
[3172.586437, "o", "\b"]
[3174.135898, "o", "\u001b[47;19H\u001b[1@\r\t"]
[3174.34544, "o", "\u001b[47;20H\u001b[1@\u001b[47;10H"]
[3174.542518, "o", "\u001b[47;21H\u001b[1@\u001b[47;11H"]
[3174.767557, "o", "\u001b[47;22H\u001b[1@\u001b[47;12H"]
[3174.999834, "o", "\t\t\b\b\u001b[1@\u001b[47;13H"]
[3175.249657, "o", "\t\t\b\u001b[1@\u001b[47;14H"]
[3175.462498, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[48;11H\u001b[34h\u001b[?25h\u001b[34l"]
[3175.893398, "o", "\b"]
[3176.38056, "o", "\b"]
[3176.410744, "o", "\b"]
[3176.442212, "o", "\b"]
[3176.478185, "o", "\b"]
[3176.50469, "o", "\b"]
[3176.762543, "o", "\t\b\b\u001b[1@\b"]
[3176.988386, "o", "\t\b\u001b[1@\b"]
[3177.214629, "o", "\t\u001b[1@\b"]
[3177.447337, "o", "\t\u001b[C\u001b[1@\b"]
[3177.684726, "o", "\u001b[C\u001b[C\u001b[1@\b"]
[3177.964938, "o", "\u001b[C\u001b[C\u001b[1@\b"]
[3178.600035, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[49;11H\u001b[34h\u001b[?25h\u001b[34l"]
[3178.861034, "o", "\b"]
[3179.171848, "o", "\b"]
[3179.430438, "o", "\b"]
[3179.692076, "o", "\b"]
[3179.962784, "o", "\u001b[1@\t\b"]
[3180.184839, "o", "\u001b[1@\t"]
[3180.39083, "o", "\u001b[1@\u001b[C"]
[3180.620871, "o", "\u001b[1@\u001b[C"]
[3180.847959, "o", "\u001b[1@\u001b[C"]
[3181.080119, "o", "\u001b[1@\u001b[C"]
[3181.255248, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[50;13H\u001b[34h\u001b[?25h\u001b[34l"]
[3181.558227, "o", "\b"]
[3182.045991, "o", "\b"]
[3182.07952, "o", "\b"]
[3182.10832, "o", "\b"]
[3182.142309, "o", "\b"]
[3182.173989, "o", "\b"]
[3182.207062, "o", "\b"]
[3182.240838, "o", "\b"]
[3182.273224, "o", "\b"]
[3182.303129, "o", "\b"]
[3182.332689, "o", "\b"]
[3182.514845, "o", "\t\b\b\u001b[1@\b\b\b\b"]
[3182.732062, "o", "\t\b\u001b[1@\b\b\b\b"]
[3182.959826, "o", "\t\u001b[1@\b\b\b\b"]
[3183.165396, "o", "\t\u001b[C\u001b[1@\b\b\b\b"]
[3183.39608, "o", "\u001b[50;11H\u001b[1@\b\b\b\b"]
[3183.644703, "o", "\u001b[50;12H\u001b[1@\b\b\b\b"]
[3183.804072, "o", "\u001b[1;50r\u001b[2;1H\u001b[25M\u001b[1;52r"]
[3183.804558, "o", "\u001b[26;1H\u001b[?25l               ∧ symbol ≠ semicolon symbol)\u001b[K\r\n\u001b[32m{indentation again!}\u001b[39;49m}\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      read while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m)\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m print elantext;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i, begcntr;\u001b[K\r\n      pr tape symbol:= space symbol;\u001b[K\r\n      linecounter:= o;\u001b[K\r\n      skip \u001b[1m\u001b[36mu̲n̲t̲i̲l̲\u001b[0m\u001b[39;49m (\u001b[32m\"begin\"\u001b[39;49m); begcntr: = \u001b[35m1\u001b[39;49m;\u001b[K\r\n      \u001b[1m\u001b[36mf̲o̲r̲\u001b[0m\u001b[39;49m i:= i \u001b[1m\u001b[36mw̲h̲i̲l̲e̲\u001b[0m\u001b[39;49m begcntr > \u001b[35m0\u001b[39;49m \u001b[1m\u001b[36md̲o̲\u001b[0m\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol\u001b[K\r\n                     ∧ symbol ≠ apostrophe symbol);\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent sy"]
[3183.804825, "o", "mbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m NS;\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = accent symbol\u001b[K\r\n                  \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m symbol:= apostrophe symbol \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"end\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr - \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m compare(\u001b[32m\"begin\"\u001b[39;49m) \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m begcntr:= begcntr + \u001b[35m1\u001b[39;49m \u001b[1m\u001b[36me̲l̲s̲e̲\u001b[0m\u001b[39;49m\u001b[K\r\n                  \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m read while(symbol ≠ accent symbol); NS \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol = apostrophe symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            read while(symbol ≠ nlcr symbol ∧ symbol ≠ semicolon sy"]
[3183.805031, "o", "mbol)\u001b[K\u001b[51;29H\u001b[3m92% L585\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;8H\u001b[34h\u001b[?25h\u001b[34l"]
[3186.744846, "o", "\t\t\b\u001b[1@\r\t"]
[3187.358733, "o", "\t\u001b[1@\b\b\b\b\b\b\b"]
[3187.576116, "o", "\t\u001b[C\u001b[1@\b\b\b\b\b\b\b"]
[3187.800342, "o", "\u001b[26;19H\u001b[1@\b\b\b\b\b\b\b"]
[3188.06045, "o", "\u001b[26;20H\u001b[1@\b\b\b\b\b\b\b"]
[3188.472494, "o", "\u001b[26;21H\u001b[1@\b\b\b\b\b\b\b"]
[3189.100675, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;14H\u001b[34h\u001b[?25h\u001b[34l"]
[3196.638615, "o", "\u001b[C"]
[3196.970242, "o", "\t\b"]
[3197.461113, "o", "\t"]
[3197.494202, "o", "\u001b[C"]
[3197.528704, "o", "\u001b[C"]
[3197.562801, "o", "\u001b[C"]
[3197.593504, "o", "\u001b[C"]
[3197.628059, "o", "\u001b[C"]
[3197.657428, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3198.581466, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3201.123224, "o", "\u001b[K"]
[3201.533449, "o", "\u001b[1;50r\u001b[29;1H\u001b[1M\u001b[1;52r"]
[3201.534991, "o", "\u001b[27;7H\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\n\b\b\b\bread while(\u001b[35m0\u001b[39;49m ≤ symbol ∧ symbol ≤ \u001b[35m62\u001b[39;49m)\u001b[50;1H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3207.851723, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3208.216672, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3209.237614, "o", "\u001b[C"]
[3209.505453, "o", "\u001b[C"]
[3209.945919, "o", "\u001b[C"]
[3211.99555, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3212.612968, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;4H\u001b[34h\u001b[?25h\u001b[34l"]
[3213.277163, "o", "\u001b[1;50r\u001b[31;1H\u001b[1L\u001b[1;52r"]
[3213.277713, "o", "\u001b[30;1H\u001b[K\n\u001b[?25l\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m skip macro declarations;\u001b[39;49m\u001b[K\u001b[51;36H\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3214.146574, "o", "\u001b[?25l{\u001b[34h\u001b[?25h\u001b[34l"]
[3214.527026, "o", "\u001b[?25lm\u001b[34h\u001b[?25h\u001b[34l"]
[3214.686281, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[3214.800676, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[3214.980085, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[3215.046907, "o", "\u001b[C"]
[3215.284426, "o", "\b\u001b[?25l i\u001b[34h\u001b[?25h\u001b[34l"]
[3215.508797, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[3215.608675, "o", "\u001b[?25ld\u001b[34h\u001b[?25h\u001b[34l"]
[3215.78431, "o", "\u001b[?25le\u001b[34h\u001b[?25h\u001b[34l"]
[3215.952667, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[3216.343201, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[3216.463799, "o", "\u001b[?25la\u001b[34h\u001b[?25h\u001b[34l"]
[3216.548883, "o", "\u001b[?25lt\u001b[34h\u001b[?25h\u001b[34l"]
[3216.903717, "o", "\u001b[?25li\u001b[34h\u001b[?25h\u001b[34l"]
[3216.981599, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[3217.289255, "o", "\u001b[?25ln\u001b[34h\u001b[?25h\u001b[34l"]
[3217.697262, "o", "\u001b[C"]
[3218.230654, "o", "\b\u001b[?25l e\u001b[34h\u001b[?25h\u001b[34l"]
[3218.471911, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[3218.653981, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[3218.792187, "o", "\u001b[?25lo\u001b[34h\u001b[?25h\u001b[34l"]
[3218.850367, "o", "\u001b[?25lr\u001b[34h\u001b[?25h\u001b[34l"]
[3219.095648, "o", "\u001b[?25ls\u001b[34h\u001b[?25h\u001b[34l"]
[3220.120075, "o", "\r\u001b[?25l\u001b[32m\u001b[46m{\u001b[39;49m\u001b[32mmore indentation errors}\u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[3221.121196, "o", "\r\u001b[?25l\u001b[32m{\u001b[39;49m\u001b[30;26H\u001b[34h\u001b[?25h\u001b[34l"]
[3221.591171, "o", "\u001b[51;35H\u001b[?25l\u001b[3m90\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3222.114617, "o", "\u001b[51;35H\u001b[?25l\u001b[3m89\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3222.115263, "o", "\u001b[52d\u001b[?25lAuto-saving...\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3222.115611, "o", "\u001b[52;15H\u001b[?25ldone\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.079761, "o", "\u001b[52d\u001b[K\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.56854, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.601299, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.634579, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.667714, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.700854, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.733005, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.765746, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.800159, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.83569, "o", "\u001b[51;35H\u001b[?25l\u001b[3m79\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.866206, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.895041, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.929638, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.956428, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3225.990813, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.02362, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.053194, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.089713, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.122611, "o", "\u001b[51;36H\u001b[?25l\u001b[3m0\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.152758, "o", "\u001b[51;35H\u001b[?25l\u001b[3m69\u001b[0m\u001b[39;49m\u001b[23m\u001b[10;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.191407, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[9;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.224335, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[8;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.255284, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.289276, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[6;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.319888, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[5;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3226.831763, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[6;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3230.16729, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[7;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3230.430872, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[8;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3232.034059, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[9;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3234.840191, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[10;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3238.609706, "o", "\u001b[51;35H\u001b[?25l\u001b[3m70\u001b[0m\u001b[39;49m\u001b[23m\u001b[11;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3240.882349, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[12;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3243.196329, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[13;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3243.660465, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[14;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3244.545876, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[15;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3245.770624, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[16;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3247.98378, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[17;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3253.133533, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[18;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3253.462179, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[19;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3255.592729, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[20;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3256.101217, "o", "\u001b[51;35H\u001b[?25l\u001b[3m80\u001b[0m\u001b[39;49m\u001b[23m\u001b[21;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3258.847051, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[22;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3259.389482, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[23;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3260.404994, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[24;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3260.979274, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[25;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3262.681662, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3265.325549, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3266.620588, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3269.598007, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3270.520426, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3271.283746, "o", "\u001b[51;35H\u001b[?25l\u001b[3m90\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3271.611514, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3272.131002, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3283.938962, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3284.631668, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3287.388544, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3289.481087, "o", "\u001b[C"]
[3289.970045, "o", "\u001b[C"]
[3290.002906, "o", "\u001b[C"]
[3290.035096, "o", "\u001b[C"]
[3290.069577, "o", "\u001b[C"]
[3290.103265, "o", "\u001b[C"]
[3290.135844, "o", "\t\b"]
[3290.16937, "o", "\t"]
[3290.202791, "o", "\u001b[C"]
[3290.234785, "o", "\u001b[C"]
[3290.269696, "o", "\u001b[C"]
[3290.300889, "o", "\u001b[C"]
[3290.334695, "o", "\u001b[C"]
[3290.369502, "o", "\u001b[C"]
[3290.401184, "o", "\t\b"]
[3290.434505, "o", "\t"]
[3290.467621, "o", "\u001b[C"]
[3290.499144, "o", "\u001b[C"]
[3290.53265, "o", "\u001b[C"]
[3290.568017, "o", "\u001b[C"]
[3290.864147, "o", "\u001b[C"]
[3291.624417, "o", "\b\u001b[?25l;\u001b[K\b\u001b[34h\u001b[?25h\u001b[34l"]
[3291.998074, "o", "\u001b[?25l\u001b[35m0\u001b[39;49m;\b\u001b[34h\u001b[?25h\u001b[34l"]
[3293.953912, "o", "\u001b[C"]
[3294.25137, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3298.282917, "o", "\u001b[C"]
[3298.773154, "o", "\u001b[C"]
[3298.807388, "o", "\u001b[C"]
[3298.839081, "o", "\u001b[C"]
[3298.872741, "o", "\u001b[C"]
[3298.905917, "o", "\u001b[C"]
[3298.940119, "o", "\t\b"]
[3298.97273, "o", "\t"]
[3299.00488, "o", "\u001b[C"]
[3299.244549, "o", "\u001b[C"]
[3299.54579, "o", "\u001b[C"]
[3300.471606, "o", "\u001b[52;1H\u001b[?25l\u001b[36mEcce> \u001b[39;49m\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[3300.471882, "o", "\u001b[52;7H\u001b[34h\u001b[?25h\u001b[34l"]
[3300.814642, "o", "\u001b[?25lz\u001b[34h\u001b[?25h\u001b[34l"]
[3301.394215, "o", "\u001b[?25l5\u001b[34h\u001b[?25h\u001b[34l"]
[3301.881362, "o", "\r"]
[3301.924494, "o", "\u001b[K\u001b[37;12H"]
[3301.956945, "o", "\u001b[1;50r\u001b[2;1H\u001b[11M\u001b[1;52r\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[3301.957432, "o", "\u001b[26;11H until\u001b[40;1H      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m;\u001b[39;49m\u001b[K\r\n      runout; runout\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m print elantext;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\n\u001b[K\u001b[51;29H\u001b[3mBot\u001b[0m\u001b[39;49m\u001b[23m\u001b[26;17H\u001b[34h\u001b[?25h\u001b[34l"]
[3304.795341, "o", "\u001b[C"]
[3305.286051, "o", "\u001b[C"]
[3305.315366, "o", "\u001b[C"]
[3305.349437, "o", "\u001b[C"]
[3305.377733, "o", "\u001b[C"]
[3305.411679, "o", "\u001b[C"]
[3305.440257, "o", "\t\b"]
[3305.469974, "o", "\t"]
[3305.503203, "o", "\u001b[C"]
[3305.503916, "o", "\u001b[52;1H\u001b[?25lAuto-saving...\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[3305.505739, "o", "\u001b[52;15H\u001b[?25ldone\u001b[26;26H\u001b[34h\u001b[?25h\u001b[34l"]
[3305.537478, "o", "\u001b[52;1H\u001b[K\u001b[26;27H"]
[3305.568889, "o", "\u001b[C"]
[3305.595309, "o", "\u001b[C"]
[3305.628515, "o", "\u001b[C"]
[3305.661704, "o", "\u001b[C"]
[3305.692425, "o", "\t\b"]
[3305.723087, "o", "\t"]
[3305.75639, "o", "\u001b[C"]
[3305.790714, "o", "\u001b[C"]
[3305.824033, "o", "\u001b[C"]
[3306.16064, "o", "\u001b[C"]
[3306.651097, "o", "\u001b[C"]
[3306.684803, "o", "\u001b[C"]
[3306.718887, "o", "\t\b"]
[3306.750516, "o", "\t"]
[3306.784632, "o", "\u001b[C"]
[3307.105022, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[27;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3312.319202, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[28;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3315.485916, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[29;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3317.628577, "o", "\u001b[51;34H\u001b[?25l\u001b[3m600\u001b[0m\u001b[39;49m\u001b[23m\u001b[30;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3320.730707, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[31;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3322.091994, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[32;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3322.666952, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[33;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3330.026289, "o", "\u001b[51;36H\u001b[?25l\u001b[3m4\u001b[0m\u001b[39;49m\u001b[23m\u001b[34;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3332.888638, "o", "\u001b[51;36H\u001b[?25l\u001b[3m5\u001b[0m\u001b[39;49m\u001b[23m\u001b[35;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3337.887961, "o", "\u001b[51;36H\u001b[?25l\u001b[3m6\u001b[0m\u001b[39;49m\u001b[23m\u001b[36;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3344.009771, "o", "\u001b[51;36H\u001b[?25l\u001b[3m7\u001b[0m\u001b[39;49m\u001b[23m\u001b[37;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3345.805559, "o", "\u001b[51;36H\u001b[?25l\u001b[3m8\u001b[0m\u001b[39;49m\u001b[23m\u001b[38;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3361.181363, "o", "\u001b[51;36H\u001b[?25l\u001b[3m9\u001b[0m\u001b[39;49m\u001b[23m\u001b[39;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3363.972308, "o", "\u001b[51;35H\u001b[?25l\u001b[3m10\u001b[0m\u001b[39;49m\u001b[23m\u001b[40;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3365.278003, "o", "\u001b[51;36H\u001b[?25l\u001b[3m1\u001b[0m\u001b[39;49m\u001b[23m\u001b[41;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3365.727685, "o", "\u001b[51;36H\u001b[?25l\u001b[3m2\u001b[0m\u001b[39;49m\u001b[23m\u001b[42;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3366.424762, "o", "\u001b[51;36H\u001b[?25l\u001b[3m3\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3366.913188, "o", "\u0007"]
[3366.913869, "o", "\u001b[52d\u001b[?25lEnd of buffer\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3367.014806, "o", "\u0007"]
[3367.015953, "o", "\u0007"]
[3367.216598, "o", "\u0007"]
[3369.709528, "o", "\u001b[52d\u001b[K\u001b[43d"]
[3369.824082, "o", "\u001b[52d\u001b[?25l\u001b[36mWrite file: \u001b[39;49m~/github/uparse-main/mcelan/\u001b[1;33H\u001b[3mMinibuf Help\u001b[0m\u001b[39;49m\u001b[23m"]
[3369.824207, "o", "\u001b[52;41H\u001b[34h\u001b[?25h\u001b[34l"]
[3370.210071, "o", "\r"]
[3370.21149, "o", "\u001b[?25l\u001b[36mFile ‘~/github/uparse-main/mcelan/mcelan.a60’ exists; overwrite? (y or n) \u001b[39;49m\u001b[34h\u001b[?25h\u001b[34l"]
[3370.223406, "o", "\u001b[1;33H\u001b[?25l\u001b[3mHelp        \u001b[0m\u001b[39;49m\u001b[23m"]
[3370.223729, "o", "\u001b[52;75H\u001b[34h\u001b[?25h\u001b[34l"]
[3371.713771, "o", "\r\u001b[K"]
[3371.714339, "o", "\u001b[?25lFile ‘~/github/uparse-main/mcelan/mcelan.a60’ exists; overwrite? (y or n) y\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3371.718807, "o", "\u001b[52d\u001b[?25lSaving file /home/gtoal/github/uparse-main/mcelan/mcelan.a60...\u001b[K\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3371.985351, "o", "\u001b[52d\u001b[?25lWrote /home/gtoal/github/uparse-main/mcelan/mcelan.a60\u001b[K\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3372.000715, "o", "\u001b[51;6H\u001b[?25l\u001b[3m--\u001b[0m\u001b[39;49m\u001b[23m\u001b[43;1H\u001b[34h\u001b[?25h\u001b[34l"]
[3374.157426, "o", "\u001b[52d\u001b[K\u001b[43d"]
[3374.442564, "o", "\u001b[52d\u001b[K\u001b[?2004l\u001b[>4m\u001b[?1l\u001b>\u001b[34h\u001b[?25h\u001b[?1049l\u001b[39;49m\r"]
[3374.452128, "o", "gtoal@linux:~/github/uparse-main/mcelan$ "]
[3375.430903, "o", "l"]
[3375.531214, "o", "s"]
[3375.83026, "o", "\r\n"]
[3375.833055, "o", "algedit.cast  mcelan.a60  mcelan.a60~  mcelan.a60.pdf  MC_ELAN_Assembler.pdf  README.txt\r\n"]
[3375.834114, "o", "gtoal@linux:~/github/uparse-main/mcelan$ "]
[3377.258348, "o", "l"]
[3377.380874, "o", "s"]
[3377.580783, "o", " "]
[3378.359302, "o", "."]
[3378.555288, "o", "."]
[3379.738848, "o", "/"]
[3379.99823, "o", "l"]
[3380.098701, "o", "a"]
[3380.585686, "o", "n"]
[3381.062135, "o", "g"]
[3381.593087, "o", "/"]
[3381.74029, "o", "a"]
[3381.969077, "o", "l"]
[3382.184242, "o", "g"]
[3382.286196, "o", "o"]
[3382.581002, "o", "l"]
[3382.842266, "o", "6"]
[3383.029439, "o", "0"]
[3383.590676, "o", "\r\n"]
[3383.594977, "o", "\u001b[0m\u001b[01;32malgol60\u001b[0m         algol60-indent.c    Makefile-algol60  README.txt~                  \u001b[01;34mtests\u001b[0m\r\nalgol60-ast.h   \u001b[01;32mcheck-new-tests.sh\u001b[0m  mcelan.a60.pdf    \u001b[01;32mregen\u001b[0m                        \u001b[01;34mtests-html\u001b[0m\r\nalgol60-comp.h  \u001b[01;32mgencomp\u001b[0m             \u001b[01;34mnew_tests\u001b[0m         REGRESSION-OUT.sh            \u001b[01;34mtests-out\u001b[0m\r\n"]
[3383.595756, "o", "algol60.g       HTMLFORM.sh         \u001b[01;34mRCS\u001b[0m               \u001b[01;32mREGRESSION-TESTS-algol60.sh\u001b[0m  \u001b[01;34mtools\u001b[0m\r\nalgol60.h       Makefile            README.txt        \u001b[01;32mstropify\u001b[0m                     uparse.o\r\n"]
[3383.596241, "o", "gtoal@linux:~/github/uparse-main/mcelan$ "]
[3389.088364, "o", "../lang/algol60"]
[3390.006811, "o", "/"]
[3390.27803, "o", "a"]
[3390.502388, "o", "l"]
[3390.729775, "o", "g"]
[3390.839551, "o", "o"]
[3391.080251, "o", "l"]
[3391.546526, "o", "6"]
[3391.701035, "o", "0"]
[3393.138167, "o", " "]
[3396.65101, "o", "mcelan.a60"]
[3398.46785, "o", "\r\n"]
[3398.499637, "o", "mcelan.a60:1:8: error: Syntax:\r\ni̲n̲t̲e̲g̲e̲r̲^ max of namestack, max of defstack, max of actualstack, max of\r\n"]
[3398.500251, "o", "gtoal@linux:~/github/uparse-main/mcelan$ "]
[3406.176134, "o", "!"]
[3407.632921, "o", "e"]
[3407.803363, "o", "m"]
[3408.375916, "o", "\r\n"]
[3408.377, "o", "emacs -nw mcelan.a60\r\n"]
[3408.418818, "o", "\u001b[?1049h\u001b[34l\u001b[?1h\u001b="]
[3408.427671, "o", "\u001b[H\u001b[J\u001b[52d\u001b[K\u001b[?1l\u001b>\u001b[34h\u001b[?25h\u001b[?1049l\u001b[39;49m\r"]
[3408.428066, "o", "\u001b[?1049h\u001b[34l\u001b[?1h\u001b="]
[3408.439351, "o", "\u001b[H\u001b[J"]
[3408.441077, "o", "\u001b[51d\u001b[?25l\u001b[3m-UUU:----F1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m\u001b[1m*scratch*   \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m   All L1     (Fundamental) -----------------------------------------\u001b[0m\u001b[39;49m\u001b[23m\r\n\u001bM\u001b[2d\u001b[34h\u001b[?25h\u001b[34l"]
[3408.441883, "o", "\u001b[52d\u001b[?25lLoading 00debian-vars...done\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.442263, "o", "\u001b[52;9H\u001b[?25l/etc/emacs/site-start.d/50autoconf.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.442927, "o", "\u001b[52;58H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.443227, "o", "\u001b[52;35H\u001b[?25lcmake-data.el (source)...\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.443827, "o", "\u001b[52;60H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.444094, "o", "\u001b[52;35H\u001b[?25ldictionaries-common.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.445365, "o", "\u001b[52;9H\u001b[?25ldebian-ispell...\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.446889, "o", "\u001b[52;9H\u001b[?25l/var/cache/dictionaries-common/emacsen-ispell-default.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.447335, "o", "\u001b[52;77H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.448112, "o", "\u001b[52;9H\u001b[?25ldebian-ispell...done\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.44833, "o", "\u001b[52;9H\u001b[?25l/var/cache/dictionaries-common/emacsen-ispell-dicts.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.448887, "o", "\u001b[52;75H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.449056, "o", "\u001b[52;10H\u001b[?25letc/emacs/site-start.d/50dictionaries-common\u001b[6P\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.449358, "o", "\u001b[52;35H\u001b[?25lfestival.el (source)...\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.450002, "o", "\u001b[52;58H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.450259, "o", "\u001b[52;35H\u001b[?25lpython-docutils.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.450803, "o", "\u001b[52;65H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.451048, "o", "\u001b[52;35H\u001b[?25lxcscope-el.el (source)...\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.451853, "o", "\u001b[52;60H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.47259, "o", "\u001b[52;10H\u001b[?25lusr/share/emacs/site-lisp/xcscope/xcscope.el (source)...\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.534485, "o", "\u001b[52;66H\u001b[?25ldone\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.549447, "o", "\u001b[>4;1m\u001b[?2004h"]
[3408.550208, "o", "\u001b[52d\u001b[?25lFor information about GNU Emacs and the GNU system, type C-h C-a.\u001b[K\u001b[H\n\u001b[34h\u001b[?25h\u001b[34l"]
[3408.626432, "o", "\u001b[52d\u001b[?25lFor information about GNU Emacs and the GNU system, type C-h C-a.\u001b[K\u001b[H\u001b[3mFile Edit Options Buffers Tools Help                                                          \u001b[0m\u001b[39;49m\u001b[23m\r\n\u001bM"]
[3408.627075, "o", "\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m max of namestack, max of defstack, max of actualstack, max of\u001b[K\r\npointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,\u001b[K\r\nspacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,\u001b[K\r\nt8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;\u001b[K\r\n\u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in def mode, in actual mode, only mac, from macro, from\u001b[K\r\nactualstack, accent read;\u001b[K\r\n\u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m namestack[-\u001b[35m2\u001b[39;49m:\u001b[35m255\u001b[39;49m],definitionstack[\u001b[35m0\u001b[39;49m:\u001b[35m4095\u001b[39;49m], actualstack\u001b[K\r\n[\u001b[35m0\u001b[39;49m:\u001b[35m2047\u001b[39;49m], pointerstack[\u001b[35m1\u001b[39;49m:\u001b[35m128\u001b[39;49m], savestack[-\u001b[35m1\u001b[39;49m:\u001b[35m120\u001b[39;49m];\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m initialize macro variables;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m in def mode:= in actual mode:= only mac:= from macro:=\u001b[K\r\n      from actualstack:= accent read:= \u001b[1m\u001b"]
[3408.62737, "o", "[36mf̲a̲l̲s̲e̲\u001b[0m\u001b[39;49m;\u001b[K\r\n      max of namestack:= \u001b[35m255\u001b[39;49m;\u001b[K\r\n      max of defstack:= \u001b[35m4095\u001b[39;49m;\u001b[K\r\n      max of actualstack:= \u001b[35m2047\u001b[39;49m;\u001b[K\r\n      max of pointerstack:= \u001b[35m128\u001b[39;49m;\u001b[K\r\n      max of savestack:= \u001b[35m120\u001b[39;49m;\u001b[K\r\n      asterisk:= \u001b[35m254\u001b[39;49m; ksiretsa:= \u001b[35m255\u001b[39;49m;\u001b[K\r\n      stackptr:= namestack[\u001b[35m0\u001b[39;49m]:= pointerstack[\u001b[35m1\u001b[39;49m]:= \u001b[35m0\u001b[39;49m;\u001b[K\r\n      endmarker:= spacecntr:= SPACEcntr:= \u001b[35m150\u001b[39;49m;\u001b[K\r\n      namestack[-\u001b[35m1\u001b[39;49m]:= saveptr:= -\u001b[35m5\u001b[39;49m;\u001b[K\r\n      tt:= \u001b[35m1\u001b[39;49m + t6 + t12 + t18;\u001b[K\r\n      freeptr:= \u001b[35m1\u001b[39;49m\u001b[K\r\n\u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m initialize macro variables;\u001b[39;49m\u001b[K\r\n\u001b[K\n\u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m define macro;\u001b[K\r\n\u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,savel,max of formallist;\u001b[K\r\n      \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m empty;\u001b[K\r\n      \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b["]
[3408.627532, "o", "1m\u001b[36ma̲r̲r̲a̲y̲\u001b[0m\u001b[39;49m formallist[\u001b[35m0\u001b[39;49m:\u001b[35m127\u001b[39;49m];\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read name;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m save;\u001b[K\r\n            ERROR(stackptr > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\r\n            lcntr:= savel:= namestack[stackptr]; ERROR(lcntr = -\u001b[35m1\u001b[39;49m,\u001b[35m3027\u001b[39;49m);\u001b[K\r\n            bcntr:= \u001b[35m2\u001b[39;49m; save:= stackptr:= stackptr + \u001b[35m1\u001b[39;49m;\u001b[K\r\n            store letgits(namestack,stackptr,max of namestack,reaffer);\u001b[K\r\n            ERROR(stackptr + \u001b[35m1\u001b[39;49m > max of namestack,\u001b[35m3000\u001b[39;49m);\u001b[K\r\n            namestack[stackptr]:= stackptr - save;\u001b[K\r\n            namestack[stackptr + \u001b[35m1\u001b[39;49m] := blocknumber;\u001b[K\r\n            stackptr:= stackptr + \u001b[35m2\u001b[39;49m\u001b[K\r\n      \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[33m read name;\u001b[39;49m\u001b[K\r\n\u001b[K\n      \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m read formals;\u001b[K\r\n      \u001b[1m\u001b[36mb̲e̲g̲i̲n̲"]
[3408.627619, "o", "\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m i,ptr,aux,par;\u001b[K\r\n            \u001b[1m\u001b[36mb̲o̲o̲l̲e̲a̲n̲\u001b[0m\u001b[39;49m in comma mode;\u001b[K\r\n\u001b[K\n            \u001b[1m\u001b[36mi̲n̲t̲e̲g̲e̲r̲\u001b[0m\u001b[39;49m \u001b[1m\u001b[36mp̲r̲o̲c̲e̲d̲u̲r̲e̲\u001b[0m\u001b[39;49m reaffer1;\u001b[K\r\n            \u001b[1m\u001b[36mi̲f̲\u001b[0m\u001b[39;49m symbol= accent symbol \u001b[1m\u001b[36mt̲h̲e̲n̲\u001b[0m\u001b[39;49m\u001b[K\r\n            \u001b[1m\u001b[36mb̲e̲g̲i̲n̲\u001b[0m\u001b[39;49m ERROR(\u001b[1m\u001b[36mt̲r̲u̲e̲\u001b[0m\u001b[39;49m,\u001b[35m3023\u001b[39;49m); \u001b[1m\u001b[36mg̲o̲t̲o̲\u001b[0m\u001b[39;49m outaccent \u001b[1m\u001b[36me̲n̲d̲\u001b[0m\u001b[39;49m\u001b[K\r\n\u001b[3m-UUU:----F1  \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m\u001b[1mmcelan.a60  \u001b[0m\u001b[39;49m\u001b[23m\u001b[3m   Top L1     (Simple Algol 60 Mode) --------------------------------\u001b[0m\u001b[39;49m\u001b[23m\r\n\u001bM\u001b[2d\u001b[34h\u001b[?25h\u001b[34l"]
[3412.800474, "o", "\u001b[52d\u001b[K\u001b[2d"]
[3413.041531, "o", "\u001b[52d\u001b[K\u001b[?2004l\u001b[>4m\u001b[?1l\u001b>\u001b[34h\u001b[?25h\u001b[?1049l\u001b[39;49m\r"]
[3413.048334, "o", "gtoal@linux:~/github/uparse-main/mcelan$ "]
[3413.94182, "o", "exit\r\n"]