choose.pas : simple text mode demo