home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / ArpFrq.p < prev    next >
Encoding:
Text File  |  1994-07-25  |  409 b   |  22 lines
  1. Program ArpTest;
  2.  
  3. { Demoprogramm für Benutzung des ARP-Filerequesters }
  4. { Jens Gelhar 27.08.90 }
  5.  
  6. Uses Crt; From Windows Uses ArpFilerequester;
  7.  
  8. Var Dateiname: String;
  9.  
  10. Begin
  11.  
  12.   WindowTitles ('Demo für den ARP-Filerequester', Nil);
  13.   FR_Dir := 'RAM:'; { Default-Directory }
  14.  
  15.   Repeat
  16.     Dateiname := FileReq (CrtWindow, 'Dies ist der ARP-Filerequester');
  17.     Writeln(Dateiname)
  18.   Until Dateiname = ''
  19.  
  20. End.
  21.  
  22.