Dein Wunsch sei mir Befehl!
Er bewirkt nur ein stetiges heraufzählen um den definierten Wert

Code:
$regfile = "attiny2313.dat"
$crystal = 8000000

Dim A As Long
Config Portd = Output
Config Portb = Output
Config Lcd = 40 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portd.2 , Rs = Portd.0
A=0

Initlcd
Cls

Do
A = A + 531
Locate 1 , 1
Lcd B
Waitms 500
Loop

End