3.3. maps1998m.el: Multi-station
sets, MAPS 1998 protocol
Like Section 3.1, “maps2004m.el: Multiple-station
sets, MAPS 2004/2006 protocol”, but uses the pre-2004
field layout, with ten micro-aging fields.
maps1998m.el
;; maps1998m.el: Set up field values and keybindings for
;; MAPS 2004 protocol, single stations.
;; To use, run emacs with this command line option:
;; emacs -l maps1998m filename
;;
(load "ibp.el")
(setq field-def-list
(vector
(field-def-object 4 "????") ;; Species code
(field-def-object 3 "0 " ) ;; Age, how-aged
(field-def-object 3 "u " ) ;; Sex, how-sexed
(field-def-object 4 nil ) ;; Skull through fat
(field-def-object 4 nil ) ;; Four old molt codes
(field-def-object 6 nil )
(field-def-object 4 nil ) ;; Ten new fields divided 6/4
(field-def-object 3 nil ) ;; Wing length
(field-def-object 4 nil ) ;; Weight
(field-def-object 5 "3????" ) ;; Status, date
(field-def-object 3 nil ) ;; Time
(field-def-object 4 nil ) ;; Station code
(field-def-object 2 nil ) ) ) ;; Net
(global-set-key "\C-i" 'ibp-tab)
(global-set-key [?\C-^] 'ibp-ditto)
(global-set-key [?\C-6] 'ibp-ditto)
