main
''
''    AUTHOR: Steve Bailey
''    CREATED: 10-20-93
''    DESCRIPTION:
''      This program shows an example of SIMGRAPHICS II multiple selection
''      listboxes.  It should only be run under SIMGRAPHICS II.
''
    define ANIMAL.FORM as a pointer variable
    define FIELD.ID as a text variable

    show ANIMAL.FORM with "animals.frm"

    let FIELD.ID = ACCEPT.F(ANIMAL.FORM, 'ANIMALS.CTL')
    let FIELD.ID = FIELD.ID                             '' prevent warnings
end
