Сообщение от
litwr
Корвет гораздо круче БК по многим параметрам. Графика круче намного
да кто бы сомневался ) Только вот в чём дело то - он ни разу не PDP, каким бы он там не был )
Сообщение от
litwr
А адаптации под ОС, которые на БК никто не запускал, - это нарушит дух эксперимента.
ОС БК которую никто не запускал на БК - докатились ))) Вы понятия не имеете о машинке и её модификациях,
вам дали единственный путь прогнать ваш тест прямо сейчас, но вы уже и выше дали понять, что ведение таблиц - это предел ваших возможностей. Должен быть конвертер ? Может быть вам ещё и приверженцы БК все должны ?
Сообщение от
litwr
Профессиональный софт намного лучше:
предпочитаю промышленные и военные стандарты от DEC. Тем более - это было актуально для того времени (промышленность, ЧПУ, автоматизация производства).
Сообщение от
litwr
А Экспресс-паскаль гораздо круче любых паскалей под RT-11.
ещё один пример субъективного мнения - а по сути поверхностного суждения.
FAST-PASCAL есть и для БК\УК-НЦ\ДВК мощный, но тяжеловесный, а обычный компилятор OMSI PASCAL и все его производные - это чудесная вещь (для тех кто действительно понимает изнает о чём речь, а не голословно тянет за уши из аргументацию субъективную - ни о чём).
Вы не под то дерево лапу подняли, уважаемый. Играйтесь в игры на Корвете - кто вам мешает,
я буду молча вам завидовать. По вашей ссылке - эта игра которой надо завидовать, вы серьёзно что ли? )))
По теме, системный Бейсик пропатченый и демо программа от @Patrona
Код:
→ ЛАТ
WD4>TY WD5:DEMO.BAS
120 I$=CHR$(9)
140 GET(44%,M%) \ REM M% == $SYPTR
160 GET(M%+196,T0%) \ REM T0% == TTKS
180 GET(M%+198,T1%) \ REM T1% == TTKB
200 X$=CHR$(10)+CHR$(10)+CHR$(10)+CHR$(10)+CHR$(10)
220 X$= X$+CHR$(27)+"I"+CHR$(27)+"I"+CHR$(27)+"I"
240 X$= X$+CHR$(27)+"I"+CHR$(27)+"I"
1000 A%=TTYSET(255%,250%)
1020 GET(36%,J9%) \ PUT(J9%+4096%,36%) \ REM Set TTSPC$ in $JSW
1030 PUT(00%,T0%) \ REM Disable TTKINT
1100 PRINT \ PRINT X$ ; "Press any keys .." \ PRINT
1120 PRINT CHR$(13);CLK$;
1140 GET(T0%,S%) \ IF S% <= 64% GOTO 1120
1160 GET(T1%,A%)
1200 PRINT I$;A%;I$;CHR$(13);
1210 IF A%=32 GOTO 1400 \ REM Space == EXIT
1220 IF A%<>3 GOTO 1120 \ REM Ctrl/C == EXIT
1400 PUT(64%,T0%) \ REM Enable TTKINT
1420 PUT(J9%,36%) \ REM Restore $JSW
1440 PRINT
=============================================
→ ЛАТ
WD4>AS WD5 DK
WD5>RU BASIC
BASIC-11/RT-11 V02-03Y
OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? A
READY
OLD DEMO
READY
RUN
DEMO 12-NOV-20 00:03:42
Press any keys ..