home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 06 / tricks / testdir.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1989-03-21  |  799 b   |  29 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     TESTDIR.PAS                        *)
  3. (*        (c) 1989  Jan Laitenberger  & TOOLBOX           *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM TestDir;
  6.  
  7. USES Crt, DirWin;
  8.  
  9. VAR s : STRING; a : INTEGER;
  10.     t : TEXT;   x : CHAR;
  11.  
  12. BEGIN
  13.   mask := '*.*';  ClrScr;
  14.   FOR a := 1 TO 1999 DO Write(Chr(Random(50) + 31));
  15.   s := getdir; delay(500);
  16.   ClrScr;
  17.   IF s <> '<ESC>' THEN BEGIN
  18.     Write('TYPE ', s); Delay(1000);  WriteLn;
  19.     Assign(t, s);  Reset(t);
  20.     REPEAT
  21.       Read(t, x);  Write(x);
  22.     UNTIL EOF(t);
  23.     Close(t);
  24.   END;
  25. END.
  26. (* ------------------------------------------------------ *)
  27. (*                 Ende von TESTDIR.PAS                   *)
  28.  
  29.