svetohor.BAS

{* Переключение светофора *}

REM basic

' Переключающийся светофор


SCREEN 7
COLOR 6, 11
CIRCLE (150, 50), 20, 6
CIRCLE (150, 90), 20, 6
CIRCLE (150, 130), 20, 6
k: PAINT (150, 50), 4, 6
For i = 1 To 2000000
Next i
PAINT (150, 50), 11, 6
PAINT (150, 90), 14, 6
For i = 1 To 2000000
Next i
PAINT (150, 90), 11, 6
PAINT (150, 130), 2, 6
For i = 1 To 2000000
Next i
PAINT (150, 130), 11, 6
GoTo k