print(1,"Hey, now!")
    clear_screen()
    pixel({BRIGHT_BLUE,BRIGHT_RED,BRIGHT_GREEN},{100,150})

   receiving variable = function name (parameters) 

   index_bitmap = read_bitmap("index.bmp")
   pressed_key = get_key()
   computed_result = sqrt(25) * (30 + units)
 

   a           - either an atom data object or a variable of type atom
   i           - either an integer data object or a variable of type integer
   o           - either an object data object or a variable of type object
   s           - either a sequence data object or a variable of type sequence
   ra,ri,ro,rs - receiving variable, the second letter means variable type.

   print(1,o)

atom some_atom_value
some_atom_value = 134.45

print(1,some_atom_value)

sequence some_sequence_value
some_sequence_value = {1,2,3,4,3,2,1}

print(1,some_sequence_value)

print(1,36/2)

sequence my_name
my_name = "David Gay"

print(1,my_name)

    puts(1,o) 

atom a_character
a_character = 'A'

puts(1,a_character)

sequence a_string
a_string = "Utter Nonsense"
puts(1,a_string)

puts(1,"Column 1\tColumn 2\tColumn 3\n\n")
puts(1,"********\t********\t********\n")
puts(1,"********\t********\t********\n")
puts(1,"********\t********\t********\n")
puts(1,"********\t********\t********\n")
puts(1,"********\t********\t********\n")
puts(1,"********\t********\t********\n")
puts(1,"********\t********\t********\n")
puts(1,"********\t********\t********\n")
puts(1,"********\t********\t********\n")
puts(1,"********\t********\t********\n")

   printf(1,s,o) 

   printf(1,"%s\n","Euphoria")        - Only "E" is printed
   printf(1,"%s\n",{"Euphoria"})      - "Euphoria" is printed

atom     atom_value
integer  integer_value

atom_value = 1233.14
integer_value = 255

print(1,atom_value)
printf(1,"\n  is shown as %d when using %%d", atom_value)
printf(1,"\n  is shown as %e when using %%e", atom_value)
printf(1,"\n  is shown as %f when using %%f\n\n", atom_value)

print(1,integer_value)
printf(1,"\n  is shown as %x when using %%x", integer_value)
printf(1,"\n  is shown as %o when using %%o\n\n", integer_value)

atom_value = 'A'
print(1,atom_value)
printf(1,"\n  is shown as %s when using %%s\n", atom_value)

puts(1,"Field Width Using %9s\n")
puts(1,".........\n")
printf(1,"%9s", {"CAT"})
puts(1,"\n\n")

puts(1,"Field Width Using %-9s\n")
puts(1,".........\n")
printf(1,"%-9s", {"CAT"})
puts(1,"\n\n")

puts(1,"Field Width Using %4d\n")
puts(1,"....\n")
printf(1,"%4d", 123)
puts(1,"\n\n")

puts(1,"Field Width Using %04d\n")
puts(1,"....\n")
printf(1,"%04d", 123)
puts(1,"\n\n")

puts(1,"Field Width Using %+4d\n")
puts(1,"....\n")
printf(1,"%+4d", 123)
puts(1,"\n\n")

puts(1, "How Decimal Precision Affects Floating Point Values\n\n")
printf(1,"%f  <- Using Straight %%f\n", 123.7651)
puts(1,".......\n")
printf(1,"%7.3f  <- %%7.3f\n", 123.7651)
printf(1,"%7.2f  <- %%7.2f\n", 123.7651)
printf(1,"%7.1f  <- %%7.1f\n", 123.7651)
printf(1,"%7.0f  <- %%7.0f\n", 123.7651)

   if expression then
       one or more Euphoria statements
   end if 

atom first, second, sum
first = 36
second = 1.5
sum = first * second

if second >= 1.4 and second <= 1.6 then
     puts(1,"Condition 1 is true\n")
end if

if sum = 54 then
     puts(1,"Condition 2 is true\n")
     first = 63
end if

if first = 36 then
     puts(1,"Condition 3 is true\n")
end if

   if speed > 65 then
        puts(1,"You are driving too fast!\n")
   end if
   if speed <= 65 then
        puts(1,"Thank you for driving within the speed limit!\n")
   end if

   if expression then
       one or more statements that will only run if expression is true
   else
       one or more statements that will only run if expression is false
   end if 

atom character

character = 'a'

if character = 'a' then
     puts(1,"********************************\n")
     puts(1,"* This line should be printed! *\n")
     puts(1,"********************************\n")
else
     puts(1,"This line should not be printed!\n")
end if

character = 'b'

if character = 'a' then
     puts(1,"This line should not be printed!\n")
else
     puts(1,"********************************\n")
     puts(1,"* This line should be printed! *\n")
     puts(1,"********************************\n")
end if

   if  expression 1 then
        one or more statements that execute if expression 1 is true
   elsif expression 2 then
        one or more statements that execute if expression 2 is true
   elsif expression 3 then
        one or more statements that execute if expression 3 is true
   elsif expression 4 then
        one or more statements that execute if expression 4 is true
   end if 

atom character

character = 'M'

if character >= 'A' and character <= 'J' then
     puts(1, "This line should not be printed\n")
elsif character >= 'K' and character <= 'T' then
     puts(1, "********************************\n")
     puts(1, "* This line should be printed! *\n")
     puts(1, "********************************\n")
elsif character >= 'U' and character <= 'Z' then
     puts(1, "This line should not be printed\n")
end if

   if expression 1 then
        if expression 2 then
             one or more statements that run only if expression 2 is true
       end if
   end if 

   if expression 1 and expression 2 then
        one or more expressions to be run only if both expressions are true
   end if 

   ri  = compare(o1,o2)

   sequence my_name
   my_name = "David Gay"
   if compare(my_name, "David Gay") = 0 then
        puts(1,"Hi, David!\n")
   else
        puts(1,"Who the heck are you?\n")
   end if

sequence animal1, animal2

animal1 = "cat"
animal2 = animal1

if compare(animal1,animal2) = 0 then
     puts(1, "These strings are the same\n")
else
     puts(1, "These strings are unequal\n")
end if

animal2 = "CAT"

if compare(animal1,animal2) = 0 then
     puts(1, "These strings are the same\n")
else
     puts(1, "These strings are unequal\n")
end if

   while expression do
        one or more statements that are executed while condition is true
   end while 

atom count
puts(1,"Hello, I'm Sparky I, The Counting Euphoria Program\n")
puts(1,"Watch me count to 10!\n\n")
count = 1
while count < 11 do
     printf(1,"%d\n",count)
     count = count + 1
end while

   for ra = start value to end value by increment do
        one or more statements to repeat until ra > end value
   end for 

puts(1,"Hello, I'm Sparky II, The Counting Euphoria Program\n")
puts(1,"Watch me count to 5, then back again to 1!\n\n")
for count = 1 to 5 do
     printf(1,"%d\n",count)
end for
puts(1,"\n")
for count = 5 to 1 by -1 do
     printf(1,"%d\n",count)
end for

atom pet_index
sequence pets
puts(1,"Examples Of Animals You Can Keep As Pets\n")
puts(1,"========================================\n\n")
pets = {"Cat",
        "Dog",
        "Hamster",
        "Rat",
        "Snake",
        "Parrot",
        "Budgie",
        "Unelected Politician",
        "*END*"}
pet_index = 1

while 1 do
     if compare(pets[pet_index],"*END*") = 0 then
          exit
     else
          puts(1,pets[pet_index])
          puts(1,"\n")
     end if
     pet_index = pet_index + 1
end while
puts(1,"\nList Completed!\n")

   include get.e
   ri = wait_key() 

include get.e
integer keystroke

puts(1,"Please press a key on the keyboard\n")
keystroke = wait_key()
puts(1,"\nThank you!\n")
printf(1,"You pressed the %s key!\n",keystroke)

    ro = gets(0) 

object name, city
puts(1, "Hello, what is your name?\n")
name = gets(0)
printf(1, "\nHello, %sWhat city are you from?\n",{name})
city = gets(0)
printf(1, "\nI've always wanted to go to %s", {city})

    include get.e
    rs = get(0)

include get.e

object input
atom value1, value2, value3, average, error_code
sequence name

error_code = 999

puts(1,"Hello! Enter your first name in quotes below, like \"John\":\n")

while error_code != 0 do
     input = get(0)
     error_code = input[1]
end while

name = input[2]

puts(1, "\nThank you! Now please enter any three numeric values below,\n")
puts(1, "and you will see both your name and the average of the three\n")
puts(1, "numbers you entered. Separate the numbers with the space bar:\n")

error_code = 999
while error_code != 0 do
     input = get(0)
     error_code = input[1]
end while
puts(1, "\nGot first number!\n")
value1 = input[2]

error_code = 999
while error_code != 0 do
     input = get(0)
     error_code = input[1]
end while
puts(1, "\nGot second number!\n")
value2 = input[2]

error_code = 999
while error_code != 0 do
     input = get(0)
     error_code = input[1]
end while
puts(1, "\nGot third number!\n")
value3 = input[2]

average = (value1+value2+value3)/3
printf(1,"\nHello, %s, your computed average is %4.2f\n",{name, average})

   ri = get_key() 

integer keystroke, counter

keystroke = -1
counter = 10000
while keystroke = -1 and counter > 0 do
     keystroke = get_key()
     printf(1,"%5d\n",counter)
     counter = counter - 1
end while
if counter = 0 then
     puts(1, "\nHey, why didn't you press any of the keys?\n")
end if

   include file.e
   allow_break(i) 

   include file.e
   ri = check_break()

include file.e

integer control_break_counter, pressed_key
allow_break(0)

puts(1, "***********************************\n")
puts(1, "* The Program That Would Not Die! *\n")
puts(1, "***********************************\n")
puts(1,"\n")

control_break_counter = 0
while control_break_counter < 3 do
     pressed_key = get_key()
     if check_break() then
          control_break_counter = control_break_counter + 1
          if control_break_counter <= 2 then
               puts(1,"Neener-neener, can't kill meeeeeeee!\n")
          end if
     end if
end while

puts(1, "\n")
puts(1, "***********************************\n")
puts(1, "* Okay, I'll be nice and stop.... *\n")
puts(1, "***********************************\n")

   ri = atom(o)

   ri = integer(o)

  ri = sequence(o)

include get.e

atom atom_received, integer_received, sequence_received
sequence inputted_string

atom_received = 'n'
integer_received = 'n'
sequence_received = 'n'

puts(1,"Enter any numeric value (such as 5.004 or -7)\n")

while atom_received = 'n' and integer_received = 'n' do
     inputted_string = get(0)
     if inputted_string[1] = 0 then
          if integer(inputted_string[2]) then
               integer_received = 'y'
               puts(1,"\nThank you! This value is an integer!\n\n")
          else
               if atom(inputted_string[2]) then
                    atom_received = 'y'
                    puts(1,"\nThank you! This value is an atom!\n\n")
               end if
          end if
     end if
end while

puts(1,"Enter a sequence value (such as {54,-8,2.3} or \"Hi There!\")\n")

while sequence_received = 'n' do
     inputted_string = get(0)
     if inputted_string[1] = 0 then
          if sequence(inputted_string[2]) then
               sequence_received = 'y'
          end if
     end if
end while

puts(1,"\nThank you! Program Finished!\n")

   include get.e
   rs = value(s) 

include get.e

sequence character_strings, value_string
object actual_value

character_strings = {"45.99","{1,2,3,{4,4},5}","\"Euphoria\""}

for ix = 1 to 3 do
     printf(1,"Character String: %s\n",{character_strings[ix]})
     value_string = value(character_strings[ix])
     actual_value = value_string[2]
     puts(1,"Euphoria Data Object After value(): ")
     print(1,actual_value)
     puts(1,"\n\n")
end for

   rs = sprintf(s,o)

sequence print_line

for line = 1 to 5 do
    print_line = sprintf("This is line %03d\n", line)
    puts(1,print_line)
end for

   include wildcard.e
   ro = lower(o) 

   include wildcard.e
   ro = upper(o) 

include wildcard.e
sequence test_string, uppered, lowered

test_string = "This is a fun way to learn Euphoria!"
uppered = upper(test_string)
lowered = lower(test_string)
printf(1,"Original String     : %s\n",{test_string})
printf(1,"     After lower()  : %s\n",{lowered})
printf(1,"     After upper()  : %s\n",{uppered})

   rs = append(s,o)

atom     atom1, atom2
sequence seq1, seq2, union

atom1 = 83
atom2 = 4
seq1 = {1,1,1,1}
seq2 = {2,2}

puts(1,"& And append()\n")
puts(1,"==============\n\n")

printf(1,"Atom Values: %d, %d\n",{atom1,atom2})
puts(1,"   Using &: ")

union = atom1 & atom2
print(1,union)
puts(1,"\n")

puts(1,"   Using append(): ")
union = {}
union = append(union,atom1)
union = append(union,atom2)
print(1,union)
puts(1,"\n\n")

puts(1,"Sequence Values: ")
print(1,seq1)
puts(1," ")
print(1,seq2)
puts(1,"\n")
puts(1,"   Using &: ")

union = seq1 & seq2
print(1,union)
puts(1,"\n")

puts(1,"   Using append(): ")
union = {}
union = append(seq1,seq2)
print(1,union)
puts(1,"\n\n")

   rs = prepend(s,o)

atom     atom1, atom2
sequence seq1, seq2, union

atom1 = 83
atom2 = 4
seq1 = {1,1,1,1}
seq2 = {2,2}

puts(1,"& And prepend()\n")
puts(1,"==============\n\n")

printf(1,"Atom Values: %d, %d\n",{atom1,atom2})
puts(1,"   Using &: ")

union = atom1 & atom2
print(1,union)
puts(1,"\n")

puts(1,"   Using prepend(): ")
union = {}
union = prepend(union,atom1)
union = prepend(union,atom2)
print(1,union)
puts(1,"\n\n")

puts(1,"Sequence Values: ")
print(1,seq1)
puts(1," ")
print(1,seq2)
puts(1,"\n")
puts(1,"   Using &: ")

union = seq1 & seq2
print(1,union)
puts(1,"\n")

puts(1,"   Using prepend(): ")
union = {}
union = prepend(seq1,seq2)
print(1,union)
puts(1,"\n\n")

   rs = repeat(o,a) 

puts(1,"Some Sequences Created By repeat()\n\n")
puts(1,"repeat(20,10):\n   ")
print(1,repeat(20,10))
puts(1,"\n\n")
puts(1,"repeat({1,1,1,1,1},5):\n   ")
print(1,repeat({1,1,1,1,1},5))
puts(1,"\n\n")
puts(1,"repeat(\"Tim\",4):\n   ")
print(1,repeat("Tim",4))
puts(1,"\n")

   ri = length(s) 

sequence seq
seq = {{0,0,0},{65,{7,7,7},23.1},"Timmy"}
for element1 = 1 to 3 do
    puts(1,"Elements For Sequence ")
    print(1,seq[element1])
    puts(1,":\n")
    for element2 = 1 to length(seq[element1]) do
         printf(1,"   Element %d: ",element2)
         print(1,seq[element1][element2])
         puts(1,"\n")
    end for
    puts(1,"\n")
end for

   ri = find(o,s)

atom found, more_finds, offset
sequence search_string

search_string = {34,5,106,72,65,5,90,17,5,13}
puts(1,"Searching Sequence ")
print(1,search_string)
puts(1," For 5\n\n")

offset = 0
more_finds = 'y'

while more_finds = 'y' do
     found = find(5,search_string)
     if found then
          offset = offset + found
          printf(1,"5 Found As Element %d\n",offset)
          search_string = search_string[found+1..length(search_string)]
     else
          more_finds = 'n'
     end if
end while

puts(1,"\nProgram completed\n")

   ri = match(s1,s2) 

   atom element_id1, element_id2, element_id3
   element_id1 = match("Al", "David Alan Gay")
   element_id2 = match({3,4,5}, {1,2,3,4,5,6,7,8,9,0})
   element_id3 = match({{50,23,4},{-1,-2}}, {{15,89},{50,23,4},{-1,-2}})

   "David Alan Gay"                 - element_id1 is assigned the value of 7
   {1,2,3,4,5,6,7,8,9,0}            - element_id2 is assigned the value of 3
   {{15,89}, {50,23,4},{-1,-2}}     - element_id3 is assigned the value of 2

sequence nursery_rhyme
atom found
nursery_rhyme = "Jack and Jill went up the hill to fetch a pail of water"
puts(1,nursery_rhyme & "\n\n")
printf(1,"Searching String For \"%s\"\n",{"hill"})
found = match("hill",nursery_rhyme)
printf(1,"     Found \"%s\" beginning at element %d\n\n",{"hill",found})
printf(1,"Searching String For \"%s\"\n",{"l of water"})
found = match("l of water",nursery_rhyme)
printf(1,"     Found \"%s\" beginning at element %d\n\n",{"l of water",
                                                           found})
puts(1,  "Searching String For ")
print(1, {97,110,100})
puts(1,"\n")
found = match({97,110,100},nursery_rhyme)
puts(1,"     Found ")
print(1, {97,110,100})
printf(1," beginning at element %d\n\n",found)

    include wildcard.e
    ri = wildcard_match(s1,s2) 

   atom match_1, match_2, match_3
   match_1 = wildcard_match("a*","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
   match_2 = wildcard_match("?Z","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
   match_3 = wildcard_match("PQR*","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
 

include wildcard.e

sequence pattern_string, search_string
atom halt_program, matched

halt_program = 'n'

search_string = "wildcard_match() is a powerful feature of Euphoria."

while halt_program = 'n' do
     puts(1,search_string & "\n")
     puts(1,"Enter a wildcard pattern string or \"STOP\": ")
     pattern_string = gets(0)
     pattern_string = pattern_string[1..(length(pattern_string)-1)]
     if compare(pattern_string,"STOP") = 0 then
          halt_program = 'y'
     else
          matched = wildcard_match(pattern_string, search_string)
          puts(1,"\n")
          if matched then
               puts(1,pattern_string & " matches above string.\n\n")
          else
               puts(1,pattern_string & " does not match above string.\n\n")
          end if
     end if
end while

   include sort.e
   rs = sort(s) 

include sort.e
sequence sorted, unsorted

unsorted = {"world","the","Euphoria","rules"}
sorted = sort(unsorted)

puts(1,"Unsorted: ")
for words = 1 to length(unsorted) do
     puts(1,unsorted[words] & " ")
end for
puts(1,"\n")
puts(1,"Sorted: ")
for words = 1 to length(sorted) do
     puts(1,sorted[words] & " ")
end for
puts(1,"\n\n")

unsorted = {{1,1,8,2},5,{1,2,3},{1,1,9},-45,{1,2,1}}
sorted = sort(unsorted)
puts(1,"Unsorted: ")
print(1,unsorted)
puts(1,"\n")
puts(1,"Sorted: ")
print(1,sorted)
puts(1,"\n")

   ro = sqrt(o) 

atom value1
sequence value2

value1 = 25
value2 = {81,{9,4},100}

puts(1, "The square root of ")
print(1,value1)
puts(1, " is ")
print(1,sqrt(value1))
puts(1,"\n")
puts(1, "The square root of ")
print(1,value2)
puts(1, " is ")
print(1,sqrt(value2))
puts(1,"\n")

   ro = power(o1,o2) 

atom base, result
sequence base2, result2

base = 2

for exponent = 1 to 4 do
     result = power(base,exponent)
     printf(1, "%d to the power of %d is %d\n",{base,exponent,result})
end for

puts(1,"\n")

for exponent = 1 to 4 do
    base2 = repeat(10,5)
    result2 = power(base2,exponent)
    print(1, base2)
    puts(1, " to the power of ")
    print(1,exponent)
    puts(1, " is ")
    print(1,result2)
    puts(1,"\n")
end for
puts(1, "\n")

base = 3
result2 = power(base,{2,3,4})
print(1, base)
puts(1, " to the power of ")
print(1,{2,3,4})
puts(1, " is ")
print(1,result2)
puts(1,"\n")

   ro = log(o)

atom log1, base, result1
sequence log2, result2

base = 2.71828

log1 = log(63)
log2 = log({100,50,25})

result1= power(base,log1)
result2= power(base,log2)

printf(1,"The natural logarithm of 63 is %f\n",log1)

printf(1,"%.5f to the power of %f is %.0f (rounded up)\n\n",
         {base,log1,result1})

puts(1,"The natural logarithm of ")
print(1,{100,50,25})
puts(1," is ")
print(1,log2)
puts(1,"\n")

printf(1,"%.5f to the power of ",base)
print(1,log2)
puts(1," is ")
printf(1,"{%.0f,%.0f,%.0f} (rounded up)\n\n",result2)

    ro = remainder(o1,o2)

sequence format_string
atom leftovers, result
format_string = "10 divided by %d goes %d time(s) with %d left over.\n"

for divisor = 2 to 9 do

     leftovers = remainder(10,divisor)

     result = 10/divisor
     printf(1,format_string,{divisor,result,leftovers})

end for

    ro = floor(o)

object value1, value2

value1 = 5.3
value2 = -5.3

printf(1,"%.1f floor()'d gives %d\n",{value1,floor(value1)})
printf(1,"%.1f floor()'d gives %d\n",{value2,floor(value2)})
puts(1,"\n")

value1 = {35.3,-46.1,22.9,-.7345}
print(1, value1)
puts(1," floor()'d gives ")
print(1, floor(value1))
puts(1,"\n")

    ro = rand(o) 

include get.e

atom random_number,guessed_number, end_program
sequence input_data

puts(1,"Guess any number between 1 and 10\n")

end_program = 'n'
random_number = rand(10)

while end_program = 'n' do
     input_data = get(0)
     if input_data[1] = 0 then
          if integer(input_data[2]) then
               guessed_number = input_data[2]
               if guessed_number = random_number then
                    end_program = 'y'
                    puts(1,"\nBingo!\n")
               elsif guessed_number < random_number then
                    puts(1,"\nYou're too low! Try again!\n")
               elsif guessed_number > random_number then
                    puts(1,"\nYou're too high! Try again!\n")
               end if
          end if
     end if
end while

   include machine.e
   set_rand(a) 

include get.e
include machine.e

atom seed, end_program
sequence input_data, prompt, line1, line2, line3
line1 = "\nYou entered "
line2 = " as the value to set the random number generator seed to.\n"
line3 = "The next 10 numbers generated by rand(100) will always be:\n"
prompt = "\nEnter any value or 0 to end this program program\n"

end_program = 'n'

while end_program = 'n' do
     puts(1,prompt)
     input_data = get(0)
     if input_data[1] = 0 then
          if integer(input_data[2]) then
               seed = input_data[2]
               if seed != 0 then
                    puts(1,line1)
                    print(1,seed)
                    puts(1,line2)
                    set_rand(seed)
                    puts(1,line3)
                    for i = 1 to 10 do
                         print(1,rand(100))
                         puts(1, " ")
                    end for
                    puts(1,"\n")
               else
                    end_program = 'y'
               end if
          end if
     end if
end while

     ro = sin(o)      - Returns the sine of an angle
     ro = cos(o)      - Returns the cosine of an angle
     ro = tan(o)      - Returns the tangent of an angle
     ro = arctan(o)   - Returns the angle of a tangent (opposite of tan())

   ri = open(s1,s2)

                          Read   Write   Append   Update
                          Data   Data     Data     Data
                          ====   =====   ======   ======
   Treat data as text      r       w       a        u
   Treat data as binary    rb      wb      ab       ub

   integer file_id
   file_id = open("text.doc","r")

   integer file_id
   file_id = open("c:\\binary\\database.bin","ab")

   integer file_id
   file_id = open("f:\\output\\write.dta","w")

   integer file_id
   file_id = open("c:\\EuphoriaFiles\\tutorialfile.textfile","u")

   CON - Console (screen)
   AUX - Auxiliary serial port
   COM1 - Serial port 1
   COM2 - Serial port 2
   PRN - Parallel port printer
   NUL - Non-existent device that discards accepted output

   integer file_id
   file_id = open("PRN","w")

   print(i,o)      - sends a Euphoria value to a file or device

   puts(i,o)       - sends an atom or a sequence as a character string to a file or device

   printf(i,s,o)   - sends an atom or a sequence as part of an edited string to a file or device

  include get.e
  rs = get(i)     - retrieve a Euphoria data object from a file or device, and store as a two element sequence

  ro = gets(o)    - retrieve a character string from a file or device up to and including the '\n' code, or -1 if no data is available
 

   ri = getc(i)

   close(i)

include get.e
sequence input_data
integer file_id, byte

puts(1,"File And Device I/O Demo Program\n")
puts(1,"================================\n\n")
puts(1,"Creating a new file called demo.fle on your system......\n\n")
file_id = open("demo.fle","w")
if file_id != -1 then
     puts(1,"Successfully created file demo.fle on your system!\n\n")
     puts(1,"Writing a character string of \"Euphoria\" in demo.fle\n")
     puts(1,"using puts().....\n\n")
     puts(file_id,"Euphoria")
     puts(1,"Done....closing file demo.fle\n\n")
     close(file_id)
end if
puts(1,"Press any key to continue......\n\n")

while get_key() = -1 do
end while

puts(1,"-----------------------------------------------------------------\n")
puts(1,"Opening demo.fle on your system for reading......\n\n")
file_id = open("demo.fle","r")
if file_id != -1 then
     puts(1,"Successfully opened file demo.fle on your system!\n\n")
     puts(1,"Read character string from demo.fle\n")
     puts(1,"in one shot using gets().....\n\n")
     input_data = gets(file_id)
     if sequence(input_data) then
          printf(1,"The string read in is: %s\n\n", {input_data})
     else
          puts(1,"Error reading data from file!\n")
     end if
     puts(1,"Done....closing file demo.fle\n\n")
     close(file_id)
end if
puts(1,"Press any key to continue......\n\n")

while get_key() = -1 do
end while

puts(1,"-----------------------------------------------------------------\n")
puts(1,"Opening demo.fle on your system for reading......\n\n")
file_id = open("demo.fle","rb")
if file_id != -1 then
     puts(1,"Successfully opened file demo.fle on your system!\n\n")
     puts(1,"Read character string from demo.fle\n")
     puts(1,"one character at a time using getc().....\n\n")
     byte = getc(file_id)
     puts(1, "The character string read in is: ")
     while byte != -1 do
          puts(1,byte)
          byte = getc(file_id)
     end while
     puts(1,"\n\nDone....closing file demo.fle\n\n")
     close(file_id)
end if
puts(1,"Press any key to continue......\n\n")

while get_key() = -1 do
end while

puts(1,"-----------------------------------------------------------------\n")
puts(1,"Opening demo.fle on your system to clear data......\n\n")
file_id = open("demo.fle","w")
if file_id != -1 then
     puts(1,"Successfully cleared file demo.fle!\n\n")
     puts(1,"Writing a Euphoria data object of ")
     print(1,-36.5)
     puts(1," using print().....\n\n")
     print(file_id,-36.5)
     puts(1,"Done....closing file demo.fle\n\n")
     close(file_id)
end if
puts(1,"Press any key to continue......\n\n")

while get_key() = -1 do
end while

puts(1,"-----------------------------------------------------------------\n")
puts(1,"Opening demo.fle on your system for reading......\n\n")
file_id = open("demo.fle","r")
if file_id != -1 then
     puts(1,"Successfully opened file demo.fle on your system!\n\n")
     puts(1,"Read a Euphoria data object from demo.fle\n")
     puts(1,"using get().....\n\n")
     input_data = get(file_id)
     if input_data[1] = 0 then
          printf(1,"The value read in is: %.1f\n\n", {input_data[2]})
     else
          puts(1,"Error reading data from file!\n")
     end if
     puts(1,"Done....closing file demo.fle\n\n")
     close(file_id)
end if
puts(1,"Press any key to continue......\n\n")

while get_key() = -1 do
end while

puts(1,"-----------------------------------------------------------------\n")
puts(1,"Opening printer PRN......\n\n")
file_id = open("LPT1","w")
if file_id != -1 then
     puts(1,"Successfully opened printer for use!\n\n")
     puts(1,"Printing a line on your printer using puts()\n")
     puts(1,"Press 'y' to print or 'n' to skip\n\n")
     byte = get_key()
     while byte != 'n' do
          if byte = 'y' then
               puts(file_id,"*************************\n")
               puts(file_id,"* Euphoria in hardcopy! *\n")
               puts(file_id,"*************************\n")
          end if
          byte = get_key()
     end while
     puts(1,"Done....closing PRN\n\n")
     close(file_id)
end if

    include file.e
    ri = seek(i1,i2)
 

include file.e
sequence string, seek_positions, vowels
object input_line
atom file_id, status

vowels = "aeiou"

string =
"The beauty of the seek() library routine is that you can control\n" &
"where the next write or read will occur. This will allow you to\n" &
"update any old information in your file with new data. This eliminates\n" &
"the need to maintain different versions of the same data in the\n" &
"file.\n\n"

seek_positions = {}
for element = 1 to length(string) do
     if find(string[element],vowels) then
          seek_positions = append(seek_positions,{element, string[element]})
          string[element] = ' '
     end if
end for
file_id = open("demo.fle","wb")
puts(file_id,string)
close(file_id)
puts(1,"The paragraph below has been written to a file named demo.fle,\n")
puts(1,"after the vowels were removed and stored in a sequence. This\n")
puts(1,"demo will use seek() to return the vowels back to the paragraph\n")
puts(1,"in the file\n\n")
puts(1,string)
file_id = open("demo.fle","ub")
for element = 1 to length(seek_positions) do
     status = seek(file_id,seek_positions[element][1]-1)
     if status = 0 then
          puts(file_id,seek_positions[element][2])
     end if
end for
close(file_id)
file_id = open("demo.fle","rb")
input_line = gets(file_id)
puts(1,"Adding vowels now.....\n\n")
while compare(input_line,-1) != 0 do
     puts(1,input_line)
     input_line = gets(file_id)
end while

   include file.e
   ri = where(i)

include file.e
sequence list_of_words, input_string
integer file_id, current_location

list_of_words = {"Euphoria ","rocks"}

puts(1,"This demo program will show how the current byte position is\n")
puts(1,"updated with every I/O made to a file, courtesy of the where()\n")
puts(1,"library routine. Remember that the current byte position is\n")
puts(1,"the number of bytes from the first byte in the file!\n\n")

file_id = open("demo.fle","wb")

current_location = where(file_id)
printf(1,"Opening file in write mode, the current byte position is %d\n\n",
          current_location)

for word = 1 to length(list_of_words) do
     printf(1,"Writing \"%s\" to file....\n",{list_of_words[word]})
     puts(file_id,list_of_words[word])
     current_location = where(file_id)
     if word < 2 then
          printf(1,"The next write or read will occur at %d\n\n",
                   current_location)
     else
          puts(1,"Closing file\n\n")
     end if
end for

close(file_id)
file_id = open("demo.fle","ab")

current_location = where(file_id)
printf(1,"Opening file in append mode, the current byte position is %d\n\n",
          current_location)
printf(1,"Writing \"%s\" to file....\n",'!')
     puts(file_id,"!")
puts(1,"Closing file\n\n")

close(file_id)

puts(1,"Opening file in read mode now...\n\n")
file_id = open("demo.fle","rb")
input_string = gets(file_id)
printf(1,"The file contains the following string: %s\n",{input_string})

close(file_id)

   include graphics.e
   ri = graphics_mode(i)

   0 = 40×25 text, 16 grey
   1 = 40×25 text, 16/8 color
   2 = 80×25 text, 16 grey
   3 = 80×25 text, 16/8 color
   4 = 320×200 pixels, 4 color
   5 = 320×200 pixels, 4 grey
   6 = 640×200 pixels, BW
   7 = 80×25 text, BW
   11 = 720×350 pixels, BW
   13 = 320×200 pixels, 16 color
   14 = 640×200 pixels, 16 color
   15 = 640×350 pixels, BW
   16 = 640×350 pixels, 4 or 16 color
   17 = 640×480 pixels, BW
   18 = 640×480 pixels, 16 color
   19 = 320×200 pixels, 256 color
   256 = 640×400 pixels, 256 color
   257 = 640×480 pixels, 256 color
   258 = 800×600 pixels, 16 color
   259 = 800×600 pixels, 256 color
   260 = 1024×768 pixels, 16 color
   261 = 1024×768 pixels, 256 color

include graphics.e
sequence screen_modes, good_modes, bad_modes
atom counter
integer screen_set_status
screen_modes = {0,1,2,3,4,5,6,7,11,13,14,15,16,17,18,19,256,257,258,259,260,
261,262,263,-999}
counter = 1
good_modes = {}
bad_modes = {}
while screen_modes[counter] != -999 do
     screen_set_status = graphics_mode(screen_modes[counter])
     if screen_set_status = 0 then
          good_modes = append(good_modes,screen_modes[counter])
     else
          bad_modes = append(bad_modes, screen_modes[counter])
     end if
     counter = counter + 1
end while
screen_set_status = graphics_mode(-1)
puts(1, "The modes that can be used for your video card are:\n")
print(1, good_modes)
puts(1, "\n\nThe modes that cannot be used for your video card are:\n")
print(1, bad_modes)

   include graphics.e
   rs = video_config()

 {colour monitor (1 means yes, 0 means no), graphics mode number,
  number of text rows, number of text columns, number of pixels across,
  number of pixels down, number of colours supported, number of pages}

include graphics.e
sequence screen_modes, video_settings
atom counter
integer screen_set_status
screen_modes = {0,1,2,3,4,5,6,7,11,13,14,15,16,17,18,19,256,257,258,259,260,
261,262,263,-999}
counter = 1
while screen_modes[counter] != -999 do
     screen_set_status = graphics_mode(screen_modes[counter])
     if screen_set_status = 0 then
          video_settings = video_config()
          printf(1, "Mode %d supports the following attributes:\n\n",
               {screen_modes[counter]})
          if video_settings[1] = 1 then
               puts(1, "     Has Colour\n")
          else
               puts(1, "     Has No Colour\n")
          end if
          printf(1, "     Has %d text rows and %d text columns\n",
               {video_settings[3], video_settings[4]})
          if video_settings[5] + video_settings[6] > 0 then
               printf(1, "     Has %d pixels across and %d pixels down\n",
                    {video_settings[5], video_settings[6]})
          end if
          printf(1, "     Has %d colours available\n", {video_settings[7]})
          printf(1, "     Has %d display pages accessible\n\n",
               {video_settings[8]})
          puts(1, "Press Any Key To Continue\n")
          while get_key() = -1 do
          end while
     end if
     counter = counter + 1
end while
if graphics_mode(-1) then
end if

   clear_screen()

   position(i1,i2)

clear_screen()
position(3,15)
puts(1, "A Program Example To Demonstrate Text Positioning")
position(4,30)
puts(1, "Written By David Gay")
position(5,20)
puts(1, "Author, \"A Beginner's Guide To Euphoria II\"")
position(8,1)
puts(1, "Top Ten Reasons why you should purchase Euphoria:")
position(9,1)
puts(1, "==============================================")
position(11, 5)
puts(1, "Number 10: It's (thankfully) not a Microsoft product.")
position(12, 5)
puts(1, "Number 9: Because C is like tax laws: too complex to figure out.")
position(13, 5)
puts(1, "Number 8: Euphoria is more fun than this year's prime time TV season.")
position(14, 5)
puts(1, "Number 7: The money spent will go to BASIC's retirement home.")
position(15, 5)
puts(1, "Number 6: Because \"Ernest Learns Euphoria\" hits the theatres soon.")
position(16, 5)
puts(1, "Number 5: You sound very smart when you say you work with atoms.")
position(17, 5)
puts(1, "Number 4: You can write word games you already know the answers to.")
position(18, 5)
puts(1, "Number 3: You can declare things without cross border shopping.")
position(19, 5)
puts(1, "Number 2: At last! A reason to use the { and } keys on the keyboard!")
position(20, 5)
puts(1, "Number 1: It's a great product!!!!! :)\n\n")

   include graphics.e
   rs = get_position()

   {current row position, current column position}

include graphics.e
integer element, keystroke, update
sequence some_text, current_position

clear_screen()
element = 1
update = 'y'
some_text = "As the screen is continually updated, the cursor position\n" &
            "is updated automatically. get_position() will report the\n" &
            "current position of the cursor.\n\n"
position(1,1)
puts(1,"An example of get_position()")
position(2,1)
puts(1,"============================")
position(25,1)
puts(1,"Press Q to quit, or any other key to display a character")
position(5,1)
while element <= length(some_text) do
     if update = 'y' then
          update = 'n'
          puts(1,some_text[element])
          current_position = get_position()
          position(23,1)
          printf(1,"Cursor at row %2d, column %2d",current_position)
          position(current_position[1],current_position[2])
     end if
     keystroke = get_key()
     if keystroke = 'q' then
          element = length(some_text) + 1
     elsif keystroke != -1 then
          element = element + 1
          update = 'y'
     end if
end while

   include graphics.e
   wrap(i)

include graphics.e
sequence some_string
some_string = "This is a text string that is longer than " &
              "the width of your screen. See how wrap() handles the " &
              "output of the text string when printed. "
for modes = 1 to 0 by -1 do
     wrap(modes)
     printf(1,"When wrap(%d) is used:\n\n", modes)
     puts(1,some_string & "\n\n")
end for

   include graphics.e
   ri = text_rows(i)

include graphics.e
integer current_rows
sequence text_length


puts(1, "The following will demonstrate how to use text_rows() to\n")
puts(1, "increase the number of rows available in this program. Note\n")
puts(1, "how the spacing between the lines narrows. For those\n")
puts(1, "text rows that are not supported, this program will simply skip\n")
puts(1, "them. You will be required to press any key in order for this\n")
puts(1, "program to continue. Press any key to start the demonstration\n")

while get_key() = -1 do
end while

text_length = {25,28,43,50}
for ix = 1 to 4 do
     current_rows = text_rows(text_length[ix])
     if current_rows = text_length[ix] then
          for iy = 1 to text_length[ix] do
               print(1, iy)
               if iy < text_length[ix] then
                    puts(1, "\n")
               end if
          end for
          while get_key() = -1 do
          end while
     end if
end for
current_rows = text_rows(25)

   include graphics.e
   scroll(i1,i2,i3)

include graphics.e

integer keystroke, current_position

clear_screen()

position(5,1)
puts(1, repeat('Í',80))

position(20,1)
puts(1, repeat('Í',80))

position(11,25)
puts(1, "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»")

position(12,25)
puts(1, "º Welcome To The SCROLL ZONE º")

position(13,25)
puts(1, "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ")

position(22,1)
puts(1, "Press 8 for up, 2 for down, or q to quit this program")

keystroke = get_key()
current_position = 11

while keystroke != 'q' do
     if keystroke = '8' and current_position > 6 then
          scroll(1,6,19)
          current_position = current_position - 1
     end if
     if keystroke = '2' and current_position < 17 then
          scroll(-1,6,19)
          current_position = current_position + 1
     end if

     keystroke = get_key()
end while

   include graphics.e
   text_color(i)

   1 = blue
   2 = green
   3 = cyan
   4 = red
   5 = magenta
   6 = brown
   7 = white
   8 = gray
   9 = bright blue
   10 = bright green
   11 = bright cyan
   12 = bright red
   13 = bright magenta
   14 = yellow
   15 = bright white

   (note: 0 = black)

include graphics.e
integer foreground_colour
sequence list_of_colours, already_used

clear_screen()

list_of_colours = {"blue","green","cyan","red","magenta","brown",
                   "white","gray","bright blue","bright green",
                   "bright cyan","bright red","bright magenta",
                   "yellow","bright white"}

already_used = {}

for ix = 1 to 10 do
     foreground_colour = rand(15)
     while find(foreground_colour,already_used) do
          foreground_colour = rand(15)
     end while
     already_used = already_used & foreground_colour
     text_color(foreground_colour)
     printf(1, "Text in %s\n",{list_of_colours[foreground_colour]})
end for

   include graphics.e
   bk_color(i)

include graphics.e
clear_screen()
text_color(15)
bk_color(2)
position(13,9)
puts(1,"When using bk_color() in text mode, only the background colour")
position(14,10)
puts(1,"of the text itself is affected. Press any key to continue...")
while get_key() = -1 do
end while
if graphics_mode(18) = 0 then
     text_color(15)
     bk_color(2)
     position(14,10)
     puts(1,"When using bk_color() in pixel-graphics mode, the background")
     position(15,10)
     puts(1,"colour of the entire screen is changed. Press any key to end.")
     while get_key() = -1 do
     end while
     if graphics_mode(-1) then
          puts(1,"Resetting to the previous screen does not work for you!")
     end if
end if

   include image.e
   rs = save_text_image(s1,s2)

   {top left row, top left column}

   {bottom right row, bottom right column}

   Welcome to
   Euphora!

   {{87,13,101,13,108,13,99,13,111,13,109,13,101,13,32,13,84,13,111,13},
    {69,13,117,13,112,13,104,13,111,13,114,13,105,13,97,13,33,13,32,13}}

   include image.e
   display_text_image(s1,s2)

   {top left row, top left column}

include image.e
sequence stored_image
integer input_key, line, column
line = 1
column = 1
bk_color(2)
clear_screen()
text_color(14)
position(2,2)
puts(1, "******************************")
position(3,2)
puts(1, "* Use the left, right, up,   *")
position(4,2)
puts(1, "* and down arrow keys to     *")
position(5,2)
puts(1, "* move box, press Q to quit! *")
position(6,2)
puts(1, "******************************")
stored_image = save_text_image({1,1},{7,32})
input_key = get_key()
while input_key != 'q'do
     display_text_image({line, column},stored_image)
     if input_key = 328 and line > 1 then
          line = line - 1
     end if
     if input_key = 336 then
          line = line + 1
     end if
     if input_key = 331 and column > 1 then
          column = column - 1
     end if
     if input_key = 333 then
          column = column + 1
     end if
     input_key = get_key()
end while
bk_color(0)
text_color(7)

   include graphics.e
   pixel(o,s)

   {pixel column location, pixel row location}

   pixel(6,{200,100})

   pixel({9,2,14},{63,120})

a) set a pixel located at pixel column 63 and pixel row 120 to 9, which is grey
b) set a pixel located at pixel column 64 and pixel row 120 to 2, which is green.
c) set a pixel located at pixel colomn 65 and pixel row 120 to 14, which is yellow.

include graphics.e
integer x_or_y_work_variable
if graphics_mode(18) then
     puts(1, "640 X 480 mode, 16 colours, not supported!\n")
else
     text_color(15)
     position(1,1)
     puts(1,"Drawing A Shape Using pixel()")
     position(25,1)
     puts(1, "Press q to end this program")
     for ix = 100 to 300 do
          pixel(9, {ix , ix})
     end for
     pixel(repeat(12,400),{100,100})
     x_or_y_work_variable = 300
     for ix = 300 to 500 do
          pixel(10, (ix & x_or_y_work_variable))
          x_or_y_work_variable = x_or_y_work_variable - 1
     end for
     for ix = 100 to 300 do
          pixel(11, {100, ix})
          pixel(13, {500, ix})
     end for
     for ix = 100 to 500 do
          pixel(14, {ix, 300})
     end for
     while get_key() != 'q' do
     end while
     if graphics_mode(-1) then
          puts(1, "Unable To Reset\n")
     end if
end if

   include graphics.e
   ro = get_pixel(s)

{pixel column location, pixel row location}

{pixel column location, pixel row location, number of pixels}

   one_colour = get_pixel({167,231})

   series_of_colours = get_pixel({1500,10,15})

include graphics.e
sequence copy_buffer
if graphics_mode(18) then
     puts(1, "Mode 18 not supported\n")
else
     pixel({10,10,10,10,10,10,10,10,10,10,10,10,15,15,15,15,15,15,15,15,
            15,15,15,15,12,12,12,12,12,12,12,12,12,12,12,12},{300,100})
     position(20,1)

     puts(1, "Press 1 to continue")

     while get_key() != '1' do
     end while

     copy_buffer = get_pixel({300,100,36})

     for ix = 205 to 220 do
          pixel(copy_buffer,{300,ix})
     end for

     position(20,1)

     puts(1, "Press 2 to end program")

     while get_key() != '2' do
     end while

     if graphics_mode(-1) then
          puts(1, "Reset failed!\n")
     end if
end if

   include graphics.e
   draw_line(i,s)

   {{pixel column location, pixel row location},
    {pixel column location, pixel row location},
    {pixel column location, pixel row location},...}

   draw_line(14,{{50,50},{150,50},{150,150},{50,150},{50,50}})

include graphics.e
if graphics_mode(18) then
     puts(1, "640 X 480 mode, 16 colours, not supported!\n")
else
     text_color(15)
     position(1,1)
     puts(1, "Drawing A Shape Using draw_line()")
     position(25,1)
     puts(1, "Press q to end this program")
     draw_line(9,{{100,100},{300,300}})
     draw_line(12,{{100,100},{500,100}})
     draw_line(10,{{300,300},{500,100}})
     draw_line(11,{{100,100},{100,300}})
     draw_line(13,{{500,100},{500,300}})
     draw_line(14,{{100,300},{500,300}})
     while get_key() != 'q' do
     end while
     if graphics_mode(-1) then
          puts(1, "Unable To Reset\n")
     end if
end if

   include graphics.e
   polygon(i1,i2,s)

include graphics.e
include image.e

if graphics_mode(18) = 0 then
     text_color(15)
     position(1,34)
     puts(1,"Polygon Fun!")
     position(30,30)
     puts(1,"Press any key to end")

     position(6,16)
     puts(1,"polygon(6,1,{{10,50},{100,50},{100,140},{10,140}})")
     polygon(6,1,{{10,50},{100,50},{100,140},{10,140}})

     position(13,16)
     puts(1,"polygon(13,0,{{55,160},{10,240},{100,240}})")
     polygon(13,0,{{55,160},{10,240},{100,240}})

     position(19,16)
     puts(1,"polygon(2,1,{{30,260},{100,260},{80,340},{10,340}})")
     polygon(2,1,{{30,260},{100,260},{80,340},{10,340}})

     position(25,16)
     puts(1,"polygon(12,0,{{10,360},{55,360},{55,400},{100,400},")
     position(26,16)
     puts(1,"              {100,440},{10,440}})")
     polygon(12,0,{{10,360},{55,360},{55,400},{100,400},
                   {100,440},{10,440}})

     while get_key() = -1 do
     end while
     if graphics_mode(-1) then
          puts(1,"Reset Failure")
     end if
end if

   include graphics.e
   ellipse(i1,i2,s1,s2)

   {pixel column location, pixel row location}

include graphics.e
integer input_key, tl1, tl2, br1, br2, update
tl1 = 200
tl2 = 100
br1 = 400
br2 = 300
update = 'y'
if graphics_mode(18) then
    puts(1, "Mode not available")
else
    position (28,1)
    puts(1, "Press 1 to widen horizontally, 2 to narrow horizontally")
    position (29,1)
    puts(1, "      3 to widen vertically,   4 to narrow vertically")
    position (30,1)
    puts(1, "      q to quit")
    input_key = get_key()
    while input_key != 'q' do
         input_key = get_key()
         if update = 'y' then
              update = 'n'
              ellipse(15, 0, {tl1,tl2},{br1,br2})
              polygon(3,0, {{tl1,tl2},{br1,tl2},{br1,br2},{tl1,br2}})
         end if
         if input_key = '1' then
              ellipse(0, 0, {tl1,tl2},{br1,br2})
              polygon(0,0, {{tl1,tl2},{br1,tl2},{br1,br2},{tl1,br2}})
              tl1 = tl1 - 3
              br1 = br1 + 3
              update = 'y'
         end if
         if input_key = '2' then
              ellipse(0, 0, {tl1,tl2},{br1,br2})
              polygon(0,0, {{tl1,tl2},{br1,tl2},{br1,br2},{tl1,br2}})
              tl1 = tl1 + 3
              br1 = br1 - 3
              update = 'y'
         end if
         if input_key = '3' then
              ellipse(0, 0, {tl1,tl2},{br1,br2})
              polygon(0,0, {{tl1,tl2},{br1,tl2},{br1,br2},{tl1,br2}})
              tl2 = tl2 - 3
              br2 = br2 + 3
              update = 'y'
         end if
         if input_key = '4' then
              ellipse(0, 0, {tl1,tl2},{br1,br2})
              polygon(0,0, {{tl1,tl2},{br1,tl2},{br1,br2},{tl1,br2}})
              tl2 = tl2 + 3
              br2 = br2 - 3
              update = 'y'
         end if
    end while
    if graphics_mode(-1) then
         puts(1, "Mode not available")
    end if
end if

   include image.e
   rs = save_image(s1,s2)

   {{pixel colour, pixel colour, pixel colour, pixel colour,...}
    {pixel colour, pixel colour, pixel colour, pixel colour,...}
    {pixel colour, pixel colour, pixel colour, pixel colour,...},...}

   {pixel column location, pixel row location}

   include image.e
   display_image(s1,s2)

   {pixel column location, pixel row location}

include image.e
include graphics.e
sequence ball, bounce
bounce =
{200,200.125,200.375,200.75,201.25,201.875,202.625,203.5,204.5,205.625,
206.875,208.25,209.75,211.375,213.125,215,217,219.125,221.375,223.75,226.25,
228.875,231.625,234.5,237.5,240.625,243.875,247.25,250.75,254.375,258.125,
262,266,270.125,274.375,278.75,283.25,287.875,292.625,297.5,302.5,307.625,
312.875,318.25,323.75,329.375,335.125,341,347,353.125}
if graphics_mode(18) then
     puts(1, "Mode Set Failure")
else
     clear_screen()
     ellipse(5, 1, {200,200}, {300,300})
     for iy = 234 to 266 do
          for ix = 200 to 300 do
               if get_pixel({ix, iy}) = 5 then
                    pixel(15,{ix, iy})
               end if
          end for
     end for
     for iy = 267 to 300 do
          for ix = 200 to 300 do
               if get_pixel({ix, iy}) = 5 then
                    pixel(9,{ix, iy})
               end if
          end for
     end for
     ball = save_image({193,193},{308,308})
     clear_screen()
     position(1,1)
     puts(1, "Press q to end this bouncing ball demo!")
     while 1 = 1 do
          if get_key() = 'q' then
               exit
          end if
          for ix = 1 to length(bounce) do
               display_image({270,bounce[ix]},ball)
          end for
          for ix = length(bounce) to 1 by -1 do
               display_image({270,bounce[ix]},ball)
          end for
     end while
     if graphics_mode(-1) then
          puts(1, "Mode Set Failure")
     end if
end if

   include image.e
   rs = get_all_palette()

   {{red level, green level, blue level},                <-----colour 0
    {red level, green level, blue level},                <-----colour 1
    {red level, green level, blue level},                <-----colour 2
    {red level, green level, blue level},...}            <-----colour 3

include graphics.e
include image.e

sequence colour_list,rgb_levels

colour_list = {{"BLACK",0},{"BLUE",0},{"GREEN",0},{"CYAN",0},{"RED",0},
	       {"MAGENTA",0},{"BROWN",0},{"WHITE",0},{"GRAY",0},
	       {"BRIGHT BLUE",0},{"BRIGHT GREEN",0},{"BRIGHT CYAN",0},
	       {"BRIGHT RED",0},{"BRIGHT MAGENTA",0},{"YELLOW",0},
	       {"BRIGHT WHITE",0}}

if graphics_mode(3) = 0 then
     rgb_levels = get_all_palette()
     if graphics_mode(-1) then
	  puts(1,"Reset Failure!")
     end if
end if

if graphics_mode(3) = 0 then
     for rgb = 1 to length(colour_list) do
	  colour_list[rgb][2] = rgb_levels[rgb]
     end for
     position(1,10)
     puts(1,"                                   RGB Intensity Makeup")
     position(2,10)
     puts(1,"                                   --------------------")
     position(3,10)
     puts(1,"Colour                             Red    Green    Blue")
     position(4,10)
     puts(1,"==============                     ===    =====    ====")
     for colours = 1 to length(colour_list) do
	  position(5+colours,10)
	  printf(1,"%-14s                     %2d       %2d       %2d",
	  {colour_list[colours][1],colour_list[colours][2][1],
				   colour_list[colours][2][2],
				   colour_list[colours][2][3]})
     end for
     position(25,10)
     puts(1,"Press any key to end")
     while get_key() = -1 do
     end while
     if graphics_mode(-1) then
	  puts(1,"Reset Failure!")
     end if
end if

   include graphics.e
   ro = palette(i,s)

   {red intensity level, green intensity level, blue intensity level}

include graphics.e
object changed_palette
integer Red_, Green_, Blue_, input
if graphics_mode(18) then
     puts(1, "Mode Set Failure")
else
     for ix = 0 to 60 do
          ellipse(14, 1, {250-ix, 180-ix}, {350+ix, 280+ix})
          ellipse(15, 0, {249-ix, 179-ix}, {351+ix, 281+ix})
     end for
     Red_ = 0
     Green_ = 0
     Blue_ = 0

     changed_palette = palette(14, {Red_, Green_, Blue_})

     Red_ = changed_palette[1]
     Green_ = changed_palette[2]
     Blue_ = changed_palette[3]
     input = get_key()
     position(1,9)
     puts(1,"This program will demonstrate how to modify the palette")
     position(2,9)
     puts(1,"colour code for yellow into another colour by manipulating")
     position(3,9)
     puts(1,"the RGB colour code. Use 1 and 2 to change the red tint,")
     position(4,9)
     puts(1,"3 and 4 to change the green tint, and 5 and 6 to change the")
     position(5,9)
     puts(1,"blue tint. Press q when you are finished using this program.")
     while input != 'q' do
          if input = '1' and Red_ > 0 then
               Red_ = Red_ - 1
          end if
          if input = '2' and Red_ < 63 then
               Red_ = Red_ + 1
          end if
          if input = '3' and Green_ > 0 then
               Green_ = Green_ - 1
          end if
          if input = '4' and Green_ < 63 then
               Green_ = Green_ + 1
          end if
          if input = '5' and Blue_ > 0 then
               Blue_ = Blue_ - 1
          end if
          if input = '6' and Blue_ < 63 then
               Blue_ = Blue_ + 1
          end if
          changed_palette = palette(14, {Red_, Green_, Blue_})
          position(28,19)
          printf(1, "Red: %.2d        Green: %.2d        Blue: %.2d",
                 {Red_,Green_,Blue_})
          input = get_key()
     end while
     if graphics_mode(-1) then
          puts(1, "Mode Set Failure")
     end if
end if

   include graphics.e
   all_palette(s)

   {{red level, green level, blue level},         <---- new colour for 0
    {red level, green level, blue level},         <---- new colour for 1
    {red level, green level, blue level},         <---- new colour for 2
    {red level, green level, blue level},...}     <---- new colour for 3

include graphics.e
include image.e

sequence colours_one_to_five, original

if graphics_mode(18) = 0 then
     original = get_all_palette()

     clear_screen()

     text_color(7)

     puts(1,"This program will attempt to demonstrate all_palette() by\n")
     puts(1,"changing 5 colour numbers without having to redisplay\n")
     puts(1,"the text again.\n\n")

     colours_one_to_five = original
     colours_one_to_five[2..6] = {{0,63,0},{0,63,0},{0,63,0},{0,63,0},
                                  {0,63,0}}

     for ix = 0 to 15 do
          text_color(ix)
          print(1,ix)
          puts(1," ")
     end for

     for retry = 1 to 2 do
          text_color(7)
          position(20,1)
          if retry = 1 then
               puts(1,
               "These are the colours present in the default palette.\n")
               puts(1,
               "Press any key to change the first 5 colours to green.\n")
          end if
          if retry = 2 then
               all_palette(colours_one_to_five)
               puts(1,
               "Colour numbers from 1 to 5 now have an RGB setting   \n")
               puts(1,
               "of {0,63,0}, or pure green. Press any key to end.    \n")
          end if
          while get_key() = -1 do
          end while
     end for

     all_palette(original)

end if

if graphics_mode(-1) then
     puts(1,"reset failure\n")
end if

   include image.e
   ro = read_bitmap(s) 

   {{{red level, green level, blue level},...},
    {{pixel colour, pixel colour, pixel colour,...},
     {pixel colour, pixel colour, pixel colour,...},
     {pixel colour, pixel colour, pixel colour,...},...}}

   1 = open failed (probably spelt the name of the file wrong)
   2 = unexpected end of file (the end of the file was reached before all the required data was read in
   3 = unsupported format (Euphoria may not recognize that format even though other paint programs can load it with no problems)

include graphics.e
include image.e
sequence demo_bitmap
if graphics_mode(18) then
     puts(1, "Mode Failure")
else
     demo_bitmap = read_bitmap("d2105a.bmp")
     position(3,10)
     puts(1, "This image was made using Windows Paintbrush program.")
     position(4,10)
     puts(1, "It uses a different palette numbering scheme than what")
     position(5,10)
     puts(1, "Euphoria has, so the colours come out wrong. But if you")
     position(6,10)
     puts(1, "press 'n'..........")
     display_image({200,200}, demo_bitmap[2])
     while get_key() != 'n' do
     end while
     position(3,10)
     puts(1, "......we apply the palette read in with the bitmap after   ")
     position(4,10)
     puts(1, "dividing it by four to scale it for use with Euphoria.     ")
     position(5,10)
     puts(1, "The all_palette() statement is handy for displaying bitmaps")
     position(6,10)
     puts(1, "with a different colour palette. Press 'q' to quit now.    ")
     all_palette((demo_bitmap[1]/4))
     while get_key() != 'q' do
     end while
     if graphics_mode(-1) then
          puts(1, "Mode Failure")
     end if
end if

   include image.e
   ri = save_bitmap(s1,s2)

   0 = .BMP file created successfully (it works!)
   1 = .BMP file open failed (probably mis-spelled the name)
   4 = .BMP file invalid mode (invalid graphic mode or parameters received)

include graphics.e
include image.e
atom blue, increment, status
sequence palette_mode,new_blue, previous_blue, bitmap_data, bitmap_file
blue = 30
increment = 1
if graphics_mode(18) then
     puts(1,"Unable to go into mode 18!")
else
     palette_mode = get_all_palette()
     position(1,3)
     text_color(11)
     puts(1,"How to build a bitmap using Euphoria, Part I")
     position(24,5)
     puts(1,"Press any key to continue demo")
     for ix = 0 to 50 by 4 do
         ellipse(2,0,{100+ix,100-ix},{199-ix,199+ix})
         ellipse(2,0,{100-ix,100+ix},{199+ix,199-ix})
         polygon(1,0,{{50,50},{50,249},{249,249},{249,50}})
     end for
     position(20,1)
     puts(1,"1) Define an area on the screen you want to save")
     while get_key() = -1 do
          if blue = 63 then
               increment = -3
          elsif blue = 30 then
               increment = 3
          end if
          blue = blue + increment
          new_blue = {0,0,0}
          new_blue[3] = blue
          previous_blue = palette(1,new_blue)
     end while
     polygon(0,0,{{50,50},{50,249},{249,249},{249,50}})
     bitmap_data = save_image({50,50},{249,249})
     polygon(0,1,{{50,50},{50,249},{249,249},{249,50}})
     for ix = 3 to 18 do
          position(ix,10)
          print(1,palette_mode[-2+ix])
     end for
     position(20,1)
     puts(1,"2) Get the current mode screen palette..........")
     while get_key() = -1 do
     end while
     palette_mode = palette_mode * 4
     for ix = 3 to 18 do
          position(ix,10)
          print(1,palette_mode[-2+ix])
     end for
     position(20,1)
     puts(1,"3) ....and scale it for use as a bitmap palette. ")
     while get_key() = -1 do
     end while
     clear_screen()
     puts(1,"You then use both the palette and the bitmap data to\n")
     puts(1,"construct the bitmap using save_image..\n")
     bitmap_file = {}
     bitmap_file = append(bitmap_file,palette_mode)
     bitmap_file = append(bitmap_file,bitmap_data)
     while get_key() = -1 do
     end while
     if graphics_mode(-1) then
          puts(1,"Unable to reset mode!")
     end if
     status = save_bitmap(bitmap_file,"d2107a.BMP")
     if status != 0 then
           puts(1,"Bitmap creation failure!")
     end if
end if

   include image.e
   ri = save_image(o,s)

   {{top left pixel colmn, top left pixel row},
    {bottom right pixel column, bottom right pixel row}}

include graphics.e
include image.e
atom blue, increment, status
sequence palette_mode,new_blue, previous_blue
blue = 30
increment = 1
if graphics_mode(18) then
     puts(1,"Unable to go into mode 18!")
else
     palette_mode = get_all_palette()
     position(1,3)
     text_color(11)
     puts(1,"How to build a bitmap using Euphoria, Part II")
     position(24,5)
     puts(1,"Press any key to continue demo")
     for ix = 0 to 50 by 4 do
         ellipse(2,0,{100+ix,100-ix},{199-ix,199+ix})
         ellipse(2,0,{100-ix,100+ix},{199+ix,199-ix})
         polygon(1,0,{{50,50},{50,249},{249,249},{249,50}})
     end for
     position(20,1)
     puts(1,"Define an area on the screen you want to save")
     while get_key() = -1 do
          if blue = 63 then
               increment = -3
          elsif blue = 30 then
               increment = 3
          end if
          blue = blue + increment
          new_blue = {0,0,0}
          new_blue[3] = blue
          previous_blue = palette(1,new_blue)
     end while
     all_palette(palette_mode)
     polygon(0,0,{{50,50},{50,249},{249,249},{249,50}})
     status = save_screen({{50,50},{249,249}},"d2109a.bmp")
     polygon(0,1,{{50,50},{50,249},{249,249},{249,50}})
     clear_screen()
     puts(1,"save_screen() produces the same result as save_bitmap()\n")
     puts(1,"but without the steps shown in the save_bitmap() demo.\n")
     while get_key() = -1 do
     end while
     if graphics_mode(-1) then
          puts(1,"Unable to reset mode!")
     end if
end if

   include image.e
   set_active_page(i)

   include image.e
   set_display_page(i)

include graphics.e
include image.e
include get.e
integer file_id
sequence capture_buffer, video_data

video_data = video_config()

clear_screen()
printf(1, "%d pages available, 5 pages required\n", {video_data[8]})
if video_data[8] < 5 then
     puts(1, "Sorry, you have insufficient pages on your video card\n")
else
     puts(1, "Stand By, Loading Each Virtual Page\n")

     set_active_page(1)
     file_id = open("now.bin","rb")
     capture_buffer = get(file_id)
     close(file_id)
     display_text_image({1,1}, capture_buffer[2])

     set_active_page(2)
     file_id = open("this.bin","rb")
     capture_buffer = get(file_id)
     close(file_id)
     display_text_image({1,1}, capture_buffer[2])

     set_active_page(3)
     file_id = open("is.bin","rb")
     capture_buffer = get(file_id)
     close(file_id)
     display_text_image({1,1}, capture_buffer[2])

     set_active_page(4)
     file_id = open("ppower.bin","rb")
     capture_buffer = get(file_id)
     close(file_id)
     display_text_image({1,1}, capture_buffer[2])

     set_active_page(0)

     clear_screen()
     puts(1, "Done....to cycle through all the four pages, press 'n'.\n")
     puts(1, "Press any key to start cycling now.\n")
     while get_key() = -1 do
     end while

     for ix = 1 to 4 do
          set_display_page(ix)
          while get_key() != 'n' do
          end while
     end for

     clear_screen()
end if

set_active_page(0)
set_display_page(0)

   include image.e
   ri = get_active_page()

   include image.e
   ri = get_display_page()

   include machine.e
   use_vesa(i)

 rs = date()

 {number of years since 1900, month number (where January is 1),
 day of month (starting at one), hour (between 0 and 23),
 minute (between 0 and 59), second (between 0 and 59),
 day of the week (where Sunday is 1),
 number of days since the start of the year}

integer curr_year, curr_day, curr_day_of_year,
 curr_hour, curr_minute, curr_second
sequence system_date, word_week, word_month, notation,
 curr_day_of_week, curr_month

word_week = {"Sunday",
 "Monday",
 "Tuesday",
 "Wednesday",
 "Thursday",
 "Friday",
 "Saturday"}

word_month = {"January",
 "February",
 "March",
 "April",
 "May",
 "June",
 "July",
 "August",
 "September",
 "October",
 "November",
 "December"}


system_date = date()

curr_year = system_date[1]
curr_month = word_month[system_date[2]]
curr_day = system_date[3]
curr_hour = system_date[4]
curr_minute = system_date[5]
curr_second = system_date[6]
curr_day_of_week = word_week[system_date[7]]
curr_day_of_year = system_date[8]

if curr_hour >= 12 then
 notation = "p.m."
else
 notation = "a.m."
end if

if curr_hour > 12 then
 curr_hour = curr_hour - 12
end if

if curr_hour = 0 then
 curr_hour = 12
end if

puts(1, "\nHello!\n\n")
printf(1, "Today is %s, %s %d, 19%d.\n", {curr_day_of_week,
 curr_month,
 curr_day, curr_year})
printf(1, "The time is %.2d:%.2d:%.2d %s\n", {curr_hour, curr_minute,
 curr_second, notation})
printf(1, "It is %3d days into the current year.\n", {curr_day_of_year})


 

   ra = time()

include graphics.e
atom minutes, seconds, elapsed_seconds, halt_program
clear_screen()
position(25,1)
text_color(9)
puts(1,"Press Q To Quit Demo Or Let Run For 5 Minutes")
text_color(2)
halt_program = ' '
while halt_program != 'q' do
     halt_program = get_key()
     elapsed_seconds = time()
     minutes = elapsed_seconds / 60
     seconds = remainder(elapsed_seconds, 60)

     position(10, 30)
     printf(1, "Program run time: %.2d:%.2d", {minutes, seconds})
     if minutes >= 4 then
        if seconds >= 50 then
             if seconds >= 55 then
                  text_color(12 + 16)
             else
                  text_color(14)
             end if
        end if
     end if

     if minutes >= 5 then
          clear_screen()
          halt_program = 'q'
     end if
end while

   include machine.e
   tick_rate(i)  [Note: DOS32 only]

include machine.e
atom precision_rate, ticker, seconds
precision_rate = .01
ticker = 1/precision_rate
tick_rate(ticker)
clear_screen()
position(22,1)
puts(1,"Press Any Key To End This Program")
seconds = 0
while get_key() = -1 do
     position(12,24)
     seconds = time()
     printf(1,"Program Running For %03.2f Seconds",seconds)
end while
clear_screen()

   include file.e
   ro = dir(s)

   {{s1, s2, i3, i4, i5, i6, i7, i8, i9},
    {s1, s2, i3, i4, i5, i6, i7, i8, i9},...}

   s1 - File or directory name            s2 - Attribute(s)
   i3 - Size in bytes                     i4 - Year modified
   i5 - Month modified                    i6 - Day modified
   i7 - Hour modified                     i8 - Minute modified
   i9 - Second modified

   d - directory                          r - read only file
   h - hidden file                        s - system file
   v - volume id                          a - archive file

include file.e
include graphics.e

sequence entry_type, format_string

integer keystroke, update, display_from, length_window, current_entry
object cur_dir_info

clear_screen()

position(21,1)
text_color(7)
puts(1,"Page Up And Page Down Keys : Scroll Data ")
position(22,1)
text_color(7)
puts(1,"Up And Down Arrow Keys: Move Highlight Line ")
position(23,1)
text_color(7)
puts(1,"ENTER Key: Get File Or Directory Attributes ")
position(24,1)
text_color(7)
puts(1,"Press Q Key To Quit Program")

position(2,1)
puts(1,
"   Object         Object     Object       Date        Time  \n")

puts(1,
"    Name           Type       Size      Modified    Modified\n")

puts(1,
"____________   ___________   _______   __________   ________\n")
format_string = "%-12s   %11s   %7d   %04d\\%02d\\%02d   %02d:%02d:%02d\n"
display_from = 1
length_window = 10
cur_dir_info = dir(".")
current_entry = 1
update = 'y'
keystroke = 0
while keystroke != 'q' do
     keystroke = get_key()

     if keystroke = 13 then
          position(18,1)
          puts(1,repeat(' ',78))
          if length(cur_dir_info[current_entry][2]) > 0 then
               position(18,1)
               text_color(7)
               puts(1,"Entry Attributes: ")
               for attribz = 1 to length(cur_dir_info[current_entry][2]) do
                    puts(1,cur_dir_info[current_entry][2][attribz])
                    puts(1, " ")
               end for
               text_color(8)
          end if
     end if

     if keystroke = 337 then
          if (display_from + length_window - 1) <
              length(cur_dir_info) then
               display_from = display_from + 1
               current_entry = display_from
               update = 'y'
          end if
     end if

     if keystroke = 329 then
          if display_from > 1 then
               display_from = display_from - 1
               current_entry = display_from
               update = 'y'
          end if
     end if

     if keystroke = 336 then
          if current_entry < length(cur_dir_info) and
               current_entry < (display_from + length_window - 1) then
               update = 'y'
               current_entry = current_entry + 1
          end if
     end if

     if keystroke = 328 then
          if current_entry > 1 and current_entry > display_from then
               update = 'y'
               current_entry = current_entry - 1
          end if
     end if

     if update = 'y' then

          update = 'n'
          position(6,1)
          for line = display_from to (display_from + (length_window-1)) do
               if line <= length(cur_dir_info) then
                    if find('d',cur_dir_info[line][2]) then
                         entry_type = "<DIRECTORY>"
                    else
                         entry_type = "  -FILE-   "
                    end if
                    if current_entry = line then
                         text_color(15)
                    else
                         text_color(8)
                    end if
                    printf(1,format_string,{cur_dir_info[line][1],
                                            entry_type,
                                            cur_dir_info[line][3],
                                            cur_dir_info[line][4],
                                            cur_dir_info[line][5],
                                            cur_dir_info[line][6],
                                            cur_dir_info[line][7],
                                            cur_dir_info[line][8],
                                            cur_dir_info[line][9]})
               else
                    puts(1,repeat(' ',78) & "\n")
               end if
          end for
     end if
end while

clear_screen()

   include file.e
   rs = current_dir()

include file.e
sequence where_am_i
where_am_i = current_dir()
puts(1,"Hello!\n")
printf(1,"This demo runs from directory %s\n",{where_am_i})

   system(s,i)

   0 - clear the screen by restoring graphics mode of Euphoria program
   1 - beep, wait for key press, and then restore graphics mode
   2 - do not restore graphics mode

system("type C:\\autoexec.bat | more ",2)

   rs = command_line()

  {the EX.EXE file name (including the directory where it is stored),
   the name of your Euphoria program being run,
   the first parameter the program accepts,...}

  {the Euphoria program name (including the directory where it is stored),
   the Euphoria program name (including the directory where it is stored),
   the first parameter the program accepts,...}

sequence command_line_data

atom number_of_parameters

clear_screen()

command_line_data = command_line()

number_of_parameters = length(command_line_data) - 2

if number_of_parameters = 0 then
     puts(1, "\nPlease run the demo BATCH file to execute this program\n")
else
     printf(1, "\n%d parameter(s) were passed to this program\n\n",
            {number_of_parameters})
     for ix = 3 to length(command_line_data) do
          printf(1, "%s is parameter %d\n", {command_line_data[ix],
                                         ix-2})
     end for
end if