mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 03:59:28 +02:00
28 lines
336 B
ObjectPascal
28 lines
336 B
ObjectPascal
procedure init;
|
|
|
|
var
|
|
endofparas : boolean;
|
|
|
|
procedure getparastring;
|
|
|
|
procedure nextopt;
|
|
|
|
begin
|
|
getparastring;
|
|
init;
|
|
endofparas:=false;
|
|
end;
|
|
|
|
begin
|
|
nextopt;
|
|
end;
|
|
|
|
begin
|
|
getparastring;
|
|
end;
|
|
|
|
begin
|
|
init;
|
|
end.
|
|
|