VEGA VEGACOM 557 VEGA ASCII protocol - Manual (Page 51)

VEGACOM 557 VEGA ASCII 51
E N D
S U B C h e c k R e c e i v e ( r e c A S S T R I N G )
D I M j A S I N T E G E R
D I M L A S I N T E G E R
D I M P L s S t r i n g A S S T R I N G
D I M S t a t A S I N T E G E R
' C a r r i a g e R e t u r n a b p r u e f e n
I F M I D $ ( r e c , L E N ( r e c ) - 1 , 1 ) < > C H R $ ( 1 3 ) T H E N E X I T S U B
' S t a r t c h a r a c t e r a b p r u e f e n
I F M I D $ ( r e c , 1 , 1 ) < > " = " T H E N E X I T S U B
' A n t w o r t a u f a k t u e l l e A n f r a g e ?
I F M I D $ ( r e c , 2 , 3 ) < > S e n d N r T H E N E X I T S U B
' S e p a r a t i n g c h a r a c t e r p r u e f e n
I F ( M I D $ ( r e c , 5 , 1 ) < > " # " ) T H E N E X I T S U B
F O R j = 0 T O L a s t P l s - 1
I F ( M I D $ ( r e c , 1 3 + j * 8 , 1 ) < > " p " ) T H E N E X I T S U B
N E X T j
' D C S W e r t e a u s l e s e n
F O R j = F i r s t P l s T O L a s t P l s
P L s S t r i n g = M I D $ ( r e c , 6 + ( j - 1 ) * 8 , 7 )
' A b f r a g e h o h e o r n i e d r i g e A u f l o e s u n g
I F M I D $ ( P L s S t r i n g , 6 , 1 ) = " . " T H E N
' n i e d r i g e A u f l o e s u n g
P L s S t r i n g = M I D $ ( P L s S t r i n g , 1 , 1 ) +
M I D $ ( P L s S t r i n g , 3 , 3 ) + M I D $ ( P L s S t r i n g , 7 , 1 )
END IF
D C S ( M e t N r , j ) = V A L ( P L s S t r i n g )
N E X T j
' S t a t u s i n f o r m a t i o n l e s e n
I F L a s t P l s > 3 T H E N
S t a t = V A L ( M I D $ ( r e c , 6 2 , 1 ) )
S t a t = S t a t + V A L ( M I D $ ( r e c , 6 3 , 1 ) ) * 8
S t a t = S t a t + V A L ( M I D $ ( r e c , 6 4 , 1 ) ) * 6 4
E L S E
S t a t = V A L ( M I D $ ( r e c , 3 0 , 1 ) )
E N D I F
i = 1
F O R j = F i r s t P l s T O L a s t P l s
S t a t u s ( M e t N r , j ) = S t a t A N D i
i = i * 2
N E X T j
E N D S U B
S U B D e l a y ( t A S S I N G L E )
D I M x A S D O U B L E
x = T I M E R + t
W H I L E x > = T I M E R
W E N D
Setup