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 / tbs / tb0014.pp
Size: Mime:
{ Old file: tbs0017.pp }
{  }

const
      nextoptpass : longint = 0;
  procedure init;

    const
       endofparas : boolean = false;

    procedure getparastring;

      procedure nextopt;

        begin
           endofparas:=true;
           getparastring;
           inc(nextoptpass);
           init;
        end;

      begin
       if not endofparas then
         nextopt;
      end;

    begin
         getparastring;
    end;

begin
   init;
   if nextoptpass<>1 then Halt(1);
end.