Subroutine to display percentage of a file used.
VMS symbol LOG_TERM is checked by this subroutine.
PERCENTAGE will only display the bar graph when:
LOG_TERM = DEC (ie: VT100 compatible)
Process mode is INTERACTIVE
Under other conditions the program simply returns to the parent
LOG_TERM is a symbol that is set during the DRS LOGIN.COM
"a" = argument, "r" = referenced, "s" = set
call percentage (with the following arguments)
Unit [variable i*4 r]
Unit = Input file to be analyzed
Note: If "Unit" = 0 then "percentage chart" is erased.
Therefore, recommend calling PERCENTAGE (0) at end of
'drsvt' (logical name)
vescinit (shared DRS external)
getsymbol (shared DRS external)
howlong (shared DRS external)
getmode (shared DRS external)
Although this program has been used by the U.S. Geological Survey,
no warranty, expressed or implied, is made by the Survey as to the
accuracy and functioning of the program and related program
material nor shall the fact of distribution constitute any such
warranty, and no responsibility is assured by the Survey in
Clint Steele 6/9/87 .for
Jean Riordan 1/15/88 Modified for DRS$SHARE UNIX compatability
Clint Steele 9/27/88 Changed bar display from blanks to :'s
Adjusted 1% computation to handle change in
HOWLONG that now returns 100%.
Clint Steele 11/23/88 Added recognition of BACKGROUND mode.
Clint Steele 11/23/88 Changed LOG_MODE to CALL GETMODE
write (6, 1) VRevIndex, VRev,
* Blank(1:Columns), VNone
call getmode (Mode)
call getsymbol ('TERM', Term, TermLength) ! UNIX SPEC
call howlong (LastUnit, NumberRecords)