%
% track the dimensions of the screen
%
dims
dup !App.ScreenY
!App.Height

dup !App.ScreenX
!App.Width
!App.TwipY
dup !TwipsPerPixel
!App.TwipX

_App.Width 1920.0 div
_App.Height 1080.0 div
min 100 mul normint
!App.Zoom