(*Copyright (C) 2017, 2018, 2019 Karl Landstrom <karl@miasap.se>

This file is part of OBNC.

OBNC is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

OBNC is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with OBNC.  If not, see <http://www.gnu.org/licenses/>.*)

MODULE T1ConstantDeclarations;

	CONST
		null = NIL;
		valid = FALSE;
		singleCharStr = "x";
		lineFeed = 0AX;
		quotes = 22X;
		backslash = "\";
		nonAscii = 80X;
		letterA = CHR(ORD("A"));
		sevenDigits = "1234567";
		count = 37;
		pi = 3.14;
		(*inf = 1.0E+1000;*)
		(*nan = 0.0 / 0.0;*)
		lastDigits = {0, 2 .. 3, 5};

	VAR
		p: PROCEDURE;
		b: BOOLEAN;
		ch: CHAR;
		s: ARRAY 8 OF CHAR;
		i: INTEGER;
		x: REAL;
		j: BYTE;
		A: SET;

BEGIN
	p := null;
	b := valid;
	ch := singleCharStr;
	ch := lineFeed;
	ch := quotes;
	ch := backslash;
	ch := nonAscii;
	ch := letterA;
	s := singleCharStr;
	s := lineFeed;
	s := quotes;
	s := backslash;
	s := sevenDigits;
	i := count;
	j := count;
	x := pi;
	(*x := inf;*)
	(*x := nan;*)
	A := lastDigits
END T1ConstantDeclarations.
