procedure eve_lock_map_module_init eve$x_map_locked := 0; endprocedure; procedure eve_lock_map if (eve$x_map_locked) then eve$x_map_locked := 0; else eve$x_map_locked := 1; endif; endprocedure