'*********************
Dim value as Byte
'*********************
Sub Procedure Dlay100
Delay_ms(100)
End Sub
'*********************
Main:
TrisB = %00000000 'Configure Pins of PortB as Output
value = 255 'Start code off with a value = 255
Count_Dwn:
PortB = value 'Send value to PortB
Value = value - 1 'Subtract one to Value
If value = 0 Then 'If value is equal to 255 then....
value = 255 'Value switches back to 255
End if 'Always end an If statement with an End If
Dlay100 'Call the Dlay100 sub procedure
Goto Count_Dwn 'Jump back up to the Count_Dwn Section
End. 'All good things must end
'*********************
