home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 15 / 64er_Magazin_Sonderheft_15_19xx_Markt__Technik_de_Side_B.d64 / re-formatter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  71 lines
  1. 110 print"[147]re-formatter written by p.engels"
  2. 120 print"aendert 40-track-format von"
  3. 130 print"speed-dos <-> dolphin-dos und vice visa"
  4. 140 dimd(20),s(20)
  5. 150 :
  6. 160 rem track 18 sektor 00 in buffer 3 einlesen
  7. 170 :
  8. 180 open15,8,15:print#15,"i0":open1,8,3,"#":print#15,"u1:3"0",18,0"
  9. 190 :
  10. 200 rem bufferpointer auf 172 = hex ac
  11. 210 :
  12. 220 print#15,"b-p:3,172"
  13. 230 :
  14. 240 rem dolphin-dos bam einlesen in array d
  15. 250 :
  16. 260 forx=1to20:a$="":get#1,a$:ifa$=""thena$=chr$(0)
  17. 270 d(x)=asc(a$):next
  18. 280 :
  19. 290 rem speed-dos bam einlesen in array s
  20. 300 :
  21. 310 forx=1to20:a$="":get#1,a$:ifa$=""thena$=chr$(0)
  22. 320 s(x)=asc(a$):next
  23. 330 :
  24. 340 rem sum(s) und sum(d) bilden
  25. 350 :
  26. 360 forx=1to20:sd=sd+s(x):dd=dd+d(x):next
  27. 370 :
  28. 380 if dd<>0 or sd<>0 thengoto410
  29. 390 print"      disk ist voll oder mit 35 tracks
  30. 400 [153]"             formatiert !!":[137]760
  31. 410 [139] dd[179][177]0 [175] sd[179][177]0 [137]550
  32. 420 [139] dd[178] 0 [175] sd[179][177]0 [137]490
  33. 430 [139] dd[179][177]0 [175] sd [178]0 [167][153]"    disk ist mit 40 track dolphin-dos"
  34. 440 [153]"             formatiert !!"
  35. 450 [153]"      auf speed-dos aendern ? j/n
  36. 460 geta$:ifa$=""then460
  37. 470 ifa$ ="j"then610
  38. 480 goto760
  39. 490 print"    disk ist mit 40 track speed-dos[146]
  40. 500 [153]"             formatiert !!"
  41. 510 [153]"      auf dolphin-dos aendern ? j/n
  42. 520 geta$:ifa$=""then520
  43. 530 ifa$ = "j"then680
  44. 540 goto760
  45. 550 print"  disk ist nicht eindeutig formatiert !
  46. 560 [137]760
  47. 570 :
  48. 580 [143] array d auf speed-dos bam bringen
  49. 590 [143] dolphin-bam wird mit 0 gefuellt
  50. 600 :
  51. 610 [152]15,"b-p:3,172"
  52. 620 [129]x[178]1[164]20:[152]1,[199](0);:[130]
  53. 630 [129]x[178]1[164]20:[152]1,[199](d(x));:[130]:[137]750
  54. 640 :
  55. 650 [143] array s auf dolphin-dos bam bringen
  56. 660 [143] speed-dos-bam wird mit 0 gefuellt
  57. 670 :
  58. 680 [152]15,"b-p:3,172"
  59. 690 [129]x[178]1[164]20:[152]1,[199](s(x));:[130]
  60. 700 [129]x[178]1[164]20:[152]1,[199](0);:[130]
  61. 710 :
  62. 720 [143] buffer 3 auf track 18 sektor 00 zurueckschreiben
  63. 730 [143] fehlerkanal lesen + programm ende
  64. 740 :
  65. 750 [152]15,"u2:3"0",18,0":[152]15,"i0"
  66. 760 [160]1:[160]15
  67. 770 [159]1,8,15:[132]1,a$,b$,c,d
  68. 780 [153]"           status: ";:[153]a$" ";b$;c;d:[160]1
  69. 790 [153]"         programm ist beendet !!"
  70. 800 [153]"         -----------------------"
  71.