home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Amiga Shareware Floppies
/
ma45.dms
/
ma45.adf
/
Listingi
/
MagazynAMIGA4
/
Katalog.ced
< prev
next >
Wrap
Text File
|
2002-10-23
|
236b
|
14 lines
/*
Katalog.ced
*/
OPTIONS RESULTS
ADDRESS 'rexx_ced'
/* pobranie nazwy katalogu */
GETDIRNAME '"RAM:"' '"Wybierz katalog"'
/* czy Cancel? */
IF (RESULT ~= 'RESULT') THEN
/* nie... Wyprowadú tekst */
say "Katalog: " || RESULT