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