1c1
< %BEGIN; !IMP15 COMPILER  30/10/78
---
> %BEGIN; !IMP15 COMPILER  30/10/78 resurrected Sept 2002
3a4,5
> !input streams
> !constinteger prim=2, prog=1;               !(tag limit reached)
190a193
>     selectinput(2);                         !prim/perm specs
225c228
<        NEWLINES(LINES);                     !LINE-END CODE
---
>        NEWLINES(LINES) %unless global=0;    !LINE-END CODE
606c609
< %CONSTINTEGER LAC=68,LAD=95,TAD=71,ADA=64,DAC=65,DAD=93
---
> %CONSTINTEGER LAC=68,LAD=95,TAD=71,ADA=64,DAC=65,DAD=93;!ada was 94
993c996
<     CLOSE OUTPUT
---
>     selectinput(1);                         !switch to prog file