Code:
'---------- Variblen Deklaration ----------
define lcd_out byteport[2] '9=D4 10=D5 11=D6 12=D7
define rs port[13]
define enable port[14]
'rw auf Masse
define buffer byte
define zeichen byte 'Zu uebertragendes Zeichen

'---------- Hauptprogramm ----------

gosub lcd_init 'LCD Initialisierungs-Routine
zeichen = 1
gosub lcd_line 'Start in Zeile 1

zeichen = 82
gosub lcd_write 'R
zeichen = 101
gosub lcd_write 'e
zeichen = 110
gosub lcd_write 'n
zeichen = 101
gosub lcd_write 'e
goto ende

'---------- LCD Funktionen ----------
#lcd_init
lcd_out=off
zeichen=&h38:gosub lcd_command
lcd_out=&b00000010
tog enable
tog enable
zeichen=&h28:gosub lcd_command
zeichen=&h0c:gosub lcd_command

#lcd_cls
zeichen=&h02:gosub lcd_command
zeichen=&h02:gosub lcd_command
return

#lcd_write
buffer = &b00010000
goto lcd_send

#lcd_line
if zeichen = 1 then zeichen = &h80
if zeichen = 2 then zeichen = &hC0

#lcd_command
buffer = off

#lcd_send
lcd_out = buffer or (zeichen shr 4)
tog enable
tog enable
lcd_out = buffer or (zeichen and &h0f)
tog enable
tog enable
return

#ende
end
Ich glaube so war's, oder?