(? #[() "ÀÁ!®…
ˆÃÄ!ˆÀÅ!®…
ˆÃÆ!ˆÀÇ!®…
ˆÃÈ!ˆÉÊË\042ˆÉÌÍ\042ˆÉÎÏ\042ˆÉÐÑ\042ˆÒˆÔÕ!ˆ×ˆÙˆÛˆÝ`ˆÞ`ˆß`ˆ‡\000" [boundp m-help-lsp () load "/usr/local/glisp/server/m-help.lsp" m-widget.lsp "/usr/local/glisp/server/m-widget.lsp" m-panel-lsp "/usr/local/glisp/server/m-panel.lsp" defvar h-unit (m-get-h-unit SCR_LOCAL) v-unit (m-get-v-unit SCR_LOCAL) lnb-freq-max-digit 5 lnb-freq-valid-digit 4 2 lnb-config-last-pos backquote ((backquote-unquote (gettext "Auto"))) lnb-list-auto ("A") lnb-list-single ("AA" "AB") lnb-list-minidiseqc ("AA" "AB" "BA" "BB") lnb-list-diseqc (m-frame-1 lnb-config-frame :fullscreen-mode t :with-title-underline t :title (gettext "LNB Configuration") :info2 (list (backquote (m-dac-bar-4 lnb-config-sig-qual :title (backquote-unquote (gettext "Signal Quality")) :min-val 0 :max-val 10 :cur-val 0)) (backquote (m-dac-bar-4 lnb-config-sig-stren :title (backquote-unquote (gettext "Signal Strength")) :min-val 0 :max-val 10 :cur-val 0)) (quote (m-message-1 lnb-config-dummy1-all-sat :title ""))) :button (backquote ((m-choice-2 lnb-config-select :title (backquote-unquote (gettext "LNB")) :item ("AA" "AB" "BA" "BB") :left-right-action (function (lambda (key) (write-back-bytes 1003 4 (m-choice-2-selected lnb-config-select))))) (m-input-1 lnb-config-low-band-freq :title (backquote-unquote (gettext "LNB Low Band Frequency")) :strings-length (backquote-unquote lnb-freq-max-digit) :strings "" :unit-string "MHz" :help-message (backquote-unquote (gettext "Enter frequency"))) (m-input-1 lnb-config-high-band-freq :title (backquote-unquote (gettext "LNB High Band Frequency")) :strings-length (backquote-unquote lnb-freq-max-digit) :strings "" :unit-string "MHz" :help-message (backquote-unquote (gettext "Enter frequency"))) (m-choice-2 lnb-config-satellite :title (backquote-unquote (gettext "Satellite")) :item ("satellite") :left-right-action (function (lambda (key) (write-back-bytes 1007 4 (m-choice-2-selected lnb-config-satellite))))) (m-input-1 lnb-config-test-trans-freq :title (backquote-unquote (gettext "Test Transponder Frequency")) :strings-length (backquote-unquote lnb-freq-max-digit) :strings "" :unit-string "MHz" :help-message (backquote-unquote (gettext "Enter frequency"))))) :cursor-help-args (backquote (:cur-right-text-lst ((backquote-unquote (gettext "Change")) "") :cur-up-text-lst ((backquote-unquote (gettext "Select"))) :enter-text-lst ("") :exit-text-lst ((backquote-unquote (gettext "Exit"))) :return-text-lst ((backquote-unquote (gettext "Return"))))) :last-pos (quote lnb-config-last-pos) :with-numeric-input-help t) (m-panel-2 lnb-config-error-popup :message "Please enter a frequency between 9750 and 10750 MHz.
EXIT: Cancel
RETURN: Re-enter") (m-panel-2 lnb-config-ttrans-error-popup :message "Please enter a frequency between 10700 and 12750 MHz.
EXIT: Cancel
RETURN: Re-enter")] 11])
