15 lines
461 B
Text
15 lines
461 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);
|
|
writeln(console, "height: " <& height(console) lpad 3);
|
|
writeln(console, "width: " <& width(console) lpad 3);
|
|
# Terminal windows often restore the previous
|
|
# content, when a program is terminated. Therefore
|
|
# the program waits until Return/Enter is pressed.
|
|
readln;
|
|
end func;
|