home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / BCHREF.ZIP / RESTORE.WBT < prev    next >
Text File  |  1992-05-22  |  1KB  |  38 lines
  1. ; This is the Restore sub-routine.  It's goal is to provide the user
  2. ; with a simple yet informative lesson on how to perform a Restore option
  3. ; with Norton Backup.  To run this lesson, the user MUST have performed the
  4. ; Backup tutorial, hence have a backup set to restore.
  5.  
  6. :Initial
  7.     textbox("Advisor","restor1.txt") ; intro to restore
  8.     call("nbload.wbt","4")
  9.     ignoreinput(@on)
  10.     message("Advisor","The Restore button is located between the Compare and Configure buttons.")
  11.     message("Advisor","Now switching to the Restore screen...")
  12.     winactivate("Norton Backup - DEFAULT.SET")
  13.     sendkey("!b")
  14.     sendkey("!R") ; switch to Restore Screen
  15.  
  16. :Main
  17.     textbox("Advisor","restor2.txt") ; explain Restore screen
  18.     winactivate("Norton Backup - DEFAULT.SET")
  19.     crlf=strcat(num2char(13),num2char(10))
  20.     message("Advisor",strcat("Press the Spacebar until 'ALL Files appears next to the C: drive.",crlf,"When finished, press F11 function to continue."))
  21.     winactivate("Norton Backup - DEFAULT.SET")
  22.     sendkey("{tab}") ; tab to Restore From
  23.     delay(1)
  24.     sendkey("{tab}") ; tab to Restore Files
  25.     delay(1)
  26.     ignoreinput(@off)
  27.     waitforkey("{f11}","","","","")
  28.     ignoreinput(@on)
  29.     winactivate("Norton Backup - DEFAULT.SET")
  30.     delay(1)
  31.     textbox("Advisor","restor3.txt") ;  explain final Restore procedures
  32.     winactivate("Norton Backup - DEFAULT.SET")
  33.     sendkey("!s") ; begin restore process
  34.  
  35. call("waitloop.wbt"," ")
  36. return
  37.  
  38.