(? #[() "ÀÁÂ\042ˆÀÃÂ\042ˆÄ`ˆÅÆ`Ç`È`É`$
ˆ‡\000" [defvar freesat-setup-menu-last-pos 0 menu-freesat-setup-menu-last-id (menu-global-search-cursor-pos menu-freesat-setup-item-list menu-freesat-setup-menu-last-id) list (make-menu-items (quote freesat-setup-menu-favourites) 2 (backquote (m-access-3 freesat-setup-menu-favourites :title "Favourites Edit" :enter-action (function (lambda (key) (lock-top-keys 500) (write-back-bytes 1010 4 8888)))))) (make-menu-items (quote freesat-setup-menu-ch-list) 2 (backquote (m-access-3 freesat-setup-menu-ch-list :title "Channel List" :enter-action (function (lambda (key) (lock-top-keys 500) (write-back-bytes 1011 4 8888)))))) (make-menu-items (quote freesat-setup-menu-atp) 2 (backquote (m-access-3 freesat-setup-menu-atp :title "Auto Setup" :enter-action (function (lambda (key) (lock-top-keys 500) (write-back-bytes 1051 4 8888)))))) (make-menu-items (quote freesat-setup-menu-signal-cond) 2 (backquote (m-access-3 freesat-setup-menu-signal-cond :title "Signal Condition" :enter-action (function (lambda (key) (write-back-bytes 1020 4 8888)))))) freesat-setup-menu-list] 14])
(! 'make-freesat-setup-menu-button-list #[() "ˆ	@«„Â`ªƒˆ‡\000" [() menu-freesat-setup-item-list (menu-global-make-button-list (reverse menu-freesat-setup-item-list) () freesat-setup-menu-list)] 11])
(? #[() "À`ˆ‡\000" [(m-frame-1 freesat-setup-menu :width (m-scale-h *menu-width* h-unit) :height (m-scale-v 400 v-unit) :title "freesat Tuning Menu" :button (make-freesat-setup-menu-button-list) :last-pos (quote freesat-setup-menu-last-pos))] 9])
