Code: Select all
InitKeyboard()
InitMouse()
InitSprite()
OpenWindow(0,0,0,640,480,"MouseOverWindowedScreen",#PB_Window_WindowCentered|#PB_Window_SizeGadget)
OpenWindowedScreen(WindowID(0),0,0,640,480,1,0,0,#PB_Screen_WaitSynchronization)
CreateSprite(1,16,16)
Repeat
WindowEvent()
ExamineMouse()
ExamineKeyboard()
ClearScreen(RGB(255,255,255))
DisplaySprite(1,MouseX(),MouseY())
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)