## LPE sort05_h____!O-ns0,1!	Leerlingenlijst met minimale gegevens
## Instelling printer: top + bodem = 2, links = 4, regel = 80 + diacs
##                     pagina = 64, cmd = lp -s -op10 -onolm

# @(#)lp_002.pl	3.2	[01/05/23]

use PROCURA::RPT;
use PROCURA::Diac;

format TOP =
Gemeente @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<             Blad: @>>>>>>
	 $s_gem,							$%
Leerlingen                                              Datum: @<<<<<<<<< @<<<<
							       $D_sys,   $T_sys
===============================================================================
Achternaam                          Voornaam + initialen           Geb dat Gesl
    Adres                                    Postcode + Plaats
    SrtOnd School                                              Klas
-------------------------------------------------------------------------------
.

sub A01
{
    # TODO: Footer line
    if ($e[1]{2013} eq "") {
	need 2;
	($e[1]{2021}, $e[1]{2012}, $e[1]{2040}) = ("", "", "");
	}
    else {
	need 3;
	$e[1]{2033} ne "" and $e[1]{2012} .= ", $e[1]{2033}";
	}
    $line1 = diac_substr ($e[1]{241}, 0, 35) . " " .
	     diac_substr ($e[1]{214}, 0, 27) . " " .
	     "$e[1]{311}  $e[1]{411}";
    } # A01

push @fmt, "A01";
#@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<< @>>>
format A01 =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$line1
    @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    $e[1]{1100},			     $e[1]{1025}
~   @<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<
    $e[1]{2021},$e[1]{2012},                                    $e[1]{2040}
.

push @fmt, "EOF";
format EOF =
-------------------------------------------------------------------------------
Totaal aantal bladen: @####
                      $%
.