@@ -86,3 +86,4 @@ ex80.pp contains an example of the High/Low functions.
ex81.pp contains an example of the HexStr function.
ex82.pp contains an example of the BinStr function.
ex83.pp contains an example of the Assigned function.
+ex84.pp contains an example of the Library keyword.
@@ -0,0 +1,24 @@
+Library Greeting;
+
+{$Mode objpas}
+Procedure Hello;
+begin
+ Writeln ('Hello, World !');
+end;
+Function GetNumber (Max : longint) : Longint;
+ Repeat
+ Write ('Please enter a nuber between 0 and ',max,' : ');
+ ReadLn (Result);
+ Until (Result>=0) and (Result<=Max);
+exports
+ Hello,
+ GetNumber;
+end.