'***************************************************************
'***************************************************************
'
'This example program is used to demonstrate the Serial Control
'Protocol (SCP) Single Step command with the OOPicII+ and the 
'DS-IM Serial Interface Module.
'
'Compiler Version : 5.0.1 OOPicII+
'Written By: Total Robots (Jamie Finnan)
'TR-020
'***************************************************************
'***************************************************************

Dim Red_Led As New oDio1
Dim Yellow_Led As New oDio1
Dim Green_Led As New oDio1

'***************************************************************

Sub Main()
Red_Led.IOLine = 8
Yellow_Led.IOLine = 6
Green_Led.IOLine = 7
Red_Led.Direction = cvOutput
Yellow_Led.Direction = cvOutput
Green_Led.Direction = cvOutput

Do 
Red_Led.Value = 1
Yellow_Led.Value = 1
Red_Led.Value = 0
Yellow_Led.Value = 0
Green_Led.Value = 1
Green_Led.Value = 0
Yellow_Led.Value = 1
Yellow_Led.Value = 0
Red_Led.Value = 1

Loop
End Sub

'***************************************************************
'***************************************************************