use utf8;
use strict;
use warnings; no warnings "redefine";
use vars qw($linelen $minfixed $minfixxed $dienstlen $fspc $xspc $zspc
	$zospc $xxspc $zzspc $maxll);

$linelen = 80; # Gesamt
$minfixed = 56;
$minfixxed = 29;
$dienstlen=13+$linelen-$minfixed; # Platz in der Mitte

$fspc = " "x14;
$xspc = " " x ($linelen-$minfixed);
$zspc = " " x ($linelen-$minfixxed);
$zospc = " " x ($linelen-$minfixxed-10);

$xxspc = "-" x length($xspc);
$zzspc = "-" x length($zspc);

$maxll = 67;
