ARA2D
 NEW X,Y,A,I,J
REARA
 WRITE !,"Please enter two positive integers"
 READ:10 !,"First: ",X
 READ:10 !,"Second: ",Y
 GOTO:(X\1'=X)!(X<0)!(Y\1'=Y)!(Y<0) REARA
 FOR I=1:1:X FOR J=1:1:Y SET A(I,J)=I+J
 WRITE !,"The corner of X and Y is ",A(X,Y)
 KILL X,Y,A,I,J
 QUIT