save_fsm();

writeln("Biegeform T2");
# Test fuer indiv. T2 ist wie Form A2
anzeck=2;
# Anzahl der Parameter A+B

stablen= para_a + para_b;

p1=stabanf;
sbwecke(1,p1,1);

if( (ansicht = 1) | (ansicht = -1) )then
    begin
      p2=p1;
      p2.x =p2.x + para_a;
      sbwecke(2,p2,1);
    end;

if( (ansicht = 2) | (ansicht = -2) )then
    begin
      p2=p1;
      p2.x =p2.x + para_b;
      sbwecke(2,p2,1);
    end;

if(  (ansicht =  3)
   | (ansicht =  4))then
    begin
      p2=p1;
      p2.y =p2.y - para_a;
      p3 = p2 ;
      p3.x = p3.x + para_b;
      sbwecke(2,p2,1);

      sbwecke(3,p3,1);
    end;

restore_fsm();
end.