Fetching a Serial Character

' SerIn_1.Bas
'
' Illustrates how to fetch a character from the serial input buffer. One 
' nice feature is the ability to enter from the PC's keyboard.
'
' Copyright, Peter H. Anderson, Baltimore, MD, Oct '99

Sub Main()

   Dim Character as Byte
   Dim Success as Boolean

   Call OpenSerialPort(2, 9600)

   Do
      Call GetByte(Character, Success)
      If (Success) Then			' display it
         Call PutByte(Character)
      End If
   Loop   
End Sub