*Lmsg 1
*Copy 1 20
*M1="*Mem"
*LmSG 2
*copy 1 13
*pos 15 12 *:60i
 ;
*CAN
*pos 15 13 *:60i
 ;
*CAN
*pos 15 14 *:60i
 ;
*CAN
*pos 15 15 *:60i
 ;
*CAN
*pos 15 16 *:60i
 ;
*CAN
*pos 15 17 *:60i
 ;
*CAN
*pos 15 18 *:60i
 ;
*CAN
*pos 15 19 *:60i
 ;
*CAN
*pos 15 20 *:60i
 ;
*CAN
*pos 15 12 *:61I
       Coordonn‚es
*pos 17 15 *:60IH
*M1
*pos 17 17 *:60IH
*Mem
*pos 17 19 *:71N
 ENVOI ;
*:61I
 ou ;
*:71N
 Annulation ;
*CNon
*fonction
Env goto >S1
Ann goto >S2
*Fin
*S1:
*pos 15 19 *:71N *CNON
  Enregistrement en cours  ;
*M1="*M1"+"$"+"*Mem"
*execute dest.COM *M1
*result.txt
*siinf 0 *res  *BIP
*S2:
*Ligne 12 *:50
*Lmsg 12
*Mem ;
*CAN *Ligne 13 *:50
*Lmsg 13
*Mem ;
*CAN *Ligne 14 *:50
*Lmsg 14
*Mem ;
*CAN *Ligne 15 *:50
*Lmsg 15
*Mem ;
*CAN *Ligne 16 *:50
*Lmsg 16
*Mem ;
*CAN *Ligne 17 *:50
*Lmsg 17
*Mem ;
*CAN *Ligne 18 *:50
*Lmsg 18
*Mem ;
*CAN *Ligne 19 *:50
*Lmsg 19
*Mem ;
*CAN *Ligne 20 *:50
*Lmsg 20
*Mem ;
*LMem
*SIINF *Mem 40 *CAN
*ligne 21 *:50
Ä ;
*pos 40 21
*goto Minicom1.VSL RET