Example program of application
cls
gosub ComOpen
on com(2) gosub GetCom
com(2) on
Waitloop:
goto Waitloop
ComOpen:
close #1
open "com2:1200,n,7,1,rs,cs,ds,cd" as #1
GetCom:
com(2) off
input #1,rd$
if len (rd$) > 9 then
Rdgdata$=right$(rd$,7)
FunCode$=left$(rd$,1)
ModCode$=mid$(rd$,2,1)
RgeCode$=mid$(rd$,3,1)
print Funcode$;" ";ModCode$;" ";RgeCode$;"
";RdgData$
end if
com(2) on
return