1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
# test numeric 2d array dim/redim/input/assogn
# 20100417 j.m.reneau
dim a(6)
a = {1,2,3,4,5,6}
label$ = "array 6 1d"
gosub displaya
label$ = "array input [5]"
print "input a[5]?";
input a[5]
gosub displaya
redim a(5,2)
label$ = "array redim 5,2"
gosub displaya
label$ = "array switch 0,0 0,1"
b = a[0,1]
a[0,1]=a[0,0]
a[0,0] = b
gosub displaya
label$ = "array input [3,1]"
print "input a[3,1]?"
input a[3,1]
gosub displaya
end
displaya:
print
print label$
for row = 0 to a[?,]-1
for col = 0 to a[,?]-1
print "a["+row+","+col+"]="+a[row,col] + " ";
next col
print
next row
return
|
