; -------------------------------------------------
; Script Lc2 enregistr‚ par ZZ-COM PRO
; Le 16/03/1991 … 12:45:00
; -------------------------------------------------
;  Recherche automatique d'un num‚ro de t‚l‚phone
;       dans l'annuaire ‚lectronique 11
;           Copyright COREWAR 1991
; -------------------------------------------------
COMPOSE_NUMERO("11")
ATTENDS_CONNEXION
PAUSE(5)
Chaine("NOM")
Suite
; Chaine("RUBRIQUE")
Suite
; Chaine("LOCALITE")
Suite
Chaine("DEPT")
Suite
; Chaine("ADRESSE")
Suite
; Chaine("PRENOM")
ENVOI
DO
  mot=prends_mot(24,35)
  IF MOT=("Annul")
    raccroche
  ELSE
    PAUSE(5)
  ENDIF
  SUITE  
LOOP