home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / ma_1995 / 09 / amikuf.txt < prev    next >
Text File  |  1997-04-07  |  5KB  |  300 lines
  1. <sr>** Czas letni, zimowy
  2.  
  3. <a>Grzegorz (Child) Jankowski
  4.  
  5. <txt>Jeûeli jesteô posiadaczem rozszerzenia pamiëci/karty turbo z
  6. zegarem czasu rzeczywistego i juû Ci sië znudziîo ustawianie
  7. poprawnej godziny i daty kilka razy w tygodniu (niektóre programy
  8. potrafiâ zmieniê ustawienie zegara w sposób zupeînie dowolny i to
  9. bez wiedzy uûytkownika), a nie uômiecha Ci sië dwa razy do roku
  10. (zmiana czasu letni/zimowy) odblokowywanie, ustawianie wîaôciwej
  11. godziny i blokowanie zapisu zegara (oczywiôcie jeûeli masz
  12. szczëôcie i zworka blokujâca zapis zegara jest dostëpna zaraz po
  13. otwarciu klapki chroniâcej rozszerzenie A1200; w przeciwnym razie
  14. czeka Cië jeszcze dwukrotne zdjëcie i zaîoûenie rozszerzenia na
  15. zîâcze za kaûdym razem, tzn. wiosnâ i jesieniâ, co ani karcie,
  16. ani komputerowi nie przedîuûy zapewne ûycia), proponujë abyô za
  17. pomocâ dowolnego edytora wpisaî zamieszczony poniûej skrypt Amiga
  18. DOS-u i zapisaî go pod nazwâ, np. "addH", w katalogu C: oraz
  19. dopisaî do "s:user-startup" linië:
  20.  
  21. <l>execute addH
  22.  
  23. <txt>lub samo:
  24.  
  25. <l>addH
  26.  
  27. <txt>(wtedy jednak plikowi "addH" trzeba ustawiê bit protekcji S).
  28.  
  29. Od tej pory "addH" bëdzie podczas kaûdego restartu Amigi,
  30. uôwiadamiaî jej, ûe zegar na karcie póúni sië o godzinë i powinna
  31. do odczytanego czasu dodaê 60 minut. Oczywiôcie gdy przyjdzie
  32. pora cofniëcia czasu o 1h, naleûy po prostu linië wywoîujâcâ
  33. "addH" wyremowaê:
  34.  
  35. <l>;execute addH
  36.  
  37. <txt>lub
  38.  
  39. <l>;addH
  40.  
  41. <txt>Jeûeli ktoô ma zegar ustawiony i zablokowany na czasie
  42. letnim, moûe zmodyfikowaê skrypt tak, aby cofaî czas o godzinë. W
  43. tym celu naleûy odpowiedniâ czëôê skryptu zmieniê na:
  44.  
  45. <l>if val $go EQ 0
  46.  
  47.     setenv go 24
  48.  
  49.     date yesterday
  50.  
  51. endif
  52.  
  53. eval $go - 1 >env:god
  54.  
  55. <txt>A oto skrypt "addH":
  56.  
  57. <l>^- date >env:qve
  58.  
  59. echo "$qve" len 8 >env:god
  60.  
  61. echo $god first 1 len 2 >env:go
  62.  
  63. if val $go EQ 23
  64.  
  65.     setenv go -1
  66.  
  67.     date tomorrow
  68.  
  69. endif
  70.  
  71. eval $go + 1 >env:god
  72.  
  73. echo "$qve" len 6 >env:go
  74.  
  75. echo $god$go >env:qve
  76.  
  77. date >nil: ? <env:qve
  78.  
  79. unsetenv go
  80.  
  81. unsetenv god
  82.  
  83. unsetenv qve
  84.  
  85. <txt>Sprawdzone pod systemem 3.0!
  86.  
  87.  
  88. <sr>** LHA na LZX
  89.  
  90. <a>Piotr Grygiel
  91.  
  92. <txt>Poniûszy skrypt zmienia pliki zarchiwizowane programem LHA
  93. na pliki w formacie programu LZX.
  94.  
  95. <l> ^-
  96.  
  97. .key ArchiwumLHA/A
  98.  
  99. .bra {
  100.  
  101. .ket }
  102.  
  103.  
  104.  
  105. ; $VER: LHA-w-LZX 1.0 (26.06.1995) Piotr Grygiel 
  106.  
  107. ; parametrem skryptu jest nazwa pliku z rozszerzeniem .LHA
  108.  
  109.  
  110.  
  111. set nazwaczasowa lha_w_lzx-$process
  112.  
  113. set katalogczasowy T:
  114.  
  115. failat 30
  116.  
  117.  
  118.  
  119. ECHO "Tworzë katalog tymczasowy..." NOLINE
  120.  
  121. c:Makedir $katalogczasowy$nazwaczasowa
  122.  
  123. IF WARN
  124.  
  125.     C:Requestchoice >NIL: "Bîâd!!!""Nie mogë stworzyê katalogu roboczego!""No cóû..."
  126.  
  127.     SKIP koniec
  128.  
  129. ENDIF
  130.  
  131. ECHO "Skoïczyîem."
  132.  
  133. c:List >ENV:LZXab "{ArchiwumLHA}" lformat %M 
  134.  
  135.  
  136.  
  137. ECHO "Rozpakowujë archiwum LHA... " NOLINE
  138.  
  139. c:LHA >NIL: -I -F -M -a -P-1 x "{ArchiwumLHA}" $katalogczasowy$nazwaczasowa/
  140.  
  141. IF WARN
  142.  
  143.     C:Requestchoice >NIL: "Bîâd!!!""Nie mogë rozpakowaê {ArchiwumLHA}""No cóû..."
  144.  
  145.     C:Delete $katalogczasowy$nazwaczasowa all force quiet
  146.  
  147.     SKIP koniec
  148.  
  149. ENDIF
  150.  
  151. ECHO "Skoïczyîem."
  152.  
  153.  
  154.  
  155. c:List >ENV:LZXab "{ArchiwumLHA}" lformat %M.lzx 
  156.  
  157. failat 20
  158.  
  159.  
  160.  
  161. ECHO "Tworzë archiwum LZX...      " NOLINE
  162.  
  163. assign $nazwaczasowa: ""
  164.  
  165. cd $katalogczasowy$nazwaczasowa
  166.  
  167. c:LZX >NIL: -a -bi64 -e -r -x -X -F -Y -P-1 -3 a  "$nazwaczasowa:$LZXab" #?
  168.  
  169. ECHO "Skoïczyîem."
  170.  
  171. cd "$nazwaczasowa:"
  172.  
  173. c:Assign $nazwaczasowa:
  174.  
  175. ECHO "Kasujë katalog tymczasowy..." NOLINE
  176.  
  177. c:Delete $katalogczasowy$nazwaczasowa all force quiet
  178.  
  179. ECHO "Skoïczyîem."
  180.  
  181.  
  182.  
  183. c:List >ENV:LHAa lformat "%-24N %7L bajtów" "{ArchiwumLHA}"
  184.  
  185. c:List >ENV:LZXa lformat "%-24N %7L bajtów" "$LZXab"
  186.  
  187.  c:List >ENV:LHAaw lformat %L "{ArchiwumLHA}"
  188.  
  189.  c:List >ENV:LZXaw lformat %L "$LZXab"
  190.  
  191.  
  192.  
  193.   c:List >ENV:komentarz lformat %C "{ArchiwumLHA}"
  194.  
  195.   c:Filenote "$LZXab" "$komentarz"
  196.  
  197.  
  198.  
  199. EVAL >ENV:wynik $LHAaw-$LZXaw
  200.  
  201. EVAL >ENV:procent ($LHAaw-$LZXaw)*100/$LHAaw
  202.  
  203. C:Requestchoice >ENV:Pytanie "Porównanie...""$LHAa*n$LZXa*nZaoszczëdziîeô: $wynik bajtów, $procent %*n*nCzy sprawdziê LZX archiwum?""Tak""Tak i skasuj stare""Nie"
  204.  
  205.  
  206.  
  207. IF $Pytanie eq 0
  208.  
  209.  SKIP koniec
  210.  
  211. ENDIF
  212.  
  213.  
  214.  
  215. IF $Pytanie eq 1 
  216.  
  217.  failat 11
  218.  
  219.  ECHO "Sprawdzam archiwum LZX...   " NOLINE
  220.  
  221.  C:LZX -q -X0 t "$LZXab"
  222.  
  223.   IF WARN
  224.  
  225.         C:Requestchoice "Bîâd!""Archiwum $LZXab ma bîëdy!""Skasuj"
  226.  
  227.         C:Delete "$LZXab" quiet
  228.  
  229.         SKIP koniec
  230.  
  231.   ENDIF
  232.  
  233.  ECHO "Bezbîëdne."
  234.  
  235. ENDIF
  236.  
  237.  
  238.  
  239. IF $Pytanie eq 2 
  240.  
  241.  failat 11
  242.  
  243.  ECHO "Sprawdzam archiwum LZX...   " NOLINE
  244.  
  245.  C:LZX -q -X0 t "$LZXab"
  246.  
  247.   IF WARN
  248.  
  249.         C:Requestchoice "Bîâd!""Archiwum $LZXab ma bîëdy!""Skasuj"
  250.  
  251.         C:Delete "$LZXab" quiet
  252.  
  253.         SKIP koniec
  254.  
  255.   ELSE
  256.  
  257.         ECHO "Bezbîëdne."
  258.  
  259.         C:Delete "{ArchiwumLHA}" quiet
  260.  
  261.         SKIP koniec
  262.  
  263.   ENDIF
  264.  
  265. ENDIF
  266.  
  267.  
  268.  
  269. LAB koniec
  270.  
  271. ECHO "Kasujë wszystkie ômiecie... " NOLINE
  272.  
  273. failat 10
  274.  
  275. UNSET katalogczasowy
  276.  
  277. UNSET nazwaczasowa
  278.  
  279. UNSETENV Pytanie
  280.  
  281. UNSETENV LHAa
  282.  
  283. UNSETENV LZXa
  284.  
  285. UNSETENV LHAaw
  286.  
  287. UNSETENV LZXaw
  288.  
  289. UNSETENV LZXab
  290.  
  291. UNSETENV wynik
  292.  
  293. UNSETENV procent
  294.  
  295. UNSETENV komentarz
  296.  
  297. ECHO "Skoïczyîem."
  298.  
  299. ECHO " "
  300.