Um das so zu schreiben muss du "
Code:
" den text und "
2 schreiben.

Hier ist der code:

Code:
define lcd byteport[2]
define rw port[13]
define rs port[14]
define enable port[15]
define buffer byte
define parameter byte
define zahl word
define ziffer byte
define zaehler word
define a 97
define b 98
define c 99
define d 100
define e 101
define f 102
define g 103
define h 104
define i 105
define j 106
define k 107
define l 108
define m 109
define n 110
define o 111
define p 112
define q 113
define r 114
define s 115
define t 116
define u 117
define v 118
define w 119
define x 120
define y 121
define z 122
define ad1 ad[8]

gosub initialisierung
pause 10


#loop
zahl=ad1
gosub lcd_out
goto loop

#lcd_out
parameter=1
gosub whichline
ziffer=zahl/100
parameter=ziffer+48
gosub writeletter
zahl=zahl-ziffer*100
ziffer=zahl/10
parameter=ziffer+48
gosub writeletter
zahl=zahl-ziffer*10
ziffer=zahl
parameter=ziffer+48
gosub writeletter
return

#initialisierung
lcd=off
parameter=&h38:gosub command
lcd=&b00000010
tog enable
tog enable
parameter=&h28:gosub command
parameter=&h0c:gosub command

#clear
parameter=&h02:gosub command
parameter=&h02:gosub command
return

#lcd_shift
parameter=&b00011100
gosub command
pause 8
goto lcd_shift

#whichline
if parameter=1 then parameter=&h80
if parameter=2 then parameter=&hc0
goto command

#command
buffer=off
goto write_

#writeletter
buffer=&b00100000

#write_
lcd=buffer or (parameter shr 4)
tog enable
tog enable
lcd=buffer or (parameter and &h0f)
tog enable
tog enable
return
Um einen Buchstaben zu schreiben, musst du einfach nur schreiben:

parameter=m
gosub writeletter

Wenn der buchstabe groß geschrieben werden soll, muss du noch -32 dranhängen.