BASCOM simple Uhr

[runner02]

 $regfile = "m8def.dat"
 $crystal = 1000000
 $hwstack = 130
 $swstack = 130

 Config Portd = Output
 Config Timer1 = Timer , Prescale = 1024
 Enable Timer1
 Dim minutes as Byte
 Dim hours as Byte
 Dim day as Integer
 Dim tausender as Byte
 Dim hunderter as Byte
 Dim zehner as Byte
 Dim einer as Byte
 Dim i as Byte 

 DDRD=&B11111111
 DDRC=&B11111111
 DDRB=&B11111000


 On Timer1 Isr_von_timer1

 Enable Interrupts
 Timer1 = 6942

 
     Do     ' Hauptprogramm

            if hours=23 and minutes=50 then   ' Fehler: 'three parameters expected' in file C/.../Uhr.bas?

             day=day+1
             hours=0
            end if
        
   If Pinb.0 = 1 Then
   minutes=minutes+1   
   End If
   
    If Pinb.1 = 1 Then   ' Taster, um die Uhr einzustellen
   hours=hours+1   
   End If
 
 If Pind.b = 1 Then
   day=day+1   
   End If

 If Pinb.3 = 1 Then
   day=day+100   
   End If

            If Pinb.4 = 1 Then     ' gib die Anzahl der laufenden Tage an
   
           
                tausender=day/1000
        hunderter=(day-1000*tausender)/100
        
        zehner=(day-1000*tausender-100*hunderter)/10
        
        einer=(day-1000*tausender-100*hunderter-10*zehner)

        

                     for i=0 to i=tausender step 1  'jedes mal blinken gibt einen Tausender -> 5* blinken = 5000 
        
                          Pinb.5=1
                           waitms 100
                       
                           Pinb.5=0
                           waitms 100
               
                         Next

         for i=0 to i=hunderter step 1
            
            Pinb.6=1
                        waitms 100
                       
                        Pinb.6=0
                        waitms 100
                              
                   Next


         for i=0 to i=zehner step 1
    
            Pinb.7=1
                        waitms 100
                       
                        Pinb.7=0
                        waitms 100
         
                    Next


                  for i=0 to i=einer step 1
            
            Pind.7=1
                        waitms 100
                       
                        Pind.7=0
                        waitms 100
        
                     Next



   
             End If
            
PORTD=Bin(minutes)
PORTC=Bin(hours)
     
      Loop
      End



 Isr_von_timer1:

 Timer1 = 6942

minutes=minutes+1
 if minutes=60 
   then minutes = 0
    hours=hours+1
 end if

PORTD=Bin(minutes)
PORTC=Bin(hours)


 Return


 'Line 0 Loop expected, in file:   <- leer, keine Pfadangabe[/QUOTE]

Hm, wie kann ich die loop noch verändern??? klein schreiben wird das selbe sein, oder??

EDIT: Du meinst, wenn then oben steht geht es? Ich probiers mal und post es dann