home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma45.dms / ma45.adf / Listingi / MagazynAMIGA4 / Plik.ced < prev    next >
Text File  |  2002-10-23  |  229b  |  14 lines
  1. /*
  2.    Plik.ced
  3. */
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS 'rexx_ced'
  7.  
  8. /* pobranie nazwy pliku */
  9. GETFILENAME '"RAM:Plik"' '"Wybierz plik"'
  10. /* czy Cancel? */
  11. IF (RESULT ~= 'RESULT') THEN
  12.    /* nie... Wyprowadú tekst */
  13.    say "Plik: " || RESULT
  14.