'this program triggers a transistor on pin 5
'from a switch on pin 14

Option Explicit

dim switchPin as byte

Public Sub Main()
switchPin = 14
do
	if getPin(switchPin) = 1 then
		call putPin(5,1)
	else
		call putPin(5,0)
	end if	
loop
End Sub