1 2 3 4 5 6 7 8 9 10 11 | SCREEN 7p = 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 ( Скачать )