Habs jetzt nicht getestet (Alter Code verschmissen), aber sollte hinkommen:

Code:
$regfile = "m8def.dat"
$crystal = 4000000

Config Lcd = 40 * 4
Config Lcdpin = Pin , Rs = Portd.2 , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portd.3 , E2 = Portd.4

Dim ___lcdno As Bit
Dim Cvar As Integer
Cvar = 10

___lcdno = 0
  Initlcd
  Cursor Off
  Cls
___lcdno = 1
 Initlcd
 Cursor Off
 Cls

Do
___lcdno = 0
Upperline
Lcd Cvar
Waitms 1000
Decr Cvar
Cls
Loop
Zählt von 10 ab runter.
MfG,
ShadowPhoenix