EJEMPLO DE LAS MANZANAS:

M A N Z A N A Sdim adim b as intiger (1)_________________private en sub1_clickb=CT1 if=M del =thenlabel1 visible=trueels= if = LETA "A" thenlabel 2 visible = truelabelelse if letra "N" thenlabel (3) visible truelabel visible= trueelseif leta= 2 then label visible true else if letra = "S" truelabel vible trueelse con = CONTIend if end if end if end if end if