Das Script 02

PROCEDURE branch1;
VAR
     N:INTEGER;
     Length,meinWinkel_02,x0,y0,x,y,meinWinkel_01,B1,B2,B3:REAL;

PROCEDURE subbranch1(N:INTEGER;x0,y0,Length,meinWinkel_01,B1,B2,B3,meinWinkel_02:REAL);
BEGIN
   {Winkelbehandlung an für meinWinkel_01}
     Anglevar;
     IF N<>0 THEN
     BEGIN
          MoveTo(x0,y0);
          LineTo(Length,#meinWinkel_01);
          PenLoc(x,y);
          x0:=x;
          y0:=y;
          subbranch1(N-1,x0,y0,Length*B1,meinWinkel_01-meinWinkel_02,B1,B2,B3,meinWinkel_02);
          subbranch1(N-1,x0,y0,Length*B2,meinWinkel_01+meinWinkel_02,B1,B2,B3,meinWinkel_02);
        subbranch1(N-1,x0,y0,Length*B3,meinWinkel_01,B1,B2,B3,meinWinkel_02);
     END;
   {winkelbehandlung aus für meinWinkel_01}
     noAnglevar;
END;

BEGIN
    N:=5;
    Length:=15;
    B1:=0.666;
    B2:=0.666;
    B3:=0.666;
    meinWinkel_02:=30;
    meinWinkel_01:=90;
    subbranch1(N,0,0,Length,meinWinkel_01,B1,B2,B3,meinWinkel_02);
END;
RUN(branch1);