$	ALLOCATE LTA110:
$	OPEN/WRITE CHN LTA110:
$	CNT   = 0	! Schleifenzaehler
$	CHNUM = 0	! Kanalnummer
$	FUNC  = 1	! Funktion, 1 oder 0
$ LOOP:
$	CNT = CNT + 1
$ LOOPA:
$	WRITE CHN "<''CHNUM'''FUNC'>" ! 2 Bytes an Relaisbank: Kanal & Funktion 
$	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:	! Bremsen, sonst zu schnell fuer Relais...
$	CNT2 = 0
$ WLOOP:	
$	CNT2 = CNT2 + 1
$	IF CNT2 .LT. 50 THEN GOTO WLOOP
$	RETURN