* Abindon Cross benchmark ( prof. Kendall Preston )
* implementation in AIM by Frans Groen
*
* display is put off to obtain the operation times
* separated from the display times
* bench mark time = (a) + (b) + (c) + (d)
*
dof               * display of
ton               * timer on
readf ACROS.IM,A  * read image
gdisp             * display
unif A,B,31       * uniform filter (a)
gdisp B           * display result
thresh B,B,1,147  * threshold (b)
bdisp B,1         * display
skelet 100,1,0,B  * skeleton (c)
bdisp B,1         * display (d)
don               * display on