@@ -2200,6 +2200,7 @@ begin
tmp:= GetName(opts);
if tmp <> '' then
def_system_macro(tmp);
+ Option_read:=true;
end
else
if (s='UNDEF') then
@@ -2208,18 +2209,21 @@ begin
undef_system_macro(tmp);
if (s='WRITE') then
begin
Delete(opts,1,1);
WriteLn(opts);
if (s='INCLUDE') then
Interpret_file(opts);
end;