You could try something like:

code:
CLS
? "Choisi le numéro de l'application que vous voulez vérifier ou Q pour quitter?"
?
box(3,0,13,57,"")
	AT (4,1) "(1) Appli1"
	AT (4,16) "(2) Appli2"
	AT (4,40) "(3) Appli3"
	AT (6,1) "(4) Appli4"
	AT (6,16) "(5) Appli5"
	AT (6,40) "(6) Appli6"
	AT (8,1) "(7) Appli7"
	AT (8,16) "(8) Appli8"
	AT (8,40) "(9) Appli9"
	AT (10,1) "(10) Appli10"
	AT (10,16) "(11) Appli11"
	AT (10,40) "(12) Appli12"
	AT (12,1) "(13) Appli13"
	AT (12,16) "(14) Appli14"
	AT (12,40) "(15) Appli15"
??
? "Votre Choix (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,Q) : " GETS $answer
$RC=execute("Gosub 'Appli" + $answer + "'")


[ 13. January 2003, 12:21: Message edited by: Howard Bullock ]
_________________________
Home page: http://www.kixhelp.com/hb/