Cut & pasted the code here - sometime forum attachments get lost during upgrades & server migration.
--[[
@title Zoom Preset
@param z Zoom (%)
@default z 0
@range z 0 100
--]]
set_console_layout(1 ,1, 45, 14 )
sleep(2000)
if ( get_mode() == false ) then set_record(1)
while ( get_mode() == false ) do sleep(100) end
end
zstep=((get_zoom_steps()-1)*z)/100
print("Setting zoom to "..z.." percent. Step="..zstep)
sleep(500)
set_zoom(z)
sleep(1000)
exit_alt()