home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / BCHREF.ZIP / INTIAL.WBT < prev    next >
Text File  |  1992-05-22  |  1KB  |  50 lines
  1. ; This WBT subroutine assumes Norton Backup has never been configured.  It
  2. ; will configure and run the compatibility test for Norton Backup for the
  3. ; first time.  The user MUST run this WBT routine before he/she can run
  4. ; the rest of the tutorial.
  5.  
  6.  
  7. if winexist("Norton Backup - DEFAULT.SET")==@FALSE then goto Initial
  8. winactivate("Norton Backup - DEFAULT.SET") ; Else close Norton Backup and configure it
  9. sendkey("!fx{enter}")
  10.  
  11. :Initial
  12.     ignoreinput(@on)
  13.     call("nbload.wbt","4") ; startup Norton Backup
  14.     call("yloop.wbt","5")
  15.     sendkey("{enter}") ; compatibility warning
  16.     call("yloop.wbt","5") ; delay for a while
  17.     sendkey("!n") ; configure Norton Backup for the 1st time
  18.     call("yloop.wbt","5")
  19.  
  20. :ConfigDrive
  21.     sendkey("!u") ;start floppy config
  22.     call("yloop.wbt","3")
  23.     sendkey("{ENTER}")
  24.  
  25. :ConfigTest
  26.     call("yloop.wbt","8")
  27.     sendkey("!t") ; Start config test
  28.     call("yloop.wbt","8")
  29.     sendkey("{enter}") ; Accept floppies have been removed
  30.     call("yloop.wbt","8")
  31.     sendkey("{enter}") ; confirm new settings
  32.     call("yloop.wbt","8")
  33.     sendkey("{enter}")
  34.  
  35. :CompatTest
  36.     call("yloop.wbt","8") ; give time to read
  37.     sendkey("!p") ; Start Compatibility test
  38.     call("yloop.wbt","8") ; give time to read
  39.     sendkey("{enter}") ; begin compatibility tests
  40.  
  41. callext("waitloop.wbt"," ")
  42.  
  43. :ChangeConfigStatus
  44.     File=fileopen("nbtut.ini","WRITE")
  45.     filewrite(File,"Configured=Yes")
  46.     fileclose(File)
  47.  
  48. winactivate("Norton Backup - DEFAULT.SET")
  49. return
  50.