[moka]

Game = 1
Global mouse
Graphics3D 800,600,32,Mode
SetBuffer BackBuffer()
LoadMouse()

Repeat
Select game
   Case 1
      Repeat
         Cls
         If KeyHit(57) game = 2
         DrawImage mouse,MouseX(),MouseY() 
         Flip
      Until game = 2
   Case 2
      Repeat
         Cls
         If KeyHit(1) End
         DrawImage mouse,MouseX(),MouseY()
         Flip
      Forever
End Select

Function LoadMouse()
  Mouse=LoadImage("mouse.png")
End Function