$regfile = "reg51.dat" $crystal = 11059200 Dim C11 As Integer Dim C12 As Integer Dim C20 As Integer Dim Z As Byte Dim Y As Byte Dim X As Bit Config Timer0 = Counter0 , Gate = Internal , Mode = 1 Do 'set up a loop Bitwait P2.7 , Reset Counter0 = 0 'clear counter Start Counter0 Bitwait P2.7 , Set Bitwait P2.7 , Reset ...