*Nbr="*Num"-"1"
*EFFACE 24 1 *ligne 0 *:00 *can
*suiv:
*Mem="/*RE"+"*SELECT"
*Copy 2 40
*FICHIE="*Mem"
*SiInf *Select *Num *goto >S1
*goto >S2
*S1:
*SiFicExist *FICHIE *goto >aff1
*S2:
*Efface 24 23 *BIP *CNon

   oOo  Pas de message Suivant oOo ;
*Pause 30
*SElect="*Select"-"1"
*goto >REC
*/ *********************************
*Aff1:
*NbrL="*SELECT"+"0" *Mem="1"
*AFF:
*Mor="*Mem"
*Mem="*Mem"-"1"
*Mem="*Mem"*"21"
*pos 1 21 *:50
Ä
*pos 3 21 *:70
*NbrA="*NbrL"+"³"+"*Nbr"
*NbrA ;
*:50
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*ligne 22
  ;
*ligne 1 *:40
*LITFichier *Fichie *Mem 20
*Lmsg 4
*Copy 35 6
*Extrait ³
*NbrPage="*Mem"
*REC:
*ligne 22
             Page Suiv. NøPage   ;
*:70i
 ENVOI ;
*ligne 23 *:40
                   Coordonn‚es   ;
*:50i
 R‚p‚t.;
*et:
*ligne 24
*:50I
RETOUR;
*:n
 ;
*:60i
SUITE;
*:n
  ;
*:50n
        Imprimer   ;
*:60i
 GUIDE ;
*ret:
*pos 32 22 *Coui
*Input 1
Sui  goto >POI1
RET  goto >POI2
Gui  *goto >imp
som  *goto >SORT
Ann  *goto >SORT
Rep  goto Minico44.VSL
*fin
*SiInf *NbrPage *Mem *BIP *goto Ret
*SIInf *Mem 0 *Bip *goto Ret
*goto Aff
*POI1:
*SElect="*Select"+"1"
*goto suiv
*POI2:
*SElect="*Select"-"1"
*SiInF 0 *SELECT *goto Suiv
*Efface 24 23 *BIP *CNon

  oOo  Pas de message Pr‚c‚dent oOo  ;
*Pause 30
*SElect="*Select"+"1"
*goto REC
*IMP:
*SiImpPret *goto >S1
*Efface 24 23 *BIP *CNon

  oOo  Imprimante Non Disponible  oOo ;
*Pause 30
*Goto REC
*S1:
*Lmsg 4
*Copy 38 2
*SiEgal *Mem 1³ *mem="1" *T="0" *goto >S
*Mem="1" *T="0"
*ENcor:
*ligne 1
*Mem="*Mem"-"1"
*Mem="*Mem"*"21"
*LITFichier *Fichie *Mem 21
*S:
*imprime 25 21
*Lmsg 4
*Copy 35 6
*Extrait ³
*NbrPage="*Mem"
*T="*T"+"1"
*SiEgal *T *NbrPage *goto >Sortie
*Mem="*T"+"1"
*goto Encor
*Sortie:
*Siegal *Mor *NbrPage *goto RET
*pos 1 21 *:50
Ä ;
*pos 3 21 *:70
*NbrA="*NbrL"+"³"+"*Nbr"
*NbrA ;
*:50
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*ligne 1 *:40
*Mem="*Mor"
*Mem="*Mem"-"1"
*Mem="*Mem"*"21"
*LITFichier *Fichie *Mem 20
*goto RET
*SORT:
*cls
*ligne 21 *:30
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*Ligne 22
 Voir un Message Nø   ;
*:50I
 ENVOI ;
*:N
 ou ;
*:50I
 SUITE ;
*ligne 24 *:30
 Revenir … la SELECTION  ;
*:50i
 Annulation ;
*:N
 ;
*CAN
*ligne 23 *:30
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*ligne 1 *:30
*LitFichier TAMPON. 0 21
*Ligne 2
*Lmsg 2
*Mem
*ligne 4
*Lmsg 4
*Mem
*Ligne 6
*Lmsg 6
*Mem
*ligne 8
*Lmsg 8
*Mem
*Ligne 10
*Lmsg 10
*Mem
*ligne 12
*Lmsg 12
*Mem
*Ligne 14
*Lmsg 14
*Mem
*ligne 16
*Lmsg 16
*Mem
*Ligne 18
*Lmsg 18
*Mem
*SiFicExist TAmpon. *EffaceFic TAMPON.
*goto Minico42.VSL REC