38c38,43
< %from IMP %include Stream3L, Option3L
---
> /* %from IMP %include Stream3L, Option3L */
> %const %integer Source = 1
> %const %integer Object Out = 2
> %const %integer Listing = 1
> %const %integer Report = 0
> 
203,204c208,209
<    %constrecord(Includefm)%name Includefm Type == 0
<    %ownrecord(Includefm)%name Including == 0
---
>    %ownrecord(Includefm)%name Includefm Type {== 0}
>    %ownrecord(Includefm)%name Including {== 0}
206c211
<    %string(255) Include file = ""
---
>    %string(255) Include file {= ""}
253c258
<    %include "inc.Tables"
---
>    %include "tables.inc"
385,386c390,392
<    %constrecord(Inclfm)%name Inclfm Type == 0
<    %record(Inclfm)%name Includes == Nil
---
>    {%const}%ownrecord(Inclfm)%name Inclfm Type {== 0}
>    %record(Inclfm)%name Includes {== Nil}
> 
669,670c675,676
<          Fault(-3) %if Quiet  = 0 %and        {warn unused unless ...}
<                        Level >= 0 %and        {global}
---
>          Fault(-3) %if Quiet  = 0 %and %C     {warn unused unless ...}
>                        Level >= 0 %and %C     {global}
931c937
<          Escape Class = EscN %if Atom1 = 92 {N} %and (Sym = '[' -
---
>          Escape Class = EscN %if Atom1 = 92 {N} %and (Sym = '[' %C
1163c1169
<          %else %if Sym # Squote
---
>          %finish %else %if Sym # Squote %start
1324c1330
<                   %if atom1 = 104 {label} %and
---
>                   %if atom1 = 104 {label} %and %C
1462c1468
< act(195):->Fail2 %if Type # 0 %and Type # integer %and
---
> act(195):->Fail2 %if Type # 0 %and Type # integer %and %C
1959a1966,1969
>    {%constrecord(Inclfm)%name} Inclfm Type == 0
>    {%record(Inclfm)%name} Includes == Nil
> 
> 
2026c2036
<             Atom1 = Error+10 %unless Otype = 2 %and
---
>             Atom1 = Error+10 %unless Otype = 2 %and %C
2609a2620,2625
> 
>    {%ownrecord(Includefm)%name} Includefm Type == 0
>    {%ownrecord(Includefm)%name} Including == 0
> 
>    {%string(255)} Include file = ""
>