' Run 8 LED from left to right with Push Button 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
    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