' Blinky example
' Compubotics eBASIC Compiler
'
' This example blinks an LED attached to PORTB.0 (PB1 on the RC40)
' using the native pin functionality
' Unlike the HIGH and LOW Stamp commands, this method gives us access
' to all pins on the device. 
'
' For this version of BLink, we're using the RC40, so we have included 
' the RC40.INC file that contains the various port definitions. The
' #clock and #device entries are also in this include file.

#include "rc40.inc"
#debug OFF

Forever		con		1
PinHigh		con		1
PinLow		con		0
PinOut		con		0

Main:

	' set PB1 to output
	TRISPB1 = PinOut
	
	while (FOREVER)
		PB1 = PinHigh
		pause 200
		PB1 = PinLow
		pause 200
	wend


END