Hi, ich hab hier ein Problem dass ich irgentwie nich wegbekomm:

Code:
$regfile = "m32def.dat"
 $crystal = 16000000

 Declare Function Acttime(byval X As Long) As Integer

 Config Lcd = 16 * 1a
 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
 Config Lcdbus = 4
 Cursor Off , Noblink

 Config Timer1 = Timer , Prescale = 1024
 Enable Timer1
 On Timer1 Subroutine
 Enable Interrupts

 Dim X As Long

 Do



   Wait 1



 Loop


 Function Acttime(byval X As Long) As Integer
 Cls
 Locate 1 , 1
 Lcd Str(x)
 End Function

 Subroutine:
 X = X + 1
 Acttime(x)
 Return

Bascom sagt in der Subroutine zu "Acttime(x)" --> Unknown Statement

wieso?



Gruß Robin