home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / BCHREF.ZIP / CONFIG.WBT < prev    next >
Text File  |  1992-05-22  |  2KB  |  64 lines
  1. ;** CONFIG.WBT - NBW 1.2 ** 
  2.  
  3. ; This WBT subroutine demonstrates configuring 
  4. ; Norton Backup.  It assumes that Norton Backup 
  5. ; has been installed correctly but never 
  6. ; configured.
  7.  
  8. textbox("Advisor","config1.txt")
  9. call("nbload.wbt","4")
  10.  
  11. :Intro
  12.     ignoreinput(@on)
  13.     textbox("Advisor","config2.txt")
  14.     winactivate("Norton Backup - DEFAULT.SET")
  15.     message("Advisor","Now loading Configure Screen...")
  16.     winactivate("Norton Backup - DEFAULT.SET")
  17.     sendkey("!b")
  18.     sendkey("!n")  ; load Configure Screen
  19.     textbox("Advisor","config3.txt") ; describe config screen
  20.  
  21. :SelProgmLvl
  22.     message("Advisor","First, we will set the Program Level to Advanced.")
  23.     winactivate("Norton Backup - DEFAULT.SET")
  24.     sendkey("!l")
  25.     delay(1)
  26.     sendkey("{down}{down}{down}") ; Select Advanced Mode
  27.     delay(1)
  28.     winactivate("Norton Backup - DEFAULT.SET")
  29.  
  30. :ConfigDrive
  31.     message("Advisor","Now we will configure the floppy drives using Auto Floppy Config button")
  32.     delay(1)
  33.     winactivate("Norton Backup - DEFAULT.SET")
  34.     sendkey("!u") ;start floppy config
  35.     delay(3)
  36.     sendkey("{ENTER}")
  37.  
  38. :ConfigTest
  39.     message("Advisor","Next the Configuration Test will be performed")
  40.     winactivate("Norton Backup - DEFAULT.SET")
  41.     sendkey("!t") ; bring up compatibility test main screen
  42.     delay(2)
  43.     sendkey("{enter}") ; Start has focus - Press enter to begin
  44.     delay(2)
  45.     message("Advisor","Confirm all floppies disks have been removed.  Press ENTER to continue.")
  46.     winactivate("Norton Backup - DEFAULT.SET")
  47.     sendkey("{enter}") ; Accept floppies have been removed
  48.     call("yloop.wbt","3")
  49.     sendkey("{enter}") ; confirm new settings 
  50.  
  51. :CompatTest
  52.     textbox("Advisor","config4.txt") ; explain this
  53.     winactivate("Norton Backup - DEFAULT.SET")
  54.     sendkey("!p") ; start compatibility testing
  55.     message("Advisor","When you are ready to begin the backup, press ENTER")
  56.     winactivate("Norton Backup - DEFAULT.SET")
  57.     sendkey("{enter}") ; initiate backup testing
  58.     delay(2)
  59.     sendkey("{enter}") ; begin actual backup
  60.  
  61. callext("waitloop.wbt"," ")
  62. winactivate("Norton Backup - DEFAULT.SET")
  63. return
  64.