XProfan

proc Selectchoice_num

    Parameters handl&,num%
    Sendmessage(handl&,$014E, num% ,1)

Endproc

proc Selectchoice_strg

    Parameters handl&,strg$
    SendMessage(handl&,$014D,-1,addr(strg$))

Endproc

proc Choice_delete

    Parameters handl&
    SendMessage(handl&,$014B,0,0)

Endproc