1. Static bar
- Posted by Roy Shepherd <sroy at GLOBALNET.CO.UK>
Oct 13, 1998
-
Last edited Oct 14, 1998
------=_NextPart_000_001F_01BDF6FF.6196AD40
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi All
=20
I'm trying to display a red bar along the full length of the bottom line =
in text mode. The trouble is when I print at position 24,80 the screen =
scrolls. David Cuny excellent editor 'EE' as a static bar at the bottom =
so why can't I manage it?=20
=20
Also in the last posting or so some one mentioned that text was to small =
in some SVGA modes. You could try my include file AutoText.e which as =
the ability, amongst other things, to scale text up. It may not be what =
you want but then again. It's available from the new contributions page =
on the web.=20
=20
-----
--print num spaces across screen=20
procedure space(integer num)
for s=3D1 to num do
puts(1," ")
end for =20
end procedure
=20
bk_color(BLUE)
clear_screen()
bk_color(RED)
=20
position(24,1) space(79) --This is OK=20
position(24,1) space(80) --This scroles screen =20
=20
Thanks for any advice.
=20
Regards
=20
Roy
------=_NextPart_000_001F_01BDF6FF.6196AD40
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type><!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 =
HTML//EN">
<META content=3D'"MSHTML 4.71.1712.3"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000><FONT size=3D3></FONT></FONT><FONT =
color=3D#000000=20
size=3D2>Hi All</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>I'm <FONT color=3D#000000>trying </FONT>to display a =
red bar=20
along the full length of the bottom line in text mode. The trouble is =
when I=20
print at position 24,80 the screen scrolls. David Cuny excellent editor =
'EE' as=20
a static bar at the bottom so why can't I manage it? </FONT></DIV>
<DIV><FONT color=3D#000000><FONT size=3D3></FONT></FONT> </DIV>
<DIV><FONT color=3D#000000><FONT size=3D3></FONT></FONT><FONT =
color=3D#000000=20
size=3D2>Also in the last posting or so some one <FONT =
color=3D#000000>mentioned=20
</FONT>that text was to small in some SVGA modes. You could try my =
include file=20
AutoText.e which as the ability, amongst other things, to scale text up. =
It may=20
not be what you want but then again. It's available from the new =
contributions=20
page on the web. </FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000><FONT=20
--------------------<BR>--print=20
num spaces across screen</FONT></FONT><FONT size=3D3></FONT> </DIV>
<DIV><FONT color=3D#000000><FONT size=3D3></FONT></FONT><FONT =
size=3D3><FONT=20
color=3D#000000>procedure space(integer num)<BR>for s=3D1 to num=20
do<BR> puts(1," ")<BR>end =
for =20
<BR>end procedure<BR></FONT></FONT> </DIV>
<DIV><FONT size=3D3>bk_color(BLUE)</FONT></DIV>
<DIV><FONT size=3D3>clear_screen()</FONT></DIV>
<DIV><FONT size=3D3>bk_color(RED)</FONT></DIV>
<DIV><FONT size=3D3></FONT> </DIV>
<DIV><FONT color=3D#000000><FONT size=3D3>position(24,1) space(79) =
--This is=20
OK</FONT></FONT><FONT size=3D3></FONT> </DIV>
<DIV><FONT color=3D#000000><FONT size=3D3>position(24,1) space(80) =
--This scroles=20
nbsp; =20
</FONT></FONT><FONT size=3D3></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>Thanks for any advice.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>Regards</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
------=_NextPart_000_001F_01BDF6FF.6196AD40--
2. Re: Static bar
Roy Shepherd wrote:
> I'm trying to display a red bar along the full length
> of the bottom line in text mode. The trouble is when I
> print at position 24,80 the screen scrolls.
Try:
wrap(0)
Hope this helps!
-- David Cuny
3. Re: Static bar
cool! it works.
JARS OF CLAY ROCKZ FOR
GOD
_________________
"When it comes to programming languages, Eu™ by RDS®™©(did i forget an
®?) is a cut above" - Matt1278 and Prezsoft
Webbers: <A HREF="mailto:prezsoft at juno.com">prezsoft at juno.com</A>,
president of SoftCo.® Uh, no slogan at the moment™
Go out and get Euphoria™ by Rapid Deployment Software® NOW!!!
___________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
or call Juno at (800) 654-JUNO [654-5866]
4. Re: Static bar
- Posted by Roy Shepherd <sroy at GLOBALNET.CO.UK>
Oct 14, 1998
-
Last edited Oct 15, 1998
Thanks David
wrap(0) did the trick
>> print at position 24,80 the screen scrolls.
>
>Try:
>
> wrap(0)
>
>Hope this helps!
>
Regards
Roy
>
