""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
   DISPLAY A VISUAL COUNTER TO SHOW PROGRESS
   """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
   PRODUCT   :  R:BASE                  VERSION      :  3.1
   CATEGORY  :  PROGRAMMING             SUBCATEGORY  :  TOOLS
   """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
   From William B. Driskell, marine biologist and computer consultant,
   6536 20th Avenue N.E., Seattle, WA 98115.
 
   The following code segment counts the number of times through a
   DECLARE CURSOR loop. It shows the number of rows processed in the
   upper right corner of the screen.
 
     SET VAR vrowknt INTEGER = 0
     COMPUTE vtotcnt AS ROWS FROM tblname
     DECLARE c1 CURSOR FOR SELECT colname FROM tblname
     OPEN c1
     FETCH c1 INTO v1 vind1
     WHILE SQLCODE <> 100 THEN
       SET VAR vrowknt = (.vrowknt + 1)
       WRITE 'Row' .vrowknt 'of' .vtotcnt AT 1,65 REVERSE
       *( ...Insert code to do what needs to be done with the V1 value.)
       FETCH c1 INTO v1 vind1
     ENDWHILE
     DROP CURSOR c1