-CONSTANT: E_NOTIMPL 0x80004001
-CONSTANT: E_NOINTERFACE 0x80004002
-CONSTANT: E_FAIL 0x80004005
-CONSTANT: E_UNEXPECTED 0x8000FFFF
-CONSTANT: E_OUTOFMEMORY 0x8007000E
-CONSTANT: E_INVALIDARG 0x80070057
+<<
+: >long ( integer -- long )
+ long <ref> long deref ; inline
+>>
+<<
+SYNTAX: LONG: scan-new-word scan-object >long define-constant ;
+>>
+
+LONG: E_NOTIMPL 0x80004001
+LONG: E_NOINTERFACE 0x80004002
+LONG: E_FAIL 0x80004005
+LONG: E_UNEXPECTED 0x8000FFFF
+LONG: E_OUTOFMEMORY 0x8007000E
+LONG: E_INVALIDARG 0x80070057
+
+LONG: OLE_E_OLEVERB 0x80040000
+LONG: OLE_E_ADVF 0x80040001
+LONG: OLE_E_ENUM_NOMORE 0x80040002
+LONG: OLE_E_ADVISENOTSUPPORTED 0x80040003
+LONG: OLE_E_NOCONNECTION 0x80040004
+LONG: OLE_E_NOTRUNNING 0x80040005
+LONG: OLE_E_NOCACHE 0x80040006
+LONG: OLE_E_BLANK 0x80040007
+LONG: OLE_E_CLASSDIFF 0x80040008
+LONG: OLE_E_CANT_GETMONIKER 0x80040009
+LONG: OLE_E_CANT_BINDTOSOURCE 0x8004000A
+LONG: OLE_E_STATIC 0x8004000B
+LONG: OLE_E_PROMPTSAVECANCELLED 0x8004000C
+LONG: OLE_E_INVALIDRECT 0x8004000D
+LONG: OLE_E_WRONGCOMPOBJ 0x8004000E
+LONG: OLE_E_INVALIDHWND 0x8004000F
+LONG: OLE_E_NOT_INPLACEACTIVE 0x80040010
+LONG: OLE_E_CANTCONVERT 0x80040011
+LONG: OLE_E_NOSTORAGE 0x80040012