(? #[() "ÀÁÂ\042ˆÃÄ!®…
ˆÆÇ!ˆÃÈ!®…
ˆÆÉ!ˆÃÊ!®…
ˆÆË!ˆÀÌÍ\042ˆÀÎÏ\042ˆÀÐÑ\042ˆÀÒÅ\042ˆÀÓÅ\042ˆÀÔÅ\042ˆÀÕÅ\042ˆÀÖÅ\042ˆÀ×Å\042ˆÀØÅ\042ˆÀÙÅ\042ˆÀÚÅ\042ˆÛÜÝ!ÜÞ!Üß!# ˆá`ˆ
 ˆâ`ˆ‡\000" [defvar owner_id_data-lsp t boundp m-help-lsp () load "/usr/local/glisp/server/m-help.lsp" m-panel-lsp "/usr/local/glisp/server/m-panel.lsp" m-widget-lsp "/usr/local/glisp/server/m-widget.lsp" h-unit (m-get-h-unit SCR_LOCAL) v-unit (m-get-v-unit SCR_LOCAL) owner-id-data-entry-last-pos 0 owner-id-pin-button owner-id-name-button owner-id-house-button owner-id-postcode-button owner-id-pin-button-val owner-id-name-button-val owner-id-house-button-val owner-id-postcode-button-val is-control-panel-with-side list backquote (m-access-5 owner-id-name-button :title (backquote-unquote (gettext "NAME")) :enter-action (function owner-id-data-entry-key-name)) (m-access-5 owner-id-house-button :title (backquote-unquote (gettext "HOUSE NO")) :enter-action (function owner-id-data-entry-key-house)) (m-access-5 owner-id-postcode-button :title (backquote-unquote (gettext "POSTCODE")) :enter-action (function owner-id-data-entry-key-postcode)) data-btn (m-frame-1 owner-id-data-entry :width (m-scale-h 600 h-unit) :title (if owner-id-front-pane-start (gettext "Owner ID") (gettext "Owner ID-Data Entry")) :button (if owner-id-front-pane-start data-btn (cons (backquote (m-access-5 owner-id-pin-button :title (backquote-unquote (gettext "PIN")) :enter-action (function owner-id-data-entry-key-pin))) data-btn)) :with-cursor-help (not owner-id-front-pane-start) :cursor-help-args (list :cur-up-text-lst (list (gettext "Select") "") :enter-text-lst (list (gettext "Change PIN") (gettext "Edit")) :exit-text-lst (list (gettext "Exit") "") :return-text-lst (list (gettext "Return") "")) :with-front-panel-help owner-id-front-pane-start :front-panel-help-args (list :f-text (gettext "Exit") :fntpnl-layout (if is-control-panel-with-side "vertical" "horizontal")) :last-pos (if owner-id-front-pane-start () (quote owner-id-data-entry-last-pos))) (m-panel-2 owner-id-police-warning :x (get-x owner-id-pin-entry) :text-w (get-width owner-id-pin-entry) :left-margin 0 :banner-offset (+ (/ (get-height owner-id-pin-entry) 2) (m-scale-h 20 h-unit)) :message "You now have the opportunity to enter your
details and help the police to crack crime.
See Instruction Book." :back-col POPUP-BACK-16-COL :txt-col POPUP-TEXT-16-COL)] 14])
