3
{ Program to demonstrate the Exit function. }
5
Procedure DoAnExit (Yes : Boolean);
7
{ This procedure demonstrates the normal Exit }
10
Writeln ('Hello from DoAnExit !');
13
Writeln ('Bailing out early.');
16
Writeln ('Continuing to the end.');
19
Function Positive (Which : Integer) : Boolean;
21
{ This function demonstrates the extra FPC feature of Exit :
22
You can specify a return value for the function }
32
{ This call will go to the end }
34
{ This call will bail out early }
37
Writeln ('The compiler is nuts, -1 is not positive.')
39
Writeln ('The compiler is not so bad, -1 seems to be negative.');