home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / refex / ex84.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  323 b   |  24 lines

  1. Library Greeting;
  2.  
  3. {$Mode objpas}
  4.  
  5. Procedure Hello;
  6.  
  7. begin
  8.   Writeln ('Hello, World !');
  9. end;
  10.  
  11. Function GetNumber (Max : longint) : Longint;
  12.  
  13. begin
  14.   Repeat
  15.     Write ('Please enter a nuber between 0 and ',max,' : ');
  16.     ReadLn (Result);
  17.   Until (Result>=0) and (Result<=Max);
  18. end; 
  19.  
  20. exports
  21.   Hello,
  22.   GetNumber;
  23.   
  24. end.