Спасибо, буду мучать эмуль.
А пока, вот вам инициатор режима для Бейсика. Я его юзаю через вызов в ДОСе вида "A:>basic init", ещё со школы его помню. Текст в переменных может быть любым, естественно.
Программка грубая и примитивная - но 20 с лишним лет назад она была изящнее...
Код:10 CLS 20 COLOR 15,4,4 30 SCREEN 0,,0,1,0 40 WIDTH 80 50 COLOR=(4,0,0,3) 60 FR$="MSX2 BASIC version 2.1" 70 SC$="YAMAHA YIS503III RUS КУВТ2" 80 TD$="Copyright 1986 Microsoft Corp." 90 FT$="================================" 100 REM 110 FOR I=1 TO LEN(FR$)\2 120 LOCATE 40-I,0,0 130 PRINT LEFT$(FR$,I) + RIGHT$(FR$,I) 140 NEXT I 150 FOR J=1 TO LEN(SC$)\2 160 LOCATE 40-J,1,0 170 PRINT LEFT$(SC$,J) + RIGHT$(SC$,J) 180 NEXT J 190 FOR K=1 TO LEN(TD$)\2 200 LOCATE 40-K,2,0 210 PRINT LEFT$(TD$,K) + RIGHT$(TD$,K) 220 NEXT K 230 FOR L=1 TO LEN(FT$)\2 240 LOCATE 40-L,3,0 250 PRINT LEFT$(FT$,L) + RIGHT$(FT$,L) 260 NEXT L 270 KEY 1,"cls"+CHR$(13):KEY 4,"list"+CHR$(13):KEY 9,"_system"+CHR$(13) 280 NEW




Ответить с цитированием