I needed a good progress indicator / counter mechanism today.
Here is what I came up with - works with CORE.
(this example just counts to 999,000 and shows every 1000)
REBOL []
count: 1
until [
count: count + 1
if (count // 1000) = 0 [ prin ["^(1B)[7D" count] ]
; count by 100's, 1000's or whatever you need
count = 999000
]
For more info on how this works - see:
http://www.rebol.com/docs/core23/rebolcore-18.html#sect5.1.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
