Const txPin as Byte = 11
Const channel as Byte = 2 

Dim oq(1 to 40) as Byte

Dim b as Byte
Dim i as Byte
Dim Bstop as Byte

Sub Main() 
 Bstop=2
 b=75  ' K b7 01001011 b0
   
  ' initialize the queues 
  Call OpenQueue(oq) 

  ' define the characteristics of the serial channel ,( channel 2,no Rx,only tx,8bitdata and 1bit parity,bit stop) 
  Call DefineCom(2, 0,txPin, &H38,Bstop)
  
  ' open the serial channel 
  Call OpenCom(2, 115600, 0, oq) 
  
 do 
  'output port serie com2 micro  (output,75,1 byte)
  
  Call PutQueue(oq,b,1)
  Call PutQueue(oq,b,1)
  
   
 loop
  
End Sub