$regfile = "m8def.dat" $crystal = 7372800 Dim Tastex As Byte , Tastey As Byte , Taste As Byte Dim X As Byte , Y As Byte , Z As Byte Dim Tast As Byte Config Portd = &B00000111 Portd = &B11111000 Portd.0 = 1 Portd.1 = 1 Portd.2 = 1 Cls Do For X = 0 To 2 Portd.x = 0 For Y = 1 To 4 Z = Y + 2 If Pind.z = 0 Then Tastex = X + 1 Tastey = Y End If Next Y Portd.x = 1 Z = 0 Next Taste = Tastex + Tastey Taste = Taste * Tastey Select Case Taste Case 2 : Tast = 1 Case 3 : Tast = 2 Case 4 : Tast = 3 Case 6 : Tast = 4 Case 8 : Tast = 5 Case 10 : Tast = 6 Case 12 : Tast = 7 Case 15 : Tast = 8 Case 18 : Tast = 9 Case 24 : Tast = 0 End Select Locate 1 , 1 Lcd Tastex ; " " Lcd Tastey ; " " Locate 2 , 1 Lcd Tast ; " " Waitms 60 Loop