10 PRINT "1ST DIMENSION: ";
 20 INPUT D1
 30 PRINT D1
 40 PRINT "2ND DIMENSION: ";
 50 INPUT D2
 60 PRINT D2
 70 DIM A(D1,D1)
 80 PRINT "ARRAY CREATED"
 90 LET X=1+INT (D1*RND)
100 LET Y=1+INT (D2*RND)
110 LET A(X,Y)=37
120 PRINT "ITEM ";X;", ";Y;" = ";A(X,Y)
130 CLEAR
140 PRINT "ARRAY DESTROYED"