$regfile = "M16def.dat"                                     'Hier definiere ich den controller
$crystal = 8000000                                          'Hier gebe ich die taktfrequenz ein
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 9600                                                'Meine Übertragungsrate

_d4 Alias Portb.2                                           'LCD config
_d5 Alias Portb.3
_d6 Alias Portb.4
_d7 Alias Portb.5
_e Alias Portb.1
_rs Alias Portb.0




Config Lcdpin = Pin , Db4 = _d4 , Db5 = _d5 , Db6 = _d6 , Db7 = _d7 , E = _e , Rs = _rs
Config Lcd = 20 * 4a , Chipset = Ks077

Dim Peter As String * 20
                                                              'Versuche einen Strin zu senden
Config Portd.0 = Input
Config Portd.1 = Output


Do
Input Peter
Locate 1 , 1
Lcd "Zahl" ; Peter
                                                 'Hier schreibe ich, was ausgegeben werden soll                                           ' generated. Take care that the chip supports all fuse bytes.ter + 1
Loop
End