Старый Новый Бейсик

Вашему вниманию предлагается одна из модификаций программы Бейсик-Микрон с рядом доработок:

Код:

; Данный вариант Бейсика имеет: ; 1. Сокращённую служебную область ; 1.1. 2E00-2EFF - служебные ячейки ; 2. Дополнительные операторы ; 3.1. AUTO$($) - токенизация математического выражения ; 2.2. DEF PEEK|POKE|USR=n - предопределение страниц памяти ; 2.3. DEF#f $ [FOR INPUT] - открытие файла ; 2.4. LIST#f - печать листинга в файл ; 2.5. MERGE /$/ - подгрузка листинга ; 2.6. ON STOP GOTO N - назначения обработчика ошибок ; 2.7. POKE addr,#f,count - запись в память из файла ; 2.8. POKE addr,$ - запись в память строки ; 2.9. PRINT#f - печать в файл ; 2.10. RESTORE#f seek - позиционирование файла ; 3. Дополнительные функции ; 3.1. FRE(f) - остаток байтов в читаемом файле ; 3.2. IF(?, true, false) - тернарное условие ; 3.3. IF$(?, true$, false$) - строковой вариант ; 3.4. INPUT$(n) - ввод пароля с клавиатуры ; 3.6. LEN(f) - длина файла ; 3.7. LINE - номер строки с ошибкой ; 3.9. NEXT($sub, $string [,start]) - поиск вхождения подстроки ; 3.10. ON(n, o1, o2, o3) - селектор множества ; 3.11. ON$(n, $1, $2; $?) - селектор множества ; 3.12. POS(f) - позиция в файле ; 3.13. READ(f) - чтение вещественного из файла или памяти ; 3.14. READ$(f) - чтение строки из файла или памяти ; 3.15. READ$($) - чтение директории файлов ; 3.16. STOP - код ошибки ; 3.17. VAL($) - вычисление токенизированного математического выражения ; 4. Метки и пользовательские операторы ; 4.1. @LABEL - Указание метки ; 4.2. GOTO @LABEL - Переход на метку ; 4.3. GOSUB @LABEL - Вызов подпрограммы по метке ; 4.4. ON N GOTO|GOSUB @LABEL1,@LABEL2,@LABEL3 - Селектор по меткам ; 4.5. _@USER 1,"/2/",3 - Оператор пользователя с тремя аргументами ; 4.6. PRINT ?,?,? - Чтение аргументов оператора пользователя

Бейсик работает только в каталоге /BASIC/ SD-Card и запускается из оболочки SD-BIOS.
После запуска загружается листинг /BASIC/AUTOLOAD.TXT автоматически с демонстрацией работы с файловой системой и метками.
Все листинги загружаются как обычные текстовые файлы директивой MERGE, что позволяет их предварительно разрабатывать в любом редакторе, типа Блокнота.

P.S.: Данный вариант является адаптацией под Северную Пальмиру и находится в стадии активной разработки.