program one;
var VERT_SCREEN_POSITION,HORI_SCREEN_POSITION,Number_of_pixels_drawn:integer;
begin
asm
mov al, 13h  {initialize VGA mode}
mov ah, 0
int 10h
mov al, 1
end;
randomize;
Number_of_pixels_drawn:=0;

repeat
VERT_SCREEN_POSITION:= random(320); {randomly choose where to place a pixel}
HORI_SCREEN_POSITION:= random(200);
asm
mov ah, 0Ch
mov Cx, VERT_SCREEN_POSITION
mov Dx, HORI_SCREEN_POSITION
int 10h                      {print pixel}
inc Number_of_pixels_drawn
inc al                       {next color}
end;
until Number_of_pixels_drawn = 30000;
writeln('VGA palette');
readln;
end.