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