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 >
Wrap
Commodore BASIC
|
2023-02-26
|
895b
|
34 lines
30 print"[147]"
35 print" --- markieren defekter sektoren ---"
36 print" --- in der bam ---"
37 input"def. diskette einlegen und return";a$
38 print" bitte geben sie nacheinander "
39 print"die defekten spur- und sektornummern an:"
45 dimq (255)
47 goto 80
50 sp=0:se=0
55 input"spur, sektor (0,0 = ende!)";sp,se:if sp=0 and se=0 then return
60 if (sp > 35 or sp<1) or (se<0 or se > 20) then print"ungueltig !":goto50
70 sp = sp * 4:by=int(se/8):bi=se-8*by:bi=2^bi :sp=sp+by+1
75 q(sp)=q(sp) and (255-bi):return
80 open15,8,15:open5,8,5,"#":print#15,"u1:5,"0,18,0
140 fori=0to255
150 get#5,a$:q(i)=asc(a$+chr$(0))
170 next
175 close5
187 gosub 50:if sp=0 and sp=0 then 200
199 goto 187
200 open2,8,2,"#"
210 fori=2to255
212 print#15,"b-p:"2,i
214 print#2,chr$(q(i));
216 next
220 print#15,"u2:2,"0,18,0
230 close2
240 print"[158]erledigt! "
250 print#15,"i":close15
300 print"tip: auf dieser diskette "
310 print"kein validate durchfuehren!!"
320 print"die defekten sektoren werden"
330 print" sonst wieder frei."