'The ATmega32 is used.
$regfile = "m32def.dat"
$crystal = 4000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5

Config Portd.2 = Input
Config Portd.6 = Output
Config Portb.6 = Output
Config Portc = Input

Rxf Alias Pind.2
Rd Alias Portd.6
Led Alias Portb.6

Dim Usbin As Byte

Set Rd

Cls
Lcd "reading..."
Lowerline
Set Led
Waitms 500
Reset Led
Waitms 500

Do
  If Rxf = 0 Then
    Reset Rd
    Usbin = Pinc
    Set Rd
    'apparently hyperterm sends characters
    'with upper bit random on or off...
    Usbin = Usbin And &B01111111
    Lcd Chr(usbin)
  End If
Loop

End