'****************************************************************
'*  Name    : WACMOLE.BAS                         
         *
'*  Author  : Chris Kairalla         
         *
'*  Notice  : Copyright (c) 2005 
OPTIONS] *
'*          : All Rights Reserved                     
         *
'*  Date    : 9/19/2005                               
         *
'*  Version : 1.0                                    
         *
'*  Notes   :   the random LED code was taken from Melanie at
'				http://www.picbasic.co.uk/forum/showthread.php?t=1519
         *
'*          :                                         
         *
'****************************************************************
 input portb.0
 input portb.1
 input portb.2
 input portb.3
 
 output portd.4
 
 	LEDA var Portd.0
	LEDB var Portd.1
	LEDC var Portd.2
	LEDD var Portd.3
	x var word
	speed var word
	RandomValue var WORD
	LEDValue var BYTE
	
	speed = 2000
Start:
	speed = speed - 40
	Low LEDA
	Low LEDB
	Low LEDC
	Low LEDD
pause 100
	Random RandomValue
	LEDValue=RandomValue & $03

	If LEDValue=0 then 
			for x=1 to speed
				High LEDA
				pause 1
				if portb.0 = 1 then goto start
				if portb.1 = 1 then goto lose
				if portb.2 = 1 then goto lose
				if portb.3 = 1 then goto lose
			next x
	
	If LEDValue=1 then
		for x=1 to speed
				High LEDB
				pause 1
				if portb.0 = 1 then goto lose
				if portb.1 = 1 then goto start
				if portb.2 = 1 then goto lose
				if portb.3 = 1 then goto lose
			next x
			
	If LEDValue=2 then
			for x=1 to speed
				High LEDC
				pause 1
				if portb.0 = 1 then goto lose
				if portb.1 = 1 then goto lose
				if portb.2 = 1 then goto start
				if portb.3 = 1 then goto lose
			next x
			
	If LEDValue=3 then
			for x=1 to speed
				High LEDD
				pause 1
				if portb.0 = 1 then goto lose
				if portb.1 = 1 then goto lose
				if portb.2 = 1 then goto lose
				if portb.3 = 1 then goto start
			next x
			

	Pause 100
	Goto lose

lose:
	high portd.4
	pause 100
	low portd.4
	pause 100
goto lose