Определить наличие заданного слова в массивах - QBasic

Формулировка задачи:

Составить на языке QBASIC программу, позволяющую создать одномерные массивы и проводить с ними необходимые операции. Размеры массивов вводятся с клавиатуры. Данные в массивы вводятся произвольным способом. Вид вводимой в массив информации символьный. Занести произвольные данные в два одномерных массива A$(n) и B$(n), и определить наличие заданного слова в массивах. Если такого числа нет, то вывести соответствующее сообщение.

Решение задачи: «Определить наличие заданного слова в массивах»

textual
                            Листинг программы 
                        

                            CLS
 INPUT "Vvedite iskomoe slovo: ", slov$
 INPUT "Kol-vo el-tov v massive A : ", Adm
 INPUT "Kol-vo el-tov v massive B : ", Bdm
 PRINT STRING$(80, 205)
   DIM A$(Adm), B$(Bdm)
 Te = 1
Again: CLS : Izm = 0
 PRINT "Tekushij element : "; Te
   IF Se = 0 THEN COLOR 15, 1 ELSE COLOR 7, 0
 PRINT "[1]   - Rabota s massivom A"
   IF Se = 1 THEN COLOR 15, 1 ELSE COLOR 7, 0
 PRINT "[2]   - Rabota s massivom B": COLOR 7, 0
 PRINT "[+/-] - Izmenit nomer elementa"
 PRINT "[ ENTER ] - Vvod elementa"
 PRINT "[ SPICE ] - Poisk slova " + slov$ + " v massivah"
 PRINT "[ ESC ]   - Vihod"
DO: Kb$ = INKEY$
  IF Kb$ = "1" THEN Se = 0: Izm = 1: IF Te > Adm THEN Te = Adm
  IF Kb$ = "2" THEN Se = 1: Izm = 1: IF Te > Bdm THEN Te = Bdm
  IF Se = 0 THEN
    IF Kb$ = "+" AND Te < Adm THEN Te = Te + 1: Izm = 1
    IF Kb$ = "-" AND Te > 1 THEN Te = Te - 1: Izm = 1
  ELSE
    IF Kb$ = "+" AND Te < Bdm THEN Te = Te + 1: Izm = 1
    IF Kb$ = "-" AND Te > 1 THEN Te = Te - 1: Izm = 1
  END IF
  IF Kb$ = CHR$(13) THEN
    PRINT
    PRINT "Vvedite element N" + CHR$(248); Te; "massiva";
    IF Se = 0 THEN PRINT " A: "; : INPUT "", A$(Te) ELSE PRINT "", " B: "; : INPUT B$(Te)
    Izm = 1
  ELSEIF Kb$ = " " THEN
    FOR i = 1 TO Adm
       IF A$(i) = slov$ THEN F1 = 1
    NEXT
    FOR i = 1 TO Bdm
       IF B$(i) = slov$ THEN F2 = 1
    NEXT
    CLS
      IF F1 OR F2 THEN
        IF F1 THEN PRINT "Naideno v A !"
        IF F2 THEN PRINT "Naideno v B !"
      ELSE
        PRINT "Sovpadenij ne naideno !"
      END IF
      PRINT "Prodoljenie - lubaja knopka..."
     WHILE INKEY$ = "": WEND
     Izm = 1
 
  END IF
  IF Izm = 1 GOTO Again
LOOP UNTIL Kb$ = CHR$(27)
                        