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;