home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 February
/
64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_A.d64
/
file-tester
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
66 lines
0 dimmu%(35,20),ty$(7),na$(144):gosub4000
1 print"disk einlegen, return
2 [151]198,.:[146]198,1:[151]198,.
3 [129]i[178].[164]7:[135]ty$(i):[130]:[131]del,seq,prg,usr,rel,???,???,???
4 ep$[178][199](13)[170]"on
5 g$="von "+chr$(34)
10 print"[147]disk wird getestet - bitte warten
15 [159]15,8,15,"i0":[141]1000
17 [152]15,"m-w":[141]1000
20 [159]2,8,2,"#":[141]1000
25 [152]15,"u1:2 0 18 0":[141]1000
30 [141]2000:t[178]a:[141]2000:s[178]a
40 [152]15,"u1:2 0"t;s:[141]1000
45 [153]"lese directorytrack"t"cmd sektor"s"
50 dt=t:ds=s:gosub2000:t=a:gosub2000:s=a
55 forf=.to7
60 print#15,"b-p 2"2+32*f
65 gosub2000:ty=a:print" "ty$(aand7);
70 gosub2000:tf=a:gosub2000:sf=a:printtf;ep$tab(7)sf;ep$tab(7)"/"chr$(34);
80 fori=.to15:gosub2000:printa$;:na$(nr)=na$(nr)+a$:next:printchr$(34);
90 fori=19to27:gosub2000:next
92 gosub2000:l=a:gosub2000:l=l+a*256:printltab(34);
94 tt=tyand7:ifty>.andtt<4andtt>.thenprint"test":gosub3000:goto100
96 print"----
100 nr[178]nr[170]1:[130]:[139]t[167]40
102 [160]2:[160]15:[153]"anzahl file-fehler :"er
104 [153]"anzahl laengen-fehler :"el
105 [153]"verknuepfungsfehler :"vq
106 [153]"freie blocks :"664[171]bb
107 [153]" (gilt nur, wenn kein rel-dateien vor- handen sind)
108 end
1000 input#15,f1,f1$,f2,f3
1001 iff1<2thenreturn
1002 print"diskerror #"f1","f1$
1003 print"track"f2"sektor"f3
1004 end
2000 get#2,a$:ifa$=""thena$=chr$(.)
2002 a=asc(a$):return
2900 print:print" verknuepfungsfehler !!!":vq=vq+1:return
3000 eb=.
3002 eb=eb+1:print" nr"ebtab(9)"tr"tf"se"sf;tab(21);
3003 iftf=.ortf>35orsf>20thengosub2900:goto3012
3004 ifmu%(tf,sf)thenprint"auch schon benutzt":printtab(18)g$na$(mu%(tf,sf))
3005 ifmu%(tf,sf)thener=er+1:goto3008
3006 print"ok":mu%(tf,sf)=nr:bb=bb+1
3008 print#15,"u1:2 0"tf;sf
3010 gosub2000:tf=a:gosub2000:sf=a:iftfthen3002
3012 print" belegte blocks:"eb;
3014 ifeb<>lthenprint"!! nicht"l"[157] !!";:el=el+1
3016 print:print:print#15,"u1:2 0"dt;ds:return
4000 print"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
4002 [153]" (NULL)nss file-tester(NULL)
4004 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
4006 [153]"version 2.0 (neu) fuer c 64 und vc 1541
4008 print"programmiert von n. heusler, (c) nss 87
4009 [153]"am 1.1.1987 - 22:17 uhr":[153]"version 2: 13.2.1988, 19:47 uhr
4010 print"dieses programm testet, ob ein fehler
4011 [153]"onwegen des '@:' filenamens vorliegt, also
4012 print"[145]ob ein sektor von 2 programmen gleich-
4013 [153]"onzeitig belegt wird. ferner wird fest-
4014 print"[145]gestellt, ob im dir. ueberall die rich-
4015 [153]"ontige file-laenge eingetragen ist.
4016 print"achtung: relative dateien werden nicht
4017 [153]"ongetestet und koennen daher das ergebnisverfaelschen...
4018 print"kein datenverlust auf der testdisk !":return