OpenEuphoria

Re: bug in the dos32 version?

• Posted by "Keith B. Devens" <Keith83 at SPRYNET.COM> May 26, 1998
• 712 views

--Message-Boundary-3417
Content-type: text/plain; charset=US-ASCII
Content-description: Mail message body

oh man, sorry. I forgot to attach the code to the second e-mail. I'm
sorry, I'm tired. It's too late. Anyway, here it is.

Keith


--Message-Boundary-3417
Content-type: text/plain; charset=US-ASCII
Content-description: Text from file 'Test.ex'

include get.e

constant Name = 1
constant Address = 2
constant Phone = 3

atom menunum

sequence client
sequence clientel

clientel= {}

--------------------------------------------------------------------------
procedure readclient ()

client = {Name, Address, Phone}

puts (1, "Enter the Name: ")
 client[Name] = gets(0)
 client[Name] = client[Name][1..length(client[Name])-1]
puts (1, '\n')
puts (1, "Enter the Address: ")
 client[Address] = gets(0)
 client[Address] = client[Address][1..length(client[Address])-1]
puts (1, '\n')
puts (1, "Enter the Phone Number: ")
 client[Phone] = gets(0)
 client[Phone] = client[Phone][1..length(client[Phone])-1]
puts (1, "\n\n")
end procedure
--------------------------------------------------------------------------
procedure putclient(sequence client)
 clientel = append(clientel, client)
end procedure
--------------------------------------------------------------------------
procedure printclientel(sequence clientel)

if length(clientel) = 0 then
    puts (1, "The client list is empty.\n")
else
puts (1, "Name                    Address                            Phone\n")

for clientcount = 1 to length(clientel) do
    puts (1, clientel[clientcount][Name])
        for temp = 1 to 24-(length(clientel[clientcount][Name])) do
            puts (1, ' ')
        end for
    puts (1, clientel[clientcount][Address])
        for temp = 1 to 35-(length(clientel[clientcount][Address])) do
            puts (1, ' ')
        end for
    puts (1, clientel[clientcount][Phone])
puts (1, '\n')
end for
end if
puts (1, '\n')
end procedure
--------------------------------------------------------------------------
procedure menu()
object input
puts(1, "Enter 1 to Enter a new client\n" &
        "Enter 2 to Delete a client\n" &
        "Enter 3 to Print the client list\n" &
        "Enter 4 to exit the program\n\n" &
        "Enter now: ")

input = get(0)
menunum = input[2]

puts (1, "\n\n")

end procedure
--------------------------------------------------------------------------
procedure clearclientel()
    clientel = {}
    puts (1, "The client list has been cleared.\n\n")
end procedure
--------------------------------------------------------------------------

menunum = 0
while menunum != 4 do
menu()
if menunum = 1 then
    readclient()
    putclient(client)
elsif menunum = 2 then
    clearclientel()
elsif menunum = 3 then
    printclientel(clientel)
end if
end while
--Message-Boundary-3417--