home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902c.d64 / file-tester (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.