Sets.Mod ported, works for 64 bit too

This commit is contained in:
Norayr Chilingarian 2014-01-24 18:24:26 +04:00
parent b600d11d01
commit 6cd74433a2

View file

@ -1,9 +1,9 @@
MODULE Sets;
IMPORT Texts;
CONST size* = 32;
IMPORT Texts := CmdlnTexts;
CONST (*size* = 32;*)
size* = MAX(SET) + 1;
PROCEDURE Clear*(VAR s: ARRAY OF SET);
VAR i: INTEGER;
@ -134,4 +134,4 @@ BEGIN
Texts.Write(f, "}")
END Print;
END Sets.