Ersatz de 'RESTORE Etiquette'

La commande RESTORE positionne la lecture sur le premier élément des lignes de DATAs.
Il est parfois nécessaire de commencer la lecture à un endroit donné des DATAs. En QBasic existait la possibilité de RESTORE Etiquette, qui n'existe pas en Panoramic, mais on peut y pallier très simplement de la manière suivante:
Les étiquettes elles-mêmes feront partie des lignes de datas (donc inconnues de Panoramic), et il suffit d'appeler un sous-programme avec l'étiquette voulue pour se retrouver positionné au bon endroit en sortie.
Exemple:

Code:

DIM a$, labdat$
LABEL Posdat
DATA "Etiq1:"
DATA "blablabla", blibli"
dATA "bloblobloblo"
DATA "Etiq2:"
DATA "Au clair", "de la lune"
DATA "Mon ami Pierrot"

' Pour se positionner sur Etiq2:
labdat$ = "Etiq2:": GOSUB Posdat
READ a$ ...
...
END

Posdat:
' Positionnement de lecture datas après le label labdat$
RESTORE
REPEAT
    READ a$
UNTIL a$ = labdat$
RETURN

JL35, ça c'est pas con. Je n'y aurait surement pas penser à cela.
Chiao!

Merci cosmos, mais c'est parce que j'en ai eu besoin. Et je suis bien tranquille que si tu en avais eu besoin tu y aurais pensé aussi !