1 PROGRAM PLOTHILBERTKURVEN(INPUT,OUTPUT);
9 WRITELN("H", H DIV 2 + 100 :1, "@", 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");
24 WRITELN("H", H0:1,"@AK");
25 FOR I := 1 TO 384 DO WRITE(" "); WRITELN
29 PROCEDURE HILBERT(I,R,S: INTEGER);
47 H := H0; FOR I := 1 TO N DO H := H DIV 2;