home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 / Chip_Hitware_Vol_07.iso / chiphit7 / online / tfind / etb.mkr < prev    next >
Encoding:
Text File  |  1996-08-01  |  1.2 KB  |  80 lines
  1. # [INFO]
  2. # N:Abfrage im ETB
  3. # P:
  4. # I:Die Suchergebnisse werden in der Datei "etb.txt" gespeichert. Diese Datei
  5. # I:wird im Makro-Verzeichnis des T-Online-Decoders abgespeichert.
  6.  
  7. # [CODE]
  8. # Abfrage der Daten vom Benutzer
  9. input Ort: "Wohnort des gesuchten Teilnehmers", "Mⁿnchen"
  10. input Name: "Nachnamen des gesuchten Teilnehmers", "Meier"
  11. input Vorwahl: "Vorwahl falls bekannt (oder Enter)", ""
  12. input PLZ: "Postleitzahl falls bekannt (oder Enter)", ""
  13. input Strasse: "Strasse falls bekannt (oder Enter)", ""
  14. input Vorname: "Vornamen falls bekannt (oder Enter)", ""
  15.  
  16. # T-Online Anwahl
  17. connect
  18.  
  19. # Aufruf des ETB und Eingabe der Daten
  20. send "\c\*0\#"
  21. waitdct
  22. send "\*8211882\#"
  23. waitdct
  24. sendfield Ort, "32"
  25. waitdct
  26. sendfield Name, "32"
  27. waitdct
  28. sendfield Vorwahl, "5"
  29. waitdct
  30. sendfield PLZ, "6"
  31. waitdct
  32. sendfield Strasse, "20"
  33. waitdct
  34. sendfield Vorname, "20"
  35. waitdct
  36. send "\#"
  37. waitdct
  38. send "19"
  39. waitdct
  40.  
  41.  
  42. # Abruf und Speichern der EintrΣge
  43.  
  44. get Eintrag = "1", "1", "40", "24"
  45.  
  46. append Eintrag to "etb.txt"
  47.  
  48. append "\r\r" to "etb.txt"
  49.  
  50. send "\#"
  51.  
  52. waitdct
  53.  
  54.  
  55.  
  56. # Und Tschⁿss
  57.  
  58. send "\*0\#"
  59.  
  60. waitdct
  61.  
  62. end
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.