{* Полоса по экрану *}
REM basic
'
Полоса по экрануSCREEN 9
CLS
i = 600
Dim a(i)
7
{RANDOMIZE TIMER
}For i = 1
To 645
LINE (i, 100)-(i, 200), c
For t = 1
To 3000
Next t
LINE (i - 5, 100)-(i - 5, 200), 0
If i = 645
Then c = 9 + INT(RND * 7):
GoTo 7
{i = 1
}Next i