main
''
''    AUTHOR: Steve Bailey 
''    CREATED: 9-8-93
''    DESCRIPTION: 
''      This program shows some of the forms enhancements in SIMGRAPHICS II.
''

    define ANIMAL.FORM as a pointer variable
    define FIELD.ID as a text variable

    show ANIMAL.FORM with "animal.frm"

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