The progress-bars vocabulary implements a simple progress bar string.

To make a generic progress bar string:

make-progress-bar ( percent length -- string )

The progress-bars.models vocabulary implements a word to display a progress bar that shows how much of a file has been read so far.