Set Portb.0
Set Portb.1
Set Portb.2
Set Portb.3
Set Portb.4
Set Portb.5
Set Portb.6
Set Portb.7
'Reset Portd
Set Portd.5
Set Portd.6
Set Portd.7
Do
'If Pind.0 = 0 Then Pulseout Portd , 5 , 10
If Pind.4 = 1 Then Goto Dtmfst
' 1
If Pind.0 = 1 And Pind.1 = 0 And Pind.2 = 0 And Pind.3 = 0 Then Portd.5 = 0
' 2
If Pind.0 = 0 And Pind.1 = 1 And Pind.2 = 0 And Pind.3 = 0 Then Portd.6 = 0
' 3
If Pind.0 = 1 And Pind.1 = 1 And Pind.2 = 0 And Pind.3 = 0 Then Portd.7 = 0
' 4
If Pind.0 = 0 And Pind.1 = 0 And Pind.2 = 1 And Pind.3 = 0 Then Portb.0 = 0
' 5
If Pind.0 = 1 And Pind.1 = 0 And Pind.2 = 1 And Pind.3 = 0 Then Portb.1 = 0
' 6
If Pind.0 = 0 And Pind.1 = 1 And Pind.2 = 1 And Pind.3 = 0 Then Portb.2 = 0
' 7
If Pind.0 = 1 And Pind.1 = 1 And Pind.2 = 1 And Pind.3 = 0 Then Portb.3 = 0
' 8
If Pind.0 = 0 And Pind.1 = 0 And Pind.2 = 0 And Pind.3 = 1 Then Portb.4 = 0
' 9
If Pind.0 = 1 And Pind.1 = 0 And Pind.2 = 0 And Pind.3 = 1 Then Portb.5 = 0
' 0
If Pind.0 = 0 And Pind.1 = 1 And Pind.2 = 0 And Pind.3 = 1 Then Portb.6 = 0
' *
If Pind.0 = 1 And Pind.1 = 1 And Pind.2 = 0 And Pind.3 = 1 Then Portb.7 = 0
' #
If Pind.0 = 0 And Pind.1 = 0 And Pind.2 = 1 And Pind.3 = 1 Then Portb.8 = 0
Wait 2
Set Portd.5
Set Portd.6
Set Portd.7
Set Portb.0
Set Portb.1
Set Portb.2
Set Portb.3
Set Portb.4
Set Portb.5
Set Portb.6
Set Portb.7
Dtmfst:
Loop
End