' Run 8 LED from left to right with Push Button control and timer control
'Connection
'==========
'Bx-24 X-Board
'===== =======
'5     L1
'6     L2 
'7     L3
'8     L4
'9     L5
'11    L6
'12    L7
'13    L8
'15    PB1

Sub Main()

Do
    If Getpin (15) = 0 Then
        Exit Do
    ElseIf Timer>120.0 Then '//Timer control of 120 seconds 
    Else
        Sleep 0.2
    End If
Loop

Do
    Call Putpin(5,0)
    Call Putpin(6,1)
    Call Putpin(7,1)
    Call Putpin(8,1)
    Call Putpin(9,1)
    Call Putpin(11,1)
    Call Putpin(12,1)
    Call Putpin(13,1)
    Call Delay (0.2)

    Call Putpin(5,1)
    Call Putpin(6,0)
    Call Putpin(7,1)
    Call Putpin(8,1)
    Call Putpin(9,1)
    Call Putpin(11,1)
    Call Putpin(12,1)
    Call Putpin(13,1)
    Call Delay (0.2)

    Call Putpin(5,1)
    Call Putpin(6,1)
    Call Putpin(7,0)
    Call Putpin(8,1)
    Call Putpin(9,1)
    Call Putpin(11,1)
    Call Putpin(12,1)
    Call Putpin(13,1)
    Call Delay (0.2)

    Call Putpin(5,1)
    Call Putpin(6,1)
    Call Putpin(7,1)
    Call Putpin(8,0)
    Call Putpin(9,1)
    Call Putpin(11,1)
    Call Putpin(12,1)
    Call Putpin(13,1)
    Call Delay (0.2)

    Call Putpin(5,1)
    Call Putpin(6,1)
    Call Putpin(7,1)
    Call Putpin(8,1)
    Call Putpin(9,0)
    Call Putpin(11,1)
    Call Putpin(12,1)
    Call Putpin(13,1)
    Call Delay (0.2)

    Call Putpin(5,1)
    Call Putpin(6,1)
    Call Putpin(7,1)
    Call Putpin(8,1)
    Call Putpin(9,1)
    Call Putpin(11,0)
    Call Putpin(12,1)
    Call Putpin(13,1)
    Call Delay (0.2)

    Call Putpin(5,0)
    Call Putpin(6,1)
    Call Putpin(7,1)
    Call Putpin(8,1)
    Call Putpin(9,1)
    Call Putpin(11,1)
    Call Putpin(12,0)
    Call Putpin(13,1)
    Call Delay (0.2)

    Call Putpin(5,1)
    Call Putpin(6,1)
    Call Putpin(7,1)
    Call Putpin(8,1)
    Call Putpin(9,1)
    Call Putpin(11,1)
    Call Putpin(12,1)
    Call Putpin(13,0)
    Call Delay (0.2)

Loop

End Sub