begin

library A0, A1, A4, A5, A15;

real procedure Time;
   kdf9 2/0/0/0;
   SET 17; OUT; REV; ERASE; SET 23; FLOAT; exit;
   algol;

real   t1, t2;
integer i1, i2;

procedure pre (s); string s;
   begin writetext(30, s); t1 := Time end pre;

procedure post;
   begin t2 := (Time - t1 - c);  write(30, layout, entier(t2 / 12.0 ×  1.0º6 + 0.5)) end post;

real x, y, z, t;
real a, b, c, d, layout;

integer array E1[1:1], E2[1:1, 1:1], E3[1:1, 1:1, 1:1];
integer i, j, k, l, m, n;

procedure p0; ;

procedure p1(x); value x; real x; ;

procedure p2(x, y); value x, y; real x, y; ;

procedure p3(x, y, z); value x, y, z; real x, y, z; ;

c := 0;
layout := format({nddddd.dc});

pre({{c}null _ statement _ timing _ overhead _ in _ microseconds / 12{ss}});
;
post;
c := t2;

pre({{c}goto _ Lx; _ In _ the _ same _ compound _ statement{ss}});
   goto L1; L1: ;
   goto L2; L2: ;
   goto L3; L3: ;
   goto L4; L4: ;
   goto L5; L5: ;
   goto L6; L6: ;
   goto L7; L7: ;
   goto L8; L8: ;
   goto L9; L9: ;
   goto LA; LA: ;
   goto LB; LB: ;
   goto LC; LC: ;
post;

pre({{c}goto _ Labelx; _ In _ the _ same _ block{ss}});
   begin real u; goto Label1; Label1: end;
   begin real u; goto Label2; Label2: end;
   begin real u; goto Label3; Label3: end;
   begin real u; goto Label4; Label4: end;
   begin real u; goto Label5; Label5: end;
   begin real u; goto Label6; Label6: end;
   begin real u; goto Label7; Label7: end;
   begin real u; goto Label8; Label8: end;
   begin real u; goto Label9; Label9: end;
   begin real u; goto LabelA; LabelA: end;
   begin real u; goto LabelB; LabelB: end;
   begin real u; goto LabelC; LabelC: end;
post;

pre({{c}goto _ abcd; _ Out _ of _ the _ block{ss}});
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
   begin real v; begin real w;  goto abcd; end; abcd: end;
post;

pre({{c}if _ true _ !then;{ss}});
   if true then;
   if true then;
   if true then;
   if true then;
   if true then;
   if true then;
   if true then;
   if true then;
   if true then;
   if true then;
   if true then;
   if true then;
post;

pre({{c}if _ y _ > _ x _ !then;{ss}});
   if  y > x then;
   if  y > x then;
   if  y > x then;
   if  y > x then;
   if  y > x then;
   if  y > x then;
   if  y > x then;
   if  y > x then;
   if  y > x then;
   if  y > x then;
   if  y > x then;
   if  y > x then;
post;



end
|