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