===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 05-12-93 (23:31)             Number: 6
From: DEAN HODGES                  Refer#: NONE
  To: ADAM DAVILA                   Recvd: NO  
Subj: Scaling.                       Conf: (35) Quick Basi
---------------------------------------------------------------------------
    This little piece of code is what you need,  It prints a bar across the
screen that is in proportion to the lines processed. The line that contains
"temp% = Location& * 40 \ FileSize&" is the scale size, in this case 40
characters long, you can change this to about any size you need.



DECLARE SUB Scale (FileSize&, Location&)
'
' *** Demo code
'
CLS
OPEN "REPORTS.BAS" FOR INPUT AS #1
OPEN "REPORTS.BAK" FOR OUTPUT AS #2
FSize& = LOF(1)
LINE INPUT #1, text$
Location& = Location& + LEN(text$) + 2
WHILE NOT EOF(1)
    PRINT #2, text$
    Scale FSize&, Location&
    LINE INPUT #1, text$
    Location& = Location& + LEN(text$) + 2
WEND
LOCATE 12, 65: PRINT "%100";
END
'
' *** Subroutine you need
'
SUB Scale (FileSize&, Location&) STATIC
    temp% = Location& * 40 \ FileSize&:   REM temp% = # of squares to print
    temp1% = Location& * 100 \ FileSize&: REM temp1% = the percent done 0-99
    LOCATE 12, 25:PRINT STRING$(temp%, "Û");
    LOCATE 12, 65: PRINT USING "%##"; temp1%;
END SUB


--- PPoint 1.56
 * Origin: Vet Net SysOp (1:207/223.2)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20