Retro68/Rez/Test.r

/*#include "Types.r"


*/

//#include "/home/wolfgang/Projects/Retro68/CExamples/Sample.r"

type 'TEST' {
	integer zero, one, two, answer = 42, missed;
	longint;
	//integer = (after - before) / 32;
	integer = $$CountOf(foo);
	before:
	array foo {
		integer = $$ArrayIndex(foo);
		integer;
		integer;
	};
	after:
	;
};

resource 'TEST' (128) {
	answer,
	0x1234,
	{ 1, 2; 3, 4; }
};