1 PROGRAM PLOTKREUZKURVE(INPUT,OUTPUT);
9 WRITELN("H", H DIV 2 + 100 :1, "@", H + H DIV 2 + 100 :1, "AKI")
12 PROCEDURE STRECKE(R: INTEGER);
15 0: WRITELN(H:1,"A@J");
16 1: WRITELN(H:1,"@AJ");
17 2: WRITELN(H:1,"Q@J");
25 WRITELN("H3000@100AK");
26 FOR I := 1 TO 384 DO WRITE(" "); WRITELN
30 PROCEDURE KREUZ(I,R: INTEGER);
35 STRECKE(R+1); STRECKE(R);
39 STRECKE(R); STRECKE(R-1);
48 H := H0; FOR I := 1 TO N DO H := H DIV 2;
51 BEGIN KREUZ(N,R); STRECKE(R+1); STRECKE(R) END;