RosettaCodeData/Task/Arrays/OxygenBasic/arrays.oxy

18 lines
200 B
Plaintext

'CREATING AN ARRAY
float f[100]
'SETTING INDEX BASE
indexbase 1 'default
'FILLING PART OF AN ARRAY
f[20]<=1,2,3,4,5,1.25
'MAPPING AN ARRAY TO ANOTHER
float *g
@g=@f[20]
print g[6] 'result 1.25