Main  
''
'' AUTHOR: Steve Bailey
'' CREATED: 2-23-96
'' DESCRIPTION:
''    Main routine for interactive graph modification program
''
    define FIELD.ID as a text variable
    define WIN.PTR as a pointer variable

       '' bring up window in lower right corner of screen
    call OPENWINDOW.R(20000, 32768, 16000, 32768, "Test Trace Plot", 0)
         yielding WIN.PTR
    call SETWINDOW.R(WIN.PTR)
  
      '' The graph "trace" is a template created in SIMDRAW
    show Y1, Y2, Y3 with "trace"
    let CHART.PTR = A.Y1

    call PLOT.DATA     '' plot data to the chart
  
    show CHART.DLG with "chart.frm"

    ''let DDVAL.A(CHART.DLG) = 3   // top left positioning
    let FIELD.ID = ACCEPT.F(CHART.DLG, 'CHART.CTRL')

    let FIELD.ID = FIELD.ID
end
