home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / BCHREF.ZIP / NBWIN.WBT < prev    next >
Text File  |  1992-05-22  |  2KB  |  62 lines
  1. ;*** THIS IS THE NBW 1.2 VERSION OF NBWIN.WBT ***
  2.  
  3. ;    REARRANGES DIALOGS FOR MAXIMUM VISIBILITY
  4. run("winplace.wbt","")
  5.  
  6. ;    CheckConfigStatus checks whether NBW has been configured or not.
  7. :CheckConfigStatus
  8.     File=fileopen("ndw.ini","READ")
  9.     Counter=0
  10.     :ReadLoop
  11.         ignoreinput(@yes)
  12.         if Counter==0 then display("1","Advisor","Checking Norton Backup Status...")
  13.         Counter=Counter+1
  14.         Line=fileread(File)
  15.         if Line=="Program Configured=0" then goto Initial
  16.         if Line=="Compatibility Test=1" then goto Initial
  17.         if Line=="Compatibility Test=0" then goto Initial
  18.         if Line=="Compatibility Test=2" then goto Main
  19.         if Counter==15 then Counter=0
  20.         if Line!="*EOF*" then goto ReadLoop
  21.     fileclose(File)
  22.  
  23. :Initial
  24.     ignoreinput(@on)
  25.     crlf=strcat(num2char(13),num2char(10))
  26.     display("6","Advisor",strcat("Norton Backup has not been configured.",crlf,"You MUST configure Norton Backup before running this tutorial."))
  27.     ignoreinput(@no)
  28.     display("5","Advisor",strcat("Please configure Norton Backup 1.2 and restart the tutorial.",crlf,"The Norton Backup 1.2 tutorial will not ext."))
  29.     goto ReallyExit
  30.  
  31.  
  32.  
  33. :Main
  34.     ;** This is the main menu **
  35.     dialogbox ("Advisor","main.wbd")
  36.     if MainChoice==1 then goto StartDemo
  37.     if Mainchoice==2 then goto Introduction
  38.     if Mainchoice==3 then goto Exit
  39.  
  40. :Introduction
  41.     display ("2","Advisor","Now opening Introduction Text Box")
  42.     textbox ("Advisor","intro.txt")
  43.     goto Main
  44.  
  45. :StartDemo
  46.     dialogbox ("Advisor","run.wbd")  ;open tutorial sub-section menu
  47.     if ChooseLesson==1 then call ("loadnbw.wbt"," ")
  48.     if ChooseLesson==2 then call ("config.wbt"," ")
  49.     if ChooseLesson==3 then call ("back.wbt"," ")
  50.     if ChooseLesson==4 then call ("restore.wbt"," ")
  51.     if ChooseLesson==5 then call ("compare.wbt"," ")
  52.     if ChooseLesson==6 then goto Main
  53.     goto Main
  54.  
  55. :Exit
  56.     YesNo=askyesno("Advisor","Are you sure?")
  57.     if YesNo==@yes then goto ReallyExit
  58.     goto Main
  59.  
  60. :ReallyExit
  61.     exit
  62.