Index: class.c
==================================================================
--- class.c
+++ class.c
@@ -1582,10 +1582,36 @@
           goto numeric;
         case OP_CASE:
           cl->codes[ptr++]=OP_CASE;
           ptr=peep=case_block(cla,ptr,hash);
           break;
+        case OP_MISC4: y=0x000; goto uflags;
+        case OP_MISC4_C: y=0x100; goto uflags;
+        case OP_MISC5: y=0x020; goto uflags;
+        case OP_MISC5_C: y=0x120; goto uflags;
+        case OP_MISC6: y=0x040; goto uflags;
+        case OP_MISC6_C: y=0x140; goto uflags;
+        case OP_MISC7: y=0x060; goto uflags;
+        case OP_MISC7_C: y=0x160; goto uflags;
+        case OP_COLLISIONLAYERS: y=0x080; goto uflags;
+        case OP_COLLISIONLAYERS_C: y=0x180; goto uflags;
+        uflags:
+          x=0;
+          for(;;) {
+            nxttok();
+            if(tokent==TF_CLOSE) break;
+            if(Tokenf(TF_MACRO) || !Tokenf(TF_NAME) || tokenv!=OP_USERFLAG) ParseError("User flag or close parenthesis expected\n");
+            tokenv=look_hash(glohash,HASH_SIZE,0x1000,0x10FF,0,"user flags");
+            if(!tokenv) ParseError("User flag ^%s not defined\n",tokenstr);
+            if((tokenv^y)&0xE0) {
+              if(y&0x100) ParseError("User flag ^%s belongs to the wrong attribute\n",tokenstr);
+            } else {
+              if(Tokenf(TF_COMMA)) x&=~(1<<(tokenv&31)); else x|=1<<(tokenv&31);
+            }
+          }
+          tokenv=x;
+          goto numeric;
         default:
           ParseError("Invalid parenthesized instruction\n");
       }
     } else if(tokent==TF_CLOSE) {
       if(flowdepth) ParseError("Unterminated flow control structure\n");

Index: class.doc
==================================================================
--- class.doc
+++ class.doc
@@ -1115,10 +1115,21 @@
   and the one below, are using a double sigil.)
 
 ,<label>
   Call a label as a subroutine; when it returns, comes back to here.
 
+(<attribute> <userflags...>)  ( -- number )
+  The attribute must be one of Misc4, Misc5, Misc6, Misc7, or
+  CollisionLayers, and may optionally be preceded by a comma. This
+  produces the number with all of the specified bits set only. If the
+  attribute is preceded by a comma, then it is an error to specify any
+  user flags not assigned to that variable, otherwise any user flags
+  that do not belong are ignored. Any user flag may optionally be
+  preceded by a comma, and may occur multiple times; only the last
+  instance of each is used. If the last instance of a flag has a
+  comma then that bit is clear, if without a comma then it is set.
+
 .  ( x -- )
 
 +  ( in1 in2 -- out )
   Add two numbers together.