home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_09 / KOBOLD3E.LZH / KOBOLD_3 / JOBS / BAK_COMP.KBJ next >
Text File  |  1979-12-03  |  4KB  |  127 lines
  1. * Backup (komplett neu)
  2. |----------------------
  3. | Sichert alle Dateien auf 3 Wechselmedien. Die Zielpartitionen
  4. | werden zuvor komplett gelöscht.
  5.  
  6. | Dieser Job ist festgelegt auf folgendes Backup:
  7. |    WP 1 enthält Backup der Partitionen C,D,E
  8. |    WP 2 enthält Backup der Partitionen F,G
  9. |    WP 3 enthält Backup der Partitionen H,I
  10. | Die Wechselplattenpartitionen liegen immer auf den Laufwerken M,N,O
  11.  
  12. DIALOG_LEVEL = 0     | Dialoge komplett ausschalten
  13. DATE = CURRENT       | Aktuelles Datum bei Schreiboperationen, damit man die
  14.                      | Aktualität der Backups erkennen kann.
  15.  
  16. ALERT "?Komplettes Backup oder einzelne Partition sichern?|!~Komplett|~Einzeln|Abbruch",10,20,1000
  17.  
  18. 10:
  19. ALERT "!Bitte legen Sie die Wechselplatte@C..E ins Laufwerk!|!~OK|~Nächste|~Abbruch",11,12,1000
  20. 11:
  21. SET_DRIVE 0 = C; SET_DRIVE 1 = M; GOSUB 500    | Sichern von C --> M
  22. SET_DRIVE 0 = D; SET_DRIVE 1 = N; GOSUB 500    | Sichern von D --> N
  23. SET_DRIVE 0 = E; SET_DRIVE 1 = O; GOSUB 500    | Sichern von E --> O
  24.  
  25. 12:
  26. ALERT "!Bitte legen Sie die Wechselplatte@F..G ins Laufwerk!|!~OK|~Nächste|~Abbruch",13,14,1000
  27. 13:
  28. SET_DRIVE 0 = F; SET_DRIVE 1 = M; GOSUB 500    | Sichern von F --> M
  29. SET_DRIVE 0 = G; SET_DRIVE 1 = N; GOSUB 500    | Sichern von G --> N
  30.  
  31. 14:
  32. ALERT "!Bitte legen Sie die Wechselplatte@H..I ins Laufwerk!|!~OK|~Abbruch",15,1000
  33. 15:
  34. SET_DRIVE 0 = H; SET_DRIVE 1 = M; GOSUB 500    | Sichern von H --> M
  35. SET_DRIVE 0 = I; SET_DRIVE 1 = N; GOSUB 500    | Sichern von I --> N
  36.  
  37. QUIT   | ...fertig 
  38.  
  39.  
  40. |**************************************************************************************************
  41. | Einzelne Partitionen sichern
  42. |**************************************************************************************************
  43.  
  44. 20:
  45. SELECT_DRIVE 0 "Quellpartition auswählen"
  46.  
  47. |********************************
  48. | Die Zielpartition anfordern
  49. |********************************
  50.  
  51. BRANCH_ON_DRIVE 0 (C:30,D:30,E:30,F:40,G:40,H:50,I:50)
  52.  
  53. |********************************
  54. | Das Zielmedium einlegen
  55. |********************************
  56.  
  57. 30:
  58. ALERT "!Bitte legen Sie die Wechselplatte@C..E ins Laufwerk!|!~OK|~Andere|Abbruch",100,150,1000
  59. 40:
  60. ALERT "!Bitte legen Sie die Wechselplatte@F..G ins Laufwerk!|!~OK|~Andere|Abbruch",100,150,1000
  61. 50:
  62. ALERT "!Bitte legen Sie die Wechselplatte@H..I ins Laufwerk!|!~OK|~Andere|Abbruch",100,150,1000
  63.  
  64. |****************************************
  65. | Automatische Auswahl der Zielpartition
  66. |****************************************
  67.  
  68. 100:
  69. BRANCH_ON_DRIVE 0 (C:110,D:120,E:130,F:110,G:120,H:110,I:120)
  70.  
  71. 110: SET_DRIVE 1 = M; GOTO 200
  72. 120: SET_DRIVE 1 = N; GOTO 200
  73. 130: SET_DRIVE 1 = O; GOTO 200
  74.  
  75. |**********************************************
  76. | Auswahl der Zielpartition durch den Benutzer
  77. |**********************************************
  78.  
  79. 150:
  80. SELECT_DRIVE 1 "Zielpartition bestimmen"
  81. GOTO 200
  82.  
  83. |**********************************************
  84. | Zentraler Aufruf des Kopierunterprogrammes
  85. |**********************************************
  86.  
  87. 200:
  88. GOSUB 500
  89. ALERT "?Noch eine Partition sichern?|!~Ja|~Nein",20,1000
  90.  
  91.  
  92. |*********************************************************************
  93. | Das eigentliche Kopieren
  94. |*********************************************************************
  95.  
  96. 500:
  97.  
  98. |**********************************************
  99. | Zielpartition löschen
  100. |**********************************************
  101.  
  102. SRC_SELECT %1:
  103. CHOOSE *+
  104. DELETE IGNORE_WP
  105.  
  106. | ******* und Quelle rüberkopieren ****************************
  107.  
  108. SRC_SELECT %0: ; DST_SELECT %1: | Quelle und Ziel setzen
  109.  
  110. SRC_SELECT + \AUTO              | Diese Ordner sollten -- falls vorhanden -- 
  111. SRC_SELECT + \ACCS              | in identischer Reihenfolge kopiert werden
  112. SRC_SELECT + \DESKTOP
  113. SRC_SELECT + \SYSTEM
  114. COPY KEEP_SEQUENCE RESET_ARCHIVES KEEP_FLAGS
  115.  
  116. CHOOSE *+                       | Und nun den ganzen Rest
  117. COPY RESET_ARCHIVES KEEP_FLAGS
  118. RETURN
  119.  
  120.  
  121. |**************************************************************************************************
  122. | Das Ende des Jobs
  123. |**************************************************************************************************
  124.  
  125. 1000:
  126. QUIT
  127.