пересматривал архив диска, и попалось
ВОТ КАК МОГ выглядеть бейсик для корвета если бы не НИИСЧЁТМАШ
это бейсик, написаный кооперативом ФОРТ-ИНФО из Питера.
(кроме бейсика еще есть паскаль)
"БEЙCИK 2.1, (C) ФОРТ-ИНФО 1989"
написан на форте(если кто решит посмотреть внутрь - ожидает МНОГО СТРАННОГО с непревычки
написан для ПК8010, для загрузки с кассеты
поддержки диска нет
есть только описание комплекта
в описании были исходники (ой как жалко)
собственно по теме
там ЭКРАННЫЙ РЕДАКТОР, нормально работающий
в нижней строке состояние RUS/LAT SHIFT/shift INS/OVR
значение fkeys (как на ямахе, при нажатии на shift показывает что есть)
есть оператор key, (key list, key 1,"CLS")
останов программы CTRL+STOP а не просто стоп
в списке операторов есть PLAY,DRAW
раза в 1.5-3 тормознее стандартного.
сохраняет/читает только с кассеты.
мечта детства
нарисовал circle (200,100),50
поднял курсор вверх, изменил радиус - красота
собственно диск с ним в аттаче
на диске с ним нашлась такая дока, и всё.
Скрытый текст
список операторов/функций из кодаКод:"Форт-инфо" Бейсик ОГЛАВЛЕНИЕ ДИСКЕТЫ ---------------------------------------------------- GUIDE .TXT - оглавление и инструкция BASIC .BLO - система Бейсик (1 экземпляр) BASCOPY .BLO - система Бейсик (2 экземпляр) Тестовый пример (1 и 2 экземпляры) PRIMER .BAS PRIMCOPY.BAS Исходные тексты на языке Форт ROOT .FRT - последовательность файлов *.F ARIPHMC .F CONTEXT .F CONTRL1 .F CONTRL2 .F CONTROLC.F DASYS .F DASYSC .F DATA .F EMIT .F FILE .F FT .F FT1 .F FUNC .F GRAF .F GRMUOP .F INIT .F INPUT .F INPUTC .F INT50 .F LEMIT .F MAG .F MUSIC .F PCODE .F PCODEC .F PROG1 .F PROG1C .F PROG2 .F PROG2C .F STM .F STMC .F SYNTAX .F SYNTAXC .F VRAM .F Документация BASIC1.TXT BASIC2.TXT BASIC3.TXT BASIC4.TXT BASIC5.TXT Системные программы POWER.COM BLOAD.COM SYSFORM.COM WT.COM -------------------------------------------------- Сформ.:29.04.89. Испр.:_____________ Экз.N Инструкция по формированию КМЛ Последовательность файлов на КМЛ должна быть следующей: 1) BASIC 2) BASIC 3) PRIMER 4) PRIMER Запись файлов на КМЛ выполняется программой WT: WT BASIC.BLO basic B WT PRIMER.BAS primer T Программа BLOAD выполняет загрузку Бейсика с диска: BLOAD BASIC.BLO
правда system например говорит ошибка.Код:END, FOR, NEXT, DATA, INPUT, DIM, READ, LET, GOTO, RUN, IF, RESTORE, GOSUB, RETURN, REM, STOP, PRINT, CLEAR, LIST, NEW, ON, WAIT, DEFDBL, POKE, CONT, CSAVE, CLOAD, OUT, LPRINT, LLIST, CLS, WIDTH, ELSE, TRON, TROFF, SWAP, ERASE, ERROR, RESUME, DELETE, AUTO, RENUM, DEFSTR, DEFINT, DEFSNG, DEF, LINE, LOAD, MERGE, SAVE, BEEP, KEY, LOCATE, ', BLOAD, BSAVE, PSET, PRESET, PAINT, PCLS, CIRCLE, COLOR, DRAW, PLAY, MAXFILES, INTERVAL, OPEN, CLOSE, CALL, _, VPOKE, MOTOR, TO, THEN, TAB(, STEP, USR, FN, SPC(, USING, OFF, APPEND, PUT, SYSTEM, +, -, NOT, >=, <=, <>, >, =, <, ^, /, *, AND, OR, XOR, EQV, IMP, MOD, LEFT$, RIGHT$, MID$, SGN, INT, ABS, SQR, RND, SIN, LOG, EXP, COS, TAN, ATN, FRE, INP, POS, LEN, STR$, VAL, ASC, CHR$, PEEK, SPACE$, OCT$, HEX$, LPOS, BIN$, CINT, CSNG, CDBL, FIX, ERL, ERR, STRING$, INSTR, VARPTR, CSRLIN, INKEY$, CVI, CVS, CVD, POINT, EOF, MKI$, MKS$, MKD$, VPEEK,
жалко доки нет.
[свернуть]
для бонуса, на диске Паскаль от них-же
опять же, только для РМУ.Код:Инфо-ПACKAЛЬ для ПЭВМ Орбита версия 1.1 Автор В.И.Вичирко (C) НТК Форт-Инфо 1989
без дисковода
зато с доками
но тоже без дем.
он у меня давно был, но в бинарном виде, и я его как-то не запускал до этого
а тут попался этот бейсик, поковырял bload.com и сделал его в формате .blo
стало его можно запускать.
bload pascal.blo
Скрытый текст
Код:Система Инфо-Паскаль предназначена для отладки и испол- нения в режиме диалога программ на языке Паскаль-Инфо Версия 1.1 функционирует на ПЭВМ ПК 8015 "Орбита" с бы- товым кассетным магнитофоном в качестве накопителя на маг- нитной ленте. По своим возможностям система Инфо-Паскаль приближена к широко распространенной версии языка Турбо-Паскаль 3.0. Во всех случаях, где возможно, соблюдается совместимость с Турбо-Паскалем. Исключение - набор процедур компьютерной графики, который несколько отличается от набора графических процедур Турбо-Паскаля, в силу аппаратных особенностей ПЭВМ. В дополнение к стандартному Паскалю система Инфо-Пас- каль реализует некоторые дополнительные средства, а именно: прямой доступ к оперативной памяти микропроцессора; доступ к памяти алфавитно-цифрового запоминающего уст- ройства (экрана); доступ к адресам переменных; логические операции над целыми числами; преобразование скалярных типов данных; текстовые окна; звуковой сигнал; цветная графика. По сравнению с Турбо-Паскалем добавлена возможность пе- редачи процедурного параметра, предусмотренная также и в стандартном Паскале. Система Инфо-Паскаль разработана в научно-техническом кооперативе "Форт-Инфо" В.И.Вичирко. 1.1. Загрузка системы Инфо-Паскаль Для того, чтобы начать работать с Инфо-Паскалем, необ- ходмо выполнить ее загрузку с магнитофонной кассеты. На по- ставляемой кассете находятся: .... 4) ввести с клавиатуры оператор Бейсика RUN "CAS:PASCAL",B Через некоторое время должно появиться сообщение НАЙДЕН PASCAL B и затем на экране появится начальное сообщение системы Инфо- Паскаль.[свернуть]
Ответить с цитированием
Размещение рекламы на форуме способствует его дальнейшему развитию 
