fpcsrc/tests/webtbs/tw8076.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ %interactive }

{ should fill the rightmost column of the window with a yellow bar }

uses crt;

var
  i: longint;
begin
for i := 1 to SCREENHEIGHT do
begin
textbackground(YELLOW);
gotoxy(SCREENWIDTH, i);
write(' ');
end;
end.