/* REXX -- Check for SCRIPT control words that ensure page is started*/
/* David McRitchie, "The REXX Macros Toolbox", January 15, 1992 */
  Address "ISREDIT"
  "MACRO NOPROCESS (TOKEN)"
  "PROCESS RANGE C"
  IF RC = 0 THEN DO
     LABF = ".ZFRANGE"
     LABL = ".ZLRANGE"
     "reset special " labf labl
  END
  ELSE DO
     LABF = ".ZFIRST"
     LABL = ".ZLAST"
  END
  "x all         " labf labl
  "f '.dm ' all  " labf labl
  "x on word all " labf labl
  "x off word all" labf labl
  "f first nx '.dm'" labf labl
  if rc = 0 then do
     "labnx" labf labl
     "line_after .zcsr = msgline 'Warning .DM without ON or OFF'"
  end
  /* Table 18. Control words that Ensure a Page is Started     */
  /*  as found in Chapter 5 of SCRIPT/VS Lang rel 4.0  SH35-0070-06 */
  "find all word " labf labl " '.ar'"    /* Area               */
  "find all word " labf labl " '.bl'"    /* Blank Line         */
  "find all word " labf labl " '.bx'"    /* Box                */
  "find all word " labf labl " '.cb'"    /* Column Begin       */
  "find all word " labf labl " '.cc'"    /* Conditional Col Beg*/
  "find all word " labf labl " '.cp'"    /* Conditional Page   */
  "find all word " labf labl " '.ct'"    /* Continued Text     */
  "find all word " labf labl " '.fl'"    /* Float              */
  "find all word " labf labl " '.fn'"    /* Footnote           */
  "find all word " labf labl " '.hr'"    /* Horizontal Rule    */
  "find all word " labf labl " '.hw'"    /* Hyphenate Word     */
  "find all word " labf labl " '.h0'"    /* Head Level 0-6     */
  "find all word " labf labl " '.h1'"    /* Head Level 0-6     */
  "find all word " labf labl " '.h2'"    /* Head Level 0-6     */
  "find all word " labf labl " '.h3'"    /* Head Level 0-6     */
  "find all word " labf labl " '.h4'"    /* Head Level 0-6     */
  "find all word " labf labl " '.h5'"    /* Head Level 0-6     */
  "find all word " labf labl " '.h6'"    /* Head Level 0-6     */
  "find all word " labf labl " ':h0'"    /* Head Level 0-6     */
  "find all word " labf labl " ':h1'"    /* Head Level 0-6     */
  "find all word " labf labl " ':h2'"    /* Head Level 0-6     */
  "find all word " labf labl " ':h3'"    /* Head Level 0-6     */
  "find all word " labf labl " ':h4'"    /* Head Level 0-6     */
  "find all word " labf labl " ':h5'"    /* Head Level 0-6     */
  "find all word " labf labl " ':h6'"    /* Head Level 0-6     */
  "find all word " labf labl " '.ie'"    /* Index Entry        */
  "find all word " labf labl " '.is'"    /* Inline Space       */
  "find all word " labf labl " '.ix'"    /* Index              */
  "find all word " labf labl " '.kp'"    /* Keep               */
  "find all word " labf labl " '.oi'"    /* Overlay Include    */
  "find all word " labf labl "':p'"      /* paragraph <tag>    */
  "find all word " labf labl " '.po'"    /* PostScritp         */
  "find all word " labf labl " '.rd'"    /* Read Terminal      */
  "find all word " labf labl " '.si'"    /* Segment Include    */
  "find all word " labf labl " '.sk'"    /* Skip               */
  "find all word " labf labl " '.so'"    /* STAIRS/VS Output   */
  "find all word " labf labl " '.sp'"    /* Space              */
  "find all word " labf labl " '.sx'"    /* Split Text         */
  "find all word " labf labl " '.ta'"    /* Table              */
  "find all word " labf labl " '.tc'"    /* Table of Contents  */
  "find all word " labf labl " '.vr'"    /* Vertical Rule      */
  "find all word " labf labl " '.vt'"    /* Variable Text      */