Cool Cursor Console Counter
[1/1] 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.