define array $a 100 1201;
define array $x 10;
proc main;
	$x[0] = 2;
	$x[1] = 3;
	$a[2,3] = 'A';
	fputline(STDOUT,$a[$x[0],$x[1]]);
	$a[$x[0],$x[1]] = 'X';
	fputline(STDOUT,$a[$x[0],$x[1]]);
	$c = $a[$x[0],$x[1]];
	fputline(STDOUT,$c);
	return $ERROR;
end proc;
