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