;;; control file to edit the brothers database
     
(setq forms-file "brothers.dat")

;;;     (setq forms-read-only t)                 ; to make sure
(setq forms-field-sep ":")

;;; Don't allow multi-line fields.
(setq forms-multi-line nil)

(setq forms-number-of-fields 38)

(setq forms-format-list
      (list
       "====== " forms-file " ======\n"
       "\n   Chapter Number: " 1 "   National Number: " 2 "   LM Number: " 3
       "\n             Date: " 4
       "\n           Prefix: " 5
       "\n       Given Name: " 6
       "\n         Nickname: " 7
       "\n          Surname: " 8
       "\n           Suffix: " 9
       "\n              DOB: " 13
       "\n       Birthplace: " 17
       "\n   Big Brother #1: " 33
       "\n   Big Brother #2: " 34
       "\n   Big Brother #3: " 35
       "\n   Big Brother #4: " 36
       "\n          TX From: " 15
       "\n   Arrived at CMU: " 18
       "\n            Major: " 23
       "\n            Class: " 27
       "\n  Scouting record: " 28
       "\n Other activities: " 29
       "\n        Mem Class: " 11 "   Subclass: " 12
       "\n    A/H Job Title: " 21
       "\n   Date bec. Adv.: " 22
       "\n            Deg 1: " 24
       "\n            Deg 2: " 25
       "\n            Deg 3: " 26
       "\n            Deg 4: " 37
       "\n            Deg 5: " 38
       "\n            Notes: " 10
       "\n              M/F: " 30
       "\n"))

;;; EOF