15 lines
398 B
Text
15 lines
398 B
Text
$ include "seed7_05.s7i";
|
|
include "console.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
var text: console is STD_NULL;
|
|
begin
|
|
console := open(CONSOLE);
|
|
setPos(console, 6, 3);
|
|
write(console, "Hello");
|
|
# Terminal windows often restore the previous
|
|
# content, when a program is terminated. Therefore
|
|
# the program waits until Return/Enter is pressed.
|
|
readln;
|
|
end func;
|