home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / robot-pd / 12100.ZIP / 12100B.DSK / ddi-copy.bas (.txt) < prev    next >
Locomotive BASIC  |  1998-04-30  |  8KB  |  169 lines
  1. DDI-COPYBAS
  2. DDI-COPY$$$
  3.  *** BILDSCHIRM AUFBAUEN
  4. "DISCCOPY.BIN"
  5. "DISCFORM.BIN"
  6.  * DATENABFRAGE *
  7. ,"               TASTE DRUECKEN !"
  8. "(A)lte Daten einlesen oder"
  9. "(N)eue Diskette kopieren "
  10. "(C)atalog ?"
  11. "Abbruch mit <RETURN>"
  12. "NAME der einzulesenen Datendatei ",
  13. "Bitte Datendiskette einlegen und Taste druecken"
  14. "Lese Daten fuer ";
  15. maxtrac
  16. "(E)in Laufwerk"
  17. "(Z)wei Laufwerke"
  18. qdriv
  19. zdriv
  20. twodriv
  21. "Drive A nach Drive B  (1)"
  22. "Drive B nach Drive A  (2)"
  23. qdriv
  24. zdriv
  25. "Drive A - Drive B"
  26. qdriv
  27. zdriv
  28. "Drive B - Drive A"
  29. twodriv
  30. "Bitte QUELL- und ZIELDISKETTE einlegen !"
  31. "(N)ormale Kopie"
  32. "(E)rweiterte Kopie"
  33. maxtrac
  34. mintrac
  35. maxse
  36. maxtrac
  37. mintrac
  38. maxse
  39. exten
  40. "Von Spur ";
  41. mintrac
  42. ;" bis Spur ";
  43. maxtrac
  44. ;" testen (J/N) ?"
  45. "ERSTE zu testende Spur ",
  46. mintrac
  47. mintrac
  48. "LETZTE zu testende Spur (max.43) ",
  49. maxtrac
  50. maxtrac
  51. twodriv
  52. ,"Ein Laufwerk"
  53. ,"Von Spur :";
  54. mintrac
  55. ,"bis Spur :";
  56. maxtrac
  57. ,"bearbeiten "
  58. exten
  59. ,"ERWEITERTE Kopie" 
  60. ,"NORMALE Kopie" 
  61. twodriv
  62. ,"Bitte QUELL- und ZIELDISKETTE einlegen !"
  63. ,"     Bitte QUELLDISKETTE einlegen !"
  64.  * SECTORENTEST *
  65. "- Sector geschuetzt // "
  66. "- Sector ungeschuetzt"
  67. "<--------- Getestete Spuren ------------>"
  68.  *** 1 LESEVERSUCH
  69.  *** PUFFERBEREICH
  70.  *** FEHLERMELDUNGEN AUS
  71. mintrac
  72. maxtrac
  73. qdriv
  74.  * ID
  75. secto
  76. secto
  77. secto
  78. secto
  79. secto
  80. secto
  81. secto
  82. secto
  83. secto
  84.  * LESBARER SECTOR GEFUNDEN *
  85. counte
  86. secto
  87. secto
  88. secto
  89. counte
  90. counte
  91. counte
  92. counte
  93. maxse
  94. counte
  95.  * FORMATIEREN DER ZIELDISKETTE *
  96. twodriv
  97. ," ZIELDISKETTE einlegen - FORMATIERUNG folgt !"
  98. ,"            Formatiere Zieldiskette"
  99. zdriv
  100. mintrac
  101. maxtrac
  102. secto
  103. secto
  104. secto
  105. secto
  106. ,"        DISKETTENFEHLER "
  107.  * LESEROUTINE *
  108. twodriv
  109. ,"        Bitte QUELLDISKETTE einlegen !"
  110. mintrac
  111. puffe
  112. maxtrac
  113. ,"        Lese Quelldiskette - Track :";
  114. secto
  115. secto
  116. secto
  117. puffe
  118. puffe
  119. puffe
  120. qdriv
  121. secto
  122. ,"        DISKETTENFEHLER "
  123. ,"        Lese Quelldiskette - Track :"
  124. puffe
  125. puffe
  126.  * SCHREIBROUTINE *
  127. twodriv
  128. ,"        Bitte ZIELDISKETTE einlegen !"
  129. mintrac
  130. puffe
  131. maxtrac
  132. ,"        Schreibe Zieldiskette - Track :";
  133. secto
  134. secto
  135. secto
  136. puffe
  137. puffe
  138. puffe
  139. zdriv
  140. secto
  141. ,"        DISKETTENFEHLER "
  142. ,"        Schreibe Zieldiskette - Track :"
  143. puffe
  144. puffe
  145. mintrac
  146. mintrac
  147. ,"Diskettendaten speichren (J/N) ";
  148. ,"        Bitte NAMEN eingeben ",
  149. ,"SPEICHERDISKETTE einlegen - Taste druecken !"
  150. maxtrac
  151. ,"      Weitere Kopien (J/N) ";
  152. "         Auf Wiedersehen !"
  153.  * AUSGABE GESPEICHERTER DATEN *
  154. "<--------- Getestete Spuren ------------>"
  155.  * KOPIERRECHTSVERMERKE UND BILDSCHIRM *
  156. "Dies Programm dient zum Erstellen von "
  157. "Sicherheits-und Arbeitskopien."
  158. "Der Autor weist ausdruecklich daraufhin,"
  159. "dass Missbrauch strafrechtlich verfolgt "
  160. "werden kann !"
  161.  &f5,&c5,&d5,&e5,&21,&00,&c0,&11,&00,&40,&01,&ff,&3f,&ed,&b0
  162.  &e1,&d1,&c1,&f1,&c9,&f5,&c5,&d5,&e5,&21,&00,&40,&11,&00,&c0
  163.  &01,&ff,&3f,&ed,&b0,&e1,&d1,&c1,&f1,&c9
  164. "DISC-COPY 1.1"
  165. "von D.Babirat"
  166. "DISC-COPY 1.1 fuer CPC 664/6128 von D.Babirat"
  167.  * CATALOG *
  168. "Taste druecken"
  169.