home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh15b.d64 / re-formatter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.