home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / bkup12.exe / BKUP.BTM < prev    next >
Text File  |  1995-04-21  |  1KB  |  60 lines
  1. :: BKUP.BTM
  2. :: Implements different BKUP parameters for different computers.
  3. :: This allows avoiding local editing of aliases or BKUP.INI for each
  4. :: computer. It also allows upgrading BKUP by putting the name of the
  5. :: version used at the line below.
  6. ::
  7. :: I use it with the following aliases:
  8. :: bk=bkup bk, bx=bkup bx, bku=bkup bku, bxu=bkup bxu
  9. :: This batch branches according to specific names of MY computers.
  10. :: You must of course change that to suit your configuration.
  11. :: Itamar Even-Zohar (itamarez@plato.tau.ac.il)
  12.  
  13. set bkp=bkup12
  14. rem     ^^^^^^(current bkup version)
  15. set cmn=%@label[%_boot]
  16. set drv=%_disk
  17.  
  18. iff .%cmn==.notebook then
  19. rem         ^^^^^^^^ (in this computer there's only 1 floppy)
  20. set floppy=a:
  21. else
  22. set floppy=b:
  23. endiff
  24.  
  25. gosub check_drive
  26.  
  27. if .%1==.bx .or. .%1==.bxu set bkp=%bkp x
  28. goto %1
  29.  
  30. :bk
  31. :bx
  32. shift
  33. call %bkp %drv: %floppy %&
  34. goto quit
  35.  
  36. :BKU
  37. :BXU
  38. shift
  39. call %bkp %drv: %floppy /uc %&
  40. goto quit
  41.  
  42. :quit
  43. unset drv cmn floppy bkp rep >&>nul
  44. quit
  45.  
  46. :: ----------- Sub-Routines -----------
  47. :check_drive
  48. if %_4ver lt 5 (echo This batch works on 4DOS 5 and above^goto quit)
  49. iff %@removable[%drv] eq 1 .and. %@cdrom[%drv] eq 0 .and. %@remote[%drv] eq 0 .and. %@ready[%drv] eq 1 then
  50. gosub ask
  51. else
  52. return
  53.  
  54. :ask
  55. inkey /K"YN" %@upper[%drv:] is a ram drive -- proceed? %%rep
  56. if .%rep==.Y return
  57. if .%rep==.N goto quit
  58.  
  59. :: -------- End of Sub-Routines -------
  60.