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