|
|
|
...much computation...
END DO</lang>
Function PROGRESSNOTE is invoked at the start of theeach iteration, with its first parameter stating how many steps have been completed (initially, none: this restarts its timers) and the second indicates how many are to be made. The function notes whether sufficient clock time has elapsed since its previous report (more than six seconds, for example) and if so, returns ''true'' after starting an output line with a standard report giving an estimated time to run and an estimated time (and date, if not the current day) of completion. This line is not terminated; the invoking routine appends its own progress message, tailored to the nature of the task it is working through. For instance,
<pre>
Standard progress report|Tailored message.
|