home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / bkup12.exe / UPNAME.BTM < prev   
Encoding:
Text File  |  1994-06-21  |  2.1 KB  |  63 lines
  1. :: UPNAME.BTM
  2. :  Runs as an auxiliary batch for BKUP.BTM in case you did not turn off
  3. :  in BKUP.INI the option for checking whether the diskette currently
  4. :  in the drive for creating an updates archive is the one normally
  5. :  designated for this purpose.
  6. :: ==> NOTE: Make sure you have indeed labelled the relevant diskette.
  7.  
  8. if %_batch==1 (echo This routine is a procedure for BKUP.BTM^quit)
  9. if .%updatename==.no quit
  10. :: (abolished if BKUP.INI is set not to run this option.)
  11. if .%updatedr==. gosub make_name
  12. if .%@label[%dr]==.%updatedr quit
  13.  
  14. ::setlocal
  15. if .%otherdrive==.yes quit
  16. :: (This prevents being asked for the second time if you wish
  17. :: to send updates archives to a drive different from your regular
  18. :: diskette.)
  19. cls
  20. screen 3 0
  21. inkey /k"YN[ESC] [enter]" Diskette in %@upper[%dr:] is not %@upper["%updatedr"], continue (Y/Enter or N/Esc)? %%rep
  22.     iff %rep == Y .or. %rep == @28 then
  23.     set otherdrive=yes
  24.     quit
  25. elseiff %rep == N .or. %rep == %@char[27] then
  26. goto quit
  27. endiff
  28.  
  29. :quit
  30. echo Updating aborted
  31. ::endlocal
  32. cancel
  33.  
  34. : ------sub-routines---------
  35. :make_name
  36. cls
  37. screen 6 0
  38. text
  39.     BKUP.BTM is set to check if the label of the diskette inserted
  40.     in the archive drive (normally A; or B:) matches the name defined
  41.     for an "updates diskette". If the name does not match, you are
  42.     given the choice between creating the archive on the diskette
  43.     currently in the drive and canceling the operation (you can of
  44.     course switch diskettes while BKUP waits for the answer). You can
  45.     define the name of your updates diskette in BKUP.INI, or cancel
  46.     this option altogether. The default definition is "TRANSMIT".
  47.  
  48.     However, if the name is not defined, you can specify a name for
  49.     a single run now.
  50.     NOTE! Make sure you have indeed labelled the relevant diskette.
  51.  
  52. endtext
  53. inkey /k"YNQ" Do you wish to indicate name of update diskette now (Y/N/Q)? %%rep
  54.        iff %rep == Y then goto path_name
  55.    elseiff %rep == N .or. %rep == Q then
  56.    quit
  57.        endiff
  58.  
  59. :path_name
  60. input Type name of your updates diskette: %%updatedr
  61. return
  62. :----end of sub-routines-----
  63.