RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Run-BASIC/create-a-two-dimensional-array-at-runtime.run
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

9 lines
256 B
Text

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)