Don{ald} O. Woodall wrote:

>Hello REXX Programmers
>
>/* ------------------------------------------------------- */ Do I = 1 to
>results.0
>  looplength = length(results.I)
>  string_pos = 1
>  search = ' '
>  DO WHILE looplength > 0
>    search = substr(results.I,string_pos,1)
>    IF search = " " THEN DO
>      CALL lineout ritefile, results.I
>      blankdir = blankdir + 1
>      CALL syscurpos 24, 0
>      SAY linespace
>      CALL syscurpos 24, 5
>      SAY '             The number of blank directories is: ' blankdir
>      LEAVE
>    END  /* IF search THEN DO */
>    string_pos = string_pos + 1
>    looplength = looplength - 1
>  END  /* DO WHILE looplength */
>END /* DO I */
>
>     This program has about 20 lines of output to the screen I would like
>to maintain on the screen.
>
>    IF search = " " THEN DO
>      CALL lineout ritefile, results.I
>      blankdir = blankdir + 1
>      CALL syscurpos 24, 0
>      SAY linespace
>      CALL syscurpos 24, 5
>      SAY '             The number of blank directories is: ' blankdir
>      LEAVE
>    END  /* IF search THEN DO */
>
>     I would like the last "SAY" line above to overwrite itself so the
>user can watch the counter increment itself as each new line is written to
>the file.
>
>     The extra CALL and SAY statement are attempts to get this to work.  I
>have had it working at different points in the programs evolvement.  It
>comes and goes as I work on different areas of the program.  That is why
>it is so baffleing and mysterious to me why sometimes it works and
>sometimes it writes at the desired position, but scrolls the screen up
>hundreds of lines of incrementation.
>
>     All ideas, recommendations, suggestions, thoughts gratefully
>accepted.
>
>     Thanks
>

Hi Don,

You probably need to change those "24"s to "23"s, maybe use 
charout instead?

Added: that was assuming that you're using a stock standard 80 x 
25 window! Of course you could use a mode command to set an 
extra line in the window etc.

-- 
Regards,
Mike

Failed the exam for
--------------------
MCSE - Minesweeper Consultant and Solitaire Expert
--------------------
[ISP blocks *.exe, *.cmd, *.bat, *.reg attachments]
[Please use zipped versions of above]




------------------------ Yahoo! Groups Sponsor --------------------~--> 
$9.95 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/E8folB/TM
--------------------------------------------------------------------~-> 

 
Yahoo! Groups Links

 To visit your group on the web, go to:
    http://groups.yahoo.com/group/os2user/

 To unsubscribe from this group, send an email to:
    os2user-unsubscribe{at}yahoogroups.com

 Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 




---