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

    define FIELD.ID as a text variable
    define ENHANCEMENTS as a 1-dim text array

    call OPENWINDOW.R(20479, 32767, 0, 16383, "Example", 0) yielding WIN
    call SETWINDOW.R(WIN)

    show HELP.FORM with "help.frm"
    show CONTENTS.FORM with "contents.frm"

      '' read all information into the list box of help.frm
    let DARY.A(DFIELD.F("TEXT", HELP.FORM)) = READ.HELP("help.txt")

      '' build an array to contain line numbers of various enhancement desc.
    reserve ENHANCEMENTS(*) as 8
    let ENHANCEMENTS(1) = .DEFAULT.BUTTON.DESC
    let ENHANCEMENTS(2) = .DIALOG.POSITIONING.DESC
    let ENHANCEMENTS(3) = .FILE.DIALOG.DESC
    let ENHANCEMENTS(4) = .FONT.DIALOG.DESC
    let ENHANCEMENTS(5) = .LISTBOX.TOP.DESC
    let ENHANCEMENTS(6) = .SYSTEM.CURSOR.DESC
    let ENHANCEMENTS(7) = .SYSTEM.TEXT.DESC
    let ENHANCEMENTS(8) = .PRINT.WINDOW.DESC
    let DARY.A(DFIELD.F("TABLE", CONTENTS.FORM)) = ENHANCEMENTS(*)

    let LOCATION.A(HELP.FORM) = LOCATION.F(0.0, 32767.0)
    let LOCATION.A(CONTENTS.FORM) = LOCATION.F(32767.0, 32767.0)

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