*CLS *ligne 0 *:00 *can
*ligne 3 *:60HI *can
 VISUALISATION DES MESSAGES;
*:61IH
 le ;
*date
*DATES="*MEM"
*Q="*MEM" *copy 1 2
*Mem="*Mem"+"0"
*D1="*mem"
*Mem="*Q" *copy 4 2 *Mem="*Mem"+"0"
*D2="*Mem"
*FICHIER="J"+"*D1"+"M"+"*D2"
*D1=""  *D2=""
*ligne 5 *:20P
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*ligne 7 *:20H
 Les Messages du ;
*:40
*DATEs
*:20P
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

*Pos 15 10 *:50iP
 1 ;
*:50N
 Afficher
*pos 15 12 *:50IP
 2 ;
*:50N
 Imprimer
*pos 15 14 *:50IP
 3 ;
*:50N
 Effacer

*:2P
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

*:2H
 Historique
*:2P
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

*Pos 15 21 *:50IP
 4 ;
*:50N
 Recherche
*rec:
*ligne 24 *:50
 Votre Choix  Nø   ;
*:50i
 Envoi ;
*:N
 ou ;
*:30i
 Sommaire ;
*:n
 ;
*Recom:
*pos 18 24
*Input 1
Som goto >Sortie
Env
*Fin
*Choix
1 goto Minicom1.VSL
2 goto Minicom2.VSL
3 goto Minicom3.VSL
4 goto Minico4.VSL
*Fin
*BIP *AnnInput *goto Recom
*sortie: