(? #[() "ÀÁ!®…
ˆÃÄ!ˆÅÆÇ\042ˆÈ`ˆ‡\000" [boundp m-help-lsp () load "/usr/local/glisp/server/m-help.lsp" defvar dish-setup-last-pos 0 (m-frame-1 dish-setup-frame :width (m-scale-h 680 h-unit) :title "Dish Setup" :button (backquote ((m-input-1 dish-setup-low-band-freq :title "LNB Low Band Frequency (MHz)" :strings-length 5 :strings "" :help-message "Enter Frequency") (m-input-1 dish-setup-high-band-freq :title "LNB High Band Frequency (MHz)" :strings-length 5 :strings "" :help-message "Enter Frequency") (m-choice-2 dish-setup-22khz-tone :title "22KHz Command" :item ("Off" "On") :left-right-action (function (lambda (key) (write-back-bytes 30060 4 (m-choice-2-selected dish-setup-22khz-tone))))))) :info (backquote ((m-message-1 dish-setup-user-warning :title "Satellite channels may not be available if changed!" :title-x (backquote-unquote (m-scale-h 85 h-unit))) (m-message-1 dish-setup-dummy-1 :title ""))) :with-color-help t :with-numeric-input-help t :cursor-help-args (backquote (:cur-up-text-lst ("Select") :cur-right-text-lst ("" "Change") :enter-text-lst ("" "Access") :exit-text-lst ("EXIT") :return-text-lst ("RETURN"))) :color-help-args (backquote (:r-text "Reset all" :g-text "" :y-text "" :b-text "")) :last-pos (quote dish-setup-last-pos))] 11])
