<sr>** Czas letni, zimowy

<a>Grzegorz (Child) Jankowski

<txt>Jeûeli jesteô posiadaczem rozszerzenia pamiëci/karty turbo z
zegarem czasu rzeczywistego i juû Ci sië znudziîo ustawianie
poprawnej godziny i daty kilka razy w tygodniu (niektóre programy
potrafiâ zmieniê ustawienie zegara w sposób zupeînie dowolny i to
bez wiedzy uûytkownika), a nie uômiecha Ci sië dwa razy do roku
(zmiana czasu letni/zimowy) odblokowywanie, ustawianie wîaôciwej
godziny i blokowanie zapisu zegara (oczywiôcie jeûeli masz
szczëôcie i zworka blokujâca zapis zegara jest dostëpna zaraz po
otwarciu klapki chroniâcej rozszerzenie A1200; w przeciwnym razie
czeka Cië jeszcze dwukrotne zdjëcie i zaîoûenie rozszerzenia na
zîâcze za kaûdym razem, tzn. wiosnâ i jesieniâ, co ani karcie,
ani komputerowi nie przedîuûy zapewne ûycia), proponujë abyô za
pomocâ dowolnego edytora wpisaî zamieszczony poniûej skrypt Amiga
DOS-u i zapisaî go pod nazwâ, np. "addH", w katalogu C: oraz
dopisaî do "s:user-startup" linië:

<l>execute addH

<txt>lub samo:

<l>addH

<txt>(wtedy jednak plikowi "addH" trzeba ustawiê bit protekcji S).

Od tej pory "addH" bëdzie podczas kaûdego restartu Amigi,
uôwiadamiaî jej, ûe zegar na karcie póúni sië o godzinë i powinna
do odczytanego czasu dodaê 60 minut. Oczywiôcie gdy przyjdzie
pora cofniëcia czasu o 1h, naleûy po prostu linië wywoîujâcâ
"addH" wyremowaê:

<l>;execute addH

<txt>lub

<l>;addH

<txt>Jeûeli ktoô ma zegar ustawiony i zablokowany na czasie
letnim, moûe zmodyfikowaê skrypt tak, aby cofaî czas o godzinë. W
tym celu naleûy odpowiedniâ czëôê skryptu zmieniê na:

<l>if val $go EQ 0

	setenv go 24

	date yesterday

endif

eval $go - 1 >env:god

<txt>A oto skrypt "addH":

<l>^- date >env:qve

echo "$qve" len 8 >env:god

echo $god first 1 len 2 >env:go

if val $go EQ 23

	setenv go -1

	date tomorrow

endif

eval $go + 1 >env:god

echo "$qve" len 6 >env:go

echo $god$go >env:qve

date >nil: ? <env:qve

unsetenv go

unsetenv god

unsetenv qve

<txt>Sprawdzone pod systemem 3.0!


<sr>** LHA na LZX

<a>Piotr Grygiel

<txt>Poniûszy skrypt zmienia pliki zarchiwizowane programem LHA
na pliki w formacie programu LZX.

<l> ^-

.key ArchiwumLHA/A

.bra {

.ket }


; $VER: LHA-w-LZX 1.0 (26.06.1995) Piotr Grygiel 

; parametrem skryptu jest nazwa pliku z rozszerzeniem .LHA


set nazwaczasowa lha_w_lzx-$process

set katalogczasowy T:

failat 30


ECHO "[32mTworzë katalog tymczasowy...[31m" NOLINE

c:Makedir $katalogczasowy$nazwaczasowa

IF WARN

	C:Requestchoice >NIL: "Bîâd!!!""Nie mogë stworzyê katalogu roboczego!""No cóû..."

	SKIP koniec

ENDIF

ECHO "Skoïczyîem."

c:List >ENV:LZXab "{ArchiwumLHA}" lformat %M 


ECHO "[32mRozpakowujë archiwum LHA... [31m" NOLINE

c:LHA >NIL: -I -F -M -a -P-1 x "{ArchiwumLHA}" $katalogczasowy$nazwaczasowa/

IF WARN

	C:Requestchoice >NIL: "Bîâd!!!""Nie mogë rozpakowaê {ArchiwumLHA}""No cóû..."

	C:Delete $katalogczasowy$nazwaczasowa all force quiet

	SKIP koniec

ENDIF

ECHO "Skoïczyîem."


c:List >ENV:LZXab "{ArchiwumLHA}" lformat %M.lzx 

failat 20


ECHO "[32mTworzë archiwum LZX...      [31m" NOLINE

assign $nazwaczasowa: ""

cd $katalogczasowy$nazwaczasowa

c:LZX >NIL: -a -bi64 -e -r -x -X -F -Y -P-1 -3 a  "$nazwaczasowa:$LZXab" #?

ECHO "Skoïczyîem."

cd "$nazwaczasowa:"

c:Assign $nazwaczasowa:

ECHO "[32mKasujë katalog tymczasowy...[31m" NOLINE

c:Delete $katalogczasowy$nazwaczasowa all force quiet

ECHO "Skoïczyîem."


c:List >ENV:LHAa lformat "%-24N %7L bajtów" "{ArchiwumLHA}"

c:List >ENV:LZXa lformat "%-24N %7L bajtów" "$LZXab"

 c:List >ENV:LHAaw lformat %L "{ArchiwumLHA}"

 c:List >ENV:LZXaw lformat %L "$LZXab"


  c:List >ENV:komentarz lformat %C "{ArchiwumLHA}"

  c:Filenote "$LZXab" "$komentarz"


EVAL >ENV:wynik $LHAaw-$LZXaw

EVAL >ENV:procent ($LHAaw-$LZXaw)*100/$LHAaw

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"


IF $Pytanie eq 0

 SKIP koniec

ENDIF


IF $Pytanie eq 1 

 failat 11

 ECHO "[32mSprawdzam archiwum LZX...   [31m" NOLINE

 C:LZX -q -X0 t "$LZXab"

  IF WARN

        C:Requestchoice "Bîâd!""Archiwum $LZXab ma bîëdy!""Skasuj"

        C:Delete "$LZXab" quiet

        SKIP koniec

  ENDIF

 ECHO "Bezbîëdne."

ENDIF


IF $Pytanie eq 2 

 failat 11

 ECHO "[32mSprawdzam archiwum LZX...   [31m" NOLINE

 C:LZX -q -X0 t "$LZXab"

  IF WARN

        C:Requestchoice "Bîâd!""Archiwum $LZXab ma bîëdy!""Skasuj"

        C:Delete "$LZXab" quiet

        SKIP koniec

  ELSE

        ECHO "Bezbîëdne."

        C:Delete "{ArchiwumLHA}" quiet

        SKIP koniec

  ENDIF

ENDIF


LAB koniec

ECHO "[32mKasujë wszystkie ômiecie... [31m" NOLINE

failat 10

UNSET katalogczasowy

UNSET nazwaczasowa

UNSETENV Pytanie

UNSETENV LHAa

UNSETENV LZXa

UNSETENV LHAaw

UNSETENV LZXaw

UNSETENV LZXab

UNSETENV wynik

UNSETENV procent

UNSETENV komentarz

ECHO "Skoïczyîem."

ECHO " "