Sorry your browser is not supported!

1   2   3   4
5   6   7   8
9   10  11  12
13  14  15  16

1   2   3
5   6   7
9   10  11

4   1   2
8   5   6
12  9   10

               |----------|
1   2   3   4  |1   2    3|  4
5   6   7   8  |5   6    7|  8
9   10  11  12 |9   10  11|  12
               |----------|   
13  14  15  16  13  14  15  16
1   2   3   4   1   2   3   4
5   6   7   8   5   6   7   8
9   10  11  12  9   10  11  12
13  14  15  16  13  14  15  16

11  12  9   10  11  12  9   10
15  16  13  14  15  16  13  14
3   4   1   2   3   4   1   2
7   8   5   6   7   8   5   6
11  12  9   10  11  12  9   10
15  16  13  14  15  16  13  14
3   4   1   2   3   4   1   2
7   8   5   6   7   8   5   6

z = 0
for x = 3 to 6
   for y = 3 to 6
      if B(x,y) = A(5) and z = 0
         j = x : k = y : z = 1
      endif
   next y
next x
A(4) = B(j-1,k)
A(7) = B(j-1,k-1)
A(8) = B(j,k-1)
A(9) = B(j+1,k-1)
A(6) = B(j+1,k)
A(3) = B(j+1,k+1)
A(2) = B(j,k+1)
A(1) = B(j-1,k+1)

` Create a 4x4 array
dim a(3,3) as integer

` Fill with some numbers
for i = 0 to array count( a() )
    a(i) = i
next

do
    input "Enter x offset: ", xo
    input "Enter y offset: ", yo
    
    cls
    
    ` Want to pick out a 3x3 segment of the matrix - that's what the loops do
    for y = 0 to 2
        for x = 0 to 2
            ` Calculate the position of the value wanted, using the offsets given earlier,
            ` but keeping them within the array
            xm = (x + xo) mod 4
            ym = (y + yo) mod 4
            
            ` Get the value & display it
            print padleft$( str$( a(xm, ym) ), 3);
        next
        print ""
    next
    print
loop

global xsize as integer
global ysize as integer
xsize=4
ysize=4
dim mymatrix(xsize-1,ysize-1) as float
dim tempmatrix(xsize-1) as float

counter=0
for y=0 to xsize-1
	for x=0 to ysize-1
		mymatrix(x,y)=counter
		counter=counter+1
	next x
next y
do

	cls
	printTheArray()
	sync
	wait key
	for y=0 to ysize-1
		for x=0 to xsize-1
			tempmatrix(x)=mymatrix(x,y)
		next x
		for x=0 to xsize-1
			mymatrix(x,y)=tempmatrix(custom_wrap(x-1))
		next x
	next y
loop

function custom_wrap(x as integer)
	x=x mod xsize
	if x<0 then x=x+xsize
endfunction x

function printTheArray()
	xpos=10
	ypos=10
	for y=0 to ysize-1
		xpos=10
		for x=0 to xsize-1
			text xpos,ypos,str$(mymatrix(x,y))
			inc xpos, 30
		next x
		inc ypos, 30
	next y
endfunction

dim nArray(8,8)
for y=1 to 8
    for x=1 to 8
        read nArray(x,y)
    next x
next y

xPos=1
yPos=1
do
    cls
    for y=1 to 4
        for x=1 to 4
            if nArray(x,y)<10 then print " ";            
            print nArray(x,y);"  ";
        next x
        print ""               
    next y
    print ""
    print ""
    for y=yPos to yPos+2
        for x=xPos to xPos+2
            if nArray(x,y)<10 then print " ";
            print nArray(x,y);"  ";
        next x
        print ""
    next y
    
    print ""
    print "x offset is ";xPos
    print "y offset is ";yPos
    wait 100
    if leftkey()
        dec xPos
        if xPos=0 then xPos=4
    endif
    if rightkey()
        inc xPos
        if xPos=5 then xPos=1
    endif
    if upkey()
        dec yPos
        if yPos=0 then yPos=4
    endif
    if downkey()
        inc yPos
        if yPos=5 then yPos=1
    endif            
loop
data 1,2,3,4,1,2,3,4
data 5,6,7,8,5,6,7,8
data 9,10,11,12,9,10,11,12
data 13,14,15,16,13,14,15,16
data 1,2,3,4,1,2,3,4
data 5,6,7,8,5,6,7,8
data 9,10,11,12,9,10,11,12
data 13,14,15,16,13,14,15,16