$Include "RapidQ.Inc"
$Include "WindowsAPI.Inc"
$Include "NOTA.INC"
$Escapechars on
$TypeCheck on

?
? "GetActiveWindow = ";GetActiveWindow
? "GetCurrentProcess = ";GetCurrentProcess
? "GetCurrentProcessId = ";GetCurrentProcessId
? "GetCommandLine = ";GetCommandLine
? "GetCapture = ";GetCapture
? "GetConsoleCP = ";GetConsoleCP
? "GetCurrentThread = ";GetCurrentThread
? "GetCurrentThreadID = ";GetCurrentThreadID
? "GetCursor = ";GetCursor
? "GetDesktopWindow = ";GetDesktopWindow
? "GetDialogBaseUnits = ";GetDialogBaseUnits
? "GetDoubleClickTime = ";GetDoubleClickTime
? "GetEnvironmentStrings = ";GetEnvironmentStrings
? "GetFocus = ";GetFocus
? "GetForegroundWindow = ";GetForegroundWindow
? "GetInputState = ";GetInputState
? "GetKBCodePage = ";GetKBCodePage
? "GetLogicalDrives = ";GetLogicalDrives
? "GetMenuCheckMarkDimensions = ";GetMenuCheckMarkDimensions
? "GetMessageExtraInfo = ";GetMessageExtraInfo
? "GetMessagePos = ";GetMessagePos
? "GetMessageTime = ";GetMessageTime
? "GetOEMCP = ";GetOEMCP
? "GetOpenClipboardWindow = ";GetOpenClipboardWindow
? "GetProcessHeap = ";GetProcessHeap
? "GetProcessWindowStation = ";GetProcessWindowStation
? "GetSystemDefaultLangID = ";GetSystemDefaultLangID
? "GetSystemDefaultLCID = ";GetSystemDefaultLCID
? "GetThreadLocale = ";GetThreadLocale
? "GetTickCount = ";GetTickCount
? "GetUserDefaultLangID = ";GetUserDefaultLangID
? "GetUserDefaultLCID = ";GetUserDefaultLCID
? "GetVersion = ";GetVersion

?
? "Press any key..."
dim Key$ as String
while Key$ = ""
	Key$ = InKey$
wend