-- abschreckendes Beispiel fuer HELLO WORLD! (jdr, 19.10.2000)
--

--
-- Diese Routine arbeitet mit dem Software-Interrupt #0E der Video-
-- BIOS-Services (#10) ("WRITE TEXT IN TELETYPE MODE").

include machine.e                       -- benoetigte Include

global integer forecol                  -- Textfarbe

global object instruc                   -- Objekt für die Werte,
                                        -- mit denen der Software-
                                        -- Interrupt angesprochen
                                        -- wird.

forecol = 7

instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 72,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 101,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 108,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 108,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 111,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 32,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 87,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 111,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 114,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 108,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 100,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 33,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 10,0,0,0})
instruc = dos_interrupt(#10,{0,0,0,forecol,0,0,#0E00 + 13,0,0,0})

puts (1, "Hello World\n")

for i=1 to 10 do
   print(1,i*i)
   puts(1," ")
end for