<pre>on displayPict  put cd fld "x" into x  put "PICT" into menuName  put the name of menuItem x of menu menuName into menuItemName  set checkMark of menuItem menuItemName of menu menuName to true  picture menuItemName,resource,transparent  add 1 to cd fld "x"end displayPict</pre>