Topspeed_JPI/JPI-1/def/enregist.def

DEFINITION MODULE Enregistrer;

IMPORT FIO,Window,IO,Str;


TYPE     t_phrase  = ARRAY[0..79] OF CHAR;
         t_fiche = RECORD
                    pris   : BOOLEAN;
                    phrase : t_phrase;
                   END;

VAR      fichier : FIO.File;
         tableau : ARRAY [ 1 .. 200 ] OF t_fiche;
         chaine  : t_phrase;
         nom_de_fichier : ARRAY [0..64] OF CHAR;
         index_maximum  : CARDINAL;

CONST    menu_principal = "L)iste E)nregistrer S)auvegarder O)uvrir M)odifier Q)uitter";

PROCEDURE RdKey():CHAR;
PROCEDURE liste;
PROCEDURE affiche_menu(m:ARRAY OF CHAR);
PROCEDURE enregistre(n : CARDINAL);
PROCEDURE sauvegarde;
PROCEDURE ouvre;
PROCEDURE modifie;

END Enregistrer.