DEFINITION MODULE M2MM;
(* 24.8.90/bp Dies ist Puffer für M2LM , weil nur 32K pro Modul *)
(*$ LargeVars:=FALSE LongAlign:=FALSE *)

(*$ DEFINE Demo:=FALSE *)

CONST
(*$ IF Demo *)
  codeBuffLen=4000;
(*$ ELSE *)
  codeBuffLen=32000;
(*$ ENDIF *)


VAR
 codeBuff:RECORD
	CASE :INTEGER OF
	|0: card:ARRAY [0..codeBuffLen DIV 2-1] OF CARDINAL;
	|1: si:ARRAY[0..codeBuffLen-1] OF SHORTINT
	END;
      END;

END M2MM.
