Source MiseAuPoint LibelleDuScript Version NumeroDeVersion . NumeroDeRevision . NumeroDeCorrection ;MiseAuPointDebutFin MiseAuPointAfficherTaches();SelectionnerTache( Expression );AjouterPointDArret( SuitePointDArret );AjouterPointDArretSurAppel( Expression );AjouterPointDArretSurCondition( Expression );AjouterPointDArretSurExpression( Expression );AjouterPointDArretSurException( Expression );AjouterPointDArretSurObjet( Expression );AjouterPointDArretSurAttacherTache();AjouterPointDArretSurDetacherTache();AjouterPointDArretSurAttacherModule();AjouterPointDArretSurDetacherModule();SupprimerPointDArret( Expression );ActiverPointDArret( Expression );DesactiverPointDArret( Expression );ListerPointsDArret();ExecuterPasAPas();ExecuterPasAPasSuivant();ExecuterPasAPasRetourner();ContinuerExecution();AfficherPileAppels();EmpilerAppel();DepilerAppel();AfficherAppel();AfficherVariablesGlobales();AfficherVariablesLocales();AfficherExpression( Expression SuiteAfficherExpression );AfficherAdresseObjet( Expression );AfficherType( Expression );ModifierParametre( Expression , Expression );ModifierVariable( Expression , Expression );ActiverMiseAuPoint(ModeMiseAuPoint);ArreterProgramme();InterpreterFichierCommandes( NomDuFichier );, Expression, ExpressionNulVraiFauxObjet( Expression ). NomDUneProprieteNomDUnOperateurUnairePrefixe :
-~Non+-*/\%^&|<<>>==!=<><=>=EtOuEtExclusifComme
Source Composant "Exemple de mise au point" Version 4.0.0;
Variable
/******/
AGlobal : Booleen;
BGlobal : ComparaisonObjet;
CGlobal : Entier;
DGlobal : Reel;
EGlobal:Caractere;
Fonction F(A:Booleen Entree Sortie, B:ComparaisonObjet Entree Sortie,
C:Entier Entree Sortie, D:Reel Entree Sortie, E:Caractere Entree Sortie)
Retourner Entier
/*************************************************************************/
Variable
/******/
ALocal:Booleen;
BLocal:ComparaisonObjet;
CLocal:Entier;
DLocal:Reel;
ELocal:Caractere;
Debut
ALocal=Vrai;
BLocal=ComparaisonEgal;
CLocal=10;
DLocal=11.22;
ELocal="coucou";
Ecran.Ecrire("P:");
Ecran.Ecrire(Caractere(ALocal));
Ecran.Ecrire(Caractere(BLocal));
Ecran.Ecrire(CLocal);
Ecran.Ecrire(DLocal);
Ecran.Ecrire(ELocal);
Ecran.Ecrire(");
AGlobal=Faux;
BGlobal=ComparaisonApres;
CGlobal=1110;
DGlobal=1111.22;
EGlobal="hello !";
Ecran.Ecrire(Caractere(AGlobal));
Ecran.Ecrire(Caractere(BGlobal));
Ecran.Ecrire(CGlobal);
Ecran.Ecrire(DGlobal);
Ecran.Ecrire(EGlobal);
A=Faux;
B=ComparaisonNul;
C=1110;
D=1111.22;
E="guten tag";
Ecran.Ecrire(Caractere(A));
Ecran.Ecrire(Caractere(B));
Ecran.Ecrire(C);
Ecran.Ecrire(D);
Ecran.Ecrire(E);
Retourner 0;
Fin Fonction
Principal
/*******/
Variable
/******/
ALocal:Booleen;
BLocal:ComparaisonObjet;
CLocal:Entier;
DLocal:Reel;
ELocal:Caractere;
Reponse:Entier;
Debut
ALocal=Vrai;
BLocal=ComparaisonEgal;
CLocal=10;
DLocal=11.22;
ELocal="coucou";
Ecran.Ecrire("Principal 1:");
Ecran.Ecrire(Caractere(ALocal));
Ecran.Ecrire(Caractere(BLocal));
Ecran.Ecrire(CLocal);
Ecran.Ecrire(DLocal);
Ecran.Ecrire(ELocal);
Ecran.Ecrire(");
AGlobal=Vrai;
BGlobal=ComparaisonApres;
CGlobal=110;
DGlobal=111.22;
EGlobal="hello";
Ecran.Ecrire("Principal 2:");
Ecran.Ecrire(Caractere(AGlobal));
Ecran.Ecrire(Caractere(BGlobal));
Ecran.Ecrire(CGlobal);
Ecran.Ecrire(DGlobal);
Ecran.Ecrire(EGlobal);
Ecran.Ecrire(");
Reponse=F(ALocal,BLocal,CLocal,DLocal,ELocal);
Ecran.Ecrire("Principal 3:");
Ecran.Ecrire(Caractere(ALocal));
Ecran.Ecrire(Caractere(BLocal));
Ecran.Ecrire(CLocal);
Ecran.Ecrire(DLocal);
Ecran.Ecrire(ELocal);
Ecran.Ecrire(");
Ecran.Ecrire(10/Reponse);
Fin Principal
Source MiseAuPoint "Exemple de mise au point" Version 4.0.0;
MiseAuPoint
/*********/
Debut
AjouterPointDArret(40, "exemple");
ContinuerExecution();
DepilerAppel();
AfficherVariableLocales();
EmpilerAppel();
AfficherExpression("ALocal");
AfficherType("ALocal");
ModifierExpression("ELocal", E+"!!!");
SupprimerPointDArret(1);
AjouterPointDArretSurCondition(CGlobal==110);
AjouterPointDArretSurExpression(EGlobal);
ContinuerExecution();
ExecuterPasAPas();
ExecuterPasAPas();
ExecuterPasAPasRetourner();
ExecuterPasAPas();
ExecuterPasAPas();
ArreterProgramme(0);
Fin MiseAuPoint