home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / mac / software / kommunik / misc / zoc400wg.exe / setup.fil / script / FAXCALL.ZRX next >
Text File  |  1996-08-26  |  2KB  |  67 lines
  1. /* REXX */
  2.  
  3. SAY "Diese Datei ist nicht ausfÅhrbar."
  4. SAY "Sie enthÑlt zwei Funktionen die in eigenen REXX-Programmen"
  5. SAY "verwendet werden kînnen."
  6. SAY "Die erste Funktion initialisiert ein Fax-Class2-Modem zum"
  7. SAY "Empfang von Daten und Faxanrufen."
  8. SAY "Die zweite Funktion gibt ein ankommendes Fax an OS/2-FaxWorks weiter"
  9. SAY "(dabei wird das Hot-Handle-Features von FaxWorks verwendet)."
  10.  
  11. EXIT
  12.  
  13.  
  14. /* -------------------------------------------------------------- */
  15. /* Initialisiert ein Fax-Class2-Modem zur Annahme von Faxanrufen  */
  16. /* (sollte mit allen Fax-Class2-Modems funktionieren)             */
  17. /* -------------------------------------------------------------- */
  18. faxmode:
  19.     CrLf = "^M^J"
  20.     CALL ZocSend "AT+fclass=2"||CrLf
  21.     CALL ZocWait "OK"
  22.  
  23.     CALL ZocSend "AT+FCR=1"||CrLf
  24.     CALL ZocWait "OK"
  25.  
  26.     CALL ZocSend "AT+FDCC=1,5,0,2,0,0,0,0"||CrLf
  27.     CALL ZocWait "OK"
  28.  
  29.     CALL ZocSend "AT+FCQ=0"||CrLf
  30.     CALL ZocWait "OK"
  31.  
  32.     CALL ZocSend "AT+FAA=1"||CrLf
  33.     CALL ZocWait "OK"
  34.  
  35.     CALL ZocWrite CrLf||"FAX-MODE GESETZT ..."||Crlf
  36.     RETURN
  37.  
  38.  
  39.  
  40. /* -------------------------------------------------------------- */
  41. /* Empfange einen Fax-Call                                        */
  42. /* (funktioniert nur mit OS/2 FaxWorks)                           */
  43. /* -------------------------------------------------------------- */
  44. faxCALL:
  45.     result= ZocWait("+FCON")
  46.     IF result = 0 THEN
  47.     DO
  48.         /* ********************************************* */
  49.         /* COMPORT-GESCHWINDIGKEIT AN FAXWORKS ANPASSEN  */
  50.         /* ********************************************* */
  51.         CALL ZocBaud "14400"
  52.  
  53.         /* *************************************** */
  54.         /* FAXWORKS MIT HOT HANDLE FEATURE STARTEN */
  55.         /* *************************************** */
  56.         CALL ZocXferShell "\faxworks\FAXWORKS.EXE -n7,%ZOCHFC%"
  57.  
  58.         /* ***************************************** */
  59.         /* COMPORT-GESCHWINDIGKEIT WIEDER HOCHSETZEN */
  60.         /* ***************************************** */
  61.         CALL ZocBaud "38400"
  62.     END
  63.     RETURN
  64.  
  65. /* END OF REXX-MODULE */
  66.  
  67.