{
        my @screen;
        my @pos  = (  0,  0 );
        my @size = ( 80, 24 );

        sub size { @_ ? @size = @_ : @size }
        sub at   { @_ ? @pos  = @_ : @pos  }

        sub set
        {
                my @str = split //, $_[0];

                $screen[ $pos[1] ][ $pos[0] + $_ ] = $str[$_]
                        for 0 .. $#str;
        } # set

        sub clear
        {
                @screen = ();
                $^O =~ /win/i
                        ? system('cls')
                        : system('clear')
        } # clear

        sub show
        {
                for my $y ( 1 .. $size[1] )
                {
                        for my $x ( 1 .. $size[0] )
                        {
                                my $char = $screen[ $y-1 ][ $x-1 ];
                                   $char = ' ' unless defined $char;

                                print $char;
                        } # for
                        print "\n";
                } # for
        } # show
}