; $VER: fax_stfax_script 1.0beta1 (30.11.1999)
; Written by Jan-Erik Tervo
; ARexx and CIM V2 must be running
; This script was Created for debugging purposes only, feel free to customize it.

FAILAT 21


     RUN >NIL: RequestChoice "CIM" "FAX Call Received" "OK"


     IF EXISTS STFAX:STFax

            rx 'address CIM DEVICE_RELEASE'
                    
            IF ERROR
                            
                RUN >NIL: RequestChoice "CIM" "Error !" "Ok"
                           
               ELSE
                        
               RUN >NIL: STFAX:STFax
          
               Sys:Rexxc/WaitForPort STFAX.1

               IF ERROR
                              
                   RUN >NIL: RequestChoice "CIM" "Error. ARexx port of STFax not found" "Ok"
                 
                  ELSE
                                     
                   ; sys:rexxc/rx >NIL: 'address STFAX.1 AUTOANSWER OFF'
                   ; sys:rexxc/rx >NIL: 'address STFAX.1 DEVICE "Devs:serial.device" UNIT "0" BAUD "9600"'
                   ; sys:rexxc/rx >NIL: 'address STFAX.1 INITMODEM'
                   
                   sys:rexxc/rx >NIL: 'address STFAX.1 RECEIVE FAXCLASS 1'
                                     
                   WAIT 5
                   sys:rexxc/rx >NIL: 'address STFAX.1 QUIT'
                   WAIT 5
                ENDIF
             
             ENDIF
             rx 'address CIM DEVICE_OPEN'
          ELSE
          RUN >NIL: RequestChoice "CIM" "Error. Fax Program not found" "Ok"
     ENDIF