Нарисовать  мигающую надпись- QBasic(Бейсик)

disel
1
2
3
4
5
SCREEN 12
WHILE INKEY$ = ""
  COLOR (TIMER * 5) AND 1
  LOCATE 5, 5: PRINT "Nadpis..."
WEND

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment