# Beispielprogramm zu den Funktionen NewPage, LinesOnPage, TextOnPage,
# TextCenterOnPage, DrawOnPage, PrintPage, ClearPage und den Konstanten DINA4,
# LANDSCAPE, NORMAL, BOLD, UNDERLINE, BIG
AZUR ()
max_spalte := 112
page := NewPage (max_spalte, DINA4, LANDSCAPE)
lines := LinesOnPage (page)
Print ("Anzahl der Zeilen : ", lines)
TextCenterOnPage (page, 4, "Tabelle", BOLD+UNDERLINE+BIG)
breit := max_spalte - 2
hoch := lines - 2
DrawOnPage (page, 8,15, breit,15, 0.02)
i := 15
zeilennr := 1
WHILE (i < hoch)
DrawOnPage (page, 8,i, breit,i, 0.01)
TextOnPage (page, 5,i+1, Str (zeilennr), NORMAL)
zeilennr := zeilennr+1
i := i+3
ENDWHILE
DrawOnPage (page, 10,14, 10,hoch, 0.02)
j := 10
spaltennr := 1
WHILE (j < breit)
DrawOnPage (page, j,14, j,hoch, 0.01)
TextOnPage (page, j+5,12, Str (spaltennr), NORMAL)
spaltennr := spaltennr+1
j := j+10
ENDWHILE
PrintPage (page, "thepage.ps", "PS")
ClearPage (page)
PrintPage (page, "emptypage.ps", "PS")
END
toposoft GmbH 21. Juli 2014