$regfile = "M16def.dat" : $crystal = 1000000 : $baud = 9600
'---------------------------------------------------
Config Lcdpin = Pin , Db7 = Pina.7 , Db6 = Pina.6 , Db5 = Pina.5 , Db4 = Pina.4 , E = Pina.3 , Rs = Pina.2
Config Lcd = 16 * 2
'---------------------------------------------------
Config Pinb.0 = Input
'---------------------------------------------------
Dim A(5) As Word , I As Byte , Receive As Word , B As Byte , C As Byte
'---------------------------------------------------
Cls
Home
Lcd "salam"
Wait 2
Cls
'---------------------------------------------------
A(1) = 22
A(2) = 510
A(3) = 190
A(4) = 179
A(5) = 21
I = 0
'---------------------------------------------------
Do
Delay
B = Ischarwaiting()
If B = 1 Then
    C = Udr
    Input Receive
    If Receive > 9 Then
        Lcd Receive
        Lcd " "
        Wait 2
    End If
End If

If Pinb.0 = 1 Then
   Incr I
   Print A(i)
   Waitms 5
   Lcd A(i) ; " "
   Wait 2
End If

Loop


End                                                         'end program