Спасибо, буду мучать эмуль.
А пока, вот вам инициатор режима для Бейсика. Я его юзаю через вызов в ДОСе вида "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