11 lines
402 B
Text
11 lines
402 B
Text
10 print chr$(147);chr$(14);
|
|
15 print "Size of array:"
|
|
20 print "Columns (1-20)";:input x%
|
|
25 if x%<1 or x%>20 then print "Try again.":goto 20
|
|
30 print "Rows (1-20)";:input y%
|
|
35 if y%<1 or y%>20 then print "Try again.":goto 30
|
|
40 x%=x%-1:y%=y%-1:dim a$(x%,y%)
|
|
50 nx=int(rnd(1)*x%):ny=int(rnd(1)*y%)
|
|
60 a$(nx,ny)="X"
|
|
70 print "Element";nx;",";ny;"= '";a$(nx,ny);"'"
|
|
80 clr:rem clear variables from ram
|