Компьютер "Океан-240"

[yevrowl]

При помощи функции CHR$(), как в вашем примере. В нашем случае как-то так

Вообще не заменил разницы в выводе:

100 INPUT "X (FROM 1 TO 4) = "; X
110 PRINT CHR$(31)
120 IF X = 1 THEN PRINT CHR$(27); CHR$(53); CHR$(48);
130 IF X = 2 THEN PRINT CHR$(27); CHR$(53); CHR$(49);
140 IF X = 3 THEN PRINT CHR$(27); CHR$(53); CHR$(50);
150 IF X = 4 THEN PRINT CHR$(27); CHR$(53); CHR$(51);
160 FOR I = 1 TO 255
170 IF I = 13 THEN I = I + 1
180 IF I = 31 THEN I = I + 1
190 IF I = 159 THEN I = I + 1
200 PRINT CHR$(I); " ";
210 NEXT I
220 PRINT
230 END

Что-то MBasic какой-то неживой - практически все время то зависает, то вываливается назад в CP/M.

Поэтому приходится компилировать при помощи BasCom для i8080 и передавать исполняемые файлы в эмулятор «Океан-240».