home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / telecomm / conn246e / connect / scripts / tkrcl2.scr < prev    next >
Text File  |  1993-07-24  |  967b  |  52 lines
  1. # Minimailbox für den Fax-Empfang mit einem Class-2 Modem
  2. # und dem TKR-Teleoffice
  3. # Lauffähig erst ab CoNnect 1.65
  4.  
  5. MYID=491188 ; # Bitte hier die FaxID eintragen
  6.  
  7. function init_modem {
  8.     hangup
  9.     send 'at+flid='\"$MYID\"
  10.               waitfor OK; sleep 50m
  11.     send 'at+fcr=1'
  12.              waitfor OK; sleep 50m
  13.     send 'at+fclass=2'
  14.               waitfor OK; sleep 50m
  15.     send 'at+faa=1'
  16.               waitfor OK; sleep 500m
  17. }
  18.  
  19.  
  20. function data_call {
  21.     send 'Bitte laden Sie jetzt Ihre Daten mittels ZMODEM'
  22.     send 'zu mir.'
  23.     download -P c:/download/
  24. }
  25.  
  26. function fax_call {
  27.     cd c:/teleoffi
  28.     faxdrv a
  29. }
  30.  
  31. # Hauptschleife
  32.  
  33. while init_modem; flush; true; do
  34.     if get -n 30M ring; then
  35.         if [ a$ring = aRING ]; then
  36.             send 'ata'
  37.             sleep 500m
  38.             flush
  39.             if get -n 1M response dummy; then
  40.                 if [ a$response = aCONNECT ]; then
  41.                     data_call
  42.                 else 
  43.                     if [ a$response = a+FCON ]; then
  44.                         fax_call
  45.                     fi
  46.                 fi
  47.             fi
  48.         fi
  49.     fi
  50. done
  51.  
  52.