$	ALLOCATE LTA110:
$	OPEN/WRITE CHN LTA110:
$	CNT   = 0	! Loop counter
$	CHNUM = 0	! Channel number
$	FUNC  = 1	! Function, 1 or 0
$ LOOP:
$	CNT = CNT + 1
$ LOOPA:
$	WRITE CHN "<''CHNUM'''FUNC'>" ! 2 bytes to relay array: channel & function 
$	GOSUB SLEEP
$	CHNUM = CHNUM + 1
$	IF CHNUM .LE. 6 THEN GOTO LOOPA
$	CHNUM = 0
$	FUNC  = FUNC - 1
$	IF FUNC .LT. 0 THEN FUNC = FUNC * -1
$	IF CNT .LE. 5 THEN GOTO LOOP
$	CLOSE 0
$	DEALL LTA110:
$	EXIT
$ SLEEP:	! Brake, otherwise too fast for relays...
$	CNT2 = 0
$ WLOOP:	
$	CNT2 = CNT2 + 1
$	IF CNT2 .LT. 50 THEN GOTO WLOOP
$	RETURN