500 REM * UNSCRATCH BY CEM CAN *
530 :
1000 POKE53280,0:POKE53281,0:POKE53272,21:PRINT"[147]"+CHR$(8):CLR
1010 PRINT"[145][158]UNSCRATCH"
1020 PRINT"NAME DES GESCRATCHDEN FILES ":INPUTN$
1025 IFLEN(N$)=0ORLEN(N$)>16THEN1000
1026 PRINT"[158] DISKETTE EINLEGEN UND SPACE DRUECKEN [146]"
1027 GETA$:IFA$<>CHR$(32)THEN1027
1030 V=16:Q=32:F=256:T=18:S=1:W=0:D=0:Z$=CHR$(0):D$=RIGHT$(STR$(D),1)
1040 N$=LEFT$(N$,V):L=LEN(N$):IFRIGHT$(N$,1)<>"*"THEN1060
1050 L=L-1:N$=LEFT$(N$,L):W=1:GOTO1080
1060 IFL=VTHEN1080
1070 FORX=L+1TOV:N$=N$+CHR$(160):NEXT:L=V
1080 OPEN1,8,15,"I"+D$:GOSUB1330:OPEN2,8,2,"#":GOSUB1330
1090 PRINT#1,"U1:";2;D;T;S:GOSUB1330
1100 PRINT#1,"B-P:";2;0:GET#2,A$,B$
1110 TR=ASC(A$+Z$):SC=ASC(B$+Z$):H=2
1120 PRINT#1,"B-P:";2;H:GET#2,T$
1130 C=ASC(T$+Z$):IFC>0THEN1160
1140 GET#2,A$,B$:F$="":FORX=1TOV:GET#2,T$:F$=F$+T$:NEXT:IFF$=""THEN1180
1150 IFL=0ORN$=LEFT$(F$,L)THEN1210
1160 H=H+Q:IFH<FTHEN1120
1170 IFTR>0THENT=TR:S=SC:GOTO1090
1180 IFWTHENPRINT"[158] DIRECTORY-ENDE [146]":GOTO1315
1190 PRINT" SCRATCHED FILE NICHT GEFUNDEN "
1200 FORX=1TO5000:NEXT:GOTO1320
1210 A=ASC(A$+Z$):B=ASC(B$+Z$)
1220 PRINT"FILE BEI TRACK";A;"SECTOR";B;"GEFUNDEN"
1230 PRINT"ZURUECKHOLEN (J/N) ? J[157][157][157]";:INPUTX$
1240 IFX$="J"THEN1270
1245 IFX$="N"THENCLOSE2:CLOSE1:END
1250 IFWTHEN1160
1260 GOTO1320
1270 PRINT"1=SEQ / 2=PRG / 3=USR / 4=REL"
1280 INPUT"WELCHEN FILE-TYP ? 2[157][157][157]";P
1290 IFP<1ORP>4THEN"[145][145]":GOTO1250
1300 PRINT#1,"B-P:";2;H:PRINT#2,CHR$(P+128);:PRINT#1,"U2:";2;D;T;S:GOSUB1330:G=1
1310 PRINT" FILE UNSCRATCHED ":IFWTHEN1160
1315 PRINT"MEHR FILES ZURUCKHOLEN (J/N)   J[157][157][157]";
1316 INPUTX$:IFX$<>"J"THEN1350
1320 CLOSE2:CLOSE1:GOTO1000
1330 INPUT#1,E,M$,J,K:IFE=0THENRETURN
1340 PRINT" ERROR [146]:  ";E;M$;J;K
1350 CLOSE2:CLOSE1:IFG=0THENEND
1360 PRINT"[147] REBUILDING VALID BAM ON DISK "
1370 OPEN1,8,15,"V"+D$:CLOSE1:END