OpenEuphoria

Greetings!

• Posted by Ralph Hilton <rhilton at MAIL.INCONNECT.COM> Dec 30, 1997
• 765 views

Greetings,


I've been a registered user of EU for sometime and up-till-now I have'nt done
 much with it. All that has changed as the creative bug has hit me and have
 decided to write an RPG BBS Door game in EU.


I've been a 'lurker' on this list for about a year now. What has prompted me to
 start a project with EU is some of the messages about UNFINISHED projects and
 such. I decided it was about time for me to START a project <<G> and hopefully
 finish it.


I used to program in a language called GFA-Basic, a language for the ATARI ST
 (680xx), it is procedure oriented similar to EU, but that was in the 80's and I
 really have'nt programmed AT ALL for the Intel chip.


With the above in mind I will become your worst pest in the question department
 , forwarned is forarmed. <<G>


Here is a snippet of code that I keep getting an error:


invalid escape character

File = "c:\euphoria\telenora\dorinfo1.def"

          ^

(I think the EU is interpreting the backslash as part of a 'token' like \n for a
 new line...)


as soon as move dorinfo1.def into the BIN directory and change it to read like
 this:


File = "dorinfo1.def"


sequence Line,

        File,

        BBSUserInfo,

        UserAliasFirst,

        UserRealFirst,

        UserAliasLast,

        UserRealLast,

        PlayerBBSName,

        BBSName,

        Temp1,

        Temp2,

        ComPort


    -- Initialize Variables


File = "c:\euphoria\telenora\dorinfo1.def"


...


procedure GetDorinfo() -- Gets info from Dorinfo1.def & puts it in

                       -- the sequence BBSUserInfo.

    FileNumber = open(File,"r")

        if FileNumber = -1 then

                puts(SCREEN,"**** Program Halted ****\nCould Not open " & File

                abort(1)

        else

                for x = 1 to 12 do

                        Line = gets(FileNumber)

                        BBSUserInfo = append(BBSUserInfo,Line)

                end for

        end if


    close(FileNumber)

end procedure


-------


Any help would be appreciated....


Ralph






Beta Tester for Battlecruiser 3000ad By Derek Smart


Cmdr. Major Havoc GCV: Hell's Heart


"<bold><italic>If you don't stand for something....

        You'll fall for anything...."


Battlecruiser 3000ad Live Chat, No Special Soft-

ware needed, just a Java-Enabled Web-Browser!


http://www.inconnect.com/~rhilton/parachat.htm


Battlecruiser Info Page & Patches


http://www.inconnect.com/~rhilton/bc3k.htm

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