Code
klava:
key = 0 ' Обработка клавиатуры
col1 = 1
If raw1 = 1 Then
DelayMS 100
key = 1 ' 1
EndIf
If raw2 = 1 Then
DelayMS 100
key = 4 ' 4
EndIf
If raw3 = 1 Then
DelayMS 100
key = 7 ' 7
EndIf
If raw4 = 1 Then
DelayMS 100
key = 42 '*
EndIf
col1 = 0
col2 = 1
If raw1 = 1 Then
DelayMS 100
key = 2 ' 2
EndIf
If raw2 = 1 Then
DelayMS 100
key = 5 ' 5
EndIf
If raw3 = 1 Then
DelayMS 100
key = 8 ' 8
EndIf
If raw4 = 1 Then
DelayMS 100
key = 10 ' 0
EndIf
col2 = 0
col3 = 1
If raw1 = 1 Then
DelayMS 100
key = 3 ' 3
EndIf
If raw2 = 1 Then
DelayMS 100
key = 6 ' 6
EndIf
If raw3 = 1 Then
DelayMS 100
key = 9 ' 9
EndIf
If raw4 = 1 Then
DelayMS 200
If raw4 = 1 Then
DelayMS 500
key = 35 '#
EndIf
EndIf
col3 = 0
Return
Вот подпрограмма опроса клавиатуры. Пост 39.