Advertisement
russotragik

[BasiEgaXorz] Sub array working

Oct 10th, 2018
1,088
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     arrays
  2.  
  3. declare sub arrays()
  4.  dim tilesize(7, 2) as integer
  5.  a = 0
  6.  for x = 0 to 7
  7.     for y = 0 to 1
  8.         tilesize(x, y) = a
  9.         a++
  10.     next y
  11.  next x
  12.  
  13.   for x = 0 to 7
  14.     for y = 0 to 1
  15.         print tilesize(x, y),
  16.     next y
  17.  next x
  18.  exit sub
  19. end sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement