PROGRAM NAME CREATED VIA NEW PROJECT!!
COPY AND PASTE FROM NEXT LINE DOWN
'***********************************
Dim x as Integer
'***********************************
Main:
TrisB = %00000000
TrisA = %00001100
CMCON = %00000111
'***************Flashes****************
PortB = 34
Delay_ms(300)
PortB = 0
Delay_ms(300)
PortB = 34
Delay_ms(300)
PortB = 0
Delay_ms(300)
'**************************************
While True
x = 50
While x > 1
x = x - 1
PortA = %00000001
Delay_us(18)
PortA = %00000000
Delay_us(10)
Wend
If TestBit(PortA,3) = 0 Then
PortB = %00001000
Delay_ms(50)
PortB = %00000000
End if
If TestBit(PortA,2) = 0 Then
PortB = %00010000
Delay_ms(50)
PortB = %00000000
End if
Wend
End.
