Added 32-bit flag to module header.

Detail:
  Also rearranged the header values a little so that the title shares
    with the SWI chunk name.
Admin:
  Built.

Version 2.31. Tagged as 'ScrBlank-2_31'

VersionASM

@@ -6,9 +6,19 @@
                         GBLS    Module_MinorVersion
                         GBLS    Module_Date
                         GBLS    Module_FullVersion
-Module_MajorVersion     SETS    "2.30"
-Module_Version          SETA    230
+                        GBLS    Module_ApplicationDate2
+                        GBLS    Module_ApplicationDate4
+                        GBLS    Module_HelpVersion
+                        GBLS    Module_ComponentName
+                        GBLS    Module_ComponentPath
+Module_MajorVersion     SETS    "2.31"
+Module_Version          SETA    231
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "15 May 2000"
-Module_FullVersion      SETS    "2.30"
+Module_Date             SETS    "21 Nov 2000"
+Module_ApplicationDate2 SETS    "21-Nov-00"
+Module_ApplicationDate4 SETS    "21-Nov-2000"
+Module_ComponentName    SETS    "ScrBlank"
+Module_ComponentPath    SETS    "RiscOS/Sources/Video/Render/ScrBlank"
+Module_FullVersion      SETS    "2.31"
+Module_HelpVersion      SETS    "2.31 (21 Nov 2000)"
                         END

VersionNum

-/* (2.30)
+/* (2.31)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG        2.30
+#define Module_MajorVersion_CMHG        2.31
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                15 May 2000
+#define Module_Date_CMHG                21 Nov 2000
 
-#define Module_MajorVersion             "2.30"
-#define Module_Version                  230
+#define Module_MajorVersion             "2.31"
+#define Module_Version                  231
 #define Module_MinorVersion             ""
-#define Module_Date                     "15 May 2000"
+#define Module_Date                     "21 Nov 2000"
 
-#define Module_FullVersion              "2.30"
+#define Module_ApplicationDate2         "21-Nov-00"
+#define Module_ApplicationDate4         "21-Nov-2000"
+
+#define Module_ComponentName            "ScrBlank"
+#define Module_ComponentPath            "RiscOS/Sources/Video/Render/ScrBlank"
+
+#define Module_FullVersion              "2.31"
+#define Module_HelpVersion              "2.31 (21 Nov 2000)"

s/ScrBlank

@@ -175,23 +175,23 @@ Module_BaseAddr
  |
         DCD     0
  ]
-
-TitleStr        DCB     "ScreenBlanker", 0
-                ALIGN
-
-HelpStr         DCB     "ScreenBlanker", 9, "$Module_MajorVersion ($Module_Date)"
- [ "$Module_MinorVersion" <> ""
-		DCB	" $Module_MinorVersion"
+ [ :LNOT: No32bitCode
+        DCD     moduleflags - Module_BaseAddr
  ]
-		DCB	0
-                ALIGN
 
+HelpStr         DCB     "ScreenBlanker", 9, "$Module_HelpVersion", 0
+
+TitleStr
 SWINames
         DCB     "ScreenBlanker",0               ; prefix
         DCB     "Control",0                     ; 0
         DCB     0
         ALIGN
 
+ [ :LNOT: No32bitCode
+moduleflags DCD ModuleFlag_32bit
+ ]
+
 SWIDecode
         Push    "LR"
         LDR     R12, [R12]                      ; get workspace