CLS : CLEAR
DIM inbuf(800)
DIM outbuf(8)
OPEN "com2:19200,n,8,1,bin,cs,ds" For random as #1
 
' --- INTERRUPT SERIAL INTEFACE ON ---
COM(2) ON
ON ERROR GOTO BADCOM
ON COM(2) GOSUB GETFRAME
 
' --- INITIALIZE RELAIS BOARD ---
PRINT "INITIALIZE BOARD"
outbuf(0) = 1 : outbuf(1) = 1: outbuf(2) = 0 : GOSUB Send-
frame
FOR delay = 1 To 10000000: NEXT: CLS
 
' --- SWITCH RELAIS ---

*greetz*
Tim
.
http://www.DotNetWorld.de