Let's Dance!

PROGRAM NAME CREATED VIA NEW PROJECT!!
COPY AND PASTE FROM NEXT LINE DOWN
'***********************************************
Sub Procedure Forward
    PortB = %00000000
    Delay_ms(5)
    PortB = %00101101
    Delay_ms(50)
end sub
'***********************************************
Sub Procedure Reverse
    PortB = %00000000
    Delay_ms(10)
    PortB = %00110011
    Delay_ms(50)
end sub
'***********************************************
Sub Procedure T_Left
    PortB = %00000000
    Delay_ms(10)
    PortB = %00101011
    Delay_ms(50)
end sub
'***********************************************
Sub Procedure T_Right
    PortB = %00000000
    Delay_ms(10)
    PortB = %00110101
    Delay_ms(50)
end sub
'***********************************************
Sub Procedure Halt
    Delay_ms(50)
    PortB = %00000000
end sub
'***********************************************
Main:
    TrisB = %00000000    ' Configure pins of PortB as output
    TrisA = %00000000    ' Configure pins of PortA as output
mainloop:
    Forward
    	Delay_ms(1000)
    Reverse
   	  Delay_ms(1000)
    T_Left
    	Delay_ms(3000)
    T_Right
    	Delay_ms(3000)
		Forward
    	Delay_ms(200)
    Reverse
   	  Delay_ms(200)
    Forward
    	Delay_ms(200)
    Reverse
   	  Delay_ms(200)
    T_Left
    	Delay_ms(200)
    T_Right
    	Delay_ms(200)						
Goto mainloop
End.