Š‹‹O d UNERASÅBUFOÒSETDEÎRSECTOÒWSECTOÒLOCKSEÃUNLOCËVTOC¤DIR¤XCHG¤XCHNG¤ÑDANÁDENSITÙDIÒSEKTOÒÉPLIËSIZÅTMP±TMP²TMP³LOOÐÁSTAÔLENGTÈLASÔTMÐÓTEMÐCH€€€ €  › | |› | WERYFIKATOR DYSKOWY |› | |›| autor: L. Pasternak |›| |››((Inicjalizacja procedur maszynowych›( + ( Zaczekaj chwile ...6€-@n6-A$6‚-A6'6ƒ-A936„-AB?6…-AEK6†-AHn‡;AD,ˆ;A$,Š;@,(-‹-@@"Œ)6Š7‹<‹,.>:Œ,- ‹)66104,104,104,72,74,74,133,208,104,41,3,133,209,96›2%‹-A6A‘"Œ!‹Œ% ‹7Wywolanie polskich liter›8 A <nn76,43,6,76,126,6,76,122,6,76,177,6,76,207,6,169,4,141,5,3,169,0,141,4,3,169,83,141,2,3,169,4,32,86,6,169›>mm0,141,9,3,76,89,228,32,15,6,48,30,173,0,4,162,192,41,32,208,9,162,0,173,0,4,48,2,162,128,160,1,138,16,7›@nn160,0,10,16,2,160,3,132,208,169,0,133,209,104,96,141,8,3,169,49,141,0,3,169,128,174,2,3,224,80,240,5,224›Bll87,240,1,74,141,3,3,169,224,141,6,3,169,1,141,1,3,96,160,80,208,2,160,82,104,169,0,162,4,142,5,3,140,2›Dnn3,141,4,3,104,141,11,3,104,141,10,3,104,104,74,74,169,0,42,141,9,3,74,106,73,128,32,86,6,32,89,228,169,0›Fnn133,209,132,208,96,104,104,133,209,104,133,208,32,232,6,73,255,170,104,133,209,104,133,208,152,24,105,10›Hnn168,138,49,208,145,208,96,104,104,133,209,104,133,208,32,232,6,152,24,105,10,168,104,133,209,104,133,208›Jgg17,208,144,228,165,208,41,7,170,165,209,160,5,6,208,42,136,208,250,168,169,0,56,106,202,16,252,96›c))Ustalenie gestosci zapisu dyskietki›dh >:A%,"-@@; WERYFIKATOR DYSKOWYM-@@h Po w{oeniu dyskietkin?  przeznaczonej? $ do weryfikacji nacinij klawisz ...s A x 6-?:‚,}EF:A,!A' ? Wystpi{ b{d numer F:A,B E66-F:A,6’-A%*"@66’-AS‚bbDENSITY=0 - gestosc pojedyncza, DENSITY=1 - zwiekszona gestosc, DENSITY=3 - gestosc podwojna›‹""Wczytanie katalogu dyskowego›Œ' ' Wczytuj katalog dyskowy ...–QŽ-@%6-Aa%Ž26-?:ƒ<<,GF:A,!A'Q A`›Q‹-A'36ˆ7B:ˆ,%@,.>:F:%‹,,7 ‹; ŽG6‘-Q Ac *' B{d odczytu katalogu dysku ...*¢,,Procedura odzyskania skasowanego pliku›£€ A¥b >:A%,"-@@A Dysk jest weryfikowany ...D G V6-F:A,b6’-A%§"@6’-ASª8‹-AC46‡7B:‡,%@,.>:AU,8 ‹®**Dane do nowej mapy bitowej dyskietki›¯112,0,47,195,0,1,2,0,0,195,0,0,2,15,0,0,255,0›³))Utworzenie nowej mapy bitowej dysku›´N #Au6“-@%6”-@16•-A9N–-@6@¾G"—6‡7“<“,.>:—,#6“-“%@'"—56‡7”<”,.>:—,C6”-”%@G"—Ã#6‡7•<•,.>:—,6•-•%@# –Èc#6‡7A<A,.>:A',C6‡7@W<@W,.>:A',c6‡7@V<@V,.>:,ÍO"@/6‡7@<@,.>:@,O6‡7@<@,.>:AB,Ñ Poczatek weryfikacji pliku›ÒG16˜-@:ˆ7‘$@%@<‘$@%@,,=6™-G A ÓDyskietke zweryfikowano›Ô‘ @d AÕc‹-%A(%AU'‹+ ‹5 A8 V Czy nastpna dyskietka ?` Ac%ÖX˜"6‘-@d% AXSTAT=0 oznacza koniec plikow w katalogu dyskowym›Øm˜"@g9 %Plik otwarty do zapisu. Kasuj go ...m6ˆ7‘$@%@<‘$@%@,.>:A(,ÚwI Plik ˆ7‘$@%@<‘$@%@, jest nieaktywny !W6‘-‘%@a AwPlik jest skasowany›Ü:0(+˜"@f)˜"@)˜"@˜)˜"@5,: Aå//Ustalenie numeru pierwszego sektora pliku›æcc6-@:ˆ7‘$@%@<‘$@%@,,%AV$@:ˆ7‘$@%@<‘$@%@,,ë1'+!A$)+@*!A ,,1 A€ð?? Weryfikuj plik ˆ7‘$@%@<‘$@%@,ú/6-?:ƒ<<,%F:A,!A'/ A%W6™-™%@$6-?:C:Š,:A(,'™ @6‘-‘%@' A!/6-?:ƒ<š<,%F:A,!A'/ A%"R, $Z{a kontynuacja zbioru. Plik skracamB%’%@R%’‘$@&/6-?:„<š<,%F:A,!A'/ A%'6™-™&@ A(76-?:…<:@:‡7›<›,,&@,? A…*_6‡7›<›,.>:AU,U6‡7›%@<›%@,.>:@:‡7›%@<›%@,,&@,_ A…+22Zabezpieczenie sektora w bitowej mapie dysku›,])6œ-F:A ,$AV%F:%’%@,96-?:…<:@:‡7›<›,,&@,? A2U6‡7›<›,.>:AU,U6‡7›%@<›%@,.>:@:‡7›%@<›%@,,&@,3% 6š-6-œ"% A6/6-?:ƒ<<,%F:A,!A'/ A%@ A`LLZapamietanie dlugosci pliku i przejscie do weryfikacji kolejnego pliku›w>6ˆ7‘$@%@<‘$@%@,.>:™&P:™'AV,,w6ˆ7‘$@%@<‘$@%@,.>:P:™'AV,,š6‘-‘%@ AóOdkasowanie pliku›ô'  Pliki skasowane:'6-þs7@:ˆ7‘$@%@<‘$@%@,,"A(g ‘> ˆ7‘$@%@<‘$@%@,s6-@A7@:ˆ7‘$@%@<‘$@%@,,"A A96‘-‘%@ AV"/ Brak skasowanych plikw ...;6‘-O‹-@AS ‹V$6"@6 !Podaj numer pliku do odzyskania: "F:Ad,"AU" AAF:Ad,"@(9F:Ad,"@*AdAU66‘-9$ ‘0*+‘ )‘!@c,'6‘-*$:F76ˆ7‘$@%@<‘$@%@,.>:@f,C6‘-F$»99Procedura pytania o weryfikacje nastepnej dyskietki›¼AdAUÆ"F:Ad,"AU" AÐ^+F:Ad,"@E)F:Ad,"@=AdAU@$^Wartosc 45 oznacza litere T›Ú(AdAU" >:A%,%(ƒDDCzekanie na nacisniecie dowolnego klawisza, ESC konczy program›„AdAUŽ"F:Ad,"AU" A ˜-F:Ad,"@(*AdAU-¢AdAU$ç++Zapis na dyskietce katalogu dyskowego›èiŽ-@%6-Aa%Ž9‹-@A(e%‹&@@:ˆ7Ž$A(%‹<Ž$A(%‹,,i ‹ò/6-?:„<<,%F:A,!A'/ A%üG Ž‹-@A(C%‹&@@:‡7‹%@<‹%@,,G ‹Zapis bitowej mapy dysku›""@"6-?:„<A$<,"F:A,!A'" A%a‹-@A/%‹&@@:‡7‹<‹,,3 ‹G‹-@@(]%@™%‹a ‹6-?:„<A`<,"F:A,!A'" A%1 . # Dyskietka jest zweryfikowana !!!1$ÏGenerator polskich liter›Ð$$6ž-+F:A,&@,$AVÚ8-A#*ž%F:BsD%,. 8#A"ä+"——"6@(AVž'AV+$î;-@"Ÿ-ž%—$@%Ÿ1 ; A ˜##65,0,24,60,102,102,126,102,12›¢!!67,12,60,102,96,96,102,60,0›¬68,0,0,60,102,126,96,60,6›¶""69,0,126,96,124,96,96,126,12›À!!70,12,24,126,12,24,48,126,0›Ê 71,12,24,0,126,12,48,126,0›Ô""76,0,96,120,112,224,96,126,0›Þ""77,12,24,0,124,102,102,102,0›è%%78,24,102,118,126,126,110,102,0›ò##79,12,60,102,102,102,102,60,0›ü 80,12,24,0,60,102,102,60,0› 81,0,0,60,6,62,102,62,12› 83,12,60,96,60,6,6,60,0› 86,12,24,0,60,96,96,60,0›$ 87,12,24,62,96,60,6,124,0›. 88,0,24,0,126,12,48,126,0›8 90,24,0,126,12,24,48,126,0›B 123,0,56,24,28,56,24,60,0›L -1›€ D:VERDISK.BAS