мб MidHandleImage(image:TImage)
?
Graphics 800, 600, 0
Global sImage:TImage = LoadImage("sPictur.png")
MidHandleImage(sImage)
Global zoom:Float = 0.5
SetScale(zoom:Float, zoom:Float)
While Not KeyHit(KEY_ESCAPE)
Cls()
If KeyHit(KEY_UP)
zoom:Float = zoom:Float + 0.01
ElseIf KeyHit(KEY_DOWN)
zoom:Float = zoom:Float - 0.01
End If
SetScale(zoom:Float, zoom:Float)
DrawImage(sImage:TImage, GraphicsWidth() / 2, GraphicsHeight() / 2)
Flip()
Wend