{**********************************************************************}
{ Read back ten pixels and print their values				}
{**********************************************************************}

procedure read_10_pixels;
const
MONO = 5;
VMONO = 7;
COLOR = 4;
ENHANCED = 3;
var
i,x,y,color : integer;
begin
	i := get_display_type;
	if i = MONO then set_mode($0F)
	else if i = VMONO then set_mode($0F)
	else if i = COLOR then set_mode($0E)
	else set_mode($10);

	writeln('Values in raster 19 are: ');
	y := 19; 			{ 20th raster line from top 	}
	for x := 0 to 9 do begin	{ Loop over pixels		}
		pixel_write(x, y, x);	{ Put in dummy value		}
		color := pixel_read(x,y);{ Read next value		}
		writeln(color);  { Print value just read        }
	end;
	i := integer(readkey);
	{--- Set default text mode					}
	i := get_display_type;
	if i = MONO then set_mode(7)
	else if i = VMONO then set_mode(7)
	else	set_mode(3);
end;