(? #[() "ÀÁÂ\042ˆÀÃÄ\042ˆÀÅÂ\042ˆÆÆÇÈ!ÇÉ!\042!
ˆË`ˆÌ`ˆ‡\000" [defvar safety-preaution-again 0 safety-precaution-mess (if (string= *m-area* "arabic") (concatenate (quote string) (gettext "To enjoy your Electronic Touch Pen safely and comfortably please read the Operation instructions.") "

" (gettext "Take a 10 to 15 minute break every hour when using your Electronic Touch Pen.") "
" (gettext "Please stop using your Electronic Touch Pen if you feel tired, are not feeling well or experience any other uncomfortable sensation.") "

" (gettext "Excessive pressure from your Electronic Touch Pen may damage your TV screen.") "
" (gettext "Please avoid prolonged contact with your TV if it becomes hot.")) (concatenate (quote string) (gettext "To enjoy your Electronic Touch Pen safely and comfortably please read the Operation instructions.") "

" "-" (gettext "Take a 10 to 15 minute break every hour when using your Electronic Touch Pen.") "
" "-" (gettext "Please stop using your Electronic Touch Pen if you feel tired, are not feeling well or experience any other uncomfortable sensation.") "

" "-" (gettext "Excessive pressure from your Electronic Touch Pen may damage your TV screen.") "
" "-" (gettext "Please avoid prolonged contact with your TV if it becomes hot."))) safety-precaution-last-pos list backquote (m-access-6 safety-precaution-check-btn :sname (backquote-unquote (gettext "Don't show this message again")) :normal-icon "check.png" :focus-icon "check_black.png" :normal-dis-icon "check_blank.png" :focus-dis-icon "check_blank_black.png" :enter-action (function (lambda (key) (progn (safety-precaution-toggle-checkbx) (write-back-bytes 5 8 4 safety-preaution-again))))) (m-access-1 safety-precaution-close-btn :title (backquote-unquote (gettext "Pen Close")) :title-pos center :enter-action (function (lambda (key) (unmap-safety-precaution)))) safety-precaution-btn-lst (m-frame-1 safety-precaution :width (m-scale-h 820 h-unit) :title (gettext "Electronic Touch Pen Safety Precautions") :info2 (backquote (m-gtext-box () :line-skip (backquote-unquote (m-scale-v 20 v-unit)) :fnt (backquote-unquote font-c-id) :v (backquote-unquote safety-precaution-mess) :pos (backquote-unquote (if (string= *m-area* "arabic") (quote right) (quote left))))) :last-pos (quote safety-precaution-last-pos) :multi-cols t :button safety-precaution-btn-lst :cursor-help-args (backquote (:enter-text-lst ((backquote-unquote (gettext "Confirm"))) :cur-up-text-lst ((backquote-unquote (gettext "Select"))) :return-text-lst ((backquote-unquote (gettext "Return")))))) (btset-set-my-dwin-child safety-precaution)] 14])
