3,10c3,10
<    i̲n̲t̲e̲g̲e̲r̲ max of namestack, max of defstack, max of actualstack, max of
<      pointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,
<      spacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,
<      t8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;
<    b̲o̲o̲l̲e̲a̲n̲ in def mode, in actual mode, only mac, from macro, from
<      actualstack, accent read;
<    i̲n̲t̲e̲g̲e̲r̲ a̲r̲r̲a̲y̲ namestack[-2:255],definitionstack[0:4095], actualstack
<      [0:2047], pointerstack[1:128], savestack[-1:120];
---
> i̲n̲t̲e̲g̲e̲r̲ max of namestack, max of defstack, max of actualstack, max of
> pointerstack, max of savestack, stackptr, freeptr, pointerptr, saveptr,
> spacecntr, lcntr, bcntr, llcntr, bbcntr, SPACEcntr, LLcntr, BBcntr, t8j,
> t8J, word, Word, nextacc, endmarker, place of name, tt, asterisk, ksiretsa;
> b̲o̲o̲l̲e̲a̲n̲ in def mode, in actual mode, only mac, from macro, from
> actualstack, accent read;
> i̲n̲t̲e̲g̲e̲r̲ a̲r̲r̲a̲y̲ namestack[-2:255],definitionstack[0:4095], actualstack
> [0:2047], pointerstack[1:128], savestack[-1:120];
12,13c12,13
<    p̲r̲o̲c̲e̲d̲u̲r̲e̲ initialize macro variables;
<    b̲e̲g̲i̲n̲ in def mode:= in actual mode:= only mac:= from macro:=
---
> p̲r̲o̲c̲e̲d̲u̲r̲e̲ initialize macro variables;
> b̲e̲g̲i̲n̲ in def mode:= in actual mode:= only mac:= from macro:=
26c26
<    e̲n̲d̲ initialize macro variables;
---
> e̲n̲d̲ initialize macro variables;
28,29c28,29
<    p̲r̲o̲c̲e̲d̲u̲r̲e̲ define macro;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i,savel,max of formallist;
---
> p̲r̲o̲c̲e̲d̲u̲r̲e̲ define macro;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i,savel,max of formallist;
184,185c184,185
<          i̲f̲ ¬ compare(“begin”) t̲h̲e̲n̲
<          b̲e̲g̲i̲n̲ ERROR(trne,3010); skip until(“begin”) e̲n̲d̲;
---
>             i̲f̲ ¬ compare("begin") t̲h̲e̲n̲
>             b̲e̲g̲i̲n̲ ERROR(trne,3010); skip until("begin") e̲n̲d̲;
198c198,199
<             b̲e̲g̲i̲n̲ read while(symbol ≠ accent symbol∧ symbol ≠ smaller symbol);
---
>             b̲e̲g̲i̲n̲ read while(symbol ≠ accent symbol
>                            ∧ symbol ≠ smaller symbol);
204c205
<                   b̲e̲g̲i̲n̲ i̲f̲ compare(“end”) t̲h̲e̲n̲
---
>                   b̲e̲g̲i̲n̲ i̲f̲ compare("end") t̲h̲e̲n̲
210c211,212
<                               f̲o̲r̲ i:= 1 w̲h̲i̲l̲e̲ i ≠ nlcr symbol∧ i ≠ semicolon symbol ∧ ¬ empty
---
>                                   f̲o̲r̲ i:= 1 w̲h̲i̲l̲e̲ i ≠ nlcr symbol
>                                   ∧ i ≠ semicolon symbol ∧ ¬ empty
216c218
<                      i̲f̲ compare(“begin”) t̲h̲e̲n̲
---
>                         i̲f̲ compare("begin") t̲h̲e̲n̲
228,229c230,231
<       e̲n̲d̲ read block;
<       c̲o̲m̲m̲e̲n̲t̲ {proc above should be indented};
---
> e̲n̲d̲ read block;
> c̲o̲m̲m̲e̲n̲t̲ {proc above should be indented};
238c240,241
<                read while(symbol = nlcr symbol∨ symbol = semicolon symbol);
---
>                   read while(symbol = nlcr symbol
>                            ∨ symbol = semicolon symbol);
243c246
<    e̲n̲d̲ define macro;
---
> e̲n̲d̲ define macro;
245,246c248,249
<    p̲r̲o̲c̲e̲d̲u̲r̲e̲ expand macro;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ p,par;
---
> p̲r̲o̲c̲e̲d̲u̲r̲e̲ expand macro;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ p,par;
251c254
<          c̲o̲m̲m̲e̲n̲t̲ {indent procedure below};
---
> c̲o̲m̲m̲e̲n̲t̲ {indent procedure below};
287c290,291
<                   f̲o̲r̲ i:= i w̲h̲i̲l̲e̲ (symbol ≠ comma symbol ∨ opcntr≠ 1) ∧ opcntr ≠ 0 d̲o̲
---
>                   f̲o̲r̲ i:= i w̲h̲i̲l̲e̲ (symbol ≠ comma symbol ∨ opcntr
>                   ≠ 1) ∧ opcntr ≠ 0 d̲o̲
317c321,322
<                   b̲e̲g̲i̲n̲ read while(symbol = nlcr symbol∨ symbol = semicolon symbol);
---
>                   b̲e̲g̲i̲n̲ read while(symbol = nlcr symbol
>                                  ∨ symbol = semicolon symbol);
335c340,341
<             read while(symbol ≠ nlcr symbol∧ symbol ≠ semicolon symbol)
---
>             read while(symbol ≠ nlcr symbol
>                      ∧ symbol ≠ semicolon symbol)
337c343
<       e̲n̲d̲ read actuals;
---
> e̲n̲d̲ read actuals;
339,340c345,346
<       p̲r̲o̲c̲e̲d̲u̲r̲e̲ store expansion;
<       b̲e̲g̲i̲n̲ savestack[saveptr]:= bbcntr;
---
> p̲r̲o̲c̲e̲d̲u̲r̲e̲ store expansion;
> b̲e̲g̲i̲n̲ savestack[saveptr]:= bbcntr;
347,348c353,354
<       e̲n̲d̲ store expansion;
<       c̲o̲m̲m̲e̲n̲t̲ {indents missing above};
---
> e̲n̲d̲ store expansion;
> c̲o̲m̲m̲e̲n̲t̲ {indents missing above};
362c368
<    e̲n̲d̲ expand macro;
---
> e̲n̲d̲ expand macro;
364,365c370,371
<    i̲n̲t̲e̲g̲e̲r̲ p̲r̲o̲c̲e̲d̲u̲r̲e̲ macro sym;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i,s;
---
> i̲n̲t̲e̲g̲e̲r̲ p̲r̲o̲c̲e̲d̲u̲r̲e̲ macro sym;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i,s;
394c400
<       e̲n̲d̲ restore expansion;
---
> e̲n̲d̲ restore expansion;
396,398c402,404
<       i̲f̲ spacecntr > 150 t̲h̲e̲n̲
<       b̲e̲g̲i̲n̲ spacecntr:= spacecntr - 1; s:= space symbol e̲n̲d̲ e̲l̲s̲e̲
<       b̲e̲g̲i̲n̲ i̲f̲ from actualstack t̲h̲e̲n̲
---
> i̲f̲ spacecntr > 150 t̲h̲e̲n̲
> b̲e̲g̲i̲n̲ spacecntr:= spacecntr - 1; s:= space symbol e̲n̲d̲ e̲l̲s̲e̲
> b̲e̲g̲i̲n̲ i̲f̲ from actualstack t̲h̲e̲n̲
428c434,435
<                namestack[place of name + 1]:=-namestack[place of name + 1];
---
>                   namestack[place of name + 1]:=
>                   -namestack[place of name + 1];
437,440c444,447
<       e̲n̲d̲;
<       macro sym:= s
<         ;c̲o̲m̲m̲e̲n̲t̲ {lost indent above again};
<    e̲n̲d̲ macro sym;
---
> e̲n̲d̲;
> macro sym:= s
> ;c̲o̲m̲m̲e̲n̲t̲ {lost indent above again};
> e̲n̲d̲ macro sym;
442,443c449,450
<    i̲n̲t̲e̲g̲e̲r̲ p̲r̲o̲c̲e̲d̲u̲r̲e̲ reaffer;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i;
---
> i̲n̲t̲e̲g̲e̲r̲ p̲r̲o̲c̲e̲d̲u̲r̲e̲ reaffer;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i;
471c478,479
<               f̲o̲r̲ i:= i w̲h̲i̲l̲e̲ symbol ≠ semicolon symbol∧ symbol ≠ n1cr symbol d̲o̲
---
>       f̲o̲r̲ i:= i w̲h̲i̲l̲e̲ symbol ≠ semicolon symbol
>                     ∧ symbol ≠ n1cr symbol d̲o̲
475,478c483,486
<          e̲n̲d̲;
<       reaffer:= symbol
<         ;c̲o̲m̲m̲e̲n̲t̲ {missing indent again};
<    e̲n̲d̲ reaffer;
---
> e̲n̲d̲;
> reaffer:= symbol
> ;c̲o̲m̲m̲e̲n̲t̲ {missing indent again};
> e̲n̲d̲ reaffer;
480,481c488,489
<    b̲o̲o̲l̲e̲a̲n̲ p̲r̲o̲c̲e̲d̲u̲r̲e̲ compare(text); s̲t̲r̲i̲n̲g̲ text;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ s,k;
---
> b̲o̲o̲l̲e̲a̲n̲ p̲r̲o̲c̲e̲d̲u̲r̲e̲ compare(text); s̲t̲r̲i̲n̲g̲ text;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ s,k;
488c496
<    e̲n̲d̲ compare;
---
> e̲n̲d̲ compare;
490,491c498,499
<    p̲r̲o̲c̲e̲d̲u̲r̲e̲ read while(condition); b̲o̲o̲l̲e̲a̲n̲ condition;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i;
---
> p̲r̲o̲c̲e̲d̲u̲r̲e̲ read while(condition); b̲o̲o̲l̲e̲a̲n̲ condition;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i;
493c501
<    e̲n̲d̲ read while;
---
> e̲n̲d̲ read while;
495,496c503,504
<    p̲r̲o̲c̲e̲d̲u̲r̲e̲ skip until(text); s̲t̲r̲i̲n̲g̲ text;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i, first symbol;
---
> p̲r̲o̲c̲e̲d̲u̲r̲e̲ skip until(text); s̲t̲r̲i̲n̲g̲ text;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i, first symbol;
502c510
<    e̲n̲d̲ skip until;
---
> e̲n̲d̲ skip until;
504,506c512,514
<    p̲r̲o̲c̲e̲d̲u̲r̲e̲ stow into stack(stack,max,char); v̲a̲l̲u̲e̲ max,char;
<       i̲n̲t̲e̲g̲e̲r̲ max,char; i̲n̲t̲e̲g̲e̲r̲ a̲r̲r̲a̲y̲ stack;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i;
---
> p̲r̲o̲c̲e̲d̲u̲r̲e̲ stow into stack(stack,max,char); v̲a̲l̲u̲e̲ max,char;
> i̲n̲t̲e̲g̲e̲r̲ max,char; i̲n̲t̲e̲g̲e̲r̲ a̲r̲r̲a̲y̲ stack;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i;
527c535
<    e̲n̲d̲ stow into stack;
---
> e̲n̲d̲ stow into stack;
529,531c537,539
<    p̲r̲o̲c̲e̲d̲u̲r̲e̲ store letgits(list,pointer,max,letgit); v̲a̲l̲u̲e̲ max;
<       i̲n̲t̲e̲g̲e̲r̲ pointer,max,letgit; i̲n̲t̲e̲g̲e̲r̲ a̲r̲r̲a̲y̲ list;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i,j,word;
---
> p̲r̲o̲c̲e̲d̲u̲r̲e̲ store letgits(list,pointer,max,letgit); v̲a̲l̲u̲e̲ max;
> i̲n̲t̲e̲g̲e̲r̲ pointer,max,letgit; i̲n̲t̲e̲g̲e̲r̲ a̲r̲r̲a̲y̲ list;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i,j,word;
550c558
<    e̲n̲d̲ store letgits;
---
> e̲n̲d̲ store letgits;
563c571
<             b̲e̲g̲i̲n̲ skip until(“begin”); begcntr:= 1;
---
>             b̲e̲g̲i̲n̲ skip until("begin"); begcntr:= 1;
565c573,574
<                   b̲e̲g̲i̲n̲ read while(symbol ≠ accent symbol∧ symbol ≠ apostrophe symbol);
---
>                   b̲e̲g̲i̲n̲ read while(symbol ≠ accent symbol
>                                  ∧ symbol ≠ apostrophe symbol);
570,571c579,580
<                         i̲f̲ compare(“end”) t̲h̲e̲n̲ begcntr:= begcntr - 1 e̲l̲s̲e̲
<                         i̲f̲ compare(“begin”) t̲h̲e̲n̲ begcntr:= begcntr + 1
---
>                         i̲f̲ compare("end") t̲h̲e̲n̲ begcntr:= begcntr - 1 e̲l̲s̲e̲
>                         i̲f̲ compare("begin") t̲h̲e̲n̲ begcntr:= begcntr + 1
577c586,587
<                        read while(symbol ≠ nlcr symbol∧ symbol ≠ semicolon symbol)
---
>             read while(symbol ≠ nlcr symbol
>                      ∧ symbol ≠ semicolon symbol)
580,582c590,592
<             e̲n̲d̲
<            ;c̲o̲m̲m̲e̲n̲t̲ {more indentation errors};
<       e̲n̲d̲ skip macro declarations;
---
> e̲n̲d̲
> ;c̲o̲m̲m̲e̲n̲t̲ {more indentation errors};
> e̲n̲d̲ skip macro declarations;
584,585c594,595
<    p̲r̲o̲c̲e̲d̲u̲r̲e̲ print elantext;
<    b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i, begcntr;
---
> p̲r̲o̲c̲e̲d̲u̲r̲e̲ print elantext;
> b̲e̲g̲i̲n̲ i̲n̲t̲e̲g̲e̲r̲ i, begcntr;
588c598
<       skip until (“begin”); begcntr:= 1;
---
>       skip until ("begin"); begcntr:= 1;
590c600,601
<          b̲e̲g̲i̲n̲ read while(symbol ≠ accent symbol∧ symbol ≠ apostrophe symbol);
---
>       b̲e̲g̲i̲n̲ read while(symbol ≠ accent symbol
>                      ∧ symbol ≠ apostrophe symbol);
595,596c606,607
<                i̲f̲ compare(“end”) t̲h̲e̲n̲ begcntr:= begcntr - 1 e̲l̲s̲e̲
<                i̲f̲ compare(“begin”) t̲h̲e̲n̲ begcntr:= begcntr + 1 e̲l̲s̲e̲
---
>                   i̲f̲ compare("end") t̲h̲e̲n̲ begcntr:= begcntr - 1 e̲l̲s̲e̲
>                   i̲f̲ compare("begin") t̲h̲e̲n̲ begcntr:= begcntr + 1 e̲l̲s̲e̲
603c614
<    e̲n̲d̲ print elantext;
---
> e̲n̲d̲ print elantext;