aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Create-a-two-dimensional-array-at-runtime/S-BASIC/create-a-two-dimensional-array-at-runtime.basic Normal file
View file

@ -0,0 +1,13 @@
var a, b = integer
print "Two-Dimensional Array Example"
input "Size of first dimension"; a
input "Size of second dimension"; b
dim integer test_array(a, b)
test_array(1,1) = 99 rem S-BASIC arrays are indexed from 1
print "Value stored at 1,1 ="; test_array(1,1)
end