-- 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})