home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / dfue / fax / multifax-demo / rexx / frontend.mfx < prev   
Text File  |  1995-07-20  |  1KB  |  39 lines
  1. /* Beispiel der Benutzung des MultiFax professional als Front-End
  2.    in Verbindung mit MultiTerm professional 4.0.
  3.    Das Skript wird durch den Eintrag
  4.    EXTERNAL    rx DH1:MultiFax/Rexx/FrontEnd.MFX
  5.    in der Fax.INF-Datei gestartet. Es muß natürlich auch der Eintrag
  6.    DATACONNECT    ON
  7.    vorhanden sein und rx muß im Pfad liegen.
  8. */
  9. address command
  10.     /* Aufruf des Terminal-Moduls des MultiTerm im Shared-Modus. */
  11. 'run DH1:MT/MultiTerm' "-t -s"
  12.     /* Gib ihm Zeit zum Starten. */
  13. 'wait' "60 secs"
  14.     /* In dieser Schleife hat der Anrufer nun quasi beliebig lange
  15.        Zeit, um ZModem-Uoloads in den Rechner vorzunehmen. ZModem
  16.        deshalb, da dort sowohl die Absicht, einen solchen Upload
  17.        zu tätigen, vom MultiTerm automatisch erkannt wird, als
  18.        auch weil beim ZModem-Protokoll der Name mit übergeben wird.
  19.     */
  20. do forever
  21.     address 'MultiTerm_Term'
  22.         /* Prüfe auf Vorhandensein der Zeichenkette "NO CARRIER". */
  23.     existstring "NO CARRIER"
  24.         /* Ist die Zeichenkette vorhanden, dann hat der Anrufer
  25.            aufgelegt. */
  26.     if rc = 0 then
  27.         break
  28.     else
  29.         do
  30.             address command
  31.             'wait' "10 secs"
  32.         end
  33. end
  34.     /* Verlassen des MultiTerm. */
  35. address 'MultiTerm_Term'
  36. 'exit'
  37.     /* Das ARexx-Skript ist hier beendet und kehrt somit
  38.        zum MultiFax zurück. */
  39.