Определить, имеются ли свободные места в первом ряду

FOR X = 1 TO 40
  N = N + A(1, X)
NEXT X
PRINT "Число свободных мест в 1 ряду: "; 40 - N

DIM A(1 TO 23, 1 TO 40)
CLS
LOCATE 1, 11: PRINT CHR$(201);
LOCATE 1, 52: PRINT CHR$(187);
LOCATE 25, 11: PRINT CHR$(200);
LOCATE 25, 52: PRINT CHR$(188);
FOR X = 12 TO 51
  LOCATE 1, X: PRINT CHR$(205);
  LOCATE 25, X: PRINT CHR$(205);
NEXT X
FOR Y = 2 TO 24
  LOCATE Y, 54: PRINT USING "##"; Y - 1;
  LOCATE Y, 11: PRINT CHR$(186);
  LOCATE Y, 52: PRINT CHR$(186);
  LOCATE Y, 56: PRINT 40;
NEXT Y
LOCATE 1, 1: PRINT "Место:  1";
LOCATE 2, 3: PRINT "Ряд:  1";
LOCATE 1, 54: PRINT "Свободно";
LOCATE 2, 65: PRINT "Продано билетов";
LOCATE 3, 72: PRINT 0;
LOCATE 5, 66: PRINT "Свободно мест";
LOCATE 6, 70: PRINT 920;
LOCATE 1, 64: PRINT CHR$(218);
LOCATE 1, 80: PRINT CHR$(191);
LOCATE 7, 64: PRINT CHR$(192);
LOCATE 7, 80: PRINT CHR$(217);
FOR X = 65 TO 79
  LOCATE 1, X: PRINT CHR$(196);
  LOCATE 7, X: PRINT CHR$(196);
NEXT X
FOR Y = 2 TO 6
  LOCATE Y, 64: PRINT CHR$(179);
  LOCATE Y, 80: PRINT CHR$(179);
NEXT Y
LOCATE 15, 61: PRINT "Управление курсором";
LOCATE 16, 63: PRINT "[<] [^] [v] [>]";
LOCATE 18, 62: PRINT "Занять/Освободить";
LOCATE 19, 67: PRINT "[Space]";
LOCATE 21, 68: PRINT "Выход";
LOCATE 22, 68: PRINT "[Esc]";
LOCATE 14, 60: PRINT CHR$(218);
LOCATE 14, 80: PRINT CHR$(191);
LOCATE 23, 60: PRINT CHR$(192);
LOCATE 23, 80: PRINT CHR$(217);
FOR X = 61 TO 79
  LOCATE 14, X: PRINT CHR$(196);
  LOCATE 23, X: PRINT CHR$(196);
NEXT X
FOR Y = 15 TO 22
  LOCATE Y, 60: PRINT CHR$(179);
  LOCATE Y, 80: PRINT CHR$(179);
NEXT Y
X = 1: Y = 1
DO UNTIL 0
  K$ = INKEY$
  LOCATE Y + 1, X + 11, 1, 0, 31
  IF LEN(K$) > 0 THEN
    SELECT CASE ASC(RIGHT$(K$, 1))
    CASE IS = 27
      EXIT DO
    CASE IS = 32
      LOCATE Y + 1, X + 11
      IF A(Y, X) THEN
        A(Y, X) = 0
        PRINT " ";
      ELSE
        A(Y, X) = 1
        PRINT CHR$(177);
      END IF
      M = 0
      FOR J = 1 TO 23
        N = 0
        FOR I = 1 TO 40
          N = N + A(J, I)
        NEXT I
        M = M + N
        LOCATE J + 1, 57: PRINT USING "##"; 40 - N;
      NEXT J
        LOCATE 3, 71: PRINT USING "###"; M;
        LOCATE 6, 71: PRINT USING "###"; 920 - M;
    CASE IS = 72
      Y = Y - 1
      IF Y < 1 THEN Y = 1
    CASE IS = 75
      X = X - 1
      IF X < 1 THEN X = 1
    CASE IS = 77
      X = X + 1
      IF X > 40 THEN X = 40
    CASE IS = 80
      Y = Y + 1
      IF Y > 23 THEN Y = 23
    END SELECT
    LOCATE 1, 8: PRINT USING "##"; X;
    LOCATE 2, 8: PRINT USING "##"; Y;
  END IF
LOOP
CLS