質問しておきながら自己解決できました。
お騒がして申し訳ありませんでした。
以下で出せました。
#module
#defcfunc zoomxy int moto_x,int moto_y,int x
return (x * 1000 / moto_x) * moto_y / 1000 + 1
#defcfunc zoomyx int moto_x,int moto_y,int y
return (y * 1000 / moto_y) * moto_x / 1000 + 1
#global
;var = zoomxy(p1,p2,p3)
; 変更したい横の大きさから縦の大きさを出す
; p1:元の大きさ(横)
; p2:元の大きさ(縦)
; p3:変更したい大きさ(横)
;
;var = zoomyx(p1,p2,p3)
; 変更したい縦の大きさから横の大きさを出す
; p1:元の大きさ(横)
; p2:元の大きさ(縦)
; p3:変更したい大きさ(横)
y = zoomxy(1024,768,800)
x = zoomyx(1024,768,y)
mes "x=" + x + ",y=" + y
x = zoomyx(1024,768,2000)
y = zoomxy(1024,768,x)
mes "x=" + x + ",y=" + y