PROGRAM console(input, output);




PROCEDURE console_clear;BEGIN
    write(chr(27),'[2J');
END;
PROCEDURE console_goto_x_y(x:integer; y:integer);BEGIN
    write(chr(27),'[',y:0,';',x:0,'H');
END;
PROCEDURE console_color_f(c:integer); BEGIN
    write(chr(27),'[',30+c:0,'m');
END;
PROCEDURE console_color_b(c:integer); BEGIN
    write(chr(27),'[',40+c:0,'m');
END;
PROCEDURE console_style(s:integer); BEGIN
    write(chr(27),'[',s:0,'m');
END;
PROCEDURE console_save_cursor; BEGIN
    write(chr(27),'[s');
END;
PROCEDURE console_restore_cursor; BEGIN
    write(chr(27),'[u');
END;
PROCEDURE console_print(text:string; x:integer; y:integer);BEGIN
    {clearconsole;}
    console_goto_x_y(x,y);
    write(text);
END;
PROCEDURE console_restore_all; BEGIN
    console_style(0);
END;




BEGIN
    console_color_f(7);
    console_color_b(1);
    console_print(';)',38,12);
    console_restore_all;
END.