ايران ويج

$regfile = "m16adef.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Cursor Off


Config Timer0 = Counter , Edge = Rising
Enable Interrupts
Enable Ovf0
On Ovf0 S

Start Counter0
Dim B As Byte

Do
Locate 1 , 1 : Lcd Counter0
Loop
End

S:
Cls
Incr B
Locate 2 , 1 : Lcd "tedad dafeat " ; B

Return