// RT-C127A2A1 : Programme de lecture d'un fichier RASTELL-TOULL au format 0
Programme = "RT-C127A2A1"
Version = "V1.1 du 20120208"
Copyright = "Jacques-Deric Rouault - Rastell Toull"

// A1 Affichage des commentaires
mprintf ("Programme = " + Programme + "\n")
mprintf ("Version   = " + Version + "\n")
mprintf ("Copyright = " + Copyright + "\n" + "\n")

// A2 Verification du repertoire
[fsce,erreur] = mopen (Programme + ".sce","r");
if erreur<>0 then 
  mprintf ("ERREUR A2 : ERREUR DE REPERTOIRE " + Programme + ".sce\n\n");
  abort; 
end;  
mclose (fsce);
mprintf ("A2 Controle du répertoire correct\n")

// A3 Ouverture du fichier texte
[ftxt,erreur] = mopen(Programme +'.txt','r')
if erreur<>0 then
  mprintf ("ERREUR A3 : FICHIER AUXILLIAIRE NON DETECTE\n\n")
  abort
end
mprintf ("A3 Ouverture du fichier texte correcte\n")

// A4 Lecture et controle de l'identificateur RASTELL-TOULL
str = mgetl (ftxt,1);
if str <> "\\RASTELL-TOULL" then 
  mclose (ftxt);  
  mprintf ("ERREUR A4 : IDENTIFICATEUR RASTELL-TOULL NON CONFORME\n\n");
  mclose(ftxt)
  abort;
end;
mprintf ("A4 Controle de l''identificateur RASTELL-TOULL correct\n")

// A5 Lecture et controle de l'identificateur FORMAT
str = mgetl (ftxt,1);
if str <> "\\FORMAT" then 
  mprintf ("ERREUR A5 : IDENTIFICATEUR FORMAT NON CONFORME\n\n");
  mclose (ftxt);  
  abort;
end;
mprintf ("A5 Controle de l''identificateur FORMAT correct\n")

// A6 Lecture et controle du format
str = mgetl (ftxt,1);
format_fichier = sscanf (str,"%i");
if format_fichier <> 0 then 
  mprintf ("ERREUR A6 : FORMAT NON CONFORME\n\n");
  mclose (ftxt);  
  abort;
end;
mprintf ("A6 Lecture du format correct\n")

// A7 Lecture et controle de l'identificateur FINEND
str = mgetl (ftxt,1);
if str <> "\\FINEND" then 
  mprintf ("ERREUR A7 : IDENTIFICATEUR FINEND NON CONFORME\n\n");
  mclose (ftxt);  
  abort;
end;
mprintf ("A7 Controle de l''identificateur FINEND correct\n")

// A8 fermeture du fichier texte
mclose(ftxt)

// A9 Fin d'exécution du programme
mprintf ("Fin d''execution du programme " + Programme + " conforme \n");