10 REM DISK-RECYCLING===========64
20 REM (P) COMMODORE DISC       ==
30 REM ===========================
40 REM (C) BY MICHAEL SCHUMACK  ==
50 REM                          ==
60 REM                          ==
70 REM VERSION 2.0  40Z/ASCII   ==
80 REM C 64 + FLOPPY 1541       ==
90 REM ===========================
95 GOSUB 60000
100 POKE53280,0:POKE53281,0:PRINTCY$CHR$(142)CHR$(8)
110 POKE53280,0:POKE53281,0:PRINTCY$
120 FOR I=0TO101:READ X:POKE 49152+I,X:NEXT
130 DATA169,1,162,205,160,235,32,189,255,169,8,133,186,169,96,133,185,32,213
140 DATA243,165,186,32,180,255,165,185,32,150,255,169,0,133,144,160,3,132,251
150 DATA32,165,255,133,252,164,144,208,52,32,165,255,164,144,208,45,164,251
160 DATA136,208,233,166,252,32,205,189,169,32,32,210,255,32,165,255,166,144
170 DATA208,23,170,240,6,32,210,255,24,144,240,169,13,32,210,255,32,225,255
180 DATA240,4,160,2,208,193,76,66,246
190 PRINTCL$LEFT$(QR$,5)"            D.C.A.R."
191 PRINT"       DISK-CHECKING AND REPAIRING"
200 PRINTC4$C4$"REPARIERT IHRE KAPUTTEN DISKETTEN ! "
210 PRINTC4$"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
220 PRINT"1 - ANFANGS- UND ENDTRACK EINGEBEN"
230 PRINT"2 - STANDARDEINSTELLUNG TR.1-35"
240 PRINT"3 - DOS-BEFEHLE"
250 PRINT"4 - DIRECTORY
260 [153]"5 - ENDE"
270 [153]"LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN"
280 [161]A$:[139]A$[178]""[167]280
290 [139] A$[178]"1" [167] [137]350
300 [139] A$[178]"2" [167] AU[178]1:EU[178]35:[137]370
310 [139] A$[178]"3" [167] [137]660
320 [139] A$[178]"4" [167] [153]CL$:[158]49152:[141]1380:[137]190
330 [139] A$[178]"5" [167] [128]
340 [137]280
350 [153]C4$C4$"ANFANGS-TRACK:"C3$C3$C3$"1"C1$;C1$C1$;:[133]AU
360 [153]C4$C4$"END-TRACK:"[200](QR$,4)"35"[200](QL$,4);:[133]EU
370 [153]RN$[200](QD$,4)[200](QR$,10)"DEFEKTE DISK EINLEGEN"RF$
380 [161]A$:[139]A$[178]""[167][137]380
390 [153]CL$"TRACK    SECTOR":[153]"FEHLERMELDUNG ":[153]:[153]:[153]"ABBRUCH MIT TASTE '_'"
400 [143] KANAELE DEFINIEREN
410 [159]1,8,15,"#"  :[143] FEHLERKANAL
420 [159]2,8,2,"#"   :[143] ARBEITSKANAL
430 [131]1,17,20,18,24,18,25,30,17,31,35,16,36,40,15
440 [143] AT/AS-ET/ES DEFINIEREN
450 [135] AT:[135] ET:AS[178]1:[135] ES
455 [139] EU[177]40 [167] 620
460 [139] AU[177][178]ET [167]440
470 [139] AU[177]AT [167] AT[178]AU
480 [129] KT[178]AT [164] ET
490 [129] KS[178]AS [164] ES
500 [152]1,"B-R";2;0;KT;KS
510 [132]1,A,B$,C,D
520 [139] EU[179]KT [167]620
525 [139] EU[177]40 [167] [137] 620
530 [153]HE$C4$[200](QR$,13);A;B$;HE$[200](QR$,5)"   "C1$C1$C1$;KT;
531 [153]HE$[200](QR$,15)"   "C1$C1$C1$;KS
540 [139] A[179][177]0 [167] [141]600
550 [161]Q$:[139]Q$[178]"_"[167] [137]620
560 [130] KS
570 [130] KT
580 [139]ET[179]EU[167]450
590 [137]620
600 [152]1,"B-A";0;KT;KS
610 [142]
620 [152]1,"I"
630 [153]RN$[200](QD$,8)C3$C3$"DRUECKEN SIE EINE TASTE"RF$
640 [161]A$:[139]A$[178]""[167]640
650 [138]
660 [153]CL$C4$C4$C4$"1 - SCRATCH"
670 [153]"2 - RENAME"
680 [153]"3 - SOFT-FORMAT"
690 [153]"4 - HARD-FORMAT"
700 [153]"5 - VALIDATE (VORSICHT!)
710 PRINT"6 - INITIALISIEREN
720 [153]:[153]"LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN":[153]
730 [161]A$:[139]A$[178]""[167]730
740 [139] A$[178]"1" [167] [137]810
750 [139] A$[178]"2" [167] [137]830
760 [139] A$[178]"3" [167] [137]860
770 [139] A$[178]"4" [167] [137]1320
780 [139] A$[178]"5" [167] [137]1340
790 [139] A$[178]"6" [167] [137]1350
800 [137]730
810 [133]"NAME: ";A$
820 [159]1,8,15,"S:"[170]A$:[141]1360:[160]1:[137]190
830 [133]"ALTER NAME: ";A$
840 [133]"NEUER NAME: ";B$
850 [159]1,8,15,"R:"[170]A$[170]"="[170]B$:[141]1360:[160]1:[137]190
860 [133]"DISK2,8,2,"#"   :"AA$" ARBEITSKANAL
870 DATA1,17,20,18,24,18,25,30,17,31,35,16,36,40,15
880 REM AT/AS-ET/ES DEFINIEREN
890 READ AT:READ ET:AS=1:READ ES
900 IF AU>=ET THEN440
910 IF AU>AT THEN AT=AU
920 FOR KT=AT TO ET
930 FOR KS=AS TO ES
940 PRINT#1,"B-R";2;0;KT;KS
950 INPUT#1,A,B$,C,D
960 IF EU<KT THEN620
970 PRINTHE$C4$LEFT$(QR$,13);A;B$;HE$LEFT$(QR$,5)"   "C1$C1$C1$;KT;
971 PRINTHE$LEFT$(QR$,15)"   "C1$C1$C1$;KS
980 IF A<>0 THEN GOSUB600
990 GETQ$:IFQ$="_"THEN GOTO620
1000 NEXT KS
1010 NEXT KT
1020 IFET<EUTHEN450
1030 GOTO620
1040 PRINT#1,"B-A";0;KT;KS
1050 RETURN
1060 PRINT#1,"I"
1070 PRINTRN$LEFT$(QD$,8)C3$C3$"DRUECKEN SIE EINE TASTE"RF$
1080 GETA$:IFA$=""THEN640
1090 RUN
1100 PRINTCL$C4$C4$C4$"1 - SCRATCH"
1110 PRINT"2 - RENAME"
1120 PRINT"3 - SOFT-FORMAT"
1130 PRINT"4 - HARD-FORMAT"
1140 PRINT"5 - VALIDATE (VORSICHT!)
1150 [153]"6 - INITIALISIEREN
1160 PRINT:PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":PRINT
1170 GETA$:IFA$=""THEN730
1180 IF A$="1" THEN GOTO810
1190 IF A$="2" THEN GOTO830
1200 IF A$="3" THEN GOTO860
1210 IF A$="4" THEN GOTO1320
1220 IF A$="5" THEN GOTO1340
1230 IF A$="6" THEN GOTO1350
1240 GOTO730
1250 INPUT"NAME: ";A$
1260 OPEN1,8,15,"S:"+A$:GOSUB1360:CLOSE1:GOTO190
1270 INPUT"ALTER NAME: ";A$
1280 INPUT"NEUER NAME: ";B$
1290 OPEN1,8,15,"R:"+A$+"="+B$:GOSUB1360:CLOSE1:GOTO190
1300 INPUT"DISKETTENNAME: ";A$
1310 OPEN1,8,15,"N:"+A$:GOSUB1360:CLOSE1:GOTO190
1320 INPUT"DISKETTENNAME: ";A$
1330 OPEN1,8,15,"N:"+A$+",00"GOSUB1360:CLOSE1:GOTO190
1340 OPEN1,8,15,"V":GOSUB1360:CLOSE1:GOTO190
1350 OPEN1,8,15,"I":GOSUB1360:CLOSE1:GOTO190
1360 INPUT#1,A,B$,C,D
1370 PRINTC4$C4$;A;B$;C;D
1380 PRINTC4$C4$RN$"TASTE DRUECKEN"RF$
1390 GETA$:IFA$=""THEN1390
1400 RETURN
60000 REM NACHSPANN ==============
60010 REM FARBCODES/STEUERCODES
60020 C4$=CHR$(017):RN$=CHR$(018)
60030 HE$=CHR$(019):C3$=CHR$(029)
60040 AA$=CHR$(143):RF$=CHR$(146)
60050 CL$=CHR$(147):C1$=CHR$(157)
60060 CY$=CHR$(159)
60070 REM ZEICHENFOLGEN
60080 FOR Q=1 TO 40
60090 QD$=QD$+C4$:QR$=QR$+C3$
60100 QL$=QL$+C1$
60110 NEXT Q
60120 RETURN