$! ANIMATION_DEMO.COM
$!
$! This procedure iteratively invokes the graphics viewer to display
$! all the .GRA files in the current directory.  If the user supplies a
$! parameter to the command procedure, it takes that a time delay for each
$! drawing to be displayed.  Otherwise, each graphic will remain on the screen
$! until it is manually dismissed.
$!
$ on control_y then goto done
$!
$ if P1 .nes. "" then timeout = "/timeout=''P1'"
$
$ stream_id = 0
$!
$SHOW_ALL_FILES:
$ stream_id = stream_id + 1
$!
$SHOW_NEXT_FILE:
$ filename = f$search("ANIM_*.GRA", stream_id)
$ if filename .eqs. "" then goto SHOW_ALL_FILES
$ document/graphics=view 'timeout' 'filename
$ goto SHOW_NEXT_FILE
$!
$DONE:
$ exit