PACKET ispstandardmaskenbehandlungDEFINES schulkenndatum,
standardkopfmaskeinitialisieren,standardkopfmaskeausgeben,
standardkopfmaskeaktualisieren,setzeschulnamen,leseschulnamen:LET maskenname=
"mu standardkopf",fnrsystem=2,fnrschule=3,fnrdatum=4,fnrversion=5,fnrtitel=6,
fnrzeit=7;TAG VAR maske;#LET s2="Schulname";#TEXT VAR schuldaten:="";TEXT 
VAR zeileschulname:="";TEXT VAR systemname:="";PROC 
standardkopfmaskeinitialisieren(TEXT CONST system):setzeschulnamen(
zeileschulname);systemname:=system;initmaske(maske,maskenname)END PROC 
standardkopfmaskeinitialisieren;PROC standardkopfmaskeausgeben(TEXT CONST 
programmname):TEXT VAR hilfe;hilfe:=systemname;zentrieretext(maske,hilfe,
fnrsystem);fill(maske,hilfe,fnrsystem);fill(maske,schulisversion,fnrversion);
fill(maske,date,fnrdatum);fill(maske,timeofday,fnrzeit);hilfe:=programmname;
zentrieretext(maske,hilfe,fnrtitel);fill(maske,hilfe,fnrtitel);hilfe:=
zeileschulname;zentrieretext(maske,hilfe,fnrschule);fill(maske,hilfe,
fnrschule);show(maske).END PROC standardkopfmaskeausgeben;PROC 
standardkopfmaskeaktualisieren(TEXT CONST programmname):TEXT VAR hilfe;put(
maske,timeofday,fnrzeit);hilfe:=programmname;zentrieretext(maske,hilfe,
fnrtitel);put(maske,hilfe,fnrtitel);END PROC standardkopfmaskeaktualisieren;
PROC standardkopfmaskeaktualisieren:put(maske,timeofday,fnrzeit);END PROC 
standardkopfmaskeaktualisieren;TEXT PROC leseschulnamen:zeileschulname
ENDPROC leseschulnamen;PROC setzeschulnamen(TEXT CONST schulname):
zeileschulname:=schulnameENDPROC setzeschulnamen;TEXT PROC schulkenndatum(
TEXT CONST schluessel):LET schulkenndaten="c02 schulkenndaten";systemdboff;
inittupel(dnrschluessel);putwert(fnrschlsachgebiet,schulkenndaten);putwert(
fnrschlschluessel,schluessel);search(dnrschluessel,TRUE );IF dbstatus=okTHEN 
schuldaten:=wert(fnrschllangtext)ELSE schuldaten:=""FI ;schuldatenENDPROC 
schulkenndatum;PROC zentrieretext(TAG CONST maske,TEXT VAR text,INT CONST 
feld):INT VAR leerlaenge;TEXT VAR leertext;LET leerzeichen=" ";leerlaenge:=(
length(maske,feld)-length(text));IF (leerlaenge>0)THEN leertext:=(leerlaenge
DIV 2)*leerzeichen;text:=leertext+text+leertext;IF (leerlaengeMOD 2<>0)THEN 
text:=text+leerzeichenFI ;FI ;END PROC zentrieretext;END PACKET 
ispstandardmaskenbehandlung;oeffnedatenbank(schulisdbname);setzeschulnamen(
schulkenndatum("Schulname"));setzeschulisversion("2.2.1");
standardkopfmaskeinitialisieren("schulis")