home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 51
/
Commodore_Disc_51_19xx_-_de.d64
/
diskrecycling.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
160 lines
10 rem disk-recycling===========64
20 rem (p) commodore disc ==
30 rem ===========================
40 rem (c) by michael schumack ==
50 rem ==
60 rem ==
70 rem version 2.0 40z/ascii ==
80 rem c 64 + floppy 1541 ==
90 rem ===========================
95 gosub 60000
100 poke53280,0:poke53281,0:printcy$chr$(142)chr$(8)
110 poke53280,0:poke53281,0:printcy$
120 for i=0to101:read x:poke 49152+i,x:next
130 data169,1,162,205,160,235,32,189,255,169,8,133,186,169,96,133,185,32,213
140 data243,165,186,32,180,255,165,185,32,150,255,169,0,133,144,160,3,132,251
150 data32,165,255,133,252,164,144,208,52,32,165,255,164,144,208,45,164,251
160 data136,208,233,166,252,32,205,189,169,32,32,210,255,32,165,255,166,144
170 data208,23,170,240,6,32,210,255,24,144,240,169,13,32,210,255,32,225,255
180 data240,4,160,2,208,193,76,66,246
190 printcl$left$(qr$,5)" d.c.a.r."
191 print" disk-checking and repairing"
200 printc4$c4$"repariert ihre kaputten disketten ! "
210 printc4$"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
220 print"1 - anfangs- und endtrack eingeben"
230 print"2 - standardeinstellung tr.1-35"
240 print"3 - dos-befehle"
250 print"4 - directory
260 [153]"5 - ende"
270 [153]"lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen"
280 [161]a$:[139]a$[178]""[167]280
290 [139] a$[178]"1" [167] [137]350
300 [139] a$[178]"2" [167] au[178]1:eu[178]35:[137]370
310 [139] a$[178]"3" [167] [137]660
320 [139] a$[178]"4" [167] [153]cl$:[158]49152:[141]1380:[137]190
330 [139] a$[178]"5" [167] [128]
340 [137]280
350 [153]c4$c4$"anfangs-track:"c3$c3$c3$"1"c1$;c1$c1$;:[133]au
360 [153]c4$c4$"end-track:"[200](qr$,4)"35"[200](ql$,4);:[133]eu
370 [153]rn$[200](qd$,4)[200](qr$,10)"defekte disk einlegen"rf$
380 [161]a$:[139]a$[178]""[167][137]380
390 [153]cl$"track sector":[153]"fehlermeldung ":[153]:[153]:[153]"abbruch mit taste '_'"
400 [143] kanaele definieren
410 [159]1,8,15,"#" :[143] fehlerkanal
420 [159]2,8,2,"#" :[143] arbeitskanal
430 [131]1,17,20,18,24,18,25,30,17,31,35,16,36,40,15
440 [143] at/as-et/es definieren
450 [135] at:[135] et:as[178]1:[135] es
455 [139] eu[177]40 [167] 620
460 [139] au[177][178]et [167]440
470 [139] au[177]at [167] at[178]au
480 [129] kt[178]at [164] et
490 [129] ks[178]as [164] es
500 [152]1,"b-r";2;0;kt;ks
510 [132]1,a,b$,c,d
520 [139] eu[179]kt [167]620
525 [139] eu[177]40 [167] [137] 620
530 [153]he$c4$[200](qr$,13);a;b$;he$[200](qr$,5)" "c1$c1$c1$;kt;
531 [153]he$[200](qr$,15)" "c1$c1$c1$;ks
540 [139] a[179][177]0 [167] [141]600
550 [161]q$:[139]q$[178]"_"[167] [137]620
560 [130] ks
570 [130] kt
580 [139]et[179]eu[167]450
590 [137]620
600 [152]1,"b-a";0;kt;ks
610 [142]
620 [152]1,"i"
630 [153]rn$[200](qd$,8)c3$c3$"druecken sie eine taste"rf$
640 [161]a$:[139]a$[178]""[167]640
650 [138]
660 [153]cl$c4$c4$c4$"1 - scratch"
670 [153]"2 - rename"
680 [153]"3 - soft-format"
690 [153]"4 - hard-format"
700 [153]"5 - validate (vorsicht!)
710 print"6 - initialisieren
720 [153]:[153]"lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen":[153]
730 [161]a$:[139]a$[178]""[167]730
740 [139] a$[178]"1" [167] [137]810
750 [139] a$[178]"2" [167] [137]830
760 [139] a$[178]"3" [167] [137]860
770 [139] a$[178]"4" [167] [137]1320
780 [139] a$[178]"5" [167] [137]1340
790 [139] a$[178]"6" [167] [137]1350
800 [137]730
810 [133]"name: ";a$
820 [159]1,8,15,"s:"[170]a$:[141]1360:[160]1:[137]190
830 [133]"alter name: ";a$
840 [133]"neuer name: ";b$
850 [159]1,8,15,"r:"[170]a$[170]"="[170]b$:[141]1360:[160]1:[137]190
860 [133]"disk2,8,2,"#" :"aa$" arbeitskanal
870 data1,17,20,18,24,18,25,30,17,31,35,16,36,40,15
880 rem at/as-et/es definieren
890 read at:read et:as=1:read es
900 if au>=et then440
910 if au>at then at=au
920 for kt=at to et
930 for ks=as to es
940 print#1,"b-r";2;0;kt;ks
950 input#1,a,b$,c,d
960 if eu<kt then620
970 printhe$c4$left$(qr$,13);a;b$;he$left$(qr$,5)" "c1$c1$c1$;kt;
971 printhe$left$(qr$,15)" "c1$c1$c1$;ks
980 if a<>0 then gosub600
990 getq$:ifq$="_"then goto620
1000 next ks
1010 next kt
1020 ifet<euthen450
1030 goto620
1040 print#1,"b-a";0;kt;ks
1050 return
1060 print#1,"i"
1070 printrn$left$(qd$,8)c3$c3$"druecken sie eine taste"rf$
1080 geta$:ifa$=""then640
1090 run
1100 printcl$c4$c4$c4$"1 - scratch"
1110 print"2 - rename"
1120 print"3 - soft-format"
1130 print"4 - hard-format"
1140 print"5 - validate (vorsicht!)
1150 [153]"6 - initialisieren
1160 print:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":print
1170 geta$:ifa$=""then730
1180 if a$="1" then goto810
1190 if a$="2" then goto830
1200 if a$="3" then goto860
1210 if a$="4" then goto1320
1220 if a$="5" then goto1340
1230 if a$="6" then goto1350
1240 goto730
1250 input"name: ";a$
1260 open1,8,15,"s:"+a$:gosub1360:close1:goto190
1270 input"alter name: ";a$
1280 input"neuer name: ";b$
1290 open1,8,15,"r:"+a$+"="+b$:gosub1360:close1:goto190
1300 input"diskettenname: ";a$
1310 open1,8,15,"n:"+a$:gosub1360:close1:goto190
1320 input"diskettenname: ";a$
1330 open1,8,15,"n:"+a$+",00"gosub1360:close1:goto190
1340 open1,8,15,"v":gosub1360:close1:goto190
1350 open1,8,15,"i":gosub1360:close1:goto190
1360 input#1,a,b$,c,d
1370 printc4$c4$;a;b$;c;d
1380 printc4$c4$rn$"taste druecken"rf$
1390 geta$:ifa$=""then1390
1400 return
60000 rem nachspann ==============
60010 rem farbcodes/steuercodes
60020 c4$=chr$(017):rn$=chr$(018)
60030 he$=chr$(019):c3$=chr$(029)
60040 aa$=chr$(143):rf$=chr$(146)
60050 cl$=chr$(147):c1$=chr$(157)
60060 cy$=chr$(159)
60070 rem zeichenfolgen
60080 for q=1 to 40
60090 qd$=qd$+c4$:qr$=qr$+c3$
60100 ql$=ql$+c1$
60110 next q
60120 return