home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / telecomm / zzcompro / annuaire.lc2 < prev    next >
Text File  |  1993-03-27  |  674b  |  32 lines
  1. ; -------------------------------------------------
  2. ; Script Lc2 enregistré par ZZ-COM PRO
  3. ; Le 16/03/1991 à 12:45:00
  4. ; -------------------------------------------------
  5. ;  Recherche automatique d'un numéro de téléphone
  6. ;       dans l'annuaire électronique 11
  7. ;           Copyright COREWAR 1991
  8. ; -------------------------------------------------
  9. COMPOSE_NUMERO("11")
  10. ATTENDS_CONNEXION
  11. PAUSE(5)
  12. Chaine("NOM")
  13. Suite
  14. ; Chaine("RUBRIQUE")
  15. Suite
  16. ; Chaine("LOCALITE")
  17. Suite
  18. Chaine("DEPT")
  19. Suite
  20. ; Chaine("ADRESSE")
  21. Suite
  22. ; Chaine("PRENOM")
  23. ENVOI
  24. DO
  25.   mot=prends_mot(24,35)
  26.   IF MOT=("Annul")
  27.     raccroche
  28.   ELSE
  29.     PAUSE(5)
  30.   ENDIF
  31.   SUITE  
  32. LOOP