Scaling Graphics depending on resolution

It doesn't seem to work, is this right?

Select ResolutionMode
	Case 1
		Width = 1600	;Height = 1200 
		ScaleWidth=1 	;ScaleHeight#=1
	Case 2
	'	Width = 1280	;Height = 1024 
	'	ScaleWidth=1.25	;ScaleHeight#=1.171875			
	Case 3
		width = 1024 	;Height = 768 
		ScaleWidth=0.64	;ScaleHeight#=0.64		
	Case 4
		width = 800		;Height = 600 
		ScaleWidth=0.5	;ScaleHeight#=0.5		
	Default
		width = 800		;Height = 600 
		ScaleWidth=0.5	;ScaleHeight#=0.5	
End Select

Global Sc# = 1'ScaleWidth
SetMatrix(1600,1200 ,ScaleWidth )

And with your Bitmap Font mod:
How do I do with big and small letters?