(? #[() "ÀÁÂ\042ˆÀÃÄ\042ˆÅÅÆÇ!!ÅÆÈ!!\042	ˆÊ`ˆË`ˆ‡\000" [defvar ant-in-last-pos 0 ant-in-initsetup () list backquote (m-access-1 ant-in-cable :title (backquote-unquote (gettext "Cable")) :title-pos center :enter-action (function (lambda (key) (write-back-bytes 30109 4 0) (when ant-in-initsetup (write-back-bytes 20032 4 1))))) (m-access-1 ant-in-antenna :title (backquote-unquote (gettext "Antenna")) :title-pos center :enter-action (function (lambda (key) (write-back-bytes 30109 4 1) (when ant-in-initsetup (write-back-bytes 20032 4 1))))) ant-in-btn-list (m-frame-1 ant-in-frame :title (gettext "ANT in") :button ant-in-btn-list :multi-cols t :with-cursor-help t :cursor-help-args (if ant-in-initsetup (list :enter-text-lst (list (gettext "Start Auto Setup")) :cur-right-text-lst (list (gettext "Select"))) (list :enter-text-lst (list (gettext "Start Auto Setup")) :cur-right-text-lst (list (gettext "Select")) :return-text-lst (list (gettext "Return")))) :info2 (if ant-in-initsetup () (backquote (m-gmbox-gtext2 () :h (backquote-unquote (m-scale-v 66 v-unit)) :txt-y (backquote-unquote (m-scale-v 40 v-unit)) :v (backquote-unquote (gettext "All tuning data will be erased")) :pos center))) :last-pos (quote ant-in-last-pos)) (set-my-dwin-child ant-in-frame)] 14])
