(History:)
(fmatch from Pegasus, #9948 8/6/92, def'd by ?, author: same?, written
??/??/??)
(                                                                      )
( Objprt - shows name, id and flags of object.  Not specific for P/M/W )
: main ( d -- s ) ( similar to flagstr, prefixes object's name         )
dup name "(#" strcat 2 pick intostr strcat
2 pick room? if "R" strcat then
2 pick program? if "F" strcat then
2 pick player? if "P" strcat then
2 pick exit? if "E" strcat then
2 pick "W" flag? if "W" strcat then
2 pick "M" flag? if "M" strcat then
2 pick "L" flag? if "L" strcat then
2 pick "J" flag? if "J" strcat then
2 pick "S" flag? if "S" strcat then
2 pick "D" flag? if "D" strcat then
2 pick "C" flag? if "C" strcat then
2 pick "H" flag? if "H" strcat then
2 pick "A" flag? if "A" strcat then
")" strcat
swap pop
;