home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma30.dms / ma30.adf / Konwersja / Rexx / UstawPref.konrx < prev   
Text File  |  1994-08-16  |  1KB  |  53 lines
  1. /*
  2.     Konwersja 3.0b
  3.  
  4.     Makro ARexxa: Test funkcji USTAWPREF
  5.     Ukazuje wykorzystanie niektórych parametrów komendy USTAWPREF - ustawia
  6.     moje ulubione (?) ustawienie preferencji.
  7.  
  8.     $VER: UstawPref.konrx 1.1 (29.6.94)
  9.  
  10.     Copyright © 1993, 1994 Kamil Iskra
  11. */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. ADDRESS "KONWERSJA" /* Niepotrzebne, o ile makro uruchomione z Konwersji */
  16.  
  17. SAY "Ustawiam preferencje w mój ulubiony sposób:" 'A'X
  18.  
  19. SAY "Wîâczam automatyczne rozpoznawanie standardu úródîowego"
  20. USTAWPREF RozpZrod 1
  21.  
  22. POBIERZPREF IloscDysStan
  23. CalkowitaIloscStan=RESULT+5
  24.  
  25. /* Znajdú numer standardu AmigaPL w liôcie standardów */
  26. DO licznik=0 TO CalkowitaIloscStan-1
  27.     POBIERZPREF Standard || licznik
  28.     IF LEFT(RESULT, INDEX(RESULT, 'A'X)-1)="Amiga PL" THEN
  29.             /* INDEX znajduje pierwsze wystâpienie RETURNa w ciâgu, a LEFT
  30.                 tworzy nowy napis - od poczâtku do RETURN */
  31.         BREAK;
  32. END
  33.  
  34. SAY "Ustawiam standard docelowy na AmigaPL - nr" licznik
  35. USTAWPREF StanDoc licznik
  36.  
  37. SAY "Wîâczam automatyczne nagrywanie 'Na úródîowy'"
  38. USTAWPREF RodzajNagr 2
  39.  
  40. SAY "Wyîâczam ukazywanie okna preferencji"
  41. USTAWPREF UkazujPrefs 0
  42.  
  43. SAY "Wyîâczam zamianë Returnów"
  44. USTAWPREF ZmienRet 0
  45.  
  46. SAY "Wyîâczam kompresjë"
  47. USTAWPREF Kompresuj 0
  48.  
  49. SAY "Wyîâczam kopiowanie ikon (nagrywam plik w to samo miejsce, wiëc po co?)"
  50. USTAWPREF KopiujIkony 0
  51.  
  52. SAY 'A'X || "I to juû wszystko, co trzeba byîo zrobiê!"
  53.