REM Разноцветный текст A$ = "ПРОГРАММИРОВАНИЕ" CLS 'Отображение разноцветных букв на допустимой фоновой гамме FOR CF = 0 TO 7 FOR CS = 0 TO 15 COLOR CS, CF LOCATE CF + 1, 2 * CF + CS + 1 PRINT MID$(A$, CS + 1, 1) NEXT CS NEXT CF 'Отображение мигающих разноцветных букв FOR CF = 0 TO 7 FOR CS = 0 TO 15 COLOR CS + 16, CF LOCATE CF + 1, 2 * CF + CS + 41 PRINT MID$(A$, CS + 1, 1) NEXT CS NEXT CF