Could someone post the macro for Zoom 1:1 scale?

I've seen some previous discussions on this topic but the links to the macro are no longer valid.

I like the one that has the input function to make it easier to calibrate for monitor.

Thanks a lot.

SolidworksUser Interface