Dave,
Thanks a bunch for the code below.
I think I need to scrap my code and use this instead.
Oh well, live and learn. I think that any time I plan
to do something, I should ask if it has already been
done...
This works great on my system. I think the problem
that I am having with the XGF Demo is on the input
side. The screen writing seems to work fine.
Thanks so much.
Kevin
--- [EMAIL PROTECTED] wrote:
>
> >
> > I am in the middle of writing a function to
> display a
> > progress bar.
>
> Did you try using the already existing function to
> do this?
>
> ie: try out this "mini program"
> >; need to set up vars like DUZ,DTIME, IO, IO(0),
> etc.
> D INIT^XPDID
> S XPDIDTOT=100
> D TITLE^XPDID("hello world")
> D UPDATE^XPDID(50)
> F AJJ=90:1:100 D UPDATE^XPDID(I)
> D EXIT^XPDID()
>
> The XPDID routine does modify the scroll region and
> make the
> application seem a bit more "GUI"-like, by the
> way...
>
> David
>
> >
> > I want the bar to stay on one line, so at the end
> of
> > each line, I need to do something to get back to
> the
> > beginning of line.
> >
> > My first approach was to write the line, then
> write a
> > $char(13) to go back to the beginning of the line,
> > ready for the next refresh.
> >
> > But this gave very odd output, like this:
> >
> > Lets begin...
> > Progress:
> >
> 94%--------------------------------------------->||
> > Progress: 89%------------------------>|--|
> > Progress:
> > 84%-------------------------------------->|---
> > Progress:
> > 74%----------------------------------->|---------|
> > Progress: 69%--------------------|-----------|
> > Progress:
> 64%----------------------------->|--------
> > Progress:
> > 59%-------------------------->|------------------|
> > Progress: 49%------------------------------------|
> > Progress: 44%------------------->|--------------
> > Progress:
> > 39%----------------->|---------------------------|
> > Progress:
> 29%----------------------------------------|
> > Progress: 24%---------->|-------------------
> > Progress:
> > 19%-------->|------------------------------------|
> > Progress:
> > 9%---->|--------------------------------------|
> > Progress: 4%->|------------------------
> > -------------------|
> > All done!...
> >
> >
> > But if, instead, I write a !, and then issue an
> escape
> > sequence to move the cursor up one line, it works
> > perfectly.
> >
> > It acts like it drops characters unless I write a
> !
> >
> > Does anyone know what is going on?
> > thanks
> > Kevn
> >
> >
> > GTM>
> >
> >
> > __________________________________________________
> > Do You Yahoo!?
> > Tired of spam? Yahoo! Mail has the best spam
> protection around
> > http://mail.yahoo.com
> >
> >
> >
>
-------------------------------------------------------
> > This SF.Net email is sponsored by the 'Do More
> With Dual!' webinar happening
> > July 14 at 8am PDT/11am EDT. We invite you to
> explore the latest in dual
> > core and dual graphics technology at this free one
> hour event hosted by HP,
> > AMD, and NVIDIA. To register visit
> http://www.hp.com/go/dualwebinar
> > _______________________________________________
> > Hardhats-members mailing list
> > Hardhats-members@lists.sourceforge.net
> >
>
https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
>
>
>
>
-------------------------------------------------------
> This SF.Net email is sponsored by the 'Do More With
> Dual!' webinar happening
> July 14 at 8am PDT/11am EDT. We invite you to
> explore the latest in dual
> core and dual graphics technology at this free one
> hour event hosted by HP,
> AMD, and NVIDIA. To register visit
> http://www.hp.com/go/dualwebinar
> _______________________________________________
> Hardhats-members mailing list
> Hardhats-members@lists.sourceforge.net
>
https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
-------------------------------------------------------
This SF.Net email is sponsored by the 'Do More With Dual!' webinar happening
July 14 at 8am PDT/11am EDT. We invite you to explore the latest in dual
core and dual graphics technology at this free one hour event hosted by HP,
AMD, and NVIDIA. To register visit http://www.hp.com/go/dualwebinar
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
