home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma30.dms / ma30.adf / Konwersja / Rexx / ListPref.konrx < prev    next >
Text File  |  1994-08-16  |  3KB  |  145 lines
  1. /*
  2.     Konwersja 3.0b
  3.  
  4.     Makro ARexxa: Test funkcji POBIERZPREF
  5.     Ukazuje wykorzystanie wszystkich parametrów komendy POBIERZPREF.
  6.  
  7.     $VER: ListPref.konrx 1.1 (29.6.94)
  8.  
  9.     Copyright © 1993, 1994 Kamil Iskra
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. ADDRESS "KONWERSJA" /* Niepotrzebne, o ile makro uruchomione z Konwersji */
  15.  
  16. OnOff.0="wyîâczony."
  17. OnOff.1="wîâczony."
  18.  
  19. SAY "Konwersja jest obecnie skonfigurowana w nastëpujâcy sposób:" 'A'X
  20.  
  21. POBIERZPREF pubscreen
  22. IF RESULT="RESULT" THEN
  23.     SAY "Okna Konwersji sâ otwarte na standardowym ekranie publicznym."
  24. ELSE
  25.     SAY "Okna Konwersji sâ otwarte na ekranie '" || RESULT || "'."
  26.  
  27. SAY
  28.  
  29. POBIERZPREF katzrod
  30. IF RESULT="" THEN
  31.     RESULT="bieûâcy"
  32. SAY "Katalog w úródîowym file-requesterze:" RESULT
  33.  
  34. POBIERZPREF katdoc
  35. IF RESULT="" THEN
  36.     RESULT="bieûâcy"
  37. SAY "Katalog w docelowym file-requesterze:" RESULT
  38.  
  39. POBIERZPREF ostatobrabplik
  40. IF RESULT="" THEN
  41.     RESULT="brak"
  42. SAY "Ostatnio obrabiany plik:" RESULT 'A'X
  43.  
  44. POBIERZPREF sciezkastan
  45. SAY "Ôcieûka standardów dyskowych: '" || RESULT || "'"
  46.  
  47. POBIERZPREF iloscdysstan
  48. IloscDysStan=RESULT /* Uûyjë póúniej */
  49. IF RESULT=0 THEN
  50.     SAY "Widzë, ûe nie sâ Ci potrzebne dyskowe standardy."
  51. ELSE
  52.     SAY "Iloôê wczytanych z dysku standardów:" RESULT
  53.  
  54. POBIERZPREF stanzrod
  55. IF RESULT=-1 THEN
  56.     SAY "Nie jest ustalony standard úródîowy."
  57. ELSE
  58.     DO
  59.         POBIERZPREF standard || RESULT
  60.         SAY "Nazwa standardu úródîowego: '" || LEFT(RESULT,INDEX(RESULT, 'A'X),
  61.             -1) || "'" /* INDEX znajduje pierwsze wystâpienie RETURNa w ciâgu, a
  62.                     LEFT tworzy nowy napis - od poczâtku do RETURN */
  63.     END
  64.  
  65. POBIERZPREF standoc
  66. IF RESULT=-1 THEN
  67.     SAY "Nie jest ustalony standard docelowy."
  68. ELSE
  69.     DO
  70.         POBIERZPREF standard || RESULT
  71.         SAY "Nazwa standardu docelowego: '" || LEFT(RESULT,INDEX(RESULT, 'A'X),
  72.             -1) || "'"
  73.     END
  74.  
  75. POBIERZPREF zmienret
  76. SAY "Gadûet 'Zamiana RETURNów' jest" OnOff.RESULT
  77.  
  78. POBIERZPREF rozpzrod
  79. SAY "Gadûet 'Rozpoznaj úródîowy' jest" OnOff.RESULT
  80.  
  81. POBIERZPREF obslugkonc
  82. SAY "Gadûet 'Obsîuguj koïcówki' jest" OnOff.RESULT
  83.  
  84. /* Weú informacje o ostatnim standardzie */
  85. POBIERZPREF standard || IloscDysStan+4
  86. SAY "Ostatni standard w listview-gadûecie 'Úródîowy' ma nastëpujâce cechy:"
  87. DlugoscNazwy=INDEX(RESULT, 'A'X)
  88. SAY " Nazwa: '" || LEFT(RESULT, DlugoscNazwy-1) || "'"
  89. SAY " Polskie litery:"
  90. SAY " Â   Ê   Ë   Î   Ï   Ó   Ô   Ú   Û   â   ê   ë   î   ï   ó   ô   ú   û",
  91.     || "   ¤"
  92. Kody=" "
  93. DO licznik=0 TO 18
  94.     litera=SUBSTR(RESULT, DlugoscNazwy+1+licznik, 1) /* Wydzielenie jednej
  95.                 litery */
  96.     IF litera='A'X THEN /* Brak znaku ¤ */
  97.         litera='0'X
  98.     Kody=Kody || LEFT(C2D(litera), 4)
  99.     /* C2D - konwersja na cyfrë, LEFT - zadbanie, aby wynik miaî dîugoôê 4
  100.         znaki (aby wyszedî pod literâ) */
  101. END
  102. SAY Kody
  103. Koncowka=RIGHT(RESULT, LENGTH(RESULT)-LASTPOS('A'X, RESULT))
  104. IF Koncowka="" THEN
  105.     Koncowka="brak"
  106. SAY " Koïcówka:" Koncowka || 'A'X
  107.  
  108. POBIERZPREF kompresuj
  109. SAY "Gadûet 'Kompresja' jest" OnOff.RESULT
  110.  
  111. Buf.0="Duûy"
  112. Buf.1="Ôredni"
  113. Buf.2="Maîy"
  114.  
  115. POBIERZPREF buforkompr
  116. SAY "Rozmiar bufora:" Buf.RESULT
  117.  
  118. Typ.0="Szybka"
  119. Typ.1="Ôrednia"
  120. Typ.2="Dobra"
  121. Typ.3="Bardzo dobra"
  122. Typ.4="Najlepsza"
  123.  
  124. POBIERZPREF typkompr
  125. SAY "Skutecznoôê kompresji:" Typ.RESULT
  126.  
  127. Nagr.0="Nie"
  128. Nagr.1="Tak"
  129. Nagr.2="Na úródîowy"
  130. Nagr.3="Na docelowy"
  131.  
  132. POBIERZPREF rodzajnagr
  133. SAY "Nagrywanie automatyczne:" Nagr.RESULT
  134.  
  135. POBIERZPREF ukazujprefs
  136. SAY "Gadûet 'Ukazuj Preferencje' jest" OnOff.RESULT
  137.  
  138. POBIERZPREF kopiujikony
  139. SAY "Gadûet 'Kopiuj Ikony' jest" OnOff.RESULT
  140.  
  141. POBIERZPREF zapiszsciezki
  142. SAY "Gadûet 'Zapamiëtaj Ôcieûki' jest" OnOff.RESULT
  143.  
  144. SAY 'A'X || "To juû koniec."
  145.