home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PULLDIR.ZIP / TESTPULL.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-12-13  |  1.0 KB  |  38 lines
  1. {$R+,S+,I-,D+,T-,F-,V-,B-,N-,L+ }
  2. {$M 16384,0,655360 }
  3.  
  4. {############################# TestPull.PAS ##################################}
  5.  
  6. Uses
  7.   TPString,
  8.   TPCrt,
  9.   TPMenu,
  10.   TPWindow,
  11.   PullDir;
  12.  
  13. VAR
  14.   MainCh, XY, SLines:       Word;
  15.   AKey:                     Char;
  16.   CurrMask:                 String[80];
  17.   CurrName:                 String[15];
  18.   BufPtr:                   Pointer;
  19.  
  20. BEGIN
  21.   GetCursorState(XY, SLines);
  22.   HiddenCursor;
  23.   If SaveWindow(1,1,80,25,TRUE,BufPtr) then BEGIN
  24.     CurrMask:='*.*';
  25.     CurrName:='';
  26.     MainCh:=GetDirectory(CurrMask, CurrName);
  27.     ClrScr;
  28.     FastWrite('Current   Mask: '+CurrMask,5,1,Red);
  29.     FastWrite('Current   File: '+CurrName,6,1,White);
  30.     FastWrite('Current HiChar: Chr('+Long2Str(Hi(MainCh))+')',  7,1,Blue);
  31.     FastWrite('Current LoChar: Chr('+Long2Str(Lo(MainCh))+')',  8,1,Blue);
  32.     FastWrite('Press any key to quit',15,1,Yellow);
  33.     AKey:=ReadKey;
  34.     RestoreWindow(1,1,80,25,TRUE,BufPtr);
  35.   END;
  36.   RestoreCursorState(XY, SLines);
  37. END.
  38.