/* ======================================== */
/*  FINAL WRITER AREXX MACRO                */
/*    by Nigel S. Domaingue, 28/1/95        */
/*                                          */
/*  Script to goto Index Section.           */
/*  $Ver:  Goto_Index 1.0 (28/1/95)         */
/* ======================================== */

/* If the Index page exists, then go to it, */
/* Otherwise, create one and go to it.      */

Options Results

GoToSection 'Index'
IF ( RC ~= 0 ) THEN
   ShowMessage 1 0 '"No Index Page at present." "Create one?" "" "Yes" "No" ""'
   ctp = Result
   IF ( ctp = 1 ) THEN
      Create 'Index'