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

VEGACOM 557 VEGA ASCII 49
5.4 Example program for the enquiry VEGAMET (QUICK BASIC)
D E C L A R E S U B R e c e i v e S t r i n g ( n % , r e c $ )
D E C L A R E 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 E C L A R E S U B O u t p u t D a t a ( )
D E C L A R E S U B D e l a y ( t A S S I N G L E )
' K o n s t a n t e n d e f i n i e r e n
C O N S T C O M A D R = " 0 "
C O N S T M A X N O R E C E I V E = 2
C O N S T F i r s t M e t = 1
C O N S T L a s t M e t = 1 5
C O N S T F i r s t P l s = 1
C O N S T L a s t P l s = 3
C O N S T C M D 1 = " P "
C O N S T C M D 2 = " M "
C O N S T C O L O R W H I T E = 1 5
C O N S T C O L O R G R E E N = 1 0
C O N S T C O L O R R E D = 1 2
' V a r i a b l e n d e f i n i t i o n
D I M s i o A S I N T E G E R
D I M i A S I N T E G E R
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 R e c e i v e A S S T R I N G
D I M S e n d A S S T R I N G
D I M N o R e c e i v e ( L a s t M e t ) A S I N T E G E R
D I M S H A R E D S e n d N r A S S T R I N G
D I M S H A R E D M e t N r A S I N T E G E R
D I M S H A R E D D C S ( L a s t M e t , L a s t P l s ) A S L O N G
D I M S H A R E D S t a t u s ( L a s t M e t , L a s t P l s ) A S I N T E G E R
' B i l d s c h i r m l o e s c h e n
C L S
C O L O R C O L O R W H I T E , 0
' F r e i e s D a t e i h a n d l e h o l e n
s i o = F R E E F I L E
' S c h n i t t s t e l l e o h n e H a n d s h a k e O e f f n e n
O P E N " C O M 2 : 9 6 0 0 , N , 8 , 1 , B I N , O P 0 , D S 0 , R S " F O R R A N D O M A S s i o
' M i t V E G A M E T A d r e s s e 1 b e g i n n e n
M e t N r = F i r s t M e t
' F e h l e r z a e h l e r i n i t i a l i s i e r e n
F O R i = F i r s t M e t T O L a s t M e t
N o R e c e i v e ( i ) = M A X N O R E C E I V E
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 ( i , j ) = - 1
N E X T j
N E X T i
' S o l a n g e w i e d e r h o l e n b i s d e r A n w e n d e r e i n e T a s t e
d r u e c k t
W H I L E I N K E Y $ = " "
' S e n d e s t r i n g e r z e u g e n
S e n d N r = R T R I M $ ( L T R I M $ ( S T R $ ( M e t N r ) ) )
Setup