$regfile "89C51ED2.dat"
$baud = 9600                                                  'set your own baudrate
$crystal = 20000000

Dim S1 As String * 16
Dim I As Integer
Dim Count As Integer

On Kbd Kbd_init

Enable Interrupts
Enable Kbd                                                    'set your own crystal frequen

 Do
   Print Count
   If Count > 10 Then
      I = Makeint(p1 , P4)
      S1 = Bin(i)
      Print "Port1: " ; S1
      Count = 0
   End if
 Loop
End

Kbd_init:
Incr Count
Return