RosettaCodeData/Task/Pointers-and-references/ALGOL-68/pointers-and-references-10.alg

[9,9]INT sudoku;
REF [,]INT middle;
middle := sudoku[4:6,4:6];