home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / pascal / passrc / intest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-10-15  |  493 b   |  21 lines
  1. program in_test;
  2.  
  3. {****************************************************************************
  4.  
  5.         Program to test Rinput.pas and Input.pas  include files...
  6.  
  7. ****************************************************************************}
  8.  
  9. { now include needed subroutines... }
  10.  
  11. {$i rinput.pas}
  12. {$i input.pas}
  13.  
  14. Begin
  15.  
  16.    Writeln( Input( 'Enter Integer in range of 1 to 10 ', 1, 10, 0 ) );
  17.    Writeln( Rinput( 'Enter Real in range of 1 to 10 ', 1, 10, 0 ):1:4 );
  18.  
  19. End.
  20.  
  21.