$regfile = "8535def.dat"
$crystal = 16000000




Ddrd = &B00000000
Ddra = &B11111111



Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.0 , Rs = Portd.1
Config Lcd = 20 * 4 ' Lcdconfig

Lcd "Hallo, das is der lcdtest"
Lowerline
Lcd "zweite zeile"
Thirdline
Lcd "dritte zeile"
Fourthline
Lcd "VIERTE ZEILE"

Wait 3


Config Adc = Single , Prescaler = Auto
'Now give power to the chip
Start Adc

'With STOP ADC, you can remove the power from the chip
'Stop Adc

Dim W As Word , Channel As Byte , Sinnfrei As Byte

Sinnfrei = 5

Channel = 0
'now read A/D value from channel 0
Do
W = Getadc(channel)
'Print "Channel " ; Channel ; " value " ; W
If Channel = 0 Then
Upperline
Lcd "Kanal 1:" ; W
End If

If Channel = 1 Then
Lowerline
Lcd "Kanal 2:" ; W
End If

If Channel = 2 Then
Thirdline
Lcd "Kanal 3:" ; W
End If

If Channel = 3 Then
Fourthline
Lcd "Kanal 4:" ; W
End If

Incr Channel
If Channel > 3 Then Channel = 0

Loop
--------------------------------------------------------------------------
mit RS232 hab ich nix zu schaffen-->brauch ich deshalb wohl auch nix einstellen, oder?
musste ich beim 2313 jedenfalls nicht...