do
   b=inkey$
loop until b = ""

'Communication terminal to set up HC-15
'disconnect KEY, and reboot HC-15

 ' open COM port pico
 SetPin gp17,gp16,COM1
 Open "COM1:9600" As #1

 'interactive terminal function
 Print "<ESC> to stop"
 Do
   'input command
   Input "command";k$
   Print #1,UCase$(k$)'; 'send upper case commands

   'wait for response and read + print response
   Pause 100

   Line Input #1,b$
   Print b$

   'empty rx buffer
   Do : b$=Input$(1,#1) : Loop Until Loc(1)=0

 Loop Until k$=Chr$(27)
End

dim as integer a
dim as string b

do
 do
   b=input$(250,0)    'reads up to 250 characters from console buffer (#0)
 loop until b = ""

 pause 100

 inc a
 print a        'sends to Windows app via USB
loop

print #1,str(d)

print #1,str(d);

print #2,str(d);

do
 do until LOC(#0) > 0 ' you know something has been received
   pause 50 ' or however long it takes to send your message at your baud rate
   b$=input$(250,0)
 loop
 if mid$(b$,1,26)="ABCDEFGHIJKLMNIPQRSTUVWXYZ" then
   inc a
   print a
 else
   print "ERROR: "+b$+" Received"
 endif
loop

dim as integer a,c
dim as string b

do
 do
   b=input$(50,0)
   if len(b) then c = 1
 loop until len(b) = 0

 if c = 1 then
   c = 0
   inc a
   print a
 end if  
loop

print "step 1"
open "COM5:4000000" as # 2    ' Open COM5 @4M BAUD
open "COM11:4000000" as # 1    ' Open COM11 @4M BAUD
print "step 2"
showpage
c=1
a=0
d=1
print #1,str(d);
print #2,str(d);
repeat
 d++
 delay 20
 
   l = lof(1)   ' Query how much data is in the queue
   if l then
       s$ = INPUT(l,1)    ' get all data
       at 50,50
       print "RP2350"+s$
       print #1,str(d);
       showpage
  fi
   l = lof(2)   ' Query how much data is in the queue
   if l then
       s$ = INPUT(l,2)    ' get all data
       at 50,100
       print "RP2040"+s$
       print #2,str(d);
       showpage
  fi

until inkey="s"

close #1