home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 01084 / roy1.exe / ANWAHL.BPM < prev    next >
Text File  |  1993-02-17  |  2KB  |  86 lines
  1. ;****************** ANWAHL.BPM ********************
  2. ; Dieses Makro führt die automatische Anwahl durch
  3. ; Es übergibt die aktuell geladenen Anschlußparameter
  4. ; und kann als Hilfsroutine von anderen Makros aus
  5. ; mit MAKRO AUSF ANWAHL aufgerufen werden
  6.  
  7. ; Zuerst überprüfen, ob bereits Verbindung besteht
  8. ; Falls ja, Seite *0# anwählen (Btx-Gesamtübersicht)
  9. ; und Makro beenden 
  10. wenn ON dann
  11.   sende *0#
  12.   warte ende
  13.   makro ende
  14. wennende      
  15.  
  16. ; Verbindungsaufbau veranlassen und Seitenaufbau abwarten
  17. btx anwahl
  18. warte Ende
  19.  
  20. ; Läuft POWER mit Netzwerkdecoder ?
  21. datei schliessen
  22. powpfad = PP "\BTXPOWER.INI"
  23. datei öffnen powpfad text lesen
  24. datei lesen 1, msgTXT
  25. msgTXT = ZGR(msgTXT)
  26. pos = 0
  27. pos = ZIZ(msgTXT, "NETZWERK")
  28. wenn pos > 0 dann
  29.    makro ende
  30. wennende
  31.  
  32. ; überprüfen, ob Anschlußkennung (Softwarekennung)
  33. ; eingegeben werden muß
  34. suche "Anschlußkennung"
  35. wenn GF dann
  36.    wenn AK = "" dann
  37.        sende #
  38.        warte ende
  39.        makro ende
  40.    sonst
  41.       sende AK
  42.       warte 5
  43.       ; Anschluß vielleicht gesperrt?
  44.       suche "eigenhändiger Einschreibbrief"
  45.       wenn GF dann
  46.          meldung "Ihr Anschluß ist gesperrt, bitte wenden Sie sich" cr lf "an Ihr zustΣndiges Fernmeldeamt."
  47.          makro ende
  48.       wennende
  49.      warte Ende
  50.    wennende
  51. wennende
  52.  
  53. ; überprüfen, ob Cursor auf Teilnehmernummer
  54. ; (Anschluß freizügig), falls ja, Teilnehmernummer senden
  55. ; Wenn Teilnehmernummer kürzer als 12 Stellen, 
  56. ; mit # abschließen und auf Seitenende warten
  57. wenn ZE = 19 dann
  58.    wenn SP =21 dann
  59.       sende TN
  60.       wenn ZLN(TN) < 12 dann sende #
  61.       warte 10,ende
  62.    wennende
  63. wennende
  64.  
  65. ; Mitbenutzer-Nummer senden
  66. ; falls kürzer als 4 Stellen, mit # abschließen
  67. wenn ZE = 19 dann
  68.    wenn SP = 34 dann
  69.       sende MS
  70.       wenn ZLN(MS) < 4 dann sende #
  71.       warte 10,Ende
  72.    wennende
  73. wennende
  74.  
  75. ; Pers÷nliches Kennwort senden
  76. ; falls kürzer als 8 Stellen, mit # abschließen
  77. wenn ZE = 21 dann
  78.    wenn SP = 21 dann
  79.      sende PK
  80.      wenn ZLN(PK) < 8 dann sende #
  81.      warte 20,Ende
  82.    wennende
  83. wennende
  84.  
  85. makro ende