home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / ibm1 / do101j2.arj / TESTDOC.SCR < prev    next >
Text File  |  1991-12-28  |  2KB  |  67 lines
  1. * SCRIPT: Test document mode
  2. .clr
  3.  
  4.   This is the »ye«TESTDOC»#« script.  Before entering »ma«DocumentMode»#«,
  5.   the script performs some setup.  These commands are displayed.
  6.   Press »bo«<enter>»#« to execute each displayed command.
  7.  
  8.   Note here, we have set the »%t«/STOP»#« label to "»ye«TOC»#«" this will
  9.   assure that your readers will always return to the table of
  10.   contents menu.
  11.  
  12. |/STOP TOC
  13.   Next, because the script is called from another script (»cy«DOCUMENT.SCR»#«),
  14.   we'll assure that if the user does press »bo«<esc>»#« that they will cancel
  15.   only this script.
  16.  
  17. |/CANCEL ONE
  18.   Now we'll set »%t«DocumentMode»ye« ON»#« and start the "»cy«document»#«" portion of the
  19.   script.
  20.  
  21. |/DOCUMENT ON
  22. :TOC
  23. .clr
  24.     Select Chapter:
  25.  
  26.     1.  Chapter 1
  27.         1.1  Section 1
  28.         1.2  Section 2
  29.     2.  Chapter 2
  30.         2.1  Section 1
  31.         2.2  Section 2
  32.     0.  Exit
  33.  
  34. /SET Def 0
  35. /ASK CHAPTER Def "Chapter:"
  36. :1
  37.     {»wh«Body of chapter 1»#«}
  38. .pg
  39. :1.1
  40.     {»wh«Body of chapter 1 section 1»#«}
  41. .pg
  42. :1.2
  43.     {»wh«Body of chapter 1 section 2»#«}
  44. .pg
  45. :2
  46.     {»wh«Body of chapter 2»#«}
  47. .pg
  48. :2.1
  49.     {»wh«Body of chapter 2 section 1»#«}
  50. .pg
  51. :2.2
  52.     {»wh«Body of chapter 2 section 2»#«}
  53. .pg
  54. :0
  55.     {»wh«Exit information and remainder of script»#«}
  56.  
  57.     Now we'll set »%t«DocumentMode»re« OFF»#« and continue with the remainder of
  58.     the tutorial.  Remember »%t«DocumentMode»wh« can be toggled as appropriate
  59.     in your scripts»#«.
  60.  
  61. |/DOCUMENT OFF
  62.     Remember to reset the »%t«/CANCEL»#« before exiting the script....
  63.  
  64. |/CANCEL ALL
  65. /ENDEXEC CLEAR
  66. * END of SCRIPT
  67.