home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / tricks / demo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-07-08  |  640 b   |  21 lines
  1. (* ------------------------------------------------------ *)
  2. (*                        DEMO.PAS                        *)
  3. (*       Demonstrationsprogram zur Unit DATWAHL.PAS       *)
  4. (*          (c) 1990 Alexander Sunder & TOOLBOX           *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM Demo;
  7.  
  8. USES
  9.   Crt, DatWahl;
  10.  
  11. VAR
  12.   Name : STRING;
  13.  
  14. BEGIN
  15.   WriteLn;  WriteLn;
  16.   Write('Suchmaske: ');  ReadLn(Name);
  17.   DateiWahl(10, 9, Name);
  18.   WriteLn('Gewählte Datei: ', Name);
  19. END.
  20. (* ------------------------------------------------------ *)
  21. (*                Ende von DATWAHL.PAS                    *)