home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 1 / Dimension_64_Nr.01_19xx_-_de_Side_A.d64 / def.sekt.mark. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  895b  |  34 lines
  1. 30 print"[147]"
  2. 35 print" --- markieren  defekter  sektoren ---"
  3. 36 print" ---           in der bam          ---"
  4. 37 input"def.  diskette einlegen und return";a$
  5. 38 print"     bitte geben sie nacheinander  "
  6. 39 print"die defekten spur- und sektornummern an:"
  7. 45 dimq (255)
  8. 47 goto 80
  9. 50 sp=0:se=0
  10. 55 input"spur, sektor (0,0 = ende!)";sp,se:if sp=0 and se=0 then return
  11. 60 if (sp > 35 or sp<1) or (se<0  or se > 20) then print"ungueltig !":goto50
  12. 70 sp = sp * 4:by=int(se/8):bi=se-8*by:bi=2^bi :sp=sp+by+1
  13. 75 q(sp)=q(sp) and (255-bi):return
  14. 80 open15,8,15:open5,8,5,"#":print#15,"u1:5,"0,18,0
  15. 140 fori=0to255
  16. 150 get#5,a$:q(i)=asc(a$+chr$(0))
  17. 170 next
  18. 175 close5
  19. 187 gosub 50:if sp=0 and sp=0 then 200
  20. 199 goto 187
  21. 200 open2,8,2,"#"
  22. 210 fori=2to255
  23. 212 print#15,"b-p:"2,i
  24. 214 print#2,chr$(q(i));
  25. 216 next
  26. 220 print#15,"u2:2,"0,18,0
  27. 230 close2
  28. 240 print"[158]erledigt!  "
  29. 250 print#15,"i":close15
  30. 300 print"tip: auf dieser diskette "
  31. 310 print"kein validate durchfuehren!!"
  32. 320 print"die defekten sektoren werden"
  33. 330 print"     sonst wieder frei."
  34.