Attribute VB_Name = "Module"
Public Enum Polohy
  Sever = 1
  Jih = 2
  Vychod = 3
  Zapad = 4
End Enum

Public Type Karel
  Pozice As Integer
  Poloha As Polohy
End Type

Public Enum Typ_Prikazu
  Standard = 0
  Opakuj = 1
  Dokud = 2
  Prikaz = 3
End Enum

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer