1. Jiri, where are you?
Hi,
does anyone know if Jiri Barbor is still listening to this list, or if
his private email address is still valid? I hope he's not on a permanent
vacation now... .
Thanks, Rolf
2. Re: Jiri, where are you?
Rolf wrote:
>does anyone know if Jiri Barbor is still listening to this list, or
>if his private email address is still valid? I hope he's not on a
>permanent vacation now... .
Permanent vacation? What do you mean ... dead?! Wishful thinking...
Much earlier, almost two weeks ago he wrote:
>I'm using your rfont.e to write all characters on screen in graphics
>mode 18. When i do, I find instead of the sign for char. 10 (block
>with circle in it) only a blank. If I write directly in text mode (3)
>into the video memory (starting from #B8000) it is visible. Is there
>any explanation for this?
Sorry, Rolf, I was away for sixteen days, holidaying in the South
Island, avoiding people and their computers on the wild West Coast. I
came back last night, but it took me many hours to wade through about
thousand messages. Most of them from this list and - I am sorry to be
forced to say it, but it has to be said - vast majority of them were
just worthless rubbish, often mixed with deviant pubescent behavior,
or, even worse, shockingly bad lyrics from a talentless creep. Robert
promised us a moderated list under such conditions. What is he waiting
for? How deep do we have to sink before he does what is clearly his
responsibility now? I fear if he does not move reasonably promptly, he
might find himself alone here, with just MTS and a handful of
Ferdinands to keep him company...
But back to business, Rolf. rfont treats just two characters out of
256 differently from rest. One is zero, which is used conventionally
to reset font attributes, and the other is char 10, the newline
character. When that is encountered, linefeed and carriage return
combination is performed. Its details depend on the current line
justification. I am afraid there is currently no way to print this
character directly. But if you are desperate to do so, let me know and
I'll try to modify the include for you.
Until then, as you always say, have a nice day!
jiri
3. Re: Jiri, where are you?
--------------B535FF017E31B894242FA5D1
jiri babor wrote:
> ...
> Permanent vacation? What do you mean ... dead?! Wishful thinking...
>
No, I thought only that you may have decided in some kind of wisdom to
leave the world north of the -35th latitude alone. But I'm glad to hear
you were just exploring the world south of the -41st latitude and are
still with us.
Now to 'business', although this point might be a more academic one. You
wrote:
> But back to business, Rolf. rfont treats just two characters out of
> 256 differently from rest. One is zero, which is used conventionally
> to reset font attributes, and the other is char 10, the newline
> character. When that is encountered, linefeed and carriage return
> combination is performed. Its details depend on the current line
> justification. I am afraid there is currently no way to print this
> character directly. But if you are desperate to do so, let me know
> and I'll try to modify the include for you.
>
If I'm using graphics mode 3, then I'm able to poke directly 10 into
video memory, and all characters (0 to 255) will be displayed. It means,
somewhere in the ROM there is this character No. 10 (I append a little
program 'ASCII.EX' which displays all chars in mode 3). I'm not enough
hardware expert to see why this char could not be used to display it in
'real' graphics mode like 'rfont' works with. As far as I understood,
'rfont' reads the graphics (pixel-) pattern directly from the video ROM,
so why this doesn't work with 10?
I will not complain to much about MTS, but if he is as smart as he
claims, he (MTS) should be able to write a little AI program to
exclude/translate his posts into normal informative language before
sending them.
Jiri, thanks so far for your reply, and have a nice day, Rolf
--------------B535FF017E31B894242FA5D1
name="Ascii.ex"
Content-Disposition: inline;
filename="Ascii.ex"
-- Rolf Schr”der 2001-01-14
--> ASCII.EX All IBM-437 characters from VGA font M””rkenweg 37
-- ßßßßßßßß by writing directly into video memory 21029 Hamburg, Germany
-- starting from address #B8000
--
-- Language: EUPHORIA ver. 2.2 r.schr at t-online.de
procedure all_backcolor(integer color) -- Set all chars to back color
-- ßßßßßßßßßßßßß
for i = 1 to 80*50 do
poke(BASE + 2*i-1, color)
end for
end procedure
procedure set_char(integer line, integer column, integer char)
-- ßßßßßßßß Write char at position (line,column), starting at (1,1).
integer N
N = (line-1)*80 + column -1
poke(BASE + 2*N , char)
end procedure
procedure main()
-- ßßßß
integer k
if graphics_mode(3) then -- VGA, 25x80x16 text mode
puts(1, "need VGA graphics!\n")
abort(1)
end if
k = text_rows(50) -- switch to 50 lines
if k != 50 then
puts(1,"coudn't set 50 rows!\n")
abort(1)
end if
position(1,25)
puts(1,"Extendet ASCII (IBM 437)")
position(3,29)
puts(1,"(8x8 pixel font)")
position(6,4)
puts(1,"DEC ")
for i = 0 to 15 do
printf(1,"%2d ",i) -- horizontal dec. numbers
end for
position(8,8)
puts(1,"HEX ")
for i = 0 to 15 do
printf(1,"%2x ",i) -- horizontal hex. numbers
end for
for i = 0 to 15 do
position(12+2*i,4)
printf(1,"%3d %02x",{16,16}*i) -- vertical dec. and hex. numbers
end for
all_backcolor(ICOLOR) -- Set back color for all positions!
for i = 4 to 60 do
set_char(10,i,'Ä') -- write horizontal line
end for
for i = 6 to 42 do
set_char(i,12,'³') -- write vertical line
end for
set_char(10,12,'Å') -- set 'cross'
for i = 0 to 15 do -- write all 256 characters
k = i*16
for j = 0 to 15 do
set_char(12 + 2*i, 15 + 3*j, k+j)
end for
end for
k = wait_key()
k = graphics_mode(-1) -- restore former graphics mode
end procedure
main()
-- ßßßß
--------------B535FF017E31B894242FA5D1--
4. Re: Jiri, where are you?
I`m not bad Mr. Jiri ! I`m a very good person . In fact , I am one of the
most liked students in my school , by the teachers I mean . I`m known for my
good manners . And I am said to be one of the most mature boys in my grade .
Its just that every day , I hear about 550002034 swear words , and
9943929742 sexual jokes every day . And then you think MTS is bad !
mmwwwhahahahahahahahaha ! MTS is NOTHING compared to the people at my school
! You should hear how the girls in my class talk ! They are even worse than
MTS ! And 50 % of the boys in my class smoke . They think such weird words
up , you`ll never be able to filter it ! Till next time , bye .
Read ya later !
Ferdinand Greyling(Duke Fungus)
----- Original Message -----
From: jiri babor <jbabor at PARADISE.NET.NZ>
To: <EUforum at topica.com>
Sent: Tuesday, February 06, 2001 2:14 PM
Subject: Re: Jiri, where are you?
> Rolf wrote:
>
> >does anyone know if Jiri Barbor is still listening to this list, or
> >if his private email address is still valid? I hope he's not on a
> >permanent vacation now... .
>
> Permanent vacation? What do you mean ... dead?! Wishful thinking...
>
> Much earlier, almost two weeks ago he wrote:
>
> >I'm using your rfont.e to write all characters on screen in graphics
> >mode 18. When i do, I find instead of the sign for char. 10 (block
> >with circle in it) only a blank. If I write directly in text mode (3)
> >into the video memory (starting from #B8000) it is visible. Is there
> >any explanation for this?
>
> Sorry, Rolf, I was away for sixteen days, holidaying in the South
> Island, avoiding people and their computers on the wild West Coast. I
> came back last night, but it took me many hours to wade through about
> thousand messages. Most of them from this list and - I am sorry to be
> forced to say it, but it has to be said - vast majority of them were
> just worthless rubbish, often mixed with deviant pubescent behavior,
> or, even worse, shockingly bad lyrics from a talentless creep. Robert
> promised us a moderated list under such conditions. What is he waiting
> for? How deep do we have to sink before he does what is clearly his
> responsibility now? I fear if he does not move reasonably promptly, he
> might find himself alone here, with just MTS and a handful of
> Ferdinands to keep him company...
>
> But back to business, Rolf. rfont treats just two characters out of
> 256 differently from rest. One is zero, which is used conventionally
> to reset font attributes, and the other is char 10, the newline
> character. When that is encountered, linefeed and carriage return
> combination is performed. Its details depend on the current line
> justification. I am afraid there is currently no way to print this
> character directly. But if you are desperate to do so, let me know and
> I'll try to modify the include for you.
>
> Until then, as you always say, have a nice day!
>
> jiri
>
>
5. Re: Jiri, where are you?
- Posted by jiri babor <jbabor at PARADISE.NET.NZ>
Feb 06, 2001
-
Last edited Feb 07, 2001
Ferdinand,
I do not think you are a bad boy, and I did not say you were.
Unfortunately you have a rather unusual name that can be easily
remembered and you were also one of only about two people that ever
happily directly communicated with the pest through the list. So I
perhaps wrongly assumed you would stay with him even after everybody
else left...
Btw I do not really care how many swear words your mates utter in a
day, with a bit of luck they will all soon grow out of it.
I cannot promise I will read everything you say in the future, but I
am sure as long as it is something you would not ashamed to say in
front of your mum, it will be tolerated.
Have a nice day too. jiri
----- Original Message -----
From: " þ" <mwfch at MWEB.CO.ZA>
To: <EUforum at topica.com>
Sent: Wednesday, February 07, 2001 6:58 AM
Subject: Re: Jiri, where are you?
> I`m not bad Mr. Jiri ! I`m a very good person . In fact , I am one
of the
> most liked students in my school , by the teachers I mean . I`m
known for my
> good manners . And I am said to be one of the most mature boys in my
grade .
> Its just that every day , I hear about 550002034 swear words , and
> 9943929742 sexual jokes every day . And then you think MTS is bad !
> mmwwwhahahahahahahahaha ! MTS is NOTHING compared to the people at
my school
> ! You should hear how the girls in my class talk ! They are even
worse than
> MTS ! And 50 % of the boys in my class smoke . They think such weird
words
> up , you`ll never be able to filter it ! Till next time , bye .
>
> Read ya later !
> Ferdinand Greyling(Duke Fungus)
6. Re: Jiri, where are you?
--------------7A2DEC1D81121BDF9CF34FB1
Hello Jiri,
attached a little program (IBM437.EX, one has to supply your rfont.e)
which will display the VGA fonts 16x8 or 8x8 in standard VGA graphics
mode 18. It will create also a BMP file. Only char 10 is missing.
Have a nice day, Rolf
--------------7A2DEC1D81121BDF9CF34FB1
name="Ibm437.ex"
Content-Disposition: inline;
filename="Ibm437.ex"
-- Rolf Schr”der 2001-01-23
--> IBM437.EX All IBM-437 characters from VGA font M””rkenweg 37
-- ßßßßßßßßß in graphics VGA(18) mode 21029 Hamburg, Germany
--
-- Language: EUPHORIA ver. 2.2 r.schr at t-online.de
constant TOPROW = 32 -- Upper pixel row of table (without header)
constant LEFTCL = 100 -- Left pixel column of table
constant FORECOL = BLACK
constant BACKCOL = BRIGHT_WHITE
procedure cls() -- Set screen to ASCII 32
-- ßßß
integer dy
if FONT = ROM16 then
dy = 16
else
dy = 8
end if
for i = 0 to 479 by dy do
setxy(0,i)
write(repeat(32,80))
end for
end procedure
procedure main()
-- ßßßß
integer i1
sequence s1, s2
if graphics_mode(18) then
puts(1,"Couldn't set VGA graphics mode. Abort.\n")
abort(1)
end if
select_font(FONT) -- 8x16 | 8x8 ROM Font
set_background(BACKCOL)
set_foreground(FORECOL)
cls()
set_background(CLEAR) -- trancparent (faster)
if FONT = ROM16 then
s1 = HEADER1
else
s1 = HEADER2
end if
setxy(320-length(s1)*4,0) -- Write header
write(s1)
for i = 0 to 15 do -- Write numbers: hor. & ver.
setxy(LEFTCL+56+24*i,TOPROW ) -- Write hor. dec.
write(sprintf("%3d",i))
setxy(LEFTCL+56+24*i,TOPROW+24 ) -- Write hor. hex.
write(sprintf("%3x",i))
setxy(LEFTCL ,TOPROW+24*(i+2)) -- Write ver. dec.
write(sprintf("%3d",i*16))
setxy(LEFTCL+32 ,TOPROW+24*(i+2)) -- Write ver. hex.
write(sprintf("%3x",i*16))
end for
setxy(LEFTCL ,TOPROW )
write("DEC")
setxy(LEFTCL+32,TOPROW+24)
write("HEX")
for i = 0 to 15 do -- Write all 256 characters!
for j = 0 to 15 do
setxy(LEFTCL+72+24*j,TOPROW+24*(i+2))
write({16*i+j})
end for
end for
draw_line(FORECOL,{{LEFTCL ,TOPROW+24*2 -4 },
{LEFTCL+80+24*15,TOPROW+24*2 -4 }}) -- hor.
draw_line(FORECOL,{{LEFTCL+64 ,TOPROW },
{LEFTCL+64 ,TOPROW+24*18-8 }}) -- ver.
s1 = save_image({LEFTCL,0},{LEFTCL+80+24*15,TOPROW+24*18-8})
s2 = get_all_palette() * 4
if FONT = ROM16 then
i1 = save_bitmap({s2,s1},"ROM16X8x.BMP")
else
i1 = save_bitmap({s2,s1},"ROM8X8x.BMP")
end if
i1 = wait_key()
i1 = graphics_mode(-1)
end procedure
main()
--------------7A2DEC1D81121BDF9CF34FB1--
