home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-12-01 | 53.3 KB | 3,561 lines | [TEXT/MSWD] |
- @@GeDF@@_Unknown_ Printing
- ! static text with level and tab
- newline
- get *name
- if
- style static
- text *lev
- text " "
- text *tag
- else
- style label
- text *it
- endif
- text :
- get #rtjs
- if 1
- justify right
- endif
- tabwidth 2
-
- ! edit field with value
- hskip 5
- style editvalue
- width -1
- newline
- @@GeDF@@Individual Events
- BIRT Birth
- CHR Christening
- DEAT Death
- BURI Burial
- CREM Cremation
- ADOP Adoption
- BAPL LDS Baptism
- BAPM Baptism
- BARM Bar Mitzvah
- BASM Bas Mitzvah
- BLES Blessing
- CAST Caste Name
- CENS Census
- CHRA Adult Christening
- CONF Confirmation
- CONL LDS Confirmation
- DSCR Physical Description
- EDUC Education
- EMIG Emigration
- ENDL LDS Endowment
- EVEN Generic Event
- FCOM First Communion
- GRAD Graduation
- IDNO National ID Number
- IMMI Immigration
- NATI National or Tribal Origin
- NATU Naturalization
- NCHI Number of Children
- NMR Count of Marriages
- OCCU Occupation
- ORDN Ordination
- PROB Probate
- PROP Possessions
- RELI Religious Affiliation
- RETI Retirement
- RESI Residence
- SLGC LDS Child Sealing
- SSN Social Security Number
- TITL Nobility Type Title
- WILL Will
- @@GeDF@@Family Events
- ANUL Annulment
- CENS Census
- DIV Divorce
- DIVF Divorce Filed
- EVEN Generic Event
- ENGA Engagement
- SLGS LDS Spouse Sealing
- MARB Marriage Bann
- MARC Marriage Contract
- MARL Marriage License
- MARR Marriage
- MARS Marriage Settlement
- NCHI Number of Children
- @@GeDF@@GEDCOM Tag Names
- ABBR Short Title
- ADOP Adoption
- ADR1 Address Line 1
- ADR2 Address Line 2
- AGE Age
- AGNC Agency
- ANCE Gens. of Ancestors
- ANUL Anulment
- AFN Ancest. File No.
- BAPL LDS Baptism
- BAPM Baptism
- BARM Bar Mitzvah
- BASM Bas Mitzvah
- BLES Blessing
- BURI Burial
- CALN Call Number
- CAST Caste Name
- CAUS Cause
- CENS Census
- CHAR Character Set
- CHR Christ'ing
- CHRA Adult Chr
- CITY City
- CONF Confirmation
- CONL LDS Confirmation
- COPR Copyright
- CORP Corporation
- CREM Cremation
- CTRY Country
- DATE Date
- DEAT Death
- DESC Gens. of Descendents
- DEST Dest File
- DIV Divorce
- DIVF Div. Filed
- DSCR Physical Descrip.
- EMIG Emigration
- ENGA Engaged
- ENDL LDS Endowment
- EVEN Event
- EDUC Education
- FAMF Family File
- FCOM First Communion
- FILE File
- FORM Form
- GIVN Given
- GRAD Graduation
- IDNO Nat. ID No.
- IMMI Immigrat'n
- LANG Language
- MARB Marr. Bann
- MARC M. Contract
- MARL M. License
- MARR Marriage
- MARS Settlement
- MEDI Media Type
- NATI Nationality
- NATU Nat'rlized
- NCHI No. of Children
- NICK Nickname
- NMR No. of Marriages
- NPFX Prefix
- NSFX Suffix
- OCCU Occupation
- ORDI Ord. Process Flag
- ORDN Ordination
- PAGE Page
- PEDI Pedigree
- PHON Phone No.
- PLAC Place
- POST Postal Code
- PROB Probate
- PROP Possessions
- QUAY Quality
- REFN User Ref. No.
- RELA Relationship
- RELI Religion
- RESI Residence
- RESN Restriction
- RETI Retirement
- RFN Record File No.
- RIN Record ID
- SLGC LDS Child Sealing
- SLGS LDS Spouse Sealing
- SPFX Sur Prefix
- SSN Soc. Sec. No.
- STAE State
- STAT Status
- SURN Surname
- TEMP Temple
- TITL Title
- TIME Time
- TYPE Type
- VERS Version
- WILL Will
- @@GeDF@@@WindowRects
- 23 51 511 463
- 50 111 526 438
- 112 165 513 420
- 90 69 505 461
- 33 107 443 470
- 63 183 512 342
- 14 171 411 380
- 67 206 448 434
- 57 158 506 302
- 51 106 566 469
- 4 42 365 472
- 21 55 637 474
- 85 47 546 398
- 76 151 426 474
- 33 107 499 421
- @@GeDF@@@Tree Preferences
- 0 @PREF@ @TRE
- 1 @STY Name
- 2 @FNT Helvetica
- 2 @SZE 9
- 2 @FCE Plain
- 1 @STY Title
- 2 @FNT Helvetica
- 2 @SZE 10
- 2 @FCE Bold
- 1 @CLR Males
- 2 @RGB 3276 48495 63568
- 1 @CLR Females
- 2 @RGB 63568 41942 59636
- 1 @NUM Short Box Width
- 2 @VAL 67
- 1 @NUM Full Box Width
- 2 @VAL 120
- 1 @NUM Box Height
- 2 @VAL 25
- 1 @NUM Box Separation
- 2 @VAL 10
- 1 @NUM Line Separation
- 2 @VAL 8
- 1 @NUM Top Margin
- 2 @VAL 5
- 1 @NUM Left Margin
- 2 @VAL 5
- 1 @TXT Box Style
- 2 @TVL Simple Box
- 1 @TXT Name Display
- 2 @TVL Name & Lifepan 2 Lines
- 1 @CKB Full Names
- 2 @CVL N
- 1 @CKB Use Color
- 2 @CVL Y
- 1 @VRS 1
- @@GeDF@@@Index Preferences
- 0 @PREF@ @IDX
- 1 @STY Index
- 2 @FNT Times
- 2 @SZE 12
- 2 @FCE Plain
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @CKB Require Double Clicks
- 2 @CVL N
- 1 @IPU Clicking Opens
- 2 @IPV Y
- 1 @IPU Shift-Clicking Opens
- 2 @IPV N
- 1 @VRS 1
- @@GeDF@@_Unknown_ Editing
- ! static text with level and tab
- newline
- get *name
- if
- style static
- text *lev
- text " "
- text *tag
- text " "
- else
- style label
- text *it
- text :
- endif
- tabwidth 2
- justify right
-
- ! edit field with value
- hskip 5
- style editvalue
- border 3Dfield
- width -1
- newline
- @@GeDF@@@Editing Preferences
- 0 @PREF@ @EDT
- 1 @STY Editing
- 2 @FNT Times
- 2 @SZE 12
- 2 @FCE Plain
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @STY Labels
- 2 @FNT Times
- 2 @SZE 12
- 2 @FCE Bold
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @STY Static
- 2 @FNT Times
- 2 @SZE 12
- 2 @FCE Italic
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @STY Buttons
- 2 @FNT Geneva
- 2 @SZE 9
- 2 @FCE Plain
- 2 @CLR Color
- 3 @RGB 9972 9972 9972
- 1 @CLR Revision
- 2 @RGB 65000 0 0
- 1 @CLR Background
- 2 @RGB 65535 57015 53083
- 1 @CLR Field Top
- 2 @RGB 30146 15073 10485
- 1 @CLR Field Bottom
- 2 @RGB 65535 64224 62918
- 1 @CLR Button
- 2 @RGB 58940 59022 59022
- 1 @CLR Button Top
- 2 @RGB 62258 62258 62258
- 1 @CLR Button Bottom
- 2 @RGB 42597 42597 42597
- 1 @NUM Line Separation
- 2 @VAL 4
- 1 @NUM Left Margin
- 2 @VAL 4
- 1 @NUM Min Edit Lines
- 2 @VAL 5
- 1 @NUM Max Edit Lines
- 2 @VAL 10
- 1 @NUM Button Corners
- 2 @VAL 8
- 1 @CKB Date mm/dd/yy
- 2 @CVL Y
- 1 @CKB Track Changed Dates
- 2 @CVL Y
- 1 @CKB Create User ID
- 2 @CVL N
- 1 @VRS 1
- @@GeDF@@INDI Record Editing
- settab 72
- settab 112
- settab 165
-
- ! father button
- style button
- text Father
- menulink View:Father
- justify center
- border 3Dbutton
-
- hskip 5
- style button
- text Mother
- menulink View:Mother
- justify center
- border 3Dbutton
-
- hskip 5
- style button
- text Spouse
- menulink View:Spouse
- justify center
- border 3Dbutton
-
- hskip 5
- style button
- text Children
- menulink View:Children
- justify center
- border 3Dbutton
-
- hskip 5
- style button
- text Ancestors
- menulink Tree:Ancestor Tree
- justify center
- border 3Dbutton
-
- hskip 5
- style button
- text Descendants
- menulink Tree:Descendant Tree
- justify center
- border 3Dbutton
- newline 2
-
- show NAME INDI
- show SEX
- hskip 5
- show RESN here
- endtoolbar 2
- newline 3
- show BIRT
- show DEAT
- showall FAMS
- showall FAMC
-
- ! events
- 3dhrule
- newline -2
- style label
- width 150
- Text Events/Attributes
-
- hskip 0
- style button
- justify center
- border 3Dbutton
- menulink Attach:Event/Attribute
- Text "Attach Event/Attribute"
- width 150
-
- leftskip 15
- newline
- showall BAPM
- showall CHR
- showall BLES
- showall BARM
- showall BASM
- showall ADOP
- showall CHRA
- showall CONF
- showall FCOM
- showall ORDN
- showall GRAD
- showall EMIG
- showall IMMI
- showall NATU
- showall CENS
- showall RETI
- showall PROB
- showall BURI
- showall WILL
- showall CREM
- showall EVEN
- showall BAPL
- showall CONL
- showall ENDL
- showall SLGC
-
- ! attributes
- leftskip #dlmg
- newline
- showall OCCU
- showall EDUC
- showall DSCR
- showall RELI
- showall RESI
- showall SSN
- showall IDNO
- showall PROP
- showall CAST
- showall NCHI
- showall NMR
- showall TITL
- 3dhrule
-
- !Multimedia
- ifhastags OBJE
- newline -2
- style label
- text Multimedia Links
- tabwidth 2
- hskip 5
- showall OBJE
- 3dhrule
- endif
-
- !Aliases
- set oldv #vpos
- leftskip 15
- ifhastags ALIA
- lineskip 0
- newline -3
- style label
- text Aliases:
- width 50
- hskip 2
- leftskip 67
- showall ALIA
- leftSkip 15
- newline 3
- lineskip #dlsk
- endif
-
- !Associations
- ifhastags ASSO
- lineskip 1
- newline -3
- style label
- text Associations:
- width 84
- hskip 2
- leftskip 101
- showall ASSO
- leftSkip 15
- newline 3
- lineskip #dlsk
- endif
-
- !Sources
- ifhastags SOUR
- lineskip 0
- newline -3
- style label
- text Sources:
- width 55
- hskip 2
- leftskip 72
- showall SOUR
- leftSkip 15
- newline
- lineskip #dlsk
- endif
-
- get #oldv
- if #vpos
- newline -2
- else
- newline 1
- endif
- show SOUR
- showall NOTE
- show NOTE
- show OBJE
- show SUBM
- showall SUBM
- show ANCI
- showall ANCI
- show DESI
- showall DESI
- show ALIA
- show ASSO
- leftSkip #dlmg
- @@GeDF@@NAME Editing
- ! start new line and label
- newline
- style label
- text Name:
- justify right
- tabwidth 1
-
- ! edit name
- hskip 5
- style editvalue
- border 3Dfield
- get *msg
- if INDI
- width 250
- else
- width -1
- endif
- @@GeDF@@BIRT Editing
- ! New line and enter label
- newline
- style label
- justify right
- text Birth:
- tabwidth 1
-
- ! show date and place
- show DATE
- show PLAC
-
- ! Show notes and source
- leftSkip 120
- lineskip 0
- ifhastags SOUR
- newline -1
- style static
- text Sources:
- width 50
- hskip 2
- leftskip 172
- showall SOUR
- leftSkip 120
- endif
- newline
- show SOUR Birth
- show NOTE Birth
- lineskip #dlsk
- leftskip #dlmg
- @@GeDF@@DATE Editing
- ! label on current line
- get *msg
- ifempty
- style label
- text Date:
- justify right
- tabwidth 1
-
- ! edit the date
- hskip 5
- style editvalue
- border 3Dfield
- content date
- width -1
- elseif Event
- style label
- text Date:
- justify right
- tabwidth 1
-
- ! edit the date
- hskip 5
- style editvalue
- border 3Dfield
- content date
- set dwid #rmgn
- sub dwid #hpos
- sub dwid 85
- width #dwid
- endif
- @@GeDF@@DEAT Editing
- ! start new line and label
- 3dhrule
- newline
- style label
- justify right
- text *name
- text :
- tabwidth 1
-
- ! show date and place
- show DATE Event
- show AGE
- show PLAC
-
- ! Show notes and source
- leftSkip 120
- lineskip 0
- ifhastags SOUR
- newline -1
- style static
- text Sources:
- width 50
- hskip 2
- leftskip 172
- showall SOUR
- leftSkip 120
- endif
- newline
- show SOUR *name
- show NOTE *name
- lineskip #dlsk
- leftskip #dlmg
- @@GeDF@@SEX Editing
- ! "Male" or "Female" static text
- hskip 10
- style static
- border 3dfield
- cellbg 0xD4 0xB4 0xA4
- justify center
- get *valu
- if M
- text Male
- else
- text Female
- endif
- width 40
- @@GeDF@@FAMS Editing
- ! marriage button
- 3dhrule
- newline
- hskip 10
- style button
- text Marriage Record
- link *valu
- justify center
- tabwidth 2
- border 3Dbutton
-
- ! Spouse
- hskip 0
- tabwidth 1
- style static
- get *this.SEX
- if F
- text Husband:
- get *valu.HUSB
- else
- text Wife:
- get *valu.WIFE
- endif
- justify right
-
- hskip 5
- style button
- font times
- size 12
- if validlink
- text *it.NAME
- link *it
- blue
- face underline
- else
- text <unknown>
- endif
- width -1
- @@GeDF@@NOTE Editing
- if tagexists
- style button
- get *msg
- ifnotempty
- text *msg
- text " "
- endif
- text Notes
- get *valu
- if validlink
- link *valu
- else
- structlink NOTE
- endif
- else
- style button
- text "New "
- get *msg
- ifnotempty
- text *msg
- text " "
- endif
- text Notes
- if "Header"
- structlink NOTE
- else
- newlink
- endif
- endif
- justify center
- border 3Dbutton
- width 105
- hskip 5
- @@GeDF@@FAMC Editing
- ! parent family button
- 3dhrule
- newline
- hskip 10
- style button
- text Parents Family
- link *valu
- justify center
- tabwidth 2
- border 3Dbutton
-
- ! Father
- hskip 0
- tabwidth 1
- style static
- text Father:
- justify right
-
- hskip 5
- style button
- get *valu.HUSB
- font times
- size 12
- if validlink
- text *it.NAME
- link *it
- blue
- face underline
- else
- text <unknown>
- endif
- width -1
-
- ! Mother
- newline -5
- tab 2
- hskip 0
- tabwidth 1
- style static
- text Mother:
- justify right
-
- hskip 5
- style button
- get *valu.WIFE
- font times
- size 12
- if validlink
- text *it.NAME
- link *it
- blue
- face underline
- else
- text <unknown>
- endif
- width -1
- @@GeDF@@BAPM Editing
- use BURI Editing
- @@GeDF@@FAM Record Editing
- settab 72
- settab 112
- settab 216
- settab 432
-
- hskip 5
- style button
- text Children
- menulink View:Children
- justify center
- border 3Dbutton
-
- hskip 5
- style button
- text Index
- menulink View:Index...
- justify center
- border 3Dbutton
- endtoolbar 2
- newline 3
-
- show HUSB
- show WIFE
- show MARR
-
- ! children table
- newline 8
- lineskip 2
- hskip 15
- style label
- text Children
- tabwidth 3
- justify center
- border 3DField
- cellbg 0xD4 0xB4 0xA4
-
- hskip 3
- style label
- justify center
- text Sex
- border 3DField
- width 55
- cellbg 0xD4 0xB4 0xA4
-
- hskip 3
- style label
- justify center
- text Birthdate
- border 3DField
- width 110
- cellbg 0xD4 0xB4 0xA4
-
- hskip 3
- style label
- justify center
- text Link
- border 3DField
- tabwidth 1
- cellbg 0xD4 0xB4 0xA4
-
- set chnm 1
- showall CHIL
-
- ! attach and detach buttoms
- lineskip #dlsk
- newline 2
- showall NCHI
-
- hskip 15
- style button
- text "Attach Child"
- menulink Attach:Child
- border 3Dbutton
- justify center
-
- hskip 5
- style button
- text "Detach Child"
- menulink Detach:Child
- border 3Dbutton
- justify center
-
- ! events
- newline 8
- 3dhrule
- newline -2
- style label
- width 150
- Text Family Events
-
- hskip 0
- style button
- justify center
- border 3Dbutton
- menulink Attach:Event/Attribute
- Text "Attach New Event"
- width 150
- newline
-
- leftskip 15
- showall ENGA
- showall MARB
- showall MARC
- showall MARL
- showall MARS
- showall SLGS
- showall DIV
- showall DIVF
- showall ANUL
- showall CENS
- showall EVEN
-
- ! attributes
- leftskip #dlmg
- 3dhrule
-
- !Multimedia
- ifhastags OBJE
- newline -2
- style label
- text Multimedia Links
- tabwidth 2
- hskip 5
- showall OBJE
- 3dhrule
- endif
-
- leftSkip 15
- ifhastags SOUR
- lineskip 0
- newline -1
- style label
- text Sources:
- width 55
- hskip 2
- leftskip 72
- showall SOUR
- leftSkip 15
- newline
- lineskip #dlsk
- else
- newline -1
- endif
- show SOUR
- showall NOTE
- show NOTE
- show OBJE
- show SUBM
- showall SUBM
- leftSkip #dlmg
- @@GeDF@@WIFE Editing
- ! label on current line
- newline
- style label
- text Wife:
- justify right
- tabwidth 1
-
- ! display the name
- hskip 5
- style button
- get *valu.NAME
- ifnotempty
- blue
- face underline
- font times
- size 12
- text *valu.NAME
- link *valu
- width 250
-
- hskip 5
- get *valu.FAMC
- if validlink
- style button
- text Parents
- justify center
- link *it
- border 3dbutton
- endif
-
- else
- text Attach Wife
- justify center
- border 3Dbutton
- menulink Attach:Wife
- width 100
- hskip 150
- endif
-
- @@GeDF@@CHIL Editing
- ! link to child
- newline
- hskip 15
- style button
- blue
- face underline
- font times
- size 12
- text #chnm
- add chnm 1
- text ". "
- text *valu.NAME
- link *valu
- tabwidth 3
- border 3DField
-
- hskip 3
- style static
- justify center
- get *valu.SEX
- if M
- text Son
- else
- text Daughter
- endif
- border 3DField
- width 55
-
- hskip 3
- style static
- justify center
- text *valu.BIRT.DATE
- border 3DField
- width 110
-
- hskip 3
- get *valu.FAMS
- if validlink
- style button
- text Family
- blue
- font times
- face underline
- size 12
- link *it
- justify center
- else
- style static
- endif
- border 3DField
- tabwidth 1
- @@GeDF@@MARR Editing
- ! start new line and label
- 3dhrule
- newline
- style label
- justify right
- text *name
- text :
- tabwidth 1
-
- ! show date and place
- show DATE
- show PLAC
-
- ! Show notes and source
- leftSkip 120
- lineskip 0
- ifhastags SOUR
- newline -1
- style static
- text Sources:
- width 50
- hskip 2
- leftskip 172
- showall SOUR
- leftSkip 120
- endif
- newline
- show SOUR *name
- show NOTE *name
- lineskip #dlsk
- leftskip #dlmg
- @@GeDF@@ADDR Editing
- ! parent family button
- newline
- style label
- text Address:
- justify right
- tabwidth 1
-
- hskip 5
- style editcont
- border 3Dfield
- width -1
- @@GeDF@@SUBM Record Editing
- settab 80
- settab 120
- show NAME
- show ADDR
- show PHON
- show LANG
-
- !Multimedia
- ifhastags OBJE
- 3dhrule
- newline -2
- style label
- text Multimedia:
- tabwidth 1
- justify right
- hskip 5
- showall OBJE
- endif
-
- tab 1
- hskip 5
- show OBJE
- @@GeDF@@SUBM Editing
- style button
- get *valu
- ifnot validlink
- text "Link "
- endif
- text *msg
- text Submitter
- addlink
- justify center
- width 105
- border 3Dbutton
- hskip 5
- @@GeDF@@NOTE Record Editing
- style label
- text "Notes on "
- get *this.NAME
- ifempty
- text *this.HUSB.NAME
- text " / "
- text *this.WIFE.NAME
- text " Marraige"
- else
- text *it
- endif
- width -1
- newline -4
- style edittext
- @@GeDF@@REPO Record Editing
- show NAME
- show ADDR
- newline
- tab 1
- hskip 5
- show NOTE Repos.
- newline
- @@GeDF@@AUTH Editing
- newline
- style label
- text Author:
- justify right
- tabwidth 1
-
- hskip 5
- style editcont
- border 3Dfield
- width -1
- @@GeDF@@TITL Editing
- get *msg
- ifempty
- get #vpos
- if #oldv
- 3dhrule
- newline -4
- style label
- width -1
- Text Individual Attributes
- newline -4
- 3dhrule
- endif
-
- ! static text with level and tab
- newline
- style label
- text *name
- text :
- tabwidth 2
- justify right
-
- ! edit field with value
- hskip 5
- style editvalue
- border 3Dfield
- width -1
-
- elseif mm
- newline
- style label
- text Title:
- justify right
- tabwidth 1
-
- hskip 5
- style editvalue
- border 3Dfield
- width -1
-
- else
- newline
- style label
- text Title:
- justify right
- tabwidth 1
-
- hskip 5
- style editcont
- border 3Dfield
- width -1
- endif
- @@GeDF@@SOUR Record Editing
- settab 90
- settab 90
- maxlines 2
- show AUTH
- show TITL Source
- show ABBR
- minlines 3
- maxlines 5
- show PUBL
-
- newline
- tab 1
- hskip 5
- show NOTE Source
- show REPO
-
- 3dhrule
- show DATA
-
- 3dhrule
- show TEXT
-
- !Multimedia
- ifhastags OBJE
- 3dhrule
- newline -2
- style label
- text Multimedia:
- justify right
- tabwidth 2
- hskip 5
- showall OBJE
- endif
-
- tab 1
- hskip 5
- show OBJE
- @@GeDF@@PUBL Editing
- newline
- style label
- text Publisher:
- justify right
- tabwidth 1
-
- hskip 5
- style editcont
- border 3Dfield
- width -1
- @@GeDF@@REPO Editing
- ! Note buttom
- get *valu
- if tagexists
- style button
- text Repository
- link *valu
- justify center
- width 105
- border 3Dbutton
-
- show CALN
- else
- style button
- text "Link Repository"
- addlink
- justify center
- width 105
- border 3Dbutton
- hskip 5
- endif
- @@GeDF@@PHON Editing
- use ABBR Editing
- @@GeDF@@SOUR Editing
- get *rec
- if HEAD
- style label
- text System ID
- justify right
- tabwidth 1
-
- hskip 5
- style editvalue
- border 3dfield
- width -1
-
- show NAME
- show VERS
- show CORP
- show DATA
- else
- if tagexists
- style button
- get *valu
- if validlink
- get *it.ABBR
- ifempty
- get *valu.TITL
- ifempty
- get <Unnamed Source>
- endif
- endif
- text *it
- structlink SOUa
- else
- text "<Embedded Source>"
- structlink SOUb
- endif
- face underline
- font times
- size 12
- blue
- width -1
- else
- style button
- text "New "
- ifnotempty
- text *msg
- text " "
- endif
- text Source
- addlink
- justify center
- border 3Dbutton
- width 105
- hskip 5
- endif
- endif
- @@GeDF@@SOUa Record Editing
- ! Source citation in separate window, but link
- ! to actual source
-
- ! link to the source
- settab 90
- settab 90
- style label
- text Source:
- justify right
- tabwidth 1
-
- hskip 5
- style button
- get *valu
- if validlink
- get *it.ABBR
- ifempty
- get *valu.TITL
- ifempty
- get <Unnamed Source>
- endif
- endif
- text *it
- else
- text "Link Source"
- endif
- addlink
- justify center
- width 200
- border 3Dbutton
- endtoolbar
-
- show PAGE
- show DATA
- show QUAY
-
- !Multimedia
- ifhastags OBJE
- 3dhrule
- newline -2
- style label
- text Multimedia:
- tabwidth 2
- justify right
- hskip 5
- showall OBJE
- endif
-
- newline
- tab 1
- hskip 5
- show NOTE
- showall NOTE
- show OBJE
- @@GeDF@@DATA Editing
- get *rec
- if HEAD
- newline
- style label
- tabwidth 1
- text Source Data:
- justify right
-
- hskip 5
- style editvalue
- border 3Dfield
- width -1
-
- cleartabs
- settab #tab2
- show DATE
- show COPR
-
- elseif SOUR
- newline
- style label
- width -1
- text Type of Data Recorded in this Source:
-
- show EVEN
- settab 40
- show AGNC
- newline
- tab 2
- hskip 5
- show NOTE Data
-
- else
- show DATE
- show TEXT
- endif
- @@GeDF@@TEXT Editing
- newline
- style label
- text Source Text:
- justify right
- tabwidth 1
-
- ! edit the date
- hskip 5
- style editcont
- border 3Dfield
- width -1
- @@GeDF@@PAGE Editing
- newline
- style label
- text Page:
- justify right
- tabwidth 1
-
- ! edit the date
- hskip 5
- style editvalue
- border 3Dfield
- width -1
- @@GeDF@@ABBR Editing
- ! label on current line
- newline
- style label
- text *name
- text :
- justify right
- tabwidth 1
-
- ! edit the date
- hskip 5
- style editvalue
- border 3Dfield
- width -1
- @@GeDF@@SOUb Record Editing
- ! Source citation in separate window for embedded
- ! citation
-
- ! link to the source
- settab 90
- style label
- text Source:
- justify right
- tabwidth 1
-
- hskip 5
- style editcont
- border 3Dfield
- width -1
-
- show TEXT
- show NOTE
- showall NOTE
- @@GeDF@@ANCI Editing
- style button
- if tagexists
- text Ancestor Interest
- else
- text Add Ancest. Interest
- endif
- addlink
- justify center
- width 105
- border 3Dbutton
- hskip 5
- @@GeDF@@DESI Editing
- style button
- if tagexists
- text Decendent Interest
- else
- text Add Descend. Interest
- endif
- addlink
- justify center
- width 105
- border 3Dbutton
- hskip 5
- @@GeDF@@BURI Editing
- style button
- text *name
- structlink iEVT
- border 3Dbutton
- justify center
- width 105
- hskip 5
- @@GeDF@@HEAD Record Editing
- settab 90
- settab 120
- set tab1 90
- set tab2 120
- show SOUR
- 3dhrule
- show SUBM
- show SUBN
- 3dhrule
- show DEST
- show DATE
- show FILE
- show COPR
- show GEDC
- show CHAR
- show LANG
- show PLAC
- 3dhrule
- show NOTE Header
- showall NOTE Header
- 3dhrule
- @@GeDF@@CORP Editing
- newline
- style label
- text Corporation:
- justify right
- tabwidth 1
-
- hskip 5
- style editvalue
- border 3Dfield
- width -1
-
- newline
- show ADDR
- @@GeDF@@COPR Editing
- use ABBR Editing
- @@GeDF@@SUBN Editing
- style button
- text Submission
- link *valu
- justify center
- width 100
- border 3Dbutton
- hskip 5
- @@GeDF@@GEDC Editing
- newline
- cleartabs
- settab #tab2
- show VERS GEDCOM
- settab #tab1
- show FORM
- @@GeDF@@DEST Editing
- use ABBR Editing
- @@GeDF@@FILE Editing
- use ABBR Editing
- @@GeDF@@OBJE Record Editing
- settab 90
- settab 120
- newline 3
-
- lineskip 0
- style label
- width -1
- justify center
- text GEDitCOM follows recommended GEDCOM practice
- text " which is to support"
- border 3dframe ltr
- cellbg 0xd4 0xb4 0xa4
-
- newline
- style label
- width -1
- justify center
- text Multimedia by links to separate files.
- text " This record contains encoded digital data"
- border 3dframe lr
- cellbg 0xd4 0xb4 0xa4
-
- newline
- style label
- width -1
- justify center
- text and cannot be viewed in GEDitCOM.
- text " You can click below to see the raw data."
- border 3dframe lrb
- cellbg 0xd4 0xb4 0xa4
-
- lineskip #dlsk
- newline 5
- show TITL
- show FORM
- show BLOB
-
- HideExcess
- @@GeDF@@SUBN Record Editing
- style label
- text Submitter:
- justify right
- tabwidth 2
-
- hskip 5
- show SUBM
-
- newline
- show FAMF
- show TEMP
- show ANCE
- show DESC
- show ORDI
- @@GeDF@@HUSB Editing
- ! label on current line
- newline
- style label
- text Husband:
- justify right
- tabwidth 1
-
- ! display name
- hskip 5
- style button
- get *valu.NAME
- ifnotempty
- blue
- face underline
- font times
- size 12
- text *it
- link *valu
- width 250
-
- hskip 5
- get *valu.FAMC
- if validlink
- style button
- text Parents
- justify center
- link *it
- border 3dbutton
- endif
- else
- text Attach Husband
- justify center
- border 3Dbutton
- menulink Attach:Husband
- width 100
- hskip 150
- endif
-
- @@GeDF@@WILL Editing
- use BURI Editing
- @@GeDF@@NATU Editing
- use BURI Editing
- @@GeDF@@ORDN Editing
- use BURI Editing
- @@GeDF@@INDI Record Printing
- leftskip 0
- lineskip 0
- minlines 1
- settab 72
- settab 110
- hrule
- hrule 1
- style label
- width -1
- size 14
- text Individual Record
- hrule
- hrule 1
- show NAME INDI
- show SEX
- show BIRT
- show DEAT
-
- ifhastags FAMS
- hrule
- hrule 1
- newline
- style label
- text Marriages
- width -1
- justify center
- hrule
- showall FAMS
- endif
-
- ifhastags FAMC
- hrule
- hrule 1
- newline
- style label
- text Parents
- width -1
- justify center
- hrule
- showall FAMC
- endif
-
- hrule
- hrule 1
- newline
- style label
- text Additional Information
- width -1
- justify center
- newline
-
- set oldv #vpos
- showall BAPM
- showall CHR
- showall BLES
- showall BARM
- showall BASM
- showall ADOP
- showall CHRA
- showall CONF
- showall FCOM
- showall ORDN
- showall GRAD
- showall EMIG
- showall IMMI
- showall NATU
- showall CENS
- showall RETI
- showall PROB
- showall BURI
- showall WILL
- showall CREM
- showall EVEN
- showall BAPL
- showall CONL
- showall ENDL
- showall SLGC
-
- showall RESI
- get #vpos
- ifnot #oldv
- hrule
- endif
-
- showall OCCU
- showall EDUC
- showall DSCR
- showall RELI
- showall SSN
- showall IDNO
- showall PROP
- showall CAST
- showall NCHI
- showall NMR
- showall TITL
-
- showall OBJE
- showall ALIA
- showall ASSO
-
- showall SOUR
- showall NOTE
- @@GeDF@@NAME Printing
- ! start new line and label
- newline
- style label
- text Name:
- get *msg
- if INDI
- size 14
- endif
- tabwidth 2
-
- ! edit name
- hskip 5
- style editvalue
- get *msg
- width -1
- if INDI
- size 14
- endif
- @@GeDF@@BIRT Printing
- ! New line and enter label
- hrule 2
- newline 2
- style label
- text Birth:
- tabwidth 1
-
- ! show date and place
- set rtjs 1
- show DATE
- newline
- show PLAC
- showall ADDR
- showall TYPE
- showall AGNC
- showall NOTE "Birth "
- showall SOUR "Birth "
- set rtjs 0
- @@GeDF@@DATE Printing
- get *msg
- if nolabel
- hskip 5
- style editvalue
- width 100
- else
- ! label on current line
- style label
- text Date:
- get *rec
- if HEAD
- tabwidth 2
- get #rtjs
- if 1
- justify right
- endif
- else
- justify right
- tabwidth 1
- endif
-
- ! edit the date
- hskip 5
- style editvalue
- width -1
- endif
- @@GeDF@@SEX Printing
- ! label on current line
- newline
- style label
- text Sex:
- tabwidth 2
-
- ! edit the place
- hskip 5
- style static
- get *valu
- if M
- text Male
- else
- text Female
- endif
- width -1
- @@GeDF@@DEAT Printing
- ! New line and enter label
- hrule 2
- newline 2
- style label
- text *name
- text :
- tabwidth 1
-
- ! show date and place
- set rtjs 1
- show DATE
- showall AGE
- show PLAC
- showall ADDR
- showall TYPE
- showall AGNC
- showall CAUS
- showall NOTE *name
- showall SOUR *name
- set rtjs 0
- @@GeDF@@FAMS Printing
- ! Spouse type
- newline
- tabwidth 2
- style label
- get *this.SEX
- if F
- text Husband:
- get *valu.HUSB
- else
- text Wife:
- get *valu.WIFE
- endif
-
- ! Spouse Name
- hskip 5
- style static
- if validlink
- text *it.NAME
- link *it
- else
- text <unknown>
- endif
- width -1
-
- get *valu.MARR.DATE
- ifnotempty
- newline
- style label
- text Date:
- tabwidth 2
- justify right
-
- hskip 5
- style static
- text *it
- width -1
- endif
-
- get *valu.MARR.PLAC
- ifnotempty
- newline
- style label
- text Place:
- tabwidth 2
- justify right
-
- hskip 5
- style static
- text *it
- width -1
- endif
-
- @@GeDF@@FAMC Printing
- ! parent family button
- newline
- style label
- text Parents:
- width 60
-
- ! Father
- hskip 0
- tabwidth 2
- style label
- justify right
- text Father:
-
- hskip 5
- style static
- get *valu.HUSB
- if validlink
- text *it.NAME
- else
- text <unknown>
- endif
- width -1
-
- ! Mother
- newline
- tabwidth 2
- style label
- justify right
- text Mother:
-
- hskip 5
- style static
- get *valu.WIFE
- if validlink
- text *it.NAME
- link *it
- else
- text <unknown>
- endif
- width -1
- @@GeDF@@NOTE Printing
- if tagexists
- newline
- style label
- ifnotempty *msg
- justify right
- endif
- tabwidth 2
- text Notes:
-
- hskip 5
- get *valu
- if validlink
- InsertRecord *it
- else
- style EditText
- endif
- endif
- @@GeDF@@SOUR Printing
- get *rec
- if HEAD
- style label
- text System ID
- tabwidth 2
-
- hskip 5
- style editvalue
- width -1
-
- showall NAME
- set rtjs 1
- showall VERS
- showall CORP
- showall DATA
- set rtjs 0
- else
- newline
- style label
- tabwidth 2
- text Source:
-
- hskip 5
- get *valu
- if validlink
- ! title source
- style static
- get *it.ABBR
- ifempty
- get *valu.TITL
- ifempty
- get <Unnamed Source>
- endif
- endif
- text *it
- width -1
- else
- style editcont
- width -1
- endif
-
- set rtjs 1
- showall PAGE
- showall DATA
- showall QUAY
- showall NOTE "Source "
- set rtjs 0
- endif
- @@GeDF@@TEXT Printing
- newline
- style label
- text Text:
- tabwidth 2
-
- ! edit the date
- hskip 5
- style editcont
- width -1
- @@GeDF@@BAPM Printing
- use DEAT Printing
- @@GeDF@@NATU Printing
- use DEAT Printing
- @@GeDF@@DATA Printing
- get *rec
- if HEAD
- style label
- text Source Data:
- tabwidth 2
-
- hskip 5
- style editvalue
- width -1
-
- newline
- showall DATE
- showall COPR
- else SOUR
- 3dhrule
- set rtjs 1
- showall EVEN
- showall AGNC
- showall NOTE "Source "
- set rtjs 0
- else
- get *DATE
- ifnotempty
- newline
- tab 1
- show DATE
- endif
- endif
- @@GeDF@@BURI Printing
- use DEAT Printing
- @@GeDF@@ORDN Printing
- use DEAT Printing
- @@GeDF@@WILL Printing
- use DEAT Printing
- @@GeDF@@CHR Editing
- use BURI Editing
- @@GeDF@@CREM Editing
- use BURI Editing
- @@GeDF@@ADOP Editing
- use BURI Editing
- @@GeDF@@BARM Editing
- use BURI Editing
- @@GeDF@@BASM Editing
- use BURI Editing
- @@GeDF@@BLES Editing
- use BURI Editing
- @@GeDF@@CONF Editing
- use BURI Editing
- @@GeDF@@FCOM Editing
- use BURI Editing
- @@GeDF@@EMIG Editing
- use BURI Editing
- @@GeDF@@IMMI Editing
- use BURI Editing
- @@GeDF@@CENS Editing
- use BURI Editing
- @@GeDF@@PROB Editing
- use BURI Editing
- @@GeDF@@RETI Editing
- use BURI Editing
- @@GeDF@@GRAD Editing
- use BURI Editing
- @@GeDF@@EVEN Editing
- get *rec
- if SOUR
- style label
- tabwidth 1
- text "Events:"
- justify right
-
- hskip 5
- style editvalue
- border 3dfield
- width -1
-
- show DATE
- settab 40
- show PLAC
-
- else
- style button
- text *name
- structlink iEVT
- border 3Dbutton
- justify center
- width 105
- hskip 5
- endif
- @@GeDF@@CHAR Editing
- ! label on current line
- newline
- style label
- text *name
- text :
- justify right
- tabwidth 1
-
- ! edit the date
- hskip 5
- style editvalue
- border 3Dfield
- width -1
-
- cleartabs
- settab #tab2
- show VERS Char. Set
- @@GeDF@@LANG Editing
- use ABBR Editing
- @@GeDF@@ENGA Editing
- style button
- text *name
- structlink iEVT
- border 3Dbutton
- justify center
- width 105
- hskip 5
- @@GeDF@@MARB Editing
- use ENGA Editing
- @@GeDF@@MARC Editing
- use ENGA Editing
- @@GeDF@@ANUL Editing
- use ENGA Editing
- @@GeDF@@DIV Editing
- use ENGA Editing
- @@GeDF@@DIVF Editing
- use ENGA Editing
- @@GeDF@@MARL Editing
- use ENGA Editing
- @@GeDF@@MARS Editing
- use ENGA Editing
- @@GeDF@@VERS Editing
- ! label on current line
- style label
- get *msg
- ifnotempty
- text *it
- text " "
- endif
- tabwidth 1
- text *name
- text ":"
- justify right
-
- ! edit the version
- hskip 5
- style editvalue
- border 3Dfield
- width -1
- @@GeDF@@BARM Printing
- use DEAT Printing
- @@GeDF@@BASM Printing
- use DEAT Printing
- @@GeDF@@BLES Printing
- use DEAT Printing
- @@GeDF@@CENS Printing
- use DEAT Printing
- @@GeDF@@CONF Printing
- use DEAT Printing
- @@GeDF@@CREM Printing
- use DEAT Printing
- @@GeDF@@DIV Printing
- use DEAT Printing
- @@GeDF@@DIVF Printing
- use DEAT Printing
- @@GeDF@@EMIG Printing
- use DEAT Printing
- @@GeDF@@ENGA Printing
- use DEAT Printing
- @@GeDF@@EVEN Printing
- get *rec
- if SOUR
- newline
- style label
- text Events Recorded:
- tabwidth 2
-
- hskip 5
- style editvalue
- width -1
-
- newline
- tab 1
- show DATE
- show PLAC
- else
- ! New line and enter label
- hrule 2
- newline 2
- style label
- text *name
- text :
- tabwidth 1
-
- ! show date and place
- set rtjs 1
- show DATE
- showall AGE
- show PLAC
- showall ADDR
- showall TYPE
- showall AGNC
- showall CAUS
- showall NOTE *name
- showall SOUR *name
- set rtjs 0
- endif
- @@GeDF@@FCOM Printing
- use DEAT Printing
- @@GeDF@@GRAD Printing
- use DEAT Printing
- @@GeDF@@IMMI Printing
- use DEAT Printing
- @@GeDF@@MARB Printing
- use DEAT Printing
- @@GeDF@@MARC Printing
- use DEAT Printting
- @@GeDF@@MARL Printing
- use DEAT Printing
- @@GeDF@@MARR Printing
- use DEAT Printing
- @@GeDF@@MARS Printing
- use DEAT Printing
- @@GeDF@@PROB Printing
- use DEAT Printing
- @@GeDF@@RETI Printing
- use DEAT Printing
- @@GeDF@@SUBM Printing
- ! label on current line
- newline
- style label
- text Submitter:
- tabwidth 2
-
- ! edit the date
- hskip 5
- get *valu.NAME
- style static
- text *it
- width -1
- @@GeDF@@ADOP Printing
- use DEAT Printing
- @@GeDF@@ANUL Printing
- use DEAT Printing
- @@GeDF@@CHR Printing
- use DEAT Printing
- @@GeDF@@HUSB Printing
- ! label on current line
- newline
- style label
- text Husband:
- tabwidth 2
-
- ! display name
- hskip 5
- style static
- text *valu.NAME
- width -1
- @@GeDF@@WIFE Printing
- ! label on current line
- newline
- style label
- text Wife:
- tabwidth 2
-
- ! display name
- hskip 5
- style static
- text *valu.NAME
- width -1
- @@GeDF@@CHIL Printing
- style label
- tabwidth 2
- get *valu.SEX
- if M
- text Son:
- else
- text Daughter:
- endif
-
- hskip 5
- style static
- text *valu.NAME
- width -1
-
- newline
- style label
- tabwidth 2
- justify right
- text Birth:
-
- hskip 5
- style static
- width -1
- text *valu.BIRT.DATE
- get *valu.BIRT.PLAC
- ifnotempty
- text ", "
- text *it
- endif
-
- newline
- style label
- tabwidth 2
- justify right
- text Death:
-
- hskip 5
- style static
- width -1
- text *valu.DEAT.DATE
- get *valu.DEAT.PLAC
- ifnotempty
- text ", "
- text *it
- endif
-
- hrule
-
- @@GeDF@@FAM Record Printing
- leftskip 0
- lineskip 0
- minlines 1
- settab 72
- settab 110
- hrule
- hrule 1
- style label
- width -1
- size 14
- text Family Group Record
- hrule
- hrule 1
- show HUSB
- show WIFE
- show MARR
-
- hrule
- hrule 1
- set topv #vpos
- showall CHIL
- set oldv #vpos
- showall NCHI
- get #vpos
- if #oldv
- ifnot #topv
- hrule 1
- endif
- else
- hrule
- hrule 1
- endif
-
- newline
- style label
- text Additional Information
- width -1
- justify center
- newline -3
-
- set oldv #vpos
- showall ENGA
- showall MARB
- showall MARC
- showall MARL
- showall MARS
- showall SLGS
- showall DIV
- showall DIVF
- showall ANUL
- showall CENS
- showall EVEN
- get #vpos
- ifnot #oldv
- hrule
- endif
-
- set oldv #vpos
- showall OBJE
- showall SOUR
- showall NOTE
- get #vpos
- ifnot #oldv
- hrule
- endif
-
- @@GeDF@@QUAY Editing
- !title
- newline
- style label
- text Quality:
- tabwidth 1
- justify right
-
- ! popup menu
- hskip 5
- style popupedit
- width 90
- border shadow
- justify center
- font chicago
- face plain
- size 12
- popupitem Unknown:
- popupitem Unreliable:0
- popupitem Questionable:1
- popupitem Secondary:2
- popupitem Primary:3
- @@GeDF@@RESN Editing
- ifempty *msg
- newline
- tab 2
- hskip 5
- else
- set hskp #rmgn
- sub hskp #lmgn
- sub hskp 28
- sub hskp #hpos
- hskip #hskp
- endif
-
- style button
- border 3dfield
- menulink Attach:Restriction
- if tagexists
- picture @locked
- else
- picture @unlocked
- endif
- width 28
- height 17
- cellbg
- @@GeDF@@OBJE Editing
- get *valu
-
- ! link to embedded MM
- if ValidLink
- get #hpos
- if #lmgn
- tab 2
- hskip 5
- endif
- style button
- text Encoded Multimedia Object
- border 3dbutton
- link *valu
- width 150
- justify center
- newline
-
- ! link to file
- elseif TagExists
- get #hpos
- if #lmgn
- tab 2
- hskip 5
- endif
- style button
- get *TITL
- ifempty
- get *FILE
- endif
- text *it
- text " ("
- text *FORM
- text )
- border 3dbutton
- Structlink mmOB
- width -1
- justify center
- newline
-
- ! no structure there
- else
- style button
- text Add Multimedia
- border 3dbutton
- NewLink
- width 105
- justify center
- hskip 5
- endif
- @@GeDF@@TIME Editing
-
- @@GeDF@@ALIA Editing
- if tagexists
- style button
- get *valu.NAME
- ifempty
- get <Unnamed Alias>
- endif
- text *it
- link *valu
- face underline
- font times
- size 12
- blue
- width -1
- else
- style button
- text "Add Alias"
- addlink
- justify center
- border 3Dbutton
- width 105
- hskip 5
- endif
- @@GeDF@@ASSO Editing
- if tagexists
- style button
- get *valu.NAME
- ifempty
- get <Unnamed Association>
- endif
- text *it
- link *valu
- face underline
- font times
- size 12
- blue
- width -1
- show RELA
- else
- style button
- text "Add Association"
- addlink
- justify center
- border 3Dbutton
- width 105
- hskip 5
- endif
- @@GeDF@@RELA Editing
- style static
- text Relationship:
- justify right
- width 80
-
- ! edit the relation
- hskip 5
- style editvalue
- border 3Dfield
- width -1
- @@GeDF@@CHRA Editing
- use BURI Editing
- @@GeDF@@CHRA Printing
- use DEAT Printing
- @@GeDF@@iEVT Record Editing
- settab 72
- settab 72
-
- newline
- style 3DCheckEdit
- width 10
- uncheckedvalue
-
- hskip 5
- style label
- text *name
- get *rec
- if INDI
- text " of "
- text *this.NAME
- else
- text " for "
- text *this.HUSB.NAME
- text " and "
- text *this.WIFE.NAME
- endif
- width -1
- newline
-
- ! show date and place
- show DATE Event
- show AGE
- show TYPE
- show PLAC
- show ADDR
- show CAUS
- show AGNC
-
- !Multimedia
- ifhastags OBJE
- 3dhrule
- newline -2
- style label
- text Multimedia:
- tabwidth 2
- justify right
- hskip 5
- showall OBJE
- endif
-
- ! Show notes and source
- leftSkip 80
- lineskip 0
- ifhastags SOUR
- newline -1
- style static
- text Sources:
- width 48
- hskip 2
- leftskip 130
- showall SOUR
- leftSkip 80
- endif
- newline
- leftskip 40
- lineskip #dlsk
- show SOUR *name
- show NOTE *name
- show OBJE
- leftskip #dlmg
- @@GeDF@@AGE Editing
- hskip 5
- style label
- text Age:
- justify right
- width 33
-
- ! edit the date
- hskip 2
- style editvalue
- border 3Dfield
- width -1
- @@GeDF@@NOTE Record Printing
- style edittext
- showall CHAN NOTE
- @@GeDF@@ANCI Printing
- ! static text with level and tab
- newline
- style label
- text Ancestor Interest:
- tabwidth 2
-
- ! edit field with value
- hskip 5
- style static
- width -1
- text *valu.NAME
- newline
- @@GeDF@@DESI Printing
- ! static text with level and tab
- newline
- style label
- text Descend. Interest:
- tabwidth 2
-
- ! edit field with value
- hskip 5
- style static
- width -1
- text *valu.NAME
- newline
- @@GeDF@@ALIA Printing
- ! static text with level and tab
- newline
- style label
- text Alias:
- tabwidth 2
-
- ! edit field with value
- hskip 5
- style static
- get *valu.NAME
- ifempty
- get <Unnamed Alias>
- endif
- text *it
- width -1
- newline
- @@GeDF@@ASSO Printing
- ! static text with level and tab
- newline
- style label
- text Association:
- tabwidth 2
-
- ! edit field with value
- hskip 5
- style static
- get *valu.NAME
- ifempty
- get <Unnamed Association>
- endif
- text *it
- width -1
- newline
-
- set rtjs 1
- showall TYPE
- showall RELA
- set rtjs 0
- @@GeDF@@CHAN Printing
- newline
- style label
- tabwidth 2
- get *msg
- if NOTE
- text Notes Changed:
- justify right
- else
- text Record Changed:
- endif
- hskip 5
- style static
- text *DATE
- get *DATE.TIME
- ifnotempty
- text ", "
- text *it
- endif
- width -1
- HideExcess
- @@GeDF@@ADDR Printing
- ! parent family button
- newline
- style label
- text Address:
- get #rtjs
- if 1
- justify right
- endif
- tabwidth 2
-
- hskip 5
- style editcont
- width -1
- @@GeDF@@RESI Editing
- ! static text with level and tab
- newline
- style label
- text Residence:
- tabwidth 2
- justify right
-
- ! edit field with value
- hskip 5
- style button
- border 3DButton
- text Show Residence
- structlink Resi
- justify center
- width 100
- newline
- @@GeDF@@Resi Record Editing
- style label
- text "Residence for "
- text *this.NAME
- width -1
- endtoolbar
- show ADDR
- @@GeDF@@CONL Editing
- style button
- text *name
- structlink lEVT
- border 3Dbutton
- justify center
- width 105
- hskip 5
- @@GeDF@@lEVT Record Editing
- settab 72
- settab 72
-
- newline
- style 3DCheckEdit
- width 10
- uncheckedvalue
-
- hskip 5
- style label
- text *name
- text " of "
- text *this.NAME
- width -1
- newline
-
- ! show date and place
- show DATE
- show PLAC
- show STAT
- show TEMP
-
- ! Show notes and source
- leftSkip 80
- lineskip 0
- ifhastags SOUR
- newline -1
- style static
- text Sources:
- width 50
- hskip 2
- leftskip 132
- showall SOUR
- leftSkip 80
- endif
- newline
- show SOUR *name
- show NOTE *name
- lineskip #dlsk
- leftskip #dlmg
- @@GeDF@@BAPL Editing
- use CONL Editing
- @@GeDF@@ENDL Editing
- use CONL Editing
- @@GeDF@@SLGC Editing
- use CONL Editing
- @@GeDF@@CONL Printing
- ! New line and enter label
- hrule 2
- newline 2
- style label
- text *name
- text :
- tabwidth 1
-
- ! show date and place
- set rtjs 1
- show DATE
- show PLAC
- showall STAT
- showall TEMP
- showall NOTE *name
- showall SOUR *name
- set rtjs 0
- @@GeDF@@BAPL Printing
- use CONL Printing
- @@GeDF@@ENDL Printing
- use CONL Printing
- @@GeDF@@SLGC Printing
- use CONL Printing
- @@GeDF@@RESI Printing
- use DEAT Printing
- @@GeDF@@QUAY Printing
- ! static text with level and tab
- newline
- style label
- text Quality:
- justify right
- tabwidth 2
-
- ! edit field with value
- hskip 5
- style static
- width -1
- get *valu
- if 0
- text Unreliable
- elseif 1
- text Questionable
- elseif 2
- text Secondary
- elseif 3
- text Primary
- else
- text Unknown
- endif
- newline
- @@GeDF@@STAT Editing
- !title
- newline
- style label
- text Status:
- tabwidth 1
- justify right
-
- ! popup menu
- hskip 5
- style popupedit
- width 100
- border shadow
- justify center
- font chicago
- face plain
- size 12
- height 18
- popupitem {Unspecified}:
- popupitem Child
- popupitem Cleared
- popupitem Completed
- popupitem Infant
- popupitem Qualified
- popupitem Pre-1970
- popupitem Stillborn
- popupitem Submitted
- popupitem Uncleared
- @@GeDF@@CHAN Editing
- ! static text with level and tab
- newline
- style static
- text Last Changed:
- face plain
- width 75
- justify right
- cellbg 0xD4 0xB4 0xA4
-
- ! edit field with value
- hskip 0
- style static
- text *valu
- text *DATE
- get *DATE.TIME
- ifnotempty
- text ", "
- text *it
- endif
- cellbg 0xD4 0xB4 0xA4
- width -1
-
- HideExcess
- @@GeDF@@NCHI Editing
- ! static text with level and tab
- hskip 15
- style label
- text Number of Children:
- width 130
- justify right
-
- ! edit field with value
- hskip 5
- style editvalue
- border 3Dfield
- width 30
- hskip 10
- @@GeDF@@SLGS Editing
- use CONL Editing
- @@GeDF@@SLGS Printing
- use CONL Printing
- @@GeDF@@REPO Record Printing
- leftskip 0
- lineskip 0
- minlines 1
- settab 72
- settab 110
- hrule
- hrule 1
- style label
- width -1
- size 14
- text Repository Record
- hrule
- hrule 1
- newline 2
-
- show NAME
- show ADDRESS
- hrule
- showall NOTE
- hrule 1
- @@GeDF@@PLAC Editing
- ! static text with level and tab
- newline
- style label
- get *rec
- if HEAD
- cleartabs
- settab #tab2
- text " Default Place Hierarchy"
- width -1
- newline -2
- settab 40
- settab #tab1
- show FORM
- else
- text Place:
- tabwidth 2
- justify right
-
- ! edit field with value
- hskip 5
- style editvalue
- border 3Dfield
- width -1
- newline
- endif
- @@GeDF@@BLOB Editing
- newline
- tab 2
- hskip 5
-
- style button
- text View Encoded Data
- width 150
- structlink rawD
- justify center
- border 3dbutton
- @@GeDF@@CONT Editing
-
- @@GeDF@@SUBM Record Printing
- leftskip 0
- lineskip 0
- minlines 1
- settab 72
- settab 110
- hrule
- hrule 1
- style label
- width -1
- size 14
- text Submitter Record
- hrule
- hrule 1
- newline 2
-
- show NAME
- show ADDR
- show PHON
- show LANG
- @@GeDF@@SUBN Record Printing
- leftskip 0
- lineskip 0
- minlines 1
- settab 72
- settab 130
- hrule
- hrule 1
- style label
- width -1
- size 14
- text Submission Record
- hrule
- hrule 1
- newline 2
-
- show SUBM
- show FAMF
- show TEMP
- show ANCE
- show DESC
- show ORDI
- @@GeDF@@HEAD Record Printing
- leftskip 0
- lineskip 0
- minlines 1
- settab 72
- settab 110
- hrule
- hrule 1
- style label
- width -1
- size 14
- text Header Record
- hrule
- hrule 1
- newline 2
-
- show SOUR
- 3dhrule
- show SUBM
- show SUBN
- 3dhrule
- show DEST
- show DATE
- show FILE
- show COPR
- show GEDC
- show CHAR
- show LANG
- show PLAC
- 3dhrule
- show NOTE Header
- showall NOTE Header
- @@GeDF@@SUBN Printing
-
- @@GeDF@@GEDC Printing
- showall VERS "GEDCOM "
- showall FORM
- @@GeDF@@VERS Printing
- style label
- text *msg
- text Version:
- get #rtjs
- if 1
- justify right
- endif
- tabwidth 2
-
- hskip 5
- style editvalue
- width -1
- @@GeDF@@PLAC Printing
- get *rec
- if HEAD
- style label
- text Default Place Hierarchy
- width -1
-
- else
- style label
- text Place:
- get #rtjs
- if 1
- justify right
- endif
- tabwidth 2
-
- hskip 5
- style editvalue
- width -1
- endif
- @@GeDF@@SOUR Record Printing
- leftskip 0
- lineskip 0
- minlines 1
- settab 72
- settab 110
- hrule
- hrule 1
- style label
- width -1
- size 14
- text Source Record
- hrule
- hrule 1
- newline 2
-
- show AUTH
- show TITL Source
- showall ABBR
- showall PUBL
- showall REPO
- showall NOTE Source
-
- showall DATA
-
- 3dhrule
- showall TEXT
- @@GeDF@@AUTH Printing
- newline
- style label
- text Author:
- tabwidth 2
-
- hskip 5
- style edittext
- width -1
- @@GeDF@@TITL Printing
- get *rec
- if SOUR
- newline
- style label
- text Title:
- tabwidth 2
-
- hskip 5
- style edittext
- width -1
-
- else
- ! static text with level and tab
- newline
- style label
- text Title:
- tabwidth 2
-
- ! edit field with value
- hskip 5
- style editvalue
- width -1
- endif
- @@GeDF@@PUBL Printing
- newline
- style label
- text Publisher:
- tabwidth 2
-
- hskip 5
- style edittext
- width -1
- @@GeDF@@REPO Printing
- ! label on current line
- newline
- style label
- text Repository:
- tabwidth 2
-
- ! edit the date
- hskip 5
- get *valu.NAME
- style static
- text *it
- width -1
- @@GeDF@@mmOB Record Editing
- style label
- text "Multimedia File Link"
- width 200
-
- set blef #rmgn
- sub blef #lmgn
- sub blef 100
- HMoveTo #blef
- style button
- text "Change File Link"
- border 3dbutton
- NewLink
- width 100
- justify center
-
- show TITL mm
-
- newline
- style label
- text File:
- justify right
- tabwidth 1
-
- hskip 5
- style static
- width -1
- text *FILE
- setmmform *FORM
-
- newline
- style label
- text Format:
- justify right
- tabwidth 1
-
- show FORM mm
- hskip 20
- show NOTE Media
-
- endtoolbar
-
- style static
- showmm *FILE
- cellbg 0xFF 0xFF 0xFF
- set cwid #picw
- add cwid 4
- width #cwid
- set cwid #pich
- add cwid 4
- height #cwid
- border 3dfield
-
- HideExcess
- ZoomWindow
- @@GeDF@@rawD Record Editing
- style edittext
- font monaco
- size 9
- @@GeDF@@OBJE Printing
- get *valu
- ifnot ValidLink
- newline
- style label
- tabwidth 2
- text Multimedia File:
-
- hskip 5
- style static
- get *TITL
- ifempty
- get *FILE
- endif
- text *it
- text " ("
- text *FORM
- text )
- width -1
- newline
-
- tab 2
- hskip 5
- style static
- text *FILE
- width -1
- newline
-
- get *FORM
- if PICT
- tab 2
- hskip 5
- style static
- setmmform *FORM
- showmm *FILE
- set cwid #picw
- add cwid 4
- width #cwid
- set cwid #pich
- add cwid 4
- height #cwid
- border field
- endif
-
- endif
-
- HideExcess
- @@GeDF@@FORM Editing
- get *msg
- if mm
- hskip 5
- style editvalue
- width 50
- border 3dfield
- else
- newline
- style label
- text Form:
- tabwidth 2
- justify right
-
- ! edit field with value
- hskip 5
- style editvalue
- border 3Dfield
- width -1
- endif
- @@GeDF@@PEDI Editing
- !title
- newline
- style label
- text Pedigree:
- tabwidth 2
- justify right
-
- ! popup menu
- hskip 5
- style popupedit
- width 75
- border shadow
- justify center
- popupitem Birth:
- popupitem Adopted:adopted
- popupitem Foster:foster
- popupitem Sealing:sealing
- @@GeDF@@REFN Editing
- ! static text with level and tab
- newline
- style static
- text User Ref. ID:
- face plain
- width 75
- justify right
- cellbg 0xD4 0xB4 0xA4
-
- ! edit field with value
- hskip 0
- style static
- text *valu
- cellbg 0xD4 0xB4 0xA4
- width -1
-
- HideExcess
- @@GeDF@@CALN Editing
- newline
- style label
- text Call Number:
- tabwidth 2
- justify right
- hskip 5
-
- style editvalue
- border 3dfield
- width -1
-
- show MEDI
- @@GeDF@@
- @@GeDF@@Current GEDitCOM Format Editing Help
- .../8./1..U3RqQc/LSaE.Jt8E.3RqO......./W..2.SE...AY..U1x.../.E.1
- .FA...Pf..A4vk..0/M..kUU...6IU.103Q...W1..A6X...0Gc..kYs...7O..1
- 0L2...aW..A7gk..0V6..kcZ...8VU.10cw...ey..A8nE..0zk..kk8...AH..2
- 13E...lN..EALk..15../Elt...FBU.12Hc../4o..AFjU..2T...l5p...G5E.1
- 2WM../92..AGoU..2k6..lA9...I0k.13/U../G9..IIa...3FQ..lIZ...MH..1
- 43s../Zx..ANXk..4hw..lfl...PF..34pI../iF..APck..51k./FlK...RcU.3
- 5Po../r/zzwRkjzz....Y..W..o.0U.1....0U........./..o.0U.1.E..0U..
- ......./..o.0U.1/...0U.........M..o.0U.1.U..0U.........0./..11zz
- ....1..........3..o.0U.1/...0U....1I......o.0U.1.U..0U..........
- ..o.0U.1.E..0U..........5Q.U60.U60/IO4Zn64VZP5.UR4xkOKAUNqZqNLAU
- NaxmPK3o9LBkNKBdNaZX64ZiNaxmPK3oOKxi643WPrJo64JYOLFdPaQUFoJ2EoxB
- 62NdP4Jn65RcNKsURLBdPaQUR4VZ62FZNa3pP5EUFoJ2OLF1HooUFaxmPK3o9W/I
- O4Zn64NjQapVR0/bOLNZQm/qOL7oRK3gP5YUMqxhQ4lZR4IUMKBXNLBn65Fj643g
- P0/aNK3oRL7ZQm/jNW/5FIF1HooUNaZgNLAi1EpHQ4JXOKNdMm/3N4ZoOKtb62Zi
- NaxmPK3oOKxi64NjQW/3MKBc63FtQ4IUPqMUIaJXPr7Y1EqZ62ZCF2ZKGIFJEIkU
- IaJXPr7YQkoU60.U60/IO4IUR4xk64xa64JVMqUUGIt2GJN7F3J/H0/GNKBjQaEU
- NqZqNLAUMG/nNL7dNLAUPqMUMbJoR4xiQm/oO43o65/mPrNdN4IUP4ZiOrAUR4wU
- R4VVR0/kNL7nPqvJQm/4MLFcNL6g62pjR4VZQWkUIr/jRLBZ85Ad90/VPaEUEqVd
- P4FmNKsi63FcNG//PaBZQrFjQbAUMKtY62FZQqBZPaFVPbFn647pR5FjPbAURqZg
- P0/YOLBkP43t643i643iMqJnR4xm64xm64FZQqBZPaFZPbEUNa3hOKlt65FmNKIU
- Naxm65FcNG/kNL7nPqsi1G.U60.U63FcNG/iNLVo64ldPaIUNqZqNLAUR4VZ65/Z
- QbBjPhJn64tVPKIg65BZS0kUMKtY642UQaJnR57dMrFdPqsUOKBjPWsUKKxp64BV
- PW/ZN4Zo65FcNG/iMKpZ60VWRLEUPaxo65FcNG/nNLUd9W/IO4IUQaJnR57dMrFd
- PqsUOKBjPW/rOKlg64ZiN4ZXMLFZ64Za65FcNG/mNKBjQaEUOLAUP4xXOqJY60VX
- P4xnNKEUP4xXOmYUPr6URKtgPqBfNKEU84xkNKtZN0/gPqBfNKEd9W/NPrIUMq3i
- 64BgOKBf65FcNG/dMqxi65Fj64BcMKtbNG/oO4IUMrJmQaJiR0/mNLBoQaZXR4Zj
- PWsB60.U60.UJ4VZ64tZS5EUR5Rj65BZMrFdPqtn64FZQqBmOK7Z65FcOLAUQ4Jm
- QqxipLAUMaZmR4UUMKtY64FZMLFc64JqNKtoQmsUKKxp64BVPW/ZPbFZQW/oO4IU
- N43oNLAUMKtY65/gMKBZQmsUJ5Rj647pR5FjPbAUP4Jo65Fj64JiR4Jm64tjR4Jn
- 643WPrJo65FcNG/WOL7oO0/jQW/YNK3oO0/jQW/VR5FVMqUUMG/nPrJmMqIUNaxm
- 65FcNG/dPaNjQapVR4ZjPWsB60.U60.UEaJgPrQUR4VZ64FZMLFc64JqNKto65Rd
- P4kUMaIUMG/gOLBo64xa643gP0/aMKpdP4ZZQm/oO4Zn64ZiN4ZqOKFpMKkUMaJg
- PqtbQm/oPmsUJ4VZ64ldQrEURqZgP0/dPaBgRKFZ643gP0/hML7mOK3bNLAURqZo
- O0/gOKtfQm/oPm/oO4IUQr/jRLBZ60VXP4ZXOm/jPW/oO4IUQr/jRLBZpLAUPa3h
- NGYUMKtY65Fj65FcNG/aMKpdP5YUQaJXPr7Y64NjQW/oO43o64pVQb7dMKRZ60VX
- P4ZXOm/jPW/oO4IUoYpVQb7dMKRZ637ZMqxmNBAUMbJoR4xi8GsUJ4VZ64ldQrEU
- RqZgP0/VP5Bj64ZiMqlpN4IUP4ZiOrAUR4wUR4VdQm/kNL7nPqvJQm/kML7ZPbFn
- 60VXP4ZXOm/jPW/aMLFcNL9JQm/jQW/hPrFcNL9JQm/iMKpZQmYUMKtY642UP4Zi
- Om/oPm/oO4IUNa3hOKlt657ZMqxmN0/jNW/oO4IUQ43mNKtoQm.cMqldMqgUPqsU
- R4VZ6B7EML7ZPbFn62NVPKZgSRAUMbJoR4xi8GsB60.U60.UJ4VZ64tZS5EUQqJX
- R4ZjPW/rOKlg647Z642UP4ZnR0.cOKMUMKtt8G/VP4kUNLNZPbFn643iN0/aMKBo
- Qm/VMaxpR0/oO4Zn64ZiN4ZqOKFpMKki62Za65ZjRG/gNK3mPW/nPqpZ64tZRm/Z
- RaJiR0/jQW/VR5FmOK7pR4IUOKtaPr7hMLFdPqsg65ZjRG/XMKsUMqldMqgUR4VZ
- 6B7/R5FVMqUUFLNZPbEjELFoQaZWRLFZom/WRLFoPqsUR4wUMKFY65FcMLEUN43o
- MG/oPm/oO4IUQaJXPr7Y9W/3RaJiR5AURqZgP0/VQ5/ZML6UMLAUMbJoR4xiQmsU
- KKxp64BVPW/XP4ZXOm/oO43o647pR5FjPW/oPm/nNKIUN4JoMKZgQm.cN43oNGkU
- Q4lVMqJn90/iPrFZQmkUNLFX9WYUMK7jRLEUR4VVR0/ZRaJiR0sB60.U60.UEaJg
- PrQUR4VZ64JqNKtoQm/VPaEUMLFoQaZWRLFZQm/oO4JmNG/hMLYUMaIUPrFcNL6U
- NqJiNK3gPqRdMq3g64ZiNaxmPK3oOKxi65BpMqUUMLAUP4ZiOrAUR4wUPLJgR4Zh
- NKFdMG/aOKlZQmkUMKldMLBZQmkUMLBnPqBdMLFdPqsUP4ZiOrAg643iN0/nPrJm
- MqIUOKtaPr7hMLFdPqsi1G.U60.U63FcNG/WPrFoPqoUQqJXR4ZjPW/jNW/7HYF7
- JYZ2JI3A657ZMqxmN5AUO43n642UQqJmOKJn64xa647pR5FjPbAURqZoO0/oO4IU
- NaxgP4xrOKtb64NpPaBoOKxiQncB1G.U60/CNLQUIqxpQaBZCW/VR5FVMqUUMG/i
- NLQUQqxpQaBZ64BdR43oOKxi65Fj65FcOLAUQaJXPr7Y1G.U60/CPrFZQncUQqVj
- Rm/nPqpZ64tjR4Jn643WPrJo65FcOLAUOKtYOLNdN5JVP.oU60.UHaJr62tjR4Jn
- CW/VN4EUMG/iNLQUPaxoNG/mNKBjQaEUR4wUR4VdQm/mNKBjQaEU85ZjRG/XMKsU
- O43qNG/VPbYB60.U60.U60.U60.U60/iRKpWNL6UPqMUPaxoNG/mNKBjQaFn90/W
- RLEUNK3XO0/iPrEUQaJXPr7Y64Zn64ldPKZoNKEB60.U60.U60.U60.U60/oPm.n
- AW/fMbZoNLAd1G.U60//N4EUHLJgR4ZhNKFdMHcUMKFY642UP4ZiOm/oPm/VPbYU
- R5ZkNG/jNW/hRKloOKpZN4ZV64NdP4IB60.U63BpMapdR5FZQXcUQqVjRm/oO4IU
- QrJWPKZoR4Jm90/jQW/gOKtf65Fj642UQrJWPKZoR4Jm1G.U60//PaBZQrFjQW/7
- PbFZQaJnR1cUQqVjRm/jQW/gOKtf65Fj642UQ4JmQqxi65RdR4UUOKtoNL7ZQrEB
- 60.U60.U60.U60.U60/dPW/oO4IUMKtXNLBoPr7n64xa65FcOLAUOKtYOLNdN5JV
- P.oU60.UF4JnMqJiN4JiR0/7PbFZQaJnR1cUQqVjRm/jQW/gOKtf65Fj642UQ4Jm
- Qqxi65RdR4UUOKtoNL7ZQrEB60.U60.U60.U60.U60/dPW/oO4IUN4JnMqJiN43i
- R5AUPqMUR4VdQm/dPaFdRaZYRK3g1G.U60//N4EUEKldMLAu643YN0/gOKtf65Fj
- 643i643gOK3n64NjQW/oO4Zn64ZiN4ZqOKFpMKkB60.U623YN0//QrBjMqZVR4Zj
- PXcUMKFY64ldPagUR4wUMKtjR4VZQW/dPaFdRaZYRK3g65FcMLEUO43n643i1G.U
- 60.U60.U60.U60.UMLBnPqBdMLFdPqsURqZoO0/oO4Zn64ZiN4ZqOKFpMKkB1G.U
- 60.U62NdPa3gP5Yg643iSG/jR4VZQW/5FIF1HooUOKtaPr7hMLFdPqsUOKsUR4VZ
- 657ZMqxmN0/rOKlg643kQ4JVQW/WNKljRm/oO4IUMbJoR4xiQmsUJ4VZ64lVQrEU
- OKtaPr7hMLFdPqsURqZgP0/WNG/oO4IUN43oNG/VPaEUR4ZhNG/oO4Zn657ZMqxm
- N0/rMLAUP43nR4JY64BcMKtbNKEU84Za65FcMLEUOKtaPr7hMLFdPqsUOLAUOKsU
- R4VZ657ZMqxmN0Yi1EqZ62N/HIZAKG/GNKBjQaFn1G.U60.U63FcNG/oPr.UPqMU
- R4VZ65RdPaFjRm/bOLNZQm/oRqwUMbJoR4xiQm/oO43o64FpQ4ldMq3oNG/oO4IU
- EqVdP4FmNKsUMKtY62ZiN4JsmG/XPqphMKtYQm/dPW/oO4IUJaZZRm/BNKtp9UoU
- 60.U60/IO4IUNaZmQrEUQqJXR4ZjPW/gOLBoQm/oO4IUO5JnMa3iN0/VPaEURqZa
- NG/aPr6UR4VdQm/aMKpdP5Yi63ZjRG/XMKsUMqldMqgUNKZoO4Jm64tVPKIUR4wU
- QqJZ65FcNG/7HYF7JYZ2JI3A657ZMqxmN0/aPr6UR4VVR0/kNL7nPqsi62Za65Fc
- NG/kML7ZPbFn64xa64JdR4VZQW/nQ4xpQqIUOLAUOqtjRmkUR4VZSG/rOKlg643g
- QqwUMaIUMG1GI43mNKtoQxAUMbJoR4xi9W/1P4ZXOm/oO4Zn647pR5FjPW/oPm/n
- NKIUR4VZ62N/HIZAKG/mNKBjQaEUPqMUR4VVR0/kNL7nPqvJQm/kML7ZPbFn9UoU
- 60.U63FcNG/iNLVo65BZMrFdPqsUOLAURLBZN0/oPm/ZPbFZQW/dPaNjQapVR4Zj
- PW/VMaxpR0/oO4IUN43oNG/VPaEUQ4lVMqIUNaxm65FcNG/hML7mOK3bNG/ZRaJi
- R0sUJ5Rj647pR5FjPbAUP4Jo65Fj64JiR4Jm64tjR4Jn643WPrJo65FcNG/hML7m
- OK3bNG/jQW/VR5FVMqUUMG/nPrJmMqIUNaxm65FcNG/dPaNjQapVR4ZjPWsB60.U
- 60.UJ4VZ64tZS5EUQqJXR4ZjPW/gOLBoQm/VP4kUMqVdP4FmNKsUOKsUR4VdQm/a
- MKpdP5Yi62NjQW/ZMKBc64BcOKlY65FcNG/oMK7gNG/rOKlg64VVRaIUR4VZ64tV
- PKIg65FcNKZm65BZS0kUMKtY65FcNKZm647dQbFcN43oNGsUKKxp64BVPW/XP4ZX
- Om/oO4IUPa3hNG/oPm/nNKIUR4VVR0/XO4ZgNBJn62ZCF2ZKGIFJEIkUQaJXPr7Y
- 9W/7NW/oO43o64BcOKlY64Zn65FcNG/nQ4xpQqIUOKsUMKtt64NVPKZgSGkUR4VZ
- 65RdP4kUMaIUMG1GFa3hOKltom/gOKtf64Zi65FcNG1GH4ZiOxAUMqxgRKpi9W/N
- PrIUMq3i64BgOKBf65FcOLAUP4ZiOm/oPm/qOKJn65FcMLEUFY3BGIlN637ZMqxm
- N0sB60.U60//NbFZQW/oO4IUNa3hOKlt65FVMalZ643mNG/oRqwUMbJoR4xiQm/o
- O43o64BVPW/WNG/pQqJY65Fj643oR43XO0/iNLQUMqVdP4FmNKsUPr6UN4JoMKBc
- 65FcNG/XRL7mNKto64BcOKlYQaJi9UoU60.U63FcNG/iNLVo65BZMrFdPqsUOLAU
- RLBZN0/oPm/YOLBkP43t643iN0/oPm/ZPbFZQW/aMKpdP5YUNLNZPbFn9W/7NW/t
- PrIUP4JVQasUQqxhNG/iNLQUNa3hOKlt64JqNKto90/tPrIUMq3i64BgOKBf65Fc
- NG1GELFoMKBc62tZRm/3RaJiRBAUMbJoR4xi65Fj643YN0/oO43o64FVR42UR4wU
- R4VZ657ZMqxmN0sUFLNZPbFn65RdP4kUML/kNK3m643n647pR5FjPbAi63ZjRG/X
- MKsUMqldMqgUR4VVR0/WRLFoPqsUR4wUQqJZ64FZR43dP5AU84FVR4Ig65/gMKBZ
- QmkUPaxoNLAg64JoMmsd643WPrJo65FcMLEUNLNZPbEi1G.U60.U63FcNG/WPrFo
- PqoUQqJXR4ZjPW/jNW/4EIp7H3YUQaJXPr7YQm/cMLAUMG/nNL7dNLAUPqMUMbJo
- R4xiQm/rOLFc65FcNG/aPqlgPrRdPaQUNbJiMrFdPqtnCUoB60.U62tZRm/HPrJm
- MqIu643oR43XO0/V64tZRm/nPrJmMqIUMqZoMLFdPqsUR4wUR4VdQm/mNKBjQaEB
- 60.U62tjR4JnCW/nO4xr65BjPKIUPaxoNLAUMK7jRLEUR4VdQm/aMKpdP5YB60.U
- 62tZRm/CPrFZQncUMKFY642UPaJr64tjR4IUQaJXPr7Y65Fj65FcOLAUQaJXPr7Y
- 60VtPrIUMq3i64VVRaIUMKtt1G.U60.U60.U60.U60.UPbJhMaJm64xa64tjR4IU
- QaJXPr7YQmkUMbJo64JVMqUUPaxo657ZMqxmN0/dQm/gOKpdR4JY1G.U60.U60.U
- 60.U60.UR4wUAn6UOq7tR4Jn8EoU60.UEKFY62ppP5FdPKJYOK2u643YN0/V64ld
- PagUR4wUMKtt65FtQ4IUPqMUPLJgR4ZhNKFdMG/aOKlZ1G.U60/HRK7hOLFoNL6u
- 65BcPrQUR4VZ65BpMapdR5FZQWkUPr6UP4ZiOm/oPm/V65BpMapdR5FZQUoB60.U
- 60.UFaZiMKlgSGkUMKtt64xoO4Jm62R3F2BDHG/dPaNjQapVR4ZjPW/dPW/oO4IU
- QaJXPr7Y65RdP4kUML/kNK3m647ZP4xr65FcNG/WRLFoPqtn9W/IO4IUP43nR0/d
- PaNjQapVR4ZjPW/rOKlg647Z65FcNG/YMLFZ643iN0/oOKpZ65FcOLAUQaJXPr7Y
- 65RVQm/gMLBoNKEUMqVVPaRZN0.cOKMUR4VVR0/dPaNjQapVR4ZjPW/dQm/dPW/o
- O4IUQaJXPr7Y8GsB1OIUG2J/F2JG637ZMqxmN.oU60.U60/IO4IUG4JVN4Jm637Z
- MqxmN0/dQm/nOKpkP5YUN4ZnQ4lVSKJY64Zi642UQqJmOKJn64xa64JYOLFdPaQU
- NaZZP4Fn9W/NPrIUMq3i64pVOqIUMKtY64BcMKtbNLAUSKxp65RVPbEU85BZNG/6
- FI32FJ6UIaJXPr7Y64NjQW/oO4IUPKJVPaZiNrAUPqMUPKxnR0/jNW/oO4IUNaZZ
- P4Fn8GsUI57jMa3WP5YUR4VZ64xiP5YUR4VdPaRn65ZjRG/hOKRcR0/XO43iNqIU
- ML7Z65FcNG/aOKlZ64tVPKIUMKtY65FcNG/cNK3YNL6UPaxoNLAi1EqZ63BDJJ71
- FG/GNKBjQaFn1G.U60.U63FcNG/aOL7nR0/nNKBoOKxi64JiR4JmQm/YNLFVOKln
- 643WPrJo65FcNG/nPrJmMqIUQrJXO0/VQm/VRLFcPr6g65FdR4lZ90/VPaEUQ5JW
- P4ZnO4Jm9W/NPrIUMq3i643gQqwUMKFY642UP4ZiOm/oPm/V6373I2xHGJFDIZYU
- IaJXPr7Y65RcOKBc64FZNaZiNLAURqVZQaIUR4VZ65BjRL7XNG/dQm/nR4xmNKEi
- 62NdPa3gP5YUSKxp64BVPW/VN4EUPaxoNLAUMK7jRLEUR4VZ65BjRL7XNGkUNqZq
- NG/V64BVP4kUPbJhMaJm90/VPaEUQr/ZMqZaSG/oO4IUR5ZkNG/jNW/nPrJmMqIU
- 82pZN4ZV63FtQ4Id9W/IO4IUoZBcPr7o63FdR4lZom/dQm/pQqJY65Fj64JiR4Jm
- 643i643WMb7ZRaZVR4JY65FdR4lZ9W/IO4Zn65FdR4lZ65RdP4kUMaIURLBZN0.c
- OKMUMLNVOKlVMalZ8G/rO4Ji64BdR4ZiNm/oO4Zn65BjRL7XNG/dPW/VPaxoO4Jm
- 657ZMqxmN0sB60.U60.UJ4VZ64tZS5EUQqJXR4ZjPW/bOLNZQm/dPaNjQapVR4Zj
- PW/VMaxpR0/rO43o64BVPW/WNG/aPrJiN0/dPW/oO4Zn65BjRL7XNG/VPaEUPaxo
- NLAUMK7jRLEUR4VZ65BjRL7XNG/YMLFV9UoU60.U60/IO4IUP43nR0/nNKBoOKxi
- 64BVPW/WNG/pQqJY65Fj64JiR4Jm64JsMqJmQ5Fn64NmPqoUR4VZ65BjRL7XNG/j
- QW/gOKtf65Fj64ppP5FdPKJYOK2UPq7eNKBoQm/nRKBc643n65BXMKtiNKEUOKpV
- NqJn64NmPqoUR4VZ65BjRL7XNGsB60.U62NdPa3gP5Yg65FcNG/YMLFZ643iN0/o
- OKpZ65FcOLAUQaJXPr7Y65RVQm/gMLBoNKEUMqVVPaRZN0.cOKMUR4VVR0/dPaNj
- QapVR4ZjPW/dQm/dPW/oO4IUQaJXPr7Y8G/rOKlg647Z64FdQr/gMLZZN0sB1OIU
- IYJEHpB7J2xGKG/GNKBjQaFn1G.U60.U63FcNL7Z643mNG/aOKJgN5AUR4wUNKto
- NL6UR4VZ64tVPKIUMKtY643YN57ZQrAUPqMUR4VZ657ZQ4xnOLFjQbYUPr6UPqMU
- QqxhNG/gPqBVR4ZjPW/rO4JmNG/nPrJmMqJn643mNG/nR4xmNKEi63ZjRG/XMKsU
- MKlnPm/ZPbFZQW/iPrFZQm/VMaxpR0/oO4IUQaJkPrBdR4xmSGsUJ4VZ64FVR4IU
- MKtY65FdPKIUR4VdQm/mNKBjQaEURq3n64lVQrFZN0/XO43iNqJY60VdNW/oO43o
- 64ZiNaxmPK3oOKxi64Zn64Zi65FcNG/mNKBjQaEd65RdP4kUMaIUN4ZnQ4lVSKJY
- 643iN0/oO4IUNKtY9UoBdG/HJI7BGJFIFJ6UIaJXPr7YQkoU60.U60/IO4JmNG/V
- QaIUNaZZP4Fn65Fj64JiR4Jm65FcNG/iMKpZ643iN0/VN4FmNLBn64xa643iSKxi
- NG/VMrFdPaQUMLAUMG/nRK7hOLFoNL6UNaxm65FcNG/bNKtZMKljNqZXMKkUN43o
- MG/dPW/oO4IUFoJ2EoxB62NdP4Ii63FcNL7Z64Zn643gQqwUMG/WRLFoPqsUR4wU
- MKFY64ppP5FdPKJYOK2UP4ZiOrAUQrJXO0/VQm/V65/dMrFpQaIUPqMUR4VZ65Bp
- MapdR5FZQWsUJ4VZ64FVR4IUMKtY65FdPKIUR4VdQm/mNKBjQaEURq3n64lVQrFZ
- N0/XO43iNqJY60VdNW/oO43o64ZiNaxmPK3oOKxi64Zn64Zi65FcNG/mNKBjQaEd
- 65RdP4kUMaIUN4ZnQ4lVSKJY643iN0/oO4IUNKtY9UoBdG/HJI7BGJBHGIxC637Z
- MqxmN5AB60.U60.UJ4VZ63BJEYp7IpB7HosUIaJXPr7Y64Zn65BdPL/gSG/YOLBk
- P43tNKEUMKtY65ZjRG/XMKsUMqVVPaRZ643iSG/aOKJgN0.cQqJZ63BJEYp7IpB7
- HosUIaJXPr7Y64NjQW/oO4IUPKJVPaZiNrAUPqMUR4VZ64NdNKlYQm/dPW/oO4Zn
- 65FtQ4IUPqMUQaJXPr7Y8GsB1OIUHJJAJ2ZBFIF7EG/GNKBjQaFn1G.U60.U62pJ
- H3F7HIJ2GI2UIaJXPr7YQm/dPW/5FIF1HooUFaZgNLAUML7Z65JnNKEUR4wUQrFj
- QaIUNKtXPqFZN0/hRKloOKpZN4ZV64FVR42i62ldOqIUMKlg64xoO4Jm64RZPaJV
- P4xbOKBVP0/VQ5/gOKBVR4ZjPbAg62R3F4ZoEoxB64FjNLAUPaxo65BpQ5/jQbEU
- FKtXPqFZN0/BJIlIGIp3F2Z/637ZMqxmN5Ai62Za65ZjRG/jQ4Ji65BpMqUUMG/m
- NKBjQaEg65ZjRG/rOKlg65BZNG/V64tjR4ZXNG/VMaxpR0/oO4IUNKtXPqFZN0/m
- NKBjQaEUMKtY65BjPKIUOKtaPr7hMLFdPqsUMK7jRLEURqVVR0/YMLFV64Zn64Ji
- MqxYNKEUOKsUR4VVR0/mNKBjQaEi63ZjRG/XMKsUMqldMqgUPqsUR4VZ6B7KOKJr
- 62JiMqxYNKEUF43oMRAUMbJoR4xi65Fj65BZNG.cMKtY64BjQ5Yg64Za64FZQqZm
- NKEd65FcNG/mMLQUNKtXPqFZN0/YMLFV9W/NPrIUQqVjRKlY643YN0/hRKloOKpZ
- N4ZV65Fj65ZjRG/bNKtZMKljNqZXMKkUN43oMG/WSG/VN4FdPaQUP4ZiOrAUR4wU
- PLJgR4ZhNKFdMG/aOKlZQm.cQqJZ62ldPahdPaQUR4wUHLJgR4ZhNKFdMG/4OKlZ
- QmYi1E
-