Visual Foxpro Code Example