Commande de compilation...
Commande d'exécution...
Fichier source...
upscmp Source=module.upl
module
Source Composant "Exemple d'emploi du type Module" Version
1.0.0;
ImporterModule UpsNls(<UpsNls.upi>);
Variable
C : Caractere;
M : Nul Ou Module;
Principal
Debut
Ecran.Ecrire(Global.NomModule);
Ecran.Ecrire(UpsNls.NomModule);
C=UpsNls.Message(Global, "Bonjour");
Ecran.Ecrire(C);
Si C=="Coucou" Alors
M=UpsNls;
Sinon
M=Global;
Fin Si
Si M==Global Alors
Ecran.Ecrire("M==Global");
Fin Si
Si M!=Global Alors
Ecran.Ecrire("M!=Global");
Fin Si
Fin Principal