{* Полоса по экрану *}

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