sorry für die dumme frage: post=attachment??
deshalb ausnahmsweise hier.
Code:
$regfile = "m8def.dat"
$crystal = 8000000                                          ' used crystal frequency
$baud = 9600                                                ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 40                                               ' default use 10 for the SW stack
$framesize = 50                                             ' default use 40 for the frame space

Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Postd.5

Config Lcd = 16 * 4

Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Dim A As Byte
Dim Text As String * 15
Dim Laenge As Integer

Text = "asd"
Laenge = Len(text)

Cls


Config Serialout = Buffered , Size = 20

Enable Interrupts


Print "abcd";

Do
 A = Waitkey()
 Print A
 Cls
 Locate 1 , 1
 Lcd A
Loop
End