Примеры программ на языке QBASIC


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