#**************************************************************************
#  Sturz/Randsturz mit Schnitt: A1-Laengseisen und B2-/B4-Buegel
#**************************************************************************
#
  save_fsm();   # Alte Voreinstellung sichern

# Variablenbennung   und Vorbelegung zum Testen
# Integervariablen
name(i60,"xanz_o");  xanz_o = 2;    # Anzahl A1-Laengseisen oben
name(i61,"xanz_u");  xanz_u = 2;    # Anzahl A1-Laengseisen unten
name(i62,"xd_o");    xd_o = 12;     # Durchmesser A1-Laengseisen oben
name(i63,"xd_u");    xd_u = 12;     # Durchmesser A1-Laengseisen unten
name(i64,"xanz_s");  xanz_s = 1;    # Anzahl A1-Stegbewehrung pro Seite
name(i65,"xd_s");    xd_s = 10;     # Durchmesser A1-Stegbewehrung
name(i66,"xd_b");    xd_b = 8;      # Durchmesser B2-/B4-Buegel
name(i67,"xposnz");  xposnz = 3;    # Art der Positionsnummer Laengseisen
name(i68,"xpos_s");  xpos_s = 3;    # Art der Positionsnummer Stegbewehrung
name(i69,"xpos_b");  xpos_b = 6;    # Art der Positionsnummer Buegel


# Realvariablen 
name(r60,"xbetde");  xbetde = 3.0;  # Variable fuer Betondeckung allgemein
name(r61,"xbet_o");  xbet_o = 3.0;  # Variable fuer Betondeckung Decke oben
name(r62,"xdik");    xdik = 18.0;   # Deckendicke
name(r63,"xhoch");   xhoch = 50.0;  # Hoehe Sturz (bis OK Decke)
name(r64,"xlang");   xlang = 126.0; # Laenge der Oeffnung
name(r65,"xaufl");   xaufl = 25.0;  # Auflager links
name(r66,"xaufr");   xaufr = 25.0;  # Auflager rechts
name(r67,"xbreit");  xbreit = 24.0; # Breite Sturz
name(r68,"xobp_a");  xobp_a = 75.0; # Ueberstaende der Eisen oben (siehe Maske)
name(r69,"xunp_a");  xunp_a = 170.0;# Para A Eisen unten
name(r70,"xsp_a");   xsp_a = 170.0; # Para A Stegbewehrung
name(r71,"xbp_a");   xbp_a = 75.0;  # Para A B4-Buegel
name(r72,"xbp_d");   xbp_d = 10.0;  # Para D B2-/B4-Buegel
name(r73,"xbp_e");   xbp_e = 25.0;  # Para E B4-Buegel
name(r74,"xabs_b");  xabs_b = 15.0; # Abstand Buegel
name(r75,"xart");    xart = 1.0;    # Art des Sturzes: Randsturz ja/nein ?
name(r76,"xbp_cx");  xbp_cx= 25.0;  # Para C B2-Buegel (Sturz v Decke getr.)
name(r77,"xwahl");   xwahl = 1.0;   # Auswahl: St. v. Decke getrennt ja/nein ?
name(r78,"xunter");  xunter = 25.0; # Abstand Sturz zu Decke

abstand = 15.0;
anzahl = 2;
stabzeifak = 1.0;
posdrewi = 0.0;

# Punktvariablen
name(p60,"xeinfp"); xeinfp.x=500.0; xeinfp.y=500.0; xeinfp.z=0.0; # Ansicht
name(p61,"xeinfs"); xeinfs.x=1000.0; xeinfs.y=500.0; xeinfs.z=0.0; # Schnitt


# Parameter ueber Maskeneingabe
  newmask("Sturz mit Schnitt: Konstruktion des Sturzes waehlen!");
  maskinfo(10,2, "Alle Macros wurden nach Kundenwuenschen erstellt");
  maskinfo(10,3, "und dienen lediglich als Beispiele");
  maskinfo(10,4, "Fuer die Richtigkeit der Macros besteht keine Haftung");
  maskinfo(10,8, "Sturz mit Decke verbunden [1] oder von Decke getrennt [0] ?");
  fillmask(10,9, "Auswahl der Konstruktion:",xwahl);
  maskinfo(10,12, "Konstruktion [1]                   Konstruktion [0]");
  maskinfo(10,13, "----------------                   ----------------");
  maskinfo(10,14, "------�  �------                   ------�--�------");
  maskinfo(10,15,"      |--|                               |--|");
  maskinfo(10,16,"      |  |                               |--|");
  maskinfo(10,17,"      |  |                               |  |");

  domask();
  newmask(""); # Bildschirm clearen

if ((r77 <> 1) & (r77 <> 0)) then
      begin
      writeln ("Der Wert darf nur 0 oder 1 sein !");
      writeln ("Sturz mit Decke verbunden [1] oder von Decke getrennt [0] ?");
      write   ("Auswahl der Konstruktion"); read (r77);
      writeln ("");
      end

if ((r77 <> 1) & (r77 <> 0)) then
      begin
      writeln ("Der Wert darf nur 0 oder 1 sein !");
      writeln ("Sturz mit Decke verbunden [1] oder von Decke getrennt [0] ?");
      write   ("Auswahl der Konstruktion"); read (r77);
      writeln ("");
      end

if ((r77 <> 1) & (r77 <> 0)) then
      begin
      restore_fsm(); # Alte Voreinstellung wieder holen
      END.
      end


#****************************************************************************
# Konstruktion [1], Sturz mit Decke verbunden 
#****************************************************************************

if (r77 = 1) then
  begin
  
  # Parameter ueber Maskeneingabe
  newmask("Sturz mit Schnitt: Art des Sturzes waehlen!");
  fillmask(10,3, "Sturz [1] oder Randsturz [0] :",xart);
  maskinfo(10,5, "Einfuegepunkte [E] immer links oben!");
  maskinfo(20,8, "Randsturz [0]");
  maskinfo(10,9, "E-------------------------------    E--------�  �");
  maskinfo(10,10,"------�------------------�------    ------�  |  | Sturzhoehe");
  maskinfo(10,11,"      �--�------------�--�                |--|  �");
  maskinfo(10,12,"         |            |                   |  |");
  maskinfo(10,13,"         |            |                   |  |");
  maskinfo(22,16,"Sturz [1]");
  maskinfo(10,17,"E-------------------------------    E---------------");
  maskinfo(10,18,"------�------------------�------    ------�  �------");
  maskinfo(10,19,"      �--�------------�--�                |--|");
  maskinfo(10,20,"         |            |                   |  |");
  maskinfo(10,21,"         |            |                   |  |");

  domask();
  newmask(""); #Bildschirm clearen

if ((r75 <> 1) & (r75 <> 0)) then
      begin
      writeln ("Der Wert darf nur 0 oder 1 sein !");
      write ("Sturz [1] oder Randsturz [0]"); read (r75);
      writeln ("");
      end

if ((r75 <> 1) & (r75 <> 0)) then
      begin
      writeln ("Der Wert darf nur 0 oder 1 sein !");
      write ("Sturz [1] oder Randsturz [0]"); read (r75);
      writeln ("");
      end

if ((r75 <> 1) & (r75 <> 0)) then
      begin
      restore_fsm(); # Alte Voreinstellung wieder holen
      END.
      end


#****************************************************************************
# Randsturz eingeben 
#****************************************************************************

if (r75 = 0) then
  begin
  
  # Parameter ueber Maskeneingabe
  newmask("Randsturz mit Schnitt");
  fillmask(5,2,  "Deckendicke          :",xdik);
  fillmask(40,2, "Sturzhoehe           :",xhoch);
  fillmask(5,3,  "Betondeckung oben    :",xbet_o);
  fillmask(40,3, "Sturzbreite          :",xbreit);
  fillmask(5,4,  "Betondeckung         :",xbetde);
  fillmask(40,4, "Aussparungslaenge    :",xlang);
  fillmask(40,5, "Auflagerlaenge links :",xaufl);
  maskinfo(5,6,  "Sturzlaenge wird gerechnet");
  fillmask(40,6, "Auflagerlaenge rechts:",xaufr);
  fillmask(5,8,  "Anzahl Eisen oben    :",xanz_o);
  fillmask(40,8, "Anzahl Eisen unten   :",xanz_u);
  fillmask(5,9,  "Durchm Eisen oben    :",xd_o);
  fillmask(40,9, "Durchm Eisen unten   :",xd_u);
  fillmask(5,11, "Anzahl Stegbew/Seite :",xanz_s);
  fillmask(40,11,"Durchm Stegbewehrung :",xd_s);
  fillmask(5,12, "Abstand Buegel       :",xabs_b);
  fillmask(40,12,"Durchmesser Buegel   :",xd_b);
  maskinfo(5,13, "Abstand Stegbewehrung und Anzahl Buegel werden gerechnet");
  fillmask(5,15, "Ueberstaende der Eisen oben, bezogen auf die Sturzecken :",xobp_a);
  fillmask(5,16, "Para A B4-Buegel     :",xbp_a);
  fillmask(40,16,"Para D B4-Buegel     :",xbp_d);
  fillmask(5,17, "Para E B4-Buegel     :",xbp_e);
  maskinfo(5,18, "Laengseisen und restliche Parameter der Buegel werden gerechnet")
  fillmask(5,20, "Pos.-Text Laengseisen:",xposnz);
  fillmask(40,20,"Pos.-Text Stegbewehr :",xpos_s);
  fillmask(5,21, "Pos.-Text Buegel     :",xpos_b);
  fillmask(40,21,"Variationsfaktor     :",stabzeifak);

  domask();
  newmask(""); #Bildschirm clearen

write("Einf�gepunkt der Ansicht eingeben:");
read(xeinfp);
writeln("");

r1 = xaufl + xlang + xaufr;
r2 = xhoch - xdik;

p1 = xeinfp;
p2 = p1 ; p2.x = p2.x + (r1 + 100 * 2) * stabzeifak;
p3 = p1 ; p3.y = p3.y - xdik * stabzeifak;
p4 = p3 ; p4.x = p4.x + 100 * stabzeifak;
p5 = p4 ; p5.y = p5.y - r2 * stabzeifak;
p6 = p5 ; p6.x = p6.x + r1 * stabzeifak
p7 = p4 ; p7.x = p7.x + r1 * stabzeifak
p8 = p7 ; p8.x = p8.x + 100 * stabzeifak;
p9 = p5 ; p9.x = p9.x + xaufl * stabzeifak;
p10 = p9 ; p10.y = p10.y - 50 * stabzeifak;
p11 = p6 ; p11.x = p11.x - xaufr * stabzeifak;
p12 = p11 ; p12.y = p12.y - 50 * stabzeifak;
setcolor(3);
line(p1,p2); line(p3,p4); line(p4,p5); line(p5,p6); line(p6,p7); line(p7,p8);
line(p4,p7); line(p9,p10); line(p11,p12);

write("Einf�gepunkt des Schnittes eingeben:");
read(xeinfs);
writeln("");

p13 = xeinfs;
p14 = p13 ; p14.x = p14.x + (100 + xbreit) * stabzeifak;
p15 = p14 ; p15.y = p15.y - xhoch * stabzeifak;
p16 = p15 ; p16.x = p16.x - xbreit * stabzeifak;
p17 = p16 ; p17.y = p17.y + r2 *stabzeifak;
p18 = p13 ; p18.y = p18.y - xdik * stabzeifak;
p19 = p16 ; p19.y = p19.y - 50 * stabzeifak;
p20 = p15 ; p20.y = p19.y;
setcolor(3);
line(p13,p14); line(p14,p15); line(p15,p16); line(p16,p17); line(p17,p18);
line(p16,p19); line(p15,p20);


#
BWFORM("B4"); 
bogen = 0;       # nicht im Bogen verlegen
anzahl = (xaufl + xlang + xaufr - 2*xbetde) / xabs_b + 1;
abstand = xabs_b;
durchm = xd_b;
para_a = xbp_a;
para_b = xhoch - xbetde - xbet_o;
para_c = xbreit - 2.0 * xbetde;
para_d = xbp_d;
para_e = xbp_e;
stabmod() ;
#
posnrzei = xpos_b;
posnrli = 0;
stabzei = 1;
verteilzei = 3;
stabecke = 2;
stabanf = xeinfp;
r3 = (xaufl + xlang + xaufr) / 2;
r4 = (xabs_b * (anzahl - 1)) / 2;
r5 = r3 - r4;
stabanf.x = stabanf.x + (100 + r5) * stabzeifak;
stabanf.y = stabanf.y - xbet_o * stabzeifak;
vtlendpkt = stabanf;
vtlabst = - (para_b + xbetde + 50) * stabzeifak - 50;
lageposnr = stabanf;
lageposnr.y = lageposnr.y - (para_b + xbetde + 50) * stabzeifak - 30;
r6 = xlang / 2;
lageposnr.x = lageposnr.x + (xaufl - 2 * xbetde + r6) * stabzeifak - 30;
verlegewinkel = 0;
stabeiwi = 90;
ansicht = 1;
stabkreis = 0;
vlposzei = 0;
stabgeo();

stabzei = 5;
verteilzei = 0;
stabecke = 2;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbreit - xbetde) * stabzeifak;
stabanf.y = stabanf.y - xbet_o * stabzeifak;
lageposnr = stabanf;
lageposnr.y = lageposnr.y - para_b/2 * stabzeifak;
lageposnr.x = lageposnr.x + xbetde * stabzeifak + 30;
vtlendpkt = stabanf;
vtlendpkt.y = vtlendpkt.y - para_b / 2 * stabzeifak;
stabeiwi = 0;
ansicht = -3;
vlposzei = 0;
stabgeo();


BWFORM("A1");    # oben
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_o;
para_a = xobp_a * 2 + xlang + xaufl + xaufr;
durchm = xd_o;
abstand = (xbreit - xbetde*2 - xd_o/10) / (xanz_o - 1);
stabmod() ;
#
posnrzei = xposnz;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 - xobp_a) * stabzeifak;
stabanf.y = stabanf.y - xbet_o * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + para_a/2 * stabzeifak - 30;
lageposnr.y = lageposnr.y + (xbet_o + xd_o/20) * stabzeifak + 30;
ansicht = 2;
vlposzei = 0;
verlegewinkel = 0;
stabeiwi = 0;
stabgeo();

posnrzei = xposnz;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_o/20) * stabzeifak;
stabanf.y = stabanf.y - (xbet_o + xd_o/20) * stabzeifak;
lageposnr = stabanf;
r9 = xbreit / 2 - (xbetde + xd_o/20);
lageposnr.x = lageposnr.x + r9 * stabzeifak;
lageposnr.y = lageposnr.y + (xbet_o + xd_o/20) * stabzeifak + 30;
posnrli = 0;
ansicht = 1;
vlposzei = 0;
verlegewinkel = 0;
stabgeo();

BWFORM("A1");    # unten
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_u;
xunp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xunp_a;
durchm = xd_u;
abstand = (xbreit - xbetde*2 - xd_u/10) / (xanz_u - 1);
stabmod() ;
#
posnrzei = xposnz;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + para_a/2 * stabzeifak - 30;
lageposnr.y = lageposnr.y - (xbetde + xd_u/20) * stabzeifak - 30;
ansicht = 2;
posnrli = 0;
vlposzei = 0;
verlegewinkel = 0;
stabeiwi = 0;
stabgeo();

posnrzei = xposnz;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_u/20) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + (xbreit - xbetde - xd_u/20) * stabzeifak + 30;
lageposnr.y = lageposnr.y - 20;
posnrli = 0;
ansicht = 1;
vlposzei = 0;
verlegewinkel = 0;
stabgeo();

if (i64 > 0) then
begin
BWFORM("A1");    # Stegbewehrung innen
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_s;
xsp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xsp_a;
durchm = xd_s;
r20 = xhoch - xdik - xbetde - xd_u/20;
abstand = r20 / (xanz_s + 0.5);
stabmod();
#
posnrzei = xpos_s;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20 - abstand) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x -xbetde * stabzeifak - 30;
lageposnr.y = lageposnr.y - 10;
ansicht = 2;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

p70 = lageposnr;
p70.x = p70.x - 45;
p70.y = p70.y - 35;
text(p70,"beidseitig");


posnrzei = xpos_s;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_s/20) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20 - abstand) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x -xbetde * stabzeifak - 30;
lageposnr.y = lageposnr.y - 10;
ansicht = 1;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

p70 = lageposnr;
p70.x = p70.x - 45;
p70.y = p70.y - 35;
text(p70,"beidseitig");


BWFORM("A1");    # Stegbewehrung aussen
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_s;
xsp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xsp_a;
durchm = xd_s;
r20 = xhoch - xdik - xbetde - xd_u/20;
abstand = r20 / (xanz_s + 0.5);
stabmod() ;
#
posnrzei = 0;
stabzei = 0;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20 - abstand) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x -xbetde * stabzeifak - 30;
ansicht = 2;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

posnrzei = 0;
stabzei = 1;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbreit - xbetde - xd_s/20) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20 - abstand) * stabzeifak;
lageposnr = stabanf;
ansicht = 1;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

end

if (i64 = 0) then
   begin
   BWFORM("A1");    # Stegbewehrung = 0

   posnrzei = 0;
   stabzei = 0;
   stabgeo();
   
   end

restore_fsm(); # Alte Voreinstellung wieder holen
END.
end

#***********************************************************************
# Sturz eingeben
#***********************************************************************

if (r75 = 1) then begin

# Parameter ueber Maskeneingabe
  newmask("Sturz mit Schnitt");
  fillmask(5,2,  "Deckendicke          :",xdik);
  fillmask(40,2, "Sturzhoehe           :",xhoch);
  fillmask(5,3,  "Betondeckung oben    :",xbet_o);
  fillmask(40,3, "Sturzbreite          :",xbreit);
  fillmask(5,4,  "Betondeckung         :",xbetde);
  fillmask(40,4, "Aussparungslaenge    :",xlang);
  fillmask(40,5, "Auflagerlaenge links :",xaufl);
  maskinfo(5,6,  "Sturzlaenge wird gerechnet");
  fillmask(40,6, "Auflagerlaenge rechts:",xaufr);
  fillmask(5,8,  "Anzahl Eisen oben    :",xanz_o);
  fillmask(40,8, "Anzahl Eisen unten   :",xanz_u);
  fillmask(5,9,  "Durchm Eisen oben    :",xd_o);
  fillmask(40,9, "Durchm Eisen unten   :",xd_u);
  fillmask(5,11, "Anzahl Stegbew/Seite :",xanz_s);
  fillmask(40,11,"Durchm Stegbewehrung :",xd_s);
  fillmask(5,12, "Abstand Buegel       :",xabs_b);
  fillmask(40,12,"Durchmesser Buegel   :",xd_b);
  maskinfo(5,13, "Abstand Stegbewehrung und Anzahl Buegel werden gerechnet");
  fillmask(5,15, "Ueberstaende der Eisen oben, bezogen auf die Sturzecken :",xobp_a);
  fillmask(5,16, "Para C B2-Buegel     :",xbp_cx);
  fillmask(40,16,"Para D B2-Buegel     :",xbp_d);
  maskinfo(5,17, "Laengseisen und restliche Parameter der Buegel werden gerechnet")
  fillmask(5,19, "Pos.-Text Laengseisen:",xposnz);
  fillmask(40,19,"Pos.-Text Stegbewehr :",xpos_s);
  fillmask(5,20, "Pos.-Text Buegel     :",xpos_b);
  fillmask(40,20,"Variationsfaktor     :",stabzeifak);

  domask();
  newmask(""); #Bildschirm clearen

write("Einf�gepunkt der Ansicht eingeben:");
read(xeinfp);
writeln("");

r1 = xaufl + xlang + xaufr;
r2 = xhoch - xdik;

p1 = xeinfp;
p2 = p1 ; p2.x = p2.x + (r1 + 100 * 2) * stabzeifak;
p3 = p1 ; p3.y = p3.y - xdik * stabzeifak;
p4 = p3 ; p4.x = p4.x + 100 * stabzeifak;
p5 = p4 ; p5.y = p5.y - r2 * stabzeifak;
p6 = p5 ; p6.x = p6.x + r1 * stabzeifak
p7 = p4 ; p7.x = p7.x + r1 * stabzeifak
p8 = p7 ; p8.x = p8.x + 100 * stabzeifak;
p9 = p5 ; p9.x = p9.x + xaufl * stabzeifak;
p10 = p9 ; p10.y = p10.y - 50 * stabzeifak;
p11 = p6 ; p11.x = p11.x - xaufr * stabzeifak;
p12 = p11 ; p12.y = p12.y - 50 * stabzeifak;
setcolor(3);
line(p1,p2); line(p3,p4); line(p4,p5); line(p5,p6); line(p6,p7); line(p7,p8);
line(p4,p7); line(p9,p10); line(p11,p12);

write("Einf�gepunkt des Schnittes eingeben:");
read(xeinfs);
writeln("");

p13 = xeinfs;
p14 = p13 ; p14.x = p14.x + (2*100 + xbreit) * stabzeifak;
p15 = p14 ; p15.y = p15.y - xdik * stabzeifak;
p16 = p15 ; p16.x = p16.x - 100 * stabzeifak;
p17 = p16 ; p17.y = p17.y - r2 * stabzeifak;
p18 = p17 ; p18.y = p18.y - 50 * stabzeifak;
p19 = p18 ; p19.x = p19.x - xbreit * stabzeifak;
p20 = p17 ; p20.x = p20.x - xbreit * stabzeifak;
p21 = p16 ; p21.x = p21.x - xbreit * stabzeifak;
p22 = p13 ; p22.y = p22.y - xdik * stabzeifak;
setcolor(3);
line(p13,p14); line(p15,p16); line(p16,p17); line(p17,p18); line(p19,p20);
line(p20,p21); line(p21,p22); line(p17,p20);


#
BWFORM("B2"); 
bogen = 0;       # nicht im Bogen verlegen
anzahl = (xaufl + xlang + xaufr - 2*xbetde) / xabs_b + 1;
abstand = xabs_b;
durchm = xd_b;
para_a = xbreit - 2.0 * xbetde;
para_b = xhoch - xbetde - xbet_o;
para_c = xbp_cx;
para_d = xbp_d;
stabmod() ;
#
posnrzei = xpos_b;
posnrli = 0;
stabzei = 1;
verteilzei = 3;
stabecke = 3;
stabanf = xeinfp;
r3 = (xaufl + xlang + xaufr) / 2;
r4 = (xabs_b * (anzahl - 1)) / 2;
r5 = r3 - r4;
stabanf.x = stabanf.x + (100 + r5) * stabzeifak;
stabanf.y = stabanf.y - xbet_o * stabzeifak;
vtlendpkt = stabanf;
vtlabst = - (para_b + xbetde + 50) * stabzeifak - 50;
lageposnr = stabanf;
lageposnr.y = lageposnr.y - (para_b + xbetde + 50) * stabzeifak - 30;
r6 = xlang / 2;
lageposnr.x = lageposnr.x + (xaufl - 2 * xbetde + r6) * stabzeifak - 30;
verlegewinkel = 0;
stabeiwi = -90;
ansicht = 1;
stabkreis = 0;
vlposzei = 0;
stabgeo();

stabzei = 5;
verteilzei = 0;
stabecke = 2;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbreit - xbetde) * stabzeifak;
stabanf.y = stabanf.y - xbet_o * stabzeifak;
lageposnr = stabanf;
lageposnr.y = lageposnr.y - xdik * stabzeifak - 17;
lageposnr.x = lageposnr.x + xbetde * stabzeifak + 30;
vtlendpkt = stabanf;
vtlendpkt.y = vtlendpkt.y - para_b / 2 * stabzeifak;
stabeiwi = 0;
ansicht = -3;
vlposzei = 0;
stabgeo();


BWFORM("A1");    # oben
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_o;
para_a = xobp_a * 2 + xlang + xaufl + xaufr;
durchm = xd_o;
abstand = (xbreit - xbetde*2 - xd_o/10) / (xanz_o - 1);
stabmod() ;
#
posnrzei = xposnz;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 - xobp_a) * stabzeifak;
stabanf.y = stabanf.y - xbet_o * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + para_a/2 * stabzeifak - 30;
lageposnr.y = lageposnr.y + (xbet_o + xd_o/20) * stabzeifak + 30;
ansicht = 2;
vlposzei = 0;
verlegewinkel = 0;
stabeiwi = 0;
stabgeo();

posnrzei = xposnz;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_o/20) * stabzeifak;
stabanf.y = stabanf.y - (xbet_o + xd_o/20) * stabzeifak;
lageposnr = stabanf;
r9 = xbreit / 2 - (xbetde + xd_o/20);
lageposnr.x = lageposnr.x + r9 * stabzeifak;
lageposnr.y = lageposnr.y + (xbet_o + xd_o/20) * stabzeifak + 30;
posnrli = 0;
ansicht = 1;
vlposzei = 0;
verlegewinkel = 0;
stabgeo();

BWFORM("A1");    # unten
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_u;
xunp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xunp_a;
durchm = xd_u;
abstand = (xbreit - xbetde*2 - xd_u/10) / (xanz_u - 1);
stabmod() ;
#
posnrzei = xposnz;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + para_a/2 * stabzeifak - 30;
lageposnr.y = lageposnr.y - (xbetde + xd_u/20) * stabzeifak - 30;
ansicht = 2;
posnrli = 0;
vlposzei = 0;
verlegewinkel = 0;
stabeiwi = 0;
stabgeo();

posnrzei = xposnz;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_u/20) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + (xbreit - xbetde - xd_u/20) * stabzeifak + 30;
lageposnr.y = lageposnr.y - 30;
posnrli = 0;
ansicht = 1;
vlposzei = 0;
verlegewinkel = 0;
stabgeo();

if (i64 > 0) then
begin
BWFORM("A1");    # Stegbewehrung innen
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_s;
xsp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xsp_a;
durchm = xd_s;
r20 = xhoch - xdik - xbetde - xd_u/20;
abstand = r20 / (xanz_s + 0.5);
stabmod();
#
posnrzei = xpos_s;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20 - abstand) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x -xbetde * stabzeifak - 30;
lageposnr.y = lageposnr.y - 10;
ansicht = 2;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

p70 = lageposnr;
p70.x = p70.x - 45;
p70.y = p70.y - 35;
text(p70,"beidseitig");


posnrzei = xpos_s;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_s/20) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20 - abstand) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x -xbetde * stabzeifak - 30;
lageposnr.y = lageposnr.y - 10;
ansicht = 1;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

p70 = lageposnr;
p70.x = p70.x - 45;
p70.y = p70.y - 35;
text(p70,"beidseitig");


BWFORM("A1");    # Stegbewehrung aussen
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_s;
xsp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xsp_a;
durchm = xd_s;
r20 = xhoch - xdik - xbetde - xd_u/20;
abstand = r20 / (xanz_s + 0.5);
stabmod() ;
#
posnrzei = 0;
stabzei = 0;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20 - abstand) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x -xbetde * stabzeifak - 30;
ansicht = 2;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

posnrzei = 0;
stabzei = 1;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbreit - xbetde - xd_s/20) * stabzeifak;
stabanf.y = stabanf.y - (xhoch - xbetde - xd_u/20 - abstand) * stabzeifak;
lageposnr = stabanf;
ansicht = 1;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

end

if (i64 = 0) then
   begin
   BWFORM("A1");    # Stegbewehrung = 0

   posnrzei = 0;
   stabzei = 0;
   stabgeo();
   
   end
end
end
restore_fsm(); # Alte Voreinstellung wieder holen
end
end

#****************************************************************************
# Konstruktion [0], Sturz von Decke getrennt 
#****************************************************************************

if (r77 = 0) then
  begin
  
  # Parameter ueber Maskeneingabe
  newmask("Sturz mit Schnitt: Art des Sturzes waehlen!");
  fillmask(10,3, "Sturz [1] oder Randsturz [0] :",xart);
  maskinfo(10,5, "Einfuegepunkte [E] immer links oben!");
  maskinfo(20,8, "Randsturz [0]");
  maskinfo(10,9, "E-------------------------------    E--------�");
  maskinfo(10,10,"--------------------------------    ------�--|");
  maskinfo(10,11,"      �------------------�                |--|");
  maskinfo(10,12,"      �--�------------�--�                |--|");
  maskinfo(10,13,"         |            |                   |  |");
  maskinfo(22,16,"Sturz [1]");
  maskinfo(10,17,"E-------------------------------    E---------------");
  maskinfo(10,18,"--------------------------------    ------�--�------");
  maskinfo(10,19,"      �------------------�                |--|");
  maskinfo(10,20,"      �--�------------�--�                |--|");
  maskinfo(10,21,"         |            |                   |  |");

  domask();
  newmask(""); #Bildschirm clearen

if ((r75 <> 1) & (r75 <> 0)) then
      begin
      writeln ("Der Wert darf nur 0 oder 1 sein !");
      write ("Sturz [1] oder Randsturz [0]"); read (r75);
      writeln ("");
      end

if ((r75 <> 1) & (r75 <> 0)) then
      begin
      writeln ("Der Wert darf nur 0 oder 1 sein !");
      write ("Sturz [1] oder Randsturz [0]"); read (r75);
      writeln ("");
      end

if ((r75 <> 1) & (r75 <> 0)) then
      begin
      restore_fsm(); # Alte Voreinstellung wieder holen
      END.
      end

#****************************************************************************
# Randsturz eingeben 
#****************************************************************************

if (r75 = 0) then 
  begin
  
  # Parameter ueber Maskeneingabe
  newmask("Randsturz mit Schnitt");
  fillmask(5,2,  "Deckendicke          :",xdik);
  fillmask(40,2, "Sturzhoehe           :",xhoch);
  fillmask(5,3,  "Abstand Sturz-Decke  :",xunter);
  fillmask(40,3, "Sturzbreite          :",xbreit);
  fillmask(5,4,  "Betondeckung         :",xbetde);
  fillmask(40,4, "Aussparungslaenge    :",xlang);
  fillmask(40,5, "Auflagerlaenge links :",xaufl);
  maskinfo(5,6,  "Sturzlaenge wird gerechnet");
  fillmask(40,6, "Auflagerlaenge rechts:",xaufr);
  fillmask(5,8,  "Anzahl Eisen oben    :",xanz_o);
  fillmask(40,8, "Anzahl Eisen unten   :",xanz_u);
  fillmask(5,9,  "Durchm Eisen oben    :",xd_o);
  fillmask(40,9, "Durchm Eisen unten   :",xd_u);
  fillmask(5,11, "Anzahl Stegbew/Seite :",xanz_s);
  fillmask(40,11,"Durchm Stegbewehrung :",xd_s);
  fillmask(5,12, "Abstand Buegel       :",xabs_b);
  fillmask(40,12,"Durchmesser Buegel   :",xd_b);
  maskinfo(5,13, "Abstand Stegbewehrung und Anzahl Buegel werden gerechnet");
  fillmask(5,15, "Para C B2-Buegel     :",xbp_cx);
  fillmask(40,15,"Para D B2-Buegel     :",xbp_d);
  maskinfo(5,16, "Laengseisen und restliche Parameter der Buegel werden gerechnet")
  fillmask(5,18, "Pos.-Text Laengseisen:",xposnz);
  fillmask(40,18,"Pos.-Text Stegbewehr :",xpos_s);
  fillmask(5,19, "Pos.-Text Buegel     :",xpos_b);
  fillmask(40,19,"Variationsfaktor     :",stabzeifak);

  domask();
  newmask(""); #Bildschirm clearen

write("Einf�gepunkt der Ansicht eingeben:");
read(xeinfp);
writeln("");

r1 = xaufl + xlang + xaufr;

p1 = xeinfp;
p2 = p1 ; p2.x = p2.x + (r1 + 100 * 2) * stabzeifak;
p3 = p1 ; p3.y = p3.y - xdik * stabzeifak;
p4 = p2 ; p4.y = p4.y - xdik * stabzeifak;
p5 = p3 ; p5.y = p5.y - xunter * stabzeifak;
          p5.x = p5.x + 100 * stabzeifak;
p6 = p5 ; p6.x = p6.x + r1 * stabzeifak
p7 = p5 ; p7.y = p7.y - xhoch * stabzeifak
p8 = p6 ; p8.y = p8.y - xhoch * stabzeifak;
p9 = p7 ; p9.x = p9.x + xaufl * stabzeifak;
p10 = p9 ; p10.y = p10.y - 50 * stabzeifak;
p11 = p8 ; p11.x = p11.x - xaufr * stabzeifak;
p12 = p11 ; p12.y = p12.y - 50 * stabzeifak;

setcolor(3);
line(p1,p2); line(p3,p4); line(p5,p6); line(p6,p8); line(p8,p7);
line(p7,p5); line(p9,p10); line(p11,p12);

write("Einf�gepunkt des Schnittes eingeben:");
read(xeinfs);
writeln("");

p13 = xeinfs;
p14 = p13 ; p14.x = p14.x + (100 + xbreit) * stabzeifak;
p15 = p14 ; p15.y = p15.y - (xdik + xunter + xhoch) * stabzeifak;
p16 = p15 ; p16.x = p16.x - xbreit * stabzeifak;
p17 = p16 ; p17.y = p17.y + (xhoch + xunter) * stabzeifak;
p18 = p13 ; p18.y = p18.y - xdik * stabzeifak;
p19 = p16 ; p19.y = p19.y - 50 * stabzeifak;
p20 = p15 ; p20.y = p19.y;
p21 = p14 ; p21.y = p21.y - xdik * stabzeifak;
p22 = p15 ; p22.y = p22.y + xhoch * stabzeifak;
p23 = p16 ; p23.y = p22.y;

setcolor(3);
line(p13,p14); line(p14,p21); line(p21,p18); line(p17,p23); line(p23,p16);
line(p16,p19); line(p21,p22); line(p22,p15); line(p15,p20); line(p22,p23);
line(p15,p16);


#
BWFORM("B2"); 
bogen = 0;       # nicht im Bogen verlegen
anzahl = (xaufl + xlang + xaufr - 2*xbetde) / xabs_b + 1;
abstand = xabs_b;
durchm = xd_b;
para_a = xbreit - 2.0 * xbetde;
para_b = xhoch - 2.0 * xbetde;
para_c = xbp_cx;
para_d = xbp_d;
stabmod();
#
posnrzei = xpos_b;
posnrli = 0;
stabzei = 1;
verteilzei = 3;
stabecke = 3;
stabanf = xeinfp;
r3 = (xaufl + xlang + xaufr) / 2;
r4 = (xabs_b * (anzahl - 1)) / 2;
r5 = r3 - r4;
stabanf.x = stabanf.x + (100 + r5) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xbetde) * stabzeifak;
vtlendpkt = stabanf;
vtlabst = - (para_b + xbetde + 50) * stabzeifak - 50;
lageposnr = stabanf;
lageposnr.y = lageposnr.y - (para_b + xbetde + 50) * stabzeifak - 30;
r6 = xlang / 2;
lageposnr.x = lageposnr.x + (xaufl - 2 * xbetde + r6) * stabzeifak - 30;
verlegewinkel = 0;
stabeiwi = -90;
ansicht = 1;
stabkreis = 0;
vlposzei = 0;
stabgeo();

stabzei = 5;
verteilzei = 0;
stabecke = 2;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbreit - xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xbetde) * stabzeifak;
lageposnr = stabanf;
lageposnr.y = lageposnr.y - para_b/2 * stabzeifak;
lageposnr.x = lageposnr.x + xbetde * stabzeifak + 30;
vtlendpkt = stabanf;
vtlendpkt.y = vtlendpkt.y - para_b/2 * stabzeifak - 10;
stabeiwi = 0;
ansicht = -3;
vlposzei = 0;
stabgeo();


BWFORM("A1");    # oben
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_o;
para_a = xlang + xaufl + xaufr - 2*xbetde;
durchm = xd_o;
abstand = (xbreit - xbetde*2 - xd_o/10) / (xanz_o - 1);
stabmod() ;
#
posnrzei = xposnz;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xbetde) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + para_a/2 * stabzeifak - 30;
lageposnr.y = lageposnr.y + (xbetde + xd_o/20 + xunter + xdik)*stabzeifak + 30;
ansicht = 2;
vlposzei = 0;
verlegewinkel = 0;
stabeiwi = 0;
stabgeo();

posnrzei = xposnz;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_o/20) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xbetde + xd_o/20) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + (xbreit - xbetde - xd_o/20) * stabzeifak +30;
lageposnr.y = lageposnr.y + 30;
posnrli = 0;
ansicht = 1;
vlposzei = 0;
verlegewinkel = 0;
stabgeo();

BWFORM("A1");    # unten
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_u;
xunp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xunp_a;
durchm = xd_u;
abstand = (xbreit - xbetde*2 - xd_u/10) / (xanz_u - 1);
stabmod() ;
#
posnrzei = xposnz;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xhoch - xbetde) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + para_a/2 * stabzeifak - 30;
lageposnr.y = lageposnr.y - (xbetde + xd_u/20) * stabzeifak - 30;
ansicht = 2;
posnrli = 0;
vlposzei = 0;
verlegewinkel = 0;
stabeiwi = 0;
stabgeo();

posnrzei = xposnz;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_u/20) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xhoch - xbetde - xd_u/20) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + (xbreit - xbetde - xd_u/20) * stabzeifak + 30;
lageposnr.y = lageposnr.y - 30;
posnrli = 0;
ansicht = 1;
vlposzei = 0;
verlegewinkel = 0;
stabgeo();

if (i64 > 0) then
begin
BWFORM("A1");    # Stegbewehrung innen
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_s;
xsp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xsp_a;
durchm = xd_s;
r20 = xhoch - 2*xbetde - xd_o/20 - xd_u/20;
abstand = r20 / (xanz_s + 1.0);
stabmod();
#
posnrzei = xpos_s;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
r21 = -xdik - xunter - xhoch + xbetde + xd_u/20 + abstand
stabanf.y = stabanf.y + r21 * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x -xbetde * stabzeifak - 30;
ansicht = 2;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

p70 = lageposnr;
p70.x = p70.x - 45;
p70.y = p70.y - 35;
text(p70,"beidseitig");


posnrzei = xpos_s;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_s/20) * stabzeifak;
stabanf.y = stabanf.y + r21 * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x - xbetde * stabzeifak - 30;
ansicht = 1;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

p70 = lageposnr;
p70.x = p70.x - 45;
p70.y = p70.y - 35;
text(p70,"beidseitig");


BWFORM("A1");    # Stegbewehrung aussen
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_s;
xsp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xsp_a;
durchm = xd_s;
abstand = r20 / (xanz_s + 1.0);
stabmod() ;
#
posnrzei = 0;
stabzei = 0;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y + r21 * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x - xbetde * stabzeifak - 30;
ansicht = 2;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

posnrzei = 0;
stabzei = 1;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbreit - xbetde - xd_s/20) * stabzeifak;
stabanf.y = stabanf.y + r21 * stabzeifak;
lageposnr = stabanf;
ansicht = 1;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

end

if (i64 = 0) then
   begin
   BWFORM("A1");    # Stegbewehrung = 0

   posnrzei = 0;
   stabzei = 0;
   stabgeo();
   
   end

restore_fsm(); # Alte Voreinstellung wieder holen
END.
end


#***********************************************************************
# Sturz eingeben
#***********************************************************************

if (r75 = 1) then begin

  # Parameter ueber Maskeneingabe
  newmask("Sturz mit Schnitt");
  fillmask(5,2,  "Deckendicke          :",xdik);
  fillmask(40,2, "Sturzhoehe           :",xhoch);
  fillmask(5,3,  "Abstand Sturz-Decke  :",xunter);
  fillmask(40,3, "Sturzbreite          :",xbreit);
  fillmask(5,4,  "Betondeckung         :",xbetde);
  fillmask(40,4, "Aussparungslaenge    :",xlang);
  fillmask(40,5, "Auflagerlaenge links :",xaufl);
  maskinfo(5,6,  "Sturzlaenge wird gerechnet");
  fillmask(40,6, "Auflagerlaenge rechts:",xaufr);
  fillmask(5,8,  "Anzahl Eisen oben    :",xanz_o);
  fillmask(40,8, "Anzahl Eisen unten   :",xanz_u);
  fillmask(5,9,  "Durchm Eisen oben    :",xd_o);
  fillmask(40,9, "Durchm Eisen unten   :",xd_u);
  fillmask(5,11, "Anzahl Stegbew/Seite :",xanz_s);
  fillmask(40,11,"Durchm Stegbewehrung :",xd_s);
  fillmask(5,12, "Abstand Buegel       :",xabs_b);
  fillmask(40,12,"Durchmesser Buegel   :",xd_b);
  maskinfo(5,13, "Abstand Stegbewehrung und Anzahl Buegel werden gerechnet");
  fillmask(5,15, "Para C B2-Buegel     :",xbp_cx);
  fillmask(40,15,"Para D B2-Buegel     :",xbp_d);
  maskinfo(5,16, "Laengseisen und restliche Parameter der Buegel werden gerechnet")
  fillmask(5,18, "Pos.-Text Laengseisen:",xposnz);
  fillmask(40,18,"Pos.-Text Stegbewehr :",xpos_s);
  fillmask(5,19, "Pos.-Text Buegel     :",xpos_b);
  fillmask(40,19,"Variationsfaktor     :",stabzeifak);

  domask();
  newmask(""); #Bildschirm clearen

write("Einf�gepunkt der Ansicht eingeben:");
read(xeinfp);
writeln("");

r1 = xaufl + xlang + xaufr;

p1 = xeinfp;
p2 = p1 ; p2.x = p2.x + (r1 + 100 * 2) * stabzeifak;
p3 = p1 ; p3.y = p3.y - xdik * stabzeifak;
p4 = p2 ; p4.y = p4.y - xdik * stabzeifak;
p5 = p3 ; p5.y = p5.y - xunter * stabzeifak;
          p5.x = p5.x + 100 * stabzeifak;
p6 = p5 ; p6.x = p6.x + r1 * stabzeifak
p7 = p5 ; p7.y = p7.y - xhoch * stabzeifak
p8 = p6 ; p8.y = p8.y - xhoch * stabzeifak;
p9 = p7 ; p9.x = p9.x + xaufl * stabzeifak;
p10 = p9 ; p10.y = p10.y - 50 * stabzeifak;
p11 = p8 ; p11.x = p11.x - xaufr * stabzeifak;
p12 = p11 ; p12.y = p12.y - 50 * stabzeifak;

setcolor(3);
line(p1,p2); line(p3,p4); line(p5,p6); line(p6,p8); line(p8,p7);
line(p7,p5); line(p9,p10); line(p11,p12);

write("Einf�gepunkt des Schnittes eingeben:");
read(xeinfs);
writeln("");

p13 = xeinfs;
p14 = p13 ; p14.x = p14.x + (2*100 + xbreit) * stabzeifak;
p15 = p13 ; p15.y = p15.y - (xdik + xunter + xhoch) * stabzeifak;
            p15.x = p15.x + (100 + xbreit) * stabzeifak;
p16 = p15 ; p16.x = p16.x - xbreit * stabzeifak;
p17 = p16 ; p17.y = p17.y + (xhoch + xunter) * stabzeifak;
p18 = p13 ; p18.y = p18.y - xdik * stabzeifak;
p19 = p16 ; p19.y = p19.y - 50 * stabzeifak;
p20 = p15 ; p20.y = p19.y;
p21 = p14 ; p21.y = p21.y - xdik * stabzeifak;
p22 = p15 ; p22.y = p22.y + xhoch * stabzeifak;
p23 = p16 ; p23.y = p22.y;
p24 = p17 ; p24.x = p15.x;

setcolor(3);
line(p13,p14); line(p21,p18); line(p17,p23); line(p23,p16); line(p16,p19);
line(p24,p22); line(p22,p15); line(p15,p20); line(p22,p23); line(p15,p16);


#
BWFORM("B2"); 
bogen = 0;       # nicht im Bogen verlegen
anzahl = (xaufl + xlang + xaufr - 2*xbetde) / xabs_b + 1;
abstand = xabs_b;
durchm = xd_b;
para_a = xbreit - 2.0 * xbetde;
para_b = xhoch - 2.0 * xbetde;
para_c = xbp_cx;
para_d = xbp_d;
stabmod();
#
posnrzei = xpos_b;
posnrli = 0;
stabzei = 1;
verteilzei = 3;
stabecke = 3;
stabanf = xeinfp;
r3 = (xaufl + xlang + xaufr) / 2;
r4 = (xabs_b * (anzahl - 1)) / 2;
r5 = r3 - r4;
stabanf.x = stabanf.x + (100 + r5) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xbetde) * stabzeifak;
vtlendpkt = stabanf;
vtlabst = - (para_b + xbetde + 50) * stabzeifak - 50;
lageposnr = stabanf;
lageposnr.y = lageposnr.y - (para_b + xbetde + 50) * stabzeifak - 30;
r6 = xlang / 2;
lageposnr.x = lageposnr.x + (xaufl - 2 * xbetde + r6) * stabzeifak - 30;
verlegewinkel = 0;
stabeiwi = -90;
ansicht = 1;
stabkreis = 0;
vlposzei = 0;
stabgeo();

stabzei = 5;
verteilzei = 0;
stabecke = 2;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbreit - xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xbetde) * stabzeifak;
lageposnr = stabanf;
lageposnr.y = lageposnr.y - para_b/2 * stabzeifak;
lageposnr.x = lageposnr.x + xbetde * stabzeifak + 30;
vtlendpkt = stabanf;
vtlendpkt.y = vtlendpkt.y - para_b/2 * stabzeifak - 10;
stabeiwi = 0;
ansicht = -3;
vlposzei = 0;
stabgeo();


BWFORM("A1");    # oben
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_o;
para_a = xlang + xaufl + xaufr - 2*xbetde;
durchm = xd_o;
abstand = (xbreit - xbetde*2 - xd_o/10) / (xanz_o - 1);
stabmod() ;
#
posnrzei = xposnz;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xbetde) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + para_a/2 * stabzeifak - 30;
lageposnr.y = lageposnr.y + (xbetde + xd_o/20 + xunter + xdik)*stabzeifak + 30;
ansicht = 2;
vlposzei = 0;
verlegewinkel = 0;
stabeiwi = 0;
stabgeo();

posnrzei = xposnz;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_o/20) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xbetde + xd_o/20) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + (xbreit - xbetde - xd_o/20) * stabzeifak +30;
lageposnr.y = lageposnr.y + 30;
posnrli = 0;
ansicht = 1;
vlposzei = 0;
verlegewinkel = 0;
stabgeo();

BWFORM("A1");    # unten
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_u;
xunp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xunp_a;
durchm = xd_u;
abstand = (xbreit - xbetde*2 - xd_u/10) / (xanz_u - 1);
stabmod() ;
#
posnrzei = xposnz;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xhoch - xbetde) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + para_a/2 * stabzeifak - 30;
lageposnr.y = lageposnr.y - (xbetde + xd_u/20) * stabzeifak - 30;
ansicht = 2;
posnrli = 0;
vlposzei = 0;
verlegewinkel = 0;
stabeiwi = 0;
stabgeo();

posnrzei = xposnz;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_u/20) * stabzeifak;
stabanf.y = stabanf.y - (xdik + xunter + xhoch - xbetde - xd_u/20) * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x + (xbreit - xbetde - xd_u/20) * stabzeifak + 30;
lageposnr.y = lageposnr.y - 30;
posnrli = 0;
ansicht = 1;
vlposzei = 0;
verlegewinkel = 0;
stabgeo();

if (i64 > 0) then
begin
BWFORM("A1");    # Stegbewehrung innen
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_s;
xsp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xsp_a;
durchm = xd_s;
r20 = xhoch - 2*xbetde - xd_o/20 - xd_u/20;
abstand = r20 / (xanz_s + 1.0);
stabmod();
#
posnrzei = xpos_s;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
r21 = -xdik - xunter - xhoch + xbetde + xd_u/20 + abstand
stabanf.y = stabanf.y + r21 * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x -xbetde * stabzeifak - 30;
ansicht = 2;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

p70 = lageposnr;
p70.x = p70.x - 45;
p70.y = p70.y - 35;
text(p70,"beidseitig");


posnrzei = xpos_s;
stabzei = 1;
verteilzei = 4;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbetde + xd_s/20) * stabzeifak;
stabanf.y = stabanf.y + r21 * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x - xbetde * stabzeifak - 30;
ansicht = 1;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

p70 = lageposnr;
p70.x = p70.x - 45;
p70.y = p70.y - 35;
text(p70,"beidseitig");


BWFORM("A1");    # Stegbewehrung aussen
bogen = 0;       # nicht im Bogen verlegen
anzahl = xanz_s;
xsp_a = (xaufl + xlang + xaufr - 2*xbetde);
para_a = xsp_a;
durchm = xd_s;
abstand = r20 / (xanz_s + 1.0);
stabmod() ;
#
posnrzei = 0;
stabzei = 0;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfp;
stabanf.x = stabanf.x + (100 + xbetde) * stabzeifak;
stabanf.y = stabanf.y + r21 * stabzeifak;
lageposnr = stabanf;
lageposnr.x = lageposnr.x - xbetde * stabzeifak - 30;
ansicht = 2;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

posnrzei = 0;
stabzei = 1;
verteilzei = 0;
stabecke = 1;
stabanf = xeinfs;
stabanf.x = stabanf.x + (100 + xbreit - xbetde - xd_s/20) * stabzeifak;
stabanf.y = stabanf.y + r21 * stabzeifak;
lageposnr = stabanf;
ansicht = 1;
posnrli = 1;
vlposzei = 0;
verlegewinkel = 90;
stabeiwi = -90;
stabgeo();

end

if (i64 = 0) then
   begin
   BWFORM("A1");    # Stegbewehrung = 0

   posnrzei = 0;
   stabzei = 0;
   stabgeo();
   
   end

end
end
restore_fsm(); # Alte Voreinstellung wieder holen
END.