blob: 41902b405ea89ee0a918bca14f3ae7bfcb84240d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
{ 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.
|
