@prog setflags.muf
1 999 d
1 i
: setloop
	swap
	begin dup while
		1 strcut 3 pick rot strcat "@set me=" swap strcat me @ swap force
	loop
	pop pop
;
: main
	trigger @ "_set" getpropstr "" setloop
	trigger @ "_clear" getpropstr "!" setloop
;
.
c
q