SELECT, CASE, END_SELECT

Je suis en train d'implémenter 3 nouveaux mots-clés permettant de rendre le source plus lisible.
Il s'agit de :
SELECT, END_SELECT et CASE

L'utilisation se fera de la manière suivante:

Code:

SELECT expression
CASE première_valeur
  traitement
CASE deuxième_valeur
  traitement
- - - -
END_SELECT

On évalue "expression", et suivant le résulat, on effectue les instructions situées après le CASE qui correspond au résultat.

Des imbrications seront bien sûr possibles, ainsi qu'une écriture avec des séparateurs (ligne condensée)

Exemples d'utilisation avec des séparateurs:

Code:

SELECT V:CASE 3:a=9:CASE 10:a=31:END_SELECT

ou

Code:

SELECT V
CASE 3:a=9
CASE 10:a=31:END_SELECT

Cett écriture remplacera les "vieilles" commandes ON GOTO et ON GOSUB que j'avais prévu de coder.

ON N GOTO Label1, Label2, Label3 sera remplacé par

Code:

SELECT N
CASE 1:GOTO Label1
CASE 2:GOTO Label2
CASE 3:GOTO Label3
END_SELECT

De la même façon, ON N GOSUB Label1, Label2, Label3 sera remplacé par

Code:

SELECT N
CASE 1:GOSUB Label1
CASE 2:GOSUB Label2
CASE 3:GOSUB Label3
END_SELECT

Cela apporte plus de souplesse car dans ces "vieilles" commandes des premiers BASICs, la première valeur de N vaut 1, la deuxième 2, etc ..., tandis qu'avec SELECT N, la valeur après un CASE est un nombre quelconque.