DO WHILE .T. FOR i = 1 TO 3 DO CASE CASE i = 1 = THISFORM.BuyWife("Candy") CASE i = 2 = THISFORM.BuyWife("Flowers") CASE i = 3 = THISFORM.BuyWife("Diamonds") OTHERWISE = THISFORM.SellWife() ENDCASE ENDFOR ENDDO
Gordon de Rouyan DC&G Consulting Edmonton, Alberta Email: derouyag@shaw.ca