program ctltest;
imports f77ctl from spectl;
procedure glawds;
begin
inlineword(4);
inlineword(2);
inlineword(999);
inlineword(1000);
end;
var flag1,flag2:integer;
    i:integer;
begin
initflag:=0;
writeln('flag1=',flag1);
if flag1<>1000 then
  begin
  writeln('calling initmain');
  initmain;
  exit(ctltest);
  writeln('back from initmain');
end;
writeln('flag1 =',flag1);
writeln('flag2 =',flag2);
writeln('help');
end.