|
DO case
CASE upper (vselect) = "1"
DO kemenu1
CASE upper (vselect) = "2"
DO kemenu2
CASE upper (vselect) = "3"
DO kemenu3
CASE len(trim(vselect)) = 0
Clear
CLOSE all
RETURN
OTHERWISE
DO sad
parax = 'Taip 1 hingga '
parax1 = '3 Sahaja ! '
DO bebas
Clear
LOOP
ENDCASE
.