home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9201a.d64 / unscratch (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  47 lines
  1. 500 REM * UNSCRATCH BY CEM CAN *
  2. 530 :
  3. 1000 POKE53280,0:POKE53281,0:POKE53272,21:PRINT"[147]"+CHR$(8):CLR
  4. 1010 PRINT"[145][158]UNSCRATCH"
  5. 1020 PRINT"NAME DES GESCRATCHDEN FILES ":INPUTN$
  6. 1025 IFLEN(N$)=0ORLEN(N$)>16THEN1000
  7. 1026 PRINT"[158] DISKETTE EINLEGEN UND SPACE DRUECKEN [146]"
  8. 1027 GETA$:IFA$<>CHR$(32)THEN1027
  9. 1030 V=16:Q=32:F=256:T=18:S=1:W=0:D=0:Z$=CHR$(0):D$=RIGHT$(STR$(D),1)
  10. 1040 N$=LEFT$(N$,V):L=LEN(N$):IFRIGHT$(N$,1)<>"*"THEN1060
  11. 1050 L=L-1:N$=LEFT$(N$,L):W=1:GOTO1080
  12. 1060 IFL=VTHEN1080
  13. 1070 FORX=L+1TOV:N$=N$+CHR$(160):NEXT:L=V
  14. 1080 OPEN1,8,15,"I"+D$:GOSUB1330:OPEN2,8,2,"#":GOSUB1330
  15. 1090 PRINT#1,"U1:";2;D;T;S:GOSUB1330
  16. 1100 PRINT#1,"B-P:";2;0:GET#2,A$,B$
  17. 1110 TR=ASC(A$+Z$):SC=ASC(B$+Z$):H=2
  18. 1120 PRINT#1,"B-P:";2;H:GET#2,T$
  19. 1130 C=ASC(T$+Z$):IFC>0THEN1160
  20. 1140 GET#2,A$,B$:F$="":FORX=1TOV:GET#2,T$:F$=F$+T$:NEXT:IFF$=""THEN1180
  21. 1150 IFL=0ORN$=LEFT$(F$,L)THEN1210
  22. 1160 H=H+Q:IFH<FTHEN1120
  23. 1170 IFTR>0THENT=TR:S=SC:GOTO1090
  24. 1180 IFWTHENPRINT"[158] DIRECTORY-ENDE [146]":GOTO1315
  25. 1190 PRINT" SCRATCHED FILE NICHT GEFUNDEN "
  26. 1200 FORX=1TO5000:NEXT:GOTO1320
  27. 1210 A=ASC(A$+Z$):B=ASC(B$+Z$)
  28. 1220 PRINT"FILE BEI TRACK";A;"SECTOR";B;"GEFUNDEN"
  29. 1230 PRINT"ZURUECKHOLEN (J/N) ? J[157][157][157]";:INPUTX$
  30. 1240 IFX$="J"THEN1270
  31. 1245 IFX$="N"THENCLOSE2:CLOSE1:END
  32. 1250 IFWTHEN1160
  33. 1260 GOTO1320
  34. 1270 PRINT"1=SEQ / 2=PRG / 3=USR / 4=REL"
  35. 1280 INPUT"WELCHEN FILE-TYP ? 2[157][157][157]";P
  36. 1290 IFP<1ORP>4THEN"[145][145]":GOTO1250
  37. 1300 PRINT#1,"B-P:";2;H:PRINT#2,CHR$(P+128);:PRINT#1,"U2:";2;D;T;S:GOSUB1330:G=1
  38. 1310 PRINT" FILE UNSCRATCHED ":IFWTHEN1160
  39. 1315 PRINT"MEHR FILES ZURUCKHOLEN (J/N)   J[157][157][157]";
  40. 1316 INPUTX$:IFX$<>"J"THEN1350
  41. 1320 CLOSE2:CLOSE1:GOTO1000
  42. 1330 INPUT#1,E,M$,J,K:IFE=0THENRETURN
  43. 1340 PRINT" ERROR [146]:  ";E;M$;J;K
  44. 1350 CLOSE2:CLOSE1:IFG=0THENEND
  45. 1360 PRINT"[147] REBUILDING VALID BAM ON DISK "
  46. 1370 OPEN1,8,15,"V"+D$:CLOSE1:END
  47.