22 lines
530 B
Plaintext
22 lines
530 B
Plaintext
$ include "seed7_05.s7i";
|
|
include "draw.s7i";
|
|
include "keybd.s7i";
|
|
include "bitmapfont.s7i";
|
|
include "stdfont24.s7i";
|
|
include "pixmap_file.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
var text: screen is STD_NULL;
|
|
begin
|
|
screen(400, 100);
|
|
clear(curr_win, white);
|
|
KEYBOARD := GRAPH_KEYBOARD;
|
|
screen := openPixmapFontFile(curr_win);
|
|
color(screen, black, white);
|
|
setFont(screen, stdFont24);
|
|
setPosXY(screen, 68, 60);
|
|
write(screen, "Goodbye, World");
|
|
ignore(getc(KEYBOARD));
|
|
end func;
|