home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Amiga Shareware Floppies
/
ma30.dms
/
ma30.adf
/
Konwersja
/
Rexx
/
ListPref.konrx
< prev
next >
Wrap
Text File
|
1994-08-16
|
3KB
|
145 lines
/*
Konwersja 3.0b
Makro ARexxa: Test funkcji POBIERZPREF
Ukazuje wykorzystanie wszystkich parametrów komendy POBIERZPREF.
$VER: ListPref.konrx 1.1 (29.6.94)
Copyright © 1993, 1994 Kamil Iskra
*/
OPTIONS RESULTS
ADDRESS "KONWERSJA" /* Niepotrzebne, o ile makro uruchomione z Konwersji */
OnOff.0="wyîâczony."
OnOff.1="wîâczony."
SAY "Konwersja jest obecnie skonfigurowana w nastëpujâcy sposób:" 'A'X
POBIERZPREF pubscreen
IF RESULT="RESULT" THEN
SAY "Okna Konwersji sâ otwarte na standardowym ekranie publicznym."
ELSE
SAY "Okna Konwersji sâ otwarte na ekranie '" || RESULT || "'."
SAY
POBIERZPREF katzrod
IF RESULT="" THEN
RESULT="bieûâcy"
SAY "Katalog w úródîowym file-requesterze:" RESULT
POBIERZPREF katdoc
IF RESULT="" THEN
RESULT="bieûâcy"
SAY "Katalog w docelowym file-requesterze:" RESULT
POBIERZPREF ostatobrabplik
IF RESULT="" THEN
RESULT="brak"
SAY "Ostatnio obrabiany plik:" RESULT 'A'X
POBIERZPREF sciezkastan
SAY "Ôcieûka standardów dyskowych: '" || RESULT || "'"
POBIERZPREF iloscdysstan
IloscDysStan=RESULT /* Uûyjë póúniej */
IF RESULT=0 THEN
SAY "Widzë, ûe nie sâ Ci potrzebne dyskowe standardy."
ELSE
SAY "Iloôê wczytanych z dysku standardów:" RESULT
POBIERZPREF stanzrod
IF RESULT=-1 THEN
SAY "Nie jest ustalony standard úródîowy."
ELSE
DO
POBIERZPREF standard || RESULT
SAY "Nazwa standardu úródîowego: '" || LEFT(RESULT,INDEX(RESULT, 'A'X),
-1) || "'" /* INDEX znajduje pierwsze wystâpienie RETURNa w ciâgu, a
LEFT tworzy nowy napis - od poczâtku do RETURN */
END
POBIERZPREF standoc
IF RESULT=-1 THEN
SAY "Nie jest ustalony standard docelowy."
ELSE
DO
POBIERZPREF standard || RESULT
SAY "Nazwa standardu docelowego: '" || LEFT(RESULT,INDEX(RESULT, 'A'X),
-1) || "'"
END
POBIERZPREF zmienret
SAY "Gadûet 'Zamiana RETURNów' jest" OnOff.RESULT
POBIERZPREF rozpzrod
SAY "Gadûet 'Rozpoznaj úródîowy' jest" OnOff.RESULT
POBIERZPREF obslugkonc
SAY "Gadûet 'Obsîuguj koïcówki' jest" OnOff.RESULT
/* Weú informacje o ostatnim standardzie */
POBIERZPREF standard || IloscDysStan+4
SAY "Ostatni standard w listview-gadûecie 'Úródîowy' ma nastëpujâce cechy:"
DlugoscNazwy=INDEX(RESULT, 'A'X)
SAY " Nazwa: '" || LEFT(RESULT, DlugoscNazwy-1) || "'"
SAY " Polskie litery:"
SAY " Â Ê Ë Î Ï Ó Ô Ú Û â ê ë î ï ó ô ú û",
|| " ¤"
Kody=" "
DO licznik=0 TO 18
litera=SUBSTR(RESULT, DlugoscNazwy+1+licznik, 1) /* Wydzielenie jednej
litery */
IF litera='A'X THEN /* Brak znaku ¤ */
litera='0'X
Kody=Kody || LEFT(C2D(litera), 4)
/* C2D - konwersja na cyfrë, LEFT - zadbanie, aby wynik miaî dîugoôê 4
znaki (aby wyszedî pod literâ) */
END
SAY Kody
Koncowka=RIGHT(RESULT, LENGTH(RESULT)-LASTPOS('A'X, RESULT))
IF Koncowka="" THEN
Koncowka="brak"
SAY " Koïcówka:" Koncowka || 'A'X
POBIERZPREF kompresuj
SAY "Gadûet 'Kompresja' jest" OnOff.RESULT
Buf.0="Duûy"
Buf.1="Ôredni"
Buf.2="Maîy"
POBIERZPREF buforkompr
SAY "Rozmiar bufora:" Buf.RESULT
Typ.0="Szybka"
Typ.1="Ôrednia"
Typ.2="Dobra"
Typ.3="Bardzo dobra"
Typ.4="Najlepsza"
POBIERZPREF typkompr
SAY "Skutecznoôê kompresji:" Typ.RESULT
Nagr.0="Nie"
Nagr.1="Tak"
Nagr.2="Na úródîowy"
Nagr.3="Na docelowy"
POBIERZPREF rodzajnagr
SAY "Nagrywanie automatyczne:" Nagr.RESULT
POBIERZPREF ukazujprefs
SAY "Gadûet 'Ukazuj Preferencje' jest" OnOff.RESULT
POBIERZPREF kopiujikony
SAY "Gadûet 'Kopiuj Ikony' jest" OnOff.RESULT
POBIERZPREF zapiszsciezki
SAY "Gadûet 'Zapamiëtaj Ôcieûki' jest" OnOff.RESULT
SAY 'A'X || "To juû koniec."