'Code by Shaun Wilson November 11/99
'this program monitors the p0 to p4 to see what state they 
'are and if their all ones then p5 is set high to turn on the relay

Dir%=000001

main:
	result = in0*in1*in2*in3*in4	'if any pin is 0 then the result will equal 0
	if result = 1 then on		'if all the input are 1's 
goto main

on:
	high 5	'turn on the relay
goto main

    Source: geocities.com/siliconvalley/Orchard/6633

               ( geocities.com/siliconvalley/Orchard)                   ( geocities.com/siliconvalley)