home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_09 / KOBOLD3E.LZH / KOBOLD_3 / JOBS / OPTIMIZE.KBJ < prev    next >
Text File  |  1979-12-03  |  3KB  |  75 lines
  1. * Partition optimieren
  2. | ---------------------
  3.  
  4. | Spielt eine wahlfreie Partition in einen temporären Ordner auf einer
  5. | ebenfalls frei zu bestimmende Partition und anschlie₧end wieder zurück.
  6. | Dadurch werden die Daten optimiert geschrieben. Bestimmte Ordner werden
  7. | immer in identischer Reihenfolge kopiert (hier AUTO,CPX,ACCS,DESKTOP)
  8.  
  9. 10:
  10. SELECT_DRIVE 0 "Zu optimierende Partition?",50
  11. SELECT_DRIVE 1 "Temporäre Partition?",50
  12.  
  13. BRANCH_ON_DRIVE 0 (%1:20)  | Wenn %0=%1, dann Fehlermeldung, da auf
  14.                            | demselben Laufwerk nicht optimiert werden kann
  15. GOTO 30
  16.  
  17. 20:
  18. BING
  19. ALERT "!Zu optimierende und temporäre Partition müssen unterschiedlich sein!"
  20. GOTO 10
  21.  
  22. 30: | --------- Hier geht die eigentliche Optimierung los! -------------
  23.  
  24. DIALOG_LEVEL=0            | keine Dialoge
  25. ARCHIVE_TREATMENT = KEEP  | Archivbits beibehalten
  26. SOURCE_TREATMENT = 0      | Quellen nach dem Lesen deselektieren und
  27.                           | disabeln (helldrucken)
  28.  
  29. SRC_SELECT %0:   | Quellvariable
  30. DST_SELECT %1:   | Zielvariable
  31.  
  32. NEW_FOLDER optimize   | Ordner als Zwischenspeicher auf Ziel anlegen
  33.  
  34. GOSUB 40        | Alles Verschieben
  35.  
  36. | Und nun das Ganze zurück
  37.  
  38. SRC_SELECT %1:\OPTIMIZE\ | Optimierungsverzeichnis öffnen
  39. DST_SELECT %0:           | Ziel aus Variable 0
  40.  
  41. GOSUB 40        | Alles Zurückverschieben
  42.  
  43.                 | Den zurückbleibenden Ordner auf der Optimierungs-
  44.                 | partition kann man schlie₧lich auch wieder löschen
  45.  
  46. SRC_SELECT + %1:\OPTIMIZE
  47. DELETE
  48.  
  49. 50:
  50. QUIT            | und tschuess...
  51.  
  52.  
  53. |--------------------------------------------------------------------
  54.  
  55. 40:   | Unterprogramm (eher Unterjob...)
  56.  
  57. | Die folgenden Ordner in identischer Reihenfolge kopieren
  58.  
  59. SRC_SELECT + AUTO     | AUTO-Ordner selektieren, falls vorhanden
  60. SRC_SELECT + CPX      | CPX-Ordner selektieren, falls vorhanden
  61. SRC_SELECT + ACCS     | ACC-Ordner  selektieren, falls vorhanden
  62. SRC_SELECT + DESKTOP  | DESKTOP-Ordner selektieren, falls vorhanden
  63.  
  64. MOVE IGNORE_WP KEEP_FLAGS KEEP_SEQUENCE
  65.                            | Verschieben, identische Reihenfolge,
  66.                            | Datei-Bits mitkopieren Schreibschutz ignorieren
  67.  
  68. | Die restliche Dateien in beliebiger Reihenfolge kopieren
  69.  
  70. CHOOSE *+                  | Den Rest auswählen
  71. MOVE IGNORE_WP KEEP_FLAGS  | Verschieben,
  72.                            | Datei-Bits mitkopieren Schreibschutz ignorieren
  73. RETURN
  74. |--------------------------------------------------------------------
  75.