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 >
Wrap
Text File
|
1996-08-26
|
2KB
|
67 lines
/* REXX */
SAY "Diese Datei ist nicht ausfÅhrbar."
SAY "Sie enthÑlt zwei Funktionen die in eigenen REXX-Programmen"
SAY "verwendet werden kînnen."
SAY "Die erste Funktion initialisiert ein Fax-Class2-Modem zum"
SAY "Empfang von Daten und Faxanrufen."
SAY "Die zweite Funktion gibt ein ankommendes Fax an OS/2-FaxWorks weiter"
SAY "(dabei wird das Hot-Handle-Features von FaxWorks verwendet)."
EXIT
/* -------------------------------------------------------------- */
/* Initialisiert ein Fax-Class2-Modem zur Annahme von Faxanrufen */
/* (sollte mit allen Fax-Class2-Modems funktionieren) */
/* -------------------------------------------------------------- */
faxmode:
CrLf = "^M^J"
CALL ZocSend "AT+fclass=2"||CrLf
CALL ZocWait "OK"
CALL ZocSend "AT+FCR=1"||CrLf
CALL ZocWait "OK"
CALL ZocSend "AT+FDCC=1,5,0,2,0,0,0,0"||CrLf
CALL ZocWait "OK"
CALL ZocSend "AT+FCQ=0"||CrLf
CALL ZocWait "OK"
CALL ZocSend "AT+FAA=1"||CrLf
CALL ZocWait "OK"
CALL ZocWrite CrLf||"FAX-MODE GESETZT ..."||Crlf
RETURN
/* -------------------------------------------------------------- */
/* Empfange einen Fax-Call */
/* (funktioniert nur mit OS/2 FaxWorks) */
/* -------------------------------------------------------------- */
faxCALL:
result= ZocWait("+FCON")
IF result = 0 THEN
DO
/* ********************************************* */
/* COMPORT-GESCHWINDIGKEIT AN FAXWORKS ANPASSEN */
/* ********************************************* */
CALL ZocBaud "14400"
/* *************************************** */
/* FAXWORKS MIT HOT HANDLE FEATURE STARTEN */
/* *************************************** */
CALL ZocXferShell "\faxworks\FAXWORKS.EXE -n7,%ZOCHFC%"
/* ***************************************** */
/* COMPORT-GESCHWINDIGKEIT WIEDER HOCHSETZEN */
/* ***************************************** */
CALL ZocBaud "38400"
END
RETURN
/* END OF REXX-MODULE */