On (10 Jun 95) Jim Tanner wrote to All...
 JT> Looking for some PB code that does a "percent bar" such as used by an
 JT> installation program to show the percent completed/percent remaining...
First, work something like this:
PercentDone!=BytesCopied&/BytesTotal&
LOCATE 1,1:PRINT "(";PercentDone!"%)";
That'll give you a basic (10%) done message. Next, go on for a bar:
LOCATE 1,1:PRINT STRING$(INT(PercentDone!*10+1), 178);
Remember, both of these should be put inside your install loop.
   - Chris Adams  - (805)928-8565 (VMB/FAX)  -
   - 1:212/2001.5@Fidonet - 87:40/2.5@CoastNet    
... Age is important only in dead fish and good wine.
--- PPoint 1.88
---------------