home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / files / fileman / fm / fmutest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  1.4 KB  |  46 lines
  1. {
  2. --------------------------------------------------------------------------
  3.                        F i l e    I n f o r m a t i o n
  4.  
  5. * DESCRIPTION
  6. File used with FM.PAS.
  7.  
  8. * ASSOCIATED FILES
  9. FM.PAS
  10. FM.DOC
  11. FM.EXE
  12. FM.TPU
  13. FMFILE.PAS
  14. FMINPUT.PAS
  15. FMSCREEN.PAS
  16. FMUTEST.EXE
  17. FMUTEST.PAS
  18. FMVIEW.PAS
  19.  
  20. ==========================================================================
  21. }
  22. {$DEFINE MemLimited}                                   { Program: FMUTest.PAS }
  23.   { Keep or Comment out MemLimited definition }        { Author:  Jim Zwick   }
  24.   { to match unit configuration }                      { Version: 1.0         }
  25.                                                        { Date:    03-04-88    }
  26. {$IFDEF MemLimited}                                    { Purpose: Test FM.PAS }
  27. {$M 8192,0,65536}                                      {      when configured }
  28. {$ENDIF}                                               {      as a Unit.      }
  29.  
  30. PROGRAM FMUnitTest;
  31. USES                      
  32.   FMInput,                { FM.PAS must be configured as a unit or error will }
  33.   FM;                     { occur pointing to PROGRAM heading in FM.PAS.      }
  34. CONST
  35.   F2 = #188;
  36. VAR
  37.   Reply : CHAR;
  38. BEGIN
  39.   WRITE('Press <F2> to pop up File Manager, <Esc> to Exit ');
  40.   REPEAT
  41.     Reply := GetKey(#0+#27, FALSE);
  42.     IF (Reply = F2) THEN FileManager;
  43.   UNTIL (Reply = #27);
  44. END.
  45. 
  46.