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

52 VEGACOM 557 VEGA ASCII
E N D S U B
S U B O u t p u t D a t a
D I M v A S S T R I N G
' A u s g a b e d e r D a t e n a u f d e n B i l d s c h i r m
C L S
P R I N T
P R I N T
F O R i = F i r s t M e t T O L a s t M e t
P R I N T " M E T : " ; i ,
F O R j = F i r s t P l s T O L a s t P l s
v = L T R I M $ ( R T R I M $ ( S T R $ ( D C S ( i , j ) ) ) )
v = M I D $ ( S P A C E $ ( 8 ) , 1 , 8 - L E N ( v ) ) + v
I F S t a t u s ( i , j ) = 0 T H E N
' S t a t u s i s t O K - > A n z e i g e i n G r u e n
C O L O R C O L O R G R E E N , 0
ELSE
' F e h l e r i m S t a t u s - > A n z e i g e i n R o t
C O L O R C O L O R R E D , 0
END IF
PRINT v;
NEXT j
' A n z e i g e i n W e i s s
C O L O R C O L O R W H I T E , 0
P R I N T
N E X T i
' H i n w e i s a u s g e b e n
P R I N T
P R I N T " Z u m B e e n d e n b i t t e e i n e T a s t e d r u e c k e n "
E N D S U B
S U B R e c e i v e S t r i n g ( n % , r e c $ )
D I M D o L o o p A S I N T E G E R
D I M M a x L o o p A S S I N G L E
' A l l e c h a r a c t e r s e i n l e s e n b i s e i n L i n e f e e d g e f u n d e n
w u r d e
' o r 0 . 2 S e k u n d e n v e r s t r i c h e n s i n d
M a x L o o p = T I M E R + . 1
' E m p f a n g s p u f f e r l o e s c h e n
r e c $ = " "
D o L o o p = 1
W H I L E D o L o o p < > 0
' c h a r a c t e r s a n d e r S c h n i t t s t e l l e v o r h a n d e n ?
I F L O C ( n % ) > 0 T H E N
' J a d a n n l e s e n
r e c $ = r e c $ + I N P U T $ ( L O C ( n % ) , # n % )
I F M I D $ ( r e c $ , L E N ( r e c $ ) , 1 ) = C H R $ ( 1 0 ) T H E N
DoLoop = 0
END IF
E L S E
' Z e i t s c h o n a b g e l a u f e n ?
I F M a x L o o p < T I M E R T H E N
DoLoop = 0
END IF
E N D I F
W E N D
E N D S U B
Setup