;***********************************************************************
;*                                                                     *
;* BEEPER.ASP  (C) 1991 R.J. MATTER & ASSOCIATES  71021,2654           *
;*                                                                     *
;*                                                                     *
;* An ASPECT script to call a pager (or any other number) upon detect- *
;* ion of a ring. Can be used with or without an answering machine.    *
;*                                                                     *
;* Note: Prior to using this script, set option G, "Maximum dial       *
;* attempts" to 1 in the MODEM GENERAL OPTIONS submenu. This will      *
;* prevent PROCOMM from redialing your pager 999 times in it's efforts *
;* to establish a modem connection! See page 141 in the User Manual    *
;* for more information.                                               *
;*                                                                     *
;* Enter your pager number and seconds to pause before dialing the     *
;* pager and compile with ASPCOMP. Type ASPCOMP BEEPER and press       *
;* Enter.                                                              *
;*                                                                     *
;* To run PROCOMM and BEEPER from the command line,                    *
;* type PCPLUS /FBEEPER. To run BEEPER if PROCOMM is already running,  *
;* press Alt-F5 and type BEEPER or press Enter and select BEEPER from  *
;* the list of scripts.                                                *
;*                                                                     *
;* To test, run the script, type RING and press Enter.                 *
;*                                                                     *
;* It is not necessary for the monitor to be on while PROCOMM and      *
;* BEEPER are running. The computer and modem must be on, and must     *
;* be on the same phone line as the answering machine/telephone.       *
;*                                                                     *
;* BEEPER.ASP is in the Public Domain and may be copied and modified   *
;* freely.                                                             *
;*                                                                     *
;***********************************************************************
;
DEFINE PAGER_NUM "555-5555"         ; Enter your pager number here.
DEFINE PAUSE_TIME 120               ; Enter number of seconds to pause before
                                    ; dialing the pager. Allow enough time
                                    ; for caller to leave a message if using
                                    ; with an answering machine (120 to 180
                                    ; seconds should be enough time).
;
PROC MAIN                           ; Declare main procedure.
    WHILE FOREVER                   ; Enter infinite loop.
        CLEAR                       ; Clear the screen.
        RFLUSH                      ; Flush out the receive buffer.
        WAITFOR "RING" FOREVER      ; Wait for a ring to be detected.
        PAUSE PAUSE_TIME            ; Pause nn seconds before dialing the pager.
        MDIAL PAGER_NUM             ; Dial the pager number.
    ENDWHILE                        ; Bottom of infinite loop
ENDPROC                             ; End of main procedure.