initial commit

tools/qed/kurzel/modula.krz

@@ -0,0 +1,100 @@
+#
+# qed K<>rzel-Datei f<>r Modula2
+#
+a  =AND 
+ab =ABS(~)
+ac =ARRAY ~OF CHAR;
+ad =ADDRESS;
+ai =ARRAY ~OF INTEGER;
+al =ARRAY OF LOC
+ar =ARRAY [~..] OF 
+b  =BEGIN
+bl =BOOLEAN;
+bs =BITSET;
+bt =BYTE;
+cp =CAP(~)
+cd =CARDINAL;
+cs =CASE ~ OF
+c  =CHAR;
+cr =CHR(~)
+cn =CONST
+dc =DEC(~)
+dm =DEFINITION MODULE ~;
+dp =DISPOSE(~);
+dv =DIV 
+e  =ELSE
+es =ELSIF 
+en =END ~;
+ec =END(*CASE*);
+ef =END(*FOR*);
+ei =END(*IF*);
+el =END(*LOOP*);
+er =END(*RECORD*);
+ew =END(*WHILE*);
+eh =END(*WITH*);
+et =EXIT;
+ex =EXPORT ;
+eq =EXPORT QUALIFIED ~;
+f  =FALSE
+fi =FROM ~IMPORT 
+fl =FLOAT(~)
+fo =FOR ~:= TO DO
+gm =GD.Msg("~");
+i  =IF ~ THEN
+im =IMPLEMENTATION MODULE ~;
+in =IN 
+ic =INC(~);
+il =INCL(~);
+ip =IMPORT ~;
+it =INTEGER;
+iwc=IO.WriteChar(~);
+iwi=IO.WriteInt(~);
+iwl=IO.WriteLn;
+iwr=IO.WriteReal(~);
+iws=IO.WriteString("~");
+lb =LONGBITSET;
+lc =LONGCARD;
+li =LONGINT; 
+lr =LONGREAL;
+l  =LOOP
+m  =MOD 
+mo =MODULE ~;
+ne =NEW(~);
+ni =NIL
+n  =NOT 
+od =ODD(~);
+of =OF 
+o  =OR 
+or =ORD(~);
+pt =POINTER TO 
+pr =PROC;
+p  =PROCEDURE 
+ra =REAL;
+re =RECORD
+rp =REPEAT
+r  =RETURN ~;
+rd =Read(~);
+rc =ReadCard(~);
+ri =ReadInt(~);
+rr =ReadReal(~);
+rs =ReadStr(~);
+s  =SET OF 
+si =SIZE(~);
+st =String;
+to =TO 
+t  =TRUE
+tc =TRUNC(~);
+th =THEN
+ts =TSIZE(~);
+ty =TYPE
+u  =UNTIL 
+v  =VAR 
+w  =WHILE ~ DO
+wh =WITH ~ DO
+wo =WORD;
+we =Write(~);
+wc =WriteCard(~,0);
+wi =WriteInt(~,0);
+wl =WriteLn;
+wr =WriteReal(~,,);
+ws =WriteString("~");