'-------------------------------------------------------
'uC Deklarationen

$regfile = "m32def.dat"
$crystal = 3686400

'-------------------------------------------------------

'-------------------------------------------------------

'Variablen deklarieren...

Dim Position As Byte , Wert As Byte

'-------------------------------------------------------


 '---Konfiguration des LCD Displays---

 Config Lcd = 16 * 2
 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.7 , Rs = Portc.6

 '------------------------------------------------------



Position = 0



Do


'Werte von oben nach unten aus Datentabelle lesen.../Position 0, 1, etc...

   Wert = Lookup(position , Daten)


   Cls
   Locate 1 , 1
   Lcd Position
   Locate 2 , 1
   Lcd Wert

   Position = Position + 1

   If Position = 7 Then Position = 0


Waitms 500




Loop


End


'Datentabelle...
Daten:

Data 12
Data 26
Data 31
Data 255
Data 51
Data 64
Data 78