home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / BCHREF.ZIP / COMPARE.WBT < prev    next >
Encoding:
Text File  |  1992-05-22  |  1.2 KB  |  33 lines
  1. ; This sub-routine provides a simple tutorial on how to perform a read and
  2. ; compare operation withe Norton Backup.
  3. ; It assumes that the Backup section of this tutorial was completed.
  4. ; It will use the DEFAULT.SET main catalog as the compare catalog.
  5.  
  6. :Initial
  7.     ignoreinput(@on)
  8.     textbox("Advisor","compare1.txt") ; introduce read & compare
  9.     call("nbload.wbt","4")
  10.     ignoreinput(@on)
  11.     winactivate("Norton Backup - DEFAULT.SET")
  12.     sendkey("!b")
  13.     sendkey("!c") ; switch to Compare screen
  14.     textbox("Advisor","compare2.txt") ; explain Compare screen
  15.  
  16. :Main
  17.     winactivate("Norton Backup - DEFAULT.SET")
  18.     crlf=strcat(num2char(13),num2char(10))
  19.     message("Advisor",strcat("Press the Spacebar until 'ALL Files appears next to the C: drive.",crlf,"When finished, press F11 function to continue."))
  20.     winactivate("Norton Backup - DEFAULT.SET")
  21.     sendkey("{tab}") ; tab to Restore From
  22.     sendkey("{tab}") ; tab to Restore Files
  23.     ignoreinput(@off)
  24.     waitforkey("{f11}","","","","")
  25.     winactivate("Norton Backup - DEFAULT.SET")
  26.     ignoreinput(@on)
  27.     message("Advisor","When you are ready with the DOS directory backup disks, press ENTER to begin compare.")
  28.     winactivate("Norton Backup - DEFAULT.SET")
  29.     sendkey("!s") ; start compare
  30.  
  31. call ("waitloop.wbt"," ")
  32. return
  33.