$regfile = "m8def.dat"
$crystal = 8000000



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


Dim B As Byte
Dim Spalte As Byte
Dim C As Integer
Dim Ce As Eram Integer

Config Portd.0 = Input
Config Portd.1 = Input





Portd = &B0000011



C = Ce

If C < 0 Then
             C = 0
             Spalte = 11
             End If
If C >= 0 Then Spalte = 11
If C >= 10 Then Spalte = 10
If C >= 100 Then Spalte = 9

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



Geber_abfrage:

     B = Encoder(pind.0 , Pind.1 , Links , Rechts , 0)
     Locate 1 , 2 : Lcd "Time:" : Locate 1 , Spalte : Lcd C
     Locate 1 , 13 : Lcd "sec."




Goto Geber_abfrage
End



' Rotations - sub - routine
'
Links:
C = C - 5
If C <= 1 Then C = 0
If C < 100 Then Spalte = 10
If C < 10 Then Spalte = 11
Cls
Return

Rechts:
C = C + 5                                                   '
If C >= 10 Then Spalte = 10
If C >= 100 Then Spalte = 9
Cls
Return






Stop
End
'---------------------------------------------------------