1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

...
procedure Tageslinien;
var   Zaehler1                     :integer;
      text                         :string[6];
begin
      Farbe1:=red;  SetColor(Farbe1);

      for Zaehler1:=1 to 13 do begin
      case Zaehler1 of
      1: begin Tag:=  5; text:=' 5.Jan'; end;
      2: begin Tag:= 35; text:=' 4.Feb'; end;
      3: begin Tag:= 65; text:=' 6.M"r'; end;
      4: begin Tag:= 95; text:=' 5.apr'; end;
      5: begin Tag:=125; text:=' 5.Mai'; end;
      6: begin Tag:=155; text:=' 4.Jun'; end;
      7: begin Tag:=172; text:='21.Jun'; end;
      8: begin Tag:=202; text:='21.Jul'; end;
      9: begin Tag:=232; text:='20.Aug'; end;
      10:begin Tag:=262; text:='19.Sep'; end;
      11:begin Tag:=292; text:='19.Okt'; end;
      12:begin Tag:=322; text:='18.Nov'; end;
      13:begin Tag:=351; text:='21.Dez'; end;  end;
      if Tag > 181 Then begin Farbe1:=green; SetColor(Farbe1);end;
      Deklination(Tag);
      AU(Tag);
      Zonenzeit:=ZZA;
      repeat
        Hoeheazi(Tag,Zonenzeit);
        if Hoehenwinkel < 0 then Hoehenwinkel:=0;
        xy(Hoehenwinkel,azi);
        putpixel(Bmittex+x1,Bmittey+y1,farbe1);
        Zonenzeit:=Zonenzeit+0.02;
      until Zonenzeit >=ZZU;
end;  end;

procedure Stundenschleifen;
begin
      Zonenzeit:=1;
      repeat {"Stundenschleife"}
        Tag:=1;
        repeat {"Tagesschleife"}
          if Tag < 181 then Farbe1:=red else Farbe1:=green;
          SetColor(Farbe1);
          Deklination(Tag);
          hoeheazi(Tag,Zonenzeit);
          if Hoehenwinkel >= 0 then begin
          xy(Hoehenwinkel,azi);
          putpixel(Bmittex+x1,Bmittey+y1,farbe1); end;
          Tag:=Tag+1;
        until Tag > 366;
        Zonenzeit:=Zonenzeit+1;
      until Zonenzeit >24;
end;

...