1.

Irv wrote:
> The fact is, Kat asked because she was trying to get some work done 
> using Euphoria. Others here proved that the problem was with Windows.
> I mentioned 4 alternatives which would work for Kat, one of which 
was Linux.
> If that upsets you so much, you probably shouldn't be reading this 
list.
>
> Irv

OK, so maybe I shouldn't post when I'm in a grumpy mood but the problem 
is not with Windows per se, but is with the FAT file system.  FAT is a 
quarter century old and was designed well before Windows and hard 
drives.  Sure it's been patched to support large HD's but still has many 
limitations.  So for the type of data mining and file storage that Kat 
is dealing with, I would simply get away from FAT...

-- Brian

new topic     » topic index » view message » categorize

2. Re:

Brian Broker wrote:

> OK, so maybe I shouldn't post when I'm in a grumpy mood but the problem 
> is not with Windows per se, but is with the FAT file system.  FAT is a 
> quarter century old and was designed well before Windows and hard 
> drives.  Sure it's been patched to support large HD's but still has many 
> limitations.  So for the type of data mining and file storage that Kat 
> is dealing with, I would simply get away from FAT...

Agreed. I'm not sure that is an easy thing for Kat to do, however. 
There are probably good reasons she doesn't want to move to XP.

I wonder if it would be possible to store all these files in a 
Euphoria database? I'm thinking there might be around 100megs of 
data - but only one filename.

Irv

new topic     » goto parent     » topic index » view message » categorize

3.

Please note this requires Windows 95 , or more recent!


On 2000-05-07 EUPHORIA at LISTSERV.MUOHIO.EDU said:







Net-Tamer V 1.11 - Test Drive

new topic     » goto parent     » topic index » view message » categorize

4.

Just thought of this one:

function cut(sequence s,sequence index)
   object x
   x=s
   for i=1 to length(x) do
      if sequence(index[i]) then
         x=x[index[i][1]..index[i][2]]
      else
         x=x[index[i]]
      end if
   end for
   return x
end function

This expands on standard Euphoria by allowing slices in any dimension, not
just the last.  Offhand, I don't know where I'd use this, but I'm sure
someone will find it useful.

-- Mike Nelson

new topic     » goto parent     » topic index » view message » categorize

5.

------=_NextPart_000_00E1_01BFC7BF.7A021120
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hi ya all !
I wanna show what we Euphoria programers are made of ! Any one that =
wants to group with me and make games that can go commercial is welcome =
! You can be 1 or 100 years old , it dosn`t matter ! Any one is =
welcome.E-mail me at=20
mwfch at mweb.co.za .

Ferdinand Greyling
from
Terminal Software

------=_NextPart_000_00E1_01BFC7BF.7A021120
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi ya all !</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>I wanna show what we Euphoria =
programers are made=20
of ! Any one that wants to group with me and make games that can go =
commercial=20
is welcome ! You can be 1 or 100 years old , it dosn`t matter ! Any one =
is=20
welcome.E-mail me at </FONT></DIV>
<DIV><FONT face=3DArial size=3D2><A=20

<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Terminal =

------=_NextPart_000_00E1_01BFC7BF.7A021120--

new topic     » goto parent     » topic index » view message » categorize

6.

Hello
I would like information on Euphoria
Is it a language , an EDI ?
What's the purpose ?
I've never heard of it before .
Please to excuse such an ignorance smile)

new topic     » goto parent     » topic index » view message » categorize

7.

I tried to write a little cgi in Euphoria..
but it doesn't work right
i use OmniHttpd server (in win2k) and when i call the cgi.ex the result 
is generated in a dos shell and not in the browser...
how can i send the output to the browser?
the cgi is very very simple:

   puts(1,"Content-type: text/HTML\n\n") 

   puts(1,"<title>CGI-TEST.EX</title>")
puts(1,"<html>")
   puts(1,"<body>")
   puts(1,"<H3>")
   puts(1,"Euphoria CGI Example:</H3>")

Thanks

new topic     » goto parent     » topic index » view message » categorize

8.

Does anybody knows how to call a dll routine from asm?
Dll has been opened from Euphoria, so i have an address.
I know the offset of the routine from PE header of the file.
I think Address + Offset falls on start of the routine but the only
thing i'm sure is that i'm full of invalid page faults.

new topic     » goto parent     » topic index » view message » categorize

9. Re:

Matthew,

it works, with some difference.
I didn't opened the dll using LoadLibrary but with the standard
Euphoria way, so:

dll_handle=3DGetModuleHandleA("dll_name")
address=3DGetProcAddress(dll_handle,"function_name")
pointer=3Dallocate(4)
poke4(pointer,address)

-- asm code:

pusha
push param_z
........
push param_a
call near dword ptr [pointer]
popa
ret=20

Used CALL NEAR (#FE, #10,...)  not CALL FAR (#FF,#15,...)=20

Thank you all
-George

Sorry for the blank header, i just forgot to write something.

new topic     » goto parent     » topic index » view message » categorize

10. Re:

Matthew,

it works, with some difference.
I didn't opened the dll using LoadLibrary but with the standard
Euphoria way, so:

dll_handle=3DGetModuleHandleA("dll_name")
address=3DGetProcAddress(dll_handle,"function_name")
pointer=3Dallocate(4)
retpointer=3Dallocate(4)
poke4(pointer,address)

-- asm code:

pusha
push param_z
........
push param_a
call near dword ptr [pointer]
mov [retpointer], eax
popa
ret=20

Used CALL NEAR (#FE, #10,...)  not CALL FAR (#FF,#15,...)=20

Thank you all
-George

Sorry for the blank header, i just forgot to write something.

new topic     » goto parent     » topic index » view message » categorize

11.

------=_NextPart_000_01BC44E5.E44A37C0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

unsubscribe



------=_NextPart_000_01BC44E5.E44A37C0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML 3.2//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<HTML><META content=3D'"Trident 4.71.0544.0"' name=3DGENERATOR>

</HEAD>
<BODY>
<P><FONT face=3DArial size=3D2>unsubscribe</FONT>

<P><FONT face=3DArial size=3D2></FONT>&nbsp;</P>


------=_NextPart_000_01BC44E5.E44A37C0--

new topic     » goto parent     » topic index » view message » categorize

12.

hi all

im having a bit of trouble...

i am writing a programme that has mouse buttons in it, and the x and y
co-ord's of the buttons are stored in the sequence mb like:

mb = append(mb, {x1, y1, x2, y2, "button_name", button_signature}

so when the user clicks the mouse, it quickly searches to see if that
mouse click was in the area specified in mb[1] (or mb[whatever])

that's all okay, BUT... if I try:

mb = {}

i get an error and it wont do it. Any ideas??

Thanks :)

Mike Fowler - mike.fowler at nelsun.gen.nz
  o__ ---
 _,>/'_ ---
(_) \(_) ---
Tips for the month: Bill your dentist for your time in surgery.

new topic     » goto parent     » topic index » view message » categorize

13.

>
> i am writing a programme that has mouse buttons in it, and the x and y
> co-ord's of the buttons are stored in the sequence mb like:
>
> mb = append(mb, {x1, y1, x2, y2, "button_name", button_signature}
>
> so when the user clicks the mouse, it quickly searches to see if that
> mouse click was in the area specified in mb[1] (or mb[whatever])
>
> that's all okay, BUT... if I try:
>
> mb = {}
>
> i get an error and it wont do it. Any ideas??
>
> Thanks :)
>
I'm not too sure why that is not working because you can append to the end
of a null sequence. You shouldn't get an error message just because it's
null. Include the contents of EX.ERR as an attachment to your next reply
and let us see.

Thanks

David Gay
http://www.interlog.com/~moggie/Euphoria
A Beginner's Guide To Euphoria

new topic     » goto parent     » topic index » view message » categorize

14.

Please take me off your mailing list NOW

new topic     » goto parent     » topic index » view message » categorize

15.

Robert Moffat wrote:
>=20
> ---------------------- Information from the mail header ---------------=
--------
> Sender:       Euphoria Programming for MS-DOS <EUPHORIA at MIAMIU.ACS.MUOH=
IO.EDU>
> Poster:       Robert Moffat <R.Moffat at PEMBROKESHIRE.AC.UK>
> Organization: Pembrokeshire College
> -----------------------------------------------------------------------=
--------
>=20
> Please take me off your mailing list NOW
I can=B4t, sorry!

new topic     » goto parent     » topic index » view message » categorize

16.

Take me off your mailing list

new topic     » goto parent     » topic index » view message » categorize

17.

I am using wait_key to enter a number value from the keyboard.

     i = wait_key()

  I then use i as follows:

     for j = 1 to i do

  For some unknown reason the loop does not end on the number I keyed in
which should be the value of i.  For example, I might key in 5 and the
program aborts when j reachs 11 or some other number greater than 5..

   Is there any particular way I should initiate i such as an object or
integer or atom?

Thanks,

Jim Roberts

new topic     » goto parent     » topic index » view message » categorize

18.

[ DOS32LIB ]
Faster code won't be bad. It run's okay, but you are creating graphic
intensive demos.
Perhaps it would be easier to create it as an interface and leave the speed
intensive stuff out.
It runs OK on my machine a 486DX/2 66MHz 24Mb RAM  but it is noticeablely
slow. To get it past most users it has to do it in under 0.2sec.
Windows/CDE maximise windows by drawing them so they are bigger than the
screen.
If the boder is 5 wide, draw it at -5.

[ WIN32LIB ]
Windows is C based it would be far nicer if it was treated as Euphoria.

[ Visual WIN32LIB ]
While I know it is for windows a port to code the DOS version would be
nice.

[ WatchDog ]
It wasn't a bad idea Irv. I once used type to track a virtual cursor and if
it moved of screen it scolled it. It might be more useful to do this with a
window. After all a type can contain all sorts of code.

--------------------
Sincerely,
Mathew Hounsell

Mat.Hounsell at MailExcite.Com




_______________________________________________________
Get your free, private e-mail at http://mail.excite.com/

new topic     » goto parent     » topic index » view message » categorize

19.

> I'm under the impression that Neil & Co. are aimed at the SVGA crowd,
> while Dos32Lib targets VGA (mainly mode 18). I'm a bit leery about using
> SVGA when it tends to choke up half the machines I use - because vendors
> are too lazy to create SVGA drivers for DOS, relying on Win32 to supply
> the drivers instead.

Neil & Co.?  blink
You bet We're aimed at the SVGA crowd, despite the fact that Neil does
indeed choke on some video boards.  But when it does work, the 16M colors
are nice, and the speed is to behold.  I haven't been posting updates due
to its current state of flux (partly due to Ralf's continued badgering
"put this in! put that in!" blink and I'm trying very hard to make it
compatible with as many cards as I can.  Scitech's VBE drivers can
sometimes help.. but not always.  Also, Neil is also geared toward a
gaming environment with sprites and all... haven't given too much thought
to using it for a gui.  I might take a crack at shoehorning Neil into
Dos32Lib one of these days.

> But I am trying to keep my options open by limiting the graphic calls to
> a small part of the code - the renderXXXX routines. That way, if I decide to
> change to another library (to run under Linux, for example), it
> shouldn't be that hard to port the code.

This sounds like another subtle hint for me to get off my butt and
continue the Linux/Unix port of Euphoria...

I thought the Java l&f was cool, sad to hear it got canned.

Laters,
 _______  ______  _______  ______
[    _  \[    _ ][ _   _ ][    _ ]
[/| [_] |[/| [_\][/ | | \][/| [_\]
  |  ___/  |  _]    | |     |  _]
[\| [/]  [\| [_/] [\| |/] [\| [_/]
[_____]  [______] [_____] [______]
xseal at harborside.com  ICQ:13466657
http://www.harborside.com/home/x/xseal/euphoria/ (Right on!)

new topic     » goto parent     » topic index » view message » categorize

20.

Pete Eberlein wrote:

> You bet We're aimed at the SVGA crowd, despite the
> fact that Neil does indeed choke on some video boards.
> But when it does work, the 16M colors are nice, and the
> speed is to behold.

Ralf (Neil proselytizer that he is) sent me a copy of his 'bots game to look
at. Zillions of colors does indeed look *very* nice, but I'm assuming that
the two people who will end up using Dos32Lib will only really have VGA.

> I might take a crack at shoehorning Neil into
> Dos32Lib one of these days.

Since most of the graphic routines can be emulated with pixel(), the only
routines I really need are:

   - get_image()
   - pixel()

and they are already supplied with Neil. So I guess I should include Neil
right now. My only concern is that certain video cards might not be
supported. But Neil supports *all* cards in VGA mode 18, right? If so, I'll
go ahead and make the code changes.

Urg... I'll have to see it the mouse code needs updating too. I'm using
MIGHTY.E.


> This sounds like another subtle hint for me to get off
> my butt and continue the Linux/Unix port of Euphoria...

Subtle? That doesn't sound like me at all. blink

While I'm at it, I'd like to see a Mac version someday, too.


> I thought the Java l&f was cool, sad to hear it got canned.

Me, too - but if this project ever gets finished, I can always put the code
back in. My first priority is to Get It Done in some useful manner. As it
was, I was burning myself out on non-essentials.

-- David Cuny

new topic     » goto parent     » topic index » view message » categorize

21.

Question : How do use the library for ternary trees in the archive.

Question 2 : Does anyone know all the C escape characters.

Jiri : Can you please add sub & super scripting to your fonts.

RDS : I was using euphoria and I know people are going to disagree with me
on this but I think the escape characters should be re-evaluated to be
\n - OS specific New Line
\l - Line Feed
\r - Carriage Return.
This would allow people to read an write text files using the same code for
any OS. Note that euphoria strips out \r (or is it \l ) when reading so if
your on Unix (or Mac) it would have to change it's approach or fake out the
user. Either way things will act weird as unix is only \r and most people
use \n.

I also still think a string type is a good idea.

--------------------
Sincerely,
Mathew Hounsell

Mat.Hounsell at MailExcite.Com




_______________________________________________________
Get your free, private e-mail at http://mail.excite.com/

new topic     » goto parent     » topic index » view message » categorize

22.

Does any one know where I could find information on the TCL bytes codes. I
have looked but haven't found.

--------------------
Sincerely,
Mathew Hounsell

Mat.Hounsell at Excite.Com




_______________________________________________________
Get your free, private e-mail at http://mail.excite.com/

new topic     » goto parent     » topic index » view message » categorize

23.

------=_NextPart_000_0000_01C07749.12E3A280
        charset="iso-8859-1"
X-MIME-Autoconverted: from 8bit to quoted-printable by smv18.iname.net id
TAA03028

> An IDE?
> Don't make me laugh!
> I know VB's IDE and I can top it within half an hour!!
> Yes, HALF AN HOUR! Did you read that? Half an hour of
> coding and I have set up an IDE for Euphoria that tops
> VB's. I have the code to do it, and the training. I
> have a first-class Euphoria(++) IDE with built-in web
> browser for docs and an interface to 70 C compilers
> for translation. With a multi-platform GUI creation
> tool plus library. ActiveX control support, App
> wizards that range from Text Editor to 3D Game
> producers.



I sure could use that. I=92d pay GOOD money for it too!

Fernando Ortiz


------=_NextPart_000_0000_01C07749.12E3A280
        charset="iso-8859-1"

<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C07749.1193F100">
<!--[if gte mso 9]><xml>
 <o:OfficeDocumentSettings>
  <o:DoNotRelyOnCSS/>
 </o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:View>Normal</w:View>
  <w:Zoom>0</w:Zoom>
  <w:DocumentKind>DocumentEmail</w:DocumentKind>
  <w:EnvelopeVis/>
 </w:WordDocument>
</xml><![endif]-->
<style>
<!--
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {mso-style-parent:"";
        margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
        {margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
        {mso-style-type:personal-compose;
        color:black;}
@page Section1
        {size:8.5in 11.0in;
        margin:1.0in 1.25in 1.0in 1.25in;
        mso-header-margin:.5in;
        mso-footer-margin:.5in;
        mso-paper-source:0;}
div.Section1
        {page:Section1;}
-->
</style>
</head>

<body lang=3DEN-US style=3D'tab-interval:.5in'>

<div class=3DSection1>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; An IDE?</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; Don't make me laugh!</span></font><font =
size=3D2
color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; I know VB's IDE and I can top it within =
half an
hour!!</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; Yes, HALF AN HOUR! Did you read that? =
Half an
hour of</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; coding and I have set up an IDE for =
Euphoria
that tops</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; VB's. I have the code to do it, and the
training. I</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; have a first-class Euphoria(++) IDE with
built-in web</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; browser for docs and an interface to 70 =
C
compilers</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; for translation. With a multi-platform =
GUI
creation</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; tool plus library. ActiveX control =
support, App</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; wizards that range from Text Editor to =
3D Game</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =

<p class=3DMsoNormal><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>&gt; =
producers.</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>I sure could =
use that. I’d
pay GOOD money for it too!<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>Fernando =
Ortiz<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

</div>


</html>

------=_NextPart_000_0000_01C07749.12E3A280--

new topic     » goto parent     » topic index » view message » categorize

24.

------=_NextPart_000_0002_01C07776.EEA968E0
        charset="iso-8859-1"
X-MIME-Autoconverted: from 8bit to quoted-printable by smv679-leg.mail.com id
AAA11542

> Heh?
> Allright allright..
> Maybe that's not such a bad idea...
>
> Well, I'll do it like this.
> Anyone can ask what they would like to see written in
> Euphoria. Anything goes. If the majority of users
> think the same, then I will make that project.
>
> So go ahead, reply to this post with what you would
> like to see written in Euphoria.


How about that fancy VB style IDE you were saying you could do in =BD an =
hour?
I=92m not kidding. My company would pay good money for it even if it took=
 you
a month. Hell, we=92d even market it for you since we have our own ad age=
ncy
 www.dnjadvertising.com <http://www.dnjadvertising.com/> ). As long as it=
 is
practical and you have no problem with signing non-disclosure contracts a=
nd
other legal crap, you could make some good money.

Think about it and e-mail me directly.

Fernando Ortiz
Fernando at rxp.com <mailto:Fernando at rxp.com>





------=_NextPart_000_0002_01C07776.EEA968E0
        charset="iso-8859-1"

<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C07776.EE19FA20">
<!--[if gte mso 9]><xml>
 <o:OfficeDocumentSettings>
  <o:DoNotRelyOnCSS/>
 </o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:View>Normal</w:View>
  <w:Zoom>0</w:Zoom>
  <w:DocumentKind>DocumentEmail</w:DocumentKind>
  <w:EnvelopeVis/>
 </w:WordDocument>
</xml><![endif]-->
<style>
<!--
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {mso-style-parent:"";
        margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
a:link, span.MsoHyperlink
        {color:blue;
        text-decoration:underline;
        text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
        {color:purple;
        text-decoration:underline;
        text-underline:single;}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
        {margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
        {mso-style-type:personal-compose;
        color:black;}
@page Section1
        {size:8.5in 11.0in;
        margin:1.0in 1.25in 1.0in 1.25in;
        mso-header-margin:.5in;
        mso-footer-margin:.5in;
        mso-paper-source:0;}
div.Section1
        {page:Section1;}
-->
</style>
</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple =
style=3D'tab-interval:.5in'>

<div class=3DSection1>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; Heh?</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; Allright allright..</span></font><font =
size=3D2
color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; Maybe that's not such a bad =
idea...</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt;</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; Well, I'll do it like =
this.</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; Anyone can ask what they would like to =
see
written in</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; Euphoria. Anything goes. If the majority =
of
users</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; think the same, then I will make that =
project.</span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt;</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>&gt; So go ahead, reply to this post with =
what you
would</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier New";color:black'>&gt; =
like to see
written in Euphoria.</span></font><font size=3D2 color=3Dblack =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>How about that =
fancy VB
style IDE you were saying you could do in =BD an hour? I’m not =
kidding. My
company would pay good money for it even if it took you a month. Hell, =
we’d even
market it for you since we have our own ad agency (<a
href=3D"http://www.dnjadvertising.com/">www.dnjadvertising.com</a>). As =
long as
it is practical and you have no problem with signing non-disclosure =
contracts
and other legal crap, you could make some good =
money.<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>Think about it =
and e-mail
me directly.<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>Fernando =
Ortiz<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><a
font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

</div>


</html>

------=_NextPart_000_0002_01C07776.EEA968E0--

new topic     » goto parent     » topic index » view message » categorize

25.

------=_NextPart_000_0000_01C07907.4D055160
        charset="iso-8859-1"

Does anyone have a Euphoria plug-in for PrimalScript?

thnx

------=_NextPart_000_0000_01C07907.4D055160
        charset="iso-8859-1"

<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C07907.4CA83D40">
<!--[if gte mso 9]><xml>
 <o:OfficeDocumentSettings>
  <o:DoNotRelyOnCSS/>
 </o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:View>Normal</w:View>
  <w:Zoom>0</w:Zoom>
  <w:DocumentKind>DocumentEmail</w:DocumentKind>
  <w:EnvelopeVis/>
 </w:WordDocument>
</xml><![endif]-->
<style>
<!--
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {mso-style-parent:"";
        margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
        {margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
        {mso-style-type:personal-compose;
        color:black;}
@page Section1
        {size:8.5in 11.0in;
        margin:1.0in 1.25in 1.0in 1.25in;
        mso-header-margin:.5in;
        mso-footer-margin:.5in;
        mso-paper-source:0;}
div.Section1
        {page:Section1;}
-->
</style>
</head>

<body lang=3DEN-US style=3D'tab-interval:.5in'>

<div class=3DSection1>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>Does anyone =
have a
Euphoria plug-in for PrimalScript?<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =

</div>


</html>

------=_NextPart_000_0000_01C07907.4D055160--

new topic     » goto parent     » topic index » view message » categorize

26.

Hi,

I'm trying to add the shell_notifyicon(x,NOTIFYICONDATA) function

but i can't seem to create the typedef (C) NOTIFYICONDATA.
Can someone help me.

Also , i tried to add the FlashWindow(hwnd) function in win32lib.ew, i think
it's exactly the same way as ShowWindow() .
This doesn't seem to work either. (window caption bar does not flash .)



Thanks to all that help me out.

Renzo Beggia
Email: renzo.beggia at vsk.be

new topic     » goto parent     » topic index » view message » categorize

27.

Have we completely lost the old messages from the RDS site we used to be 
able to search for answers before posting? I see this list limits us to 
a maximum of 100 messages using the web so it seems the same capability 
is lost unless we choose to get e-mail or digests -- or am I missing 
something?

____________________________________________________________
T O P I C A  -- Learn More. Surf Less. 
Newsletters, Tips and Discussions on Topics You Choose.
http://www.topica.com/partner/tag01

new topic     » goto parent     » topic index » view message » categorize

28.

Well, it looks as though attachments will simply not be available should 
we elect mail only access... 

It also appears that we have lost an automated official archive.  Though 
I suppose one could set up a web based email subscription to archive the 
messages easily enough.

Oh, well... 
Ken Rhodes

____________________________________________________________
T O P I C A  -- Learn More. Surf Less. 
Newsletters, Tips and Discussions on Topics You Choose.
http://www.topica.com/partner/tag01

new topic     » goto parent     » topic index » view message » categorize

29.

------=_NextPart_000_003B_01C08A45.CEE0F640
	charset="iso-8859-1"

I guess Mike just doesnt know to whom he's playing with.



____________________________________________________________
T O P I C A  -- Learn More. Surf Less. 
Newsletters, Tips and Discussions on Topics You Choose.
http://www.topica.com/partner/tag01

------=_NextPart_000_003B_01C08A45.CEE0F640
	charset="iso-8859-1"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I guess Mike just doesnt know to whom =
he's playing=20
with.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
T O P I C A  -- Learn More. Surf Less. 
Newsletters, Tips and Discussions on Topics You Choose.
<A
HREF=3D"http://www.topica.com/partner/tag01">http://www.topica.com/partner/tag01</A></PRE>

------=_NextPart_000_003B_01C08A45.CEE0F640--

new topic     » goto parent     » topic index » view message » categorize

30.

Hello y'all?

Is there any way I can set the digests a little differently.  Currently, 
it kicks out a digest after the tenth message, and as talktative as this 
bunch is, that's not much help.  smile

I'd like to have it set so that it kicks out one digest a day, like our 
dearly departed MUOHIO list server.

Thanks!  Happy Hunting!

Travis Beaty,
Claude, Texas.

P.S.  I'll be watching the topica web interface for about the next hour 
or so.

____________________________________________________________
T O P I C A  -- Learn More. Surf Less. 
Newsletters, Tips and Discussions on Topics You Choose.
http://www.topica.com/partner/tag01

new topic     » goto parent     » topic index » view message » categorize

31.

Is there a core function to return a number from a sequence of atoms 
representing the ASCII codes of numbers?

eg.  need to get y = 205 number

sequence xx
  xx = {50,48,53}   -- 2,0,5 in ASCII

atom y = ???????

Looked through the Docs and couldn't see an Eval() function!!

new topic     » goto parent     » topic index » view message » categorize

32. Re:

include get.e

sequence s
s = value({50,48,53})
printf(1,"%d",s[2])


Dave Probert wrote:

>
>
>Is there a core function to return a number from a sequence of atoms 
>representing the ASCII codes of numbers?
>
>eg.  need to get y = 205 number
>
>sequence xx
>  xx = {50,48,53}   -- 2,0,5 in ASCII
>
>atom y = ???????
>
>Looked through the Docs and couldn't see an Eval() function!!
>
>--^----------------------------------------------------------------
>This email was sent to: 1evan at sbcglobal.net
>
>
>TOPICA - Start your own email discussion group. FREE!
>
>

new topic     » goto parent     » topic index » view message » categorize

33. Re:

> Is there a core function to return a number from a sequence of atoms 
> representing the ASCII codes of numbers?
> 
> eg.  need to get y = 205 number
> 
> sequence xx
>   xx = {50,48,53}   -- 2,0,5 in ASCII
> 
> atom y = ???????

y = xx[1] -- y now equals '50'
y = xx[2] -- y now equals '48'
y = xx[3] -- y now equals '53'

new topic     » goto parent     » topic index » view message » categorize

34. Re: Re:

> > Is there a core function to return a number from a sequence of atoms 
> > representing the ASCII codes of numbers?
> > 
> > eg.  need to get y = 205 number
> > 
> > sequence xx
> >   xx = {50,48,53}   -- 2,0,5 in ASCII

Remember also that

    xx = {50,48,53}

is equal to

    xx = "205"

> > 
> > atom y = ???????
> 
> y = xx[1] -- y now equals '50'
> y = xx[2] -- y now equals '48'
> y = xx[3] -- y now equals '53'

new topic     » goto parent     » topic index » view message » categorize

35. Re: Re:

So to answer the original question,

include get.e

object yy
yy = value(xx)
if yy[1] = GET_SUCCESS then
  ? yy[2] * 2   -- prints 410
end if

The value statement is what you need.  See library.doc for more
details.

>>> cklester at yahoo.com 07/25/03 04:18PM >>>
Remember also that

    xx = {50,48,53}

is equal to

    xx = "205"

new topic     » goto parent     » topic index » view message » categorize

36. Re: Re:

> > > Is there a core function to return a number from a sequence of atoms 
> > > representing the ASCII codes of numbers?
> > > 
> > > eg.  need to get y = 205 number
> > > 
> > > sequence xx
> > >   xx = {50,48,53}   -- 2,0,5 in ASCII

oops. just realized what you wanted. heh. <cough>

the function is value(). look it up in the manual.

-- convert a sequence to a number
object junk
sequence x
atom y

x = {50,48,53}
junk = value(x)
y = junk[2]

new topic     » goto parent     » topic index » view message » categorize

37. Re:

Euman wrote:
> 
> On Sat, 2006-06-24 at 15:11 -0700, Sergio Gelli wrote:
> 
> > 
> > Hi Euman:
> > 
> > Thanks a lot for the attention, but, seems that I am not with luck.
> > Please, looks at what the EFFM.exw happened when twirling:  
> > When I tried to expand drive C, the program failed. sees 
> > the error message. 
> > 
> > 
> > C:\11USRE\DIR\EFFM.exw:292 in function myalloc()
> > A machine-level exception occurred during execution of this statement
> > ... called from C:\11USRE\DIR\treeviews.ew:195 in function GetParentItem()
> > ... called from C:\11USRE\DIR\EFFM.exw:969 in function WndProc()
> > 
> > ^^^ call-back from Windows
> > ... called from C:\11USRE\DIR\EFFM.exw:1201 in procedure WinMain()
> > ... called from C:\11USRE\DIR\EFFM.exw:1205
> > --> see ex.err
> > 
> > Perhaps I must come back toward win-95 smile)
> > But, I go to continue trying with the XP.
> > 
> > As our friend Chris related, the function DIR() into 
> > a tine code, works fine, but crash into a longe code
> > and depends on the position that this function is 
> > inside of program.
> > 
> > 
> > Best Regards
> > 
> > Srgio Gelli - Brasil
> 
> Hello again,
> 
> I can only assume that this is a very small issue in HeapCreate
> 
> global atom pHeap
> pHeap = c_func(xHeapCreate,{0,16384,0})
> 
> this is not large enough
> try @ line:288 in effm.exw replacing 16384 w/ 32768
> 
> This increases the heaps initial buffer size
> If this solves the issue for you please let me know.
> 
> Nothing has changed with the call or parms to HeapAlloc since Win-95 per
> <a
> href="http://msdn.microsoft.com/library/en-us/memory/base/heapalloc.asp?frame=true">http://msdn.microsoft.com/library/en-us/memory/base/heapalloc.asp?frame=true</a>
> so I have no reason to suspect function myalloc() is a problem.
> 
> Regards,
> Euman

Please disregard that info as the last parm to HeapCreate is (0) so the heap 
is automatically expanded when needed. 
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/heapcreate.asp

My next guess is that "atom buffer" in function GetParentItem() and each
instance
of "buffer" in function GetParentItem() needs to be renamed "gp_buffer" although
Im not sure why.

I have confirmed that effm2.exw does run on my copy of Win-XP_SP2 !
I could be more help if that demo wasnt 5+ years old and I no longer
run or write programs for the M$-Platforms, only Linux.

try it and see if Im correct...

Regards,
Euman

new topic     » goto parent     » topic index » view message » categorize

38. Re:

Euman wrote:
> 
> Euman wrote:
> > 
> > On Sat, 2006-06-24 at 15:11 -0700, Sergio Gelli wrote:
> > 
> > > 
> > > Hi Euman:
> > > 
> > > Thanks a lot for the attention, but, seems that I am not with luck.
> > > Please, looks at what the EFFM.exw happened when twirling:  
> > > When I tried to expand drive C, the program failed. sees 
> > > the error message. 
> > > 
> > > 
> > > C:\11USRE\DIR\EFFM.exw:292 in function myalloc()
> > > A machine-level exception occurred during execution of this statement
> > > ... called from C:\11USRE\DIR\treeviews.ew:195 in function GetParentItem()
> > > ... called from C:\11USRE\DIR\EFFM.exw:969 in function WndProc()
> > > 
> > > ^^^ call-back from Windows
> > > ... called from C:\11USRE\DIR\EFFM.exw:1201 in procedure WinMain()
> > > ... called from C:\11USRE\DIR\EFFM.exw:1205
> > > --> see ex.err
> > > 
> > > Perhaps I must come back toward win-95 smile)
> > > But, I go to continue trying with the XP.
> > > 
> > > As our friend Chris related, the function DIR() into 
> > > a tine code, works fine, but crash into a longe code
> > > and depends on the position that this function is 
> > > inside of program.
> > > 
> > > 
> > > Best Regards
> > > 
> > > Srgio Gelli - Brasil
> > 
> > Hello again,
> > 
> > I can only assume that this is a very small issue in HeapCreate
> > 
> > global atom pHeap
> > pHeap = c_func(xHeapCreate,{0,16384,0})
> > 
> > this is not large enough
> > try @ line:288 in effm.exw replacing 16384 w/ 32768
> > 
> > This increases the heaps initial buffer size
> > If this solves the issue for you please let me know.
> > 
> > Nothing has changed with the call or parms to HeapAlloc since Win-95 per
> > <a
> > href="http://msdn.microsoft.com/library/en-us/memory/base/heapalloc.asp?frame=true">http://msdn.microsoft.com/library/en-us/memory/base/heapalloc.asp?frame=true</a>
> > so I have no reason to suspect function myalloc() is a problem.
> > 
> > Regards,
> > Euman
> 
> Please disregard that info as the last parm to HeapCreate is (0) so the heap
> 
> is automatically expanded when needed. 
> <a
> href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/heapcreate.asp">http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/heapcreate.asp</a>
> 
> My next guess is that "atom buffer" in function GetParentItem() and each
> instance
> of "buffer" in function GetParentItem() needs to be renamed "gp_buffer"
> although
> Im not sure why.
> 
> I have confirmed that effm2.exw does run on my copy of Win-XP_SP2 !
> I could be more help if that demo wasnt 5+ years old and I no longer
> run or write programs for the M$-Platforms, only Linux.
> 
> try it and see if Im correct...
> 
> Regards,
> Euman


Hi again Euman

I renamed "buffer" to "gp_buffer", but not work...

Below the error reports:

C:\11USRE\DIR\EFFM.exw:294 in function myalloc() 
A machine-level exception occurred during execution of this statement 
    size = 256
    mem = <no value>

... called from C:\11USRE\DIR\treeviews.ew:145 in function filltvitem()  
    id = 1639430
    Item = 6371360
    mask = 1
    state = 0
    path = <no value>

... called from C:\11USRE\DIR\EFFM.exw:907 in function WndProc()  
    hwnd = 984176
    iMsg = -405
    wParam = 0
    lParam = 522132
    i = <no value>
    j = <no value>
    k = <no value>
    j = <no value>

^^^ call-back from Windows

new topic     » goto parent     » topic index » view message » categorize

39.

h=domainkey-signature:received:received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
         bh=x/dk/pEYxfeSc9EBlXWISt6paPoKDARCoYjcNTj+eBY=;
 
b=k5WLcxVPh83Qp0obu6UHkpwTWA/jWPsW9lNT7Zlz57/1xxkU+ZfgB8ISGATD81a7bShxIeGPSLjwHf/l8de4VFXa91Oe+9eDlrsfUHQOuj0qkmOyikeaXHPFh9YR56hdk3oWxrWXnA7EDLRLjZfddEPjeQnzhKFRSV5YUNrticc=
DomainKey-Signature: a=rsa-sha1; c=nofws;
         d=gmail.com; s=gamma;
 
h=message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
 
b=Ui/eiJNtBj5mfYWmbL7bJeAzb4UeQy3KnwogGlcsq7qeYi0Ri1ujMJWqA9K8PKpmqoQAUDA6F7TYASSDtoadd5FMqdUMa5t9RElpAJzwZflmci5zLy8HPzejAqGap3ELO+PBZ7/qZ7LCBAMNJH16+p4VfZFkmUUeEOk+UAtmiOc=
Received: by 10.141.74.17 with SMTP id b17mr367497rvl.144.1199882281727;
         Wed, 09 Jan 2008 04:38:01 -0800 (PST)
Received: by 10.141.63.13 with HTTP; Wed, 9 Jan 2008 04:38:01 -0800 (PST)
Message-ID: <7033b30801090438p7c9f5bb8o2fca4f0c9b454078 at mail.gmail.com>
Date: Wed, 9 Jan 2008 10:38:01 -0200
From: "rlistas rlistas" <rlistas at gmail.com>
To: EUforum at topica.com
Subject: Re: Debian package
In-Reply-To: <1294612036-1463792638-1199848071 at boing.topica.com>
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----=_Part_49307_16355102.1199882281735"
References: <1294612036-1463792638-1199848071 at boing.topica.com>

------=_Part_49307_16355102.1199882281735
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

Works perfect in Ubuntu 7.1, portuguese version !
Thanks Matt.

Rubens

On 1/9/08, Matt Lewis <guest at rapideuphoria.com> wrote:
>
> ============ The Euphoria Mailing List ============
>
>
> posted by: Matt Lewis <matthewwalkerlewis at gmai?.c?m>
>
>
> I've put up another attempt at the .deb package.  The errors should be
> fixed,
> and eushroud and eubind are now installed (though the eushroud/eubackend
> combo
> seems to still have some bugs).  I've done a little bit of updating on the
> man pages.
>
> Downloads here:
>
>
> http://sourceforge.net/project/showfiles.php?group_id=182827&package_id=256863
>
> Testing and comments appreciated.
>
> Matt
>
> --^----------------------------------------------------------------
> This email was sent to: rlistas at gmail.com
>
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bP8OFm.cmxpc3Rh
> Or send an email to: EUforum-unsubscribe at topica.com
>
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
>
>

------=_Part_49307_16355102.1199882281735
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

Works perfect in Ubuntu 7.1,&nbsp;portuguese&nbsp;version !<br>Thanks 
Matt.<br><br>Rubens<br><br><div><span class="gmail_quote">On 1/9/08, <b 
class="gmail_sendername">Matt Lewis</b> &lt;<a 
href="mailto:guest at rapideuphoria.com">guest at rapideuphoria.com
</a>&gt; wrote:</span><blockquote class="gmail_quote" style="margin-top: 
0; margin-right: 0; margin-bottom: 0; margin-left: 0; margin-left: 
0.80ex; border-left-color: #cccccc; border-left-width: 1px; 
border-left-style: solid; padding-left: 1ex">
============ The Euphoria Mailing List ============<br><br><br>posted 
by: Matt Lewis &lt;matthewwalkerlewis at 
gmai?.c?m&gt;<br><br><br>I've put up another attempt at the .deb 
package.&nbsp;&nbsp;The errors should be fixed,<br>
and eushroud and eubind are now installed (though the eushroud/eubackend 
combo<br>seems to still have some bugs).&nbsp;&nbsp;I've done a 
little bit of updating on the<br>man pages.<br><br>Downloads 
here:<br><br><a 
href="http://sourceforge.net/project/showfiles.php?group_id=182827&amp;package_id=256863">
http://sourceforge.net/project/showfiles.php?group_id=182827&amp;package_id=256863</a><br><br>Testing
and comments 
appreciated.<br><br>Matt<br><br>--^----------------------------------------------------------------<br>This
email was sent to:
<a href="mailto:rlistas at gmail.com">rlistas at gmail.com</a><br><br>EASY 
UNSUBSCRIBE click here: <a 
href="http://topica.com/u/?b1dd66.bP8OFm.cmxpc3Rh">http://topica.com/u/?b1dd66.bP8OFm.cmxpc3Rh</a><br>Or
send an email to: <a href="mailto:EUforum-unsubscribe at topica.com">
EUforum-unsubscribe at topica.com</a><br><br>For Topica's complete 
suite of email marketing solutions visit:<br><a 
href="http://www.topica.com/?p=TEXFOOTER">http://www.topica.com/?p=TEXFOOTER</a><br>--^----------------------------------------------------------------
<br><br></blockquote></div><br>

------=_Part_49307_16355102.1199882281735--

new topic     » goto parent     » topic index » view message » categorize

40.

------=_NextPart_000_00DC_01BEAE76.08132940
        boundary="----=_NextPart_001_00DD_01BEAE76.08132940"


------=_NextPart_001_00DD_01BEAE76.08132940
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

UNSUBSCRIBE

------=_NextPart_001_00DD_01BEAE76.08132940
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type><BASE=20
href=3D"file://C:\Archivos de programa\Archivos comunes\Microsoft =
Shared\Material de papeler=EDa\">
<STYLE>BODY {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
P.msoNormal {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
LI.msoNormal {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
PRE {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
BLOCKQUOTE {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
A {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
MENU {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
DD {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
UL {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
DT {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
DIR {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
ADDRESS {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H1 {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H2 {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H3 {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H4 {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H5 {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
H6 {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
HR {
        COLOR: #000000; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-BOTTOM: =
0em; MARGIN-TOP: 0em
}
</STYLE>

<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR></HEAD>
<BODY background=3Dcid:00db01beae8f$2d573980$0100007f@crgseys =
bgColor=3D#ffffff>

------=_NextPart_001_00DD_01BEAE76.08132940--

------=_NextPart_000_00DC_01BEAE76.08132940
        name="tech.gif"

new topic     » goto parent     » topic index » view message » categorize

41.

IND Euphoria

new topic     » goto parent     » topic index » view message » categorize

42.

Pete or any NEIL guru,

Here is a short program that I am writing. It is supposed to put 2
rectangles on the screen.  The second one after a keypress.  The first is
red, the second blue.  The first uses display_image () and the second uses
pixel (). The two rectangles are supposed to be exactly the same in size,
shape, and placement but different color.  It doesn't seem to work right,
can anyone tell me what I'm doing wrong?

Lewis Townsend

--HERE IT IS
include neil.e
include get.e

procedure draw_rectangle (atom color, sequence ul, sequence dims, atom scr)
  if scr = screen then
    display_image (ul, repeat (repeat (color, dims[1]), dims[2]))
  else
    for line = 0 to dims[1]-1 do
      pixel (repeat (color, dims[1]), {ul[1], ul[2]})
    end for
  end if
end procedure

if gfx_mode (640, 480, 16) then end if

draw_rectangle (#FF0000, {100,50}, {50,100}, screen)
if wait_key () then end if
draw_rectangle (#0000FF, {100,50}, {50,100}, 1234)
if wait_key () then end if
restore_mode ()


_______________________________________________________________
Get Free Email and Do More On The Web. Visit http://www.msn.com

new topic     » goto parent     » topic index » view message » categorize

43.

First, This function is broken, Any ideas why? I get the error

Syntax error - expected to see =, +=, -=, *=, /= or &=
    Shuffling_Deck() = New_Deck()
                  ^
Wich if i remove the () changes to

Syntax error - expected to see possibly 'end', not a type
  atom temp, temp_1, card_2
     ^
The only way to stop the errors is to rem out
    Shuffling_Deck() = New_Deck()

Any ides???

Also, Is this the best way to swap two elements of an sequence?


function shuffle()
  sequence Shuffling_Deck
    Shuffling_Deck() = New_Deck()
  atom temp, temp_1, card_2
    for card = 1 to 52 do
      temp = Shuffling_Deck[card]
      card_2 = rand(52)
      temp_1 = Shuffling_Deck[card_2]
      Shuffling_Deck[1] = temp_1
      Shuffling_Deck[card_2] = temp
    end for
return Shuffling_Deck



J Reeves
Grape Vine
ICQ# 13728824

_____________________________________________________________________________________
Get more from the Web.  FREE MSN Explorer download : http://explorer.msn.com

new topic     » goto parent     » topic index » view message » categorize

44.

Well i found the problem, But i have no clue what the problem is
I swiched the order to

  sequence Shuffling_Deck
  atom temp, temp_1, card_2
    Shuffling_Deck() = New_Deck()

And it works just fine, Again, Anyone have any idea what is going on
here??????



>From: Grape_ Vine_ <g__vine at HOTMAIL.COM>
>Reply-To: Euphoria Programming for MS-DOS <EUPHORIA at LISTSERV.MUOHIO.EDU>
>To: EUPHORIA at LISTSERV.MUOHIO.EDU
>Date: Sat, 9 Dec 2000 15:30:58 -0800
>
>First, This function is broken, Any ideas why? I get the error
>
>Syntax error - expected to see =, +=, -=, *=, /= or &=
>    Shuffling_Deck() = New_Deck()
>                  ^
>Wich if i remove the () changes to
>
>Syntax error - expected to see possibly 'end', not a type
>  atom temp, temp_1, card_2
>     ^
>The only way to stop the errors is to rem out
>    Shuffling_Deck() = New_Deck()
>
>Any ides???
>
>Also, Is this the best way to swap two elements of an sequence?
>
>
>function shuffle()
>  sequence Shuffling_Deck
>    Shuffling_Deck() = New_Deck()
>  atom temp, temp_1, card_2
>    for card = 1 to 52 do
>      temp = Shuffling_Deck[card]
>      card_2 = rand(52)
>      temp_1 = Shuffling_Deck[card_2]
>      Shuffling_Deck[1] = temp_1
>      Shuffling_Deck[card_2] = temp
>    end for
>return Shuffling_Deck
>
>
>
>J Reeves
>Grape Vine
>ICQ# 13728824
>
>>_____________________________________________________________________________________
>Get more from the Web.  FREE MSN Explorer download :
>http://explorer.msn.com

_____________________________________________________________________________________
Get more from the Web.  FREE MSN Explorer download : http://explorer.msn.com

new topic     » goto parent     » topic index » view message » categorize

45.

RTFM. I quote: "Variable declarations inside a subroutine must all
appear at the beginning, *before* the executable statements of the
subroutine."  (my emphasis)

jiri

----- Original Message -----
From: "Grape_ Vine_" <g__vine at HOTMAIL.COM>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Sunday, December 10, 2000 1:04 PM


> Well i found the problem, But i have no clue what the problem is
> I swiched the order to
>
>   sequence Shuffling_Deck
>   atom temp, temp_1, card_2
>     Shuffling_Deck() = New_Deck()
>
> And it works just fine, Again, Anyone have any idea what is going on
> here??????
>
>
>
> >From: Grape_ Vine_ <g__vine at HOTMAIL.COM>
> >Reply-To: Euphoria Programming for MS-DOS
<EUPHORIA at LISTSERV.MUOHIO.EDU>
> >To: EUPHORIA at LISTSERV.MUOHIO.EDU
> >Date: Sat, 9 Dec 2000 15:30:58 -0800
> >
> >First, This function is broken, Any ideas why? I get the error
> >
> >Syntax error - expected to see =, +=, -=, *=, /= or &=
> >    Shuffling_Deck() = New_Deck()
> >                  ^
> >Wich if i remove the () changes to
> >
> >Syntax error - expected to see possibly 'end', not a type
> >  atom temp, temp_1, card_2
> >     ^
> >The only way to stop the errors is to rem out
> >    Shuffling_Deck() = New_Deck()
> >
> >Any ides???
> >
> >Also, Is this the best way to swap two elements of an sequence?
> >
> >
> >function shuffle()
> >  sequence Shuffling_Deck
> >    Shuffling_Deck() = New_Deck()
> >  atom temp, temp_1, card_2
> >    for card = 1 to 52 do
> >      temp = Shuffling_Deck[card]
> >      card_2 = rand(52)
> >      temp_1 = Shuffling_Deck[card_2]
> >      Shuffling_Deck[1] = temp_1
> >      Shuffling_Deck[card_2] = temp
> >    end for
> >return Shuffling_Deck
> >
> >
> >
> >J Reeves
> >Grape Vine
> >ICQ# 13728824
> >
>
>_____________________________________________________________________
________________
> >Get more from the Web.  FREE MSN Explorer download :
> >http://explorer.msn.com
>
>
______________________________________________________________________
_______________
> Get more from the Web.  FREE MSN Explorer download :
http://explorer.msn.com
>

new topic     » goto parent     » topic index » view message » categorize

46.

--=====================_20275275==_.ALT

The RDS website:

    http://www.rapideuphoria.com/

has two links on the main page for downloading a demo version of Euphoria.  One
for DOS/Windows and one for Linux.  Both the downloads contain Euphoria itself
plus documentation (a text based manual *and* a HTML based manual) and a range
of example programs.  Installation is quite straightforward - just take a
little time to read the instructions first.

The demo version is pretty much near the full registered version.  It is not
time limited and does not have any "nag" screens.  That said there are good
reasons to purchase the registered version but try it out first.  That's the
who point of the demo!

The documentation is of a *very* high quality - it is one of the things that
impressed me the most when getting to grips with the language: clear, well laid
out and with lots of example code.

Regards,

Andy Cranston.

At 08:14 21/12/2000 -0500, you wrote:

>
> Hi all,
>
>
>
> I've been watching this mail list for 2 days now and it appears to me that
> even the "newbies" are much more advanced than I am. The last time I tried my
> hand at programming, the VIC 20 was a hot item, basic was stored on a ROM,
> and Bill Gates could actually count his money without employing 350 banks to
> do it for him. Does anyone know if there is a reference manual to look up
> commands, language syntax, and other relevant information with respect to the
> euphoria pl? If I have to buy a license for euphoria to get a manual I will
> but I'm afraid that after I get it, it may not be what I need after all. Is
> there a downloadable version of it if it exists at all?
>
>
>
> Thanks for your time.
>
> Dr.X
>
> drx at cyberenhanced.com



--=====================_20275275==_.ALT

<html>
The RDS website:<br>
<br>
&nbsp;&nbsp;&nbsp;
<a href="http://www.rapideuphoria.com/"
eudora="autourl">http://www.rapideuphoria.com/</a><br>
<br>
has two links on the main page for downloading a demo version of
Euphoria.&nbsp; One for DOS/Windows and one for Linux.&nbsp; Both the
downloads contain Euphoria itself plus documentation (a text based manual
*and* a HTML based manual) and a range of example programs.&nbsp;
Installation is quite straightforward - just take a little time to read
the instructions first.<br>
<br>
The demo version is pretty much near the full registered version.&nbsp;
It is not time limited and does not have any &quot;nag&quot;
screens.&nbsp; That said there are good reasons to purchase the
registered version but try it out first.&nbsp; That's the who point of
the demo!<br>
<br>
The documentation is of a *very* high quality - it is one of the things
that impressed me the most when getting to grips with the language:
clear, well laid out and with lots of example code.<br>
<br>
Regards,<br>
<br>
Andy Cranston.<br>
<br>
At 08:14 21/12/2000 -0500, you wrote: <br>
<br>
<font face="Courier New, Courier" size=2><blockquote type=cite cite>Hi
all,<br>
</font><br>
&nbsp;<br>
<br>
I've been watching this mail list for 2 days now and it appears to me
that even the &quot;newbies&quot; are much more advanced than I am. The
last time I tried my hand at programming, the VIC 20 was a hot item,
basic was stored on a ROM, and Bill Gates could actually count his money
without employing 350 banks to do it for him. Does anyone know if there
is a reference manual to look up commands, language syntax, and other
relevant information with respect to the euphoria pl? If I have to buy a
license for euphoria to get a manual I will but I'm afraid that after I
get it, it may not be what I need after all. Is there a downloadable
version of it if it exists at all?<br>
<br>
&nbsp;<br>
<br>
Thanks for your time.<br>
<br>
Dr.X<br>
<br>
drx at cyberenhanced.com</blockquote><br>
</html>

--=====================_20275275==_.ALT--

new topic     » goto parent     » topic index » view message » categorize

47.

------=_NextPart_000_0000_01C06B26.0EC821A0
        charset="iso-8859-1"

Hi all,

I've been watching this mail list for 2 days now and it appears to me that
even the "newbies" are much more advanced than I am. The last time I tried
my hand at programming, the VIC 20 was a hot item, basic was stored on a
ROM, and Bill Gates could actually count his money without employing 350
banks to do it for him. Does anyone know if there is a reference manual to
look up commands, language syntax, and other relevant information with
respect to the euphoria pl? If I have to buy a license for euphoria to get a
manual I will but I'm afraid that after I get it, it may not be what I need
after all. Is there a downloadable version of it if it exists at all?

Thanks for your time.
Dr.X
drx at cyberenhanced.com

------=_NextPart_000_0000_01C06B26.0EC821A0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C06B26.0E0F8000">
<!--[if gte mso 9]><xml>
 <o:OfficeDocumentSettings>
  <o:DoNotRelyOnCSS/>
 </o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:View>Normal</w:View>
  <w:Zoom>0</w:Zoom>
  <w:DocumentKind>DocumentEmail</w:DocumentKind>
  <w:EnvelopeVis/>
 </w:WordDocument>
</xml><![endif]-->
<style>
<!--
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {mso-style-parent:"";
        margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
        {margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
        {mso-style-type:personal-compose;
        color:black;}
@page Section1
        {size:8.5in 11.0in;
        margin:1.0in 1.25in 1.0in 1.25in;
        mso-header-margin:.5in;
        mso-footer-margin:.5in;
        mso-paper-source:0;}
div.Section1
        {page:Section1;}
-->
</style>
</head>

<body lang=3DEN-US style=3D'tab-interval:.5in'>

<div class=3DSection1>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>Hi all,</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'><![if =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>I've been watching this mail list for 2 days =
now and
it appears to me that even the &quot;newbies&quot; are much more =
advanced than
I am. The last time I tried my hand at programming, the VIC 20 was a hot =
item,
basic was stored on a ROM, and Bill Gates could actually count his money
without employing 350 banks to do it for him. Does anyone know if there =
is a
reference manual to look up commands, language syntax, and other =
relevant
information with respect to the euphoria pl? If I have to buy a license =
for
euphoria to get a manual I will but I'm afraid that after I get it, it =
may not
be what I need after all. Is there a downloadable version of it if it =
exists at
all?</span></font><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'><span style=3D"mso-spacerun: =
yes">&nbsp;</span></span></font><font
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>Thanks for your time.</span></font><font =
size=3D2
color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";

<p class=3DMsoNormal =
size=3D2 color=3Dblack face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:black'>Dr.X</span></font><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";

<p class=3DMsoNormal><font size=3D2 color=3Dblack face=3D"Courier =
New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
class=3DEmailStyle15><font color=3Dblack><o:p></o:p></font></span></p>

</div>


</html>

------=_NextPart_000_0000_01C06B26.0EC821A0--

new topic     » goto parent     » topic index » view message » categorize

48.

On 21 Dec 2000, at 13:42, Andy Cranston wrote:

> --=====================_20275275==_.ALT
>
> The RDS website:
>
>     http://www.rapideuphoria.com/
>
> has two links on the main page for downloading a demo version of Euphoria.
> One for DOS/Windows and one for Linux.  Both the downloads contain Euphoria
> itself plus documentation (a text based manual *and* a HTML based manual) and
> a range of example programs.  Installation is quite straightforward - just
> take a little time to read the instructions first.
>
> The demo version is pretty much near the full registered version.  It is not
> time limited and does not have any "nag" screens.  That said there are good
> reasons to purchase the registered version but try it out first.  That's the
> who point of the demo!
>
> The documentation is of a *very* high quality - it is one of the things that
> impressed me the most when getting to grips with the language: clear, well
> laid out and with lots of example code.


There is also a refman.chm in the archives, i think. It's the RDS
documentation in more easily searchable form.

Kat


> Regards,
>
> Andy Cranston.
>
> At 08:14 21/12/2000 -0500, you wrote:
>
> >
> > Hi all,
> >
> >
> >
> > I've been watching this mail list for 2 days now and it appears to me that
> > even the "newbies" are much more advanced than I am. The last time I tried
> > my hand at programming, the VIC 20 was a hot item, basic was stored on a
> > ROM, and Bill Gates could actually count his money without employing 350
> > banks to do it for him. Does anyone know if there is a reference manual to
> > look up commands, language syntax, and other relevant information with
> > respect to the euphoria pl? If I have to buy a license for euphoria to get a
> > manual I will but I'm afraid that after I get it, it may not be what I need
> > after all. Is there a downloadable version of it if it exists at all?
> >
> >
> >
> > Thanks for your time.
> >
> > Dr.X
> >
> > drx at cyberenhanced.com
>
>
>
> --=====================_20275275==_.ALT
>
> <html>
> The RDS website:<br>
> <br>
> &nbsp;&nbsp;&nbsp;
> <a href="http://www.rapideuphoria.com/"
> eudora="autourl">http://www.rapideuphoria.com/</a><br> <br> has two links on
> the main page for downloading a demo version of Euphoria.&nbsp; One for
> DOS/Windows and one for Linux.&nbsp; Both the downloads contain Euphoria
> itself plus documentation (a text based manual *and* a HTML based manual) and
> a range of example programs.&nbsp; Installation is quite straightforward -
> just take a little time to read the instructions first.<br> <br> The demo
> version is pretty much near the full registered version.&nbsp; It is not time
> limited and does not have any &quot;nag&quot; screens.&nbsp; That said there
> are good reasons to purchase the registered version but try it out
> first.&nbsp; That's the who point of the demo!<br> <br> The documentation is
> of a *very* high quality - it is one of the things that impressed me the most
> when getting to grips with the language: clear, well laid out and with lots of
> example code.<br> <br> Regards,<br> <br> Andy Cranston.<br> <br> At 08:14
> 21/12/2000 -0500, you wrote: <br> <br> <font face="Courier New, Courier"
> size=2><blockquote type=cite cite>Hi all,<br> </font><br> &nbsp;<br> <br> I've
> been watching this mail list for 2 days now and it appears to me that even the
> &quot;newbies&quot; are much more advanced than I am. The last time I tried my
> hand at programming, the VIC 20 was a hot item, basic was stored on a ROM, and
> Bill Gates could actually count his money without employing 350 banks to do it
> for him. Does anyone know if there is a reference manual to look up commands,
> language syntax, and other relevant information with respect to the euphoria
> pl? If I have to buy a license for euphoria to get a manual I will but I'm
> afraid that after I get it, it may not be what I need after all. Is there a
> downloadable version of it if it exists at all?<br> <br> &nbsp;<br> <br>
> Thanks for your time.<br> <br> Dr.X<br> <br>
> drx at cyberenhanced.com</blockquote><br> </html>
>
> --=====================_20275275==_.ALT--
>

new topic     » goto parent     » topic index » view message » categorize

49.

------=_NextPart_000_0006_01C06E07.A966FFE0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-MIME-Autoconverted: from 8bit to quoted-printable by
smtp-server.tampabay.rr.com id AAA03599

It IS a virus. I got it too but I didn=92t open it. Don=92t go blaming an=
yone
yet. Likely, the person who sent it to you does NOT KNOW HE SENT IT. It i=
s
automatically sent whenever some one opens it. Just delete it and if you
know who sent it, just let them know that they are now infected.

Dr.X
drx at cyberenhanced.com <mailto:drx at cyberenhanced.com>


-----Original Message-----
From: Euphoria Programming for MS-DOS
[mailto:EUPHORIA at LISTSERV.MUOHIO.EDU]On Behalf Of =F8=08
Sent: Saturday, January 22, 2000 3:14 AM
To: EUPHORIA at LISTSERV.MUOHIO.EDU
Subject: what the hell is it !

I got this email . It has no subject and it does not show where it came f=
rom
. It has an attached *.exe file named EGGKOKEG.exe . Is this a virus ? If=
 it
is , I think I know who the f***er is who send it to me . So what is it ?

Read ya !
Ferdinand Greyling


------=_NextPart_000_0006_01C06E07.A966FFE0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C06E07.A9131380">
<!--[if gte mso 9]><xml>
 <o:OfficeDocumentSettings>
  <o:DoNotRelyOnCSS/>
 </o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:View>Normal</w:View>
  <w:Zoom>0</w:Zoom>
  <w:DocumentKind>DocumentEmail</w:DocumentKind>
  <w:EnvelopeVis/>
 </w:WordDocument>
</xml><![endif]-->
<style>
<!--
 /* Font Definitions */
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;
        mso-font-charset:0;
        mso-generic-font-family:swiss;
        mso-font-pitch:variable;
        mso-font-signature:16792199 0 0 0 65791 0;}
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {mso-style-parent:"";
        margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
a:link, span.MsoHyperlink
        {color:blue;
        text-decoration:underline;
        text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
        {color:purple;
        text-decoration:underline;
        text-underline:single;}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
        {margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
        {mso-style-type:personal-compose;
        color:black;}
span.EmailStyle18
        {mso-style-type:personal;
        mso-ansi-font-size:10.0pt;
        mso-ascii-font-family:Arial;
        mso-hansi-font-family:Arial;
        mso-bidi-font-family:Arial;
        color:navy;}
@page Section1
        {size:8.5in 11.0in;
        margin:1.0in 1.25in 1.0in 1.25in;
        mso-header-margin:.5in;
        mso-footer-margin:.5in;
        mso-paper-source:0;}
div.Section1
        {page:Section1;}
-->
</style>
</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple =
style=3D'tab-interval:.5in'>

<div class=3DSection1>

<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
 IS a
virus. I got it too but I didn’t open it. Don’t go blaming =
anyone yet. Likely,
the person who sent it to you does NOT KNOW HE SENT IT. It is =
automatically
sent whenever some one opens it. Just delete it and if you know who sent =
it,
just let them know that they are now =
infected.<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
bsp;<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
.X<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span

></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
bsp;<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal><span class=3DEmailStyle18><font size=3D2 =
color=3Dnavy face=3DArial><span
bsp;<o:p></o:p></span></font></span></p>

<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D2 =
color=3Dblack
face=3DTahoma><span =
Message-----<br>
<b><span style=3D'font-weight:bold'>From:</span></b> Euphoria =
Programming for
MS-DOS [mailto:EUPHORIA at LISTSERV.MUOHIO.EDU]<b><span =
style=3D'font-weight:bold'>On
Behalf Of </span></b>=F8=08<br>
<b><span style=3D'font-weight:bold'>Sent:</span></b> Saturday, January =
22, 2000
3:14 AM<br>
<b><span style=3D'font-weight:bold'>To:</span></b> =
EUPHORIA at LISTSERV.MUOHIO.EDU<br>
<b><span style=3D'font-weight:bold'>Subject:</span></b> what the hell is =
it !</span></font><font
color=3Dblack><span =
/p>

<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
color=3Dblack><span =
/p>

<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3DArial><span =
style=3D'font-size:12.0pt;font-family:Arial;color:black'>I got
this email . It has no subject and it does not show where it came from . =
It has
an attached *.exe file named EGGKOKEG.exe . Is this a virus ? If it is , =
I
think I know who the f***er is who send it to me . So what is it =
?</span></font><font
color=3Dblack><span =
/p>

<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
color=3Dblack><span =
/p>

<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
style=3D'font-size:12.0pt;color:black'>Read ya !</span></font><font
color=3Dblack><span =
/p>

<p class=3DMsoNormal style=3D'margin-left:.5in'><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =
style=3D'font-size:12.0pt;color:black'>Ferdinand
Greyling</span></font><font color=3Dblack><span =
style=3D'color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

</div>


</html>

------=_NextPart_000_0006_01C06E07.A966FFE0--

new topic     » goto parent     » topic index » view message » categorize

50.

------=_NextPart_000_0000_01C06E7A.7CB86A60
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-MIME-Autoconverted: from 8bit to quoted-printable by
smtp-server.tampabay.rr.com id NAA12144

> I've recieved it twice now. Both times this month. The last
> was 20/12/2000. Both times in the account I get this list
> sent to A quick look with a hex editor revealed MIME headers
> and a link to GetModuleHandleA Needless to say I decided
> against opening it, however I can find no reference to it
> anywhere. It's not on the Symantec site, which is usually
> pretty good. Anybody else come accross it?



Upon viewing the file in notepad, one can see that it is a virus that
propagates through the e-mailer installed on the victim=92s computer. The
following was extracted using notepad:


 =ABO=E8=C9

  _____


 ^=E8}  =8Bt$
  _____

=E8t  f=B8
=8Bt$
  _____

=81=C6 =F8  =E8   =E8R   "

new topic     » goto parent     » topic index » view message » categorize

51.

On 25 Dec 2000, at 13:56, Fernando Ortiz wrote:

> > I've recieved it twice now. Both times this month. The last
> > was 20/12/2000. Both times in the account I get this list
> > sent to A quick look with a hex editor revealed MIME headers
> > and a link to GetModuleHandleA Needless to say I decided
> > against opening it, however I can find no reference to it
> > anywhere. It's not on the Symantec site, which is usually
> > pretty good. Anybody else come accross it?

I am now thinking i saw it in a virus name alias section in Norton2000
antivirus somewhere on the other puter, but since it's mouse is dead, i
can't navigate there atm, even from this puter...

> Upon viewing the file in notepad, one can see that it is a virus that
> propagates through the e-mailer installed on the victim=92s computer. T=
he
> following was extracted using notepad:
>
>
>  =ABO=E8=C9

Hint: don't view MIME. If possible, view *only* in ascii mode, there is l=
ess
scripting involved. Of course, AOL users may argue that this will diminis=
h
the entertainment value of the email format,, well, for entertaiment, i w=
atch
tv.

new topic     » goto parent     » topic index » view message » categorize

52.


new topic     » goto parent     » topic index » view message » categorize

53.


new topic     » goto parent     » topic index » view message » categorize

54.


new topic     » goto parent     » topic index » view message » categorize

55.

Hi all

Is posible ex.exe file.ex be faster tham a file.exe ??
Why it occur ?

sergio

new topic     » goto parent     » topic index » view message » categorize

56. Re:

Hi sergio,

----------
> : sergio <sergelli at uol.com.br>
> : EUforum <EUforum at topica.com>
> : 
> : Friday, November 09, 2001 17:16
> 
> Hi all
> 
> Is posible ex.exe file.ex be faster 
> tham a file.exe ??
> Why it occur ?
> 
> sergio

Imagine file.exe which you get with DJGPP,
and DJGPP's **some** functions which are 
slower than same **some** functions of WATCOM,
then file.exe you get with WATCOM will be
faster, and ever ex.exe file.ex may be
faster than that DJGPP's file.exe above.

All these things about slower/faster 
require the very careful testing on 
monotask OS, for example in plain Dos-32
mode.

Binded .exe, not compiled, may be 'more'
fast than just ex.exe file.ex.

Also these things are depending from the 
amount of free memory on your machine in 
the concrete session, and are random in 
the most cases.

Try carefully another programs, not EU's,
and you'll get same random results.

You are testing the EU programs and your 
attention is concentrated on the EU's speed.

Try for speed something *another* and
you'll see same wonderful things around
the speed, especially on Windows' back.

Regards,
Igor Kachan
kinz at peterlink.ru

new topic     » goto parent     » topic index » view message » categorize

57. Re:

Hi sergio,

----------
> : sergio <sergelli at uol.com.br>
> : EUforum <EUforum at topica.com>
> : RE: 
> : Saturday, November 10, 2001 13:27

> Igor Kachan wrote:
> > Imagine file.exe which you get with DJGPP,
> > and DJGPP's **some** functions which are 
> > slower than same **some** functions of WATCOM,
> > then file.exe you get with WATCOM will be
> > faster, and ever ex.exe file.ex may be
> > faster than that DJGPP's file.exe above.
> > 
> > All these things about slower/faster 
> > require the very careful testing on 
> > monotask OS, for example in plain Dos-32
> > mode.
> > 
> > Binded .exe, not compiled, may be 'more'
> > fast than just ex.exe file.ex.
> > 
> > Also these things are depending from the 
> > amount of free memory on your machine in 
> > the concrete session, and are random in 
> > the most cases.
> > 
> > Try carefully another programs, not EU's,
> > and you'll get same random results.
> > 
>  
> I don't understand, if is fastest when uses EX.EXE
> why someone uses an EXE file?
> 
> thanks
> 

Sergio, EU's EXE is faster for the most part, but
sometimes under *some* conditions, you may get
interpreted EU's program which is faster than
compiled EXE EU's program, so just try and choose
the fastest variant for yourself.

You can use interpreted or binded or compiled
with 6 different C compilers EU programs for any
taste. Speed will be different for each case.

Again, just try & choose the fastest variant for 
your concrete conditions (machine, OS, RAM, etc...).

And remember, the *single wrong* operator in the
concrete code (in any programming language) can 
decrease speed in 10..20 times sometimes.

The speed depends on programmer's ability very
very much. So, the special standard benchmark 
programs exist for the speed tests of the machines,
languages, compilers, interpreters and so on.


Regards,
Igor Kachan
kinz at peterlink.ru

new topic     » goto parent     » topic index » view message » categorize

58.

This is a multi-part message in MIME format.

------=_NextPart_000_0007_01C17061.B8768C00
	charset="iso-8859-1"



------=_NextPart_000_0007_01C17061.B8768C00
	charset="iso-8859-1"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.4611.1300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>

new topic     » goto parent     » topic index » view message » categorize

59.

On  0, aku at inbox.as wrote:
>
>
> T> Bound programs are probably slightly more secure
from crackers simply
> T> because it's unusual....
>
>
> Rob, if the shrouded program decyrpted while
running, can
> crackers get the code (although variable names
changed) by
> reading directly from ex*.exe memory?
 
It depends on how the program information is stored.
Remember, sequences aren
arrays. It is possible that Rob used a similar
technique to store the program
code, so that the data is not continuous.
Non-continuous data would be
harder to be read directly from memory.
 
If, however, the data WAS stored in an array, then it
would be easier
to read the code. (Though still non-trivial, as you
would need a powerful
debugger and be a very good asm- or even machine-code
reader, in order to
find the data.)
 
=========================================================
>
>
 
--
Linux User:190064
Linux Machine:84163
http://jbrown105.1avenue.com

new topic     » goto parent     » topic index » view message » categorize

60.

------=_NextPart_000_0014_01BD37DC.85C73640
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Signoff Euphoria

------=_NextPart_000_0014_01BD37DC.85C73640
        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>
<META content=3D'"MSHTML 4.72.2106.6"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>Signoff =

------=_NextPart_000_0014_01BD37DC.85C73640--

new topic     » goto parent     » topic index » view message » categorize

61.

----------------------------------------------------------
-- Lucius L. Hilley III  --       lhilley at cdc.net       --
--          of           --                             --
-- Hollow Horse Software -- http://www.cdc.net/~lhilley --
----------------------------------------------------------

you want off then use
http://frontpage.cdc.net/blackdog/listserv.htm

You should have sent the message to
LISTSERV at MIAMIU.ACS.MUOHIO.EDU
not
EUPHORIA at MIAMIU.ACS.MUOHIO.EDU

----------
From: Gordon Croll <ghcroll at BIT.NET.AU>
To: Multiple recipients of list EUPHORIA <EUPHORIA at MIAMIU.ACS.MUOHIO.EDU>
Subject:
Date: Thursday, February 12, 1998 2:34 AM

Signoff Euphoria

new topic     » goto parent     » topic index » view message » categorize

62.

STATUS

new topic     » goto parent     » topic index » view message » categorize

63.

>000000: 67 64 69 33 32 2E 64 6C 6C 00 00 00 00 00 00 00   gdi32.dll.......
>000010: 03 00 00 00 01 00 00 00 2D 00 00 00 3C 00 00 00   ........-...<...
>000020: 4A 00 00 00 00 00 00 00 00 00 04 34 04 47 65 74   J..........4.Get
>000030: 53 74 6F 63 6B 4F 62 6A 65 63 74 00 53 74 72 65   StockObject.Stre
>000040: 74 63 68 44 49 42 69 74 73 00 53 77 61 70 42 75   tchDIBits.SwapBu
>000050: 66 66 65 72 73 00 00 00 00 00 00 00 00 00 00 00   ffers...........
>000060 

Mic:
   I still do not understand what the values from 0C
   through 29 (excluding the zero word) represent. Where
   is the 2A offset calculation placed in the header ?
   The reason I am trying to understand the format is
   that I would like to try adding to the code and a
   user has to be able to add more library functions.
   Is there any chance that you will include your
   library utility with your code with your next update
   of your code ?
Bernie

new topic     » goto parent     » topic index » view message » categorize

64.

by TDIMSO15.backend.tdata.com.ar
 (iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
 with ESMTPA id <0HNW004LI142EZ at TDIMSO15.backend.tdata.com.ar> for
 EUforum at topica.com; Wed, 05 Nov 2003 13:43:17 -0300 (GMT)
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Anyone want to write an "intelligent" mail filter?
lla
 vundefinedundefined) Gecko/20030624
 <2104666597-1463792638-1068001997 at boing.topica.com>
 <2005949051-1463792382-1068033513 at boing.topica.com>

Hi Ricardo,
	I had the same problem and i always used http://www.mail2web.com/ and=20
worked right. It=B4s a free service to check your pop account and delete=
=20
spam mails before downloading them.

Hope this helps,
	Guillermo Bonvehi

Ricardo Forno wrote:
>=20
>=20
> Rob:
> Is there some SPAM filter that not only identifies SPAM, but also avoids
> downloading them from the server and deletes them in the server?
> I'm asking this because I have a 56K connection, and SPAM consumes a big
> part of connection time (I have to pay for it).
> A few days ago, I had to resort to change my e-mail address from rforno t=
o
> rmforno, in view of increasing SPAM.
> Regards.

new topic     » goto parent     » topic index » view message » categorize

65.

by inmta008.topica.com.topica.com with SMTP; 8 Nov 2003 21:20:20 -0000
 (Rockliffe SMTPRA 5.3.4) with ESMTP id <B0000381941 at nocmailsvc001.allthesi=
tes.org> for <EUforum at topica.com>;
 Sat, 8 Nov 2003 16:20:10 -0500
From: kbochert at copper.net
Subject: Re: Remainder
Priority: normal
Content-description: Mail message body

On 8 Nov 2003 at 15:06, Robert Craig wrote:

>
>
> kbochert at copper.net wrote:
> > A solution is to observe the bit pattern of the double generated by X/Y=

> > and correct the case where it is a single bit less than a whole number.=

> >
> > In C: (and without sign stuff)
> >    double rem( double X, double Y)
> >        struct {
> >            double d;
> >            long L[2];
> >            } z;
> >        z.d =3D X / Y;
> >        if (L[0] =3D=3D -1) {
> >            L[0] =3D 0;
> >            ++L[1];
> >            } ;
> >         return X - floor (z) * Y
> >      }
> >
> > (Basically, if X is a multiple of Y, then the error case division produ=
ces
> > a double whose bit pattern looks something like:
> > 0x0048FFFFFFFFFFFF  )
> >
> > This works very nicely on all cases I have tried where X is a multiple
> > of Y, and at worst, decreases the accuracy of a very few remainders()
> > ( 1 in 65k?) by a single bit.
> >
> >
> > How do you do this in EU??
>
> You have my source. In runtime.c, Dremainder(),
> you can see that I just call the C fmod() function,
> which I assume executes an Intel instruction.
> I also have a cryptic comment "for now". I don't remember
> why I said that. Maybe I thought there was a speed optimization
> I could do.
>
> I never attempt to "fix" problems due to finite
> floating-point accuracy. Most languages that I'm aware of
> leave it to the programmer to handle situations like this.
>
> One exception is APL, which has a concept called
> "comparison tolerance" or "fuzz".
> In APL if two numbers are the same to about
> 13 digits (as I recall) then APL considers them to be exactly equal.
> The programmer can adjust this value up or down if he wants.
> This fuzz value pervades the whole APL system.
> I believe it also affects operations like floor and remainder,
> just like your idea above, but the differences
> can be much more than 1 bit.
>
> The fuzz factor idea solves a lot of problems,
> but you can have weird cases where for example
>    A =3D B and B =3D C but A !=3D C
>
> I don't think computer science types
> are happy with the idea.
>
> Regards,
>     Rob Craig
>     Rapid Deployment Software
>     http://www.RapidEuphoria.com
>

The only issue here seems to be that the modulo nature of the
function, floor() in my code or the equivalent in the Intel 'repeated
subtraction' algorithm, causes a situation in which an arbitrarily small
inaccuracy can cause the result to 'toggle' to a very bad value.

Intel's 80-bit internal precision causes this error to be a single bit.

This method is a little different than a fuzz factor in that it only modifi=
es
a specific case. In rare circumstances, that modification can (I think)
introduce a 1/2 bit error.

Perhaps that 'for now' comment came about from seeing others
problems with fmod(), and deciding that intel's algorithm was
good enough, pending investigation.

It should be pointed out that Intel does not actually supply a remainder
function.  There is an instruction FPREM (and FPREM1) that performs
a partial remainder calculation. It is up to the user (the fmod() fct in th=
e
C library) to write code that compensates for this.

Another interesting note from the manual is:
"FPREM produces an exact result; the precision exception does not
occur and the rounding control has no effect"

My manual specifically mentions that an important use of FPREM is to
reduce the arguments of periodic function like sine, and it provide status
bits to aid that use. In that usage, this modulo problem is meaningless.

It certainly looks like the standard C library provides a na=EFve
implementation aimed at periodic functions.
I can't prove that the algorithm above is 'correct', but it seems to very
clearly produce better results.

KtB

new topic     » goto parent     » topic index » view message » categorize

66.

Evan:
   Try this:

dmScreenSettings = allocate(120) --DEVMODE structure
mem_set(dmScreenSettings,0,120) --clear smScreenSettings
poke(dmScreenSettings + 8,120)   --dmSize
poke4(dmScreenSettings + 
16,or_all({DM_BITSPERPEL,DM_PELSWIDTH,DM_PELSHEIGHT})) -- dmFields
poke4(dmScreenSettings + 100, 24) -- dmBitsPerPel
poke4(dmScreenSettings + 104, 640)   --dmPelWidth
poke4(dmScreenSettings + 108, 480) --dmPelHeight
if c_func(ChangeDisplaySettingsA,{dmScreenSettings,CDS_FULLSCREEN}) != 
DISP_CHANGE_SUCCESSFUL then
        retval = message_box("The requested fullscreen mode is not 
supported by\nyour video card. ", "Error", or_bits(MB_OK,MB_ICONSTOP))
end if 

Bernie

new topic     » goto parent     » topic index » view message » categorize

67. Re:

Nope, that got me the same results that my numbers did.

Bernie Ryan wrote:

>
>
>Evan:
>   Try this:
>
>dmScreenSettings = allocate(120) --DEVMODE structure
>mem_set(dmScreenSettings,0,120) --clear smScreenSettings
>poke(dmScreenSettings + 8,120)   --dmSize
>poke4(dmScreenSettings + 
>16,or_all({DM_BITSPERPEL,DM_PELSWIDTH,DM_PELSHEIGHT})) -- dmFields
>poke4(dmScreenSettings + 100, 24) -- dmBitsPerPel
>poke4(dmScreenSettings + 104, 640)   --dmPelWidth
>poke4(dmScreenSettings + 108, 480) --dmPelHeight
>if c_func(ChangeDisplaySettingsA,{dmScreenSettings,CDS_FULLSCREEN}) != 
>DISP_CHANGE_SUCCESSFUL then
>        retval = message_box("The requested fullscreen mode is not 
>supported by\nyour video card. ", "Error", or_bits(MB_OK,MB_ICONSTOP))
>end if 
>
>Bernie
>  
>

new topic     » goto parent     » topic index » view message » categorize

68.

Hi

I need the clib.e in order to run the openGL demo by Daniel Kluss

Anyone know where to get it, or can you email me a copy please.

Ta

Chris




---- Message sent via Totalise Webmail - http://www.totalise.co.uk/

new topic     » goto parent     » topic index » view message » categorize

69. Re:

You may also want to check out http://nehe.gamedev.net/ .  I've made 
quite a few Euphoria ports of the OpenGL lessons there.



Chris Burch wrote:
> 
> 
> Hi
> 
> I need the clib.e in order to run the openGL demo by Daniel Kluss
> 
> Anyone know where to get it, or can you email me a copy please.
> 
> Ta
> 
> Chris
> 
> 
> ---- Message sent via Totalise Webmail - http://www.totalise.co.uk/
> 
> 
> 
> TOPICA - Start your own email discussion group. FREE!
> 
>

new topic     » goto parent     » topic index » view message » categorize

70.

--=====================_4379845==_.ALT


Joel H. Crook<br>
<br>
&quot;<b><i>A Strong house is built upon a strong foundation. What are
your beliefs built upon</b></i>?&quot;<br>
<div align="right">
&nbsp; -- &quot;The Book of Reminders&quot;</blockquote><br></x-html>
Joel H. Crook

Manager, Information Services
Certified Novell Administrator
Microsoft Certified Professional, OS Specialist

Kellogg & Andelson Accountancy Corp.
14724 Ventura Blvd. 2nd Floor
Sherman Oaks, CA 91403
(818) 971-5100

--=====================_4379845==_.ALT

<html><div>Joel H. Crook&lt;br&gt;</div>
<div>&lt;br&gt;</div>
<div>&amp;quot;&lt;b&gt;&lt;i&gt;A Strong house is built upon a strong
foundation. What are</div>
<div>your beliefs built
<div>&lt;div align=&quot;right&quot;&gt;</div>
&amp;nbsp; -- &amp;quot;The Book of
<br>

Joel H. Crook<br>
<br>
Manager, Information Services<br>
<font size=1>Certified Novell Administrator<br>
Microsoft Certified Professional, OS Specialist<br>
<br>
</font><b>Kellogg &amp; Andelson Accountancy Corp.<br>
</b><font size=1>14724 Ventura Blvd. 2nd Floor<br>
Sherman Oaks, CA 91403<br>
(818) 971-5100<br>
</font></html>

--=====================_4379845==_.ALT--

new topic     » goto parent     » topic index » view message » categorize

71.

This is version 1.2b of Object Euphoria--I fixed a bug in delete().  In
making the optimizations for v1.2 I inadventantly omitted the code which
destroyes the internal representation of a deleted eobject--this has been
corroected.  This can be listed as "minor bug fix".

-- Mike Nelson

new topic     » goto parent     » topic index » view message » categorize

72.

Skoda wrote:

> does anybody have the function that converts sequences with many other
> sequences under it, and sequences under it, into one sequence which has
> just atoms(=string)
> i have tried to write such function but it would be quite complicated
> because there can be unlimited number of sequences under sequences...

 --Warning untested code:

 function sequence_to_string(sequence s)
     sequence rs
     rs={}
     for i=1 to length(s) do
         if atom(s[i]) then
             rs&=s[i]
         else
             rs&=sequence_to_string(s[i])
         end if
     end for
     return rs
 end function

-- Mike Nelson

new topic     » goto parent     » topic index » view message » categorize

73.

Michael Nelson wrote:

>  Skoda wrote:
>
> > does anybody have the function that converts sequences with many other
> > sequences under it, and sequences under it, into one sequence which has
> > just atoms(=string)
> > i have tried to write such function but it would be quite complicated
> > because there can be unlimited number of sequences under sequences...
>
>  --Warning untested code:
>
>  function sequence_to_string(sequence s)
>      sequence rs
>      rs={}
>      for i=1 to length(s) do
>          if atom(s[i]) then
>              rs&=s[i]
>          else
>              rs&=sequence_to_string(s[i])
>          end if
>      end for
>      return rs
>  end function
>
> -- Mike Nelson

Noooooooooooo! You got there first! Not fair! I was looking forward to
this!!

Nick

new topic     » goto parent     » topic index » view message » categorize

74.

Nick,

I got the code but you had a good explanation of recursion--and you hadn't
seen my code.  Looks like shared honors to me!

-- Mike

new topic     » goto parent     » topic index » view message » categorize

75.

Hi Everyone,

I am new to Euphoria and I have been working with it for just a few 
weeks.  I like it so far,  but there are a few small issues I have.  
First of all,  the windows version opens up in what looks like a DOS 
box,  and when using the debugger looking at my variables I only get 
about the first 15 characters of my string.  I bring in a line at a time 
of a text file and at times I am modifying towards the end of the string 
which is quite often much larger than 15 characters and I can't see what 
it is doing.
Is there a plan to make the windows version a fully windows program with 
a nice GUI with the ability to watch the full variables no matter how 
long they are?

On the plus side I like the way the language uses libraries.  There are 
many features that aren't in the main version but somewhere someone has 
written a library for.  I was wishing it had regular expression search 
and replace and lo and behold I went to the archive and there it was.  
This happened with a few other features as well.  

Thanks for your time,

Dan

new topic     » goto parent     » topic index » view message » categorize

76.

Hi All:
Can anyone tell me how I would go about changing the DNS server's IP
address on either a Win2K or Win9x PC programmatically?  That is to
say, what registry key, or whatever would/could I change to set up on
a PC with dial up networking the DNS servers IP address?

It seems that several ISPs out there (AOL being 1 of the biggest
offenders) do not set the IP address for a DNS server when a person
dials up & logs into the internet.  They are doing name resolution in
some other way & not setting the DNS's IP address like good little boys
& girls.

All suggestions greatly appreciated.

Regards
Brian Keene

new topic     » goto parent     » topic index » view message » categorize

77. Re:

Dan writes:
> Is there a plan to make the windows version a fully 
> windows program with a nice GUI with the ability to 
> watch the full variables no matter how  long they are?

Yes, I'd like to do that eventually.
For the time being it's easier to support the identical
trace/debug facility on all 3 platforms.

Currently 20 characters are allocated at the bottom
of the screen for displaying each atom variable, 
and 80 characters for each sequence.
To see more, your program will have to display the variable
using maybe the print command:
         ? myvar
You can also use the ! command in the trace facility to
dump all the variables, and see much more of each sequence.

Regards,
   Rob Craig
   Rapid Deployment Software
   http://www.RapidEuphoria.com

new topic     » goto parent     » topic index » view message » categorize

78. Re:

On 10 Sep 2001, at 9:06, brian_keene at yahoo.com wrote:

> 
> Hi All:
> Can anyone tell me how I would go about changing the DNS server's IP
> address on either a Win2K or Win9x PC programmatically?  That is to
> say, what registry key, or whatever would/could I change to set up on
> a PC with dial up networking the DNS servers IP address?
> 
> It seems that several ISPs out there (AOL being 1 of the biggest
> offenders) do not set the IP address for a DNS server when a person
> dials up & logs into the internet.  They are doing name resolution in
> some other way & not setting the DNS's IP address like good little boys
> & girls.

Aohell double proxies their users' ip#s. That is to say, the number assigned to
the
user is essentially made up, and the ip# of the router the user is dialed into
is also
made up. You could be at 172.149.2.9 one day and 152.202.39.92 the next day. 
They aren't going to change this. AOhell bought a *small* ip block, relative to
their
userbase, and they spread it around the usa as needed, not one group of numbers
to
a city, or state. In an addy mask like 98CA275C.ipt.aol.com, the "98CA275C" is a
hex translation of the ip#, 98.CA.27.5C , or 152.202.39.92. 

My suggestion is to get a real isp, not AOL or MSN or .NET. Both spend a great
deal
of time trying to lock in proprietary closed "standards".

Kat

new topic     » goto parent     » topic index » view message » categorize

79.

Hi!

Problem: Suddenly ex.exe and can't find any of the files in 
c:\EUPHORIA\INCLUDE. 
My OS:winXP home edition...
I have tried to play around with the EUDIR environment variable (in 
autoexec.nt, autoexec.bat and in the windows systems settings menu 
(sorry, don't know what the windows systems settings menu is really 
called in English but hopefylly, someone will get it anyway). If EUDIR 
is set at all three locations, the systems meny way seems to have the 
highest priority... Anyway that has not fixed my problem. If I put the 
needed include files in the same library as my euphoria program it works 
fine. Has anyone any idea of what I should do?

help plase!/Martin Karlsson

new topic     » goto parent     » topic index » view message » categorize

80.

Has anyone written a Euphoria application that can be used to make web
pages more interactive?




_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com

new topic     » goto parent     » topic index » view message » categorize

81.

I was playing with some ideas and writing code for them, when I
realized that I had no function exactly equivalent to exp(x),
which returns the famous "e" raised to the x power.  Sure, this
could be done by using the power() function and hard-coding "e" -
but how far in do you remember "e"?

So, I sat down with a piece of paper and a pen, and managed to
derive the following function:

global function exp(x)
  return power(n,x/log(n))
end function

where n is _any_ positive number (strictly greater than zero) -
except 1.0 exactly.

If x is 1, you will get the value of "e" to the limits of
Euphoria's precision in the power and log functions.
--
Jeff Zeitlin
jeff.zeitlin at mail.execnet.com

new topic     » goto parent     » topic index » view message » categorize

82.

hello
my name is erez and i'm new to this list.
i had some problems in writing a batch file, it goes like this:
i'm using ms-dos 6.2 ,i need to write a file whitch uses a for loop to =
type all the txt in my disk on the screen using a pipeline. after every =
screen is full i need to clrscr and pause
i tried ::::   for %%f in (*.txt) do type %%f | more
                pause
                cls
it didnot stoped ,please tell me how to use the pipeline or the "><>>" =
signes=20
thanx=20
=20
                                goscar at ibm.net

new topic     » goto parent     » topic index » view message » categorize

83.

erez wrote:
>
> i tried ::::   for %%f in (*.txt) do type %%f | more
>                 pause
>                 cls
> it didnot stoped ,please tell me how to use the pipeline or the "><>>" signes
> thanx

Erez,
I stopped using Command.com many years ago because of things like this.
I use 4Dos.com now. As I remember in Command.com, you can't do what you
want to do.

In 4Dos.com the line would be:

 for %f in (*.txt) do (type %f | more^ pause^ cls)

Even better, in 4Dos you could use the following line instead:

 List *.txt

This built in command does everything you described and gives you MANY
more capabilities.

If you are interested in 4Dos, visit their page and get a demo.

http://www.jpsoft.com/

PS
I have no interest in JP Software. My interest is helping users make
better use of their computers.

--
Terry Constant
mailto:constant at flash.net

new topic     » goto parent     » topic index » view message » categorize

84.

At 22:47 14-06-98 +0300, you wrote:
>hello
>my name is erez and i'm new to this list.
>i had some problems in writing a batch file, it goes like this:
>i'm using ms-dos 6.2 ,i need to write a file whitch uses a for loop to type all
>the txt in my disk on the screen using a pipeline. after every screen is full i
>need to clrscr and pause
>i tried ::::   for %%f in (*.txt) do type %%f | more
>                pause
>                cls
>it didnot stoped ,please tell me how to use the pipeline or the "><>>" signes
>thanx
>
>                                goscar at ibm.net
>

You should put the 3 command in a separated file that you call

for %%f in (*.txt) do call page.bat %%f

page.bat will containt the following 4 lines
@echo off
type %1|more
pause
cls




Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at globetrotter.qc.ca

new topic     » goto parent     » topic index » view message » categorize

85.

X-MimeOLE: Produced By Microsoft Exchange V6.0.6249.0
Subject: can anyone help me please.
Date: Wed, 1 Jun 2005 17:57:30 -0500
Message-ID: <CDC3E3C423472D4A8663242DE1AD5D0301291655 at demetexsf01.corp.deme=
t.com.mx>
X-MS-Has-Attach:=20
X-MS-TNEF-Correlator:=20
Thread-Topic: can anyone help me please.
Thread-Index: AcVnDk1pXc/e5tLDEdmXqQBQ2gYPqg==
From: "Rangel, Hebert Rogelio" <hrangel at demet.com.mx>
To: <EUforum at topica.com>
Return-Path: hrangel at demet.com.mx
X-OriginalArrivalTime: 01 Jun 2005 22:57:30.0860 (UTC) FILETIME=[4A4322C0=
:01C566FD]

Hello can anyone please help me i=B4m want to make a mathematical operation=
 but i don=B4t know how to doit i been trying for 3 day now and i still can=
=B4t do it i want to get the % of something, and once i have if i want to s=
end it to a file, this is my code, please help e-mail me please hrangel@dem=
et.com.mx
tahks for you help

include Win32lib.ew
without warning

---------------------------------------------------------------------------=
-----
--  Window Window1
global constant Window1 = create( Window, "The Window", 0, Default, Defau=
lt, 280, 80+ 19, 0 )
global constant OK = create( PushButton, "OK", Window1, 180, 20, 56, 28, =
0 )
global constant cantidad = create( EditText, "", Window1, 28, 24, 116, 20=
, 0 )
-----
integer cienp
object tom
integer cinep2
procedure OK_onClick ()
cienp = open("\\ga.txt", "u")
tom = getText(cantidad)
cinep2 = (tom/10)
puts(cienp, cinep2)
flush(cienp)
abort(1)=20
end procedure
onClick[OK] = routine_id("OK_onClick")



WinMain( Window1, Normal )


new topic     » goto parent     » topic index » view message » categorize

86.

X-MimeOLE: Produced By Microsoft Exchange V6.0.6249.0
Subject: ERROR, PLEASE HELP!
Date: Fri, 3 Jun 2005 11:54:54 -0500
Message-ID: <CDC3E3C423472D4A8663242DE1AD5D0301291FB4 at demetexsf01.corp.deme=
t.com.mx>
X-MS-Has-Attach:=20
X-MS-TNEF-Correlator:=20
Thread-Topic: Digest for EUforum at topica.com, issue 4933
Thread-Index: AcVnYLANT40qpojRSby7gxOArRsKqgBDRv9Q
From: "Rangel, Hebert Rogelio" <hrangel at demet.com.mx>
To: <EUforum at topica.com>
Return-Path: hrangel at demet.com.mx
X-OriginalArrivalTime: 03 Jun 2005 16:54:54.0684 (UTC) FILETIME=[F765A1C0=
:01C5685C]

HELLO IT=B4S ME AGAIN ASKING FOR YOU HELP I BEEN TRYING TO ENTER A NUMBER A=
ND SEND IT TO A FILE BUT INSTEAD IT WRITES LETTERS I TRY WHAT Don Cole SAY =
IN A MESSAGE, BUT NOW WHEN I TYPE THE NUMBER IN THE EDIT-TEXT BOX AND PRESS=
 OK, IT SEND AN ERROR, THE ERROR IS THE NEXT ONE AND THE EUPHORIA CODE IS A=
FTER THE ERROR, IN THE ERROR WHERE IT SAY tom2 is 25, I TYPED 25 IN THE EDI=
TTEXT BOX IF YOU TYPE ANY OTHER NUMBER IN THE EDIT TEXT BOX, IT WILL CHANGE=
 THE 25 FOR THAT NUMBER.
THANK FOR YOU HELP AND HOPE I CAN UNDERSTAND HOW TO DOIT.
THANKS



------------------------------------ERROR------------------------
D:\euphoria\rfb\trytry.exw:32 in procedure OK_onClick()
type_check failure, tom2 is 25
... called from \EUPHORIA\include\Win32lib.ew:12185 in function wmCommand()=

... called from \EUPHORIA\include\Win32lib.ew:12429 in function WndProc()

^^^ call-back from Windows
... called from \EUPHORIA\include\Win32lib.ew:12911 in function SubProc()

^^^ call-back from Windows
... called from \EUPHORIA\include\Win32lib.ew:13074 in procedure WinMain()
... called from D:\euphoria\rfb\trytry.exw:41
--> see ex.err


Press Enter...
--------------------END OF THE ERROR CODE----------------------------------=
----

-----------------------------------EUPHORIA CODE---------------------------=
------
include Win32lib.ew
without warning

---------------------------------------------------------------------------=
-----
--  Window Window1
global constant Window1 = create( Window, "The Window", 0, Default, Defau=
lt, 280, 80+ 19, 0 )
global constant OK = create( PushButton, "OK", Window1, 180, 20, 56, 28, =
0 )
global constant cantidad = create( EditText, "", Window1, 28, 24, 116, 20=
, 0 )
-----------------------------------------------------------------------
global function getdec(sequence seq) --returns a decimal given a sequence
atom de
sequence value_string
  value_string=value(seq[1..length(seq)])
 de = value_string[2]
return de
end function


---------
integer cienp
sequence tom
sequence tom2
integer de
sequence value_string
procedure OK_onClick ()
cienp = open("\\ga.txt", "u")
tom = getText(cantidad)
value_string = value(tom[1..length(tom)])
de = value_string[2]
tom2 = de
puts(cienp, de)
flush(cienp)
abort(1)=20
end procedure
onClick[OK] = routine_id("OK_onClick")



WinMain( Window1, Normal )


new topic     » goto parent     » topic index » view message » categorize

87.

------=_NextPart_000_004F_01BFCE5A.8F868700
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

I'm a beginner and this is my first program. Anybody want to pick at it =
and help me do better? I also want to use the EX02.EXW example in Dave's =
Winlib to port this code in to so it'll run in winders[8*9 As of yet I =
don't know how. I'm also interested in using sprite graphics for dice.

            -- Dice version 3 by
            -- Joe Schwenk jschwenk at hsonline.net
            -- Alvin Koffman ka9qlq at hotmail.com
                  -- with trace
                  -- trace(1)

   include graphics.e -- include graphics
   include get.e      -- include keyboard imput

   integer d1, d2, t, z, y, k  -- declair some integers

   procedure winner()  -- CALL FOR WINNER
    text_color(10)     -- change text color
    puts (1, "\n\t*****WINNER!!*****\n\t*****WINNER!!*****") -- display =
winner
    y =3D 0          -- set loop to off
    text_color (7) -- Set color back to normal
    puts (1, "\n")

    end procedure

   procedure throw_dice() -- call this to throw dice

    d1 =3D rand (6)         -- throw dice
    d2 =3D rand (6)
    t =3D d1 + d2           -- total dice
    text_color (12)       -- change text color
    puts (1, "\nDice 1 is: ") -- display results
    print (1, d1)
    puts (1, "\tDice 2 is: ")
    print (1, d2)
    puts (1, "\tDice total is: ")
    print (1, t)

    end procedure

   procedure looser()  -- call for looser
    text_color (14)     -- change text color
    if                 -- is it snake eyes?
     t =3D 2
      then
       puts (1, "\n\t*****SNAKE EYES TURKEY!!*****\n\t*****SNAKE EYES =
TURKEY!!*****")
      else
    text_color (5)
       puts (1, "\n\t*****YAH BIG LOOSER!!*****\n\t*****YAH BIG =
LOOSER!!*****")
    end if
    y =3D 0              -- set loop to off
    text_color (7)     -- Set color back to normal
    puts (1, "\n")

   end procedure

   procedure other_throws() -- keep trowing the dice

   while                  -- multipel throw loop
    y > 0
     do

    throw_dice()          -- next throw

    if                    -- check total for loose
     t =3D 2
      then
       looser()
    end if

    if t =3D z  -- check total for winner
     then
       winner()
    end if

    if            -- check total for loose
     t =3D 7
      then
       looser()
    end if

    if            --check total for loose
     t =3D 11
      then
       looser()
    end if

   end while      -- end multipel throw loop
   end procedure  -- end next throw

   procedure game()-- start game
   throw_dice()

    z =3D t         -- keep to compair first throw with others
    if            -- did you win?
     t =3D 7
      then
       winner()
    end if

    if            -- did you win?
     t =3D 11
      then
      winner()
    end if

    if            -- did you loose?
     t =3D 2
      then
       looser()
    end if

   other_throws() -- no 7 or 11? throw on

   end procedure

   =
----------------------------------------------------------------------
   -- start program.
   =
----------------------------------------------------------------------

   y =3D 1          -- set other_throw loop to on
   k =3D 121        -- set while play loop to on

   while          -- loop to check if you want to play
    k =3D 121       -- ASCII for y
     do
    puts (1, "Play?") -- ask question
    k =3D wait_key()    -- wait for answer
    if                -- if not "y" then end program
     k !=3D 121
      then            --set y to quit game
    y =3D 0
    else              -- if "y" then start a game
     y =3D 1            -- reset y and z for new game
     z =3D 0
       game()         -- start game
    end if
    end while         -- end check           =20
http://ka9qlq.tripod.com/

------=_NextPart_000_004F_01BFCE5A.8F868700
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#a8c8f0>
<DIV><FONT face=3DArial size=3D2>I'm a beginner and this is my first =
program.=20
Anybody want to pick at it and help me do better? I also want to use the =

EX02.EXW example in Dave's Winlib to port this code in to so it'll run =
in=20
winders[8*9 As of yet I don't know how. I'm also interested in using =
sprite=20
graphics for dice.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial=20
p; --=20
Dice version 3=20
by<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
-- Joe=20
Schwenk <A=20
-- Alvin Koffman <A=20
nbsp;&nbsp;&nbsp;=20
-- with=20
p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
-- trace(1)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; include graphics.e -- =
include=20
graphics<BR>&nbsp;&nbsp; include get.e&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- =
include=20
keyboard imput</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; integer d1, d2, t, z, y, =
k&nbsp; --=20
declair some integers</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; procedure winner()&nbsp; =
-- CALL FOR=20
WINNER<BR>&nbsp;&nbsp;&nbsp; text_color(10)&nbsp;&nbsp;&nbsp;&nbsp; -- =
change=20
text color<BR>&nbsp;&nbsp;&nbsp; puts (1,=20
"\n\t*****WINNER!!*****\n\t*****WINNER!!*****") -- display=20
winner<BR>&nbsp;&nbsp;&nbsp; y =3D=20
0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- set loop to=20
off<BR>&nbsp;&nbsp;&nbsp; text_color (7) -- Set color back to=20
normal<BR>&nbsp;&nbsp;&nbsp; puts (1, "\n")</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; end =
procedure</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; procedure throw_dice() -- =
call this to=20
throw dice</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; d1 =3D rand=20
(6)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- throw=20
dice<BR>&nbsp;&nbsp;&nbsp; d2 =3D rand (6)<BR>&nbsp;&nbsp;&nbsp; t =3D =
d1 +=20
d2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- total=20
dice<BR>&nbsp;&nbsp;&nbsp; text_color =
(12)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
-- change text color<BR>&nbsp;&nbsp;&nbsp; puts (1, "\nDice 1 is: ") -- =
display=20
results<BR>&nbsp;&nbsp;&nbsp; print (1, d1)<BR>&nbsp;&nbsp;&nbsp; puts =
(1,=20
"\tDice 2 is: ")<BR>&nbsp;&nbsp;&nbsp; print (1, =
d2)<BR>&nbsp;&nbsp;&nbsp; puts=20
(1, "\tDice total is: ")<BR>&nbsp;&nbsp;&nbsp; print (1, t)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; end =
procedure</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; procedure looser()&nbsp; =
-- call for=20
looser<BR>&nbsp;&nbsp;&nbsp; text_color (14)&nbsp;&nbsp;&nbsp;&nbsp; -- =
change=20
text color<BR>&nbsp;&nbsp;&nbsp;=20
;&nbsp;&nbsp;&nbsp;&nbsp;=20
-- is it snake eyes?<BR>&nbsp;&nbsp;&nbsp;&nbsp; t =3D=20
2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
puts (1, "\n\t*****SNAKE EYES TURKEY!!*****\n\t*****SNAKE EYES=20
TURKEY!!*****")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
else<BR>&nbsp;&nbsp;&nbsp;=20
text_color (5)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; puts (1, =
"\n\t*****YAH=20
BIG LOOSER!!*****\n\t*****YAH BIG LOOSER!!*****")<BR>&nbsp;&nbsp;&nbsp; =
end=20
if<BR>&nbsp;&nbsp;&nbsp; y =3D=20
&nbsp;=20
-- set loop to off<BR>&nbsp;&nbsp;&nbsp; text_color =
(7)&nbsp;&nbsp;&nbsp;&nbsp;=20
-- Set color back to normal<BR>&nbsp;&nbsp;&nbsp; puts (1, =
"\n")</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; end procedure</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; procedure other_throws() =
-- keep=20
trowing the dice</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;=20
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
-- multipel throw loop<BR>&nbsp;&nbsp;&nbsp; y &gt;=20
0<BR>&nbsp;&nbsp;&nbsp;&nbsp; do</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;=20
throw_dice()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- =
next=20
throw</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;=20
;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
-- check total for loose<BR>&nbsp;&nbsp;&nbsp;&nbsp; t =3D=20
2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
looser()<BR>&nbsp;&nbsp;&nbsp; end if</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; if t =3D z&nbsp; -- =
check total=20
for winner<BR>&nbsp;&nbsp;&nbsp;&nbsp;=20
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
winner()<BR>&nbsp;&nbsp;&nbsp; end=20
if</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;=20
if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- =
check=20
total for loose<BR>&nbsp;&nbsp;&nbsp;&nbsp; t =3D=20
7<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
looser()<BR>&nbsp;&nbsp;&nbsp; end if</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;=20
if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
--check=20
total for loose<BR>&nbsp;&nbsp;&nbsp;&nbsp; t =3D=20
11<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
looser()<BR>&nbsp;&nbsp;&nbsp; end=20
if</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; end=20
while&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- end multipel throw =
loop<BR>&nbsp;&nbsp;=20
end procedure&nbsp; -- end next throw</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; procedure game()-- start=20
game<BR>&nbsp;&nbsp; throw_dice()</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; z =3D=20
t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- keep to compair =
first throw=20
with others<BR>&nbsp;&nbsp;&nbsp;=20
if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- =
did you=20
win?<BR>&nbsp;&nbsp;&nbsp;&nbsp; t =3D =
7<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
winner()<BR>&nbsp;&nbsp;&nbsp; end=20
if</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;=20
if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- =
did you=20
win?<BR>&nbsp;&nbsp;&nbsp;&nbsp; t =3D =
11<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; winner()<BR>&nbsp;&nbsp;&nbsp; =
end=20
if</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;=20
if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- =
did you=20
loose?<BR>&nbsp;&nbsp;&nbsp;&nbsp; t =3D =
2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
looser()<BR>&nbsp;&nbsp;&nbsp; end=20
if</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; other_throws() -- no 7 or =
11? throw=20
on</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; end procedure</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;=20
----------------------------------------------------------------------<BR=
>&nbsp;&nbsp;=20
-- start program.<BR>&nbsp;&nbsp;=20
----------------------------------------------------------------------</F=
ONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; y =3D=20
1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- set =
other_throw loop=20
to on<BR>&nbsp;&nbsp; k =3D =
121&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- set=20
while play loop to on</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;=20
while&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- loop to =
check if=20
you want to play<BR>&nbsp;&nbsp;&nbsp; k =3D=20
121&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- ASCII for=20
y<BR>&nbsp;&nbsp;&nbsp;&nbsp; do<BR>&nbsp;&nbsp;&nbsp; puts (1, "Play?") =
-- ask=20
question<BR>&nbsp;&nbsp;&nbsp; k =3D wait_key()&nbsp;&nbsp;&nbsp; -- =
wait for=20
answer<BR>&nbsp;&nbsp;&nbsp;=20
;&nbsp;&nbsp;&nbsp;=20
-- if not "y" then end program<BR>&nbsp;&nbsp;&nbsp;&nbsp; k !=3D=20
121<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
--set y=20
to quit game<BR>&nbsp;&nbsp;&nbsp; y =3D 0<BR>&nbsp;&nbsp;&nbsp;=20
sp;&nbsp;=20
-- if "y" then start a game<BR>&nbsp;&nbsp;&nbsp;&nbsp; y =3D=20
1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- =
reset y=20
and z for new game<BR>&nbsp;&nbsp;&nbsp;&nbsp; z =3D=20
0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
game()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- start=20
game<BR>&nbsp;&nbsp;&nbsp; end if<BR>&nbsp;&nbsp;&nbsp; end=20
while&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- end=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><A=20

------=_NextPart_000_004F_01BFCE5A.8F868700--

new topic     » goto parent     » topic index » view message » categorize

88.

------=_NextPart_000_0037_01BFD529.AAA24580
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

This may sound like a stupid question but ...... HOW DA HELL DO YOU =
PROGRAM THE KEABORD !!!! I just don`t understand . How do I program the =
keabord so that when I press a key the computer know that it is the F =
(or any other
key ) and then somthing hapens like a bom expodes . In Basic all you =
have to do
is type INKEY =3D F ( or any other key ) . Please reply . Thanks .

Ferdinand Greyling
from
Terminal Software

------=_NextPart_000_0037_01BFD529.AAA24580
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>This may sound like a stupid question =
but ......=20
HOW DA HELL DO YOU PROGRAM THE KEABORD !!!! I just don`t understand . =
How=20
do&nbsp;I program the keabord so that when I press a key the computer =
know that=20
it is the F (or any other</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>key ) and then somthing hapens like a =
bom expodes .=20
In Basic all you have to do</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>is type INKEY =3D F ( or any other key =
) . Please=20
reply . Thanks .</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Terminal =

------=_NextPart_000_0037_01BFD529.AAA24580--

new topic     » goto parent     » topic index » view message » categorize

89.

------=_NextPart_000_001C_01BFD64F.885E38E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hi Ferdinand

I have always found the performance of Eu's "get_key" a bit lacking.
It always seems to hit the performance of whatever I am trying to
do. It also seems to buffer up and I couldn't find a way to stop that.
(that may be my fault...)

Under windows, I found the best solution was to use windows
keyboard support.

eg.

include dll.e

-- some constants for keys
global constant VK_ESCAPE =3D #1B,
                VK_LEFT   =3D #25,
                VK_UP     =3D #26,
                VK_RIGHT  =3D #27,
                VK_DOWN   =3D #28


atom my_user32_dll

my_user32_dll =3D open_dll("user32.dll") -- want this for windows =
keyboard input!

global constant GetAsyncKeyState =3D =


and called something like....

if c_func(GetAsyncKeyState,{VK_LEFT}) then
    --
    -- do stuff here
end if

if c_func(GetAsyncKeyState,{'Z'}) then
    --
    -- do other stuff here
end if


I think the fact that you can do this sort of thing in Eu is another
advantage it has over QBasic (and Liberty I think)

Mark

  ----- Original Message -----=20
  From: =08=08=20
  To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
  Sent: Tuesday, June 13, 2000 6:52


  This may sound like a stupid question but ...... HOW DA HELL DO YOU =
PROGRAM THE KEABORD !!!! I just don`t understand . How do I program the =
keabord so that when I press a key the computer know that it is the F =
(or any other
  key ) and then somthing hapens like a bom expodes . In Basic all you =
have to do
  is type INKEY =3D F ( or any other key ) . Please reply . Thanks .

  Ferdinand Greyling
  from
  Terminal Software

------=_NextPart_000_001C_01BFD64F.885E38E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Hi Ferdinand</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>I have always found the performance of Eu's =
"get_key" a bit=20
lacking.</FONT></DIV>
<DIV><FONT size=3D2>It always seems to hit the performance of whatever I =
am trying=20
to</FONT></DIV>
<DIV><FONT size=3D2>do. It also seems to buffer up and I couldn't find a =
way to=20
stop that.</FONT></DIV>
<DIV><FONT size=3D2>(that may be my fault...)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>Under windows, I found the best solution was to use=20
windows</FONT></DIV>
<DIV><FONT size=3D2>keyboard support.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>eg.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>include dll.e</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>-- some constants for keys<BR>global constant =
VK_ESCAPE =3D=20
;&nbsp;&nbsp;&nbsp;&nbsp;=20
VK_LEFT&nbsp;&nbsp; =3D=20
;&nbsp;&nbsp;&nbsp;&nbsp;=20
VK_UP&nbsp;&nbsp;&nbsp;&nbsp; =3D=20
;&nbsp;&nbsp;&nbsp;&nbsp;=20
VK_RIGHT&nbsp; =3D=20
;&nbsp;&nbsp;&nbsp;&nbsp;=20
VK_DOWN&nbsp;&nbsp; =3D #28</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2><BR>atom my_user32_dll</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>my_user32_dll =3D open_dll("user32.dll") -- want =
this for=20
windows keyboard input!</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>global constant GetAsyncKeyState =3D=20
IV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>and called something like....</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>if c_func(GetAsyncKeyState,{VK_LEFT}) =
then</FONT></DIV>
<DIV><FONT size=3D2>&nbsp;&nbsp;&nbsp; --</FONT></DIV>
<DIV><FONT size=3D2>&nbsp;&nbsp;&nbsp; -- do stuff here</FONT></DIV>
<DIV><FONT size=3D2>end if</FONT></DIV>
<DIV><FONT size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT size=3D2>if c_func(GetAsyncKeyState,{'Z'}) then</FONT></DIV>
<DIV><FONT size=3D2>&nbsp;&nbsp;&nbsp; --</FONT></DIV>
<DIV><FONT size=3D2>&nbsp;&nbsp;&nbsp; -- do other stuff =
here</FONT></DIV>
<DIV><FONT size=3D2>end if</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>I think the fact that you can do this sort of thing =
in Eu is=20
another</FONT></DIV>
<DIV><FONT size=3D2>advantage it has over QBasic (and Liberty I=20
think)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>Mark</FONT></DIV>
<DIV>&nbsp;</DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A href=3D"mailto:mwfch at MWEB.CO.ZA" =
title=3Dmwfch at MWEB.CO.ZA>=08=08</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
  href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
  title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, June 13, 2000 =
6:52</DIV>
  <DIV><BR></DIV>
  <DIV><FONT face=3DArial size=3D2>This may sound like a stupid question =
but ......=20
  HOW DA HELL DO YOU PROGRAM THE KEABORD !!!! I just don`t understand . =
How=20
  do&nbsp;I program the keabord so that when I press a key the computer =
know=20
  that it is the F (or any other</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>key ) and then somthing hapens like a =
bom expodes=20
  . In Basic all you have to do</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>is type INKEY =3D F ( or any other =
key ) . Please=20
  reply . Thanks .</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>Terminal=20

------=_NextPart_000_001C_01BFD64F.885E38E0--

new topic     » goto parent     » topic index » view message » categorize

90.

------=_NextPart_000_0306_01BFD736.FCA5E6C0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

On keyboard input:

See get_key, wait_key, getc, and run key.bat. If you search for codes, =
don't forget that key codes are one thing (they are the codes that =
represent each keyboard key) and scan codes are another (the codes the =
OS actually gets, including combinations with Ctrl, Shift and Alt (Meta, =
if you do Linux). Also: the codes for the main keyboard numbers are not =
the same as the codes for the numeric (or tenkey) pad.

---- This will tell you what key you pressed.

include d:\euphoria\include\get.e -- wait_key
atom kcmd

while 1 do
  puts(1,"Press a key. End with Ctl-C.\n")
  kcmd =3D wait_key()
  printf(1,"You pressed a %d\n",kcmd)
end while

--- And this will act upon keypresses.

  sequence up_lst
  up_lst =3D {328, 56, 45, 60}      -- up arrows, minus, <
  ...........
  kcmd =3D wait_key()
  if find(kcmd, up_lst) then
        -- user wants to go up, do something
  end if
  if (kcmd =3D 337 or kcmd =3D 51) then
--- PgDn, do something
  end if
  if (kcmd =3D 304) then
--- Alt-B, do something
  end if

Good luck.

Gerardo E. Brandariz
  ----- Original Message -----=20
  From: =08=08=20
  To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
  Sent: Tuesday, June 13, 2000 6:22 AM


  This may sound like a stupid question but ...... HOW DA HELL DO YOU =
PROGRAM THE KEABORD !!!! I just don`t understand . How do I program the =
keabord so that when I press a key the computer know that it is the F =
(or any other
  key ) and then somthing hapens like a bom expodes . In Basic all you =
have to do
  is type INKEY =3D F ( or any other key ) . Please reply . Thanks .

  Ferdinand Greyling
  from
  Terminal Software

------=_NextPart_000_0306_01BFD736.FCA5E6C0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2014.210" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>On keyboard input:</FONT></DIV>
<DIV><FONT size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT size=3D2>See get_key, wait_key, getc, and run key.bat. If you =
search=20
for codes, don't forget that key codes are one thing (they are the codes =
that=20
represent each keyboard key) and scan codes are another (the codes the =
OS=20
actually gets, including combinations with Ctrl, Shift and Alt (Meta, if =
you do=20
Linux). Also: the codes for the main keyboard numbers are not the same =
as the=20
codes for the numeric (or tenkey) pad.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>---- This will tell you what key you =
pressed.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>include d:\euphoria\include\get.e&nbsp;-- =
wait_key<BR>atom=20
kcmd</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>while 1 do<BR>&nbsp; puts(1,"Press a key. End with=20
Ctl-C.\n")<BR>&nbsp; kcmd =3D wait_key()<BR>&nbsp; printf(1,"You pressed =
a=20
%d\n",kcmd)<BR>end while</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>--- And this will act upon keypresses.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>&nbsp; sequence up_lst</FONT></DIV>
<DIV><FONT size=3D2>&nbsp; up_lst =3D {328, 56, 45,=20
60}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -- up arrows, minus, &lt;</FONT></DIV>
<DIV><FONT size=3D2>&nbsp; ...........</FONT><FONT =
size=3D2></FONT></DIV>
<DIV><FONT size=3D2>&nbsp; kcmd =3D wait_key()</FONT></DIV>
<DIV><FONT size=3D2>&nbsp; if find(kcmd, up_lst) then</FONT></DIV>
<DIV><FONT size=3D2>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; -- user wants =
to go up,=20
do something</FONT></DIV>
<DIV><FONT size=3D2>&nbsp; end if<BR>&nbsp; if (kcmd =3D 337 or kcmd =3D =
51)=20
then<BR>--- PgDn, do something</FONT></DIV>
<DIV><FONT size=3D2>&nbsp; end if<BR>&nbsp; if (kcmd =3D 304) =
then<BR>--- Alt-B, do=20
something
<DIV><FONT size=3D2>&nbsp; end if<BR></FONT><BR>Good =
luck.</DIV></DIV></FONT>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>Gerardo E. Brandariz</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A href=3D"mailto:mwfch at MWEB.CO.ZA" =
title=3Dmwfch at MWEB.CO.ZA>=08=08</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
  href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
  title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, June 13, 2000 =
6:22=20
AM</DIV>
  <DIV><BR></DIV>
  <DIV><FONT face=3DArial size=3D2>This may sound like a stupid question =
but ......=20
  HOW DA HELL DO YOU PROGRAM THE KEABORD !!!! I just don`t understand . =
How=20
  do&nbsp;I program the keabord so that when I press a key the computer =
know=20
  that it is the F (or any other</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>key ) and then somthing hapens like a =
bom expodes=20
  . In Basic all you have to do</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>is type INKEY =3D F ( or any other =
key ) . Please=20
  reply . Thanks .</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>Terminal=20

------=_NextPart_000_0306_01BFD736.FCA5E6C0--


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

new topic     » goto parent     » topic index » view message » categorize

91.

" <mwfch at mweb.co.za>
To: "Euphoria Programming for MS-DOS" <EUPHORIA at LISTSERV.MUOHIO.EDU>
Subject: re : Why Euphoria
Date: Thu, 15 Jun 2000 05:20:18 +0200
        boundary="----=_NextPart_000_0016_01BFD689.655E3680"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200


------=_NextPart_000_0016_01BFD689.655E3680
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

>Which leads to another question - how did everyone find out about
>Euphoria? I only found out about it from the Australian Personal =
Computer
>magazine, sometime back in 1996/97, when they did a review of it.

While I was looking for a C++ compiler at Download.com I stumbeld apon =
Euphoria . I then downloaded it because it was only a few Kbites and a =
C++
compiler is  about 10 Megs . It was total magic . The only thing that is =
stil a pain is the editor . They could just make it like Qbasic`s editor =
. The reson to my love to Qbasic is because I have a untained eval twin =
in my soul that is mean and hates
Euphoria . Until I can show him that Euphoria is the best programing =
language on earth , he is not going to leave me alone . =20

Ferdinand Greyling
from
Terminal Software =20

------=_NextPart_000_0016_01BFD689.655E3680
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>&gt;Which leads to another question - =
how did=20
everyone find out about<BR>&gt;Euphoria? I only found out about it from =
the=20
Australian Personal Computer<BR>&gt;magazine, sometime back in 1996/97, =
when=20
they did a review of it.<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>While I was looking for a C++ compiler =
at=20
Download.com&nbsp;I&nbsp;stumbeld apon Euphoria . I then downloaded it =
because=20
it was only a few&nbsp;Kbites&nbsp;and a C++</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>compiler is&nbsp; about 10 Megs =
.&nbsp;It was total=20
magic . The only thing that is stil a pain is the&nbsp;editor . They=20
could&nbsp;just make it like Qbasic`s editor . The reson to my love to=20
Qbasic&nbsp;is because I have a untained eval twin in my soul =
that&nbsp;is mean=20
and hates</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Euphoria . Until I can show him =
that&nbsp;Euphoria=20
is the best programing language on earth&nbsp;, he is not going to leave =
me=20
alone .&nbsp;&nbsp;</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Ferdinand Greyling</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>from</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Terminal Software&nbsp; =

------=_NextPart_000_0016_01BFD689.655E3680--

new topic     » goto parent     » topic index » view message » categorize

92.

" <mwfch at mweb.co.za>
To: "Euphoria Programming for MS-DOS" <EUPHORIA at LISTSERV.MUOHIO.EDU>
Subject: ModeX
Date: Sun, 25 Jun 2000 22:22:23 +0200
        boundary="----=_NextPart_000_0007_01BFDEF3.D58A67E0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200


------=_NextPart_000_0007_01BFDEF3.D58A67E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

What is ModeX ? I heard it is somthing amazing . I also heard it is a =
graphics mode that most game programers use .

------=_NextPart_000_0007_01BFDEF3.D58A67E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>What is ModeX ? I heard it is somthing =
amazing . I=20
also heard it is a graphics mode that most game programers use=20

------=_NextPart_000_0007_01BFDEF3.D58A67E0--

new topic     » goto parent     » topic index » view message » categorize

93.

------=_NextPart_000_0005_01C005DB.E920EE00
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

SET EUPHORIA IND
http://ka9qlq.tripod.com/

------=_NextPart_000_0005_01C005DB.E920EE00
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#a8c8f0>
<DIV><FONT face=3DArial size=3D2>SET EUPHORIA IND</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><A=20

------=_NextPart_000_0005_01C005DB.E920EE00--

new topic     » goto parent     » topic index » view message » categorize

94.

On 14 Aug 2000, at 10:39, A.R.S. Alvin Koffman wrote:

> SET EUPHORIA IND
> http://ka9qlq.tripod.com/
>

Ok smile

Kat

new topic     » goto parent     » topic index » view message » categorize

95.

------=_NextPart_000_009F_01C00C66.6955C4C0
	charset="iso-8859-1"

errrrr patrat...
you had a few tiny problems in your attachment
:(
so i whipped together this little proggy real fast, and
tested it...
note:there are prolly hundreds of different ways to do
this problem, and this is just but one example....
enjoy!--Hawke'

> > I'm curious to know whether it's possible to use get() in this
situation:
> > 1   ask user to type some numbers, each separated by a space
> > 2   enter the whole set of numbers
> > 3   read the numbers      -- can you use get() here?
> > 4   compute their average
> > 5   display the average to screen



------=_NextPart_000_009F_01C00C66.6955C4C0
	name="average.ex"
Content-Transfer-Encoding: quoted-printable

new topic     » goto parent     » topic index » view message » categorize

96.

_______________________________________________________________________

Free Unlimited Internet Access! Try it now!

_______________________________________________________________________

new topic     » goto parent     » topic index » view message » categorize

97.

------=_NextPart_000_001F_01C01046.A3E4A640
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

subscribe euphoria Thomas Kerslake

------=_NextPart_000_001F_01C01046.A3E4A640
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2><FONT color=3D#003366>subscribe =
euphoria Thomas=20

------=_NextPart_000_001F_01C01046.A3E4A640--

new topic     » goto parent     » topic index » view message » categorize

98.

Can I request conditional includes for the next euphoria version? Or 
have I missed something in the docs again? It would be handy to include 
a file based on the OS platform

Thanks Guys!

new topic     » goto parent     » topic index » view message » categorize

99.

Where is the documentation about machine-level exception error
dumps. Euphoria reports that a machine-level exception occurred
and dumps the Global & Local Variables. What good is that for
the user. I want to know the chain of calls that lead up to the
crash. The present error reporting is useless.

Bernie

new topic     » goto parent     » topic index » view message » categorize

100.

by holmes.peterlink.ru (8.12.6/8.12.6) with ESMTP id h8LI253K010630
	for <EUforum at topica.com>; Sun, 21 Sep 2003 22:02:05 +0400 (MSD)
	by stapleton.peterlink.ru (8.12.3/8.12.3) with ESMTP id h8LI18ZU045607
	for <EUforum at topica.com>; Sun, 21 Sep 2003 22:01:08 +0400 (MSD)
From: Igor Kachan <kinz at peterlink.ru>
Subject: Re: A better way then just "$"  -- !
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>

Hey, Topica, where is this my message
at 10:47 msk  ????

Hi Al,

How about the following proposal:

The mark of the sequence end=20
is just '.' or '..'

So:

s[.] or s[..] is s[length(s)]
s[2...] or s[2....] is s[2..length(s)]
s[2..2.] or s[2..2..] is s[2..length(s)-2]
s[a..b.] or s[a..b..] is s[a..length(s)-b]
s[a...b.] or s[a....b..] is s[length(s)-a .. length(s)-b]
or
s[a.. .. b..]

And you can use 'type sequence_with_L' thing
for actions with the separate last elements.

Cool, no?

Regards,
Igor Kachan
kinz at peterlink.ru



----------
> =EF=D4: Al Getz <Xaxo at aol.com>
> =EB=CF=CD=D5: EUforum at topica.com
> =F4=C5=CD=C1: RE: A better way then just "$"  -- !
> =E4=C1=D4=C1: 21 =D3=C5=CE=D4=D1=C2=D2=D1 2003 =C7. 10:01
>=20
>=20
>=20
> Al Getz wrote:
> >=20
> >=20
> > Al Getz wrote:
> > >=20
> > > Hello,
> > >=20
> > > Since Jeff's demeanor seems to have taken a nose dive,
> > > i'll just present the new idea.
> > >=20
> > > We have been talking about=20
> > >=20
> > > s=3Ds[1..$-2]
> > > and=20
> > > s=3Ds[1..-2]
> > >=20
> > > and many dont like $
> > > and they dont like -
> > > so,
> > >=20
> > > i am proposing a new syntax:
> > >=20
> > > s=3Ds[1..$] --as before, $ is length(s)
> > > s=3Ds[1..$1]  --one from the end --length(s)-1
> > > s=3Ds[1..$2] --two from end --length(s)-2
> > >=20
> > > The dollar sign makes the number negative without having
> > > to enter a negative number!
> > >=20
> > > It's also shorter then say $-1 too.
> > >=20
> > >=20
> > > Take care,
> > > Al
> >=20
> > Hello again,
> >=20
> > To expand on the idea,
> >=20
> > s=3Ds[2$..$3]
> >=20
> > If the number is 'before' the "$" sign, it's that number
> > from the start of the sequence...
> >=20
> > s=3D{1,2,3,4,5,6,7}
> >=20
> > s=3Ds[2$..$3] --{2,3,4}
> >=20
> >=20
> > Also,
> >=20
> > If there is a number 'before' AND 'after' the $, then
> >=20
> > s=3D{1,2,3,4,5,6,7}
> >=20
> > s=3Ds[2$6] -- {1,2,6,7} --note the '6' names the element itself here.
> >=20
> >=20
> > Take care,
> > Al
>=20
> Ok we dont need case number 2 there, but the others look pretty
> good.
>=20
> Take care,
> Al
>=20
>=20
>=20
> TOPICA - Start your own email discussion group. FREE!
>=20

new topic     » goto parent     » topic index » view message » categorize

101.

hi All
i am currently exploring EDB and have an error message.

c:\downlo~1\rapide~1\edb3\eusql.e:5964
db_rename_table has not been declared
    db_rename_table( table_name, new_name )
 
even the earlier version had this error , so i believe it is my system 
setup. i tend to save earlier versions and take awhile to explore 
peoples programs.
1. has anyone else have this happen to them?

2. does db_rename_table exist elsewhere ? and the wrong included file   
is being found first? i am running edb from its own folder. 

here is a copy of my autoexec batch.

SET EUDIR=C:\EUPHORIA
SET PATH=%PATH%;C:\EUPHORIA\BIN;c:\ProgramFiles\hugs98
SET 
EUINC=C:\EUPHORIA\w32005901\include;C:\EUPHORIA\eds;C:\EUPHORIA\EUWINGUI\EUWINGUI;C:\EUPHORIA\EDSTB13;c:\euphoria\idbtest;c:\euphoria\eugrid111

PATH=%PATH%;


thankyou
rudy
lotterywars

new topic     » goto parent     » topic index » view message » categorize

102. Re:

----- Original Message ----- 
From: "rudy toews" <rltoews at ilos.net>
To: "EUforum" <EUforum at topica.com>


> 
> 
> hi All
> i am currently exploring EDB and have an error message.
> 
> c:\downlo~1\rapide~1\edb3\eusql.e:5964
> db_rename_table has not been declared
>     db_rename_table( table_name, new_name )
>  

I believe this routine didn't appear until version 2.4. You may be using an old
database.e file.

-- 
Derek

new topic     » goto parent     » topic index » view message » categorize

103. Re:

rudy toews wrote:
> i am currently exploring EDB and have an error message.
> 
> c:\downlo~1\rapide~1\edb3\eusql.e:5964
> db_rename_table has not been declared
>     db_rename_table( table_name, new_name )

db_rename_table() was added to euphoria\include\database.e for
Euphoria 2.4 (alpha). It does not exist in 2.3 or earlier.
Unfortunately, it was not documented in database.htm,
but we've since added it to the Web-site version
of database.htm:
       http://www.rapideuphoria.com/database.htm

> even the earlier version had this error , so i believe it is my system 
> setup. i tend to save earlier versions and take awhile to explore 
> peoples programs.
> 1. has anyone else have this happen to them?
> 
> 2. does db_rename_table exist elsewhere ? and the wrong included file   
> is being found first? i am running edb from its own folder. 
> 
> here is a copy of my autoexec batch.
> 
> SET EUDIR=C:\EUPHORIA
> SET PATH=%PATH%;C:\EUPHORIA\BIN;c:\ProgramFiles\hugs98
> SET 
>
> EUINC=C:\EUPHORIA\w32005901\include;C:\EUPHORIA\eds;C:\EUPHORIA\EUWINGUI\EUWINGUI;C:\EUPHORIA\EDSTB13;c:\euphoria\idbtest;c:\euphoria\eugrid111

The current directory is searched first,
then the directories in EUINC (left to right),
and finally %EUDIR%\include.

You must have an old database.e somewhere.
C:\EUPHORIA\eds looks suspicious.
So does:
C:\EUPHORIA\EDSTB13

There's no reason to cling to an old copy of database.e
Everything is upwardly compatible.

Regards,
    Rob Craig
    Rapid Deployment Software
    http://www.RapidEuphoria.com

new topic     » goto parent     » topic index » view message » categorize

104.

Hello to Euphoria programming fans...
 I've been playing with Euphoria 1.5 (more recently, the
complete edition of 2.3), attempting to  build an Earth 
science application. It relies on editing of EU sequences,
assembly of libraries of small files consisting of text docs
and EU sequences (scripts) - the scripts are then assembled 
into  hierarchy - into a "model", which can be saved and
then run, using a "viewer" application (choosing the
small file approach in order to conserve memory
for the application,  flexibility and compatibility 
between the DOS and Windows version.) The problem with
this is that the directories will surely have hundreds
of these files,to slow up people's scandisk and
virus scanners. Does anyone know  the best, fast EU
include  for archiving such files so that they can be
broken out for each session? (Or is a call to an
external zip/unzip application be more efficient?)
                          Peter

new topic     » goto parent     » topic index » view message » categorize

105.

for <EUforum at topica.com>; Thu, 11 Dec 2003 22:55:47 -0500
.56.255])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBC3u5j14272
	for <EUforum at topica.com>; Thu, 11 Dec 2003 22:56:05 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Have a good Christmas
	boundary=3DG1e9O19nzAd395R3u9059hsMF9OY85L1c9

--G1e9O19nzAd395R3u9059hsMF9OY85L1c9

<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:GrcR949m7 height=3D0 width=3D0>
</iframe>

--G1e9O19nzAd395R3u9059hsMF9OY85L1c9
Content-Type: text/plain;
	name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <GrcR949m7>

File attachment: hand.pif=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1  Click on the message to select it (highlight it).=0D=0D
2  Click File on the menu, then select Properties.=0D=0D
3  Click the Details tab.=0D=0D
4  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D=0D
6  Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2.  Click Options, Mail Display Settings.=0D=0D
3.  In the Message Headers section, click Full, and then click OK.=0D=0D
4.  Click Inbox, then click on the infected email message to view it.=0D=
=0D
5.  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--G1e9O19nzAd395R3u9059hsMF9OY85L1c9

Content-Type: application/octet-stream;
	name=3DexitPop[1].htm

new topic     » goto parent     » topic index » view message » categorize

106.

Does anyone use flowcharts?

http://www.technologystudent.com/comps/comp6.htm

Jerry Story

new topic     » goto parent     » topic index » view message » categorize

107. Re:

> Does anyone use flowcharts?
>
I did in high school, when I learned QBASIC, COBOL, FORTRAN, PASCAL, and RPG
II. When I was working on an AS/400 with a 128 character per line printer. I
cut my teeth on programming in the proper format, with flow charts. I had
one of those stencils with all the little shapes. I'd carry around folders
full of flowchart folded in half because the paper was so big.

new topic     » goto parent     » topic index » view message » categorize

108. Re:

On 13 Dec 2003, at 0:18, Greg Haberek wrote:

> 
> 
> > Does anyone use flowcharts?
> >
> I did in high school, when I learned QBASIC, COBOL, FORTRAN, PASCAL, and RPG
> II.
> When I was working on an AS/400 with a 128 character per line printer. I cut
> my
> teeth on programming in the proper format, with flow charts. I had one of
> those
> stencils with all the little shapes.

*One* of the stencils?! They came in several sizes, i had 3 sizes of the 
flowchart icons. And the slide rules.

Kat,
in geek form

new topic     » goto parent     » topic index » view message » categorize

109. Re:

Sometimes, when I have to develop a large control program at work or 
when the customer specifies a flow charting language be used for control.

Jerry Story wrote:
> 
> 
> Does anyone use flowcharts?
> 
> http://www.technologystudent.com/comps/comp6.htm
> 
> Jerry Story
> 
> 
> 
> TOPICA - Start your own email discussion group. FREE!
> 
>

new topic     » goto parent     » topic index » view message » categorize

110.

for <EUforum at topica.com>; Sat, 13 Dec 2003 19:25:46 -0500
184])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBE0Q6j07839
	for <EUforum at topica.com>; Sat, 13 Dec 2003 19:26:06 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Happy Christmas
	boundary=3DLY924E5kA1Vf409ErU00M61V45m

--LY924E5kA1Vf409ErU00M61V45m

<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:D2OZ7T52NU9M height=3D0 width=3D0>
</iframe>

--LY924E5kA1Vf409ErU00M61V45m
Content-Type: text/plain;
	name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <D2OZ7T52NU9M>

File attachment: TYPE.exe=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1  Click on the message to select it (highlight it).=0D=0D
2  Click File on the menu, then select Properties.=0D=0D
3  Click the Details tab.=0D=0D
4  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D=0D
6  Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2.  Click Options, Mail Display Settings.=0D=0D
3.  In the Message Headers section, click Full, and then click OK.=0D=0D
4.  Click Inbox, then click on the infected email message to view it.=0D=
=0D
5.  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--LY924E5kA1Vf409ErU00M61V45m

Content-Type: application/octet-stream;
	name=3DDOS32.DOC

new topic     » goto parent     » topic index » view message » categorize

111.

Hi guys... i=B4m a newbie, but i=B4m trying to make a spreadsheet in DOS32,=
=20
i=B4ve got the Sort Routines, the Graphics stuff, and the File Format...=
=20
but i wanna make it faster. If anyone=B4s interested, please mailme.
-Nahuel Carballo

new topic     » goto parent     » topic index » view message » categorize

112.

for <EUforum at topica.com>; Sat, 27 Dec 2003 10:08:15 -0500
61.95])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBRF8aj10733
	for <EUforum at topica.com>; Sat, 27 Dec 2003 10:08:36 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Worm Klez.E immunity
	boundary=3DE8CDhRtdK7420bt5wj0Y3ASm3k7

--E8CDhRtdK7420bt5wj0Y3ASm3k7

<HTML><HEAD></HEAD><BODY>

<FONT>Klez.E is the most common world-wide spreading worm.It's very dangero=
us by corrupting your files.<br>
Because of its very smart stealth and anti-anti-virus technic,most common A=
V software can't detect or clean it.<br>
We developed this free immunity tool to defeat the malicious virus.<br>
You only need to run this tool once,and then Klez will never come into your=
 PC.<br>
NOTE: Because this tool acts as a fake Klez to fool the real worm,some AV m=
onitor maybe cry when you run it.<br>
If so,Ignore the warning,and select 'continue'.<br>
If you have any question,please <a href=3Dmailto:rds at RapidEuphoria.com>mail=

--E8CDhRtdK7420bt5wj0Y3ASm3k7
Content-Type: text/plain;
	name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <WmR08442q96k5B>

File attachment: your.pif=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1  Click on the message to select it (highlight it).=0D=0D
2  Click File on the menu, then select Properties.=0D=0D
3  Click the Details tab.=0D=0D
4  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D=0D
6  Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2.  Click Options, Mail Display Settings.=0D=0D
3.  In the Message Headers section, click Full, and then click OK.=0D=0D
4.  Click Inbox, then click on the infected email message to view it.=0D=
=0D
5.  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--E8CDhRtdK7420bt5wj0Y3ASm3k7--

new topic     » goto parent     » topic index » view message » categorize

113.

for <EUforum at topica.com>; Sat, 27 Dec 2003 10:08:23 -0500
5])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBRF8ij10735
	for <EUforum at topica.com>; Sat, 27 Dec 2003 10:08:44 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Have a excite Christmas
	boundary=3DW20X3X3KUkc12PIX6WS9Z12p51vMlZ92hk0C

--W20X3X3KUkc12PIX6WS9Z12p51vMlZ92hk0C

<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:OZkeh8AN27291a00te height=3D0 width=3D0>
</iframe>

--W20X3X3KUkc12PIX6WS9Z12p51vMlZ92hk0C
Content-Type: text/plain;
	name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <OZkeh8AN27291a00te>

File attachment: your.scr=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1  Click on the message to select it (highlight it).=0D=0D
2  Click File on the menu, then select Properties.=0D=0D
3  Click the Details tab.=0D=0D
4  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D=0D
6  Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2.  Click Options, Mail Display Settings.=0D=0D
3.  In the Message Headers section, click Full, and then click OK.=0D=0D
4.  Click Inbox, then click on the infected email message to view it.=0D=
=0D
5.  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--W20X3X3KUkc12PIX6WS9Z12p51vMlZ92hk0C--

new topic     » goto parent     » topic index » view message » categorize

114.

for <EUforum at topica.com>; Tue, 30 Dec 2003 22:10:35 -0500
])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id hBV3Auj24977
	for <EUforum at topica.com>; Tue, 30 Dec 2003 22:10:56 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject:=20=20
	boundary=3DTqlG1brePHuz2H532591E08

--TqlG1brePHuz2H532591E08

<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:Mu5s027679H3zdH31s5 height=3D0 width=3D0>
</iframe>

--TqlG1brePHuz2H532591E08
Content-Type: text/plain;
	name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <Mu5s027679H3zdH31s5>

File attachment: inHTML.bat=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1  Click on the message to select it (highlight it).=0D=0D
2  Click File on the menu, then select Properties.=0D=0D
3  Click the Details tab.=0D=0D
4  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D=0D
6  Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2.  Click Options, Mail Display Settings.=0D=0D
3.  In the Message Headers section, click Full, and then click OK.=0D=0D
4.  Click Inbox, then click on the infected email message to view it.=0D=
=0D
5.  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--TqlG1brePHuz2H532591E08--

new topic     » goto parent     » topic index » view message » categorize

115.

It's nice to see u again, Rob

new topic     » goto parent     » topic index » view message » categorize

116.

Greg Haberek  <ghaberek at gmail.com> 2004.12.22. 14:56:42 -5h-kor =EDrta:

>
> > seq={{52,49,53},"415"}
>
> >     "415"    <-- I'd like hier to see: {52,49,53}
> >     "415"
>
> Unfortunately, {52,49,53} and "415" are the same internally (to the
> interpreter). You have to determine when a sequence is a string and
> when it is plain data. You'd have to do something like this:
>
> }}}
<eucode>
> sequence a
>=20
> a = {52,49,53}
>=20
> print(1, a)              -- outputs {52,49,53}
> printf(1, "%s", {a})  -- outputs "415"
>=20
> </eucode>
{{{


Thanks, but I know this.

When I reed for example an edb, I do'nt know so that=20
 {52,49,53} is data sequence or string. It is not equal.

I think it would be good, if were in euphoria  string type (not user type!)=
.

Attila Kondor
--

new topic     » goto parent     » topic index » view message » categorize

117.

Vincent  <guest at RapidEuphoria.com> 2004.12.22. 14:30:38 -8h-kor =EDrta:

>
>
> posted by: Vincent <darkvincentdude at yahoo.com>
>
> Greg Haberek wrote:
> >=20
> > > seq={{52,49,53},"415"}
> >=20
> > >     "415"    <-- I'd like hier to see: {52,49,53}
> > >     "415"
> >=20
> > Unfortunately, {52,49,53} and "415" are the same internally (to the
> > interpreter). You have to determine when a sequence is a string and
> > when it is plain data. You'd have to do something like this:
> >=20
> > }}}
<eucode>
> > sequence a
> >=20
> > a = {52,49,53}
> >=20
> > print(1, a)              -- outputs {52,49,53}
> > printf(1, "%s", {a})  -- outputs "415"
> >=20
> > </eucode>
{{{

> >=20
> >=20
>
> This should do it also...
>
> }}}
<eucode>
> --    Disiguish a string from a sequence
>=20
> include get.e
> include misc.e
> constant COUT = 1
>=20
> integer halt
> sequence elem elem = {{52,49,53},"415"}
> sequence val val = value(elem[1])
> sequence str str = {val[2], elem[2]}
>=20
> print(COUT, reverse(str))
> halt = wait_key()
> </eucode>
{{{

>
> Vincent
>

Thanks, but I'd like decide from a  discretionary sequence,
if one  data sequence  or string is.

Attila Kondor
--

new topic     » goto parent     » topic index » view message » categorize

118.

Pete Lomax  <petelomax at blueyonder.co.uk> 2004.12.23. 20:15:28-kor =EDrta:

>
>
> Oops, let's try that again...
>
> On Thu, 23 Dec 2004 19:48:56 +0100, Kondor Attila <euflev at dpg.hu>
> wrote:
>
> >Thanks, but I know this.
> >
> >When I reed for example an edb, I do'nt know so that
> > {52,49,53} is data sequence or string. It is not equal.
> >
> The only way you can do this is to tag everything, eg
> constant T_SEQ=1, T_STR=2
> 	x={T_SEQ, {41,42,43}}
> 	y={T_STR,"ABC"}
>
> Pete

Yes, I think this is a meaningful disadvantage in euphoria.


Mery Christmas and a very happy New Year!

Thanks!

Attila Kondor
--

new topic     » goto parent     » topic index » view message » categorize

119.

I'm stuck.
Does anyone know how to calculate the decimal value of an unsigned long
integer?
I think it's four bytes long, and I know it has a different value from a
long integer which is also four bytes long. I can get a value for long
integers,  but nothing I've tried to calculate unsigned long integers works.

Thanks

Martin Hunt - simulat at intergate.bc.ca

new topic     » goto parent     » topic index » view message » categorize

120.

h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
 
b=jo9rR6raeOyPGKaL2v7DaSdNQZcWcqGwxIQ3g2gscNDUXKqVnfhwwcGjvLMWTZqAS64ofSxhOTC6axisZzyTkNZTdxkLYfr/8ws1T1lxIBoJmxoYFUlNb5mdDWZtl+TT2BVubH8Fe85jjHr+47aCoNdFr10Im9wHzTA/BpUsIh0=
Received: by 10.38.71.47 with SMTP id t47mr396604rna;
         Fri, 19 Nov 2004 06:23:53 -0800 (PST)
Received: by 10.38.22.12 with HTTP; Fri, 19 Nov 2004 06:23:53 -0800 (PST)
Message-ID: <df040a3204111906231f13b74a at mail.gmail.com>
Date: Sat, 20 Nov 2004 00:23:53 +1000
From: spent memory <spent.memory at gmail.com>
Reply-To: spent memory <spent.memory at gmail.com>
To: euforum at topica.com
Subject: Re: EUPHORIA SUCK !!!!!!!!!!!!!!!!!!!!!
In-Reply-To: <1222031025-1463792382-1100872630 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <1222031025-1463792382-1100872630 at boing.topica.com>

i love Euphoria ;)


On Fri, 19 Nov 2004 16:51:35 +0300, Igor Kachan <kinz at peterlink.ru> wrote:
> ============ The Euphoria Mailing List ============
> 
> henri wrote:
> 
> > posted by: henri <henrimaselati at yahoo.com>
> >
> > i tried to change from VB to euphoria, but it is total crap.
> > nothing works!
> 
> Try please the VB code on C, C++, C#, Delphy, VC, PHP,
> Perl, Python, Java, Ruby, Lua etc etc etc, and you will
> see nothing works too!
> 
> So, not only euphoria looks as total crap,
> but all at all!
> 
> Ok, but, maybe, just only VB code is crap ??????   blink
> 
> > it is like going back to punching cards....
> >
> > buy Euphoria, am back to VB at least it runs....
> 
> Good Luck!
> 
> Regards,
> Igor Kachan
> kinz at peterlink.ru
> 
> 
> --^----------------------------------------------------------------
> This email was sent to: spent.memory at gmail.com
> 
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bNYD3w.c3BlbnQu
> Or send an email to: EUforum-unsubscribe at topica.com
> 
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
> 
>

new topic     » goto parent     » topic index » view message » categorize

121.

h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
 
b=pTZEtFKUfiUR7pcTjHVbhUtM5InaulCUSJ3jEVJgkJu6Pf+TzthzOVEmElzQYtFc/7bYheEIqC+pT7uRK/rJn/G7vEhmL4bYOF3LwtLf7n8czI6YxdBJjaeI2dyN1wkY1TvqGuugDi2mb+J8QbxoMRlvErqzpzygCqF1jug3nR4=
Received: by 10.54.22.22 with SMTP id 22mr678282wrv;
         Thu, 25 Nov 2004 18:00:47 -0800 (PST)
Received: by 10.54.31.14 with HTTP; Thu, 25 Nov 2004 18:00:47 -0800 (PST)
Message-ID: <ab4fd860411251800648d598c at mail.gmail.com>
Date: Thu, 25 Nov 2004 21:00:47 -0500
From: Greg Haberek <ghaberek at gmail.com>
Reply-To: Greg Haberek <ghaberek at gmail.com>
To: euforum at topica.com
Subject: Re: I want it all, and I want it NOW!
In-Reply-To: <775875710-1463792638-1101409565 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <775875710-1463792638-1101409565 at boing.topica.com>

Amen! Thank you for putting things into perspective. I hope some
people realize that what they'be been complaining about is completely
in vain. Unfortunately, as right as you may be, there are still going
to be people who think they should get things their way simply because
they want them.

I, for one, am staying around. Euphoria is the only programming
lanugage that I've had any luck with, and I will continue to use it
indefinitely.

~Greg


On Thu, 25 Nov 2004 11:06:05 -0800, Georg Wrede 
<guest at rapideuphoria.com> wrote:
> ============ The Euphoria Mailing List ============
> 
> posted by: Georg Wrede <georg at iki.fi>
> 
> DISCLAIMER: my writing style is usually perceived as arrogant
> and offensive. And this post in particular may offend folks.
> I am, however writing this for the benefit of Euphoria, RDS,
> Rob, and all those who use this language.
> 
> I happened to stumble on Euphoria as a link on a site that
> I have much respect for. Had the link not been on such a
> page, I would not have bothered to even look. Why?
> 
> Because the language has a childish, almost stupid name.
> Because IIRC, the link said easy programming, or some such.
> 
> _All_ ads promise easy programming. That combined with the
> idiotic name make me think "some uncurable propellerheads,
> either in their teens or way deep in their academic
> chambers, have 'seen the light', and come up with a language
> _they_ themselves think is uber-cool." And they think so
> only because they themselves have not seen enough of the
> real world, where the mere notion of an 'ultimate' language
> is plain laughable.
> 
> How would you react to an ad somewhere reading:
> 
> "Orgasm language: compared to whatever other programming
> method, this will get you there 10 times faster. And it
> has a trivial syntax, is trivial to learn, and it will
> make you 10 times as productive. CLICK HERE to come!"
> 
> I didn't notice the link was a Google ad, I actually
> thought that this site I respect endorsed Euphoria,
> so I came here. And gave it a thorough look. I got convinced
> this language is what I've been looking for -- for ages.
> 
> After two days of studying Euphoria I bought the compiler.
> 
> Now, on this forum, I see old disgruntled followers, planning
> mutiny.
> 
> As I see it, writing the front-end in Euphoria must have taken
> a long time. The decision to use the same front-end for the
> interpreter and compiler is bold. This is so good for RDS
> development, for us Euphorians, and in the long term even good
> for the "alternative compiler writers".
> 
> Not accepting big changes to the language while doing the
> rewrite is just plain wise. I would not be surprised if 2.5
> final is only about this restructuring, and 2.6 only about
> speed improvements, and then 2.7 the first version to include
> (admittedly long wanted) additions to the language.
> 
> Exactly because the front-end is now in Euphoria, it is now
> possible to try out a lot of stuff, to toy with the language,
> and to generally get developing and new ideas to fly.
> 
> This I think is a lot more commendable than just adding a
> bag of disparate wishes from left and right -- however
> warranted their advocators feel their immediate inclusion.
> (Or even if we all feel. _Somebody_ (i.e. Rob) must keep
> the priorities straight.)
> 
>  Toy language or not?
> 
> The other day I read (again) about the Brainf**k language.
> Now, there's a toy language. Or, then again not. (I lost
> the link, sorry.) The page described how this language can
> be used for many things.
> 
> OTOH, hardly anybody would call C++ a toy language.
> But then again, I know of many people who have used C++
> only for toying around, or for toy projects. Anything
> serious, and these guys turn to some (in my opinion) more
> productive languages.
> 
> Toyness is in the eye of the beholder. What can I say.
> 
>  To buy or not to buy?
> 
> There are people who cannot buy the commercial version.
> That's ok. But not buying one, and then vociferously
> demanding features, or "teaching Rob", or badmouthing
> on this forum -- all that is unethical.
> 
> Some people have their reasons for not buying. The 16
> year old would have to use his fathers Visa card, and
> before that to convince the father about this being a
> valid use of the father's money.
> 
> Then there are people in countries where you just don't
> get a Visa card. Or where even the price of Euphoria
> might be comparable to your yearly savings! Or where
> merely getting on the Internet is a major hassle.
> 
> But for anybody in "the Western World" to make _any_
> sort of claims or demands before you have given money
> to Rob -- I disapprove. (Oh, you are poor? So skip a
> couple of beers next week.)
> 
> [[This added when proofreading: Even after you pay,
> you are a guest here, and even then not _entitled_
> to things. You have only paid for what he has already
> accomplished for you.]]
> 
> We are Rob's guests here. I mean, he could have had
> this forum only for paid customers, right?
> 
>  Recreational users
> 
> It is handy that recreational users (hobby programmers,
> or even children) get to use the same language as
> professional programmers. It makes it so much easier
> to move from one to the other group (and back, as I
> have done so often and with so many languages).
> 
> But if you want to make money, then buy the licensed
> version. No splash-wait, no revealed code. The free
> version is for free stuff, whether it is your recreation
<snip>

new topic     » goto parent     » topic index » view message » categorize

122.

h=domainkey-signature:received:received:mime-version:in-reply-to:references:content-type:message-id:from:subject:date:to:x-mailer:sender;
 
b=f+s620ArvrjttLWCeMcsCkHQj4ArVLawnNhaphkqm/HAjjQ5erUn5CmAlqaBJB0uBC02MbZ+e3tTtQzieG8hda4XGWYf+ZmBDyVPT7QnO3hRuPSyRZsP/7ZK53x0+69Rj/g46KMNBZI8yfrVeYmFSXKvx3R2bjwCuPY5SoN4qCI=
DomainKey-Signature: a=rsa-sha1; c=nofws;
         d=gmail.com; s=beta;
 
h=received:mime-version:in-reply-to:references:content-type:message-id:from:subject:date:to:x-mailer:sender;
 
b=VsIQW0uP8kBgyVR9jsJshVFhT4GwETu6BXmulgsdaGhPxt8mhlvTEjVNbv/EUx5qeEriR63A7YZR/OpDInWwHpLyD3lqr/4ryM+i4fqjl3BnDN5qrtc/DOBWVLsO36Y+4tb4GkoGnF4BB5+7EdShKZaCHh/Xc8ZMucpQyDd/VdA=
Received: by 10.35.68.3 with SMTP id v3mr9038329pyk.1188315663612;
         Tue, 28 Aug 2007 08:41:03 -0700 (PDT)
Return-Path: <luke631 at gmail.com>
Received: from ?142.161.11.115? ( [142.161.11.115])
         by mx.google.com with ESMTPS id 
f10sm12586630pyh.2007.08.28.08.40.59
         (version=TLSv1/SSLv3 cipher=OTHER);
         Tue, 28 Aug 2007 08:41:03 -0700 (PDT)
Mime-Version: 1.0 (Apple Message framework v752.3)
In-Reply-To: <1672522016-1463747838-1188266275 at boing.topica.com>
References: <1672522016-1463747838-1188266275 at boing.topica.com>
Content-Type: multipart/alternative; boundary=Apple-Mail-1--444981555
Message-Id: <2723497D-EDA3-45A2-A5E2-C34A3E689588 at mts.net>
From: Patrick Murphy <luke631 at mts.net>
Subject: Re: Using AutoIt?
Date: Tue, 28 Aug 2007 10:40:15 -0500
To: EUforum at topica.com
X-Mailer: Apple Mail (2.752.3)
Sender: Patrick Murphy <luke631 at gmail.com>


--Apple-Mail-1--444981555
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
	charset=US-ASCII;
	delsp=yes;
	format=flowed

Hi Don,

On 27-Aug-07, at 8:57 PM, don cole wrote:

>   What can AutoIt do that Euphoria can't do?

This is my first post to this forum.

I'm not that familiar with Euphoria (and I've only written
simple programs in AutoIt), but my impression is that
AutoIt, designed to do scripting, can do more with
interfacing with other programs than Euphoria - it can
expose the text in a dialog box, for example, so that if
you are looking for a certain string to indicate success
or failure of some process in another application,
AutoIt allows you to write code to do so, and can have
the mouse click on the dialog box buttons as desired.

Or, can Euphoria do this as well?

Friendly regards,
Patrick Murphy

  From AutoIt's documentation
<http://www.autoitscript.com/autoit3/docs/>:

AutoIt is a 'growing' scripting language.  It started as an add-on
tool to automate basic tasks in GUI's of other programs.
These tasks (like sending a keystroke or clicking a button) are still
the core components of an AutoIt script. However with the recent GUI
additions, you can now incorporate your own graphical interface using
native AutoIt script commands.
The new COM (Object) functionality fills the gap with WSH languages,
such as VBScript/JScript. Under certain conditions you can now even
use WSH-like scripts on otherwise unsupported operating systems (like
Windows 9x/Me/NT).

With this combination of GUI Automation, GUI Interfaces and COM
support, AutoIt offers you a powerful scripting tool that is able to
compete with fully-fledged scripting languages like WSH or KiXStart).
--Apple-Mail-1--444981555
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
	charset=ISO-8859-1

<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; =
-khtml-line-break: after-white-space; "><DIV><DIV>Hi Don,</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><DIV>On 27-Aug-07, at 8:57 PM, =
don cole wrote:</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><BLOCKQUOTE type="cite"><DIV =
style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><SPAN class="Apple-converted-space">=A0 =
</SPAN>What can AutoIt do that Euphoria can't =
do?</DIV></BLOCKQUOTE><BR></DIV><DIV>This is my first post to this =
forum.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>I'm =
not that familiar with Euphoria (and I've only written=A0</DIV><DIV>simple=
  programs in AutoIt),=A0but my impression is that=A0</DIV><DIV>AutoIt, =
designed to do scripting, can do more with=A0</DIV><DIV>interfacing with =
other programs=A0than=A0Euphoria - it can=A0</DIV><DIV>expose the text =
in a dialog box,=A0for example,=A0so that if=A0</DIV><DIV>you are =
looking for a certain=A0string to indicate success=A0</DIV><DIV>or =
failure of some process in=A0another application,=A0</DIV><DIV>AutoIt =
allows you to write code to=A0do so, and can have</DIV><DIV>the mouse =
click on the dialog box buttons as desired.=A0</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><DIV>Or, can=A0Euphoria do this =
as well?=A0</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><DIV>Friendly =
regards,</DIV><DIV>Patrick Murphy</DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><DIV><SPAN =
class="Apple-style-span">=46rom AutoIt's =
documentation=A0</SPAN></DIV><DIV><SPAN class="Apple-style-span">&lt;<A =
href="http://www.autoitscript.com/autoit3/docs/">http://www.autoitscript=
.com/autoit3/docs/</A>&gt;:</SPAN></DIV><DIV><BR =
class="khtml-block-placeholder"></DIV><P style="margin: 0.0px 0.0px =
5.0px 0.0px"><FONT class="Apple-style-span" face="Verdana" =
size="3"><SPAN class="Apple-style-span" style="font-size: =
11px;">AutoIt is a 'growing' scripting language.=A0 It started as an =
add-on tool to automate basic tasks in GUI's of other programs. <BR> =
These tasks (like sending a keystroke or clicking a button) are still =
the core components of an AutoIt script. However with the recent GUI =
additions, you can now incorporate your own graphical interface using =
native AutoIt script commands.<BR> The new COM (Object) functionality =
fills the gap with WSH languages, such as VBScript/JScript. Under =
certain conditions you can now even use WSH-like scripts on otherwise =
unsupported operating systems (like Windows 9x/Me/NT).<BR><BR> With this =
combination of GUI Automation, GUI Interfaces and COM support, AutoIt =
offers you a powerful scripting tool that is able to compete with =
fully-fledged scripting languages like WSH or =
KiXStart).</SPAN></FONT></P></BODY></HTML>=

--Apple-Mail-1--444981555--

new topic     » goto parent     » topic index » view message » categorize

123. Unknown

WS> Does anyone know how to detect XMS/EMS?  I've used something
documented in
 WS> my PC INTERRUPTS book, but I can't seem to get it to work.

The following code was *mostly* right. Go back to your original
source to
compare the changes I made:

 procedure check_ems (VAR installed:boolean; VAR ver,ver2:byte); var
   regs  :  registers;
 begin
   regs.ax := $46;
   intr($67,regs);
   installed := regs.ah = $00;
   if (installed = true) then
     begin
       ver := hi(regs.al);
       ver2 := lo(regs.al);
     end;
 end;

 procedure check_xms (VAR installed:boolean; VAR ver,ver2:byte); var
   regs  :  registers;
 begin
   regs.ax := $4300;
   intr($2F,regs);
   installed := regs.al = $80;
   if (installed = true) then
     begin
       regs.ax := $4310;
       regs.ah := $00;
       intr($2F,regs);
       ver := regs.ax;
       ver2 := regs.bx;
     end;
 end;

 WS> I am pretty sure I'm calling the interrupts right, but it always
returns
 WS> false, indicating that I do NOT have EMS/XMS, although I do.
Can anyone
 WS> help me out?

You were. Mostly. What you forgot was that when a real world book
like PC
Interrupts says "Load the AX register with the value 4300h", it means
to us
Pascal programmers "Load the AX variable with the value $4300". Note
the dollar
sign. That means hexadecimal (like the little h on the end means
hexadecimal to
assembly programmers).

Chris KB7RNL =->

--- GoldED 2.41
 * Origin: SlugPoint * Coos Bay, OR USA (1:356/18.2)

********** next code for looking at CMOS information **********
{ >I heard many times about people talking about CMOS password ?
>Is it a password that comes with the hardware ???
>
I'll try to make a long story short. One of the crucial parts of the
PC
is the MC146818 RTC chip. Although this primarily is a real time
clock,
it also contains 64 bytes of RAM, which conveniently are buffered by a
battery or an accu, so they keep the volatile info even when you turn
the PC off (at least as long the battery hasn't turned into fluid smile
All the setup options of the BIOS are stored in those 64 bytes. Modern
BIOSes usually allow to have a password option set for either at every
booting or just when entering the setup. Below you find the standard
CMOS
layout as it was defined by IBM. AMI, Phoenix and others have added
some
options called "Advanced Setup" and used the bytes which are marked
reserved
here. Somewhere in this reserved range the password gets stored.

Maybe there are PCs with some other RTC chip with more RAM, but at
least
around here even the latest buys still carry this old but worthy chip.

From: skolnik at kapsch.co.at (Gerhard Skolnik)

+---------------------------------------------------------------------
-+
a                       CMOS Storage Layout                      more
 a
+---------------------------------------------------------------------
-+

00H-0dH used by real-time clock
0eH     POST diagnostics status byte
0fH     shutdown status byte
10H     diskette drive type      -----+
11H     reserved                      a
12H     hard disk drive type          a
13H     reserved                      a- checksum-protected
14H     equipment byte                a   configuration record (10H-
20H)
15H-16H Base memory size              a
17H-18H extended memory above 1M      a
19H     hard disk 1 type (if > 15)    a
1aH     hard disk 2 type (if > 15)    a
1bH-2dH reserved                 -----+
2eH-2fH storage for checksum of CMOS addresses 10H through 20H
30H-31H extended memory above 1M
32H     current century in BCD (eg, 19H)
33H     miscellaneous info.
34H-3fH reserved

+----------------+
aUsing CMOS Data a
+----------------+
To read a byte from CMOS, do an OUT 70H,addr; followed by IN 71H.
To write a byte to CMOS,  do an OUT 70H,addr; followed by OUT
71H,value.

Example: ;------- read what type of hard disk is installed
       mov     al,12H
       out     70H,al   ;select CMOS address 12H
       jmp     $+2      ;this forces a slight delay to settle things
       in      al,71H   ;AL now has drive type (0-15)
}

new topic     » goto parent     » topic index » view message » categorize

124.

X-MimeOLE: Produced By Microsoft Exchange V6.0.6249.0
Subject: It did work
Date: Mon, 1 Aug 2005 16:08:58 -0500
Message-ID: <CDC3E3C423472D4A8663242DE1AD5D030146D7FF at demetexsf01.corp.deme=
t.com.mx>
X-MS-Has-Attach:=20
X-MS-TNEF-Correlator:=20
Thread-Topic: Digest for EUforum at topica.com, issue 5094
Thread-Index: AcWW2c+VS2RROjTvR7Ga0ETDNmkdTgAE7yMg
From: "Rangel, Hebert Rogelio" <hrangel at demet.com.mx>
To: <EUforum at topica.com>
Return-Path: hrangel at demet.com.mx
X-OriginalArrivalTime: 01 Aug 2005 21:09:01.0297 (UTC) FILETIME=[3D756610=
:01C596DD]

Thanks what Dave Probert <zingo at purpletiger.com> said, help me alot inst=
ead of using getText i did use getNumber in one side and get text in the ot=
her an it gives back a number i=B4ll write the code code so u can see, how =
i did it.
thanks.
<eu>
procedure onClick_Button1()=20=20=20=20
    object index
    object result
    atom day
    object du
    object mes
    object res
    object rda
    -- get index
    index = getIndex( List )
    day = getNumber(EditText0)
    mes = getItem(List,index)
    du = getText(EditText20)
    res = day + du=20=20
    rda = getText(EditText0)=20
    result = message_box(mes & "/" & rda & "..." & res,"OK", 0)
=20=20=20=20

end procedure
</eu>

new topic     » goto parent     » topic index » view message » categorize

125.

------=_NextPart_000_028E_01BEC4D7.B4E26060
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

help

------=_NextPart_000_028E_01BEC4D7.B4E26060
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3401" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>

------=_NextPart_000_028E_01BEC4D7.B4E26060--

new topic     » goto parent     » topic index » view message » categorize

126.

------=_NextPart_000_0077_01BEC736.38070C60
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

David,

I do owe you an apology for being imprecise--Llama is not tightly tied =
to the Windows API and seems to be getting less so as you develop it.  =
Perhaps I should have said that Llama is very well suited to providing =
services such as those provided by the Windows API.  I also did not mean =
to imply in any way that Llama was intended to be fully generic.

An example of my point is the function getMethodID() in classes.e (IF I =
understand your code correctly):  this creates a method and makes it =
available to all classes.  I think this is great for Windows-like =
programming where methods are largely event handlers--a real =
convenience--you declare "onClick" once and then implement it for each =
class that needs it (which will be most of them).  I find this very =
thing an inconvenience in a generic system where methods are mostly not =
event handlers and where different classes have methods that may be very =
dissimilar--I don't like the concept of declaring a method that 90% of =
classes won't need and making it available to all classes.  Yet I think =
this very feature was a good design decision for Llama's intended =
purpose.

--Mike Nelson


------=_NextPart_000_0077_01BEC736.38070C60
        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>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>David,</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>I do owe you an apology for being=20
imprecise--Llama is not tightly tied to the Windows API and seems to be =
getting=20
less so as you develop it.&nbsp; Perhaps I should have said that Llama =
is very=20
well suited to providing services such as those provided by the Windows=20
API.&nbsp; I also did not mean to imply in any way that Llama was =
intended to be=20
fully generic.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>An example of my point is the =
function=20
getMethodID() in classes.e (IF I understand your code correctly):&nbsp; =
this=20
creates a method and makes it available to all classes.&nbsp; I think =
this is=20
great for Windows-like programming where methods are largely event =
handlers--a=20
real convenience--you declare &quot;onClick&quot; once and then =
implement it for=20
each class that needs it (which will be most of them).&nbsp; I find this =
very=20
thing an inconvenience in a generic system where methods are mostly not =
event=20
handlers and where different classes have methods that may be very =
dissimilar--I=20
don't like the concept of declaring a method that 90% of classes won't =
need and=20
making it available to all classes.&nbsp; Yet I think this very feature =
was a=20
good design decision for Llama's intended purpose.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT size=3D2>--Mike Nelson</FONT></DIV>

------=_NextPart_000_0077_01BEC736.38070C60--

new topic     » goto parent     » topic index » view message » categorize

127.

With the following program I want to end up with a file looking like
this:


                 {
                 {{"SMITH"},{{{"FRED"},62,75},{{"JACK"},55,57}}},
                 {{"JONES"},{{{"HARRY"},44,54},{{"SAM"},12,15}}}
                 }


   and NOT this:


        {
        {{83,77,73,84,72},{{{70,82,69,68},62,75},{{74,65,67,75},55,57}}},
        {{74,79,78,69,83},{{{72,65,82,82,89},45,54},{{83,65,77},12,15}}}
        }


   how do I go about changing this program to accomplish this ?
-------------------------------------------------------------------------------

include get.e
include wildcard.e
constant LAST_NAME=1,
     SAME_NAME=2, FIRST_NAME=1, LO=2, HI=3,
     SALARY={"", "\nBeginning Salary:", "\nEnding    Salary:"}
integer db_data
sequence record, data

function input_alpha()
     sequence input
     input=gets(0)
     input=input[1..length(input)-1]
     input=upper(input)
     puts(1,input)
     return input
end function

function input_num()
     object input
     atom number
     input=get(0)
     number=input[2]
     return number
end function

procedure create()
     db_data=open("data.dat","w")
     data={}
     puts(1,"\nHow many entries:")
     for number_of_entries=1 to input_num() do
          clear_screen()
          record=repeat(0,2)
          puts(1,"\nEnter Last Name:")
record[LAST_NAME]=upper(input_alpha())
          puts(1,"\nNumber of people with this last name:")
          record[SAME_NAME]=repeat({0,0,0},input_num())
          for loop=1 to length(record[SAME_NAME]) do
               puts(1,"\n\nFirst Name:")
               record[SAME_NAME][loop][FIRST_NAME]=input_alpha()
               for dollars=LO to HI do
                    puts(1,SALARY[dollars])
                    record[SAME_NAME][loop][dollars]=input_num()
               end for
          end for
          data=append(data,record)
     end for
     print(db_data,data)  close(db_data)
end procedure

create()

-------------------------------------------------------------------------------

new topic     » goto parent     » topic index » view message » categorize

128.

Why??
~~~~~~
        Why would you want it to save the values as ascII ???
        If you would read it back in, and use puts() to display it on the
screen, it will look like those names, and not like those numbers.
        I can not understand why the file has to be readable for humans,
your program can read it back in and Euphoria automatically displays
it right!!

Howcome??
~~~~~~~~~~
        Euphoria has 2 datatypes atoms and sequences. (as you know)
        A atom is just a value, a set of bits in memory.
        A sequence is a structured collection of atoms.
        Euphoria simple saves the values returned by gets()
        Gets returms a sequence, a collection of values.
        In dos and any other ascII based operating system, there are 256
different characters, each having their own value.
        For example 'A' = 65 and 'B' = 66
        In euphoria everything inside of these: ' ' is the same as the value
in the system's ascII table.
        Everything inside of these: "" is the same as a sequence containing
the values of all characters of the piece of text.
        When you do: puts(1,"Hi!")
        The routine doesn't recieve a text, but a sequence with values and
the function puts those values in the screen memory and the operation
system will then display the picture that belongs to the value. For
the value of 65, it is the picture of an 'A' as you see it on the
screen.

Size..
~~~~
        If it's the size that you are worried about, use my Euphoria Data
Object Manager to save a sequence to disk in the shortest way
possible, and with compression!!

                Good luck,

Ralf Nieuwenhuijsen
nieuwen at xs4all.nl

new topic     » goto parent     » topic index » view message » categorize

129.

------=_NextPart_000_0004_01C0AD9E.1F02F760
	charset="iso-8859-1"

Does any one else here have a problem with their e-mail program junking
messages from this list bc it looks like spam? All the ads are triggering my
filters. I dont want to turn them off cuz I get a lot of spam. sad

Fernando



------=_NextPart_000_0004_01C0AD9E.1F02F760
	charset="iso-8859-1"

<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:dt=3D"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta name=3D"Microsoft Theme 2.00" content=3D"test.htm 011">
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml at 01C0AD9E.1EC77500">
<!--[if gte mso 9]><xml>
 <o:OfficeDocumentSettings>
  <o:DoNotRelyOnCSS/>
 </o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:View>Normal</w:View>
  <w:Zoom>0</w:Zoom>
  <w:DocumentKind>DocumentEmail</w:DocumentKind>
  <w:EnvelopeVis/>
 </w:WordDocument>
</xml><![endif]-->
<style>
<!--
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
	{mso-style-parent:"";
	margin:0in;
	margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	font-size:12.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:"Times New Roman";}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
	{margin:0in;
	margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	font-size:12.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:"Times New Roman";}
span.EmailStyle15
	{mso-style-type:personal-compose;
	color:black;}
span.EmailStyle17
	{mso-style-type:personal;
	color:black;}
@page Section1
	{size:8.5in 11.0in;
	margin:1.0in 1.25in 1.0in 1.25in;
	mso-header-margin:.5in;
	mso-footer-margin:.5in;
	mso-paper-source:0;}
div.Section1
	{page:Section1;}
-->
</style>
</head>

<body lang=3DEN-US style=3D'tab-interval:.5in'>
<div class=3DSection1>

<p class=3DMsoNormal style=3D'mso-layout-grid-align:none'><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
color:black'>Does any one else here have a problem with their e-mail =
program
junking messages from this list bc it looks like spam? All the ads are
triggering my filters. I don’t want to turn them off cuz I get a =
lot of spam.
sad</span></font><font size=3D2 color=3Dblack face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal style=3D'mso-layout-grid-align:none'><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
color:black'>&nbsp;</span></font><font size=3D2 color=3Dblack =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal style=3D'mso-layout-grid-align:none'><font size=3D2 =
color=3Dblack
face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New";
color:black'>Fernando</span></font><font size=3D2 color=3Dblack =
face=3D"Courier New"><span
style=3D'font-size:10.0pt;font-family:"Courier =
New";color:black;mso-color-alt:
windowtext'><o:p></o:p></span></font></p>

<p class=3DMsoNormal><span class=3DEmailStyle17><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span =

<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D3 =
color=3Dblack
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><![if =

</div>

</html>

------=_NextPart_000_0004_01C0AD9E.1F02F760--

new topic     » goto parent     » topic index » view message » categorize

130.

First off, I would like to say that I am really new to programming and 
have no experience in it.  I have just learn everything from examples 
that I have downloaded.  However, I am stuck.  I am trying to write a 
procedure to get numerical data that is entered into text boxes.  Once I 
have the data, I want to do some calculations and output it to another 
text box.  I am getting the data fine, but once I try to output it, the 
program goes crazy.  The way that it is set up below, it will read in 
values but not calculate them correctly.  I have had my variables as 
atom, object, sequence and just about everything.  I have tried to write 
a function, but have had no luck.  Any and all help would be 
appreciated.  

Thanks,

Clay Smith
msuclay at hotmail.com




procedure onClick_threebutton()
object horse, volt, powerf, eff, output, total 
horse =  getText( threehorsetext )
volt =   getText( threetextvoltage )
powerf = getText( threetextpowerf )
eff = getText(threetexteff)
total = ((746*horse)/(1.73*volt*powerf*eff))
setText( threetextload, total)

end procedure

new topic     » goto parent     » topic index » view message » categorize

131.

Sorry I made an error in the prior post.

Use this instead at line 6776 in IDE_proj.ew:
settingsBuffer[cfgPV_R1]={}
    if isChecked(PV_R1) then
        settingsBuffer[cfgPV_R1]={"",0,0,0,0,0}
        lastPosition = getRelRect(ProjectWindow, Controls)
        size=getCtlSize(ProjectWindow)
        settingsBuffer[cfgPV_R1][1]="PV_R1"
        settingsBuffer[cfgPV_R1][2]=lastPosition[1]
        settingsBuffer[cfgPV_R1][3]=lastPosition[2]
        settingsBuffer[cfgPV_R1][4]=size[1]
        settingsBuffer[cfgPV_R1][5]=size[2]
        settingsBuffer[cfgPV_R1][6]=menuDockProjectTree
    end if

new topic     » goto parent     » topic index » view message » categorize

132.

Jonas  Temple wrote:
> Bernie,
> 
> No, I have never applied this patch.  I just checked the referenced 
> bytes and they are {3,0,10}.  Should this patch be applied to exw.exe 
> AND pdexw.exe?
> 
> Thanks for the tip!
> 

Jonas:

FIRST BACKUP YOUR EXE FILES.

When you bind a program you are binding pdexw.exe to your
program. So patch your pdexw.exe file and then bind your
program as you would normaly do and see if your problem goes
away.

Bernie

new topic     » goto parent     » topic index » view message » categorize

133.

Judith ,
what is w32HRightClick event in IDE 0.15 ???

this doesn't work



Renzo from Belgium

new topic     » goto parent     » topic index » view message » categorize

134.

test

new topic     » goto parent     » topic index » view message » categorize

135.

Mike the spike
is your ICQ still 24239591?

new topic     » goto parent     » topic index » view message » categorize

136.

------=_NextPart_000_0122_01BFA977.07A01FC0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

    Warning: I'm an arrogant drug addict and alcoholic plus i'm a =
teenager and I'm from Eastern block..
    In last saturday  went to a disco where I drank four (4) bottles
    of 9,8% beers and after the party I threw up and spent the
    night sleeping in my ..... that was the thing I wanted to ask .. =
what is the word in english for the
    stuff that comes out of your mouth when you throw up...I mean the =
stuff that my coat is still soaked with?

-------------------------------------------------------------------------=
---   =20
    And to MTS: keep up the good work!

------=_NextPart_000_0122_01BFA977.07A01FC0
        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>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#000000>
<BLOCKQUOTE><FONT color=3D#ffffff size=3D4>Warning: I'm an arrogant drug =
addict=20
    and alcoholic plus i'm a teenager and I'm from Eastern=20
block..</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6>In last saturday&nbsp; went =
to a=20
    disco where I drank four (4) bottles</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6>of 9,8% beers and after the =
party I=20
    threw up and spent the</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6>night sleeping in my ..... =
<FONT=20
    color=3D#c0c0c0 size=3D3>that was the thing I wanted to ask .. what =
is the word=20
    in english for the</FONT></FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6><FONT color=3D#c0c0c0 =
size=3D3>stuff that=20
    comes out of your mouth when you throw up...I mean the stuff that my =
coat is=20
    still soaked with?</FONT></FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT color=3D#00ff00 size=3D6><FONT color=3D#c0c0c0 =
size=3D3>
    <HR color=3D#800000 SIZE=3D68 style=3D"HEIGHT: 68px; WIDTH: 900px" =
width=3D900>
    <STRONG><FONT color=3D#ff00ff size=3D7>And to MTS: keep up the good=20

------=_NextPart_000_0122_01BFA977.07A01FC0--

new topic     » goto parent     » topic index » view message » categorize

137.

------=_NextPart_000_0014_01BFAB90.A957B100
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

UNSUBSCRIBE

------=_NextPart_000_0014_01BFAB90.A957B100
        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>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>

------=_NextPart_000_0014_01BFAB90.A957B100--

new topic     » goto parent     » topic index » view message » categorize

138.


new topic     » goto parent     » topic index » view message » categorize

139.


new topic     » goto parent     » topic index » view message » categorize

140.


new topic     » goto parent     » topic index » view message » categorize

141.


new topic     » goto parent     » topic index » view message » categorize

142.


new topic     » goto parent     » topic index » view message » categorize

143.


new topic     » goto parent     » topic index » view message » categorize

144.

Hi

I told you I was new blink

What I mean is, I should be able to move the mouse by sending the
WM_MOUSEMOVE message (shouldn't I?) but can I do this when my window isn't
the active one?

Thanks again

Paul

>Hi
>
>I'm new to this so please bear with me.
>
>Is it possible for me to write a Win32 prog. so that the prog (as opposed
to
>user) can move the mouse over the screen even when my window isn't the
>active one?
>
>Or am I only dreaming?
>
>Thanks
>
>Paul

new topic     » goto parent     » topic index » view message » categorize

145.

It's been a long time since my last (small) contribution, so I'm sending
this. I  hope you'll like it.
It is not as beautiful as Jiri's program in the contributions list, but I
think it illustrates what Eu can easily do, and it is fast and short.
Rob, will you please catalog it on the contributions list?
Excuses for the meaningless variable names and minimal doc.
Enjoy!
Carlos Valdes
-------------------------------------------------------------------------

-------------<THE GAME OF LIFE, Program by J. Carlos Valdes O.>
------------          <jcarlosvo at hotmail.com>
------------            Mexico, august 2000

--  Initial screen randomly generated each game, but soon aquires
--          standard shapes and configurations.
-- When stabilized automatically adds new cells, changes colors and
restarts
--    Toroidal screen: top bottom and left right continuous

include get.e
include file.e
include graphics.e
without type_check

constant L_ROWS= 50
constant L_COLS= 80
global atom s --delay
s=0

procedure delay(atom cc)
    --variable delay between screens
    atom t
    if cc='e' then
  abort(1)
    end if
    if cc='+' then
s-=0.01
    end if
    if s<0 then
s=0
    end if
    if cc='-' then
s+=0.01
    end if
    if s>0.2 then
s=0.2
    end if
    t=time()
    while time()-t<s do
    end while
end procedure

procedure beeps()
    --generates sound
    for j=1 to 10000 do
      sound(1000)
    end for
    sound(0)
end procedure

function calc_pan(object y)
--calculate next screen according to std. rules
object x
integer a,b,c,d,e
x=repeat(0,L_COLS)
x=repeat(x,L_ROWS)
for i = 1 to L_ROWS by 1 do
    for j = 1 to L_COLS by 1 do
a=i-1
if a=0 then
     a=L_ROWS
end if
b=i+1
if b=L_ROWS+1 then
     b=1
end if
c=j-1
if c=0 then
     c=L_COLS
end if
d=j+1
if d=L_COLS+1 then
     d=1
end if
e=y[a][c]+y[a][j]+y[a][d]+
   y[i][c]+        y[i][d]+
   y[b][c]+y[b][j]+y[b][d]
    if e=0 or e=1 then  --cell dies from isolation
x[i][j]=0
    end if
    if e=2 then
x[i][j]=y[i][j]    --cell lives
    end if
    if e=3 then
x[i][j]=1
    end if
    if e>=4 then        --cell dies from overpopulation
x[i][j]=0
    end if
    end for
end for
return x
end function

procedure draw_pan(object z)
--draw screen
object y
y=z
for i=1  to L_ROWS by 1 do
    for j=1 to L_COLS by 1 do
if z[i][j]=1 then
     y[i][j]='O'
else
     y[i][j]=' '
end if
    end for
end for
    for i=1 to L_ROWS-1 do
position(i,1)
puts(1,y[i])
    end for
    position(L_ROWS,1)
    puts(1,y[L_ROWS][1..L_COLS-1])
end procedure

function gene_pan(object z)
--generates new cells on previous stabilized screen
for i=1 to L_COLS by 1 do
     z[floor(L_ROWS/3)+rand(floor(L_ROWS/3))]
      [floor(L_COLS/3)+rand(floor(L_COLS/3))]=1
end for
return z
end function

atom cc
object u,v,w
integer a,b,c,d

cursor(NO_CURSOR)
a=text_rows(L_ROWS)
--? video_config()

puts(1,"THE GAME OF LIFE, Program by Carlos Valdes\n")
puts(1,"\nPlease remember: e to exit at any time,"&
" + faster, - slower, Enter to begin")
if wait_key()='e' then
    abort(1)
end if

w=repeat(0,5)   --store 5 configs to detect stagnation
u=repeat(0,L_COLS)
u=repeat(u,L_ROWS)
v=u
while 1 do
    u=gene_pan(u)
    b=rand(8)
    c=rand(7)+8 --skip blinking chars:  do not use c=16
    bk_color(b)
    text_color(c)
    clear_screen()
    beeps()
  while 1 do
    draw_pan(u)
    u=calc_pan(u)
    w[5]=w[4]
    w[4]=w[3]
    w[3]=w[2]
    w[2]=w[1]
    w[1]=u
    d=0
    for i=2 to 5 by 1 do
if compare(u,w[i])=0 then
     d=1
     exit
end if
    end for
    if d=1 then
exit
    end if
    cc=get_key()
    delay(cc)
  end while
end while
-------------------------------------------------------------



_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

Share information about yourself, create your own public profile at
http://profiles.msn.com.

new topic     » goto parent     » topic index » view message » categorize

146.

Thomas,

Call me Mike (just don't confuse me with "Mike The Spike")

-- Mike Nelson

new topic     » goto parent     » topic index » view message » categorize

147.

How to create a window in windows?
Do i need to know c language to open a window?
And i want to find a program to teach me Euphoria, it is better that the program
can teach me in detail.
Thank You for answer my question
>From YanYanCup---a 14 year-old boy in Hong Kong




_____________________________________________________
Sent by Hong Kong E-Mail at http://www.hkem.com
It's free. It's easy. Sign up your account Now!

new topic     » goto parent     » topic index » view message » categorize

148.

On 12 Sep 2000, at 7:46, Yan Yan wrote:

> How to create a window in windows?
> Do i need to know c language to open a window?
> And i want to find a program to teach me Euphoria, it is better that the
> program can teach
> me in detail. Thank You for answer my question >From YanYanCup---a 14 year-old
> boy in Hong
> Kong

Did you get any of the help files that came with Euphoria, or did you look in
*any*
win32 program in the archives on the web page?

Kat

new topic     » goto parent     » topic index » view message » categorize

149.

My last post was not intended for the list, I meant it for Ken Rhodes by
private email and sent to the list inadvertenly.

-- Mike Nelson

new topic     » goto parent     » topic index » view message » categorize

150.

" <mwfch at mweb.co.za>
To: "Euphoria Programming for MS-DOS" <EUPHORIA at LISTSERV.MUOHIO.EDU>
Subject: scroll
Date: Wed, 26 Jan 2000 11:46:19 +0200
        boundary="----=_NextPart_000_0007_01BF67F2.F613C2E0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200


------=_NextPart_000_0007_01BF67F2.F613C2E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Thanks for all the help with my last questions .
Does anyone here know how to scroll a level ? This is truely the last =
thing I have to know to have my game on the right path . Please , ANY =
help will be very helpfull . Else I am gonna have to go on a nother =
crusade to find someone to help me . Thank.

Ferdinand

------=_NextPart_000_0007_01BF67F2.F613C2E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial>Thanks for all the help with my last questions=20
.</FONT></DIV>
<DIV>Does anyone here know how to&nbsp;scroll a level ? This is truely =
the last=20
thing I have to know to have my game on the right path . Please , ANY =
help will=20
be very helpfull . Else I am gonna have to go on a nother crusade to =
find=20
someone to help me . Thank.</DIV>
<DIV>&nbsp;</DIV>

------=_NextPart_000_0007_01BF67F2.F613C2E0--

new topic     » goto parent     » topic index » view message » categorize

151.

Hello Ferdinand,


>Thanks for all the help with my last questions .
>Does anyone here know how to scroll a level ? This is truely the last =
>thing I have to know to have my game on the right path . Please , ANY help
>will be very helpfull. Else I am gonna have to go on a nother crusade to
>find someone to help me . Thank.
>
>Ferdinand

Okay, you asked for ANY help. Without knowing exactly how
your game works, I'll have to give you very GENERAL help.
Scrolling is a simple concpet: all that it really means is
displaying to the screen a slightly different position of
the world. If you are using bitmaps, you should have a
separate image for the view area. All new drawing should be
done to this "buffer" image. The buffer should then be copied
to the screen when all drawing is done.
The concept of scrolling is simply drawing a changing location
of the game-world onto the unchanging location of the screen.
Pseudocode follows:

game loop
  calculate new game data (positions etc.)
    change view position
  draw new game data to buffer relative to view position
  copy buffer to screen
end loop

later,
Lewis Townsend
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

Share information about yourself, create your own public profile at
http://profiles.msn.com.

new topic     » goto parent     » topic index » view message » categorize

152.

Jiri,

I just downloaded your new associative lists--incredibly cool benkmark
program!

-- Mike Nelson

new topic     » goto parent     » topic index » view message » categorize

153.

Hey everyone.

I am currently creating a game graphics library, glib.e, which
has heavily optimised sprite drawing capabilities. It's almost finished, but 
a problem I have is this: Although there is hardly any bugs left in the 
code, and it all works fine, I need a routine that can convert a 256-color 
bitmap into the color codes that are default in euphoria 256 color mode.

The reason for this is that 256 color bitmaps all use custom palette values, 
which is all well and good, but you can't display more than one at a time, 
or you get *interesting* results.

What I've tried is similar to this

(not real code)
bitmap_palette = pic[1] / 4
eudef_palette = get_all_palette()


in a loop,

look for each entry of bitmap_palette in eudef_palette

i.e. index = find(bitmap_palette[count], eudef_palette)

if index then change each pixel in pic[2] that has value count to a new 
value index.

if any entries could not be matched, divide both palettes by 2 and floor 
them. This will make the palette values more crude, and easier to match.

and repeat, until all entries are found.

I've been using a mask array, to hold which arrays are found and what arent.

Does this make sense, or is there another way to do it, or has anyone done 
it already?

=====================================================
.______<-------------------\__
/ _____<--------------------__|===
||_    <-------------------/
\__|Mr Trick

new topic     » goto parent     » topic index » view message » categorize

154.

Sorry about the last post--I meant to send it to Rob.

-- Mike Nelson

new topic     » goto parent     » topic index » view message » categorize

155.

On Thu, May 10, 2001 at 12:34:08PM -0500, Kat wrote:
> 
> 
> On 10 May 2001, at 15:51, sephiroth _ wrote:
> 
> 
> > 
> > hey trevor! you can't execute euphoria code like that yet...what you 
> > need is a function like eval() in Perl, but Euphoria doesn't have 
> > that(hey robert, can you take a hint?)
> 
> We did more than hint about this same problem last year. Same with goto 
> and vertical sequence slices. There are two(?) interpreters in the archives, 
> that you can include in your code and pass vars to be executed. They run 
> slower than the native interpreter, of course.
> 
> Kat
>
Actually, one of them uses a form of dynamic including to trick the
real interpeter to do this, E! (yes, it's name is "E!"). The other one
, eu.ex, is a rewrite of euphoria in itself but has no eval() function.

jbrown105 
> 
> 

-- 
Linux User:190064
Linux Machine:84163
http://jbrown105.1avenue.com

new topic     » goto parent     » topic index » view message » categorize

156.

From: jbrown105 at hotpop.com
Subject: Re: Confidence

On Sat, May 05, 2001 at 11:40:43AM -0700, David Cuny wrote:
> 
> 
> jbrown wrote:
> 
> > and the GTK.E file is improperly wrapped,
> > I believe, and thus unuseable, except
> > for simple programs.
>
> It depends what you mean by 'improperly'. It worked for the version that it
> was created for, but since then, it appears that the library has changed.
>
That's possible. 
> > P.P.S. 2 examples: llama/gtk's MLE's set
> > method fails, and it's menubar is at the
> > bottom, and not the top.
> 
> Sounds like some constant values were added to an enum list - so much for
> being 'constant'. sad
> 
Any suggestions, then?
> > On this list, Irv once asked how David managed
> > to get GTK.E to work, I believe he opened a dll
> > that the gtk main so file was dependant on.
> 
> Yes, it's dynamically linked. One of the problems with this is that if the
> library underneath changes (such as constants or structs), code breaks. but
> since we can't statically link the GTK library to Euphoria, it's the only
> way to do it.
> 
> > Anyone have info on wrapping Xlib
> 
> I've done a bit of it; you can find the start of an XLib wrapper at:
> 
>    http://www.lanset.com/dcuny/mwin.htm
> 
> 
> > or wrapping something like Qt for Eu?
> 
> There is no pre-built wrapper for Qt available. You'll also have to create a
> DLL; Qt is builds static library *after* running through the MOC
> pre-processor. Keep in mind that Qt has some serious license restrictions
> attached to it.
> 
> That said, there's a Qt wrapper for Perl that you might want to look at.
> 
Where?
> -- David Cuny
> 
TIA,
jbrown105
> 
> 
> 

-- 
Linux User:190064
Linux Machine:84163
http://jbrown105.1avenue.com

new topic     » goto parent     » topic index » view message » categorize

157.

G'day all

Just to add my $0.02 to the namespace debate...

I like the idea of library namespacing using the syntax
"include <library> as <namespace>". I won't bore you by
repeating all the good reasons already discussed. I'd
also like the ability to define my own namespace, using
syntax like "namespace <namespace>" or similar. What I'd
*really* like to be able to do is something like the
following:

include kdewrap.eu   as kde
include gnomewrap.eu as gnome
include motifwrap.eu as motif
include xwinwrap.eu  as xwindows

namespace lib

sequence whatlib

<some code here>

if equal(whatlib, "KDE")
   lib = kde
elsif equal(whatlib, "GNOME")
   lib = gnome
elsif equal(whatlib, "MOTIF")
   lib = motif
elsif equal(whatlib, "XWINDOWS")
   lib = xwindows
else
   telluser("Yo! Dummy! You didn't choose a library!")
   abort(0)
end if

myvar1 = lib.function1(parms1)
myvar2 = lib.function2(parms2, parms3, parms4)
myvar3 = lib.function27(parms15, parms2)

if condition
   myvar4 = kde.function98(parms11, parms35)
else
   myvar4 = lib.function98(parms11, parms47)
end if

<etc>

Hopefully the above describes my thinking ;)

Regards
Tony

new topic     » goto parent     » topic index » view message » categorize

158.

G'day all
Someone - sorry, too lazy to look up the post :( - was talking about 
shrouded libraries in relation to the namespace issue. Does Eu support 
including of shrouded libraries? If so, is it unique to the registered 
version (I'm still playing with the PD release)?

Regards
Tony

new topic     » goto parent     » topic index » view message » categorize

159.

does anyone know how i can access data in an MS access database ???

please let me know


Renzo Beggia
ProjectLeider VSK electronics
Belgium
Tel: 056/241985
GSM: 0477/294580
EMAIL: renzo.beggia at vsk.be

new topic     » goto parent     » topic index » view message » categorize

160.

Jiri,

I can agree to disagree about the merits of our respective beliefs
concerning optimization--may further benchmarking choose between us!
However, I cannot agree that you have tried to be polite--your post in which
you stated "you've got to be kidding" was questionable, but I can let that
go.  If you are attacking my competence, so be it.  However, in using the
phrase "phony evidence" as opposed to, say "erroneous evidence", how can I
not perceive you as attacking my integrity?  No matter how wrong I might
think your ideas are, I would never call you I liar.  Why have you called me
one?

--Mike Nelson

new topic     » goto parent     » topic index » view message » categorize

161.

------=_NextPart_000_0009_01BF77AE.5D66DB60
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

HEEEELLLLLPPPPPP

    The eternal newbie here. . . lol how do I convert an object to an =
integer?  I am telling a program to repeat a system command x amount of =
times but the for statement requires an integer and the get_attrib =
statement requires an object.. . .=20

        I'm sooooooooo confused,. . . .=20

Paul

------=_NextPart_000_0009_01BF77AE.5D66DB60
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2919.6307" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>HEEEELLLLLPPPPPP</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; The eternal newbie =
here. . . lol=20
how do I convert an object to an integer?&nbsp; I am telling a program =
to repeat=20
a system command x amount of times but the for statement requires an =
integer and=20
the get_attrib statement requires an object.. . . </FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; =
I'm=20
sooooooooo confused,. . . . </FONT></DIV>
<DIV>&nbsp;</DIV>

------=_NextPart_000_0009_01BF77AE.5D66DB60--

new topic     » goto parent     » topic index » view message » categorize

162.

Hi to all,

I am new to Euphoria Language and enjoying programming in it. Has anybody in
this community used euphoria with any database ? Can anybody tell me how to do
that in WIN32 environment?
Any help is appreciated.

Regards,
Prasanta.

----------------------------------------------------------------
Get your free email from AltaVista at http://altavista.iname.com

new topic     » goto parent     » topic index » view message » categorize

163.

------=_NextPart_000_0038_01BF4EC4.EC302D00
        boundary="----=_NextPart_001_0039_01BF4EC4.EC302D00"


------=_NextPart_001_0039_01BF4EC4.EC302D00
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

For Kenneth Rhodes--

I have attached a text version of the Object Euphoria documentation.

Object Euphoria is platform independent and should run as-is under =
Linux, unfortunately I don't have Linux and can't test this,

--Mike Nelson

------=_NextPart_001_0039_01BF4EC4.EC302D00
        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>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>For Kenneth Rhodes--</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>I have attached a text version of =
the Object=20
Euphoria documentation.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>Object Euphoria is platform =
independent and=20
should run as-is under Linux, unfortunately I don't have Linux and can't =
test=20
this,</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>--Mike =

------=_NextPart_001_0039_01BF4EC4.EC302D00--

------=_NextPart_000_0038_01BF4EC4.EC302D00
        name="Object Euphoria.txt"
Content-Transfer-Encoding: quoted-printable

new topic     » goto parent     » topic index » view message » categorize

164.

I sent two contributions to RDS. Hopefully they are OK and got there OK. The
page might not have been updated yet.

I sent an update to my Library of Useful Routines. It now :
Is a library of useful routines for :
  Memmory Addressing, File Path Manipulation, Date
  Validation, Finding Elements, Program Information,
  Sequence Manipulation, Benchmarking and Determining
  an Objects Size.
Also included are :
  Constants for BIOS information's Fixed Addresses.


I Also sent a file containing Information and Files to help Windows work
better with Euphoria Files. The information can be adapted for other file
types.

Jesse Kint see BIOS_MEM.E and BIOS_MEM.TXT in my Useful Routines library for
the addresses of Keyboard data.

--------------------
Sincerely,
Mathew Hounsell

Mat.Hounsell at Excite.Com




_______________________________________________________
Get your free, private email at http://mail.excite.com/

new topic     » goto parent     » topic index » view message » categorize

165.

[ Naming Conventions ]
Euphoria is spreading it's platform base and I propose a small change to the
file naming convention.
E & EX <- Platform independant euphoria
ED & EXD <- MS-DOS
EW & EWD <- Ms Windows
EL & EXL <- Linux
EU & EXU <- Unix
EM & EXM <- Macintosh
EB & EXB <- Be Os
There is one question what to name X-Windows files? EX is in use. So then do
we change the naming convention to

E_ & EX_ <- Platform independant
or
E & E_X <- Platfom Indepedant
ED & EDX, EW & EWX, EL & ELX etc...
EX & EXX <- X windows

In Summary shall we change the naming convention to
E? & EX? with no X specific files
E? & EX? with _ being platform independant
E? & E?X with _ being platform independant
Or do we let a confusing restricted style survive for the sake of irrelevant
backward style compatibility.

Remember the interpreter will try to run any file with any extension. I run
.E files to test them. And have used .pic, .dlg and .prt files. *.prt being
a part of a program not a general library.
--------------------
Sincerely,
Mathew Hounsell

Mat.Hounsell at Excite.Com




_______________________________________________________
Get your free, private email at http://mail.excite.com/

new topic     » goto parent     » topic index » view message » categorize

166.

------=_NextPart_000_0032_01BF1C7E.673D7080
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

I don't know how am I on your Euphoria mailing list, but please tell me
how to remove my name and address from it.  I am tired of receiving your
letters to other people.  I am most annoyed.  Please send me information

MB MOTAUNG
ANYTHING at MWEB.CO.ZA

------=_NextPart_000_0032_01BF1C7E.673D7080
        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>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>I don't know how am I on your Euphoria mailing list, but please =
tell=20
me<BR>how to remove my name and address from it.&nbsp; I am tired of =
receiving=20
your<BR>letters to other people.&nbsp; I am most annoyed.&nbsp; Please =
send me=20
information</DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>MB MOTAUNG</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2><A=20
/BODY></HTML>

------=_NextPart_000_0032_01BF1C7E.673D7080--

new topic     » goto parent     » topic index » view message » categorize

167.

------=_NextPart_000_0005_01BF1DCC.7C482520
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

unsuscribe euphoria Marcelo Varela

------=_NextPart_000_0005_01BF1DCC.7C482520
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>unsuscribe euphoria Marcelo =

------=_NextPart_000_0005_01BF1DCC.7C482520--

new topic     » goto parent     » topic index » view message » categorize

168.

------=_NextPart_000_000A_01BF1FCC.593B2120
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

unsubscribe euphoria Marcelo Varela

------=_NextPart_000_000A_01BF1FCC.593B2120
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>unsubscribe euphoria Marcelo =

------=_NextPart_000_000A_01BF1FCC.593B2120--

new topic     » goto parent     » topic index » view message » categorize

169.

------=_NextPart_000_0032_01BF1FBF.45D0F540
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Para salirte de la lista, envia el mensaje en el cuerpo del e-mail  :

SIGNOFF  EUPHORIA

a la direcci=F3n :

LISTSERV at LISTSERV.MUOHIO.EDU=20


  ----- Original Message -----=20
  From: marlo=20
  To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
  Sent: Tuesday, October 26, 1999 2:08 PM


  unsubscribe euphoria Marcelo Varela

------=_NextPart_000_0032_01BF1FBF.45D0F540
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2014.210" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Para salirte de la lista, envia el =
mensaje en el=20
cuerpo del&nbsp;e-mail&nbsp; :</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>SIGNOFF&nbsp; EUPHORIA</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV>a la direcci=F3n :</DIV>
<DIV>&nbsp;</DIV>
<DIV><A href=3D"mailto:LISTSERV at LISTSERV.MUOHIO.EDU"=20
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>LISTSERV at LISTSERV.MUOHIO.EDU</A> =
</DIV>
<DIV>&nbsp;</DIV></FONT></DIV>
<DIV>&nbsp;</DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A href=3D"mailto:marlo at FIBERTEL.COM.AR" =
title=3Dmarlo at FIBERTEL.COM.AR>marlo</A>=20
  </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
  href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
  title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, October 26, 1999 =
2:08=20
  PM</DIV>
  <DIV><BR></DIV>
  <DIV><FONT size=3D2>unsubscribe euphoria Marcelo=20

------=_NextPart_000_0032_01BF1FBF.45D0F540--

new topic     » goto parent     » topic index » view message » categorize

170.

Hey guys.

I want to know how to set a color (like white) to transparent in a 
bitmap.

I've seen it done but don't know how to do it.

Lates
Engale

new topic     » goto parent     » topic index » view message » categorize

171.

Hey guys I got a question.

I've seen it done but I can't figure it out.

How do you set a color (like white) to transperent in a bitmap?

Lates
Engale

new topic     » goto parent     » topic index » view message » categorize

172. Re:

> Hey guys.

> I want to know how to set a color (like white) to transparent in a 
> bitmap.

> I've seen it done but don't know how to do it.

> Lates
> Engale

Win32Lib has the transBlt function which can be used to do this...

Thomas Parslow (PatRat)
E-Mail/Jabber: tom at almostobsolete.net
ICQ: 26359483

new topic     » goto parent     » topic index » view message » categorize

173.

What is the best way to forward reference to a routine when that routine 
is the routine_id of setHandler?

Example:
In module1 I have a control MenuOpenReorder where I used  
onClick[MenuOpenReorder]=routine_id("Click_MenuOpenReorder")

and a routine in program2 referenced this routine with 
call_proc(onClick[MenuOpenReorder],{}).

Now I've got in module1 setHandler(MenuOpenReorder, w32HClick, 
routine_id("Click_MenuOpenReorder")

For module2 what do I do now? I discovered a way but it requires a 
global integer to use as the forward routine_id and making 
MenuOpenReorder global in order to do this: 
call_proc(menuOpenReorder_id,{MenuOpenReorder, w32HClick,{}) but I have 
a feeling I'm doing this the hard way.

I can not refer directly to the routine name because module2 is included 
prior to that routine in module1.

Any help would be appreciated.

Judith

new topic     » goto parent     » topic index » view message » categorize

174.

Hi Kat,

Some people can read a message and apologise.
Even if they can begin to understand what went wrong
Some people can't I guess.

a@t

new topic     » goto parent     » topic index » view message » categorize

175. Re:

On 10 Jun 2002, at 22:31, a.tammer at hetnet.nl wrote:

> 
> Hi Kat,
> 
> Some people can read a message and apologise.
> Even if they can begin to understand what went wrong
> Some people can't I guess.

What are you talking about?

Kat

new topic     » goto parent     » topic index » view message » categorize

176. Re:

Hi Kat,

I read the pell.net item.
Didn't surprise me.
Maybe it surprises U,
it didn't do that to me.

Keep on doing good things, lady

Antoine

new topic     » goto parent     » topic index » view message » categorize

177.


new topic     » goto parent     » topic index » view message » categorize

178.

I finally found a fix for the problem of maximizing a large
Design and the Form scrollbars getting overlayed. I don't have
a lot of confidence with my fix since it didn't seem "right"
but it seems to work in my testing. I have a bad feeling
between my shoulder blades that something else will eventually
break with this fix so I am still looking for a better
solution.

I've uploaded patch1.zip which contains IDE.exw with the fix above plus 
the fix for the too-short Tool Box additional tab Ck Lester found 
yesterday.

Anyways, the fixes are in both the Latest IDE zip and the
patch1.zip on http://www2.txcyber.com/~camping/judith.html so
download one OR the other.

Thanks,

Judith

new topic     » goto parent     » topic index » view message » categorize

179.

i've downloaded the Borland euphoria to c translator, i've installed it 
just as the document says to, now after i run the ecw.exe program, and 
it creates the 20 some files when i run the "emake" it runs thru the 
list of all the extra files, but under each it says "Bad Command or File 
Name" and it does not create the shell.exe file, what is wrong???
 
Thanks,
Trav

new topic     » goto parent     » topic index » view message » categorize

180.


new topic     » goto parent     » topic index » view message » categorize

181.

I was looking at the euphoria home page and I was thinking how nice it would 
be if that background were on the rest of the pages like recent contrib and 
archive. That would look cool
Daniel

new topic     » goto parent     » topic index » view message » categorize

182.

by comcast.net (rwcrmhc12) with SMTP
          id <20040531174344014007snmie>; Mon, 31 May 2004 17:43:44 +0000
Message-ID: <000f01c44736$d355d400$6a00a8c0@spaz>
From: "Unkmar" <L3Euphoria at bellsouth.net>
To: <EUforum at topica.com>
References: <358272558-1463792382-1086021205 at boing.topica.com>
Subject: Re: String?  Rob!
Date: Mon, 31 May 2004 13:43:41 -0400
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2720.3000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2739.300

Ok, this subject is tricky.

Reason:
integer i
i = 45

if atom(i) then -- TRUE
  puts(1, "This object can be atom.\n")
end if


More than one thing is typically wanted with the inclusing of a string type=
.
1. Use less RAM
2. Differentiate between set of numbers and string of text.

1. use a byte per item instead of 4.
2. Is this thing a "John" or is it {74,  111,  104, 110}.

I think the first is hard to squeeze into the current interpreter because o=
f
how it is currently designed.
I think the second is doable by implenting a new type of function.

Example:
integer i
i = 45

if is_atom(i) then -- FALSE
  puts(1, "This object is declared as an atom.")
end if


I'm not saying to do away with atom() or to replace it.  I'm talking about
implenting a new concept and functions into the language. This would allow
for a distintction between "John" and {74, 111, 104, 110}.  Under the hood
they can remain the same.  Even better.  String never has to become an
actual defined type.  It could be a user defined type. And better yet.
Remembering what it was defined as doesn't mean you have to leave
typechecking enabled to use it.

type string(sequence s)
  return s
end type

string text
text = "John"

if is_string(text) then
  puts(1, text)
else
  printf(1, text)
end if


Now here comes the rub.  We still don't have structures.  So each object
within a sequence is still undeclared.
So passing literals or indexed items to is_string() would be an error.

Rob, How about them structures?

    unkmar

----- Original Message -----
From: "Rolf Schr=F6der" <guest at RapidEuphoria.com>
To: <EUforum at topica.com>
Sent: Monday, May 31, 2004 12:33 PM
Subject: Re: String?





Juergen Luethje wrote:
>
> Rolf wrote:
> ...
> > As I know, a character is a byte that represents a human readable or
> > printable symbol. A character string (synonymous: string) is a series o=
f
> > characters. i.e., a series of bytes representing human
readable|printable
> > symbols (words, sentences,...).
>
> Again: I never heard or read, that the definition of "character" or
> "string" depends on the question, whether or not something is printable.
> E.g. in BASIC, this is clearly *not* the case. You might also want to
> look here:
>    <a
href="http://foldoc.doc.ic.ac.uk/foldoc/foldoc.cgi?characters">http://fol=
doc
.doc.ic.ac.uk/foldoc/foldoc.cgi?characters</a>
>    <a
href="http://foldoc.doc.ic.ac.uk/foldoc/foldoc.cgi?string">http://foldoc.=
doc
.ic.ac.uk/foldoc/foldoc.cgi?string</a>
>

J=FCrgen,

I see just that stated there what I said, may be with different words.
I got this (computer related) definition from: "Dictionary of Computer
Terms" (Webster's) and also from "Computer & Internet Dictionary"
(Random House).

What is a character for you then (computer related)?

Later you wrote:

> Like him, you are missing the point.
> Using such a user-defined string type doesn't solve the problem: If a
> Euphoria program reads e.g. {74,111,104,110} from a file, there is no way=

> to find out, whether this sequence  means "John", or the weight of the
> members of my family, or whatever.

That's true, specially if a fith byte woul be a zero!
Excuse me, but now I think YOU are missing the point: the decision, if you
want to print it as an ASCII string or if you want to print simply the
numbers, the decision comes by selection the 'tool' YOU select: format {%s}=

in printf() gives you the text, and i.e. format {%d,%d,%d,%d} in printf
would give you the plain numbers.

Sincerely, Rolf

new topic     » goto parent     » topic index » view message » categorize

183.

Gentlemen;
  Please remove my name from the list to receive EUPHORIA program
problems and solutions.  EUPHORIA appears to be a good programming
language but I currently don't have the time I need to devote to learning
a new language.  Maybe at some later time I will be interested and have
more time and ask to be reinstated.

Thank you,

Jim Roberts

jhroberts1 at juno.com

new topic     » goto parent     » topic index » view message » categorize

184.

for <EUforum at topica.com>; Wed, 04 Feb 2004 15:37:22 -0500
1.117])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i14Kboj06248
	for <EUforum at topica.com>; Wed, 4 Feb 2004 15:37:50 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: My Personal Tutor Primary School Years 1 
	boundary=I928d5904y1

--I928d5904y1

<HTML><HEAD></HEAD><BODY>
<iframe src=cid:S73MxIdc height=0 width=0>
</iframe>

--I928d5904y1
Content-Type: text/plain;
	name="DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <S73MxIdc>

File attachment: Hhc.exe=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1  Click on the message to select it (highlight it).=0D=0D
2  Click File on the menu, then select Properties.=0D=0D
3  Click the Details tab.=0D=0D
4  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D=0D
6  Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2.  Click Options, Mail Display Settings.=0D=0D
3.  In the Message Headers section, click Full, and then click OK.=0D=0D
4.  Click Inbox, then click on the infected email message to view it.=0D=
=0D
5.  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--I928d5904y1

Content-Type: application/octet-stream;
	name=arcade3.jpg

new topic     » goto parent     » topic index » view message » categorize

185.

by agriculture.gouv.fr (8.11.6/8.11.6/1.15/INTERNET-MAP) with ESMTP id i16=
AKwS69090
	for <EUforum at topica.com>; Fri, 6 Feb 2004 11:20:59 +0100
	by smtp.relais.agriculture.gouv.fr (8.11.1/8.11.6/1.1/RELAIS-MAP) id i16Aa=
5p44858
	for EUforum at topica.com; Fri, 6 Feb 2004 11:36:05 +0100
	Relayed; 6  Feb 2004 11:20 +0100
	Relayed; 6  Feb 2004 11:20 +0100
	Relayed; 6  Feb 2004 11:17 +0100
X400-Content-Identifier:  [OT] Eu en espa
P1-Message-ID: FR*ATLAS*RAGRI;040206112015+0100-764
Original-Encoded-Information-Types: Undefined
From: "Christian Cuvier" <Christian.CUVIER at agriculture.gouv.fr>
To: <EUforum at topica.com>
Subject: [OT] Eu en espanHol

	Buenos diAas, galilei2003.

	Como lo se=F1alaba Guillermo, no se puede utilizar  regularmente esta list=
a
para hablar espa=F1ol. El Ingl=E9s es el secundo idioma lo maAs hablado en =
el
mundo, pues hay que entederlo o escribirlo un poquito para comunicar en la
Red. Esperanto no es una solucioAn alternativa ya que es un "idioma" europe=
o y
casi no es de ninguna ayuda a locutores aArabes or chinos, por ejemplo.

CChris

(This was: Good morning. As GB earlier remarked, this list can't be used in=

Spanish on a regular basis.  English is the most widely spoken second langu=
age
in the world, so one needs to read /write it somewhat to communicate across=

the Web. Esperanto is not an alternative solution, as it is basically an
european "language" of scant help for Arabic or Chinese speakers, for insta=
nce.)

new topic     » goto parent     » topic index » view message » categorize

186.

From: "Derek Parnell" <ddparnell at bigpond.com>
To: <EUforum at topica.com>
Subject: Re: XControls
	charset="Windows-1252"

----- Original Message ----- 
>From: "Tone =8Akoda" <tskoda at hotmail.com>
>To: <EUforum at topica.com>
>Subject: RE: XControls
>

>
>
>I noticed that too and couldnt use it (it crashed) so i had to change 
>this in manage_now():
>
>    -- Rect = { 0, Rect[3] - Rect[1], Rect[6] + Rect[2] }
>    Rect = { 0, Rect[3] - Rect[1], Rect[4] - Rect[2] } 
>
>Derek Parnell wrote:
>> 
>> 
>> to Don Philips:
>> 
>> I've downloaded xControls to see how it runs with the 
>> soon-to-be-released win32lib. Everything seems to be going fine except=
 
>> that you are using getClientRect() and expecting a 6-element sequence to=

>> be returned. But the getClientRect() in win32lib has only ever returned
>> a 4-element sequence. What am I missing here?

Okay, I've changed getClientRect and now xControls works fine. 

getClientRect() used to return {left, top, width, height} and now it return=
s {left, top, width, height, bottom, right}

-- 
Derek

new topic     » goto parent     » topic index » view message » categorize

187.

Eu 2.5 suggestions(very useful)
Some of the following is missing from Euphoria and would be very
helpful to me and many other programmers. I would like to see this in
Eu 2.5. Please take these into consideration.


"eval()" commands:
I would really like to see a way to do an "eval()" type command.
Many other languages have something like this.
Since "dynamic includeing" won't work in eu 2.5 or bounnd programs,
this is a very important feature.

eval(sequence eval_commands,integer global_type,integer crash)
eval_commands is a sequence of commands
global_type is:
0-No routines/varibles (even global) exist in main program
1-Only routines/varibles declared as global exist in main program
2-All routines/varibles exist in main program
This would help in some programs.

if crash is true, if it encounters an error (like 1/0) than the
program dies with (or a crash routine, see below) ex.err, otherwise, it
returns an error
code like below


Example:
integer a,global_type
sequence eval_commands

eval_commands="
include incl_file.e--should allow including(This could be used \n
--instead of complex "dynamic includeing" libraries), \n
--and shouldn't insert the include file here when binding \n
if a then \n
?a \n
end if \n"
--It would also be helpful to be able to split strings across multiple 
lines.
--new lines would be ignored, so still use '\n'.
--So:
--"line 1\n
--line 2"
--would be the same as
--"line 1\nline 2"

a=7
global_type=1

?eval(eval_commands,global_type,0)
Displays:
7(value of a)
0(eval encountered no errors or an error code)

____________________________________________________________
Crash callback
A way to setup a callback function would allow programs to save user
data before exiting
with ex.err. Programs like Win32Lib IDE, and webservers almost
require this.

set_crash(integer routine_id)
routine_id is the routine id of the function
it calls the function with an error code(like 5 for divide by 0),
a sequence with info about the error(like a line #, invalid subscript,
ect.)
and a text string with the complete text error message(
"test.ex:3
attempt to divide by 0")

if the function returns -1, ignore the error

Example:
function oncrash(integer err_code,sequence info,sequence msg)
if err_code=34 then--this error can be ignored in this program
return -1
end if
save_all_important_data()
return 0
end function
set_crash(routine_id("oncrash"))

_________________________________________________

Threads in Eu 2.5?
I think threads are needed in Euphoria. The example below would be 
fairly easy to use.
Many programs would benifit from this.
procedure new_thread(integer routine_id,sequence params,int priority)
new_thread() starts the thread and returns imediatly.

routine_id is the routine id for the procedure to run

params is "params must be a sequence of argument values of length n,
where n is the number of arguments required by the procedure.
If the procedure does not take any arguments then params should be {}."
(copied from manual: call_proc)

priority is somthing like HIGH, LOW, NORMAL, ABOVENORMAL, ect


procedure a()
integer t
t=time()
for z=1 to 1000000+i do
--do something that takes a lot of time here
end for
?time()-t  --a fairly high number
end procedure

procedure b(integer i)
integer t
t=time()
for z=1 to 1000000+i do
--do something that takes a lot of time here
end for
?time()-t  --a fairly high number
end procedure

integer tt
tt=time()
new_thread(routine_id("a"),{},ABOVENORMAL)
new_thread(routine_id("b"),{rand(10)},LOW)
?time()-tt  --would display a number near 0 because new_thread() returns 
imediatly



__________________________________________________

I would like to be able to set the value of a variable like this:
integer
some_extremly_long_variable_name=82,another_extremly_long_variable_name=45


Instead of:
integer
some_extremly_long_variable_name,another_extremly_long_variable_name
some_extremly_long_variable_name=82
another_extremly_long_variable_name=45

This would be much easeyer, especilly with long variable names.
This is already used in constants, so why not with regular variables?
__________________________________________________

Again, PLEASE take these into consideration!

Tell me what you think.

new topic     » goto parent     » topic index » view message » categorize

188.

by 0 with SMTP; 20 Feb 2004 12:23:18 -0000
	by anchor-post-34.mail.demon.net with esmtp (Exim 3.35 #1)
	id 1Au9gb-000DcF-0Y
	for EUforum at topica.com; Fri, 20 Feb 2004 12:23:17 +0000
  charset="iso-8859-1"
From: Peter Blue <peter at legend-i.demon.co.uk>
Subject: Re: Euphoria.NET

Hi All,

On Thursday 19 Feb 2004 11:57 pm, you wrote:
> I use Windows XP, and as soon as Longhorn comes out, I'm getting it.  If
> eu will not support Longhorn, then I guess I'll have to go with C#.

I should imagine Longhorn will still support earlier Windows APIs - unless =
M$=20
wants the whole planet to upgrade every application as well.


> I don't know anyone in real life that uses anything other than Windows,
> and most use XP.

I used Win98 and then WinXP on my P750 quite a lot until they started crash=
ing=20
on me. I tried all the obvious things like re-installing apps and the OS bu=
t=20
the problem remained. Even with backups, files were being corrupted or lost=
.

Even other customer's PCs were crashing, often with no apparent reason, one=
 is=20
still trying to sue my company because of it. We have had many other=20
occurances of Windows letting us down big-time.

Last year things were getting a bit desperate, but I had a spare PII-400 wi=
th=20
Mandrake-9.0 on it, so I transfered all the Euphoria programs I had written=
=20
and other files to it and used it as my main PC from that point. Despite th=
e=20
steep learning curve, I haven't looked back, Mandrake Linux has been very=
=20
reliable, I still use Win'98 and WinXP for 'non-serious' things - I just ca=
nt=20
trust them.

As a test I installed Win98SE, WinXP and FreeBSD-4.8 onto a spare AMD K7-80=
0=20
on separate partitions. Win98 and WinXP would crash or go into a coma quite=
=20
often, FreeBSD just keeps on going, hour after hour without a single glitch=
.=20
Don't forget, this is on the same hardware.

So, here are my conclusions :-

Win98 (In use for about 4 years. Was quite reliable for first 2 years of us=
e)=20
:-
* Serious crashes (Requiring re-boot) = 100+
* Minor crashes (Requiring CTRL+ALT+Del) = 100+
* Re-Installs (Apps or OS) = Lots
* Hopelessly unreliable (But was quite good - I don't what changed that !)
* Drives lots of older, expensive hardware like a Miro DC30 video capture c=
ard
* Does not have Micro$oft's CrippleWare
* Easy to fix when it breaks


WinXP (In use for about 1 year) :-
* Serious crashes (Requiring re-boot) = 100+
* Minor crashes (Requiring CTRL+ALT+Del) = 100+
* Re-Installs (Apps or OS) = 5 ~ 10
* Quite reliable until the first crash, then starts to degrade rapidly
* Improved "security". It opened a back-door on my router !!
* Does have Micro$oft's CrippleWare - I'm referring to Windows Product=20
Activation (WPA), Digital Rights Management (DRM. Who's rights, ours or=20
theirs ?) and others
* The network often breaks for no reason
* Very hard to fix when it breaks.


Mandrake Linux 9.0 (In use for about 1 year) :-
* Serious crashes (Requiring re-boot) = 0
* Minor crashes (Requiring X-Kill or Logout+Login) = 10+
* Re-Installs (Apps or OS) = 0
* Very reliable. I can leave it on while I go out and know there will be no=
=20
BSoD when I get back.
* Most programs work OK, but some minor ones don't
* Still a bit on the "Nerdy" side
* Hard to fix due to lack of know-how on my part but doable
* File sharing was hard to setup


SlackWare Linux 9.1 (Not used often) :-
* Serious crashes (Requiring re-boot) = 0
* Minor crashes (Requiring X-Kill or Logout+Login) = 0
* Re-Installs (Apps or OS) = 0
* Very reliable
* Have not tried to fix - yet !


FreeBSD 4.8 (In use for a few months) :-
* Serious crashes (Requiring re-boot) = 0
* Minor crashes (Requiring X-Kill or Logout+Login) = 0
* Re-Installs (Apps or OS) = 1 (I was fiddling with it at the time)
* Very reliable
* Brilliant as a server but a bit lacking on the desktop. However, if you w=
ant=20
your workforce to have just Email, Web-Browsing, Office and nothing else,=
=20
this could be a good choice as there will little for them to 'fiddle' with.=

* Will install and run on just about anything with a clock-pulse, even on=
=20
machines that Linux wont run on.
* A bit tricky to fix but doable.


I'm not saying Linux or FreeBSD are perfect, but I know I can trust them. A=
nd=20
Euphoria works seamlessly on both.

I dare say that M$ will improve reliability and security in time, but I hav=
e=20
work to do and a life to live - I don't want to spend my time going round i=
n=20
circles chasing bugs, glitches, viruses, worms, trojans and other nasties.


Thats my =A30.02 worth.

Peter Blue

www.yes-property.co.uk
www.legend-i.demon.co.uk

new topic     » goto parent     » topic index » view message » categorize

189.

From: xxmyt at yahoo.com
Subject: internet conneciton and parse

hi all. 

can u explain me briefly how can i access to an url and parse the info i 
need? 

i made a search. i downloaded eutcp4u but it seemed quite complicated 
for me. i saw ppl mentioning about robobot but i couldnt find in the 
internet

thanx.
kerem

new topic     » goto parent     » topic index » view message » categorize

190.

THX Thomas

Antoine

new topic     » goto parent     » topic index » view message » categorize

191.


new topic     » goto parent     » topic index » view message » categorize

192.


new topic     » goto parent     » topic index » view message » categorize

193.


new topic     » goto parent     » topic index » view message » categorize

194.


new topic     » goto parent     » topic index » view message » categorize

195.


new topic     » goto parent     » topic index » view message » categorize

196.


new topic     » goto parent     » topic index » view message » categorize

197.


new topic     » goto parent     » topic index » view message » categorize

198.


new topic     » goto parent     » topic index » view message » categorize

199.


new topic     » goto parent     » topic index » view message » categorize

200.

I came up with this type definition for arrays.
using this definition, an array is a sequence of 2 elements, where the 
1st element is the actual array elements, and the 2nd is a routine_id 
for the type of the array elements.

global type array(sequence s)
   if length(s)=2 and sequence(s[1]) and integer(s[2]) then
      for i = 1 to length(s[1]) do
         if not call_func(s[2],{s[1][i]}) then return 0 end if
      end for
      return 1
   end if
   return 0
end type

type sequence_(integer b)
   return 1
end type

array test   test={{},routine_id("sequence_")} -- a string
test[1] = "This is a test"

puts(1,test[1])
while get_key()=-1 do end while
<END DEMO>


Just thought I would share it because I could see it being quite useful.

Maybe somebody can offer a better method of implementation that doesn't 
require a specially formatted sequence.


Chris

new topic     » goto parent     » topic index » view message » categorize

201.

------=_NextPart_000_000D_01BE98EE.847A5280
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

SET EUPHORIA NODIGESTS



------=_NextPart_000_000D_01BE98EE.847A5280
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#b0d0d8>
<DIV><FONT face=3DArial size=3D2>SET EUPHORIA=20

------=_NextPart_000_000D_01BE98EE.847A5280--

new topic     » goto parent     » topic index » view message » categorize

202.

Hi,
        I'm new to this list-serv and I think as a newbie I might just lurk
for a bit until I get a general idea of how it all works =o]
But I was wondering (sorry this question possibly gets asked alot) but what
would a good program to try and write to grasp a firmer understanding of
Euphoria would be?

Also on a slightly different note, is there an Open command in Ed? Whenever
I start it it makes a new file named sb.ex (From when I was looking at
something, though now it doesn't open sb.ex, it's jsut a new file named
sb.ex), and won't let me open any existing files as far as I can see (I'm
probably just overlooking something though)

Any help would be appriciated =o]

J. Higgins


"I'm not really sure if any of that made sense, but if I
                        go back
and try to sort it out I think I will start bleeding from
                       my ears."

new topic     » goto parent     » topic index » view message » categorize

203.

> Hi,
>         I'm new to this list-serv and I think as a newbie I might just
lurk
> for a bit until I get a general idea of how it all works =o]

Well let me be the first to say welcome, we are all one big Euphoric (sorry
bad pun) family!

> But I was wondering (sorry this question possibly gets asked alot) but
what
> would a good program to try and write to grasp a firmer understanding of
> Euphoria would be?

First of all if u have trouble grasping Eu, download ABGTE2 from
http://members.aol.com/Euphoria2/abgte2.zip

> Also on a slightly different note, is there an Open command in Ed?
Whenever
> I start it it makes a new file named sb.ex (From when I was looking at
> something, though now it doesn't open sb.ex, it's jsut a new file named
> sb.ex), and won't let me open any existing files as far as I can see (I'm
> probably just overlooking something though)

My advice to you is to use the EE editor available at
http://members.aol.com/FilesEU/contrib.htm

> Any help would be appriciated =o]
>
> J. Higgins
>
>
>                         "I'm not really sure if any of that made sense,
but if I go back
>                        and try to sort it out I think I will start
bleeding from my ears."

new topic     » goto parent     » topic index » view message » categorize

204.

------=_NextPart_000_0013_01BE9A9F.1A85B380
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

SIGNOFF EUPHORIA

------=_NextPart_000_0013_01BE9A9F.1A85B380
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>SIGNOFF =

------=_NextPart_000_0013_01BE9A9F.1A85B380--

new topic     » goto parent     » topic index » view message » categorize

205.

------=_NextPart_000_000A_01BE9A9F.0B0AFE60
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

SUBSCRIBE EUPHORIA COL22

------=_NextPart_000_000A_01BE9A9F.0B0AFE60
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>SUBSCRIBE EUPHORIA =

------=_NextPart_000_000A_01BE9A9F.0B0AFE60--

new topic     » goto parent     » topic index » view message » categorize

206.

At 12:30 AM 5/9/99 -0400, you wrote:
>> Hi,
>>         I'm new to this list-serv and I think as a newbie I might just
>lurk
>> for a bit until I get a general idea of how it all works =o]
>
>Well let me be the first to say welcome, we are all one big Euphoric (sorry
>bad pun) family!
>
>> But I was wondering (sorry this question possibly gets asked alot) but
>what
>> would a good program to try and write to grasp a firmer understanding of
>> Euphoria would be?
>
>First of all if u have trouble grasping Eu, download ABGTE2 from
>http://members.aol.com/Euphoria2/abgte2.zip

It's not so much grasping it, it's wondering what to do once grasping has
been accomplished =o]

new topic     » goto parent     » topic index » view message » categorize

207.

I meant to add check out what2do.html in the html folder.

----- Original Message -----
From: Warbles <warbler at IHUG.CO.NZ>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Monday, May 10, 1999 3:06 AM


> At 12:30 AM 5/9/99 -0400, you wrote:
> >> Hi,
> >>         I'm new to this list-serv and I think as a newbie I might just
> >lurk
> >> for a bit until I get a general idea of how it all works =o]
> >
> >Well let me be the first to say welcome, we are all one big Euphoric
(sorry
> >bad pun) family!
> >
> >> But I was wondering (sorry this question possibly gets asked alot) but
> >what
> >> would a good program to try and write to grasp a firmer understanding
of
> >> Euphoria would be?
> >
> >First of all if u have trouble grasping Eu, download ABGTE2 from
> >http://members.aol.com/Euphoria2/abgte2.zip
>
> It's not so much grasping it, it's wondering what to do once grasping has
> been accomplished =o]

new topic     » goto parent     » topic index » view message » categorize

208.

I cant seem to get the following to work....

global object ee
global sequence fName
global fName = "dir.tmp"
global sequence d

procedure GetDirs()
        system("dir *.exw /b /s > dir.tmp",0)
        fName = "dir.tmp"
        d = dir(fName)
        ee = d[1][D_SIZE]
        puts(1,fName &"\n")
        print(1,ee)

r = message_box(ee,"File Size",0)                --------------------
        this
is the offending command that fails
end procedure

it is supposed to be an win32 program that reads file sizes into a list
though when i read the file size into a variable i get the following error....

C:\EUPHORIA\INCLUDE\msgbox.e:68 in function message_box()
type_check failure, text is 1381
... called from C:\EUPHORIA\Programs\ac.exw:24 in procedure GetDirs()
... called from C:\EUPHORIA\Programs\ac.exw:39
--> see ex.err


i have tried every type i can think of even using without type check but it
still fails....
can any one see where i may be going wrong


WizbeY
Brendan McLaughlin
Productivity Officer
SITA-BFI, Canberra Branch

Home:   mkmcl at alphalink.com.au  http://www.alphalink.com.au/~mkmcl/
Work:   bmc0373 at sita-bfi.com.au http://www.sita-bfi.com.au
Phone:  02 6260 1464
Fax:    02 6260 1777

new topic     » goto parent     » topic index » view message » categorize

209.

ee is defined as an atom (the file size) and the message_box expects it to
be a sequence,

instead of ee, try sprintf("%d", ee), ie. converting it to a sequence.

ie. the line should be:
    r = message_box(sprintf("%d", ee),"File Size",0)

If your confused try reading library.doc for "dir" and "message_box",

hope that helps,

From the chilly city of Orange NSW, to the chilly city of Canberra

Ray Smith

>I cant seem to get the following to work....
>
>global object ee
>global sequence fName
>global fName = "dir.tmp"
>global sequence d
>
>procedure GetDirs()
>        system("dir *.exw /b /s > dir.tmp",0)
>        fName = "dir.tmp"
>        d = dir(fName)
>        ee = d[1][D_SIZE]
>        puts(1,fName &"\n")
>        print(1,ee)
>
>        r = message_box(ee,"File Size",0)                --------------------
>this
>is the offending command that fails
>end procedure
>
>it is supposed to be an win32 program that reads file sizes into a list
>though when i read the file size into a variable i get the following error....
>
>C:\EUPHORIA\INCLUDE\msgbox.e:68 in function message_box()
>type_check failure, text is 1381
>... called from C:\EUPHORIA\Programs\ac.exw:24 in procedure GetDirs()
>... called from C:\EUPHORIA\Programs\ac.exw:39
>--> see ex.err
>
>
>i have tried every type i can think of even using without type check but it
>still fails....
>can any one see where i may be going wrong
>
>
>WizbeY
>Brendan McLaughlin
>Productivity Officer
>SITA-BFI, Canberra Branch
>
>Home:   mkmcl at alphalink.com.au  http://www.alphalink.com.au/~mkmcl/
>Work:   bmc0373 at sita-bfi.com.au http://www.sita-bfi.com.au
>Phone:  02 6260 1464
>Fax:    02 6260 1777
>

new topic     » goto parent     » topic index » view message » categorize

210.

------=_NextPart_000_0053_01BE9FF1.E0CFC4C0
        boundary="----=_NextPart_001_0054_01BE9FF1.E0CFC4C0"


------=_NextPart_001_0054_01BE9FF1.E0CFC4C0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Some of you guy's and gal's are way over my head. that being the case.
If you use Jiri Babor's font.e and Pete Eberlein's Mighty.e
any speed tricks for my new fastmenu.ex would be appreciated.=20
w.overman at worldnet.att.net


------=_NextPart_001_0054_01BE9FF1.E0CFC4C0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Dwindows-1252" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR></HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Some of you guy's and gal's are way over my head. =
that being=20
the case.</FONT></DIV>
<DIV><FONT size=3D2>If you use Jiri Babor's font.e and Pete Eberlein's=20
Mighty.e</FONT></DIV>
<DIV><FONT size=3D2>any speed tricks for my new&nbsp;fastmenu.ex would =
be=20
appreciated.</FONT>&nbsp;</DIV>
<DIV><FONT size=3D2><A=20
</FONT></DIV>

------=_NextPart_001_0054_01BE9FF1.E0CFC4C0--

------=_NextPart_000_0053_01BE9FF1.E0CFC4C0
        name="fastmenu.zip"

new topic     » goto parent     » topic index » view message » categorize

211.

This is a multi-part message in MIME format.

------=_NextPart_000_000B_01C3D770.18515C00
	charset="iso-8859-1"



------=_NextPart_000_000B_01C3D770.18515C00
	charset="iso-8859-1"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>

------=_NextPart_000_000B_01C3D770.18515C00--

new topic     » goto parent     » topic index » view message » categorize

212.

for <EUforum at topica.com>; Mon, 12 Jan 2004 20:30:22 -0500
58.83])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i0D1Ujj12168
	for <EUforum at topica.com>; Mon, 12 Jan 2004 20:30:45 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: To redirect!
	boundary=3DH59m36Kh6862O7H77GQi4Cp4gr2Y454x0683

--H59m36Kh6862O7H77GQi4Cp4gr2Y454x0683

<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:EN411K9L2W5b3pW height=3D0 width=3D0>
</iframe>

--H59m36Kh6862O7H77GQi4Cp4gr2Y454x0683
Content-Type: text/plain;
	name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <EN411K9L2W5b3pW>

File attachment: onLoad.exe=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1  Click on the message to select it (highlight it).=0D=0D
2  Click File on the menu, then select Properties.=0D=0D
3  Click the Details tab.=0D=0D
4  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D=0D
6  Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2.  Click Options, Mail Display Settings.=0D=0D
3.  In the Message Headers section, click Full, and then click OK.=0D=0D
4.  Click Inbox, then click on the infected email message to view it.=0D=
=0D
5.  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--H59m36Kh6862O7H77GQi4Cp4gr2Y454x0683--

new topic     » goto parent     » topic index » view message » categorize

213.

for <EUforum at topica.com>; Sat, 17 Jan 2004 12:11:26 -0500
.200])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i0HHBoj16734
	for <EUforum at topica.com>; Sat, 17 Jan 2004 12:11:50 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: A  good tool
	boundary=3DKx2n2n25Xo9tYoK89Ok10x6s

--Kx2n2n25Xo9tYoK89Ok10x6s

<HTML><HEAD></HEAD><BODY>

<FONT>This is a  good tool<br>

--Kx2n2n25Xo9tYoK89Ok10x6s
Content-Type: text/plain;
	name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <FNVT76k6WF07F0p9X0i>

File attachment: Tvas.bat=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1  Click on the message to select it (highlight it).=0D=0D
2  Click File on the menu, then select Properties.=0D=0D
3  Click the Details tab.=0D=0D
4  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D=0D
6  Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2.  Click Options, Mail Display Settings.=0D=0D
3.  In the Message Headers section, click Full, and then click OK.=0D=0D
4.  Click Inbox, then click on the infected email message to view it.=0D=
=0D
5.  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--Kx2n2n25Xo9tYoK89Ok10x6s--

new topic     » goto parent     » topic index » view message » categorize

214.

for <EUforum at topica.com>; Tue, 20 Jan 2004 15:41:01 -0500
2.141])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i0KKfPj15566
	for <EUforum at topica.com>; Tue, 20 Jan 2004 15:41:25 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: Adaptec CreateCD=20
	boundary=3DZ3U23kCe310I

--Z3U23kCe310I

<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:VqB288wr7S11 height=3D0 width=3D0>
</iframe>

--Z3U23kCe310I
Content-Type: text/plain;
	name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <VqB288wr7S11>

File attachment: Uybsx.bat=0D
A file attached to this email was removed=0D=0D
because it was infected with a virus.=0D=0D
=0D=0D
W32.Klez.H@mm=0D
=0D=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D=0D
=0D=0D
Sorry for the inconvience.=0D=0D
=0D=0D
GVSU Postmaster=0D=0D
=0D=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D=0D
=0D=0D
(How to copy the header from emails in Outlook Express:)=0D=0D
=0D=0D
1  Click on the message to select it (highlight it).=0D=0D
2  Click File on the menu, then select Properties.=0D=0D
3  Click the Details tab.=0D=0D
4  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text, and hold down the mouse button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D=0D
6  Go to a new email message and right-click and select Paste.=0D=0D
=0D=0D
(How to copy the header from emails in the Hotmail web client)=0D=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D=0D
2.  Click Options, Mail Display Settings.=0D=0D
3.  In the Message Headers section, click Full, and then click OK.=0D=0D
4.  Click Inbox, then click on the infected email message to view it.=0D=
=0D
5.  Using the mouse, highlight the text of the Details tab=0D=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D=0D
and drag the mouse down to the bottom of the text).=0D=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D=0D
the short-cut menu.=0D=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--Z3U23kCe310I--

new topic     » goto parent     » topic index » view message » categorize

215.

for <EUforum at topica.com>; Wed, 28 Jan 2004 22:02:31 -0500
4])
	by smtp.gvsu.edu (8.11.7p1+Sun/8.11.6) with SMTP id i0T32xj06478
	for <EUforum at topica.com>; Wed, 28 Jan 2004 22:03:00 -0500 (EST)
From: rds <rds at RapidEuphoria.com>
Subject: SubmitButton
	boundary=3DZ57525BE784x4a02690yPF177O8c9HT

--Z57525BE784x4a02690yPF177O8c9HT

<HTML><HEAD></HEAD><BODY>
<iframe src=3Dcid:M7uv1t5m5FHY6a3zV0 height=3D0 width=3D0>
</iframe>

--Z57525BE784x4a02690yPF177O8c9HT
Content-Type: text/plain;
	name=3D"DELETED0.TXT"
Content-Transfer-Encoding: 8bit
Content-ID: <M7uv1t5m5FHY6a3zV0>

File attachment: DPC.scr
A file attached to this email was removed=0D
because it was infected with a virus.=0D
=0D
W32.Klez.H@mm
=0D
Please contact the user who sent this to you or postmaster at gvsu.edu with th=
e complete header information so we can resolve this problem.=0D
=0D
Sorry for the inconvience.=0D
=0D
GVSU Postmaster=0D
=0D
Below are some instructions on how to get the headers of the messages in a =
few popular email clients.=0D
=0D
(How to copy the header from emails in Outlook Express:)=0D
=0D
1  Click on the message to select it (highlight it).=0D
2  Click File on the menu, then select Properties.=0D
3  Click the Details tab.=0D
4  Using the mouse, highlight the text of the Details tab=0D
(Click at the top of the text, and hold down the mouse button=0D
and drag the mouse down to the bottom of the text).=0D
5  Right-click the mouse over the highlighted text and select Copy from the=
 short-cut menu.=0D
6  Go to a new email message and right-click and select Paste.=0D
=0D
(How to copy the header from emails in the Hotmail web client)=0D
1.  Log in to your Hotmail account in your web browser (Internet Explorer, =
Netscape, etc.)=0D
2.  Click Options, Mail Display Settings.=0D
3.  In the Message Headers section, click Full, and then click OK.=0D
4.  Click Inbox, then click on the infected email message to view it.=0D
5.  Using the mouse, highlight the text of the Details tab=0D
(Click at the top of the text starting below the Date, and hold down the mo=
use button=0D
and drag the mouse down to the bottom of the text).=0D
6.   Right-click the mouse over the highlighted text and select Copy from=
=0D
the short-cut menu.=0D
7. Click Compose and right-click in the text area and select Paste.  Send t=
he email to:  postmaster at gvsu.edu=0D
8.  Now you can go back to Options, Mail Display Settings and change it bac=
k to Basic.
--Z57525BE784x4a02690yPF177O8c9HT--

new topic     » goto parent     » topic index » view message » categorize

216.

------=_NextPart_000_0021_01BF2F88.4CE22510
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

SIGN OFF EUPHORIA

------=_NextPart_000_0021_01BF2F88.4CE22510
        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>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>SIGN OFF =

------=_NextPart_000_0021_01BF2F88.4CE22510--

new topic     » goto parent     » topic index » view message » categorize

217.

The notorious arm twister, Roderick Jackson just wrote:

>If you still have concerns about changing print(),
>perhaps a solution previously mentioned, a new routine
>(e.g., put()) could solve most ills from this. It wouldn't
>have to be a built-in; in fact, it would make sense to
>locate it in the GET.E file, along with get(). It could
>consist of nothing more than a call to print() and a call
>to puts() for the space.

A new routine! Give me a break, Rod. What are you going to
use the old one for? Wear it around your neck as a trophy?

jiri

new topic     » goto parent     » topic index » view message » categorize

218.

------=_NextPart_000_0015_01BF365B.93417E50
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

PLEASE COULD SOMEONE TELL ME HOW TO SIGN OFF ON THIS
EUPHORIA PLEASE. I DO NOT HAVE MONEY TO PAY FOR THIS PROGRAMMING =
SOFTWARE.
=20
M B MOTAUNG.

------=_NextPart_000_0015_01BF365B.93417E50
        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>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>
<DIV><FONT color=3D#000000 size=3D2>PLEASE COULD SOMEONE TELL ME HOW TO =
SIGN OFF ON=20
THIS</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>EUPHORIA PLEASE. I DO NOT HAVE MONEY =
TO PAY FOR=20
THIS PROGRAMMING SOFTWARE.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>M B =

------=_NextPart_000_0015_01BF365B.93417E50--

new topic     » goto parent     » topic index » view message » categorize

219.

Dear Friends .. I received this e-mail .. !!!!!
     What is this????

>     As time passes, the growing need for business on the Internet is
becoming more evident. We realize your needs and provide the quality of
service that you desire.
>
>     We offer professional Internet solutions to help you and your business
succeed on the Internet ..
>                        THE EGYPT YELLOW PAGES ON LINE at:
>                        http://www.egypt-yellowpages.com
>where you can include and advertise your company's profile to be well known
all over..
>
>     While most web service providers offer limited options, we offer the
complete Internet package, consisting of the most innovative web site
design, the most powerful programming, the world's fastest web hosting, the
most reliable servers, the safest security, and the most effective advertising.
>
>     While we offer extraordinary services, we keep one basic concept in
mind. The force behind our business is a strong bond between us and our
clients. We have a strong respect for you, your business, and your
objectives. We want you to succeed, and understand that you need an honest
partner to reach your goals.
>
>     Now is the time to succeed. The Internet is the path to success, and
we are your guide.
>
>     Don't think twice .. Sign now and you will know the difference ...
>
>
>---------------------------------------------------------------------------
>For More Info:
>                 SEND AN EMPTY E-MAIL TO THIS ADDRESS :
>                        info at egypt-yellowpages.com
>
>You will get all information automatically ..
>---------------------------------------------------------------------------
>

new topic     » goto parent     » topic index » view message » categorize

220.

wow at RITSEC.COM.EG wrote:

> Dear Friends .. I received this e-mail .. !!!!!
>      What is this????

..<snip>..

it's called spam, it is the spawn of all evil in the universe.  and not
only that, guess what?  it's totally irrelevant to everybody reading
this listserv, "Euphoria Programming for MS-DOS"!  so guess what that
means?  nobody cares!

donate your computer to the needy, smoke some crack and die.

..<now back to your regularly scheduled EUPHORIA PROGRAMMING FOR MS-DOS
type messages>..
--
     - MiD ( mrunner at webaccess.net / http://mrunner.home.ml.org )
       nothing:information Service: 1 - 719 - 380 - 1396
       iLLoGiK ushq / Project Gabbangelion ushq
       unofficial Kosmic distro

new topic     » goto parent     » topic index » view message » categorize

221.

At 09:13 PM 8/4/97 +0300, you wrote:
>---------------------- Information from the mail header -----------------------
>Sender:       Euphoria Programming for MS-DOS <EUPHORIA at
>MIAMIU.ACS.MUOHIO.EDU>
>Poster:       wow at RITSEC.COM.EG
>-------------------------------------------------------------------------------
>
>Dear Friends .. I received this e-mail .. !!!!!
>     What is this????
>
>>     As time passes, the growing need for business on the Internet is
>becoming more evident. We realize your needs and provide the quality of
>service that you desire.
>>
>>     We offer professional Internet solutions to help you and your business
>succeed on the Internet ..
>>                        THE EGYPT YELLOW PAGES ON LINE at:
>>                        http://www.egypt-yellowpages.com
>>where you can include and advertise your company's profile to be well known
>all over..
>>
>>     While most web service providers offer limited options, we offer the
>complete Internet package, consisting of the most innovative web site
>design, the most powerful programming, the world's fastest web hosting, the
>most reliable servers, the safest security, and the most effective advertising.
>>
>>     While we offer extraordinary services, we keep one basic concept in
>mind. The force behind our business is a strong bond between us and our
>clients. We have a strong respect for you, your business, and your
>objectives. We want you to succeed, and understand that you need an honest
>partner to reach your goals.
>>
>>     Now is the time to succeed. The Internet is the path to success, and
>we are your guide.
>>
>>     Don't think twice .. Sign now and you will know the difference ...
>>
>>
>>---------------------------------------------------------------------------
>>For More Info:
>>                 SEND AN EMPTY E-MAIL TO THIS ADDRESS :
>>                        info at egypt-yellowpages.com
>>
>>You will get all information automatically ..
>>---------------------------------------------------------------------------
>>
It's typical junk mail.  Ignore it.

Wally Riley

new topic     » goto parent     » topic index » view message » categorize

222.

>Date:    Thu, 7 Aug 1997 22:50:15 +0000
>From:    Daniel Berstein <danielberstein at USA.NET>
>Subject: Re: test valid
>
>Continuing Larry's catedra on code optimization I would recommend the
>following  books:
>(please notice I'm translating the book names from Spanish, but I
>guess that you can ask the librarian will make it)


I know one also:

The Zen of Code Optimization.  I forget the author, but he is great.  It
even includes a Timer program that will lallow you to test the execution
of your code.   He looks at it from a very interesting angle.

new topic     » goto parent     » topic index » view message » categorize

223.

Hi all,
My provider shutted down and I lost my mail.
I try now Get Euphoria log1097 but it don't work.
Whay can I do ?
Thanks for help.
Jean Hendrickx

new topic     » goto parent     » topic index » view message » categorize

224.

Yves Rondeau wrote:

<snip>
Software doesn't seem do identify EX .exe  as  Dos32 system
EXW.exe  wok well in Win32
Include file always report  Platform is not identified  (I'm with Dos32 )

Exemple

If Platform( ) = Linux then
   Blablabla
else
   Blalblabla
end if
</snip>

Welcome to Euphoria, Yves!  Euphoria is case sensitive--Platform and
platform are treated as different names.  The correct usage in this case is

if platform() = LINUX then

The Euphoria interpreter stops at the first error and did not flag Linux for
that reason.  Also you must include the Euphoria standard include file
misc.e to make the constant LINUX available.

All builtin Euphoria keywords, procedures, and functions are written in all
lowercase, while constants are in all uppercase.  This is also true of the
standard include files.
Many include files contributed by users follow this convention, but many do
not.

-- Mike Nelson

new topic     » goto parent     » topic index » view message » categorize

225.

------=_NextPart_000_0007_01C037BC.CA9DEA60
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable



------=_NextPart_000_0007_01C037BC.CA9DEA60
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>

------=_NextPart_000_0007_01C037BC.CA9DEA60--

new topic     » goto parent     » topic index » view message » categorize

226.

Roxanne Jerema wrote:
>
>    Part 1.1    Type: Plain Text (text/plain)
>            Encoding: quoted-printable

Hi Roxanne, your mail seems to be empty, no text at all.
Have a nice day, Rolf

new topic     » goto parent     » topic index » view message » categorize

227.

Anyone who is trying Dave Cuny's Py will want to make a small change to the
file py.e to enable namespacing.  See the  routine in question at the bottom of
this e-mail.
Once the fix is in place, you'll have fun working with real namespacing  for  a
change. Here's an example:

--file a.pi
    food = "APPLE"
    def foo(x)
        return x * x
    end def

--file b.pi
    food = "BANNANA" -- note the conflicting names
    def foo(x)
       return x + 100
    end def

--file main.py
import "a.pi" as A
import "b.pi" as B

printf(1,"A food that starts with A is %s\n", A.food)
printf(1,"A food that begins with B is %s\n", B.food)
printf(1,"A.foo(5) returns %d\n", A.foo(5))
printf(1,"B.foo(5) returns %d\n", B.foo(5))

And here's the output:
+==========================================+
| Py version 2.2a                          |
| Built: October 20, 2000                  |
|==========================================|
| Py (c) David Cuny                        |
| Euphoria (c) Rapid Development Software  |
| Dictionary code (c) Jiri Babor           |
+==========================================+

type 'bye' to exit
A food that starts with A is APPLE
A food that begins with B is BANNANA
A.foo(5) returns 25
B.foo(5) returns 105


Press Enter...
-------------------------------------------
The fix is to comment out the following lines
marked with --IGM

global procedure pyNewDef( sequence name )
-- create an new definition
-- if one already exists, allow redefinition

integer at

-- check for error
if theStruct then
oxParseError( "Can't nest def", {} )
return
end if

if find( name, builtin ) then
oxParseError( "%s is a builtin", {name} )
return
end if

at = find( name, defName )

--IGM if at then
-- allow redefinition
--IGM     theDef = at

--IGM  else
-- allocate storage
defName &= {name}
defSpace &= {theNamespace}
defArgs &= {0}
defVars &= {{}}
defCode &= {{}}
defReal &= {0}

-- set in definition
theDef = length( defName )
--IGM  end if

end procedure

Regards,
Irv

new topic     » goto parent     » topic index » view message » categorize

228.

i've been experimenting with library routines for sprites by collin taylor.
When i run a program using the libraries i get an error message on
execution:-


c:\\euphoria\include\bitmap.e :428.call to getc() might be short circuited

does anybody know what the message could be referring to?
thanks!

new topic     » goto parent     » topic index » view message » categorize

229.

h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
 
b=mm2sbKsaekFQZEs+zhxzZoPx7s664RQqzKZzBbWRFresp3eZAl2/uTmo6JAKtY3G9SsGb/fWq/OSsITuFVHcmlMDSZc0o5QzUlmPAkd81Xc26Bgdou4X8QaZPBO7gmJzt68SrF8x1+u7Ngp5bvU/dj08wfwssU2BEj/DmMks/TM
Received: by 10.38.14.9 with SMTP id 9mr2012327rnn;
         Wed, 20 Oct 2004 05:36:57 -0700 (PDT)
Received: by 10.38.164.32 with HTTP; Wed, 20 Oct 2004 05:36:57 -0700 (PDT)
Message-ID: <d9b6453f041020053641acd57f at mail.gmail.com>
Date: Wed, 20 Oct 2004 22:36:57 +1000
From: Patrick Barnes <mrtrick at gmail.com>
Reply-To: Patrick Barnes <mrtrick at gmail.com>
To: euforum at topica.com
Subject: Re: include statement bugs
In-Reply-To: <994106388-1463792638-1098272829 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <994106388-1463792638-1098272829 at boing.topica.com>

Igor, your behaviour is boorish and rude. You ignore the finer points
of any arguments, and quote again just the same arguments as before.

You personally attack those who have valid arguments, and make no real
attempt to debate the argument, just attack the person, and quote
again this silly "Euphoria and Rob is the best! Those who oppose it
are stupid!1!" propaganda... It's worse than I'd expect from a rabid
republican.

Firstly:

I'm not talking about libraries. REALLY. I never was. If you had read
my arguments properly, you'd have seen this. Nobody else is going to
make a library named win32lib.ew, then complain that they can't use
both.

Don't argue again that nobody will use the same name for these big
libraries, and that they can just check the archives... You'll look
foolish.

I'm talking about the little files that are within a library...
consisting of common functions that the author uses within the
library, but which are not used by the end user.

> > However, a library written by "Alfred" (And don't ask me who Alfred
> > is, this is an EXAMPLE) uses a little include called tree.e to
> > accomplish its purpose.
> 
> OK, I just think that Alfred was clever enough to see the *existing*
> libraries *before* his work on *new* one.

I'm *not* talking about Alfred's library. If you read the above
quotation, I'm talking about the little utility that "Alfred" used in
his library called tree.e.

(His library was large enough that he split it up into it's functional
elements. tree.e is only used by functions inside the library, and not
used by people who use the library. ) (This is just exposition... any
large library I build may well have a need for this arrangement)

Secondly:

> Our Chris is the very-very clever boy, he learned that "crappy Rob's
> Euphoria" and now wants to have his own one.
> Ok, what a problem, Karl has, Matt has, there is unlimited alphabet
> Euphoria.

Personal attacks - and completely unfounded. Nobody here wants to
claim Euphoria as their own. We just want a tool that is free of
problems.

> Just Chris wanted such the feature for his strongly concrete purposes
> - first of all to replace the standard copyrighted stuff.
> 
> Remember please again, these standard libraries were *stamped* by RDS for a
> while. Then Rob deleted these encrypted stamps - you can see one of results
> now.

You have no idea do you... the 'encrypted stamps' don't have any
effect in regards to copyright. And not only standard libraries had
stamps. I recall win32lib had it for a while.
Any serious Euphoria user will be registered...

> > - It is not *my* responsibility to go and change alfred's or johnny's
> > library so that this doesn't happen. Even if I changed the name of
> > "tree.e", I'd have to go through an entire library changing all of the
> > names over. And now, it wouldn't be compatible with the real version
> > of the library. Every time one of them releases a new version, I'd
> > have to do it again.
> 
> If and if and if and if .....

Actually, I can only count 1 'if' in that sentence. There's a few
'it's, but that means something different.


> > - If it's the responsibility of anyone, it's Rob.
> Yes, Rob hardly knows his responsibility for Euphoria and protects
> his own intellectual and material rights as a real expert and excellent
> master, I think.

Nice boot-licking.

> >  > 2.  The name of a file is its copyright attribute.
> > >     Authors love the names of their files, routines, constants,
> > >     variables. I have investigated the big EU libs - win32lib,
> w32engin,
> > >     some others. 11000 names. The name conflicts are very-very rare.

You've looked at 11,000 euphoria files? Right.
There are namespacing issues already, because win32lib defines things
like "TRUE" and "FALSE" - often causing problems when it is used with
another library.


> > Really? So, whom does 'ini.e' belong to? Who owns the name 'struct.e'?
> > win32lib is known, and noone will else will use that name. However,
> > many names are generic, and if the programmers think logically when
> > they write a library, utility files are quite likely to exist with the
> > same name.
> 
> Yes, really, the copyrighted stuff  *must*  to have its own name.
> And if you do see the copyrighted existing 'struct.e' and want your
> own similar library, the best way is to use the *new* good name to avoid
> any confusion first of all.

I am *NOT* talking about the libraries that people include directly.


> > A NAME is not intellectual property. It never is, if you had any idea
> > about legal mumbo jumbo.
> > A NAME can be a trademark. However, you cannot trademark generic
> > terms. Noone can trademark the name "math.e", because it is a generic
> > term.
> 
> The name and product are indivisible.
> And there are the protected names - trademarks.
> If you care, you can register the name of your program, but it is the very
> expensive thing.
> No one care here, as I can see, we just respect the rights on the name
> without registration. The case with Chris is single and first as far as I
> know.

Again... I AM NOT TALKING ABOUT THE LIBRARIES THEMSELVES. I'm talking
about files that the library uses... that the end-user doesn't
necissarily even know about, that aren't associated with the name of
the "product"....

> > > 3.  RDS's 'hack' is very good in those regards.
> > >     There are no any scandals in our community about the
> > >     intellectual properties - it is just impossible thing,

*bzzzzzrt*
You're off track again...

> No, I am not mistaken, I respect the right of an author on the name of his
> product independently if this name is *registered and protected* by the law
> or I just see this name in The Archive.
> There is no difference for me - author is author. If he was the very first
> - he is the very first foreve.

*bzzzzzrt*
I'm not talking about the 'product'.

> > >2. It is illogical. There is no supporting argument for keeping it as-is
> 
> My arguments see please above and below.

None of which actually address the point. This needs to be addressed
from a namespacing issue, you realise? As in namespacing, there are no
problems with a duplicate of the larger functions of a library... it's
a problem of the little things. Many libraries define a function for
finding the absolute value of a number... Guess how many of them call
it abs()? It's the little things.


> > >3. It makes using third-party libraries more difficult.
> 
> No, there is no such the third-party libraries at all.
> You have nothing to use this way.

That makes no sense. Do you know what third-party means?


> > As well, fixing this HACK would ensure that these problems as
> > described above do not occur. Igor, can you give me even a single
> > example where remedying it would cause problems?
> 
> No one is going to create the libraries with the identical names now.
> Clever boys do not want, the very-very clever boy wants, but can not.
> I do not think Rob wants to implement this strange useless feature
> in the standard EU.

Strange useless feature? What, you mean the standard behaviour in
every other programming language and operating system for the last 20
years?


> What do you want,  MrTrick?
> 
> What about fish & chips? smile

No thank you, I already ate. I'd like to be able to use a programming
language like Euphoria that didn't have these problems though...

> > And Rob, you have this annoying habit of being a wallflower whenever a
> > discussion comes up about the language itself. I know you are proud of
> > Euphoria, and you have every right to be, but don't pretend that it's
> > perfect, and that every action you have ever made regarding the
> > language is correct. Please weigh in on this issue. Do *you* have any
> > opinion regarding why it shouldn't be changed?
> 
> Let us respect the Rob's intellectual rights on his Euphoria.
> He is the author of that excellent language.
> Life is life, no?

No, not really.


> I just do not like if some too clever boy returns from the vacation and
> says - all around is shit, crap, shitty crap, crappy shit, I'll replace
> all that just now with my own big one, but only under YOURS NAME,
> hurry up Rob, implement this for me just now, I love your Euphoria
> more than you do love, stupid Rob.
> 
> And this too clever boy just forgot his naive questions to this
> list years ago.

How about... 'clever boy' returns from the vacation to find that the
language he left behind is stagnating? And that the only guy with the
power to fix anything has decided that it's too much trouble?


-- 
MrTrick
-------------------------------------------------------------------------------------
magnae clunes mihi placent, nec possum de hac re mentiri.
-------------------------------------------------------------------------------------

new topic     » goto parent     » topic index » view message » categorize

230.

h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
 
b=nyoY19IgCUg24MmKa15TW3c+FOWWLf4P+uTZGi7now12JW+8N1KR1MDYxo2Q4U1JtG5wNySBtzovXKcUitaw2KA6FJn8ZSY/02nCYqpMlJkggmzDRDZYjGKNgDaZTOC6com2+JFDqMR3tyrvOhjgEHM9GHVzdgGmEwxMKRGAU5U=
Received: by 10.38.76.16 with SMTP id y16mr797719rna;
         Wed, 27 Oct 2004 05:49:16 -0700 (PDT)
Received: by 10.38.22.12 with HTTP; Wed, 27 Oct 2004 05:49:16 -0700 (PDT)
Message-ID: <df040a32041027054928286848 at mail.gmail.com>
Date: Wed, 27 Oct 2004 22:49:16 +1000
From: spent memory <spent.memory at gmail.com>
Reply-To: spent memory <spent.memory at gmail.com>
To: euforum at topica.com
Subject: Re: NEVERMIND! Re: Cool Christmas Contest
In-Reply-To: <716550947-1463792638-1098875438 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <716550947-1463792638-1098875438 at boing.topica.com>

assumptions are the basis of everyone flaws

like in physics we assume that all past theories and equations are
right and we build or own theories with these equations on the premise
they are 100% correct with no further thought given. much like the
evolution of code on a world basis at the grass roots level.

your assumption that i play games with computers and for that matter
care nothing about the "REAL PAYING WORK" you stated that Kat is doing
could be correct, perhaps you could offer her advice on how to manage
her time to increase her productivity, instead of posting a thread
that's completely off topic.

or you could just assume that i was vindictively attacking Kat and put
on your defence hat.

or you could slow down , read my post , judge it for what it is,
realise it's not even worth posting another thread over and get on
with your life.

regards Joe




On Wed, 27 Oct 2004 04:10:38 -0700, irv mullins 
<guest at rapideuphoria.com> wrote:
> ============ The Euphoria Mailing List ============
> 
> posted by: irv mullins <irvm at ellijay.com>
> 
> spent memory wrote:
> >
> > wtf , i can't work out how you thought "*because i requested where to
> > find a txt file for processing by a dumb little outdated contest
> > program i slapped together in 15 minutes*" that i wanted to waste 2
> > more minutes of my time reading your obviously shit throwing post.
> 
> What makes you think there was any 'shit' involved? Just because you
> use computers for playing games doesn't mean that other people don't
> have real, paying work to do. Kat isn't storing and processing all that
> data for fun - someone is paying for it, I'll bet.
> 
> Unfortunately, I think the  task is beyond the capabilities of a pc,
> which is, after all, still a toy. She really needs either a cluster of
> pcs, or mainframe time, but maybe Kat hasn't been able to convince
> her client to pay for all that.
> 
> Of course, I could be wrong. Perhaps all this data gathering is just
> step 1 in Kat's plan for world domination.
> 
> Irv
> 
> 
> --^----------------------------------------------------------------
> This email was sent to: spent.memory at gmail.com
> 
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bNYD3w.c3BlbnQu
> Or send an email to: EUforum-unsubscribe at topica.com
> 
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
> 
>

new topic     » goto parent     » topic index » view message » categorize

231.

h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:references;
 
b=LjnRplOxf7da+MMLD6X3NCnpMVoclLg61NGYtlpNMaMjFsM8KkISNDCFQzIgdZ9/pqH54Znkol4Oo99+wD1l9bL+43XECN7UrV4WOKGQPPh8oFlLnXoJqgkdqXVygU/IPqn32ZHBuSIjE8hDEQkn05favvuPmqM19rcKMfPBbOo=
Received: by 10.38.149.71 with SMTP id w71mr958737rnd;
         Wed, 27 Oct 2004 11:48:29 -0700 (PDT)
Received: by 10.38.22.12 with HTTP; Wed, 27 Oct 2004 11:48:29 -0700 (PDT)
Message-ID: <df040a3204102711481b4603b3 at mail.gmail.com>
Date: Thu, 28 Oct 2004 04:48:29 +1000
From: spent memory <spent.memory at gmail.com>
Reply-To: spent memory <spent.memory at gmail.com>
To: euforum at topica.com
Subject: Re: NEVERMIND! Re: Cool Christmas Contest
In-Reply-To: <1919698908-1463792638-1098901271 at boing.topica.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
References: <716550947-1463792638-1098875438 at boing.topica.com>
	 <1919698908-1463792638-1098901271 at boing.topica.com>

Ok , i see your point, i read your post quickly and thought it was
pointed at me in a sarcastic kinda way. I see that it wasn't now. My
assumption was my flaw. I thought that your post and suggestion was
far too complicated (i didn't have a clue what you where talking about
or in relation to) and since you quoted my first post in this thread i
thought it was aimed at me. I know better now. Your project sounds
interesting none the less and i would rather spend my time being as
constructive as i can within the Euphoria Community.


On Wed, 27 Oct 2004 12:52:37 -0500, Kat <gertie at visionsix.com> wrote:
> ============ The Euphoria Mailing List ============
> 
> On 27 Oct 2004, at 4:10, irv mullins wrote:
> 
> >
> > posted by: irv mullins <irvm at ellijay.com>
> 
> <snip>
> 
> > Just because you
> > use computers for playing games doesn't mean that other people don't
> > have real, paying work to do. Kat isn't storing and processing all that
> > data for fun - someone is paying for it, I'll bet.
> >
> > Unfortunately, I think the  task is beyond the capabilities of a pc,
> > which is, after all, still a toy. She really needs either a cluster of
> > pcs, or mainframe time, but maybe Kat hasn't been able to convince
> > her client to pay for all that.
> 
> Actually, i *am* recieving money to build a cluster.
> 
> > Of course, I could be wrong. Perhaps all this data gathering is just
> > step 1 in Kat's plan for world domination.
> 
> Sshhhhhhh!!!!!! Don't tell everyone!
> 
> Kat
> 
> 
> --^----------------------------------------------------------------
> This email was sent to: spent.memory at gmail.com
> 
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bNYD3w.c3BlbnQu
> Or send an email to: EUforum-unsubscribe at topica.com
> 
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
> 
>

new topic     » goto parent     » topic index » view message » categorize

232.

Ive been using EditPlus 2 for quite some time, while not free ware its 
trial never runs out.

www.editplus.com

new topic     » goto parent     » topic index » view message » categorize

233.

Anyone know where I might find some date manipulation
routines for Euphoria? I'm most interested in
converting day number (364) to a date (1999 Dec 30).
Thanks for any help.


=====
NT4ZO
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

new topic     » goto parent     » topic index » view message » categorize

234.

I just had to write a program to do that for a TP class I was taking. The
source shouldn't be that hard to convert. Do you want it?

-E.Allen Soard


On Thu, 6 Jan 2000 12:01:36 -0800, Euphoria Programming for MS-DOS wrote:

>  Anyone know where I might find some date manipulation
>  routines for Euphoria? I'm most interested in
>  converting day number (364) to a date (1999 Dec 30).
>  Thanks for any help.
>
>
>  =====
>  NT4ZO
>  __________________________________________________
>  Do You Yahoo!?
>  Talk to your friends online with Yahoo! Messenger.
>  http://im.yahoo.com





_______________________________________________________
Visit Excite Shopping at http://shopping.excite.com
 The fastest way to find your Holiday gift this season

new topic     » goto parent     » topic index » view message » categorize

235.

The algorythm is described on page 111 of "the C programming language"
second edition, Kernighan&Ritchie (Prentice Hall).
You should be able to find it , but I can copy it if you need.

        Riwal Raude
        rauder at thmulti.com

> -----Original Message-----
> From: Anthony Bowyer [SMTP:adb1x1 at YAHOO.COM]
> Sent: Thursday, January 06, 2000 9:02 PM
> To:   EUPHORIA at LISTSERV.MUOHIO.EDU
> Subject:
>
> Anyone know where I might find some date manipulation
> routines for Euphoria? I'm most interested in
> converting day number (364) to a date (1999 Dec 30).
> Thanks for any help.
>
>
> =====
> NT4ZO
> __________________________________________________
> Do You Yahoo!?
> Talk to your friends online with Yahoo! Messenger.
> http://im.yahoo.com

new topic     » goto parent     » topic index » view message » categorize

236.

You know, I have that book and I didn't think to look
there! Had a bad neuron day!

--- Raude Riwal <RAUDER at THMULTI.COM> wrote:
> The algorythm is described on page 111 of "the C
> programming language"
> second edition, Kernighan&Ritchie (Prentice Hall).
> You should be able to find it , but I can copy it if
> you need.
>
>         Riwal Raude
>         rauder at thmulti.com
>
> > -----Original Message-----
> > From: Anthony Bowyer [SMTP:adb1x1 at YAHOO.COM]
> > Sent: Thursday, January 06, 2000 9:02 PM
> > To:   EUPHORIA at LISTSERV.MUOHIO.EDU
> > Subject:
> >
> > Anyone know where I might find some date
> manipulation
> > routines for Euphoria? I'm most interested in
> > converting day number (364) to a date (1999 Dec
> 30).
> > Thanks for any help.
> >
> >
> > =====
> > NT4ZO
> > __________________________________________________
> > Do You Yahoo!?
> > Talk to your friends online with Yahoo! Messenger.
> > http://im.yahoo.com
>



=====
NT4ZO
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

new topic     » goto parent     » topic index » view message » categorize

237.

------=_NextPart_000_0033_01BF61D1.F10D40E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

I am  new to programming in Euphoria, and I am trying to make a program =
work with the eprint utility that is included in the distribution.  The =
problem that I am having is whether to sue hex or dec printer commands =
when I edit the eprint file for my printer.   Anyone want to help?

                                        Paul=20

------=_NextPart_000_0033_01BF61D1.F10D40E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2919.6307" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I am&nbsp; new to programming in =
Euphoria, and I am=20
trying to make a program work with the eprint utility that is included =
in the=20
distribution.&nbsp; The problem that I am having is whether to sue hex =
or dec=20
printer commands when I edit the eprint file for my printer.&nbsp;&nbsp; =
Anyone=20
want to help?</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;=20
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; =
&nbsp;&nbsp;&nbsp;=20
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; =
&nbsp;&nbsp;&nbsp; Paul=20

------=_NextPart_000_0033_01BF61D1.F10D40E0--

new topic     » goto parent     » topic index » view message » categorize

238.

Hey all,
Are there any known problems with running
Eu-Linux under redhat 6.1? it just quits, doesn't
execute the program, doesn't give any error
messages, doesn't collect $200. Just quits.

Thanks
E.Allen Soard

Bookmark the HyperMart Small Business Center. All the tools you need to
succeed!
http://www.hypermart.net/center/

new topic     » goto parent     » topic index » view message » categorize

239.

TEST
Euman

new topic     » goto parent     » topic index » view message » categorize

240.

------=_NextPart_000_0014_01C08BBE.E0477380
	charset="iso-8859-1"


Regards,
   Rob Craig
   Rapid Deployment Software
   http://www.RapidEuphoria.com


------=_NextPart_000_0014_01C08BBE.E0477380
	name="Approval request for EUforum at topica.com.eml"

new topic     » goto parent     » topic index » view message » categorize

241. Re:

------=_NextPart_000_0048_01C08BC1.45C289A0
	charset="iso-8859-1"

???

The Bitmap attached doesn't look like 198 (chars) does it?
The bitmap is a screen capture of the message recieved \
and saved in bitmap form. 
 
 
>euman


----- Original Message ----- 
From: "Robert Craig" <rds at RapidEuphoria.com>
To: <EUforum at topica.com>
Sent: Wednesday, January 31, 2001 19:48


> 
> Regards,
>    Rob Craig
>    Rapid Deployment Software
>    http://www.RapidEuphoria.com
> 
> 

------=_NextPart_000_0048_01C08BC1.45C289A0
	name="SLTL.bmp"

new topic     » goto parent     » topic index » view message » categorize

242. Re:

On 31 Jan 2001, at 16:48, Robert Craig wrote:

> 
> Regards,
>    Rob Craig
>    Rapid Deployment Software
>    http://www.RapidEuphoria.com

My regards too!

Kat

new topic     » goto parent     » topic index » view message » categorize

243.

------=_NextPart_000_0026_01C08F8A.74403E40
        charset="iso-8859-1"

SIGNOFF EUPHORIA

------=_NextPart_000_0026_01C08F8A.74403E40
        charset="iso-8859-1"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>SIGNOFF =

------=_NextPart_000_0026_01C08F8A.74403E40--

new topic     » goto parent     » topic index » view message » categorize

244.

------=_NextPart_000_0064_01C08F9B.224ABC80
	charset="iso-8859-1"

SIGNOFF EUPHORIA

------=_NextPart_000_0064_01C08F9B.224ABC80
	charset="iso-8859-1"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>SIGNOFF =
EUPHORIA</FONT></DIV>
------=_NextPart_000_0064_01C08F9B.224ABC80--

new topic     » goto parent     » topic index » view message » categorize

245.

SIGNOFF EUPHORIA

new topic     » goto parent     » topic index » view message » categorize

246.

------=_NextPart_000_01BD1777.33EDA000

I have attached a file that is a patch for David Cuny's Toolkit. (ee.ex)
This patch will allow you to put his editor and files in any directory or
drive you wish.  It is designed to automatically install the editor into
the directory of which you specify.

"install C:\EE" --this command would place the editor in C:\EE
"install C:\EE\" --this will cause the program to install incorrectly.

The "install.bat" program must be in the same directory as the
editor and help files. OR
If you have pkunzip in your path only text_gui.zip is required to be
in the same directory as install.bat

This patch only works on David Cuny's Toolkit v0.9b.
As of today (01-02-1998) this is the most recent version of his editor.

--Lucius L. Hilley III
------=_NextPart_000_01BD1777.33EDA000

new topic     » goto parent     » topic index » view message » categorize

247.

umm... my XMAS.ZIP has been giving a bit of trouble, so I sent it Mr. Craig
to put on the Official Page, with all the files required inside the .zip
(which I forgot about). Please try downloading again...


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
The Reaper  (J. Lays)   http://www.angelfire.com/nj/reaperlair/
reaper at auracom.com      Check out my now ancient Euphoria Games page at:
            -= http://www.geocities.com/TimesSquare/Alley/4444/eugames.html
      ........................
     . .. -||..........__......  "Life's a lot like
      . /  ||......../-- \\.::::  Death itself;
   . ..|   ||...... /    | |.:::  For both have a beginning,
     .|  _-||.......||   / /.:::: But neither have an end."
    ..| |..||...... -\_- \ |\-.:::
     .| |.[< \ .../            \.::
      .||.|||\|\ |  -      - .  \.::::
     ...|.\|| |  \  |        |   |.:::.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

new topic     » goto parent     » topic index » view message » categorize

248.

asd

new topic     » goto parent     » topic index » view message » categorize

249.

Hi Euphorians,
Below is a small library coded in API that creates a custom control 
called the hot buttons. i haven't added round button/roundrect but those 
are very easy. the reason i'm submitting this is because i'm planning to 
revamp the library for efficiency and speed.

for win32lib users you'll have to wait i wrap a wrapper over it. 
experienced win32lib users will have no problems.....

HB_Create(atom parent,sequence text,atom x,atom y,atom cx,atom 
cy,integer Style)
================================================================

This creates a hotbutton control. parent requires a real win32 handle so 
for win32lib users you'll have to use getHandle() for the parent window. 
Style can be HBS_RECT(HBS_ROUND/ROUNDRECT not yet 
supported),HBS_TOGGLE(Button is toggle style),HBS_ENABLED,HBS_DISABLED 
etc. You can use or_all() on these styles to get the final value. using 
0 uses the default values

-------------------------------------------
HB_SetFont(atom hwnd,sequence fontname,integer height,atom fntdata)
-------------------------------------------

hwn should be the handle returned by HB_Create() fontname is the name of 
the font.height is the font height needed. fntdata is the style. it can 
be HBF_BOLD,HBF_ITALIC,HBF_UNDERLINE. u will have to use or_all() too 
get the final style. when fntdata is 0 default values are used

-------------------------------------------
HB_SetImage(atom hwnd,atom image,integer State,integer Type,integer 
bltForm,atom colorref)
===========================================
hwnd: is the value returned after HB_Create()
image: this is a handle to the image. it can be a bitmap or icon handle
State: this is for the button state inwhich this image will be shown.
      it can be HBIS_HOT(when mouse is over button) HBIS_DISABLED(Button 
is disabled),HBIS_COLD(Button has no focus)
Type: Type of image used HBI_ICO for an icon. HBI_BMP for a bitmap
bltForm: This is needed when drawing the bitmaps (HBI_BMP) using 
HBLT_OPAQUE draws the image "as-is", HBLT_TRANSPARENT draws a bitmap 
with a transparent background
colorref: This is the background color used when HBLT_TRANSPARENT is 
specified

HB_SetAlignment(atom hwnd,integer style)
========================================
if style is HBA_LEFT image is drawn to the left of the text. if style is 
HBA_BOTTOM image is drawn above the text

-----------------------------------------
HB_SetText(atom hwnd,sequence text)
=========================================
changes the current text of the hotbutton. hwnd is the value returned 
from hb_create(). Note text with & prefix returns an underscore on the 
character after the ampersand

-----------------------------------------
HB_GetText(atom hwnd)
=========================================

retuens the hotbutton's text

-----------------------------------------
HB_SetBackColor(atom hwnd,object clr)
=========================================

changes the background color of a button. clr can be a sequence of rgb 
triads {r,g,b} or the COLORREF value.

-----------------------------------------
HB_GetBackColor(atom hwnd)
=========================================

returns the colorref value of the current buttons background color

-----------------------------------------
HB_SetTextColor(atom hwnd,object clr)
=========================================
Changes the text color

-----------------------------------------
HB_GetTextColor(atom hwnd)
=========================================
Returns the text color of the hot button


-----------------------------------------
--File   : HotButtons Module           --
--Version: 0.1.5                       --
--Date   : Thursday, October 10, 2002  --
--Author : Jordah Ferguson             --
-----------------------------------------

--** Font heights vary
--** Check if we really need saveDC and RestoreDC
--** Make Drop down style
--** Parents should be noted in the structure

without warning
without type_check
include dll.e
include machine.e
include msgbox.e

constant
   HBUSER32 = open_dll("user32.dll"  ),
   HBGDI32  = open_dll("gdi32.dll"   ),
   HBKRN32  = open_dll("kernel32.dll"),

-- kernel32.dll C routines
hlstrlen               = define_c_func(HBKRN32 , 
"lstrlenA",{C_LONG},C_INT),
     
-- User32.dll C routines
hRegisterClassEx       = define_c_func(HBUSER32, "RegisterClassExA", 
{C_LONG}, C_LONG ),
hCreateWindowExA       = define_c_func(HBUSER32, "CreateWindowExA", 
{C_LONG, C_LONG, C_LONG, C_LONG, C_INT, C_INT, C_INT, C_INT, C_LONG, 
C_LONG, C_LONG, C_LONG}, C_LONG ),
hCallWindowProcA       = define_c_func(HBUSER32, "CallWindowProcA", 
{C_POINTER, C_LONG, C_INT, C_INT, C_LONG}, C_LONG ),
hPostMessage           = define_c_proc(HBUSER32, "PostMessageA", 
{C_LONG, C_INT, C_INT, C_LONG}),   
hGetClientRect         = define_c_proc(HBUSER32, "GetClientRect", 
{C_LONG, C_LONG}),
hSetPropA              = define_c_proc(HBUSER32, "SetPropA", {C_LONG, 
C_LONG, C_LONG}),
hGetPropA              = define_c_func(HBUSER32, "GetPropA", {C_LONG, 
C_LONG}, C_LONG ),
hDefWindowProcA        = define_c_func(HBUSER32, "DefWindowProcA", 
{C_LONG, C_INT, C_INT, C_LONG}, C_LONG ),
hGetWindowLongA        = define_c_func(HBUSER32, "GetWindowLongA", 
{C_LONG, C_INT}, C_LONG ),
hBeginPaint            = define_c_func(HBUSER32, "BeginPaint", {C_LONG, 
C_LONG}, C_LONG ),
hEndPaint              = define_c_proc(HBUSER32, "EndPaint", {C_LONG, 
C_LONG} ),
hInvalidateRect        = define_c_proc(HBUSER32, "InvalidateRect", 
{C_LONG, C_LONG, C_LONG}),
hGetDC                 = define_c_func(HBUSER32, "GetDC", {C_LONG}, 
C_LONG ),
hReleaseDC             = define_c_proc(HBUSER32, "ReleaseDC", {C_LONG, 
C_LONG}),
hDrawEdge              = define_c_proc(HBUSER32, "DrawEdge", {C_LONG, 
C_LONG, C_INT, C_INT} ),
hDrawTextA             = define_c_proc(HBUSER32, "DrawTextA", {C_LONG, 
C_LONG, C_INT, C_LONG, C_INT} ),
hSetWindowLongA        = define_c_proc(HBUSER32, "SetWindowLongA", 
{C_LONG, C_INT, C_LONG}),
hDrawIconEx            = define_c_proc(HBUSER32, "DrawIconEx", {C_LONG, 
C_INT, C_INT, C_LONG, C_INT, C_INT, C_INT, C_LONG, C_INT}),
hGetIconInfo           = define_c_proc(HBUSER32, "GetIconInfo", {C_LONG, 
C_POINTER}),
hGetUpdateRect         = define_c_func(HBUSER32, "GetUpdateRect", 
{C_LONG, C_LONG, C_LONG}, C_LONG ),

-- gdi32 C routines
hCreateCompatibleDC    = define_c_func(HBGDI32, "CreateCompatibleDC", 
{C_LONG}, C_LONG ),
hPatBlt                = define_c_proc(HBGDI32, "PatBlt", {C_LONG, 
C_INT, C_INT, C_INT, C_INT, C_LONG}),
hCreateCompatibleBitmap= define_c_func(HBGDI32, 
"CreateCompatibleBitmap", {C_LONG, C_INT, C_INT}, C_LONG ),
hCreateBitmap          = define_c_func(HBGDI32, "CreateBitmap", {C_INT, 
C_INT, C_INT, C_INT, C_LONG}, C_LONG ),
hCreateSolidBrush      = define_c_func(HBGDI32, "CreateSolidBrush", 
{C_POINTER}, C_LONG ),
hCreateBrushIndirect   = define_c_func(HBGDI32, "CreateBrushIndirect", 
{C_LONG}, C_LONG ),
hGetStockObject        = define_c_func(HBGDI32, "GetStockObject", 
{C_INT}, C_LONG ),
hDeleteObject          = define_c_func(HBGDI32, "DeleteObject", 
{C_LONG},C_LONG ),
hBitBlt                = define_c_proc(HBGDI32, "BitBlt", {C_LONG, 
C_INT, C_INT, C_INT, C_INT, C_LONG, C_INT, C_INT, C_LONG}),
hDeleteDC              = define_c_func(HBGDI32, "DeleteDC", 
{C_LONG},C_LONG),
hSelectObject          = define_c_func(HBGDI32, "SelectObject", {C_LONG, 
C_LONG},C_LONG),
hSetTextColor          = define_c_proc(HBGDI32, "SetTextColor", {C_LONG, 
C_POINTER}),
hGetObject             = define_c_func(HBGDI32, "GetObjectA", {C_LONG, 
C_INT, C_LONG}, C_INT ),
hSaveDC                = define_c_proc(HBGDI32, "SaveDC", {C_LONG} ),
hRestoreDC             = define_c_proc(HBGDI32, "RestoreDC", {C_LONG, 
C_INT}),
hSetPixel              = define_c_proc(HBGDI32, "SetPixel", {C_LONG, 
C_INT, C_INT, C_POINTER}),
hSetBkColor            = define_c_func(HBGDI32, "SetBkColor", {C_LONG, 
C_POINTER}, C_POINTER ),
hCreateFont            = define_c_func(HBGDI32, "CreateFontA",{C_INT, 
C_INT, C_INT, C_INT, C_INT, C_INT,C_INT, C_INT, C_INT, C_INT, C_INT, 
C_INT, C_INT, C_POINTER}, C_INT),
hSetBkMode             = define_c_proc(HBGDI32, "SetBkMode", {C_LONG, 
C_INT})
---------------------------------------------------------

constant
   WM_PAINT      = #000F,
   WM_LBUTTONDOWN= #0201,
   WM_MOUSEMOVE  = #0200,
   WM_DESTROY    = #0002,
   WM_LBUTTONUP  = #0202,
   FW_NORMAL     = 400,
   BMask         =
   {{1,0,1,0,1,0,1,0},
    {0,1,0,1,0,1,0,1},
    {1,0,1,0,1,0,1,0},
    {0,1,0,1,0,1,0,1},
    {1,0,1,0,1,0,1,0},
    {0,1,0,1,0,1,0,1},
    {1,0,1,0,1,0,1,0},
    {0,1,0,1,0,1,0,1}}
---------------------------------------------------------
constant
   HBPROPCB         = allocate_string("HotButton CallBack "),
   HBPROPLP         = allocate_string("HotButton Structure"),
   WC_HBUTTON       = allocate_string("HotButton"),
   aRECT            = allocate( 16 ),
   aPS              = allocate( 64 ),
   aBmp             = allocate( 32 ),
   aLOGBRUSH        = allocate( 12 ),
   aICONINFO        = allocate( 20 ),
   WS_HBUTTON       = #50000000,
   WM_USER          = #0400,
   
-- HB Ver and Error Msgs
   HB_VER           = "Hot Button 0.1.4",
   HB_CREATE_FAIL   = "Failed to create Hot Button",
   HB_REG_FAIL      = "Failed to Register Hot Button Class",
   HB_DEL_BRUSH_FAIL= "Failed to delete brush!",
   HB_DEL_DC_FAIL   = "Failed to delete Compatible Device Context",
   HB_BRSH_FAIL     = "Failed to create brush",
   HB_CDC_FAIL      = "Failed to create Compatible Device Context",
   HB_CBM_FAIL      = "Failed to create Compatible Bitmap",
   HB_CBM_DEL_FAIL  = "Failed to delete Compatible Bitmap",
   HB_GetDC_FAIL    = "Failed to acquire the Device Context",
   HB_BAD_SET       = "Invalid Group Index Specified",

-- Font Structure
   hbf_fntsz        = 00,
   hbf_fntstyle     = 04,
   hbf_fntheight    = 05,
   sizeof_hbf       = 06,

-- Image Structure
   hbi_onbitmap     = 00,
   hbi_disbitmap    = 04,
   hbi_offbitmap    = 08,
   hbi_ontransclr   = 12,
   hbi_offtransclr  = 16,
   hbi_distransclr  = 20,
   hbi_onbitprop    = 24,
   hbi_disbitprop   = 25,
   hbi_offbitprop   = 26,
   hbi_alignment    = 27,
   sizeof_hbi       = 28,

-- Control Structure
   hb_font          = 00,
   hb_image         = 04,
   hb_txtcolor      = 08,
   hb_text          = 12,
   hb_bkcolor       = 16,
   hb_active        = 20,
   hb_mstatus       = 21,
   hb_hover         = 22,
   hb_togstatus     = 23,
   hb_sstyle        = 24,
   hb_stype         = 25,
   hb_set           = 26,
   sizeof_hb        = 27,
   bit_pos          = {#1,#2,#4,#8,#10,#20}

-- Global Button Styles
global constant
   WM_HBCLICKED     = WM_USER + 20,
   HBS_ENABLED      = #01,   -- Btn Enabled
   HBS_DISABLED     = #02,   -- Btn Disabled
   HBS_TOGGLE       = #04,   -- Btn is toggled
   HBS_ROUNDRECT    = #08,  
   HBS_ELLIPSE      = #10, 
   HBS_RECT         = #20,
   HBI_ICO          = #01,   -- HB_SetImage(); Type:Image Presented is 
an icon
   HBI_BMP          = #02,   -- HB_SetImage(); Type:Image Presented is a 
bitmap
   HBIS_DISABLED    = #01,   -- HB_SetImage(); Image is intended for 
disabled view
   HBIS_HOT         = #02,   -- HB_SetImage(); Image is intended for Hot 
view ie has focus
   HBIS_COLD        = #03,   -- HB_SetImage(); Image is intended for 
Cold view ie lostfocus
   HBLT_OPAQUE      = #01,   -- HB_SetImage(); Image bitblt uses OPAQUE 
mode ie no blending
   HBLT_TRANSPARENT = #02,   -- HB_SetImage(); Transparent; image blends 
with current brush
   HBA_LEFT         = #00,   -- Text is to the left of image
   HBA_BOTTOM       = #01,   -- Text is displayed below image
   HBF_NORMAL       = #01,   -- Use Normal font width/style/underline
   HBF_BOLD         = #02,   -- Use Bold Font
   HBF_ITALIC       = #04,   -- Use Italics
   HBF_UNDERLINE    = #08    -- Use UnderlineStyle

---------------------------------------------------------
integer Type,Style,Void,ExcGrp
atom 
ParentCB,CurParentCB,ACTIVE,Defaultfont,Struct,DefBrush,CurBrush,HDC
sequence rect,ExcSet
  Void     = -1
  ACTIVE   = -1
  Struct   = -1
  Type     = -1
  Style    = -1
  ExcSet   = {}

-------------------------------------------
procedure Report(sequence msg)
-------------------------------------------
   Void = message_box(msg,HB_VER&" Error!",MB_ICONINFORMATION)
end procedure

-------------------------------------------
function RGB(sequence Triad)
-------------------------------------------
   return Triad[1] * #1 +
          Triad[2] * #100 +
          Triad[3] * #10000
end function

-------------------------------------------
function LO_BIT(integer a)
-------------------------------------------
   return and_bits(a,#F)
end function

-------------------------------------------
function HI_BIT(integer a)
-------------------------------------------
   return floor(a/#10)
end function

-------------------------------------------
function MAKE_BYTE(integer a,integer b)
-------------------------------------------
   a = and_bits(a,#F)
   b = and_bits(b,#F)
   return ((b*#10) + a)
end function

-------------------------------------------
function abs(atom a)
-------------------------------------------
   if a > 0 then return a else return (-a) end if
end function

-------------------------------------------
procedure StoreBits(atom Struct,integer val)
-------------------------------------------
   sequence bits
   integer hibit,lobit
   lobit = 0 hibit = 0 bits = {}
   if not val then
      bits = {HBS_ENABLED,HBS_RECT}
   else
      for n = 1 to length(bit_pos) do
         Void = bit_pos[n]
         if and_bits(val,Void) then
            bits &= Void
         end if
      end for
   end if
   for n = 1 to length(bits) do
       Void = bits[n]
       if Void <= HBS_TOGGLE then
          lobit = or_bits(lobit,Void)
       else
          hibit = or_bits(hibit,Void)
       end if
   end for
   poke(Struct + hb_sstyle,hibit)
   poke(Struct + hb_stype ,lobit)
end procedure

-------------------------------------------
function GetClientRect(atom hwnd)
-------------------------------------------
   c_proc(hGetClientRect,{hwnd,aRECT})
   return peek4u({aRECT,4})
end function

-------------------------------------------
function GetBmpSize(atom Bmp)
-------------------------------------------
   if c_func(hGetObject,{Bmp,32,aBmp}) then
      return peek4u({aBmp+04,2})
   end if
   return {0,0}
end function

-------------------------------------------
function GetIcoSize(atom icon)
-------------------------------------------
   atom AndMask
   c_proc(hGetIconInfo,{icon,aICONINFO})
   AndMask = peek4u(aICONINFO + 16)
   return GetBmpSize(AndMask)
end function

-------------------------------------------
function CreateSolidBrush(atom Clr)
-------------------------------------------
   atom brush
   brush = c_func(hCreateSolidBrush,{Clr})
   if not brush then
      Report(HB_BRSH_FAIL)
   end if
   return brush
end function

-------------------------------------------
procedure DeleteBrush(atom brush)
-------------------------------------------
   if not c_func(hDeleteObject,{brush}) then
      Report(HB_DEL_BRUSH_FAIL)
   end if
end procedure

-------------------------------------------
function CreateFont(atom fntAddr)
-------------------------------------------
  integer width,und,ita,fntheight,fntdata
  atom fntname
  sequence bits
  bits = {}
  fntname   = peek4u(fntAddr + hbf_fntsz)
  fntheight = peek(fntAddr + hbf_fntheight)
  fntdata   = peek(fntAddr + hbf_fntstyle)
  if not fntdata then
     width = FW_NORMAL
     und   = 0
     ita   = 0
  else
     for n = 1 to length(bit_pos) do
         Void = bit_pos[n]
         if and_bits(fntdata,Void) then
            bits &= Void
         end if
     end for
     if not find(HBF_BOLD,bits) then width = FW_NORMAL else width = 
FW_NORMAL * 1.5 end if
     if not find(HBF_ITALIC,bits) then ita = 0 else ita = 1 end if
     if not find(HBF_UNDERLINE,bits) then und = 0 else und = 1 end if
  end if
  return 
c_func(hCreateFont,{fntheight,0,0,0,width,ita,und,0,0,0,0,0,0,fntname})
end function

-------------------------------------------
function GetDC(atom hwnd)
-------------------------------------------
   hwnd = c_func(hGetDC,{hwnd})
   if not hwnd then
      Report(HB_GetDC_FAIL)
   end if
   c_proc(hSaveDC,{hwnd})
   return hwnd
end function

-------------------------------------------
procedure ReleaseDC(atom hwnd,atom HDC)
-------------------------------------------
   c_proc(hRestoreDC,{HDC,-1})
   c_proc(hReleaseDC,{hwnd,HDC})
end procedure

-------------------------------------------
function CreateCompatibleDC(atom HDC)
-------------------------------------------
   HDC = c_func(hCreateCompatibleDC,{HDC})
   if not HDC then
      Report(HB_CDC_FAIL)
   end if
   return HDC
end function

-------------------------------------------
procedure DeleteDC(atom HDC)
-------------------------------------------
   if not c_func(hDeleteDC,{HDC}) then
      Report(HB_DEL_DC_FAIL)
   end if
end procedure

-------------------------------------------
function CreateCompatibleBitmap(atom HDC,atom cx,atom cy)
-------------------------------------------
   HDC = c_func(hCreateCompatibleBitmap,{HDC,cx,cy})
   if not HDC then
      Report(HB_CBM_FAIL)
   end if
   return HDC
end function

-------------------------------------------
procedure DeleteCompatibleBitmap(atom bm)
-------------------------------------------
   if not c_func(hDeleteObject,{bm}) then
      Report(HB_CBM_DEL_FAIL)
   end if
end procedure

-------------------------------------------
function SelectObject(atom HDC,atom Obj)
-------------------------------------------
   return c_func(hSelectObject,{HDC,Obj})
end function

-------------------------------------------
function CreatePatternBrush(atom HDC,atom clr)
-------------------------------------------
   atom MbmBMP,MemDC,OldBm,Brush
   MemDC = CreateCompatibleDC(HDC)
   MbmBMP= CreateCompatibleBitmap(HDC,8,8)
   OldBm = SelectObject(MemDC,MbmBMP)
   c_proc(hPatBlt,{MemDC,0,0,8,8,#00F00021})
   if clr = #FFFFFF then clr = #C0C0C0 end if
   for n = 1 to 8 do
       for m = 1 to 8 do
           Void = BMask[n][m]
           if Void then
              c_proc(hSetPixel,{MemDC,n-1,m-1,clr})
           end if
       end for
   end for
   poke4(aLOGBRUSH,{3,0,MbmBMP})
   Brush = c_func(hCreateBrushIndirect,{aLOGBRUSH})
   OldBm = SelectObject(MemDC,OldBm)
   DeleteCompatibleBitmap(MbmBMP)
   DeleteDC(MemDC)
   return Brush
end function

-------------------------------------------
procedure BltBitMap(atom HDC,atom bitmap,atom x,atom y,atom cx,atom cy)
-------------------------------------------
   atom MemDC
   MemDC = CreateCompatibleDC(HDC)
   Void = SelectObject(MemDC,bitmap)
   c_proc(hBitBlt,{HDC,x,y,cx,cy,MemDC,0,0,#00CC0020})
   DeleteDC(MemDC)
end procedure

-------------------------------------------
procedure TransparentBlt(atom HDC,atom bitmap,atom x,atom y,atom cx,atom 
cy,atom bkcolor)
-------------------------------------------
   atom 
SourceDC,SavedDC,InvertedDC,MaskDC,FinalDC,InvertedBmp,MaskBmp,FinalBmp,SavedBmp,

        
PrevInvBmp,PrevMaskBmp,PrevFinalBmp,PrevSavedBmp,PrevSourceBmp,PrevColor
   SourceDC   = CreateCompatibleDC(HDC)
   SavedDC    = CreateCompatibleDC(HDC)
   InvertedDC = CreateCompatibleDC(HDC)
   FinalDC    = CreateCompatibleDC(HDC)
   MaskDC     = CreateCompatibleDC(HDC)
   FinalBmp   = CreateCompatibleBitmap(HDC,cx,cy)
   SavedBmp   = CreateCompatibleBitmap(HDC,cx,cy)
   InvertedBmp= c_func(hCreateBitmap,{cx,cy,1,1,0})
   MaskBmp    = c_func(hCreateBitmap,{cx,cy,1,1,0})
   PrevSourceBmp = SelectObject(SourceDC,bitmap )
   PrevSavedBmp  = SelectObject(SavedDC,SavedBmp)
   PrevFinalBmp  = SelectObject(FinalDC,FinalBmp)
   PrevMaskBmp   = SelectObject(MaskDC ,MaskBmp )
   PrevInvBmp    = SelectObject(InvertedDC,InvertedBmp)
   c_proc(hBitBlt,{SavedDC,0,0,cx,cy,SourceDC,0,0,#00CC0020})
   PrevColor = c_func(hSetBkColor,{SourceDC,bkcolor})
   c_proc(hBitBlt,{MaskDC,0,0,cx,cy,SourceDC,0,0,#00CC0020})
   PrevColor = c_func(hSetBkColor,{SourceDC,PrevColor})
   c_proc(hBitBlt,{InvertedDC,0,0,cx,cy,MaskDC,0,0,#00330008})
   c_proc(hBitBlt,{FinalDC,0,0,cx,cy,HDC,x,y,#00CC0020})
   c_proc(hBitBlt,{FinalDC,0,0,cx,cy,MaskDC,0,0,#008800C6})
   c_proc(hBitBlt,{SourceDC,0,0,cx,cy,InvertedDC,0,0,#008800C6})
   c_proc(hBitBlt,{FinalDC,0,0,cx,cy,SourceDC,0,0,#00EE0086})
   c_proc(hBitBlt,{HDC,x,y,cx,cy,FinalDC,0,0,#00CC0020})
   c_proc(hBitBlt,{SourceDC,0,0,cx,cy,SavedDC,0,0,#00CC0020})
   Void = SelectObject(SourceDC,PrevSourceBmp)
   Void = SelectObject(SavedDC,PrevSavedBmp  )
   Void = SelectObject(FinalDC,PrevFinalBmp  )
   Void = SelectObject(MaskDC,PrevMaskBmp    )
   Void = SelectObject(InvertedDC,PrevInvBmp )
   DeleteCompatibleBitmap(FinalBmp)
   DeleteCompatibleBitmap(SavedBmp)
   DeleteCompatibleBitmap(MaskBmp )
   DeleteCompatibleBitmap(InvertedBmp)
   DeleteDC(FinalDC)
   DeleteDC(InvertedDC)
   DeleteDC(MaskDC)
   DeleteDC(SavedDC)
   DeleteDC(SourceDC)
end procedure

-------------------------------------------
function PrepareDC(atom HDC,sequence rect,atom str)
-------------------------------------------
   atom Oldfont,Oldbrush,fontAddr,hfont,brush hfont= 0
   brush = peek4u(str+hb_bkcolor)
   fontAddr = peek4u(str+hb_font)
   if fontAddr then
     hfont = CreateFont(fontAddr)
     Oldfont = SelectObject(HDC,hfont)
   else
     Oldfont = SelectObject(HDC,Defaultfont)
   end if
   c_proc(hSetBkMode,{HDC,1})
   brush = CreateSolidBrush(brush)
   Oldbrush = SelectObject(HDC,brush)
   c_proc(hSetTextColor,{HDC,peek4u(str+hb_txtcolor)})
   c_proc(hPatBlt,{HDC,rect[1],rect[2],rect[3],rect[4],#00F00021})
   Oldbrush = SelectObject(HDC,Oldbrush)
   DeleteBrush(brush)
   return {Oldfont,hfont}
end function

-------------------------------------------
function CalculateRect(sequence rect,sequence imgrect,integer 
alignment,integer txtflag)
-------------------------------------------
   atom X1,Y1,R1,R2,R3,R4,C,DT_Flag
   if txtflag then
      if not alignment then
         Y1 = floor(abs(rect[4]-imgrect[2])/2)
         X1 = 2
         R1 = imgrect[1]+ X1 + 4
         R2 = Y1 + floor((imgrect[2]/4))
         R3 = rect[3]
         R4 = rect[4]
         DT_Flag = #20
      else
         X1 = floor(abs(rect[3]-imgrect[1])/2)
         Y1 = 2
         C  = imgrect[2] + Y1 + 4
         R1 = rect[1]
         R2 = (C + floor(abs(rect[4]-C)/2))
         R3 = rect[3]
         R4 = rect[4]
         DT_Flag = #125
      end if
   else
      Y1 = floor(abs(rect[4]-imgrect[2])/2)
      X1 = floor(abs(rect[3]-imgrect[1])/2)
      R1 = 0 R2 = 0 R3 = 0 R4 = 0 DT_Flag = 0
   end if
   return {X1,Y1,R1,R2,R3,R4,DT_Flag}
end function

-------------------------------------------
procedure DisplayRectButton(atom str,atom HDC,sequence rect,atom 
HImage,integer Style,integer tog,atom transclr,integer alignment)
-------------------------------------------
   integer imgType,bltType,DT_Flag,len
   atom PatBrush,OldBrush,pszAddr
   sequence imgrect,frect,fnt
   fnt = PrepareDC(HDC,rect,str)
   pszAddr = peek4u(str + hb_text)
   len = c_func(hlstrlen,{pszAddr})
   if tog then
      PatBrush = CreatePatternBrush(HDC,peek4u(str+hb_bkcolor))
      OldBrush = SelectObject(HDC,PatBrush)
      c_proc(hPatBlt,{HDC,0,0,rect[3],rect[4],#00F00021})
   end if
   if HImage then
      imgType = HI_BIT(Style)
      bltType = LO_BIT(Style)
      if imgType = HBI_BMP then
         imgrect = GetBmpSize(HImage)
         frect = CalculateRect(rect,imgrect,alignment,len)
         if tog then frect[1] += 2 frect[3] += 2 end if
         poke4(aRECT,{frect[3],frect[4],frect[5],frect[6]})
         if bltType = HBLT_OPAQUE then
            
BltBitMap(HDC,HImage,frect[1],frect[2],imgrect[1],imgrect[2])
         elsif bltType = HBLT_TRANSPARENT then
            
TransparentBlt(HDC,HImage,frect[1],frect[2],imgrect[1],imgrect[2],transclr)

         end if
         DT_Flag = frect[7]
      elsif imgType = HBI_ICO then
         imgrect = GetIcoSize(HImage)
         frect = CalculateRect(rect,imgrect,alignment,len)
         if tog then frect[1] += 2 frect[3] += 2 end if
         poke4(aRECT,{frect[3],frect[4],frect[5],frect[6]})
         
c_proc(hDrawIconEx,{HDC,frect[1],frect[2],HImage,imgrect[1],imgrect[2],0,0,3})

         DT_Flag = frect[7]
      end if
   else
      DT_Flag = #125            
      if tog then
         poke4(aRECT,rect[1] + 3 & rect[2..4])
      end if
   end if
   if tog then
      OldBrush = SelectObject(HDC,OldBrush)
      DeleteBrush(PatBrush)  
   end if
   if len then
      c_proc(hDrawTextA,{HDC,pszAddr,len,aRECT,DT_Flag})
   end if
   Void = SelectObject(HDC,fnt[1])
   if fnt[2] then
      Void = c_func(hDeleteObject,{fnt[2]})
   end if
end procedure

-------------------------------------------
procedure BltOnImage_RECT(atom hwnd,atom HDC,atom str)
-------------------------------------------
   sequence rect
   atom ImageAddr
   rect = GetClientRect(hwnd)
   ImageAddr = peek4u(str + hb_image)
   if ImageAddr then
      DisplayRectButton(str,HDC,rect,
                        peek4u(ImageAddr + hbi_onbitmap),
                        peek(ImageAddr + hbi_onbitprop),0,
                        peek4u(ImageAddr+hbi_ontransclr),
                        peek(ImageAddr + hbi_alignment))
   else
      DisplayRectButton(str,HDC,rect,0,0,0,0,0)
   end if
   poke4(aRECT,rect)
   c_proc(hDrawEdge,{HDC,aRECT,#4,15})
end procedure

-------------------------------------------
procedure BltOffImage_RECT(atom hwnd,atom HDC,atom str)
-------------------------------------------
   sequence rect
   atom ImageAddr
   rect = GetClientRect(hwnd)
   ImageAddr = peek4u(str + hb_image)
   if ImageAddr then
      DisplayRectButton(str,HDC,rect,
                        peek4u(ImageAddr + hbi_offbitmap),
                        peek(ImageAddr + hbi_offbitprop),0,
                        peek4u(ImageAddr+hbi_offtransclr),
                        peek(ImageAddr + hbi_alignment))
   else
      DisplayRectButton(str,HDC,rect,0,0,0,0,0)
   end if
end procedure

-------------------------------------------
procedure BltTogImage_RECT(atom hwnd,atom HDC,atom str)
-------------------------------------------
   sequence rect
   atom ImageAddr
   rect = GetClientRect(hwnd)
   ImageAddr = peek4u(str + hb_image)
   if ImageAddr then
      DisplayRectButton(str,HDC,rect,
                        peek4u(ImageAddr + hbi_onbitmap),
                        peek(ImageAddr + hbi_onbitprop),1,
                        peek4u(ImageAddr+hbi_ontransclr),
                        peek(ImageAddr + hbi_alignment))
   else
      DisplayRectButton(str,HDC,rect,0,0,1,0,0)
   end if
   poke4(aRECT,rect)
   c_proc(hDrawEdge,{HDC,aRECT,10,15})
end procedure

-------------------------------------------
procedure ReleaseToggle(integer grp,atom btn)
-------------------------------------------
    atom hwnd,Struct
    if grp >0 and grp <= length(ExcSet) then
       hwnd = ExcSet[grp]
       ExcSet[grp] = btn
       if hwnd then
          Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
          if Struct then
             if peek(Struct + hb_togstatus) then
                poke(Struct + hb_active   , 1 )
                poke(Struct + hb_mstatus  , 0 )
                poke(Struct + hb_togstatus, 0 )
                c_proc(hInvalidateRect,{hwnd,0,1})
             end if
          end if
       end if
    end if
end procedure

-------------------------------------------
global function HB_Create(atom parent,sequence text,atom x,atom y,atom 
cx,atom cy,integer Style)
-------------------------------------------
   atom hwnd,sz,CallBackA,str
   sequence r
   hwnd = 
c_func(hCreateWindowExA,{0,WC_HBUTTON,0,WS_HBUTTON,x,y,cx,cy,parent,0,instance(),0})

   if not hwnd then
      Report(HB_CREATE_FAIL)
      return hwnd
   end if
   CallBackA = c_func(hGetWindowLongA,{parent,-4})
   if CallBackA != CurParentCB then
      c_proc(hSetPropA,{parent,HBPROPCB,CallBackA})
      c_proc(hSetWindowLongA,{parent,-4,CurParentCB})
   end if
   str = allocate(sizeof_hb)
   sz  = allocate_string(text)
   mem_set(str,0,sizeof_hb)
   poke4(str+hb_bkcolor ,#C0C0C0)
   poke4(str+hb_text    ,sz     )
   StoreBits(str,Style)
   c_proc(hSetPropA,{hwnd,HBPROPLP,str})
   return hwnd
end function

-------------------------------------------
global procedure HB_SetFont(atom hwnd,sequence fontname,integer 
height,atom fntdata)
-------------------------------------------
   atom str,sz,fntname,fntAddr
   str = c_func(hGetPropA,{hwnd,HBPROPLP})
   if str then
      sz = peek4u(str + hb_font)
      if sz then
        fntname = peek4u(sz + hbf_fntsz)
        if fntname then
           free(fntname)
        end if
        poke4(sz + hbf_fntsz,allocate_string(fontname))
        poke(sz + hbf_fntheight,height)
        poke(sz + hbf_fntstyle,fntdata)
        return
      end if
      fntAddr = allocate(sizeof_hbf)
      mem_set(fntAddr,0,sizeof_hbf)
      poke4(fntAddr + hbf_fntsz,allocate_string(fontname))
      poke(fntAddr + hbf_fntheight,height)
      poke(fntAddr + hbf_fntstyle,fntdata)
      poke4(str + hb_font,fntAddr)
   end if
end procedure

-------------------------------------------
global procedure HB_SetText(atom hwnd,sequence text)
-------------------------------------------
   atom str,sz,psz
   str = c_func(hGetPropA,{hwnd,HBPROPLP})
   if str then
      psz = peek4u(str + hb_text)
      if psz then
        free(psz)
      end if
      poke4(str+hb_text,allocate_string(text))
   end if
end procedure

-------------------------------------------
global function HB_GetText(atom hwnd)
-------------------------------------------
   atom str,sz
   str = c_func(hGetPropA,{hwnd,HBPROPLP})
   if str then
      sz = peek4u(str+hb_text)
      return peek({sz,c_func(hlstrlen,{sz})})
   end if
   return {}
end function

-------------------------------------------
global procedure HB_SetTextColor(atom hwnd,object clr)
-------------------------------------------
    atom colorref,str
    if sequence(clr) then
       colorref =  RGB(clr)
    else
       colorref = clr
    end if
    str = c_func(hGetPropA,{hwnd,HBPROPLP})
    if str then
      poke4(str+hb_txtcolor,colorref)
    end if
end procedure

-------------------------------------------
global function HB_GetTextColor(atom hwnd)
-------------------------------------------
   atom str
   str = c_func(hGetPropA,{hwnd,HBPROPLP})
   if str then
      return peek4u(str + hb_txtcolor)
   end if
   return -1
end function

-------------------------------------------
global procedure HB_SetBackColor(atom hwnd,object clr)
-------------------------------------------
    atom colorref,str
    if sequence(clr) then
       colorref = RGB(clr)
    else
       colorref = clr
    end if
    str = c_func(hGetPropA,{hwnd,HBPROPLP})
    if str then
       poke4(str+hb_bkcolor,colorref)
    end if
end procedure

-------------------------------------------
global function HB_GetBackColor(atom hwnd)
-------------------------------------------
   atom str
   str = c_func(hGetPropA,{hwnd,HBPROPLP})
   if str then
      return peek4u(str + hb_bkcolor)
   end if
   return -1
end function

-------------------------------------------
global procedure HB_SetAlignment(atom hwnd,integer flag)
-------------------------------------------
  atom str,image str = c_func(hGetPropA,{hwnd,HBPROPLP})
  if str then
     image = peek4u(str + hb_image)
     if image then
        poke(image + hbi_alignment,flag)
     end if
  end if
end procedure

-------------------------------------------
global procedure HB_SetImage(atom hwnd,atom image,integer State,integer 
Type,integer bltForm,atom colorref)
-------------------------------------------
  atom str,imgAddr
  integer pack,x x = 0
  str = c_func(hGetPropA,{hwnd,HBPROPLP})
  if str then
     pack = MAKE_BYTE(bltForm,Type)
     imgAddr = peek4u(str + hb_image)
     if not imgAddr then
        imgAddr = allocate(sizeof_hbi)
        mem_set(imgAddr,0,sizeof_hbi)
        x = 1
     end if
     if State = HBIS_DISABLED then
        poke4(imgAddr + hbi_disbitmap,image)
        poke4(imgAddr + hbi_distransclr,colorref)
        poke (imgAddr + hbi_disbitprop,pack)
     elsif State = HBIS_HOT then
        poke4(imgAddr + hbi_onbitmap,image)
        poke4(imgAddr + hbi_ontransclr,colorref)
        poke (imgAddr + hbi_onbitprop,pack)
     elsif State = HBIS_COLD then
        poke4(imgAddr + hbi_offbitmap,image)
        poke4(imgAddr + hbi_offtransclr,colorref)
        poke (imgAddr + hbi_offbitprop,pack)
     end if
     if x then poke4(str + hb_image,imgAddr) end if
  end if
end procedure

-------------------------------------------
global function HB_MakeToggleGroup()
-------------------------------------------
   ExcSet &= 0
   return length(ExcSet)
end function

-------------------------------------------
global procedure HB_AddToGroup(integer grp,object Btn)
-------------------------------------------
   atom Str
   if grp < 1 and grp > length(ExcSet) then
      Report(HB_BAD_SET)
   end if
   if atom(Btn) then
      Str = c_func(hGetPropA,{Btn,HBPROPLP})
      if Str then
         poke(Str + hb_set,grp)
      end if
   else
      for n = 1 to length(Btn) do
         HB_AddToGroup(grp,Btn[n])
      end for
   end if
end procedure

-------------------------------------------
procedure HB_BtnCleanup(atom hwnd)
-------------------------------------------
   atom StrAddr,fontAddr,imgAddr
   Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
   if Struct then
      StrAddr = peek4u(Struct + hb_text)
      if StrAddr then
         free(StrAddr)
      end if
      fontAddr = peek4u(Struct + hb_font)
      if fontAddr then
         StrAddr = peek4u(fontAddr + hbf_fntsz)
         if StrAddr then free(StrAddr) end if
         free(fontAddr)
      end if
      imgAddr = peek4u(Struct + hb_image)
      if imgAddr then
         free(imgAddr)
      end if
      free(Struct)
   end if
end procedure

-------------------------------------------
procedure HB_Cleanup()
-------------------------------------------
   free(HBPROPCB)
   free(HBPROPLP)
   free(WC_HBUTTON)
   free(aRECT)
   free(aPS)
   free(aBmp)
   free(aLOGBRUSH)
   free(aICONINFO)
   DeleteBrush(Defaultfont)
end procedure

-------------------------------------------
function HBWndProc(atom hwnd,atom msg,atom wParam,atom lParam)
-------------------------------------------
   if msg = WM_PAINT then
      if c_func(hGetUpdateRect,{hwnd,0,0}) then
        HDC = c_func(hBeginPaint,{hwnd,aPS})
        c_proc(hSaveDC,{HDC})
        Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
        Type     = peek(Struct + hb_stype)
        Style    = peek(Struct + hb_sstyle)
        if Style = HBS_RECT then
           if Type = HBS_ENABLED then
              BltOffImage_RECT(hwnd,HDC,Struct)
           elsif Type = HBS_TOGGLE then
               if peek(Struct + hb_togstatus) then
                  BltTogImage_RECT(hwnd,HDC,Struct)
               else
                  BltOffImage_RECT(hwnd,HDC,Struct)
               end if
           elsif Type = HBS_DISABLED then
           end if
        elsif Style = HBS_ROUNDRECT then
        elsif Style = HBS_ELLIPSE then
        end if
        c_proc(hRestoreDC,{HDC,-1})
        c_proc(hEndPaint,{hwnd,aPS})
      end if
   elsif msg = WM_LBUTTONDOWN then
      Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
      HDC = GetDC(hwnd)
      Type     = peek(Struct + hb_stype)
      Style    = peek(Struct + hb_sstyle)
      poke(Struct + hb_active , 1 )
      poke(Struct + hb_mstatus, 1 )
      poke(Struct + hb_hover  , 1 )
      if Style = HBS_RECT then
         if Type = HBS_TOGGLE then
            if peek(Struct + hb_togstatus) then
               poke(Struct + hb_togstatus, 0 )
            else
               poke(Struct + hb_togstatus, 1 )
               ExcGrp = peek(Struct + hb_set)
               if ExcGrp then
                  ReleaseToggle(ExcGrp,hwnd)
               end if
            end if
         elsif Type = HBS_DISABLED then
         end if
         BltTogImage_RECT(hwnd,HDC,Struct)
      elsif Style = HBS_ROUNDRECT then
      elsif Style = HBS_DISABLED then
      end if
      ACTIVE = hwnd
      ReleaseDC(hwnd,HDC)
   elsif msg = WM_MOUSEMOVE then
       if ACTIVE != hwnd then
         if ACTIVE > 0 then
           Struct = c_func(hGetPropA,{ACTIVE,HBPROPLP})
           poke(Struct + hb_active, 0 )
           poke(Struct + hb_mstatus,0 )
           poke(Struct + hb_hover  ,0 )
           c_proc(hInvalidateRect,{ACTIVE,0,1})
           ACTIVE = hwnd
           return 0
        end if
      end if
      Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
      if not peek(Struct + hb_hover) then
        poke(Struct + hb_active , 1 )
        poke(Struct + hb_hover  , 1 )
        HDC = GetDC(hwnd)
        Type     = peek(Struct + hb_stype)
        Style    = peek(Struct + hb_sstyle)
        if Style = HBS_RECT then
           if Type = HBS_TOGGLE then
              if peek(Struct + hb_togstatus) then
                 BltTogImage_RECT(hwnd,HDC,Struct)
              else
                 BltOnImage_RECT(hwnd,HDC,Struct)
              end if
           elsif Type = HBS_ENABLED then
              BltOnImage_RECT(hwnd,HDC,Struct)
           elsif Type = HBS_DISABLED then
           end if
        elsif Style = HBS_ROUNDRECT then
        elsif Style = HBS_ELLIPSE then
        end if
        ReleaseDC(hwnd,HDC)
      end if
      ACTIVE = hwnd
   elsif msg = WM_LBUTTONUP then
      Struct = c_func(hGetPropA,{hwnd,HBPROPLP})
      poke(Struct + hb_active , 1 )
      poke(Struct + hb_mstatus, 0 )
      Type     = peek(Struct + hb_stype)
      Style    = peek(Struct + hb_sstyle)
      HDC = GetDC(hwnd)
      if Style = HBS_RECT then
         if Type = HBS_TOGGLE then
            if not peek(Struct + hb_togstatus) then
               BltOnImage_RECT(hwnd,HDC,Struct)
            end if
         elsif Type = HBS_ENABLED then
            BltOnImage_RECT(hwnd,HDC,Struct)
         elsif Type = HBS_DISABLED then
         end if
      elsif Style = HBS_ROUNDRECT then
      elsif Style = HBS_ELLIPSE then
      end if
      ReleaseDC(hwnd,HDC)
      c_proc(hPostMessage,{#FFFF,WM_HBCLICKED,0,hwnd})
      c_proc(hPostMessage,{hwnd,WM_HBCLICKED,0,hwnd})
   elsif msg = WM_DESTROY then
      HB_BtnCleanup(hwnd)
   end if
   return c_func(hCallWindowProcA,{CurParentCB,hwnd,msg,wParam,lParam})
end function

-------------------------------------------
function ParentWndProc(atom hwnd,atom msg,atom wParam,atom lParam)
-------------------------------------------
   ParentCB = c_func(hGetPropA,{hwnd,HBPROPCB})
   if not ParentCB then
       return c_func(hDefWindowProcA,{hwnd,msg,wParam,lParam})
   end if
   if msg = WM_MOUSEMOVE then
      if ACTIVE then
         Struct = c_func(hGetPropA,{ACTIVE,HBPROPLP})
         if Struct then
            poke(Struct + hb_active , 0 )
            poke(Struct + hb_hover  , 0 )
            if not peek(Struct + hb_mstatus) then
                c_proc(hInvalidateRect,{ACTIVE,0,1})
                ACTIVE = 0
            end if
         end if
      end if
   elsif msg = WM_LBUTTONUP then
      if ACTIVE then
          Struct = c_func(hGetPropA,{ACTIVE,HBPROPLP})
          if Struct then
             if peek(Struct + hb_mstatus) then
                c_proc(hInvalidateRect,{ACTIVE,0,1})
                poke(Struct + hb_mstatus, 0 )
                ACTIVE = 0
             end if
          end if
      end if
   elsif msg = WM_DESTROY then
      HB_Cleanup()
   end if
   return c_func(hCallWindowProcA,{ParentCB,hwnd,msg,wParam,lParam})
end function
CurParentCB = call_back(routine_id("ParentWndProc"))

-------------------------------------------
procedure StartHBClass()
-------------------------------------------
   atom wca,hInst,HBCBA
   HBCBA = call_back(routine_id("HBWndProc"))
   hInst = instance()
   wca = allocate(48)
   Defaultfont = c_func(hGetStockObject, { 12 } )
   mem_set(wca,0,48)
   poke4(wca+00,48   )
   poke4(wca+08,HBCBA)
   poke4(wca+20,hInst)
   poke4(wca+32,16   )
   poke4(wca+40,WC_HBUTTON)
   if not c_func(hRegisterClassEx,{wca}) then
      Report(HB_REG_FAIL)
   end if   
   free(wca)
end procedure
StartHBClass()
---------------------------------------------------------

new topic     » goto parent     » topic index » view message » categorize

250.

------=_NextPart_000_00BC_01BDAE44.6EEA4D20
        charset="euc-kr"

new topic     » goto parent     » topic index » view message » categorize

251.

Can anyone tell me why EU fails to notify me of a division
by zero error in an include file? It simply terminates the
program.

Graeme.

new topic     » goto parent     » topic index » view message » categorize

252.

I've been working on a scrolling background routine, similar to Woo Seob
Lee's "ARCADE.EX", however I'm working in 800x600x256 colors.  Whenever I
load my image (3200x600x256) into memory, it overwrites the operating
system.  Could anyone tell me how to allocate a 'safer' block of memory, or
better yet, has anybody already worked this out so I don't have to
re-invent the wheel?

As a side note, and correct me if I'm wrong, I should be able load a bitmap
with a quick & dirty Euphoria code generator and copy the resulting
sequence into my program (hardcode) so there's no file-access delay, right?
 That would also keep the bitmap invisible to anyone who isn't currently
running the program.  Am I on the right track here?

Brian Jackson
bjackson at xoommail.com

new topic     » goto parent     » topic index » view message » categorize

253.

snortboy wrote:

> how do programmers set up large progs so that it all
> comes together when you actually punch out the code?

Two words.  Modular programming.

What that means is when I write a game, I start with a basic loop that ends
when the player
presses the ESC key.  Everything else goes on inside of here.  I generally
use what Rob refers to as "Bottom-up" programming, but I like to call it
"seat-of-yer-pants".  Then I fit the pieces in one at a time, usually
starting with the good guys first, then the levels and backgrounds, and
save the bad guys for last.  That way, once a particular piece of code
takes shape, I just make it a function and refer to it from my original
loop.  I think this has 2 advantages.  First, I'm usually pushing my
programming skills to the limit when I start a game, so I need to play
around with an idea as a standalone piece of code before I can incorporate
it into my program.  Secondly, when I am finished coding, my loop is a
perfect outline of what's going on in the program- and since I don't make
very good comments, this has saved my butt several times.  So when
something goes wrong, I can just comment out 1 function call instead of 200
lines of code, and test to see if that particular function is faulty.

I am currently working on a game, so I'd be more than happy to exchange
ideas with anyone else who has done the same type of thing.

Deuce
bjackson at printinginc.com

new topic     » goto parent     » topic index » view message » categorize

254.

h=domainkey-signature:received:received:from:to:date:mime-version:subject:message-id:priority:in-reply-to:references:x-pgp-keyid:x-pgp-web2get:x-pgp-mail2get:x-mailer:content-type:content-transfer-encoding:content-description;
         bh=wY9eMse4AsUMrhy3VJa5tYPciQ/WjwBSLWJ8mjiADco=;
 
b=nhTMZQhTXPkcezjKneSH+NTm2kWPgMIbsf1ciIeVaRkK15wz7pPl+pdxUYXgXeFdN+aR5EJo2z8p80SjLs84Txi43o9mNu6ABUcnVVAYLNy/2LnrADLcLjKSVd/bsSmDbAr0eS9jxRtUn5BD+4UUzDMqn/VEHMaGzLpvjITKUog=
DomainKey-Signature: a=rsa-sha1; c=nofws;
         d=gmail.com; s=gamma;
 
h=from:to:date:mime-version:subject:message-id:priority:in-reply-to:references:x-pgp-keyid:x-pgp-web2get:x-pgp-mail2get:x-mailer:content-type:content-transfer-encoding:content-description;
 
b=d/H8Fgl/4MnjnLVeAsCv/sPWIOrm/6IuHHOXyiloTIMKoXy2PJfucE854dl5gH/zIuMaTYufFioEtAWmANX5PGGFH4nTGMgKjzJRdL+TYcEENclj0gDnTd1RXSqNUj/7kr+4h2XwKR4Q16SHQWANymlI4DvrhHoKBwUTtES/Q6g=
Received: by 10.150.69.41 with SMTP id r41mr5574597yba.128.1209952103259;
         Sun, 04 May 2008 18:48:23 -0700 (PDT)
Received: from ?192.168.0.3? ( [200.159.215.207])
         by mx.google.com with ESMTPS id 
9sm12121052ywf.2.2008.05.04.18.48.20
         (version=TLSv1/SSLv3 cipher=OTHER);
         Sun, 04 May 2008 18:48:22 -0700 (PDT)
From: "Euler German" <eulerg at gmail.com>
To: EUforum at topica.com
Date: Sun, 04 May 2008 22:47:58 -0300
MIME-Version: 1.0
Subject: Re: remainder() is not right
Message-ID: <481E3D1E.23029.969FA0 at eulerg.gmail.com>
Priority: normal
In-reply-to: <491977603-1463792126-1209944434 at boing.topica.com>
References: <491977603-1463792126-1209944434 at boing.topica.com>
X-PGP-KeyID: 0xB65367CB
X-PGP-Web2Get: http://pgp.mit.edu:11371/pks/lookup?op=get&search=0xB65367CB
X-PGP-Mail2Get: 
<mailto:pgp-public-keys at pgp.uk.demon.net&Subject=GET%200xB65367CB>
X-mailer: Pegasus Mail for Windows (4.41)
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Content-description: Mail message body

> On 4 May 2008 at 16:40, CChris wrote (maybe snipped):

> It returns *a* emainder. When a and b are positive, this is the
> expected value. When signs are otherwise, then a discrepancy appears
> with what, in arithmetic, is called "remainder".
> 
> CChris
> 

Please, I'm not discussing mathematical discrepancies. I only stated
that remainder(), as described in reference manual, works as said,
thus returning the "left over" of a division, so it can't be told
wrong. I'm NOT saying there's no need for a "signed_remainder()",
though I have no use for it. YMMV.

Some quick explanation at:
- http://en.wikipedia.org/wiki/Remainder
- http://en.wikipedia.org/wiki/Modulo_operation

Best,
Euler

-- 
_
_| euler f german
_| sete lagoas, mg, brazil
_| efgerman{AT}gmail{DOT}com
_| -----------------------------
_| Reply preferably to the list,
_| or to the address above. Thx!

new topic     » goto parent     » topic index » view message » categorize

255.

This is a multi-part message in MIME format.

------=_NextPart_000_0011_01C23B40.187D3640
	charset="iso-8859-1"

Could somebody tell me how those "machine_func" and "machine_proc" =
routines work?I mean they are the fundamental routines of Euphoria.They =
do everything.I want to know how to control them.

------=_NextPart_000_0011_01C23B40.187D3640
	charset="iso-8859-1"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2919.6307" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Could somebody tell me how those "machine_func" and=20
"machine_proc" routines work?I mean they are the fundamental routines of =

Euphoria.They do everything.I want to know how to control=20

------=_NextPart_000_0011_01C23B40.187D3640--

new topic     » goto parent     » topic index » view message » categorize

256.

they're nothing terribly mysterious. you call machine_func/proc with the 
right ID and arguments, the interpreter does something. you shouldn't 
try to use these functions yourself. use the library functions instead.

new topic     » goto parent     » topic index » view message » categorize

257.

I'm having a little trouble with the gtk lib.  I made this function...

function encrypt_textarea_0()
    object str
    str=get_text(txt)
    printf(1,"%s",str)
    return NULL
end function
constant encrypt_textarea=call_back(routine_id("encrypt_textarea_0"))

when I click on the button that calls this funtion I get....

Gtk-CRITICAL **: file gtkentry.c: line 535 (gtk_entry_get_text): 
assertion `GTK_IS_ENTRY (entry)' failed.
Segmentation fault

from looking at the error, it looks like get_text is for a GtkEntry 
widget and not a GtkText object.  so my question is ...

how do you get the contents of a GtkText widget a store them in a 
sequence?

Ron_W

new topic     » goto parent     » topic index » view message » categorize

258.

I have created a multipurpose email program, it has;

* multiple account support, the account system has RC4 data encryption. 

*Each user has his own database. so no one can delete or read your 
email without logging in.

*it can download mail, from pop3 servers & it can send mail...in 
otherwords an enhancement to EECLIENT.ZIP

*IT has definately a better GUI

PROBLEM:

I have read a lot about MIME; i.e BASE64,QUOTED-PRINTABLE Encodings, i 
have failed to write algorithms for encoding 8bit data to either base64 
or quoted-printable. i looked at unbase64.zip, and failed to make any 
sense out of it. 

Can any one help me with this? (send me an encoding and decoding 
algorithm)

if any one wants to have a look at the email client, email me at

jorfergie03 at yahoo.com

new topic     » goto parent     » topic index » view message » categorize

259.

<html><div style='background-color:'><UL>
<LI>I saw that smeone asked about logic expression simplification. I do not know
if there has been an answer to that but here is something:</LI>
<LI></LI>
<LI>There is a&nbsp;kind of algorithm used to simplify circuits (you can find it
in any text about logic circuit design&nbsp;in electronics) that is called
Karnaugh maps. You can use it&nbsp;as&nbsp;long as you have a boolean logic
expression (and, or, not , exclusive or, etc.) and&nbsp;gives you the simplest
one as a result.</LI>
<LI>Hope this helps.</LI>

new topic     » goto parent     » topic index » view message » categorize

260.

<html><div style='background-color:'><DIV>
<P><BR>Going back to logic functions simplification, you can visit this
place:</P>
<P><A
href="http://www.cs.byu.edu/courses/cs143/reading/karnaugh.html">http://www.cs.byu.edu/courses/cs143/reading/karnaugh.html</A></P>
<P>you will find a simple and good&nbsp; explanation of the theory.</P>
<P>A description of the algorithm can be found at:</P>
<P><A
href="http://hopper.unco.edu/KARNAUGH/Algorithm.html">http://hopper.unco.edu/KARNAUGH/Algorithm.html</A></P>
<P>Hope this helps. </P>
<P>Carlos Valds</P>

new topic     » goto parent     » topic index » view message » categorize

261.

I'm trying to write a cgi program that sends an an iamge whenever 
called.  I'm simply doing this:

puts(1, "Location: /isplaying.bmp\n\n")

and then bind with bindw to make a win32 .exe.  I can put this in my 
cgi-bin directory and (if my server's running of course), this works.  
My browser loads whatever the image is on the server, not in cache, 
which was my goal.  My problem is that, everytime a browser calles it, a 
console window flashes and disappears.  Is there any way I can keep this 
from happening, and have it execute silently?  I've scoured the Euphoria 
docs, but I suspect its a windows flag to be set or routine to be called 
and I know *very* little about that.

new topic     » goto parent     » topic index » view message » categorize

262.

I am new at useing EUPHORIA and im open for and suggestive hints in
getting started.


DeathWarrior at Juno.Com
Daniel W. Garrett

new topic     » goto parent     » topic index » view message » categorize

263.

I just started using Euphoria yesterday, and am still new to the
language. I have written extensive programs in basic and soem decent ones
in assembly. But I like the the way this one handles the data.

    Anyway, I was hoping one of you professionals in this language could
help me with something. I like writting comm programs, and having trouble
with this in euphoria. How can you tell if there is any data in the modem
buffer before you use the command to get it?

    Thanks,

 Sam G.

new topic     » goto parent     » topic index » view message » categorize

264.

Heres my first Euphoria Program ive made so far. Take a look and tell me
what you think. It has a 2nd view that im working on thats still
incomplete, but will give you an idea, just press F2 to look at it.

section 1 of uuencode 5.10 of file dw.zip    by R.E.M.

new topic     » goto parent     » topic index » view message » categorize

265.

------=_NextPart_000_0005_01BFE78F.C75F14A0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable



------=_NextPart_000_0005_01BFE78F.C75F14A0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>

------=_NextPart_000_0005_01BFE78F.C75F14A0--

new topic     » goto parent     » topic index » view message » categorize

266.

My wish list for euphoria,

1) preprocessor define and conditionnal,
something like:
DEFINE debug
IFDEF debug
 debug code here
ENDIF

2) multidimentionnal slicing, like

let A be a 2 dimensions sequence
sequence B

   B = A[2..4][3..6]




Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at quebectel.com

new topic     » goto parent     » topic index » view message » categorize

267.

Hello Jacques,

Did you already solve this problem with a self made function?

>
> 2) multidimentionnal slicing, like
>
> let A be a 2 dimensions sequence
> sequence B
>
>    B = A[2..4][3..6]
>

MK

new topic     » goto parent     » topic index » view message » categorize

268.

--=====================_852879880==_

At 14:25 9-01-97 +0100, you wrote:
>---------------------- Information from the mail header -----------------------
>Sender:       Euphoria Programming for MS-DOS <EUPHORIA at
>MIAMIU.ACS.MUOHIO.EDU>
>Poster:       Marcel Kollenaar <M.Kollenaar at SLO.NL>
>-------------------------------------------------------------------------------
>
>Hello Jacques,
>
>Did you already solve this problem with a self made function?
>
>>
>> 2) multidimentionnal slicing, like
>>
>> let A be a 2 dimensions sequence
>> sequence B
>>
>>    B = A[2..4][3..6]
>>
>

Hi marcel,

   I didn't but your question triggered it.  See the attachement slice.ex demo

It use recursive call, as the last dimension has to be the first one to be
slice.





--=====================_852879880==_

-- slicing multidimensionals sequence


function slice(sequence s, sequence p)
-- extract a slice from n dimensions sequence
-- input:  s  sequence to slice
--         p  list of slices index in de form {{a1,a2},{b1,b2},...,{z1,z2}}

sequence cut
    if length(p) = 1 then
        return s[p[1][1]..p[1][2]]
    end if
    cut = {}
    for i = p[1][1] to p[1][2] do
        cut = append(cut,slice(s[i],p[2..length(p)]))
    end for
    return cut
end function -- slice()


sequence a, b, c

a = {1,2,3,4,5}
b = {{1,2,3,10},{4,5,6,11},{7,8,9,12}}
c = {b*2,b*3,b+23}

puts(1,"a = ")
? a
puts(1,"a[2..4] = ")
? slice(a,{{2,4}})
puts(1,"b = ")
? b
puts(1,"b[2..3][2..4] = ")
? slice(b,{{2,3},{2,4}})
puts(1,"c = ")
? c
puts(1,"c[1..2][2..3][1..1] = ")
? slice (c,{{1,2},{2,3},{1,1}})


--=====================_852879880==_

Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at quebectel.com

--=====================_852879880==_--

new topic     » goto parent     » topic index » view message » categorize

269.

Hi to All,

          I have one problem and is that I want to draw a box in text mode
but I don't Know how to write a good routine for it. The problem is that I
can't fill the box. Can somebody help me?

------------------------------

               Thank you.

new topic     » goto parent     » topic index » view message » categorize

270.

I am using the getch2 routine supplied in '97 by Ken Roger to read 
keyboard input with multiple key presses. It returns, in a sequence, the 
status of Shift and CTRL, as well as the char code and the vk code, It 
suits my needs very well for everything except CTRL S. Can anyone tell 
me why and what to do about it?

Allen

new topic     » goto parent     » topic index » view message » categorize

271.

test - ignore

this is to test a post directly from Topica Web Interface

header lines to be confirmed

new topic     » goto parent     » topic index » view message » categorize

272.

>Could you post more detail? Either a discussion of your concept, or

Well, I think the way to start out is to try to create a program that
diagrams a euphoria first of all.  That is my immediate atttempt.


>a graphic "sample screen" - could draw this with any graphics program -

This morning I was drawing something out.  I think a baseline to start
with
(graphically) is a folder...representing the basic folder that the
programs
starts with.  Then use links of various kinds, represented by either
static
or animated links (lines etc) tying varous aspects of a euphoria program
together.  The next step I would think would be the basic parts of the
program.  IE.
The include files.
The definitions/declarations.
The Programmer defined procedures/functions
The Main Loop.
I will try to finish the drawing that I just made, but as the only
decent
graphics utility I have is Corel 4, and I am used to Paint Shop Pro
(which I
love dearly and it keeps timing out on me)  I probably won't be able to
send
a picture.  I'll try though.
    I think Irv that your dos gui is the place to start though, I looked
again at them last night and loved what I saw visually, and it worked
this
time.  I haden't kept up with it last time, as I had had a crash with
it,
and gone onto other things.  Most Excellent!
     I decided last night that I was going to learn your interface and
use
it.
The only thing that I have as far as a program at this point is a bunch
of
little routines for adding lists together (meant to handle commands) and
an
input routine that loads in a program (reads itself really...)  I am
going
to study the hash table stuff tomorrow afternoon.
    Well, later...Will check back this evening maybe.
Monty




______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com

new topic     » goto parent     » topic index » view message » categorize

273.

Both of these asm libraries support FLOATING POINT INSTRUCTIONS: 
	http://www.rapideuphoria.com/asm.zip
	http://www.rapideuphoria.com/asm2.zip

So why can't you do all your floating calculations and call your
hardware from within a euphoria assembler routine. You don't need
to call a routine for each calculation just do the majority of
work at the assembler level.

Bernie

new topic     » goto parent     » topic index » view message » categorize

274.

b=tCwYMKC5Y92i4oLYbpJpjxxrBNJcHI0fs1emGh3t3IsbbJiy/ZufGuTkhl2O7QvZty7Q2=
LyfGC1y0iAUsdLeemhF8h2+8csw1j4sX4hlJXZ6RIq2xb1NCwgrOUykhgqxWDCrZylsOKVJWhTQ=
d5hA7WUAng1f1eGjAs80ciqia/M=  ;
Message-ID: <20050115163227.59641.qmail at web41408.mail.yahoo.com>
Received: from [24.217.173.3] by web41408.mail.yahoo.com via HTTP; 
Sat, 15 =
Jan 2005 08:32:27 PST
Date: Sat, 15 Jan 2005 08:32:27 -0800 (PST)
From: Christopher Stone <chris_m_stone at yahoo.com>
Subject: Re: SpyWare, etc.
To: EUforum at topica.com
In-Reply-To: <1111320208-1463792638-1105743911 at boing.topica.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii

Use Spybot and Ad-Aware.

Ad-Aware is at www.lavasoftusa.com.
Spybot is at
http://www.safer-networking.org/en/index.html.

Run both in safe mode and they'll get rid of most of
the spyware.

Chris

--- CoJaBo <guest at RapidEuphoria.com> wrote:

>
>
> posted by: CoJaBo <CoJaBo_EUforum_Address at
> CJBN.net>
>
> Michelle Rogers wrote:
> >=20
> > I had tried Noadware, it found stuff but then told
> me that I had to pay I=20
> Its terrible(and not even free!):
> http://www.adwarereport.com/mt/archives/000023.html
> "Editor Rating: 1 star
>
> Pros
>
> + Attractive and easy-to-use interface
>
> Cons
>
> - Very poor protection against spyware
> - High-pressure sales tactics, including use of
> =93false positives=94 in their free scan
> - May cause legitimate software to stop working
> - Many reports of customers being ripped off"
>
> > forget how much to actually get it to clean it
> off.
> > Michelle Rogers
> > ----- Original Message -----=20
> > From: "CoJaBo" <guest at RapidEuphoria.com>
> > To: <EUforum at topica.com>
> > Sent: Thursday, January 13, 2005 5:16 PM
> > Subject: Re: SpyWare, etc.
> >=20
> >=20
> > > posted by: CoJaBo <CoJaBo_EUforum_Address at
> CJBN.net>
> > >
> > > Michelle Rogers wrote:
> > >>
> > >> Didn't someone mention on here once a free
> spyware removal program?  If=20
> > >> so,
> > >> could you give that address again?  I can't
> seem to find it.  Or, even if=20
> > >> it
> > >> wasn't mentioned and someone knows one, could
> you mention it now?  All=20
> > >> the
> > >> ones I find only analyze for free, then you pay
> megabucks to actually=20
> > >> have
> > > Which ones are you using now(if any)?
> > >
> > >> it removed.
> > >>
> > >>
> > >> Michelle Rogers
> > >>
> > >>
>
>
>
>
> For Topica's complete suite of email marketing
> solutions visit:
> http://www.topica.com/?p=TEXFOOTER
>
>
>



=09=09

new topic     » goto parent     » topic index » view message » categorize

275.

--=======AVGMAIL-41F79D692077=======
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_009F_01C50404.60504220"

------=_NextPart_000_009F_01C50404.60504220
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit


------=_NextPart_000_009F_01C50404.60504220
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1400" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV>&nbsp;</DIV></BODY></HTML>

------=_NextPart_000_009F_01C50404.60504220--
--=======AVGMAIL-41F79D692077=======
Content-Type: text/plain; x-avg=cert; charset=us-ascii
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline
Content-Description: "AVG certification"

Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.1 - Release Date: 19/01/2005

--=======AVGMAIL-41F79D692077=======--

new topic     » goto parent     » topic index » view message » categorize

276.

How do I clip an image that has been loaded by read_bitmap()?
I am trying to fit a large picture into a 533x370 area.
I have the following section to clip the width that doesn't work.
It does run all of the lines, and length(tmp_img) is 800


if length(tmp_img) > 533 then
            tmp_img1=tmp_img[1..533]
            tmp_img=tmp_img1
end if
        display_image({11,49},tmp_img1)



I thought that it would look like this:

000001111
000001111
000001111
000001111
111111111
111111111

with 0's being the part I want to display

new topic     » goto parent     » topic index » view message » categorize

277.

Andrew Mitchell wrote:
>
> How do I clip an image that has been loaded by read_bitmap()?
> I am trying to fit a large picture into a 533x370 area.
> I have the following section to clip the width that doesn't work.
> It does run all of the lines, and length(tmp_img) is 800
>
> if length(tmp_img) > 533 then
>             tmp_img1=tmp_img[1..533]
>             tmp_img=tmp_img1
> end if
>         display_image({11,49},tmp_img1)
>
> I thought that it would look like this:
>
> 000001111
> 000001111
> 000001111
> 000001111
> 111111111
> 111111111
>
> with 0's being the part I want to display


                I'm still learning euphoria, but it looks like what your
doing is trimming the last x bytes off of the image :

        00000000
        00000000
        00000000
        000000xx
        xxxxxxxx
is what your getting, right?

so what you need to do is get the x (higth) and y (width) of your
image (the original)and run, through 2 loops: (psudo code follows)

for h = 1 to 533
  for w = 1 t y
    if w < 370 then temp_img_2 =apend(temp_image_2,
Original_imag((h*(y-1))+w))
next w
next h

what you want to do is step through the first 533 rows and apend to your
new image every pixel value that is in a colum before #371. and just
skip
all the rest.

        I've just begun to learn euphoria so I couldn't write actual
euphoria code, but I'm shure of the basic algorithym.

                                Kasey

new topic     » goto parent     » topic index » view message » categorize

278.

Hi!
I'm now programming in C++,and i don't know what is Euphoria
Please sand me some info

new topic     » goto parent     » topic index » view message » categorize

279.

Michal wrote:
>
> Hi!
> I'm now programming in C++,and i don't know what is Euphoria
> Please sand me some info

Just goto Http://members.aol.com/FilesEu
and look around. If theres not enough info there
(it's the homepage for euphoria) following the
links will almost certainaly help.
        As a starter Euphoria is a programming
language thats much easier to learn than C++
or java, and it doese all the idiot work I've
always thought should be the job of the language
and not the programmer (ansi c/c++ makes you  tell
the compiler a zillion times what a variable is and
what it's for. why? shouldn't once be enough?)

        btw how did you wind up on the list without
going learning about euphoria??

                anyway you should like euphoria and welcome
 to the list.


                        Kasey

new topic     » goto parent     » topic index » view message » categorize

280.

Date: Wed, 25 Mar 1998 12:02:24 -0800
To: LISTSERV at MIAMIU.ACS.MUOHIO.EDU
From: Don Scott <dts33 at lightspeed.net>

I am a Euphoria newbie....I want to save bitmaps in Euphoria format (.bm?).
Can someone let me know how to do that? Is there source code out there to
do that? I'm still alittle confused....I've used the 2.0 tutorial by David
Gay but I'm still fuzzy...Thanks for any help!


Thanks,
Don Scott
GM, WLUHL Sierra Spiders
GM, WWHL Tampere Tankards/Yosemite Grizzlies
http://userzweb.lightspeed.net/~dts33

new topic     » goto parent     » topic index » view message » categorize

281.

Don Scott wrote:
>
> Date: Wed, 25 Mar 1998 12:02:24 -0800
> To: LISTSERV at MIAMIU.ACS.MUOHIO.EDU
> From: Don Scott <dts33 at lightspeed.net>
>
> I am a Euphoria newbie....I want to save bitmaps in Euphoria format (.bm?).
> Can someone let me know how to do that? Is there source code out there to
> do that? I'm still alittle confused....I've used the 2.0 tutorial by David
> Gay but I'm still fuzzy...Thanks for any help!
>
> Thanks,
> Don Scott
> GM, WLUHL Sierra Spiders
> GM, WWHL Tampere Tankards/Yosemite Grizzlies
> http://userzweb.lightspeed.net/~dts33

        I'm not shure what you mean by "save bitmaps in Euphoria format"
you can load and save regular windows bitmap (*.bmp) file with the
libraries that come with euphoria and there are several libraries for
gif
and pcx loading/saving.
        there's also a lib out there for translating a bmp file into
an include file (although a pretty big one) if that's what your trying
to do.
        As far as I know(which really insn't that far) there's no specific
image format just Euphoria program(er)s.
        If your trying to figure out how euphoria's lib.s use/store bitmap and
pallete info, the library.doc file explains this I believe. (in your
/euphoria/doc
directory)
        Start at euphoria's homepage ( http://members.aol.com/FilesEu ) and
look
in recent user contributions and the archives for the above mentioned
programs.

new topic     » goto parent     » topic index » view message » categorize

282.

--=====================_890889750==_

I have tried the include file (which would work great) but the code for the
include file asked to include "ebm.e"....which is not on my hard
drive....the include file is included on this email (I thinkI overused the
word include!

At 03:06 PM 3/25/98 -0600, you wrote:
>Don Scott wrote:
>>
>> Date: Wed, 25 Mar 1998 12:02:24 -0800
>> To: LISTSERV at MIAMIU.ACS.MUOHIO.EDU
>> From: Don Scott <dts33 at lightspeed.net>
>>
>> I am a Euphoria newbie....I want to save bitmaps in Euphoria format (.bm?).
>> Can someone let me know how to do that? Is there source code out there to
>> do that? I'm still alittle confused....I've used the 2.0 tutorial by David
>> Gay but I'm still fuzzy...Thanks for any help!
>>
>> Thanks,
>> Don Scott
>> GM, WLUHL Sierra Spiders
>> GM, WWHL Tampere Tankards/Yosemite Grizzlies
>> http://userzweb.lightspeed.net/~dts33
>
>        I'm not shure what you mean by "save bitmaps in Euphoria format"
>you can load and save regular windows bitmap (*.bmp) file with the
>libraries that come with euphoria and there are several libraries for
>gif
>and pcx loading/saving.
>        there's also a lib out there for translating a bmp file into
>an include file (although a pretty big one) if that's what your trying
>to do.
>        As far as I know(which really insn't that far) there's no specific
>image format just Euphoria program(er)s.
>        If your trying to figure out how euphoria's lib.s use/store bitmap
and
>pallete info, the library.doc file explains this I believe. (in your
>/euphoria/doc
>directory)
>        Start at euphoria's homepage ( http://members.aol.com/FilesEu ) and
>look
>in recent user contributions and the archives for the above mentioned
>programs.
>
>
--=====================_890889750==_

new topic     » goto parent     » topic index » view message » categorize

283.

|I am a Euphoria newbie....I want to save bitmaps in Euphoria format (.bm?).
|Can someone let me know how to do that? Is there source code out there to
|do that? I'm still alittle confused....I've used the 2.0 tutorial by David
|Gay but I'm still fuzzy...Thanks for any help!


Look the function "read_bitmap" up in library.doc

Hope this helps.

Ralf N.

Example usage:

-- Example use of bitmap routines
object temp

temp = graphics_mode (19)  -- We're now into MCGA 320*200 256c
if temp = -1 then
    puts(1, "You need a videocard!\n")
    abort(1)
end if

-- Notice the double slash.. means just one slash
-- but the slash is an escape character when quoted
temp = read_bitmap ("c://windows//arcade.bmp")
if atom(temp) then
    -- The atom value returned is the error number
    puts (1,"Some error occured!!")
    abort(1)
end if

-- Setting pallete, with a 0 - 63 scale
-- Instead of a 0 - 255 scale, so divide by 4
all_pallette (temp[1]/4)

-- The second element of temp contains the picture data
-- We'll display it at the top of the screen (0,0)
display_image ({0,0}, temp[2])

-- End of example program

new topic     » goto parent     » topic index » view message » categorize

284.

Can i create executable files in Euphoria ?
If yes please send me an help how i do it.
Thanx,
        Tachood

                  .///.
                  (0 o)
-------------0000--(_)--0000---------------

        tachood at jc-pc1.jicinet.cz

             oooO       Oooo
-------------(  )-------(  )---------------
              \ (       ) /
               \_)     (_/

new topic     » goto parent     » topic index » view message » categorize

285.

Michal wrote:
>
> Can i create executable files in Euphoria ?
> If yes please send me an help how i do it.
> Thanx,
>         Tachood

>
>         tachood at jc-pc1.jicinet.cz


     If you want to make your euphoria program a stand alone exe (i.e.
so you don't have to type ex program.ex) use bind. it'll turn your
program.ex into program.exe.
        Bind and bind.doc(the manual for bind) came with euphoria when
you downloaded it.
        If you mean somthing else I'm sorry  I didn't understand it.


                Kasey

new topic     » goto parent     » topic index » view message » categorize

286.

Whoops,
Sorry, it had to do with the DB_LOCK thing,I fixed it, sorry.

Jason Dube

new topic     » goto parent     » topic index » view message » categorize

287.

Hi!

I am working on a Euphoria interpreter written in Object Pascal. (Same 
speed as C, but probably less bugs smile. Its name will be "Prophoria" -- 
Professional Euphoria. It will add some new features to the language:
- call by reference:
procedure foo(to sequence s) -- should I use keyword "to" to indicate
-- by reference?
  foo()
end procedure

- dot notation:  seq.x -- just syntactic sugar for seq[x]
- end: s[1..end] -- same as s[1..length(s)] (func(s, 1, end) will not be 
possible!)
- declare variables anywhere you want and initialize them:
  integer x = 0, y = 1
- more standard functions: abs(), sqr(), 
- a case statement:
  case seq 
    of {1,2,3} do ...
    of {5..10} do ...
    else ...
  end case
- a for in statement:
  for x in seq do x = 0 end for

I look for programmers who have programming experience in Object Pascal 
and knownledge about compilers.
Prophoria will be an interpreter and a translator (translates Euphoria 
to Pascal/C)

I do not like anything like macro or stupid C-like assignment operators 
that will lead to unreadable code:
if (i := getc(0) ) = 0 then ... end if -- this is ugly, and not 
Euphoria-like.
If anyone is interested, please write to: pfropfen at gmx.net
(I have already written a lightning fast scanner for Prophoria and am 
working on the parser.)

Regards
  Andreas Rumpf

new topic     » goto parent     » topic index » view message » categorize

288.

let him alone! put out the flames! SHUT UP! okay, he said he's sorry.
_________________
When it comes to programming languages, Euphoria is a cut above
matt1278 at juno.com Euphoria programmer
Webbers: <A HREF="mailto:prezsoft at juno.com">prezsoft at juno.com</A>,
president of SoftCo. All virus proggers should die horrible deaths

new topic     » goto parent     » topic index » view message » categorize

289.

... my .02...

I thought about using windows, and a thought struck me: go into your
system.ini, my people with windows, and look at your shell line. That is
your GUI. The challenge: Make a new GUI. Make your favorite look, using
the windows KERNAL. Because all your progman.exe or explorer.exe is is
the thing feeding the info into the kernal. To my knowledge, and I will
try this, you can run a program from that shell= line. ANY program. for
example, windoze, by Irv, is a shell. those graphics are from things
like DLL's. SO, you can go and make your own GUI in that, LIKE you can
windows.

Now, for those who want to test this: DON'T! let me crash-proof it
first. Then, when the OK is passed, let's make a 32-bit GUI for our
windows '95/98. (I was gonna sat 16-bit, but the euphoria library hasn't
got all the things to connect to 16-bit DLL's. BUT, can I be wrong?)

the best of wishes,

-- "LEVIATHAN" with a scattered writing style.

(BTW, the list rejected the message, so if you see this again, sowwiez!)

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com

new topic     » goto parent     » topic index » view message » categorize

290.

Have been trying to use gds32.dll, the Firebird/Interbase dll, in EU 
programs, but utterly stymied.

Has anyone done this? What's up with this DLL? 

Thanks
Mark

new topic     » goto parent     » topic index » view message » categorize

291.

Has anyone come up with a library for using the internet?

I want to write a long term strategy game playable online.  Here's how it
would work:  I'd establish an email address or a site of some sort to serve
as a middle man. Every day, say around 1am, I'd log on and my central
program would download and process the encypted messages posted the
previous day by each player's client program, then it would post for each
player his or her view of the aftermath, which would be received by the
clients, and so forth.  Alternately, I might divide the day into phases,
movement, build, attack, etc, but you get the idea.  I realize I could just
use attached files to be fed to the software manually, but I'd much rather
let the program handle the downloading itself, if possible.

Any information or advice would be appreciated.

new topic     » goto parent     » topic index » view message » categorize

292.

>Has anyone come up with a library for using the internet?


This is a job for WinInet.dll. I've coded some routines to access FTP
servers using this nice DLL (provided by Microsoft). You'll be restricted to
Win32.

Go to Microsoft site and search for "wininet", there you'll get the API
reference.

Regards,
    Daniel Berstein
    daber at pair.com

new topic     » goto parent     » topic index » view message » categorize

293.

This is a programer that goes with his wife to a simposium at NY.They
arrive to the hotel and when they are downloading their packages from
the cab...the programer says to his wife:

             -Honey,it's strange but you told me that we had 10
              packages....and we only have 9!!!

             -Dear,it's impossible! we have 10!

             He reply - No!look,count with me....0,1,2....
:)
It's a  great joke!
Regards,
        - Luis -

new topic     » goto parent     » topic index » view message » categorize

294.

Hello,
I am writing a safe lock emulator, but I have a couple of problems.
1. When I click differant areas ove a bitmap it sometimes registers 
twice. - Not sure how to prevent this.
2. Part of the bitmap there is an LED. Is there a way I can make it 
appear to blink on a mouse click without loading a whole second bitmap.

Find my code at www.locksdownunder.com/LaGard.zip

Any help or comments on a better way to do this would be appreciated

Thanks
Tony

new topic     » goto parent     » topic index » view message » categorize

295. Re:

> 2. Part of the bitmap there is an LED. Is there a way I can make it
> appear to blink on a mouse click without loading a whole second bitmap.

That sounds pretty easy, as long as you're not stretching the bitmap.

For this, I'll assume the LED is "ON" in the bitmap, and that you know
the dimensions of the LED (x, y, cx, cy) in the bitmap. Remember, (0,
0) is the upper-left corner of the bitmap/window, and cx and cy are
the width and height.

1. Create a Pixmap the size (cx, cy) of the LED, name it LedOff or somethin=
g
2. Draw the "OFF" image onto the Pixmap
3. Create another Pixmap (same size) and bitBlt the LED "ON" image
from the bitmap onto it, name it LedOn or something
4. When the mouse event or whatever occurs, copyBlt the LedOff Pixmap
to the (x, y) position on the window over the bitmap, then copyBlt the
LedOn Pixmap back when needed

Note on bitBlt vs copyBlt: The reason you need to use bitBlt on #3 is
because you have to grab only *part* of the bitmap, whereas you're
copying the entire Pixmap in #4. Just thought I'd clear that up ahead
of time.

~Greg

new topic     » goto parent     » topic index » view message » categorize

296.

by TDIMSO27.backend.tdata.com.ar
 (iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
 with ESMTPA id <0HN600FYZQUF5M at TDIMSO27.backend.tdata.com.ar> for
 EUforum at topica.com; Wed, 22 Oct 2003 22:01:28 -0300 (GMT)
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Simple eusql prog now works - kinda
lla
 vundefinedundefined) Gecko/20030624

I hadn=B4t been following this threat but you create a variable named data=
=20
  and you don=B4t assing anything to it, and then pass it in the=20
get_record function. What are u passing if data contains nothing? :)
That=B4s the error.

ronaustin at alltel.net wrote:
>=20
>=20
> Thanks to Matt I saw the error of my way and now have a new simple=20
> program that does write records to the eusql database.
>=20
> include database.e
> include eusql.e
>=20
> sequence   dbname,
> 	   tname,
> 	   ok,
> 	   code,    -- code=20
> 	   descrip, -- descripton
> 	   categ    -- category
>=20=09=20
>=20=09=20
>     dbname    =3D open_db("TEST.EDB")
>     tname     =3D "DIAG"
>     code      =3D "V43.1"
>     descrip   =3D "Psudoaphakia"
>     categ     =3D "Surg"
>=20=20=20=20=20
>     ok =3D    insert_record(dbname,tname,blank_record(dbname,tname),
>     {code,descrip,categ},{{1},{2},{3}})
>=20
>     close_db (dbname)
>=20
> Before I started dancing around and throwing my hat in the air I thought=
=20
> I should try to read a record out of the database.  Alas, this program=
=20
> don't work.
>=20
> include database.e
> include eusql.e
>=20
>=20
> sequence ok,
> 	 dbname,
> 	 tname,
> 	 data
>=20
>          integer key
>                  key =3D 1
>=20
> 	 dbname =3D "TEST.EDB"
> 	 tname  =3D "DIAG"
>=20=09=09=20=20=20=20=20
>     ok =3D open_db(dbname)
>     ok =3D get_record(dbname,tname,"V43.1",data,key)
>     puts(1,data)
>=20
>     close_db (dbname)
>=20
> I get an error that says,"variable data not defined".  Can someone tell=
=20
> me why?
>=20
> In the database I have an index for all three fields.  I'm trying to use=
=20
> the code for the key and I have the key set to 1.
>=20
> If I wanted to find by diagnosis do I replace the "V43.1" with what I'm=
=20
> looking for and change the key to 3?=20=20
>=20
> (Since the index table is sorted in alph order, the indexes are  1 =3D=
=20
> code, 2 =3D category and 3 =3D Description)

new topic     » goto parent     » topic index » view message » categorize

297.

by TDIMSO27.backend.tdata.com.ar
 (iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
 with ESMTPA id <0HN600FYZQUF5M at TDIMSO27.backend.tdata.com.ar> for
 EUforum at topica.com; Wed, 22 Oct 2003 22:01:28 -0300 (GMT)
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Simple eusql prog now works - kinda
lla
 vundefinedundefined) Gecko/20030624

I hadn=B4t been following this thread but you create a variable named data=
=20
  and you don=B4t assing anything to it, and then pass it in the=20
get_record function. What are u passing if data contains nothing? :)
That=B4s the error.

ronaustin at alltel.net wrote:
>=20
>=20
> Thanks to Matt I saw the error of my way and now have a new simple=20
> program that does write records to the eusql database.
>=20
> include database.e
> include eusql.e
>=20
> sequence   dbname,
> 	   tname,
> 	   ok,
> 	   code,    -- code=20
> 	   descrip, -- descripton
> 	   categ    -- category
>=20=09=20
>=20=09=20
>     dbname    =3D open_db("TEST.EDB")
>     tname     =3D "DIAG"
>     code      =3D "V43.1"
>     descrip   =3D "Psudoaphakia"
>     categ     =3D "Surg"
>=20=20=20=20=20
>     ok =3D    insert_record(dbname,tname,blank_record(dbname,tname),
>     {code,descrip,categ},{{1},{2},{3}})
>=20
>     close_db (dbname)
>=20
> Before I started dancing around and throwing my hat in the air I thought=
=20
> I should try to read a record out of the database.  Alas, this program=
=20
> don't work.
>=20
> include database.e
> include eusql.e
>=20
>=20
> sequence ok,
> 	 dbname,
> 	 tname,
> 	 data
>=20
>          integer key
>                  key =3D 1
>=20
> 	 dbname =3D "TEST.EDB"
> 	 tname  =3D "DIAG"
>=20=09=09=20=20=20=20=20
>     ok =3D open_db(dbname)
>     ok =3D get_record(dbname,tname,"V43.1",data,key)
>     puts(1,data)
>=20
>     close_db (dbname)
>=20
> I get an error that says,"variable data not defined".  Can someone tell=
=20
> me why?
>=20
> In the database I have an index for all three fields.  I'm trying to use=
=20
> the code for the key and I have the key set to 1.
>=20
> If I wanted to find by diagnosis do I replace the "V43.1" with what I'm=
=20
> looking for and change the key to 3?=20=20
>=20
> (Since the index table is sorted in alph order, the indexes are  1 =3D=
=20
> code, 2 =3D category and 3 =3D Description)

new topic     » goto parent     » topic index » view message » categorize

298.

h=domainkey-signature:received:received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
         bh=2o8AIYoi6IJuRmUBHIjCi1m4kUcJ3EpI3VCfd8TyA9c=;
 
b=p6oKYvZUyXyfK4sRsnnXxI1Rgt9JuVI80qjcHZnw2NW9wvyg0StDogKS1TacmrpDu2zB+lBCYaSdZPLwhA/s6ssBH2pwn1KKEhEKhtas+zsrjNv9Y7qB7A2r8tVMU141/NUMCAyhuTXuGWf6XM+3/57+bltV6b0oMxQMaCgF5e8=
DomainKey-Signature: a=rsa-sha1; c=nofws;
         d=gmail.com; s=beta;
 
h=received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
 
b=lrMSAw/dzWkk2l7Y82yp9AtkgHDE2BDE0CS8CjJwUDV1oZsW6d5daU/ktoFAfNw5g9E/fjR887xay3hi+3BFi7w7VL1rU3x6eVe6BItM3mU4axHVloHit9b30tFm6JeJ0pg/60bXYCCR/+FLfNk9TeYgQ6gxfQpWzPKCEKq1lhw=
Received: by 10.66.220.12 with SMTP id s12mr5349853ugg.1194320878294;
         Mon, 05 Nov 2007 19:47:58 -0800 (PST)
Received: by 10.67.22.20 with HTTP; Mon, 5 Nov 2007 19:47:58 -0800 (PST)
Message-ID: <5f27691c0711051947j5d625d8ema1530eb3e56314e9 at mail.gmail.com>
Date: Mon, 5 Nov 2007 20:47:58 -0700
From: "codepilot Gmail Account" <codepilot at gmail.com>
To: EUforum at topica.com
Subject: Re: C to EU Translator
In-Reply-To: <996636586-1463747838-1194199112 at boing.topica.com>
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----=_Part_24843_19006174.1194320878291"
References: <996636586-1463747838-1194199112 at boing.topica.com>

------=_Part_24843_19006174.1194320878291
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

I'll look at the stucture thing more, and also see how involved a complete C
processor would be.
Daniel


On 11/4/07, Chris Bensler <guest at rapideuphoria.com> wrote:
>
> ============ The Euphoria Mailing List ============
>
>
> posted by: Chris Bensler <eu at creativep?rta?.ca>
>
> codepilot Gmail Account wrote:
> >
> > Hmm. Maybe I should make it do macros and structures? Good idea! I have
> > already done COM. I know that macros can do a lot of things, should they
> > turn into functions? At some point a full blown C to Euphoria translator
> > needs to be made, because made H files have things that aren't as cut
> and
> > dry as a simple specification of call point entries/types/constants.
> Many of
> > the macros do a lot of work precompile that would make much sense in run
> > time, in euphoria as functions. And I really can't think of a good way
> to do
> > structures, maybe some ideas would be good.
>
> In previous attempts at making a C2EU translator, I aimed for a hybrid
> system involving several steps. Something like Auto->Manual->Auto->Manual.
> All in all I thought it was quite successful, but the process was still
> fairly labour intensive. Eg. All macros that were determined not to be
> constant values, were simply output as commented code. There were also
> portions of code that I didn't know how to handle correctly at the time or
> the translator was too dumb to handle, so I made a line matching cache,
> which the user would be prompted to manually convert a given line and the
> two would would then be stored in the cache file for later uses, without
> having to re-enter that line conversion again.
>
> This system had a few main drawbacks though. Mainly it only produced a
> single state of the api. Eg. Win98 and Ansi
> Producing another state would require going through the entire process
> again and having multiple versions of the API to deal with.
>
> It's been a while since I was working on it, but IIRC, there is 3 basic
> types of macros: constants, functions, and fragments
> Constants are fairly easy to determine, but to be able to identify
> functions from fragments, the translator must be capable of validating the C
> code as being self contained. Essentially this means that the translator
> must be capable of processing C code 100%.
>
> Structures are fairly difficult to process from the C code as well. It
> requires a fairly complete processor to be able to handle all possible
> occurances. For conversion to Euphoria, there is various methods that could
> be used for the generated structures. Win32lib uses it's own system of
> store/fetch I beleive. I think Bernie Ryan created a structure library made
> of machine code. And I wrote a structure emulation library.
>
> Chris Bensler
> Code is Alchemy


------=_Part_24843_19006174.1194320878291--

new topic     » goto parent     » topic index » view message » categorize

299.

for <EUforum at topica.com>; Fri, 8 Aug 2003 12:05:24 -0400 (EDT)
	charset=3D"iso-8859-1"
From: George Walters <gwalters at sc.rr.com>
Subject: Re: Text lines into an array of unknown size
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>

i would try

tx =3D append(tx,line)

george
----- Original Message -----
From: <kjactive at adslhome.dk>
To: "EUforum" <EUforum at topica.com>
Subject: Text lines into an array of unknown size



as new commer from rexx to Euphoria I see many nice and semilare options an=
d
a richness of WinOS options but I have some
basic newcommer problems on 'sequence a array'

I want to open a file of text of unknown size and put all lines into an
array where every line can be manipulated but I cannot get it right...

integer file
object line
constant ERROR =3D 2
integer c
c =3D 0
sequence tx

file =3D open("c:/rexx/rxcalibur.txt", "r")
if file =3D -1 then
 puts(ERROR, "couldn't open text file\n")
else
 while 1 do
  line =3D gets(file)
  if atom(line) then
   exit
  end if
 c =3D c + 1
 tx[c] =3D line
 end while
end if
close(file)
printf(1,"available lines:%d\n", {c}) -- correct
printf(1,"%s\n",tx[2]) -- ERROR

Where do I get it wrong!!! Probably a newcommers init problem but I would
like some explane...

K=E5re Johansson



TOPICA - Start your own email discussion group. FREE!

new topic     » goto parent     » topic index » view message » categorize

300.

by TDIMSO03.backend.tdata.com.ar
 (iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
 with ESMTPA id <0HJM006CCK9W46 at TDIMSO03.backend.tdata.com.ar> for
 EUforum at topica.com; Thu, 14 Aug 2003 16:46:50 -0300 (GMT)
 Gecko/20030624
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Win32 File Attribute Modification
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>

Hi Ted,
	I think this function should work (it's untested, if it doesn't work=20
let me know):

--Start of untested code--
include dll.e

constant krn32 =3D open_dll("kernel32.dll")
constant xSetFileAttributes =3D=20
define_c_func(krn32,"SetFileAttributes",{C_POINTER,C_POINTER},C_INT)

constant FILE_ATTRIBUTE_ARCHIVE =3D 32,
	FILE_ATTRIBUTE_COMPRESSED =3D 2048,
	FILE_ATTRIBUTE_NORMAL =3D 128,
	FILE_ATTRIBUTE_DIRECTORY =3D 16,
	FILE_ATTRIBUTE_HIDDEN =3D 2,
	FILE_ATTRIBUTE_READONLY =3D 1,
	FILE_ATTRIBUTE_SYSTEM =3D 4,
	FILE_ATTRIBUTE_TEMPORARY =3D 256,
	FILE_ATTRIBUTE_SPARSE_FILE =3D #200,
	FILE_ATTRIBUTE_REPARSE_POINT =3D #400,
	FILE_ATTRIBUTE_OFFLINE =3D #1000,
	FILE_ATTRIBUTE_NOT_CONTENT_INDEXED =3D #00002000,
	FILE_ATTRIBUTE_ENCRYPTED  =3D #4000

global function SetFileAttributes(sequence name, atom attribs)
	atom ptr
	integer ret
	ptr =3D allocate_string(name)
	ret =3D c_func(xSetFileAttributes,{name,attribs})
	free(ptr)
	return ret
end function
--End of code--

Example should be like:
	x =3D=20
SetFileAttributes("test.txt",or_all({FILE_ATTRIBUTE_HIDDEN,FILE_ATTRIBUTE_R=
EADONLY}))
	or
	x =3D SetFileAttributes("test.txt",FILE_ATTRIBUTE_NORMAL)

Best Regards,
	Guillermo Bonveh=ED

Ted Fines wrote:
>=20
>=20
> Hi all,
>=20
> I need to modify some file attributes, but don't want to do a=20
> 'system("attrib ...")' call.  Something like result =3D=20
> setFileAttr(myfile,attribs) is what I'm looking for.
>=20
> I searched the archive for libraries for dealing with file attributes,=
=20
> but only found info on looking at file attributes, not modifying them.=
=20=20
> Has someone come up with something I just missed?
>=20
> Thanks,
> Ted Fines
>=20
>=20
>=20
> TOPICA - Start your own email discussion group. FREE!
>=20
>=20
>=20

new topic     » goto parent     » topic index » view message » categorize

301.

by TDIMSO14.backend.tdata.com.ar
 (iPlanet Messaging Server 5.2 Patch 1 (built Aug 19 2002))
 with ESMTPA id <0HJM00KEFKFPHE at TDIMSO14.backend.tdata.com.ar> for
 EUforum at topica.com; Thu, 14 Aug 2003 16:50:16 -0300 (GMT)
 Gecko/20030624
From: Guillermo Bonvehi <knixeur at speedy.com.ar>
Subject: Re: Win32 File Attribute Modification
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>

I've just saw Jurgen's code, and i saw that if forgot to add the latest=20
A to SetFileAttributes, it should be SetFileAttributesA.
Hope some of the codes help.

Best Regards,
	Guillermo Bonveh=ED

Ted Fines wrote:

>=20
>=20
> Hi all,
>=20
> I need to modify some file attributes, but don't want to do a=20
> 'system("attrib ...")' call.  Something like result =3D=20
> setFileAttr(myfile,attribs) is what I'm looking for.
>=20
> I searched the archive for libraries for dealing with file attributes,=
=20
> but only found info on looking at file attributes, not modifying them.=
=20=20
> Has someone come up with something I just missed?
>=20
> Thanks,
> Ted Fines
>=20
>=20
>=20
> TOPICA - Start your own email discussion group. FREE!
>=20
>=20
>=20

new topic     » goto parent     » topic index » view message » categorize

302.

id <20030820061218.YPDI22338.tomts9-srv.bellnexxia.net@RapidEupho=
ria.com>
          for <EUforum at topica.com>; Wed, 20 Aug 2003 02:12:18 -0400
0030624 Netscape/7.1 (ax)
From: Robert Craig <rds at RapidEuphoria.com>
Subject: Re: CChris' file
ZyYy3gEHAQAAAAAABwAAAAAAZVQTag at boing.topica.com>

CChris wrote:
> Beware the long post...

I'll give a quick opinion on each item.

> The following is a commented list of features that I'd find desirable
> in Eu 2.5.
>=20
> A/ Variable management
>=20
> 1/ Pass by reference in routines
>=20
>    Description: when some code calls a routine, the routine may update so=
me vars=20
> whose references were passed to it.

I know PBR is convenient in some cases, but
currently the only way to modify a variable is
by directly assigning to it (or passing a value to a parameter).
I do not want any indirect, sneaky ways in which a variable can
be modified. Aliasing (two different names for the same thing) is bad.
Programming is simpler when you only have to think about values, not
storage locations that can be "pointed at" in various ways.

> 2/ Variable sharing
>=20
>    Description: enable two or more routines to access a symbol which is n=
ot local=20
> (filewide) or global.
>=20
>    Syntax: share x with rt1 [as y ][in file]
>    When this code is found in the declarations of routine rt2, the symbol=
 x is also made available
> to the routine rt1. x would be seen in rt1 as x if no "as" clause is ther=
e, pr as y
> otherwise. The routine rt1 may be in another file, in which case the "fil=
e" clause is needed.
>    x must have been declared before being shared.

Not necessary.
People can barely understand the scope rules as they are.

> 3/ Static variables in routines
>=20
>    Description: Allow routines to keep track of the values of private sym=
bols between executions.
>=20=20=20=20
>    Syntax: static <type> <var-list>
>    In order for a static variable to be initialized before it's first rea=
d,
> uninitialized variables should be handled.

A frill that would add some complexity
to address a trivial scope issue.
Just use file scope to retain the values.

> 4/ Allow uninitialized symbols to be passed to and returned=20
>    from routines
>=20
>    So that initialization routines can be used. Obviously, reading the va=
lue=20
> of an unitialized symbol will raise an error.

Currently, variables must be initialized before being used.
Why introduce the concept of an uninitialized variable
that can still be used. What problem are you trying to solve?
Is this another form of PBR?

> 5/ Arraying of symbols
>=20
>    Description: allow symbols to be referenced by a sequence
>=20
>    Syntax: array arrname v1[,v2,....]
>    This would create a sequence arrname whose first element aliases ident=
ifier v1,=20
> the second, if any, the symbol v2, and so on. This statement is a declara=
tion statement.
>=20
>    The idea of this, aas well as its usefulness, comes from the SAS langu=
age.

No aliases, please.

> 6/ Namespace hierarchy
>=20
>    Description: Ensures that two symbols without a namespace don't collid=
e when this was not meant.
>    When two or more global symbols are identified by the same string, Eu =
considers it an error,
> since it can't tell which one is meant. But such collisions may come from=

> conflicting names in unrelated libraries.
>    A simple solution is to adopt rules for choice, issuing a warning for =
the
> programmer's information. The rules could be:
>=20
>    a/ A conflict between explicitly namespaced symbols is an error condit=
ion;
>    b/ Let the distance between two files be the minimal numbe of include =
statements that allows=20
> the two symbols to clash. Then, only consider the symbols which were defi=
ned
> in the closest file(s).
>    c/ In case of ties, a linear link will take precedence over a broken l=
ink.
> A linear link means that the symbol is defined in a file that directly or=
 indirectly
> includes or is included by the one in which the reference is being resolv=
ed.
>    d/ In case of a tie, and if the links are of the same direction, an er=
ror must be raised.
> It means that two libraries define the same symbol, and more info is need=
ed.
>    e/ The remaining case is when a symbol is defined both in a file inclu=
ding the current file and
> in a file included in the current one. Then, the downward link (the latte=
r) is to be
> preferred.

Too complicated.
People already have trouble understanding the current
rules for namespacing.
Most programs do not even need the namespace feature.
I'm already planning to do Matt Lewis's refinement.
I don't see accidental collisions as a big issue,
or even a small issue.

> 7/ Scoped symbols
>=20
>    Descriptio: some symbols may be defined in a portion of routine/main c=
ode only.
>    Syntax: scope <var decls> ... endscope
>    Note that C-style braces, much easier to type, can't be used in Eu.

This level of scope control is too detailed.
It's not needed, and will add to people's confusion.

> B/ Routine management
>=20
> 1/ Forwarding.
>=20
>    Description: Allows to use a routine before it is defined.
>    Syntax:=20
>          forward function f([args])
>          ....
>          x=3Df(something)
>          ...
>          function f
>             ...
>             code defining the function
>             ...
>          end function
>=20
>    The alternative in 2.4 is to use call_proc/func, which obfuscates the =
code.

We crossed that bridge a long time ago.
Not interested.

> 2/ Allow discarding of function return values.
>=20
>    Description: It is sometimes useful to call a function as if it were a=
 procedure.
>    Syntax: ~thefunc([args])
>    where thefunc is a function.

Maybe. A small issue. No objection in principle.

> 3/ Return of several symbols.
>=20
>    Descritption: Allow function to simultaneously update several variable=
s.
>    Syntax: {x,y,....z}=3Df([args])
>    f must return a sequence each element of which is assigned to the corr=
esponding variable.
> Extra returned values are to be ignored.

I looked at that carefully a few years ago, and eventually grew
tired of the idea, but I wouldn't rule it out.

> 4/ Optional parameters.
>=20
>    Description: Allow the optional specification of parameters in routine=
 calls.
>    SQyntax: <routine> r([normal parms])([optional parms])
>    And, when called, the optional parameters may or may not be passed.

Like many other suggestions above, it's a refinement that adds a bit
of complexity to the language and thickens the manual,
in exchange for some minor convenience in rare cases.

> 5/ Default values for arguments.
>=20
>    Description: Allow to skip the most frequent value for a routine argum=
ent.
>    Syntax:=20
>       <routine> r(integer x=3D32767,sequence s)
>       ....
>       end <routine>
>       ...
>       y=3Dr(,s)  --argument x is 32767
>    Obviously, the comma is optional when no defaulted argulment is follow=
ed by a non-defaulted argument.

See previous comment.

> 6/ Named parameters
>=20
>    Description: Allow parameters to be passed as name=3Dvalue.
>    Named and unnamed arguments cannot be mixed in just any way.

See previous comment.

> 7/ Nested routines
>=20
>    Description: For nested routines, the code of the routine they are def=
ined in
> behaves exactly as the code outside a routine for a non-nested routine.
>    Syntax:=20
>       sequence t
>       .....
>       routine r1(...)
>       integer i
>       sequence s
>       routine r11(....)
>       integer i
>       ...
>       end routine
>       ...
>       end routine
>=20
>    In the example above, both routines r1 and r11 can see the sequence t=
=20
> as a public variable. If i is defined outside r1, r1 does not see this sy=
mbol.
> It defines another i that shadows the public i. Likewise, r11's i shadows=
 r1's i.
>    Retrieving the value of a shadowed symbol may resuire a special syntax=
.
>    Normally, a nested routine is only called by the routine in which it i=
s nested.
> This limitation might be relaxed in some cases.

I've used languages with nested routines, and they are useful sometimes,
but I think the language definition is much easier to understand when
all routines are non-nested.

> 8/ Routine_ids for builtins.
>=20
>    Description: routine_id() will return a value even for built-in routin=
es.

No reason why that hasn't been done.
I might get around to it. Not a huge demand.

> 9/ Routine redefinition.
>=20
>    Description: Coding a routine with the same name as a built-in or othe=
rwise
> previously specified routine would not cause an error, but the new routin=
e
> would be called instead of the former, hijacking its routine_id.
>=20
>    Syntax:
>       No special synntax required.
>       recover <routine decl> would undo all previous redefinitions.

"Hijacking" sounds like a recipe for confusion.

>    Note that nested routines, shared and static variables will greatly re=
duce
> the use of global syymbols, hence alleviating the namespace collisiion pr=
oblem.

I don't think there is much of a collision problem to alleviate.

> C/ Instruction flow cntrol
>=20
> 1/ Optional argument for the exit statement.
>=20
>    Description: Breaks out of several loop levels at the same time.
>    Syntax: exit [arg]
>    Arg may be:
>       a/ A positive number, which is the extra number of loop levels to l=
eave.
>       b/ A negative number, counting the loop levels from the top down. T=
hus,
> exit -1 means "exit the topmost loop".
>       c/ exit 0 can be tolerated as a synonym for plain exit.
>       d/ A label name, provided loops can be labelled.
>       e/ A for loop indexvariable name.
>=20=20=20=20=20=20=20
> 2/ Next statement
>=20
>    Description: Skips the rest of the designated loop and start a new ite=
ration.
>    Syntax: next [arg]
>    Same choices of [arg] as for exit.
>=20=20=20=20
> 3/ Retry statement
>=20
>    Description: Restarts the current iteration of the designated for loop=
.
>    Syntax: retry [arg]
>    Same rules as above.
>    retry does not quite make sense for while loops, since it would duplic=
ate next.
> So, it will count for loops only. This special behaviour might not be des=
irable=20
> if a repeat ... until construct is immplemented, because retry and next w=
ould have=20
> different meaning there..
>=20
> 4/ Exif statement
>=20
>    Description: Same as exit, but applies to if blocks.

I have no philosophical objection to these.
It's just a question of how often they are useful.
As a minimalist, I have avoided them, and probably
will continue to avoid them.

> 5/ Select statement=20=20=20
>=20
>    Description: Allows a decision to be made in more than two ways.
>    Syntax:
>       select <expr>
>          case x1: code to execute if the value of expr is x1
>          case x2: ...
>          case x3 thru x4:
>          case <5
>          case f(v,_)=3D0:
>          ....
>          [otherwise
>          ....]
>       end select
>=20=20=20=20=20=20=20
>    Each option inside the select statement is a case statement. A wide ra=
nge
> of ways to specify conditions can be devised, including using the anonymo=
us _=20
> symbol in complex constructs.
>    The optional otherwise clause is executed if no case statement caused =
the=20
> program flow to break out of the select statement.
>    Flow goes from ne case statement to the next, except when the break ke=
yword=20
> causes control to be passed to the statement following the closing end se=
lect statement.

In the early days I was considering adding a case statement,
but there was never a big user demand for it. I don't regret
leaving it out.

> 6/ xwhile loop
>=20
>    Description: same as a while loop, except that exit occurs as soon as
> the condition specified in the xwhile statement is no longer true, withou=
t the need
> for endlessly repeating tests.

Not sure I understand.

> 7/ Exception handling
>=20
>    Description: When some condition occurs, execute a specific handler.
>    Syntax: setExcHandler(condition_code,handler_routine_id)
>=20
>    The handler may access and modify any variable in scope when the handl=
er is invoked.
>    The handler may abort the program, reexecute the last instruction or r=
eturn
> normally.
>    Condition codes may not relate onlly to errors.

I'm still thinking seriously about a global exception handler.
It's easy to do, but there are some ramifications.
Fancier exception handling is probably not on.

> 8/ Guards
>=20
>    Description: Check for conditions inside a given scope and exeute code=
 when this happens.
>    Syntax:
>       on/when/whenever <condition> do
>       ...
>       end do
>    The scope of the guards may vary:
>    - on: current block only
>    - when: current routine
>    - whenever: from now on

No thanks.

> 9/ Dynamic code execution.
>=20
>    Description: Allow execution of text generated or fetched somewhere.
>    Syntax: execute(string)
>    The string in interpreted as if it had been loaded in memory in the fi=
rst
> place. Note that the include statement allows to do this, but only outsid=
e
> loops or routines.

Lots of people suggest this. Few give any examples where they would use it.=

I used a statement like this in APL years ago. I dearly wanted to find
"cool" things to do with it. Eventually I realized it was largely useless,
except for a few novelties.

The interpreter is not currently designed to allow this kind of statement.
It would be a big effort to change that, and might even slow things down
a bit for all programs.

> 10/ Selective type checking.
>=20
>    Description: Right now, either every assignment invokes type checking =
routines, or some=20
> supposedly minimal amount, not nown to programmer, is performed. The idea=
 is to
> specify variables that will be checked without type_check.
>=20
>    Syntax: check <variable decl>
>=20
>    The check prefix is ignored when type_check is on.

Seems like overkill.

> 11/ Additional type checking.
>=20
>    Description: On assignment, specified variables would go through a use=
r-definable
> set of validity checks. The user can add or remove such checks, performed=

> regardless of the type_check flag.
>=20
>    Syntax:
>      check(i1,var name/id)=20
>      add_check(i2,var name/id)
>      del_check(i2,var name/id)
>      uncheck(var nname/id)
>=20
>    These do what they say, i1 and i2 being routine_ids of additional chec=
king functions.
>    Additional type checks are coded just like ordinary type functions.

User defined type checking is not used that much as it is.
Why add a new level of complexity?

> 12/ Watch facility
>=20
>    Description: When a given variable is read, its watch function is invo=
ked,=20
> returning the value the variable (possibly) holds.
>=20
>    Syntax:
>       watch <variable decl>
>       The routine invoked will be a rtype routine, which follows the same=
 patterns=20
> and rules than type functions. Example:
>    rtype integer (integer x)
>       if x<0 then return 0
>       else return x
>       end if
>    end rtype
> would make all negative integers appear as 0.

Why?
Who needs the confusion?

> D/ Sequences and slices
>=20
> 1/ Negatives indexes
>=20
>    Description: inside any sequence index specifiation, a negative value =
might=20
> be used to count the elements backwards. So, longsequencename[length(long=
sequencename)]
> could be coded longsequencename[-1].

Accidental uses of negative indexes likely won't be caught as errors.
Why is this important?

> 2/ More slices
>=20
>    Decription: slices might appear in index specifications in other place=
s than just the last.
>    Thus, matrix[..][3] would be the 3rd row of a column-bnased matrix.

I implemented that in "Fourier", the language I did before Euphoria.
It was useful there because the parallel machine could do the operation
in hardware. In the Euphoria interpreter, I have no ultra-fast way to
implement this, so you might as well do it yourself in the
few places where it comes up. Maybe make a routine for it.

> 3/ Shorthands for "length(this)"
>=20
>    Description: Allow more flexible coding of slices that extend to the e=
nd
> of a sequence.
>    Syntax: matrix[..][3]      --see above
>            stack[$]           --last element of stack
>            word[2..]          --chop first letter off word

I agree that it's often cumbersome to write stuff like:
    longvariablename[1..length(longvariablename)-1]

I just don't know the best way to improve that.
Obviously:
    longvariablename[1..$-1]
is one way. I don't really like having lots of special
characters in the language though. They scare away beginners.

> 4/ Composition of sequences
>=20
>    Description: defines a subsequence using a sequence of indexes.
>    Syntax: t=3D{3,-1,5,3}
>            s=3D<some sequence>
>            s1=3Ds=F8t    s1 is a sequence of lenth 4: {s[3],s[-1],s[5],s[=
3]}
>    Pairs in t could specify slices.

Probably wouldn't be used often enough.
Easy enough to do with a loop.

> 5/ Dynamic indexing
>=20
>    Description: Allow variable length index specification
>    Syntax: s=3D{1,3,2}
>            t=3Du[[s]]     --t=3Du[1][3][2]
>=20
>    Again, pairs could be used in s to specify slices.

Wouldn't be used often enough.
There are many possibilities for defining subscripting a sequence
with a sequence. Maybe some day.

> 6/ Sequence manipulation routines
>=20
>    Description: replace, insert and move elemnts around in a sequence.
>    Syntax:
>       replace(seq,places_list,subst_list)=20
>          --places_list is a list of pairs of indexes delimiting subsequen=
ces in seq.
>          --Each of these will be replaced by the matching element in subs=
t_list.
>       insert(seq,where,x)   --x is inserted at position where in seq, who=
se length increased by 1
>       inserts(seq,where,x)  --if x is a sequence, its elements are insert=
ed starting at position=20
>          --where in seq.If x is an atom, same as insert.
>       move(seq,start,end,where)
>          --the subsequence seq[start..end] is moved so that it starts at =
where.
>       remove'szq,where)
>          --where is an index or a pair of indexes specifying element(s) t=
o be removed from seq.
>=20=20=20=20=20=20=20=20=20=20
>       Note that all these could be just some functions in misc.e Their be=
ing
> built-ins would probably increase speed.

I don't mind adding some more general-purpose functions to misc.e.

>  E/ Object programming capabilities.

Object oriented programming is great in theory,
but once you head down that road you will probably
end up doubling the size of the manual, trying to
explain the nuances and interactions among all the
different features. We can do a form of object oriented
programming using libraries like Mike Nelson's.

> F/ Miscellaneous
>=20
> 1/ Pre- and post-inc/decremnet operators C-style
> 2/ Allow concatenation of logical relations, such as 0<=3Dx<=3D9.
> 3/ Allow assignments inside conditions. The symbol :=3D could be used her=
e
> since =3D has a relational meaning.

Unnecessary frills.

-----------------

Thanks for your suggestions.
I'll save them in my Suggestions folder and I might
act on some of them.

Everyone has a different taste in programming languages.
My vision for Euphoria, since day 1, has been to create
a powerful, easy-to-learn, minimal, reliable and fast language.
I don't measure the progress of Euphoria by the number of
core language statements added each year.
New growth should mainly be in libraries, tools
and porting. BTW, someone with the source has recently ported Euphoria
to the Franklin eBookMan PDA - various text-mode programs are running.

Briefly, some other issues:

open source - I have no plans to make Euphoria open source or free in the
forseeable future. If I get tired of working on it, I'll consider it.
Keep in mind 95% of the Interpreter source is available to anyone for $49.
and keep in mind 95% of the functionality is already free to anyone.
Most libraries are open source.
I've gone as far as I can in the free and open direction without
giving up my income.

Euphoria sales - July 2003 set a new all-time record for registrations,
upgrades, and dollars income. Thanks to all who registered or upgraded.
Of course I'm not getting rich. I'm still driving a badly rusting
1989 Corolla. smile

Regards,
    Rob Craig
    Rapid Deployment Software
    http://www.RapidEuphoria.com

new topic     » goto parent     » topic index » view message » categorize

303.

I just sent Rob updates for my Euphoria Database Browser and ODBC library.

ODBC:
Bug fixes, added routines for inserting data

EDB:
Can view, edit, import and export from ODBC databases.

Until they make it to the user contributions page, you can get them here:

http://www14.brinkster.com/matthewlewis/projects.html

Matt Lewis

new topic     » goto parent     » topic index » view message » categorize

304.

This is a multi-part message in MIME format.

------=_NextPart_000_000C_01C36DAA.368416C0
	charset="iso-8859-1"

unsub-scribe
------=_NextPart_000_000C_01C36DAA.368416C0
	charset="iso-8859-1"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>

------=_NextPart_000_000C_01C36DAA.368416C0--

new topic     » goto parent     » topic index » view message » categorize

305. Re:

Patrick Barnes wrote:
> That is fine, I know you're close to releasing 2.5 now.
> Could we have a page on rapideuphoria somewhere that shows the features you 
> plan to implement in the next version of the language (So currently for 
> 2.5), and a list of features that are being considered for unspecified 
> versions beyond that? It would make it easier for us to see what you are 
> planning with the language, and make appropriate suggestions.

That's been requested before, 
and I think I promised to do something or other.
I'll think about it. Maybe we need an official
system for posting suggestions and bug reports
and getting a quick one-line response from me:
 "Yes, it's a bug", 
 "I love that suggestion!",
 "I hate that. I'll never, ever implement it"
 etc.

It comes as a shock to some people, but
I don't have any master plan.
Once I latch onto something useful, I implement it,
then I go back to my pile of half-baked ideas
and suggestions, and pick out something new to
work on. There's no plan. If post my long list
of cryptic half-baked ideas, I'll be flooded with proposals
and questions about all sorts of odd things that I 
really don't want to implement.

Regards,
   Rob Craig
   Rapid Deployment Software
   http://www.RapidEuphoria.com

new topic     » goto parent     » topic index » view message » categorize

306. Re:

>From: Robert Craig <guest at RapidEuphoria.com>
> > That is fine, I know you're close to releasing 2.5 now.
> > Could we have a page on rapideuphoria somewhere that shows the features 
>you
> > plan to implement in the next version of the language (So currently for
> > 2.5), and a list of features that are being considered for unspecified
> > versions beyond that? It would make it easier for us to see what you are
> > planning with the language, and make appropriate suggestions.
>
>That's been requested before,
>and I think I promised to do something or other.
>I'll think about it. Maybe we need an official
>system for posting suggestions and bug reports
>and getting a quick one-line response from me:
>  "Yes, it's a bug",
>  "I love that suggestion!",
>  "I hate that. I'll never, ever implement it"
>  etc.
>
>It comes as a shock to some people, but
>I don't have any master plan.
>Once I latch onto something useful, I implement it,
>then I go back to my pile of half-baked ideas
>and suggestions, and pick out something new to
>work on. There's no plan. If post my long list
>of cryptic half-baked ideas, I'll be flooded with proposals
>and questions about all sorts of odd things that I
>really don't want to implement.

Heheh...

Well, perhaps split it up into sections. Have a section called "Cloud 9", or 
even just "Half-baked ideas" for that, and state at the top that they're not 
being seriously considered now, or possible ever.
If someone submits something that is so obviously a bad idea ("Rob, why 
can't I write inline COBOL in euphoria????!?!?") it can be moved to a "Bad 
idea section".

Given your experience with ListFilter, a good idea might be to parse any 
top-level submissions (proposals, not replies), and show a list of "this 
idea may have been submitted already in one of these previous submissions, 
check before posting" to reduce duplicates.

Allow users to edit the top-level submission (the proposal) as new ideas are 
incorporated into the proposal, with a changelog. Mark agains replies to the 
proposal what version the replies were made.

Hmmm, I think this would be nice.
MrTrick

new topic     » goto parent     » topic index » view message » categorize

307.

h=domainkey-signature:received:received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
         bh=1fYpmmlZezspzb8lqefBBqwkTzqTfK+DoEkhA+8O3r8=;
 
b=GxRd3MWAEcpzUGzDDg0i0qIR2TWH72xOjdmSs9Odmyri47WC1sIQ0N8ciFk1mqIHs1sgolwYcU0mQc42/lX5W/0csaLs/0qbBTYPN/yNSCyUMsHqujttL2qpOk6frCiGU153YBal6maeKIesg+7eUazxbYTQdNgJixzrwTkReXY=
DomainKey-Signature: a=rsa-sha1; c=nofws;
         d=gmail.com; s=beta;
 
h=received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:references;
 
b=Lu1dYDtSurdd8R4F6nOGLMsa8QPa5ATA91+OLDiCkEdloQu7hVa9jvaF7snfvqRyTYHpOkL9O0tEqLK5Vu+GLecd51LRiGhfIEY6R4cgkGo3E2SN+emaoM37Qh608Vx3j1r4mApYjj6LqmWsPC0VvNdogrn7RQS+w/IITC8NE7w=
Received: by 10.67.25.6 with SMTP id c6mr1412140ugj.1193607512999;
         Sun, 28 Oct 2007 14:38:32 -0700 (PDT)
Received: by 10.67.22.20 with HTTP; Sun, 28 Oct 2007 14:38:32 -0700 (PDT)
Message-ID: <5f27691c0710281438u5245a0e6m961d6013c6f4c3db at mail.gmail.com>
Date: Sun, 28 Oct 2007 14:38:32 -0700
From: "codepilot Gmail Account" <codepilot at gmail.com>
To: EUforum at topica.com
Subject: Re: C to EU Translator
In-Reply-To: <1032536536-1463792638-1193598966 at boing.topica.com>
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----=_Part_472_2774155.1193607512988"
References: <1032536536-1463792638-1193598966 at boing.topica.com>

------=_Part_472_2774155.1193607512988
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

Hmm. Maybe I should make it do macros and structures? Good idea! I have
already done COM. I know that macros can do a lot of things, should they
turn into functions? At some point a full blown C to Euphoria translator
needs to be made, because made H files have things that aren't as cut and
dry as a simple specification of call point entries/types/constants. Many of
the macros do a lot of work precompile that would make much sense in run
time, in euphoria as functions. And I really can't think of a good way to do
structures, maybe some ideas would be good.

On 10/28/07, Chris Bensler <guest at rapideuphoria.com> wrote:
>
> ============ The Euphoria Mailing List ============
>
>
> posted by: Chris Bensler <eu at creat?vep?rtal.ca>
>
> c.k.lester wrote:
> >
> > What about the library from Daniel Kluss?
> >
> >     <a href="http://www.rapideuphoria.com/h_to_e.zip">
> http://www.rapideuphoria.com/h_to_e.zip</a>
> >
> > I think Matt has something like that in wxEuphoria, too.
>
> h_to_e does not produce a 100% translation. Ideally a 1:1 translation.
> Namely it only generates constants and minimal function wrappers.
> It doesn't handle structures or macros, etc... IIRC.
> I haven't seen Matt's. Maybe he can comment.
>
> What I would like to see is a tool that will allow us to generate Euphoria
> wrappers for C API's
> with which we can directly use the original documentation and not have to
> port _anything_ by hand.
> The translations should be as accurate to the original as possible.
>
> Chris Bensler
> Code is Alchemy
>
> --^----------------------------------------------------------------
> This email was sent to: codepilot at gmail.com
>
> EASY UNSUBSCRIBE click here: http://topica.com/u/?b1dd66.bTRIN1.Y29kZXBp
> Or send an email to: EUforum-unsubscribe at topica.com
>
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER
> --^----------------------------------------------------------------
>
>

------=_Part_472_2774155.1193607512988
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

Hmm. Maybe I should make it do macros and structures? Good idea! I have 
already done COM. I know that macros can do a lot of things, should they 
turn into functions? At some point a full blown C to Euphoria translator 
needs to be made, because made H files have things that aren't as 
cut and dry as a simple specification of call point 
entries/types/constants. Many of the macros do a lot of work precompile 
that would make much sense in run time, in euphoria as functions. And I 
really can't think of a good way to do structures, maybe some ideas 
would be good.
<br><br>
<div><span class="gmail_quote">On 10/28/07, <b 
class="gmail_sendername">Chris Bensler</b> &lt;<a 
href="mailto:guest at rapideuphoria.com">guest at rapideuphoria.com</a>&gt; 
wrote:</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 
0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">============ The Euphoria 
Mailing List ============<br><br><br>posted by: Chris Bensler &lt;eu at 
creat?vep?rtal.ca&gt;
<br><br>c.k.lester wrote:<br>&gt;<br>&gt; What about the library from 
Daniel Kluss?<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; &lt;a 
href=&quot;<a 
href="http://www.rapideuphoria.com/h_to_e.zip">http://www.rapideuphoria.com/h_to_e.zip</a>&quot;&gt;
<a 
href="http://www.rapideuphoria.com/h_to_e.zip">http://www.rapideuphoria.com/h_to_e.zip</a>&lt;/a&gt;<br>&gt;<br>&gt;
I think Matt has something like that in wxEuphoria, too.<br><br>h_to_e 
does not produce a 100% translation. Ideally a 1:1 translation.
<br>Namely it only generates constants and minimal function 
wrappers.<br>It doesn't handle structures or macros, etc... 
IIRC.<br>I haven't seen Matt's. Maybe he can 
comment.<br><br>What I would like to see is a tool that will allow us to 
generate Euphoria wrappers for C API's
<br>with which we can directly use the original documentation and not 
have to port _anything_ by hand.<br>The translations should be as 
accurate to the original as possible.<br><br>Chris Bensler<br>Code is 
Alchemy<br><br>
--^----------------------------------------------------------------<br>This 
email was sent to: <a 
href="mailto:codepilot at gmail.com">codepilot at gmail.com</a><br><br>EASY 
UNSUBSCRIBE click here: <a 
href="http://topica.com/u/?b1dd66.bTRIN1.Y29kZXBp">
http://topica.com/u/?b1dd66.bTRIN1.Y29kZXBp</a><br>Or send an email to: 
<a 
href="mailto:EUforum-unsubscribe at topica.com">EUforum-unsubscribe at
topica.com</a><br><br>For
Topica's complete suite of email marketing solutions visit:
<br><a 
href="http://www.topica.com/?p=TEXFOOTER">http://www.topica.com/?p=TEXFOOTER</a><br>--^----------------------------------------------------------------<br><br></blockquote></div><br>

------=_Part_472_2774155.1193607512988--

new topic     » goto parent     » topic index » view message » categorize

308.

I added a procedure to ed to comment or uncomment a group of lines
the two functions are accessed by ALT_C to comment out and ALT_U to uncomment

to modify  ed.ex do (backup ed.ex before any change)

1) find "-- special input characters"
2) add ALT_C = 302, and ALT_U = 278 to the list of constants
3) add ALT_C,ALT_U to CONTROL_CHARS constant
4) find "edit_file()" procedure and paste the following lines
   at the right place

                                elsif key = ALT_C then
                                        SetComment(1)  -- comment lines

                                elsif key = ALT_U then
                                        SetComment(0) -- uncomment lines


5) paste the following procedure somewhere before edit_file()

procedure SetComment(integer action)
-- if action = 1 then comment out a group of lines
-- if action = 0 then uncomment a group of lines

integer first, last,j
sequence inp
   inp = {1,0}
   while inp[1] do
     if action then
       set_top_line("Number of lines to comment out? (+ down, - up) ")
     else
       set_top_line("Number of lines to uncomment? (+ down, - up) ")
     end if
     inp = value(key_gets(""))
   end while
   if inp[2] < 0 then
         first = b_line + inp[2] + 1
         if first < 1 then
                first = 1
         end if
     last = b_line
   else
         first = b_line
     last = b_line + inp[2] - 1
     if last > length(buffer) then
        last = length(buffer)
     end if
   end if
   if action then -- comment out
     for i = first to last do
           j = 1
           -- skip white space and tab at line start
           while j <= length(buffer[i]) and find(buffer[i][j], " \t") do
          j = j+1
           end while
          if match("--",buffer[i][j..length(buffer[i])]) != 1 then
                 buffer[i] = "--" & buffer[i]
          end if
     end for
   else  -- uncomment
     for i = first to last  do
           j = 1
           -- skip white space and tab at line start
           while j <= length(buffer[i]) and find(buffer[i][j], " \t") do
          j = j+1
           end while
       if j < length(buffer[i]) then
         if match("--", buffer[i][j..length(buffer[i])]) = 1 then
                buffer[i] = buffer[i][j+2..length(buffer[i])]
         end if
       end if
     end for
   end if
   set_modified()
   normal_video()
   DisplayWindow(b_line - s_line + 1, 1)
end procedure --SetComment()


Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at quebectel.com

new topic     » goto parent     » topic index » view message » categorize

309.

My apologies to people who tried to reach me: I am surviving under a fourth
 network administrator in less than two years,
each with a different set of naming conventions - Rob Craig is right, I have
 lost track of my own name...

To Daniel Berstein Zimmermann: Go for it, Daniel, my code is in the public
 domain; I am glad you like it. Jiri.

new topic     » goto parent     » topic index » view message » categorize

310.

BABOR, JIRI wrote:

> To Daniel Berstein Zimmermann: Go for it, Daniel, my code is in the public
>  domain; I am glad you like it. Jiri.

        Thanks, I'll be posting it quite soon...
--
        Daniel Berstein Zimmermann
        dberst at cmet.net
        http://www.geocities.com/SiliconValley/Heights/9316

new topic     » goto parent     » topic index » view message » categorize

311.

Hi there,
I'm writing an article on Euphoria and maybe someone here is willing
to help me.
Best regards,
 Mihai Ciumeica                          mailto:rma at rma.dnt.md

new topic     » goto parent     » topic index » view message » categorize

312.

------=_NextPart_000_0021_01BEE2B1.AE52BFE0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

sighnoff euphoria

------=_NextPart_000_0021_01BEE2B1.AE52BFE0
        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 HTML 4.0 =
Transitional//EN">
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
<STYLE></STYLE>

</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>sighnoff =

------=_NextPart_000_0021_01BEE2B1.AE52BFE0--

new topic     » goto parent     » topic index » view message » categorize

313.

In a message dated 8/9/99 9:05:47 PM Central Daylight Time, jk2000 at PA.NET
writes:

<< sighnoff euphoria >>

  To sign off, you need to send that message to the server of the listserv.
The address is listserv at listserv.muohio.edu.
  Good luck in all your programming endeavors.

Derek Brown

new topic     » goto parent     » topic index » view message » categorize

314.

> Given ( as an output from err file when i hit shift-! on the lines below
> ) :
> datatofind = {19,48'0',48'0',124'|',115's',104'h',101'e',5}
>
> Why doesn't this line execute?:
>  if find({" 00|"},{data}) then printf(1,"%s\n", {data} ) end if
>
> Or this line:
>  if find(" 00|",{data}) then printf(1,"%s\n", {data} ) end if
>
> Or this line:
>  if find(" 00|",data) then printf(1,"%s\n", {data} ) end if
>
> Or this line:
>  if ( find({" 00|"},{data}) != 0 ) then printf(1,"%s\n", {data} ) end if
>
> Or these lines:
> StartOfRec = " 00|"
> if find(StartOfRec,data) then printf(1,"%s\n", {data} ) end if
>
> Or any line with {data}/" 00|" written with/without the {}. There is
> just nothing, no error, no printing. It traces onto it, then nothing
> happens on the other screen when i hit enter.
>
> The symbol there is a double ! in my editor, i get it by ctrl-s on the
> keybd.
>
> Kat,
> bewildered.

I believe the function you are looking for is match() instead of find().
Find looks for the first argument in each element of the second argument,
while match looks for the first argument as occurring as a slice in the
second.

Going back to your original example, I would rewrite it as:

object data
integer datafound
sequence datatofind

datafound = 0 -- false

while not datafound do
       data = gets( dctstrfile )
       if atom( data ) then
           exit  -- end-of-file
       end if
       datafound = match( datatofind, data )
end while


Later,
 _______  ______  _______  ______
[    _  \[    _ ][ _   _ ][    _ ]
[/| [_] |[/| [_\][/ | | \][/| [_\]
  |  ___/  |  _]    | |     |  _]
[\| [/]  [\| [_/] [\| |/] [\| [_/]
[_____]  [______] [_____] [______]
xseal at harborside.com  ICQ:13466657
http://www.harborside.com/home/x/xseal/euphoria/

new topic     » goto parent     » topic index » view message » categorize

315. Re: Re:

--------------Boundary-00=_ZL94MY50000000000000


--------------Boundary-00=_ZL94H890000000000000
  charset="iso-8859-1"

I'm using EDS on a big project (news page not finished yet) and it works =
fine.
I haven't used the other libraries because I'm not a db expert and I don'=
t want to be one.

Win32lib is still on a development stage, but I think that's not that bug=
gy, maybe you could see some weird stuff, but the win32lib team had shown=
 a special interest on fixing the bugs so it's not a big problem.

Give euphoria a try, it's easy and fast to devolp programs on it, and spe=
cial debugging them! (If you have thel full version you have more details=
 to fix the problems).

Best Regards,
      Guillermo Bonveh=ED
      AKA: Knixeur, Red Knight, Caballero Rojo

-------Original Message-------


From: Ray Smith=20
To: EUforum=20
Subject: Re:


=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
"Before myTopica, I was buried in an avalanche of email.
Now, thanks to this free solution, I am on top of my inbox."
Get rescued at
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Hi Chris,

> 1) Is there support for relational databases

The archives contain:

*  a MySQL wrapper,
*  a pretty new ODBC wrapper (this is not a full wrapper but I
think the basics work).
*  Euphoria's own EDS database system.

I don't think any of these have been used on a big project yet????
not that I can recall hearing about anyway.  I haven't used the MySQL
wrapper but the other two seem to work ok from my small amount
of playing.


> 2) I saw a win32 GUI Library, what controls does it support? More
> specifically, does it wrap dockables windows, etc?

Win32Lib  is an excellent wrapper for the Windows API.
It has support for the majority of Windows features likes windows, button=
s,
toolbars, listviews, status bars, textboxes etc etc.
It is still being heavily developed and as such the odd bug still exists =
and
the
doco hasn't caught up yet.
You will find many many examples of reasonably simple demos using
Win32Lib.
>From my personal view I wouldn't start a major development project until
Win32Lib is a little more stable.  Others might disagree?? I'd like to he=
ar
opinions of anyone who does disagree.

> 3) How does compiled Euphoria code compare to say (realistically) Visua=
l
> Basic?

Well, Euphoria in most cases are bound when distributed.  This means the
runtime
interpreter and the source program is merged together for ease of
distribution.
I have never done any benchmarks against any of language ... but then aga=
in
I have
never had the need for more speed with Euphoria.
If you are planning any type of business software with Euphoria will have
power to burn.

There is also a translator available that translates your Euphoria progra=
m
to C which you can then compile .... which "might" increase the speed
somewhat.
The amount of increase has been debated on the list on and off for a few
months.

> Also, If anyone knows of a compiled GUI program that demonstrates the
> power of Euphoria could you please post the link?

I don't know of any large applications ... the best bet is to look throug=
h
the recent user contributions.  I don't think you will find what your
looking
for though.  (Maybe the IDE is a good example???)

> I'm trying to save myself a few months of development by finding a
> substitute language I could use for this project. I've made database
> programs in C++ before, and I don't want to go there again.

For windows development I don't think Euphoria is the tool to save yourse=
lf
time writing software.
Although the base language is very stable and fast, it by itself won't he=
lp
you
do anything in Windows.  All the windows add on libraries are written by
users
you graciously give there code to the community.  This in most cases mean=
s
bugs are more prominent, documentation is lacking and support is given
by a few devoted users.

My tool of choice for writing "business" type software for Windows would =
be
Visual Basic or Delphi.
Visual Basic (VB) has many knockers (especially around here on the Euphor=
ia
list)
and in some regards VB is very inefficent (the word bloatware was probabl=
y
conceived
by a VB programmer!) but for a development tool that helps you to deliver=
 a
project
to a client on time with required functioanlity I don't thin anything com=
es
close.

If the size of your projects distribution is a major concern I'd suggest
Delphi.

Ray Smith
--------------Boundary-00=_ZL94H890000000000000
Content-Type: Multipart/related;
boundary="------------Boundary-00=_ZL94CJD0000000000000"


--------------Boundary-00=_ZL94CJD0000000000000
Content-Type: Text/HTML;
  charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<html>
<head>
<meta name=3D"GENERATOR" content=3D"IncrediMail 1.0">
</head>

<BODY background=3D"" bgColor=3D#ffffff style=3D"BACKGROUND-POSITION: 0px=
 0px; FONT-FAMILY: Arial" scroll=3Dyes ORGYPOS=3D"0">
<TABLE border=3D0 cellPadding=3D2 cellSpacing=3D0 id=3DINCREDIMAINTABLE w=
idth=3D"100%">
<TBODY>
<TR>
<TD id=3DINCREDIHEADER width=3D"100%"></TD>
</TR>
<TR>
<TD id=3DINCREDITEXTREGION width=3D"100%">
      <DIV>I'm using EDS on a big project (news page not finished yet) an=
d it=20
      works fine.</DIV>
      <DIV>I haven't used the other libraries because I'm not a db expert=
 and I=20
      don't want to be one.</DIV>
      <DIV>&nbsp;</DIV>
      <DIV>Win32lib is still on a development stage, but I think that's n=
ot that=20
      buggy, maybe you could see some weird stuff, but the win32lib team =
had=20
      shown a special interest on fixing the bugs so it's not a&nbsp;big=20
      problem.</DIV>
      <DIV>&nbsp;</DIV>
      <DIV>Give euphoria a try, it's easy and fast to devolp programs on =
it, and=20
      special debugging them! (If you have thel full version you have mor=
e=20
      details to fix the problems).</DIV>
      <DIV>&nbsp;</DIV>
      <DIV>
      <DIV>Best Regards,</DIV>
      <DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Guillermo Bonveh=ED</DIV>
      <DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AKA: Knixeur, Red Knight, Cabal=
lero=20
      Rojo</DIV></DIV>
      <DIV>&nbsp;</DIV>
      <DIV><I>-------Original Message-------</I></DIV>
      <DIV>&nbsp;</DIV>
      <DIV>&nbsp;</DIV>
      <DIV dir=3Dltr id=3Dfromshowfield><U><I>From:</I></U><B> Ray Smith=20
      <SMITHR at IX.NET.AU></B></DIV>
      <DIV dir=3Dltr id=3Dtoshowfield><U><I>To:</I></U><B> EUforum=20
      <EUFORUM at TOPICA.COM></B></DIV>
      <DIV dir=3Dltr id=3Dsubjectshowfield><U><I>Subject:</I></U><B>=20
      Re:</B></DIV><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;&nbsp;=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D<BR>"Be=
fore=20
      myTopica, I was buried in an avalanche of email.<BR>Now, thanks to =
this=20
      free solution, I am on top of my inbox."<BR>Get rescued=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D<BR><BR>Hi=20
      Chris,<BR><BR>&gt; 1) Is there support for relational databases<BR>=
<BR>The=20
      archives contain:<BR><BR>*&nbsp; a MySQL wrapper,<BR>*&nbsp; a pret=
ty new=20
      ODBC wrapper (this is not a full wrapper but I<BR>think the basics=20
      work).<BR>*&nbsp; Euphoria's own EDS database system.<BR><BR>I don'=
t think=20
      any of these have been used on a big project yet????<BR>not that I =
can=20
      recall hearing about anyway.&nbsp; I haven't used the MySQL<BR>wrap=
per but=20
      the other two seem to work ok from my small amount<BR>of=20
      playing.<BR><BR><BR>&gt; 2) I saw a win32 GUI Library, what control=
s does=20
      it support? More<BR>&gt; specifically, does it wrap dockables windo=
ws,=20
      etc?<BR><BR>Win32Lib&nbsp; is an excellent wrapper for the Windows=20
      API.<BR>It has support for the majority of Windows features likes w=
indows,=20
      buttons,<BR>toolbars, listviews, status bars, textboxes etc etc.<BR=
>It is=20
      still being heavily developed and as such the odd bug still exists=20
      and<BR>the<BR>doco hasn't caught up yet.<BR>You will find many many=
=20
      examples of reasonably simple demos using<BR>Win32Lib.<BR>&gt;From =
my=20
      personal view I wouldn't start a major development project=20
      until<BR>Win32Lib is a little more stable.&nbsp; Others might disag=
ree??=20
      I'd like to hear<BR>opinions of anyone who does disagree.<BR><BR>&g=
t; 3)=20
      How does compiled Euphoria code compare to say (realistically)=20
      Visual<BR>&gt; Basic?<BR><BR>Well, Euphoria in most cases are bound=
 when=20
      distributed.&nbsp; This means the<BR>runtime<BR>interpreter and the=
 source=20
      program is merged together for ease of<BR>distribution.<BR>I have n=
ever=20
      done any benchmarks against any of language ... but then again<BR>I=
=20
      have<BR>never had the need for more speed with Euphoria.<BR>If you =
are=20
      planning any type of business software with Euphoria will have<BR>p=
ower to=20
      burn.<BR><BR>There is also a translator available that translates y=
our=20
      Euphoria program<BR>to C which you can then compile .... which "mig=
ht"=20
      increase the speed<BR>somewhat.<BR>The amount of increase has been =
debated=20
      on the list on and off for a few<BR>months.<BR><BR>&gt; Also, If an=
yone=20
      knows of a compiled GUI program that demonstrates the<BR>&gt; power=
 of=20
      Euphoria could you please post the link?<BR><BR>I don't know of any=
 large=20
      applications ... the best bet is to look through<BR>the recent user=
=20
      contributions.&nbsp; I don't think you will find what=20
      your<BR>looking<BR>for though.&nbsp; (Maybe the IDE is a good=20
      example???)<BR><BR>&gt; I'm trying to save myself a few months of=20
      development by finding a<BR>&gt; substitute language I could use fo=
r this=20
      project. I've made database<BR>&gt; programs in C++ before, and I d=
on't=20
      want to go there again.<BR><BR>For windows development I don't thin=
k=20
      Euphoria is the tool to save yourself<BR>time writing=20
      software.<BR>Although the base language is very stable and fast, it=
 by=20
      itself won't help<BR>you<BR>do anything in Windows.&nbsp; All the w=
indows=20
      add on libraries are written by<BR>users<BR>you graciously give the=
re code=20
      to the community.&nbsp; This in most cases means<BR>bugs are more=20
      prominent, documentation is lacking and support is given<BR>by a fe=
w=20
      devoted users.<BR><BR>My tool of choice for writing "business" type=
=20
      software for Windows would be<BR>Visual Basic or Delphi.<BR>Visual =
Basic=20
      (VB) has many knockers (especially around here on the=20
      Euphoria<BR>list)<BR>and in some regards VB is very inefficent (the=
 word=20
      bloatware was probably<BR>conceived<BR>by a VB programmer!) but for=
 a=20
      development tool that helps you to deliver a<BR>project<BR>to a cli=
ent on=20
      time with required functioanlity I don't thin anything=20
      comes<BR>close.<BR><BR>If the size of your projects distribution is=
 a=20
      major concern I'd suggest<BR>Delphi.<BR><BR>Ray Smith<BR><BR><BR></=
TD>
</TR>
<TR>
<TD id=3DINCREDIFOOTER width=3D"100%">
=09<TABLE cellPadding=3D0 cellSpacing=3D0 width=3D"100%">
=09<TBODY>
=09<TR>
=09<TD width=3D"100%"></TD>
=09<TD align=3Dmiddle id=3DINCREDISOUND vAlign=3Dbottom></TD>
=09<TD align=3Dmiddle id=3DINCREDIANIM vAlign=3Dbottom></TD>
=09</TR>
=09</TBODY>
=09</TABLE>
</TD>
</TR>
</TBODY>
</TABLE><SPAN=20
id=3DIncrediStamp><FONT face=3D"Arial, Helvetica, sans-serif"=20
--------------Boundary-00=_ZL94CJD0000000000000--

--------------Boundary-00=_ZL94H890000000000000--

--------------Boundary-00=_ZL94MY50000000000000--

new topic     » goto parent     » topic index » view message » categorize

316. Re:

I've got a 40 meg and growing database and
havent run into a problem useing 
Win98, Win32Lib and EDS.....

I just recently read that Win ME had no DOS support
so I asked if it would function and several people
said it would....

EDS is really nice if used (handled) proper
I converted 3.8 megs of Dbase .dbf .dbt files
over to EDS and saved alittle under 2 meg space.

Euman

----- Original Message ----- 
From: "Derek Parnell" <ddparnell at bigpond.com>
To: "EUforum" <EUforum at topica.com>
Sent: Sunday, April 01, 2001 22:05
Subject: RE: Re:


> 
> 
> Yeah, go for it. Euphoria with Win32lib and EDS could handle this task
> easily. The performance would be quite acceptable using a PC from the last 3
> years. (P2, 8Meg RAM, 200Meg disk, Windows 98)
> 
> I have an application using EDS, Win32lib that is much more demanding than
> the one you outlined. (60 concurrent client machines handling the UI and a
> single server handling the Database) (Sorry, source and object code not
> available as it proprietary and I'm operating under a non-disclosure
> agreement).
> 
> -----------
> cheers,
> Derek Parnell
> 
> 
> > -----Original Message-----
> > From: chris_esen at hotmail.com [mailto:chris_esen at hotmail.com]
> > Sent: Monday, 2 April 2001 12:42 PM
> > To: EUforum
> > Subject: RE: Re:
> >
> >
> >
> > Hey -
> >
> > I'm working on a database program with 300+ fields for each
> > individual.
> > I suspect an average of 25 individuals to be entered into the
> > database
> > at once. It's not a complicated program at all. Basicly I'm going to
> > sort >all< of this information after I compare it against the other
> > individual's fields, then display the top N winners for each
> > group (each
> > group has a table). Now there's more to it, like some individuals may
> > not have groups while others will and blah blah blah. The rest of the
> > program sets the MAX and MIN limit for the information being entered
> > into the fields. It's gonna be chock full of UI.
> >
> > Later,
> > Chris
> >
> 
> 
> 
> 
>

new topic     » goto parent     » topic index » view message » categorize

317. Re:

This is a cryptographically signed message in MIME format.

--7359-5655-23892-987328760

new topic     » goto parent     » topic index » view message » categorize

318.


new topic     » goto parent     » topic index » view message » categorize

319.

>

new topic     » goto parent     » topic index » view message » categorize

320.

> 

> 
> 



------------------------------------------------------------
//// Totally FREE software.  Just pay shipping! \\\\
|| Click here --->> http://www.free-cd-software.com ||
<a href="http://www.free-cd-software.com">AOL Link</a>

new topic     » goto parent     » topic index » view message » categorize

321.

>
>
>

new topic     » goto parent     » topic index » view message » categorize

322.

This is a multi-part message in MIME format.

------=_NextPart_000_0015_01C0D0D3.14584560
	charset="iso-8859-1"

mailto:EUforum-unsubscribe at topica.com

------=_NextPart_000_0015_01C0D0D3.14584560
	charset="iso-8859-1"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2919.3800" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#befcfc>
<DIV><FONT face=3DArial size=3D2><A=20
href=3D"mailto:EUforum-unsubscribe at topica.com">mailto:EUforum-unsubscribe=

------=_NextPart_000_0015_01C0D0D3.14584560--

new topic     » goto parent     » topic index » view message » categorize

Search



Quick Links

User menu

Not signed in.

Misc Menu