es funktioniert, obwohl das return auch fehlte.... Also:

Code:
'LCD mit 2 Controllern

$regfile = "m32def.dat"                                     'AT-Mega32
$crystal = 1000000                                          'Quarz: 1 MHz

Dim X As Word                                               'Variable zum hochzählen

Dim ___lcdno As Bit

'Config Lcdpin = Pin , E = Portc.4 , E2 = Portc.5 , Rs = Portb.5 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4 , E2 = Portb.6

Config Lcd = 40 * 4
'_______________________________________________________________
Do


Incr X
Gosub Anzeige

Wait 1


Loop

'_______________________________________________________________

End





Anzeige:

 ___lcdno = 0                                               'Ober Displayhälfte initialisieren, wenn das Display zwei LCD-Controller besitzt
 Initlcd
 Cursor Off
 Cls
 Locate 1 , 1
 Lcd "1estesttesttesttesttesttest"
 Locate 2 , 1
 Lcd "2estesttesttesttesttesttest"


 ___lcdno = 1                                               'Dies ist nur notwendig wenn das Display zwei LCD-Controller besitzt
 Initlcd
 Cursor Off
 Cls
 Locate 1 , 1
 Lcd "3estesttesttesttesttesttest"
 Locate 2 , 1
 Lcd X                                                      '"4estesttesttesttesttesttest"

return