program mgtest;
{$ifdef FPC}{$mode tp}{$endif}
{$ifdef VER70}{$X+}{$F+}{$endif}
uses crt, ug_fonts, ug, ug_types, graph;
var
gui: UG_GUI;
grmode, grdriver :integer;
x,y : integer;
procedure pset(x: UG_S16; y: UG_S16; c: UG_COLOR);
begin
PutPixel(x, y, c);
end;
begin
grdriver := DETECT;
{$ifdef FPC}
initgraph(grdriver, grmode, ' ');
{$endif}
{$ifdef VER70}
initgraph(grdriver, grmode, 'C:\TP7\BGI');
{$endif}
UG_Init(gui, pset, getmaxx, getmaxy);
UG_SetBackcolor(black);
UG_SetForecolor(blue);
UG_FontSelect(@FONT_8X14);
UG_PutString(100, 100, 'Hello, Pascal!');
UG_FontSelect(@FONT_16X26);
UG_PutString(140, 140, 'Hello, Pascal!');
(*
UG_DrawCircle(250, 400, 100, white);
UG_FillCircle(250, 400, 80, white);
*)
UG_ConsoleSetArea(getmaxx div 2, getmaxy div 2, getmaxx, getmaxy);
UG_ConsoleSetForecolor(blue);
UG_ConsoleSetBackcolor(white);
UG_ConsolePutString('High Voltage' + #10);
UG_ConsolePutString('Rebooting...' + #10);
UG_ConsolePutString('Please, wait...');
ReadLn;
CloseGraph;
end.