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