1_$regfile="m8def.dat"
2_$crystal=8000000
3_Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , -
4_db6 = Pinc.4 , Db7 = Pinc.5 , E = Pinc.1 , Rs = Pinc.0     
5_Config Lcd = 16 * 2   
6_Config Timer1 = Timer , Prescale = 8        
7_Config Int1 = Rising
8_Enable Interrupts
9_Enable Int1
10_On Int0 Receive  
11_Dim A As Single , B As Single 
12_Config Pind.6 = Output  
13_Cls
14_Cursor Off 

15_Do
16_Start Timer1  
17_Set Portd.6      
18_Waitms 500
19_Reset Portd.6
20_Waitms 100
21_Loop
22_End


23_Receive :
24_Stop Timer1 
25_Reset Portd.6
26_A = Timer1
27_B = A
28_If a > 8000 Then
29_Cls
30_Home
31_Lcd "OUT OF RANGE"
32_Goto Down
33_End If
34_A = A / 100
35_Cls
36_Home
37_Lcd A
38_Locate 2 , 1
39_Lcd B


40_Down :
41_Timer 1 = 0
42_A = 0
43_B = 0
44_Return