Strict
Import mojo


Class Game Extends App

   Global   ScaleX#, ScaleY#, MausX%,MausY%
   
   Method OnCreate%()
      SetUpdateRate 60
      ScaleX=DeviceWidth()/500.0
      ScaleY=DeviceHeight()/300.0
      Return 0
   End   


   Method OnUpdate%()
      If KeyHit(KEY_ESCAPE) OnBack()
      EchteMaus
      Return 0
   End   


   Method EchteMaus:Void()
      MausY=(TouchY()/ScaleY)
      MausX=(TouchX()/ScaleX)
   End


   Method OnRender%()
      Scale ScaleX,ScaleY
      Cls 255,255,0
      SetColor 255,0,0
      DrawRect 4,4,490,290
      SetColor 255,255,0
      DrawRect 6,6,486,286
      SetColor 255,255,255
      DrawText "X=" + MausX + "   Y=" + MausY,200,130
      Return 0
   End   
   
   
   Method OnBack%()
      EndApp()
      Return 0
   End   
End


Function Main%()
   New Game
   Return 0
End

   Method OnCreate()
      SetUpdateRate(60)
      
      DeviceScaleX = (DeviceWidth() / 1280.0)
      DeviceScaleY = (DeviceHeight() / 720.0)
   End

......
...

   Method OnRender()
      Cls(128, 128, 128)

     PushMatrix()

      Scale DeviceScaleX, DeviceScaleY

      DrawImage(imgX, 320, 240, frameX)
      DrawImage(imgY, 280, 650, frameY)

     PopMatrix()
      
      DrawText "Scalex: " + DeviceScaleX, 0, 0
      DrawText "Scaley: " + DeviceScaleY, 0, 20

...