From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 4 Feb 2019 13:09:03 +0100 Subject: Initial import --- app/schulis/2.2.1/src/0.schulis schrifttyp | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 app/schulis/2.2.1/src/0.schulis schrifttyp (limited to 'app/schulis/2.2.1/src/0.schulis schrifttyp') diff --git a/app/schulis/2.2.1/src/0.schulis schrifttyp b/app/schulis/2.2.1/src/0.schulis schrifttyp new file mode 100644 index 0000000..19f6bf8 --- /dev/null +++ b/app/schulis/2.2.1/src/0.schulis schrifttyp @@ -0,0 +1,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; + -- cgit v1.2.3