anchor.diff:      (poursuivre-jusqu-en linum))
   
   
  +  #-lse-unix
     (defcommand "PRENDRE ETAT CONSOLE"  un-numero (consnum)
       "Copie le programme courant et les fichiers temporaires de la console indiquée."
  +    "Cette commande a pour effet de transférer à l'utilisateur le
  +programme d'un autre utilisateur travaillant sur la console numéro
  +N. Le programme ainsi transféré se trouve dans l'état où l'utilisateur
  +l'avait en mémoire.
  +
  +Sur T1600 cette commande ne transfère que le programme, les variables étant dans l'état non défini.
  +Sur MITRA 15, l'état des variables est également transféré."
       (prendre-etat-console consnum))
   
   
  
positive.code: 
  
  (defun prendre-etat-console (console-no)
    (io-new-line *task*)
    ;;           verifier le numero correspond a une console existante.
    ;;           Si la zone temporaire locale < taille des fichiers dans la zone
    ;;           temporaire de la console a prendre :
    ;;           "TRANSFERT FICHIERS TEMPORAIRES IMPOSSIBLE"       
    )
  
  
  
  
  
negative.code: 
    (defcommand "LISTER A PARTIR DE"   deux-numeros-optionels (from to)
      "Affiche le programme courant."
      
      (lister-a-partir-de from to))
  
  
  