? HEX$(getscanline(1),2)
? HEX$(getscanline(2),2)
? HEX$(getscanline(3),2)
00
00
00

Option explicit
Const cnbbuf = 10


Dim tmbuf(cnbbuf) As string      'stack
dim flgtmbuf(cnbbuf) as integer   'status of frame
Dim ptWrite As integer
Dim ptRead As integer

Dim i As integer
Dim i1 As integer
Dim i2 As integer

dim vn as integer   'Ascii value for end rec

Dim ptime1 As float
Dim ptime2 As float

'*****   Setup   ************************
vn=10   'stop rec and save frame after rec LineFeed or CR
Open "COM1:9600,255,spcomrec" As #2
ptWrite=0
ptRead=0
for i=1 to cnbbuf
 tmbuf(i)=""   'clear stack
 flgtmbuf(i)=0    'clear status
next i

'*****************************
'*** Main prog ******
'*****************************
do
 ptime1=timer
 tfrframe    'read frame rec
 ptime2=timer  'to know time used
 if ptime2-ptime1>400 then
   print time$;" ->";str$((ptime2-ptime1)/1000,4,3)
 end if
 pause(10)
loop
'*****************************

sub tfrframe()  'prog work with each frame
local txt as string
local errtfr as integer
 for i=1 to cnbbuf
   ptRead=ptRead+1
   if ptRead>cnbbuf then ptRead=1
   if flgtmbuf(ptRead)=0 then exit for   'ignore first frame rec
   if flgtmbuf(ptRead)=2 then   'if frame is complete
     txt=tmbuf(ptRead)   'frame rec
 '------------------------------
 print txt  'for debug
     'spreadframe(txt,errtfr)     'here you can use frame
 '------------------------------------
     if errtfr=0 then    'if no error  else errtfr= num error
       flgtmbuf(ptRead)=0   'ok for future frame in stack
     end if
   end if
 next i
end sub



sub spcomrec  'interrupt prog read COM port
Local tx$ As string 'length 3
Local a$ As string length 1
local vai as integer
Local i3 As integer
Local i4 As integer

 i3=Loc(#2)
 if i3=0 then  'some time rev interrupt but without char
   exit sub
 else
   tx$=Input$(i3,#2)
   For i4=1 To i3
     a$=Mid$(tx$,i4,1)
     vai=asc(a$)   'code ascci of char
     if vai=vn then
   flgtmbuf(ptWrite)=2  'flag end of frame
       ptWrite=ptWrite+1   ''stack pointer
       if ptWrite>cnbbuf then ptWrite=1  'if end of stack then pt=begin stack
       tmbuf(ptWrite)=""
       flgtmbuf(ptWrite)=1   'flag that buffer is  new
     else
       tmbuf(ptWrite)=tmbuf(ptWrite)+a$  'save char rec
     end if
   next i4
end sub

SETPIN PA6, DOUT 'LED 2 is ON
SETPIN PA7, DOUT 'LED 3 is ON
Pause 1000
PIN(PA6) = 1 'LED 2 OFF
PIN(PA7) = 1 'LED 3 OFF
Pause 1000
PIN(PA6) = 0 'LED 2 ON
PIN(PA7) = 0 'LED 3 ON