home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TTT510.ZIP / TTTDEM.ZIP / DIRDEM1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-31  |  306 b   |  16 lines
  1. Program DirTTT5_demo_1;
  2.  
  3. {IMPORTANT NOTE: set Options Compiler Conditional defines to
  4.                       DIRFULL
  5.  and select compile build
  6. }
  7. uses CRT,DIRTTT5;
  8.  
  9. var
  10.   Chosen_File : string;
  11.   ErrCode : integer;
  12.  
  13. begin
  14.     clrscr;
  15.     Chosen_File := Display_Directory('*.Pas',Errcode);
  16. end.