1. Jiri, where are you?
- Posted by Rolf Schroeder <rolf.schroeder at DESY.DE> Feb 05, 2001
- 421 views
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?
- Posted by jiri babor <jbabor at PARADISE.NET.NZ> Feb 06, 2001
- 385 views
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?
- Posted by Rolf Schroeder <rolf.schroeder at DESY.DE> Feb 06, 2001
- 416 views
--------------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?
- Posted by =?iso-8859-1?B?HAg=?= <mwfch at MWEB.CO.ZA> Feb 06, 2001
- 396 views
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
- 425 views
- 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?
- Posted by Rolf Schroeder <rolf.schroeder at DESY.DE> Feb 07, 2001
- 421 views
--------------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--