The progress-bars.models vocabulary makes a progress bar model and various utility words that make progress bars for common tasks.

Making a generic progress bar:

with-progress-bar ( quot -- )

Updating a progress-bar:

set-progress-bar ( ratio/float -- )

A progress bar for reading files:

with-file-reader-progress ( path encoding quot -- )