Up ! Kernel

Ce programme présente l'usage des objets standards de type Fichier d'Up ! System.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/objkrn.upl.

Mode compilé

Commande de compilation


upscmp Source=objkrn.upl

Commande d'exécution


objkrn

Mode interprété


upssng Source=objkrn.upl

Fichier source


Source Composant "Exemple d'emploi des objets de Up ! Kernel" Version 4.0.0;



ImporterModule

/************/

	UpsDbg(<UpsDbg.upi;>, ImporterDefinitions);




Principal

/*******/

Variable

/******/

   A : Caractere;

   L : Entier;



Debut

Ecran.Ecrire("Entrer une ligne :");

L=Clavier.LireUneLigne(A);

Ecran.Ecrire("Ligne lue : "+A+" de taille "+Caractere(L));

Journal.Ecrire("Ligne lue : "+A+" de taille "+Caractere(L));

MiseAuPoint.Ecrire("Ligne lue : "+A+" de taille "+Caractere(L));

Imprimante.Ecrire("Ligne lue : "+A+" de taille "+Caractere(L));

Imprimante.Vider();

Fin Principal