DECLARE SUB jiemian ()
DECLARE SUB human ()
DECLARE SUB chuqi ()
DECLARE SUB bb ()
DECLARE SUB computer1 ()
DECLARE SUB cc ()
DECLARE SUB computer2 ()
DECLARE SUB mainhuman ()
DECLARE SUB judgedu ()
DECLARE SUB judgewin ()
DECLARE SUB winjiemian ()
DECLARE SUB computer ()


COMMON SHARED a(), b(), c()

COMMON SHARED x(), y(), bj(), z(), xz()
COMMON SHARED dh AS INTEGER, e AS INTEGER, f AS INTEGER, flag1 AS INTEGER, se AS INTEGER
COMMON SHARED flag AS INTEGER
star: CLS

     CALL jiemian
     DIM a(-300 TO 500), b(-300 TO 500), c(-300 TO 500), x(180), y(180)
     FOR i = 1 TO 180: a(i) = 1: NEXT i
     FOR i = 130 TO 295 STEP 15
       FOR j = 495 TO 635 STEP 10
         n = n + 1
         x(n) = j
         y(n) = i
       NEXT j
     NEXT i
     '*********ren001
     CALL mainhuman
     '*********computer001
     CALL computer1
     se = 14
     CALL chuqi
     CALL cc
     '*********ren002
     CALL mainhuman
     '**********computer002
     CALL computer2
     se = 14
     CALL chuqi
     CALL cc
     '************ren003
     CALL mainhuman
     '************computer003
     DIM bj(-180 TO 500), z(90), xz(90)
     FOR i = 1 TO 15: bj(i) = 1: NEXT i
     FOR i = 166 TO 180: bj(i) = 3: NEXT i
     FOR i = 0 TO 9: bj(16 + i * 5) = 4: bj(30 + i * 15) = 2: NEXT i
         flag = 0
         CALL judgedu
         se = 14
         IF flag = 0 THEN CALL computer
         CALL chuqi
         CALL cc
      '***********ren004
         CALL mainhuman
         '**************computer004
          flag = 0
          CALL judgedu
          se = 14
          IF flag = 0 THEN CALL computer
          CALL chuqi
          CALL cc
         '**************************************************
             WHILE flag1 = 0
                 CALL mainhuman
                 se = 14
                 CALL judgewin
                 flag = 0
                 CALL judgedu
                 
                 IF flag = 0 THEN CALL computer
                 CALL chuqi
                 CALL cc
              WEND
           END

50  DATA 1,2,15,16,17,30,31,32,1,31,32,16,0,-16,1,-15,16
DATA 1,2,15,16,17,30,31,32,2,30,32,16,0,-16,2,-14,16
DATA 1,2,15,16,17,30,31,32,2,16,31,1,2,1,1,-15,1
DATA 1,2,15,16,17,30,31,32,1,30,16,2,2,1,2,-14,2
DATA 1,2,15,16,17,30,31,32,16,30,31,32,0,-16,32,1,32
DATA 1,2,15,16,17,30,31,32,15,17,32,16,0,-16,17,1,16
DATA 1,2,15,16,17,30,31,32,16,17,30,15,0,-15,17,1,15
DATA 1,2,15,16,17,30,31,32,2,16,17,32,0,-16,2,-15,32
DATA 1,2,15,16,17,30,31,32,2,15,16,30,0,-15,2,-14,30
DATA 1,2,15,16,17,30,31,32,15,31,32,30,0,-15,32,1,30
DATA 1,2,15,16,17,30,31,32,1,17,32,2,2,1,2,-15,2
DATA -1,1,14,15,16,29,30,31,1,14,29,-1,1,1,-1,-15,-1
DATA -1,1,14,15,16,29,30,31,1,15,31,-1,1,1,-1,-16,-1
DATA -1,1,14,15,16,29,30,31,15,29,31,30,0,-15,31,1,30
DATA -1,1,14,15,16,29,30,31,14,16,30,15,0,-15,16,1,15
DATA -1,1,14,15,16,29,30,31,1,30,29,15,0,-15,1,-14,15
DATA -1,-2,13,14,15,28,29,30,13,14,30,15,0,-15,15,1,15
DATA -1,-2,13,14,15,28,29,30,15,13,28,14,0,-14,15,1,14
DATA -1,-2,13,14,15,28,29,30,14,29,30,28,0,-14,30,1,28
DATA -1,-2,13,14,15,28,29,30,15,29,28,30,0,-15,30,1,30
DATA -15,-14,-13,1,2,15,16,17,1,15,17,-15,-15,-15,-15,-16,-15
DATA -1,-16,-15,-14,1,14,15,16,1,14,16,15,-14,-14,-14,-15,-14
100  DATA 1,2,15,16,17,30,31,32,1,16,31,32,0,-16,1,-15

DATA 1,2,15,16,17,30,31,32,2,16,30,32,0,-16,2,-14
DATA 1,2,15,16,17,30,31,32,1,2,16,31,2,1,1,-15
DATA 1,2,15,16,17,30,31,32,1,2,16,30,2,1,2,-14
DATA 1,2,15,16,17,30,31,32,16,30,31,32,0,-16,32,1
DATA 1,2,15,16,17,30,31,32,15,16,17,32,0,-16,17,1
DATA 1,2,15,16,17,30,31,32,15,16,17,30,0,-15,17,1
DATA 1,2,15,16,17,30,31,32,2,16,17,32,0,-16,2,-15
DATA 1,2,15,16,17,30,31,32,1,2,15,30,0,-15,2,1
DATA 1,2,15,16,17,30,31,32,2,15,16,30,0,-15,2,-14
DATA 1,2,15,16,17,30,31,32,15,30,31,32,0,-15,32,1
DATA 1,2,15,16,17,30,31,32,15,16,30,32,0,-15,0,-16
DATA 1,2,15,16,17,30,31,32,1,2,17,32,2,1,2,-15
DATA 1,2,15,16,17,30,31,32,1,2,16,32,0,-16,2,1
DATA -1,1,14,15,16,29,30,31,-1,15,30,31,-1,-16,0,-15
DATA -1,1,14,15,16,29,30,31,-1,1,15,30,1,1,0,-15
DATA -1,1,14,15,16,29,30,31,-1,1,15,29,1,1,1,-14
DATA -1,1,14,15,16,29,30,31,-1,1,14,29,-1,-15,1,1
DATA -1,1,14,15,16,29,30,31,-1,1,16,31,1,1,1,-15
DATA -1,1,14,15,16,29,30,31,-1,1,15,31,-1,-16,1,1
DATA -1,1,14,15,16,29,30,31,15,29,30,31,0,-15,31,1
DATA -1,1,14,15,16,29,30,31,14,15,16,30,0,-15,16,1
DATA -1,1,14,15,16,29,30,31,1,15,30,29,1,-14,0,-15
DATA -2,-1,13,14,15,28,29,30,-2,14,28,30,-2,-16,0,-14
DATA -2,-1,13,14,15,28,29,30,-1,-2,14,29,0,1,-1,-15

DATA -2,-1,13,14,15,28,29,30,-1,-2,14,28,0,1,0,-14
DATA -2,-1,13,14,15,28,29,30,-2,15,30,14,0,-15,-2,-16
DATA -2,-1,13,14,15,28,29,30,-1,-2,13,28,0,1,-2,-15
DATA -2,-1,13,14,15,28,29,30,-2,13,28,14,-2,-15,0,-14
DATA -2,-1,13,14,15,28,29,30,-1,-2,15,30,0,1,0,-15
DATA -2,-1,13,14,15,28,29,30,-1,-2,14,30,0,1,-2,-16
DATA -2,-1,13,14,15,28,29,30,-1,14,28,29,0,-14,-1,-15
DATA -2,-1,13,14,15,28,29,30,13,14,15,30,0,-15,15,1
DATA -2,-1,13,14,15,28,29,30,13,14,15,28,0,-14,15,1
DATA -2,-1,13,14,15,28,29,30,14,28,29,30,0,-14,30,1
DATA -2,-1,13,14,15,28,29,30,14,15,28,30,0,-14,0,-15
DATA -2,-1,13,14,15,28,29,30,15,30,28,29,0,-15,30,1
DATA -15,-14,-13,1,2,15,16,17,-15,1,2,17,-15,-16,2,1
DATA -15,-14,-13,1,2,15,16,17,-15,1,2,15,-15,-15,2,1
DATA -15,-14,-13,1,2,15,16,17,-15,-14,-13,15,-15,-15,-13,1
DATA -15,-14,-13,1,2,15,16,17,-15,-13,1,15,-15,-15,-13,-14
DATA -15,-14,-13,1,2,15,16,17,-15,15,16,17,-15,-15,17,1
DATA -15,-14,-13,1,2,15,16,17,-15,1,15,17,-15,-15,-15,-16
DATA -15,-14,-13,1,2,15,16,17,-14,1,2,16,-14,-15,2,1
DATA -15,-14,-13,1,2,15,16,17,-13,1,2,17,2,1,-13,-15
DATA -15,-14,-13,1,2,15,16,17,-13,1,2,15,2,1,-13,-14
DATA -16,-15,-14,-1,1,14,15,16,-16,-15,15,16,-16,-16,-15,-15
DATA -16,-15,-14,-1,1,14,15,16,-16,-14,14,16,-16,-16,-14,-14
DATA -16,-15,-14,-1,1,14,15,16,-16,-15,-14,15,-15,-15,-14,1
DATA -16,-15,-14,-1,1,14,15,16,-16,-15,-14,14,-14,-14,-14,1
DATA -16,-15,-14,-1,1,14,15,16,-16,14,15,16,-16,-16,16,1
DATA -16,-15,-14,-1,1,14,15,16,-16,-1,1,16,-16,-16,1,1
DATA -16,-15,-14,-1,1,14,15,16,-16,-1,14,1,1,1,-16,-15
DATA -16,-15,-14,-1,1,14,15,16,-16,-14,1,16,-16,-16,-14,-15
DATA -16,-15,-14,-1,1,14,15,16,-16,-1,14,-14,-16,-15,-14,-14
DATA -16,-15,-14,-1,1,14,15,16,-16,-1,14,16,-16,-15,-16,-16
DATA -16,-15,-14,-1,1,14,15,16,-16,-15,-14,16,-16,-16,-14,1
DATA -16,-15,-14,-1,1,14,15,16,-15,14,15,16,-15,-15,16,1
DATA -16,-15,-14,-1,1,14,15,16,-15,-1,1,15,-15,-15,1,1
DATA -16,-15,-14,-1,1,14,15,16,-15,-14,14,15,-15,-15,-14,-14
DATA -16,-15,-14,-1,1,14,15,16 -1,-14,1,16,1,1,-14,-15
DATA -16,-15,-14,-1,1,14,15,16,-14,1,-1,14,1,1,-14,-14
DATA -16,-15,-14,-1,1,14,15,16,-14,14,15,16,-14,-14,16,1
DATA -16,-15,-14,-1,1,14,15,16,-14,1,16,14,-14,-14,-14,-15
DATA -17,-16,-15,-2,-1,13,14,15,-17,-2,-1,15,-17,-16,0,1
DATA -17,-16,-15,-2,-1,13,14,15,-17,-2,13,-1,-17,-15,0,1
DATA -17,-16,-15,-2,-1,13,14,15,-17,-1,15,-15,-17,-16,-15,-15
DATA -17,-16,-15,-2,-1,13,14,15,-17,-16,-15,15,-15,1,-15,-15
DATA -17,-16,-15,-2,-1,13,14,15,-2,-16,-1,14,-16,-15,0,1
DATA -17,-16,-15,-2,-1,13,14,15,-2,-1,-15,15,0,1,-15,-15
DATA -17,-16,-15,-2,-1,13,14,15,-2,-1,-15,13,0,1,-15,-16
DATA -17,-16,-15,-2,-1,13,14,15,-15,-1,13,15,-15,-15,-15,-16
DATA -17,-16,-15,-2,-1,13,14,15,-15,15,13,14,-15,-15,15,1
DATA -30,-28,-29,-15,-14,-13,1,2,-30,-28,-14,2,-30,-16,-28,-14

DATA -30,-28,-29,-15,-14,-13,1,2,-30,-29,-28,-14,-28,-14,-28,1
DATA -30,-28,-29,-15,-14,-13,1,2,-30,1,2,-14,2,1,-30,-16
DATA -30,-28,-29,-15,-14,-13,1,2,-30,-15,-14,-13,-13,1,-30,-15
DATA -30,-28,-29,-15,-14,-13,1,2,-30,-29,-28,-15,-30,-15,-28,1
DATA -30,-28,-29,-15,-14,-13,1,2,-30,-15,-14,-28,-30,-15,-28,-14
DATA -30,-28,-29,-15,-14,-13,1,2,-30,-15,1,2,-30,-15,2,1
DATA -30,-28,-29,-15,-14,-13,1,2,-30,-15,-14,2,-30,-15,-30,-16
DATA -30,-28,-29,-15,-14,-13,1,2,-29,-14,1,2,2,1,-29,-15
DATA -30,-28,-29,-15,-14,-13,1,2,-29,-14,1,-28,-28,-14,-29,-15
DATA -30,-28,-29,-15,-14,-13,1,2,-15,-14,-13,-28,-28,-14,-13,1
DATA -30,-28,-29,-15,-14,-13,1,2,1,2,-14,-28,-28,-14,2,1
DATA -30,-28,-29,-15,-14,-13,1,2,-28,-13,2,-14,-28,-14,-28,-15
DATA -30,-28,-29,-15,-14,-13,1,2,1,2,-13,-28,2,1,-28,-15
DATA -31,-30,-29,-16,-15,-14,-1,1,-31,-30,-15,1,-31,-16,-30,-15
DATA -31,-30,-29,-16,-15,-14,-1,1,-31,-30,-29,-15,-30,-15,-29,1
DATA -31,-30,-29,-16,-15,-14,-1,1,-31,-15,1,-1,1,1,-31,-16
DATA -31,-30,-29,-16,-15,-14,-1,1,-30,-15,-1,1,1,1,-30,-15
DATA -31,-30,-29,-16,-15,-14,-1,1,-30,-16,-15,-14,-30,-15,-14,1
DATA -31,-30,-29,-16,-15,-14,-1,1,-30,-29,-15,-1,-30,-15,-29,-16
DATA -31,-30,-29,-16,-15,-14,-1,1,-29,-15,-1,1,1,1,-29,-16
DATA -31,-30,-29,-16,-15,-14,-1,1,-29,-14,1,-1,1,1,-29,-15
DATA -32,-31,-30,-17,-16,-15,-2,-1,-32,-31,-16,-1,-32,-16,-31,-15
DATA -32,-31,-30,-17,-16,-15,-2,-1,-32,-30,-16,-2,-32,-16,-30,-14
DATA -32,-31,-30,-17,-16,-15,-2,-1,-32,-16,-2,-1,-32,-16,0,1
DATA -32,-31,-30,-17,-16,-15,-2,-1,-32,-17,-16,-15,-32,-16,-15,1
DATA -32,-31,-30,-17,-16,-15,-2,-1,-32,-16,-30,-15,-32,-16,-30,-15
DATA -32,-31,-30,-17,-16,-15,-2,-1,-32,-17,-2,-1,0,1,-32,-15
DATA -32,-31,-30,-17,-16,-15,-2,-1,-32,-17,-2,-16,-32,-15,-32,-16
DATA -32,-31,-30,-17,-16,-15,-2,-1,-32,-31,-30,-15,-30,-15,-30,1
DATA -32,-31,-30,-17,-16,-15,-2,-1,-32,-31,-30,-16,-32,-16,-30,1
DATA -32,-31,-30,-17,-16,-15,-2,-1,-31,-16,-2,-1,-31,-15,0,1
DATA -32,-31,-30,-17,-16,-15,-2,-1,-30,-15,-17,-16,-30,-15,-15,1
DATA -32,-31,-30,-17,-16,-15,-2,-1,-30,-16,-2,-1,0,1,-30,-14
DATA -32,-31,-30,-17,-16,-15,-2,-1,-30,-16,-15,-2,-30,-15,-30,-14
DATA -32,-31,-30,-17,-16,-15,-2,-1,-30,-15,-2,-1,0,1,-30,-15

SUB bb
e = e + 1
b(e) = dh
a(dh) = 2

END SUB

SUB cc
f = f + 1
c(f) = dh
a(dh) = 30

END SUB

SUB chuqi
     FOR i = 80 TO 300 STEP 20
     FOR j = 20 TO 440 STEP 30
         n = n + 1
         IF n = dh THEN
         LINE (j + 4, i + 4)-(j + 26, i + 16), se, BF
         CIRCLE (x(n), y(n)), 3, se
         PAINT (x(n), y(n)), se, se
         GOTO aa
         END IF
     NEXT j
     NEXT i

aa:   END SUB

SUB computer
DIM p(4)



FOR i = 1 TO f
p(1) = -16: p(2) = -15: p(3) = -14: p(4) = 1
   SELECT CASE c(i)
     CASE 1 TO 12, 16 TO 27, 31 TO 42
     p(1) = 0: p(2) = 0: p(3) = 0
     CASE 13 TO 15, 28 TO 30, 43 TO 45
     p(1) = 0: p(2) = 0: p(3) = 0: p(4) = 0
     CASE 46
     p(1) = 0: p(3) = 0
     CASE 47, 48, 169
     p(1) = 0
     CASE 58, 59
     p(3) = 0: p(4) = 0
     CASE 60
     p(1) = 0: p(3) = 0: p(4) = 0
     CASE 177
     p(3) = 0
   END SELECT
         FOR j = 61 TO 63
         FOR k = 0 TO 7
         IF c(i) = j + k * 15 THEN
         p(1) = 0
         ELSEIF c(i) = j + 12 + k * 15 THEN
         p(3) = 0: p(4) = 0
         END IF
         NEXT k
         NEXT j
     d = c(i)
    FOR j = 1 TO 4
      t = p(j): s = 0
      IF t = 0 THEN GOTO out2
          FOR k = 1 TO 3
           s = s + a(d + t * k)
          NEXT k

IF (s = 61 AND bj(d + t * 3) < 1 AND a(d + t * 4) = 30) OR (s = 61 AND t = 1 AND ((bj(d) = 1 AND d < 12) OR (bj(d) = 3 AND d < 177)) AND a(d + 4) = 30) OR (s = 61 AND t = -15 AND d > 60 AND a(d - 60) = 30) THEN

          FOR k = 1 TO 3
            IF a(d + t * k) = 1 THEN dh = d + t * k: GOTO end2
          NEXT k
   ELSEIF (s = 61 AND bj(d) < 1 AND a(d - t) = 1 AND bj(d + t * 3) < 1 AND a(d + t * 4) = 1) OR (s = 61 AND t = 1 AND ((d > 1 AND d < 12) OR (d > 166 AND d < 177)) AND a(d - 1) = 1 AND a(d + 4) = 1) OR (s = 61 AND t = -15 AND ((bj(d) = 4 AND d > 46) OR (bj(d) = 2 AND d > 60)) AND a(d + 15) = 1 AND a(d - 60) = 1) THEN

         
          FOR k = 1 TO 3
             IF a(d + t * k) = 1 THEN dh = d + t * k: GOTO end2
             r1 = r1 + 1
          NEXT k
   ELSEIF (s = 61 AND a(d + t * 3) = 1 AND bj(d) < 1 AND bj(d - t) < 1 AND a(d - t) = 1 AND a(d - 2 * t) = 1) OR (s = 61 AND t = 1 AND ((d > 2 AND d < 13) OR (d > 167 AND d < 178)) AND a(d + 3) = 1 AND a(d - 1) = 1 AND a(d - 2) = 1) OR (s = 61 AND t = -15 AND a(d - 45) = 1 AND d > 45 AND d < 151 AND a(d + 15) = 1 AND a(d + 30) = 1) THEN


   dh = d - t: GOTO end2
   END IF
out2:   NEXT j
       NEXT i
      
       DIM n(f, 109), m(f, 109, 4)
   
    FOR i = 1 TO f
    d = c(i): RESTORE 100
     FOR k = 1 TO 60


    flagt = 0: flagr = 0
       READ g1, g2, g3, g4, g5, g6, g7, g8
     
       READ h1, h2, h3, h4, t1, t, r1, r
        

      
         IF d + g1 > 180 OR d + g1 < 0 THEN GOTO jump1
         IF d + g2 > 180 OR d + g2 < 0 THEN GOTO jump1
         IF d + g3 > 180 OR d + g3 < 0 THEN GOTO jump1
         IF d + g4 > 180 OR d + g4 < 0 THEN GOTO jump1
         IF d + g5 > 180 OR d + g5 < 0 THEN GOTO jump1
         IF d + g6 > 180 OR d + g6 < 0 THEN GOTO jump1
         IF d + g7 > 180 OR d + g7 < 0 THEN GOTO jump1
         IF d + g8 > 180 OR d + g8 < 0 THEN GOTO jump1

IF d + h1 > 180 OR d + h1 < 0 THEN GOTO jump1
         IF d + h2 > 180 OR d + h2 < 0 THEN GOTO jump1
         IF d + h3 > 180 OR d + h3 < 0 THEN GOTO jump1
         IF d + h4 > 180 OR d + h4 < 0 THEN GOTO jump1
         IF t1 + t > 180 OR t1 + t < 0 THEN GOTO jump1
         IF t1 - t * 3 > 180 OR t1 - t * 3 < 0 THEN GOTO jump1
         IF t1 + 2 * t > 180 OR t1 + 2 * t < 0 THEN GOTO jump1
         IF t1 - t * 4 > 180 OR t1 - t * 4 < 0 THEN GOTO jump1
         IF r1 + r > 180 OR r1 + r < 0 THEN GOTO jump1
         IF r1 - r * 3 > 180 OR r1 - r * 3 < 0 THEN GOTO jump1
         IF r1 + 2 * r > 180 OR r1 + 2 * r < 0 THEN GOTO jump1
         IF r1 - r * 4 > 180 OR r1 - r * 4 < 0 THEN GOTO jump1



         IF bj(d) < 1 AND bj(d + g1) < 1 AND bj(d + g2) < 1 AND bj(d + g3) < 1 AND bj(d + g4) < 1 AND bj(d + g5) < 1 AND bj(d + g6) < 1 AND bj(d + g7) < 1 AND bj(d + g8) < 1 THEN

            IF a(d + h1) = 2 OR a(d + h2) = 2 OR a(d + h3) = 2 OR a(d + h4) = 2 THEN
            GOTO jump1
            END IF
               
               
                t1 = t1 + d: r1 = d + r1
                     IF a(t1 + t) = 1 AND a(t1 - t * 3) = 1 THEN
                          IF bj(t1 - t * 3) < 1 AND a(t1 - t * 4) = 1 THEN flagt = 1
                          IF bj(t1 + t) < 1 AND a(t1 + 2 * t) = 1 THEN flagt = 1
                      END IF

                     IF a(r1 + r) = 1 AND a(r1 - r * 3) = 1 THEN
                          IF bj(r1 - r * 3) < 1 AND a(r1 - r * 4) = 1 THEN flagr = 1
                          IF bj(r1 + r) < 1 AND a(r1 + 2 * r) = 1 THEN flagr = 1
                     END IF

IF flagt + flagr < 2 THEN GOTO jump1
                     IF a(d + h1) = 30 THEN n(i, j) = n(i, j) + 1 ELSE m(i, j, 1) = d + h1
                     IF a(d + h2) = 30 THEN n(i, j) = n(i, j) + 1 ELSE m(i, j, 2) = d + h2
                     IF a(d + h3) = 30 THEN n(i, j) = n(i, j) + 1 ELSE m(i, j, 3) = d + h3
                     IF a(d + h4) = 30 THEN n(i, j) = n(i, j) + 1 ELSE m(i, j, 4) = d + h4
                   
                   
             END IF
            
            
jump1: NEXT k
        NEXT i


        s = 0
        FOR i = 1 TO 90
        IF z(i) <> 0 THEN s = s + 1
        NEXT i
        IF s > 0 THEN
             FOR i = 1 TO 89
             FOR j = i + 1 TO 90
               IF xz(i) = xz(j) AND xz(i) <> 0 THEN dh = xz(i): GOTO end2
              NEXT j, i

             FOR q = 3 TO 0 STEP -1
             FOR i = 1 TO f
             FOR j = 1 TO 109

               IF n(i, j) = q THEN
                  FOR s = 1 TO 90
                   FOR k = 1 TO 4
                     IF m(i, j, k) <> 0 AND z(s) = m(i, j, k) THEN dh = z(s): GOTO end2
              
                    NEXT k, s
                    END IF
               NEXT j, i, q

               FOR i = 1 TO 90
               IF z(i) <> 0 THEN dh = z(i): GOTO end2
               NEXT i
             END IF

IF s = 0 THEN
               FOR q = 3 TO 0 STEP -1


             FOR i = 1 TO f
             FOR j = 1 TO 109

               IF n(i, j) = q THEN
                 
                   FOR k = 1 TO 4
                     IF m(i, j, k) <> 0 THEN dh = m(i, j, k): GOTO end2
                    NEXT k
               END IF
            NEXT j, i, q
          END IF
       DIM sj(25)
       s = c(f) - 32
       FOR i = 0 TO 4
       FOR j = 0 TO 4
       n = n + 1
       sj(n) = s + i + j * 15
       NEXT j, i
       j = INT(RND * 25) + 1
       WHILE a(sj(j)) <> 1
       j = INT(RND * 25) + 1
       WEND
       dh = sj(j)