Массив не определен ранее

Question

У меня следующий код QuickBasic 4.5:

IF LEN(Dir$("mtn.vga")) > 0 THEN
BLOAD "mtn.vga", VARPTR(mtn(1))

Я пытаюсь перенести его на FreeBasic, но получаю сообщение об ошибке:

Массив не определен до, '''

IF LEN (Dir ("mtn.vga"))> 0 THEN

       ^

Есть идеи?

Answer 1

Эта конкретная строка является совершенно корректным кодом FreeBASIC (он работает, даже если вы держите знак доллара после Dir ()).Я запустил этот тестовый код, чтобы убедиться, и он работает, как и следовало ожидать:

IF LEN(DIR("sa.bas")) > 0 THEN 'sa.bas is the name of this file
    PRINT "file exists"
END IF

Не могли бы вы добавить больший кусок кода (возможно, на pastebin и связать меня с ним)?Причина проблемы может быть где-то в вашем коде.