*CLS
*ligne 0 *:00 *can
*ligne 3 *:50iH
  Recherche Historique    le ;
*DATE
*CAn
*Dat="*Mem"
*copy 1 2
*dat1="*Mem"+"1"-"1"
*Mem="*dat"
*copy 4 2
*dat2="*Mem"+"1"-"1"
*DEB:
*ligne 22 *:00 *Can
*ligne 24
Indiquez la date + ;
*:50I
 Envoi ;
*:N
 ou ;
*:40I
 Sommaire ;
*:n
 ;
*Can *ligne 5 *:30
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*ligne 7 *:30
        Recherche … partir de


*:50H
              Jour

              Mois

*:30P
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*ligne 16 *:30>
        Nom  du correspondant

        .....................;

*:30P
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*Ret:
*pos 20 10 *:H
..
*pos 20 12 *:H
..
*pos 20 10 *:H *Coui
*Input 2
Som goto Minicom.VSL
Env
*Fin
*SiNum *goto >AA
*goto >ERREUR
*AA:
*SiInf *Mem 0 *goto >ERREUR
*A="*Mem"
*Lmem
*SiInf 1 *Mem *Mem="*A" *goto >BB
*Mem="Q0"+"*Mem"
*copy 2 2
*BB:
*SiInf 31 *Mem *goto >ERREUR
*SiEgal *Mem 0 *goto >S1
*goto >S2
*S1:
*Mem="*Dat1"
*pos 20 10 *:h
*mem
*S2:
*A="*Mem"
*DEB1:
*pos 20 12 *:H
..
*pos 20 12 *:H *Coui
*Input 2
Som goto Minicom.VSL
Ret goto ret
Env
*Fin
*SiNum *goto >AA
*Goto >ERREUR1
*AA:
*SiInf *Mem 0 *goto >ERREUR1
*B="*Mem"
*Lmem
*SiInf 1 *Mem *Mem="*B" *goto >BB
*Mem="Q0"+"*Mem"
*copy 2 2
*BB:
*SiInf 12 *Mem *goto >ERREUR1
*SiEgal *mem 0 *Goto >S1
*goto >S2
*S1:
*Mem="*Dat2"
*pos 20 12 *:H
*Mem
*S2:
*B="*Mem" *C="*B"
*goto >ETT1
*Erreur:
*ligne 24 *CNON
 Date incorrecte  Recommencer ;
*:50i
 Suite ;
*:n
 ;
*Can
*fonction
Som goto Minicom.VSL
Sui *goto deb
*Fin
*Erreur1:
*ligne 24 *CNON
 Date incorrecte  Recommencer ;
*:50i
 Suite ;
*:n
 ;
*Can
*fonction
Sui *goto deb1
Som goto Minicom.VSL
*Fin
*ETT1:
*A="0"+"*A"
*B="0"+"*B"
*ligne 22 *:10
Le nom est facultatif
*ligne 24
Indiquez le Nom + ;
*:I
 Envoi ;
*:N
  ou ;
*:40I
 Sommaire ;
*:n
 ;
*Can
*POS 9 18
*Input 20
Som goto Minicom.VSL
Env
*FIN
*SiNUM *Mem="@@@@"
*NOMR="*Mem"
*goto Minico41.VSL