home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / XCRT.ZIP / XCRTDEMO.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-10-07  |  715 b   |  41 lines
  1. Program xCRTdemo;
  2.  
  3.  
  4. uses Crt,xCrt,envunit;
  5.  
  6. type
  7.       textfile = record
  8.         f : text;
  9.         name : XFName;
  10.         end;
  11.  
  12.  
  13. var  infile,outfile : textfile;
  14.  
  15. const
  16.     InName  = 'autoexec.bat';
  17.     OutName = 'turbo.exe';
  18.  
  19. begin
  20.  
  21.   XFSearchPath := TRUE;
  22.  
  23.   ClrScr;
  24.  
  25.   AllowWildcards := false;
  26.  
  27.   if GetXFName('Input file name ',InName,forInput,infile.name) then begin
  28.     with infile.name do    writeln('Success! ',d,n,x); writeln;
  29.  
  30.     if GetXFName('Output file name ',OutName,forOutput,outfile.name) then begin
  31.       with outfile.name do    writeln('Success! ',d,n,x); writeln;
  32.  
  33.      end
  34.     else
  35.       writeln('Fails...');
  36.  
  37.    end
  38.   else
  39.     writeln('Fails...');
  40.  
  41. end.