blob: 19f6bf8d1fdba1d41e036af94e01448241c5b365 (
plain)
1
2
3
4
5
6
7
8
9
|
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;
|
