minor cleanup of attract screen, combined setf