//
define global array $x 10;
define global array $y 10 2;
define global array $z 10 2 3;
define global array $a hash 10;
define array $b hash 100;
PROC main;
	$a['ABC`D'] = 100;
	print $a['ABC`D'];
	print $a['ABCD',0];
	print $a['ABCD',0,0];
	$x[5] = 200;
	print $x[5];
	print $x[5,0];
	print $x[5,0,0];
	$y[5] = 300;
	print $y[5];
	print $y[5,0];
	print $y[5,0,0];
	$z[5] = 400;
	print $z[5];
	print $z[5,0];
	print $z[5,0,0];
	print *a;
	RETURN $ERROR;
END PROC;
