RPin Alias PortB.7
YPin Alias PortB.6
GPin Alias PortB.5
RRPin Alias PortB.1
GGPin Alias PortB.0
swPin Alias PinD.6
Config PortB=&B11100011
Config swPin=Input
Const HIGH=1
Const LOW=0
Dim H As Integer
Dim L As Integer
Dim swMemo As Integer
Declare Sub carsig(g as integer,y as integer,r as integer)
Declare Sub mansig(r as integer,g as integer)
swMemo=LOW
H=HIGH
L=LOW
Call carsig(H,L,L)
Call mansig(H,L)
Do
  If swPin=HIGH Then
    If swMemo=LOW Then
      Waitms 4000
      Call carsig(L,H,L)
      Waitms 4000
      Call carsig(L,L,H)
      Call mansig(L,H)
      Waitms 16000
      For i=0 To 7
        Call mansig(L,H)
        Waitms 500
        Call mansig(L,L)
        Waitms 500
      Next i
      Call mansig(H,L)
      Waitms 4000
      Call carsig(H,L,L)
    End If
    swMemo=HIGH
  Else
    swMemo=LOW
  End If
Loop
End

Sub carsig
  GPin=g
  YPin=y
  RPin=r
  Return
End Sub

Sub mansig
  RRPin=r
  GGPin=g
  Return
End Sub