Появление изображения в разных частях экрана- QBasic(Бейсик)

SCREEN 7
p = TIMER
  WHILE INKEY$ = ""
   IF TIMER > p THEN
     CLS : p = TIMER
     x = RND * 280
     LINE (320 - x, 0)-(280 - x, 50), 15
     LINE (280 - x, 50)-(280 - x, 20), 15
     LINE (280 - x, 20)-(200 - x, 100), 15
   END IF
  WEND

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

Leave a Comment