15 lines
299 B
Plaintext
15 lines
299 B
Plaintext
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"
|