Ошибка компиляции BAS-файла

COMMON SHARED Air$, LOG$
DECLARE FUNCTION TIMEINC$ (start$, l)
DECLARE FUNCTION CHECKFILE (object$)
CLS
IF VAL(LEFT$(TIME$, 2)) < 3 THEN END
'=============================================================================
root$ = LEFT$(CURDIR$(""), 3): Air$ = root$ + "Air\": CHDIR Air$ + "musicday"
IF DIR$("musicday.ds") <> "" THEN END
OPEN Air$ + "ini\musicday.ini" FOR INPUT AS #1
  DO UNTIL EOF(1)
  LINE INPUT #1, x$
  IF INSTR(x$, "dir =") > 0 THEN wdir$ = LTRIM$((MID$(x$, 6, LEN(x$) - 5)))
  IF INSTR(x$, "start =") > 0 THEN start$ = LTRIM$((MID$(x$, 8, LEN(x$) - 7)))
  LOOP: CLOSE #1
    IF wdir$ <> "" THEN
    wdir$ = wdir$ + LEFT$(DATE$, 2) + "\" + MID$(DATE$, 4, 2) + "\"
    ELSE
    END
    END IF
IF DIR$(wdir$) = "" THEN END
'-----------------------------------------------------------------------------
OPEN "musicday.ds" FOR OUTPUT AS #1: PRINT #1, TIMER + 5: CLOSE #1
pool$ = Air$ + "pool\": LOG$ = Air$ + "log\"
elements$ = Air$ + "musicday\elements\"
SHELL "cmd /C DIR /B /O:N " + wdir$ + "*.mp3 >pool.tmp"
SHELL "doswin pool.tmp pool.tmp"
'=============================================================================
'------------------------------------------------------- фильтр смонтированных
OPEN "pool.tmp" FOR INPUT AS #1: OPEN "pool.txt" FOR OUTPUT AS #2
  DO UNTIL EOF(1): LINE INPUT #1, x$
  y$ = "": OPEN LOG$ + "event.log" FOR INPUT AS #3
    DO UNTIL EOF(3): LINE INPUT #3, y$: IF INSTR(y$, x$) > 0 THEN EXIT DO
    LOOP: CLOSE #3: IF INSTR(y$, x$) = 0 THEN PRINT #2, x$
  LOOP: CLOSE #1: CLOSE #2
'----------------------------------------------------- отработка фиксированных
OPEN "pool.txt" FOR INPUT AS #1: OPEN "pool.tmp" FOR OUTPUT AS #2
OPEN "pool.xxx" FOR OUTPUT AS #3: score = 0
  DO UNTIL EOF(1): LINE INPUT #1, x$
    IF INSTR(x$, "@") > 0 THEN
    PRINT #3, x$
    ELSE
    PRINT #2, x$: score = score + 1
    END IF
  LOOP: CLOSE #1: CLOSE #2: CLOSE #3
'-----------------------------------------------------------------------------
truetime$ = LEFT$(TIME$, 2) + MID$(TIME$, 4, 2)
IF VAL(start$) <= VAL(truetime$) THEN start$ = TIMEINC$(truetime$, 600)
ll = 0: OPEN "pool.tmp" FOR INPUT AS #1
  DO UNTIL EOF(1): LINE INPUT #1, x$
  l = CHECKFILE(wdir$ + x$)
    IF l > 0 THEN
      IF ll = 0 THEN
        IF INSTR(x$, "(dead)") = 0 THEN
        liner$ = elements$ + "Цей день в iсторii музики.mp3"
        ELSE
        liner$ = elements$ + "Цей день (iнструментальний лайнер).mp3"
        END IF
      ELSE
      liner$ = elements$ + "Цей день в iсторii музики (лайнер).mp3"
      END IF
    OPEN "pool.txt" FOR OUTPUT AS #2: PRINT #2, liner$
    PRINT #2, wdir$ + x$: score = score - 1
      IF score = 0 AND INSTR(x$, "final") = 0 THEN
      PRINT #2, elements$ + "Цей день в iсторii музики (фiнал).mp3"
      ELSE
      END IF
    CLOSE #2
 
    OPEN "x.tmp" FOR OUTPUT AS #2: PRINT #2, x$: CLOSE #2
    SHELL "windos x.tmp x.tmp"
    OPEN "x.tmp" FOR INPUT AS #2: LINE INPUT #2, y$: CLOSE #2: KILL "x.tmp"
    bat$ = "move pool.txt " + CHR$(34) + pool$ + start$
 
    bat$ = bat$ + " " + MID$(y$, 2, LEN(y$) - 5) + ".m3u" + CHR$(34)
    OPEN "musicday.bat" FOR OUTPUT AS #2: PRINT #2, bat$: CLOSE #2
    SHELL "cmd /c musicday.bat": KILL "musicday.bat": ll = ll + l
    OPEN LOG$ + "event.log" FOR APPEND AS #2: PRINT #2, wdir$ + x$: CLOSE #2
    start$ = TIMEINC$(start$, l)
    ELSE
    END IF
  LOOP: CLOSE #1: KILL "pool.tmp"
'-----------------------------------------------------------------------------
OPEN "pool.xxx" FOR INPUT AS #1
  DO UNTIL EOF(1): LINE INPUT #1, x$
  l = CHECKFILE(wdir$ + x$)
    IF l > 0 THEN
    OPEN "pool.txt" FOR OUTPUT AS #2
    PRINT #2, elements$ + "Цей день (iнструментальний лайнер).mp3"
    PRINT #2, wdir$ + x$: CLOSE #2
      start$ = MID$(x$, INSTR(x$, "@") + 1, 4)
      IF VAL(start$) <= VAL(truetime$) THEN start$ = TIMEINC$(start$, 1800)
      bat$ = "move pool.txt " + CHR$(34) + start$
 
    OPEN "x.tmp" FOR OUTPUT AS #2: PRINT #2, x$: CLOSE #2
    SHELL "windos x.tmp x.tmp"
    OPEN "x.tmp" FOR INPUT AS #2: LINE INPUT #2, y$: CLOSE #2: KILL "x.tmp"
      bat$ = "move pool.txt " + CHR$(34) + pool$ + start$
 
      bat$ = bat$ + " " + MID$(y$, 6, LEN(y$) - 9) + ".m3u" + CHR$(34)
      OPEN "musicday.bat" FOR OUTPUT AS #2: PRINT #2, bat$: CLOSE #2
      SHELL "cmd /c musicday.bat": KILL "musicday.bat"
    OPEN LOG$ + "event.log" FOR APPEND AS #2: PRINT #2, wdir$ + x$: CLOSE #2
    ELSE
    END IF
  LOOP: CLOSE #1: KILL "pool.xxx"
'=============================================================================
IF DIR$("musicday.ds") <> "" THEN KILL "musicday.ds"
END
 
'=============================================================================
FUNCTION CHECKFILE (object$)
'-----------------------------------------------------------------------------
ww = FREEFILE
OPEN "musicday.ds" FOR OUTPUT AS #ww: PRINT #ww, TIMER + 20: CLOSE #ww
'-----------------------------------------------------------------------------
OPEN "x.tmp" FOR OUTPUT AS #ww: PRINT #ww, object$: CLOSE #ww
SHELL "windos x.tmp x.tmp"
OPEN "x.tmp" FOR INPUT AS #ww: LINE INPUT #ww, dosx$: CLOSE #ww: KILL "x.tmp"
'-----------------------------------------------------------------------------
IF DIR$("temp.mp3") <> "" THEN KILL "temp.mp3"
IF DIR$("temp.bat") <> "" THEN KILL "temp.bat"
OPEN "temp.bat" FOR OUTPUT AS #ww
PRINT #ww, "copy " + CHR$(34) + dosx$ + CHR$(34) + " temp.mp3"
CLOSE #ww: SHELL "cmd /c temp.bat": KILL "temp.bat"
'---------------------------------------------------- определение длительности
SHELL "cmd /c avinfo --raw temp.mp3 > i.tmp"
l = 0: OPEN "i.tmp" FOR INPUT AS #ww
  DO UNTIL EOF(ww): LINE INPUT #ww, ww$
  IF INSTR(ww$, "a1.l=") > 0 THEN l = VAL(MID$(ww$, 6, 6)): EXIT DO
  LOOP: CLOSE #ww: KILL "i.tmp"
'---------------------------------------------- исключение повторной обработки
OPEN LOG$ + "remount.log" FOR INPUT AS #ww
  DO UNTIL EOF(ww): LINE INPUT #ww, goodfile$
  IF object$ = goodfile$ THEN CLOSE #ww: GOTO Endcheck
  LOOP: CLOSE #ww
OPEN "musicday.ds" FOR OUTPUT AS #ww: PRINT #ww, TIMER + l: CLOSE #ww
'----------------------------------------------------------- пересемплирование
IF DIR$("new.mp3") <> "" THEN KILL "new.mp3"
SHELL "cmd /c lame -h --resample 44.1 temp.mp3 new.mp3"
IF DIR$("new.mp3") <> "" AND DIR$("temp.mp3") <> "" THEN KILL "temp.mp3"
SHELL "cmd /c mp3gain /r /c new.mp3"
  IF INSTR(object$, Air$) = 0 THEN
  SHELL "cmd /c mp3cut new.mp3 40"
  IF DIR$("new.old") <> "" THEN KILL "new.old"
  ELSE
  END IF
'------------------------------------------------------ уточнение длительности
SHELL "cmd /c avinfo --raw new.mp3 > i.tmp"
l = 0: OPEN "i.tmp" FOR INPUT AS #ww: DO UNTIL EOF(ww): LINE INPUT #ww, ww$
  IF INSTR(ww$, "a1.l=") > 0 THEN l = VAL(MID$(ww$, 6, 6)): EXIT DO
  LOOP: CLOSE #ww: KILL "i.tmp"
'-----------------------------------------------------------------------------
IF l > 0 THEN
  IF DIR$("temp.bat") <> "" THEN KILL "temp.bat"
  OPEN "temp.bat" FOR OUTPUT AS #ww
  PRINT #ww, "copy new.mp3 " + CHR$(34) + dosx$ + CHR$(34)
  CLOSE #ww: SHELL "cmd /c temp.bat": KILL "temp.bat"
  IF DIR$("new.mp3") <> "" THEN KILL "new.mp3"
  OPEN LOG$ + "remount.log" FOR APPEND AS #ww: PRINT #ww, object$: CLOSE #ww
ELSE
END IF
'-----------------------------------------------------------------------------
OPEN "musicday.ds" FOR OUTPUT AS #ww: PRINT #ww, TIMER + 5: CLOSE #ww
Endcheck:
CHECKFILE = l
'-----------------------------------------------------------------------------
END FUNCTION
 
'=============================================================================
FUNCTION TIMEINC$ (start$, l)
startsec = 3600 * VAL(LEFT$(start$, 2)) + 60 * VAL(MID$(start$, 3, 2)) + l
starth = INT(startsec / 3600): starth$ = LTRIM$(RTRIM$(STR$(starth)))
IF LEN(starth$) = 1 THEN starth$ = "0" + starth$
startm = INT((startsec - (starth * 3600)) / 60)
startm$ = LTRIM$(RTRIM$(STR$(startm)))
IF LEN(startm$) = 1 THEN startm$ = "0" + startm$
TIMEINC$ = LEFT$(starth$ + startm$, 4)
'-----------------------------------------------------------------------------
END FUNCTION