program ctltest;
imports f77ctl from spectl;
procedure glawds;
begin
{ 2 } inlineword(4); { offset of areamap }
      inlineword(35);
      inlineword(0);
      inlineword(0);
      inlineword(0);
      inlineword(0);
      inlineword(0);
      inlineword(0);
      inlineword(0);
      inlineword(0);
{ 12 } inlineword(0); { start of area[2] }
       inlineword(28);
       inlineword(3);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
{ 24 } inlineword(0); { start of area[5] }
       inlineword(31);
       inlineword(4);
       inlineword(0);
{ 28 } inlineword(999);
       inlineword(1000);
       inlineword(2222);
{ 31 } inlineword(111);
       inlineword(222);
       inlineword(333);
       inlineword(444);
{ 35 } inlineword(0); { start of ldata }
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(0);
       inlineword(11); { ldata[8] }
       inlineword(0);
       inlineword(0);
{ 46 } inlineword(0);
       inlineword(2);
       inlineword(1);
end;
var gla3,gla2,gla1:integer;
    ust4,ust3,ust2,ust1:integer;
    i:integer;
begin
initflag:=0;
writeln('gla1=',gla1);
if gla1<>999 then
  begin
  writeln('calling initmain');
  initmain;
  exit(ctltest);
  writeln('back from initmain');
end;
writeln('gla1 =',gla1);
writeln('gla2 =',gla2);
writeln('gla3 =',gla3);
writeln('ust1 =',ust1);
writeln('ust2 =',ust2);
writeln('ust3 =',ust3);
writeln('ust4 =',ust4);
end.