Erreur avec la fonction #include à partir de CHAIN

Si je fais un programme en exemple:

Code:

message "include accepté"

et que je l'enregistre sous: "C:\temp\message_include.bas"

et le programme suivant:

Code:

#include "C:\temp\message_include.bas"

que j'enregistre sous: "C:\temp\ordre_include.bas"

En exécutant le programme suivant:

Code:

#include "C:\temp\message_include.bas"
chain "C:\temp\ordre_include.bas"

La première ligne de ce programme fonctionne, et m'envoi le message suivant: include accepté
la deuxième ligne me donne (32) illégale instruction ligne 1
Donc l'instruction CHAIN ne fonctionne pas avec #include
oo
ai-je commis une erreur quelque part?

Tu as raison - il y a un problème.

Je fais un rappelle important concernant cette instruction.

#include ne fonctionne pas avec chain

J'ai encore voulu l'utiliser en oubliant ce détail. J'aimerai éviter de faire un chargeur spécial pour que cette instruction fonctionne.

A ce propos, j'ai pensé à une méthode pour include, et ça fonctionne (du moins avec l'éditeur Panoramic):
un exemple, à mettre en dessous des labels et des dims.
Dans le cas où une variable ou un label pourrait être défini, il suffit de faire : if variable$("a%")=0 then dim a%

Code:

' -------------------------------------
rem include
label url_choix, goto_url_choix
dim url$
goto goto_url_choix
url_choix:
url$=item_READ$(101,item_index(100))
return
goto_url_choix:
' -------------------------------------

On a les définitions des dim et label, on saute le sous programme (et là GOTO a toute sa valeur), et le sous programme dans le même sous programme.

Merci de bien vouloir penser à #include pour chain