Exemple d'objet dérivant d'un modèle CALCUL :

Objet CALCUL : MON_CALCUL ”Mon calcul”

Declaration
            TABLE : "COMPTEUR"
FinDeclaration

Methode ATTRIBUE_NUMERO
            Parametres : Double Reference vnumero=0
            //.... Traitement d'attribution du numéro ....
            LirePremier COMPTEUR
            Si EtatTable(COMPTEUR) Alors
                        NUMUNIQ=1
                        Ecrire COMPTEUR
            Sinon
                        NUMUNIQ= NUMUNIQ+1
                        Modifier COMPTEUR
            FinSi
            vnumero=NUMUNIQ
FinMethode

Methode DECONNECTE
            Sortir //Provoque la Sortie de l'objet CALCUL
FinMethode

FinObjet