Level2Move: REM-------------------------------------------------------
GOSUB Corner
IF ncorner > 0 THEN RETURN
GOSUB Level1Move
RETURN

Corner:
ncorner = 0
FOR i = 1 TO 8 STEP 7
    FOR j = 1 TO 8 STEP 7
        IF d(i, j) > 0 THEN ncorner = ncorner + 1: e(ncorner, 1) = i: e(ncorner, 2) = j
    NEXT j
NEXT i
max = 0
FOR i = 1 TO 8 STEP 7
    FOR j = 1 TO 8 STEP 7
        IF d(i, j) > max THEN max = d(i, j)
    NEXT j
NEXT i
nmax = 0
FOR i = 1 TO 8 STEP 7
    FOR j = 1 TO 8 STEP 7
        IF d(i, j) = max THEN nmax = nmax + 1: f(nmax, 1) = i: f(nmax, 2) = j
    NEXT j
NEXT i
tr = INT(RND * nmax) + 1
x = f(tr, 1)
y = f(tr, 2)
REM---------------------------------------------------------------------------
RETURN