my_window_mode = WindowMode(1,0,1,0,0)
WindowOpen ( 0, "わたしのアプリケーション", WINDOWPOS_CENTERED, WINDOWPOS_CENTERED, 640, 480, my_window_mode, 1 )
Dim x, y, mb1, mb2, mb3
While WindowExists( 0 )
GetGlobalMouse ( x, y, mb1, mb2, mb3 )
Print "マウスの座標は "; x; ","; y
Update()
Wend
これは 640 x 480 のウィンドウを開いた後に、ウィンドウを閉じるまでマウスのグローバル座標を表示し続けます。