Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw8076.pp
Size: Mime:
{ %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.