help with zoom

Heres two examples to show what I mean, one with no position scaling...

Strict
Graphics 800,600,0,60
Local scale# = 1.0

While Not KeyHit(KEY_ESCAPE)
Cls
		
	SetScale(scale,scale)
	
	SetColor(255,0,0)
	DrawRect(0,0,100,100)

	SetColor(0,255,0)
	DrawRect(100,100,100,100)

	SetColor(0,0,255)
	DrawRect(200,200,100,100)
	
	SetColor(255,255,255)
	DrawText("JUST SCALED",90,145)
	
	' USE UP AND DOWN TO CHANGE SCALE
	If KeyDown(KEY_UP) Then scale:+(scale/25.0)
	If KeyDown(KEY_Down) Then scale:-(scale/25.0)
	
	Flip 1

Wend

And one with...

Strict
Graphics 800,600,0,60
Local scale# = 1.0

While Not KeyHit(KEY_ESCAPE)
Cls
		
	SetScale(scale,scale)
	
	SetColor(255,0,0)
	DrawRect(Int(0.0*scale),Int(0.0*scale),100,100)

	SetColor(0,255,0)
	DrawRect(Int(100.0*scale),Int(100.0*scale),100,100)

	SetColor(0,0,255)
	DrawRect(Int(200.0*scale),Int(200.0*scale),100,100)
	
	SetColor(255,255,255)
	DrawText("SCALED POSITION",Int(90.0*scale),Int(145.0*scale))
	
	' USE UP AND DOWN TO CHANGE SCALE
	If KeyDown(KEY_UP) Then scale:+(scale/25.0)
	If KeyDown(KEY_Down) Then scale:-(scale/25.0)
	
	Flip 1

Wend

I gave you an example of how to do it in my first post.