Option Explicit

Sub Main()

call putpin(26,0)

    Do        
		call putpin(16,0)
		call putpin(18,0)
		call delay(0.5)
		call putpin(14,0)
		call delay(0.5)
		call putpin(19,0)

		call putpin(13,1)
		call putpin(15,1)
		call putpin(17,1)
		call putpin(20,1)

		call delay(1.0)

		call putpin(13,0)
		call putpin(15,0)
		call delay(0.5)
		call putpin(17,0)
		call delay(0.5)
		call putpin(20,0)

		call putpin(16,1)
		call putpin(18,1)
		call putpin(14,1)
		call putpin(19,1)

		call delay(1.0)
            
    Loop

End Sub