PACKET schulisschrifttypDEFINES schrifttyp,anschreibenschrifttyp,
mitteilungschrifttyp,setzeschuliszeichensatz:TEXT VAR zeichensatz:="";PROC 
setzeschuliszeichensatz(TEXT CONST font):zeichensatz:=fontEND PROC 
setzeschuliszeichensatz;TEXT PROC schrifttyp:zeichensatzEND PROC schrifttyp;
TEXT PROC anschreibenschrifttyp:zeichensatzEND PROC anschreibenschrifttyp;
TEXT PROC mitteilungschrifttyp:zeichensatzEND PROC mitteilungschrifttyp;IF 
fontexists(font(1))THEN zeichensatz:=font(1)ELSE zeichensatz:=""FI .END 
PACKET schulisschrifttyp;