I don't have a problem with the code for the script (unless someone sees a problem) I made for our techs to use. I was wondering if there was an easier way to do the script below, rather than make 15 CASE SELECTs?

Thanks in advance,
Z.

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
SELECT
CASE $answer  = ""
	? "Vous devez choisir un des applicatoins disponibles"
	sleep (2)
	goto APPLI_VERIF
CASE $answer = "1"
	? "Vous avez choisi de vérifier Appli1, merci de patienter"
	sleep (2)
	goto Appli1
CASE $answer ="2"
	? "Vous avez choisi de vérifier Appli2, merci de patienter"
	sleep (2)
	goto Appli2
CASE $answer = "3"
	? "Vous avez choisi de vérifier Appli3, merci de patienter"
	sleep (2)
	goto Appli3
 
CASE ....
CASE ....
CASE ....
 
CASE $answer = "Q"
	? "Vous avez choisi de reprendre l'inventaire utltérieurement"
	? "Merci de patienter un instant"
	sleep (2)
	GOTO START
ENDSELECT