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 ( Скачать )