'-----------------------------------------------------------------------------------------------------
''                     (c) 1997,1998 MCS Electronics
'		Adapted by Jure Mikeln
'-----------------------------------------------------------------------------------------------------
'  file: INKEY2.BAS
'  demo: INKEY , WAITKEY
'-----------------------------------------------------------------------------------------------------
Dim A As Byte
Do
   A = Inkey()                            'fetch ASCII-value from serial channel
   If A > 0 Then                        'we received something...
      Print "ASCII of the character is " ; A ; " Typed character is " ; Chr(a)
   End If
Loop Until A = 27                       'until we press the ESC key

A = Waitkey()                             'wait for the key
Print " End of routine"
End
'-----------------------------------------------------------------------------------------------------