Process FINAL.REPORT

  '' Goldmine Simulation                                       August 2, 1988
  '' CACI Products Company

  '' The final report is presented on the screen in a dialog box.  Each piece
  '' of information has its own field.  The form has only one field which is
  '' pickable (the DONE button).  All of the data fields have been disabled.


  Define FIELD.ID as a text variable
  Define REPORT as a pointer variable


  Show REPORT with "report.frm"
  Let DDVAL.A(DFIELD.F("RUN LENGTH",REPORT)) = TIME.V
  Let DDVAL.A(DFIELD.F("AVERAGE LIFT",REPORT)) = AVG.CONTENTS
  Let DDVAL.A(DFIELD.F("NUMBER LIFT",REPORT)) = NO.OF.LOADS
  Let DDVAL.A(DFIELD.F("AQ1",REPORT)) = AVG.QUEUE(1)
  Let DDVAL.A(DFIELD.F("MQ1",REPORT)) = MAX.QUEUE(1)
  Let DDVAL.A(DFIELD.F("AQ2",REPORT)) = AVG.QUEUE(2)
  Let DDVAL.A(DFIELD.F("MQ2",REPORT)) = MAX.QUEUE(2)

  Let FIELD.ID = ACCEPT.F(REPORT,0) ''wait for DONE
  Let FIELD.ID = FIELD.ID

  Stop


End ''FINAL.REPORT
