[REBOL] Cool Cursor Console Counter
From: doug::vos::eds::com at: 17-Dec-2001 14:28
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.