RosettaCodeData/Task/Create-a-two-dimensional-ar.../Run-BASIC/create-a-two-dimensional-ar...

10 lines
256 B
Plaintext

print "Enter array 1 greater than 0"; : input a1
print "Enter array 2 greater than 0"; : input a2
dim chrArray$(max(a1,1),max(a2,1))
dim numArray(max(a1,1),max(a2,1))
chrArray$(1,1) = "Hello"
numArray(1,1) = 987.2
print chrArray$(1,1);" ";numArray(1,1)