Code:
(setvar 'MODEMACRO
(strcat
"$(If,$(Eq,$(Getvar,dbmod),0),,* )" ;The asterisk indicates the drawing has been modified.
"$(getvar,textstyle) "
"$(rtos, $(*, $(getvar,cannoscalevalue), $(getvar,textsize)), 2, 2) "
"$(if,$(getvar,worlducs),,$(if,$(getvar,viewdir),$(getvar,ucsname) ,Plan ))" ;Thanks Kent Cooper
"$(if,$(and,1,$(getvar,pickstyle)),,<Group off> )"
"$(if,$(and,2,$(getvar,groupdisplaymode)),[Group] )"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,1,$(getvar,osmode)),E))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,2,$(getvar,osmode)),M))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,4,$(getvar,osmode)),C))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,8,$(getvar,osmode)),Nod))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,16,$(getvar,osmode)),Q))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,32,$(getvar,osmode)),Int))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,4096,$(getvar,osmode)),Ex))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,64,$(getvar,osmode)),Ins))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,128,$(getvar,osmode)),Per))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,256,$(getvar,osmode)),T))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,512,$(getvar,osmode)),Nea))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,2048,$(getvar,osmode)),A))"
"$(if,$(and,16384,$(getvar,osmode)),,$(if,$(and,8192,$(getvar,osmode)),Par))"
"$(if, $(!=, $(getvar,viewtwist), 0), Viewtwist: $(angtos, $(getvar,viewtwist) [, 0, 2]) , )" ;Thanks alanjt
; "$(if, $(!=, $(getvar,viewtwist), 0), Viewtwist: $(angtos, $(-,6.28318,$(getvar,viewtwist)) [, 0, 2]) , )" ;Thanks alanjt
"$(if, $(!=, $(strlen,$(getvar,refeditname)), 0), Xref = $(getvar,refeditname))"
"$(If,$(Eq,$(Getvar,PStyleMode),0),STB,CTB )"
"$(if,$(>, $(getvar,dynmode), 0),$(if,$(=,$(getvar,dynpicoords),0),@,#),#)" ;Dynamic coordinate entry.
" $(getvar, cmdnames)"
)
)