DEFINE Kotab
  LOCAL P1
  LOCAL P2
  LOCAL P3
  LOCAL P4
  LOCAL P5
  LOCAL P6
  LOCAL P7
  LOCAL P8
  LOCAL P
  LOCAL Tb1
  LOCAL Tb2
  LOCAL Tb3
  LOCAL Tp1
  LOCAL Tp2
  LOCAL Tp3
  LOCAL Tp
  LOCAL Th
  LOCAL N
  LET N 1
  LET Tb1 15
  LET Tb2 35
  LET Tb3 55
  LET Th (-7)
  TEXT_ADJUST 1
  TEXT_SIZE 3
  TEXT_RATIO 0.8
  READ PNT 'Position fuer Koordinaten-Tabelle ? ' P1
  LET P2 (P1+PNT_XY Tb1 0)
  LET P3 (P1+PNT_XY Tb2 0)
  LET P4 (P1+PNT_XY Tb3 0)
  LET P5 (P1+PNT_XY 0 Th)
  LET P6 (P1+PNT_XY Tb1 Th)
  LET P7 (P1+PNT_XY Tb2 Th)
  LET P8 (P1+PNT_XY Tb3 Th)
  LET Tp1 (P5+PNT_XY 2 2)
	LET Tp2 (P6+PNT_XY 2 2)
  LET Tp3 (P7+PNT_XY 2 2)
  TEXT 'Punkt' Tp1
  TEXT 'X-Koord.' Tp2
  TEXT 'Y-Koord.' Tp3
  LINE RECTANGLE P5 P4
  LINE P2 P6 P3 P7
  END
  LOOP
    READ PNT 'Koordinaten-Punkt ? ' P
    READ PNT 'Position fuer Koordinaten-Markierung ? ' Tp
    TEXT (STR (N)) Tp
    MEASURE_COORDINATE P
    LET P (INQ 101)
    LET X (Pround (X_OF P) 2)
    LET Y (Pround (Y_OF P) 2)
    LET P1 (P5+PNT_XY 0 (N*Th))
    LET P2 (P6+PNT_XY 0 (N*Th))
    LET P3 (P7+PNT_XY 0 (N*Th))
    LET P4 (P8+PNT_XY 0 (N*Th))
    LINE POLYGON P5 P1 P4 P8
    END
    LINE P2 P6
    LINE P3 P7
    END
    LET Tp1 (P1+PNT_XY 2 2)
    LET Tp2 (P2+PNT_XY 2 2)
    LET Tp3 (P3+PNT_XY 2 2)
    TEXT (STR (N)) Tp1
    TEXT (STR (X)) Tp2
    TEXT (STR (Y)) Tp3
    LET N (N+1)
    END
  END_LOOP
END_DEFINE