Should be something like
Code:
C var byte
TRISB = 0
PORTB = 0

Main
	gosub blink_redgreen
	gosub blink_baf
	gosub alt_blink
	gosub blink_sequence
	goto Main


pause_action:
	pause 500 ' arbitrary delay... 500 mSec here
	return


blink_redgreen:
	for c=0 to 9
		PORTB = %10101010
		gosub pause_action
		PORTB = %01010101
		gosub pause_action

		next
	return

blink_baf:
	for c=0 to 9
		PORTB = %10100101
		gosub pause_action
		PORTB = %01011010
		gosub pause_action
		next
	return

alt_blink:
	for c=0 to 9
		PORTB = %10011001
		gosub pause_action
		PORTB = %01100110
		gosub pause_action
		next
	return

blink_sequence:
	for c=0 to 9
		PORTB = %10010101
		gosub pause_action
		PORTB = %01100101
		gosub pause_action
		PORTB = %01011001
		gosub pause_action
		PORTB = %01010110
		gosub pause_action
		next
	return