I organized it up a bit. The blinky no worky, so I went back to the simple toggle. I aliased everything that I could. Looks better but works the same. Any suggestions?


'* Name : relay4.BAS
'* Author : lloyd778
'* Notice : Copyleft
'* : No Rights Reserved
'* Date : 7/12/2006
'* Version : 1.0.25(+/-)
'* Notes : for Olimex 4 relay board (PIC I/O) 16F628A
'* Relay board incantation #25 at least
' Use of chicken bones and water buffalo entrails show no
' substantial improvement so far.

pause 50
define OSC 20
CMCON = 7 ' digital I/O
TRISA = %00010000
TRISB = %00111001
LED var portb.5
Saw var porta.3
Light var porta.1
Feed var porta.2
Vac var porta.0
Switch var portb.0
counter var byte
counter1 var byte

loop:
toggle led 'Power LED shows cycle time
if switch = 1 then ' Switch is OFF
gosub sub1
else 'otherwise it's ON
gosub sub2
endif

Goto Loop
sub1:
low saw
gosub delay
low feed
gosub delay
low light
gosub delay
low vac
goto loop
sub2:
high vac
gosub delay
high light
gosub delay
high feed
gosub delay
high saw
goto loop

delay:
counter=32
repeat
pause 50
counter=counter-1
until counter=0
return

end