//
//define array a 2.4..10.0f '3'..'12' 1..1;
//define array a 2.4..10.0 10 1..1;
//define array a 4 3 2;
//define array a -1..2 -2..0 -3..-2;
define mappedarray $ma 1 1..3 2..3;
define array a -1..2 -2..0;
define mappedarray %mb 1 4;
define mappedarray %mc;
define mappedarray md = 11,21,31,41;
proc main;
	option 15 2;
	print a ma;
//	a[2,-3,1] = 10;
//	a[2,0,1] = 10;
//	a[0,0] = 10;
//	print a[0];
	for (i=0;i<4;i++);
		for (j=0;j<3;j++);
			putline('i=',i,' j=',j,' index=',indexa(a,i-1,j-2));
//			for (k=0;k<2;k++);
//				putline('i=',i,' j=',j,' k=',k,' index=',indexa(a,i-1,j-2,k-3));
//			next;
		next;
	next;
	ma[3,3] = 100;
	print ma[3,3];
	print %mb *%mb;
	for each x in %mb;
		print *x;
	next;
	print %mc *%mc;
	print md *md;
	return ERROR;
end proc;
