;       Aspect V 2.0 script file for RINGBACK feature.
;       by Rick von Glahn CIS:71545,1760 PACKET:N0KKZ@W0GVT


;The script begins

PROC MAIN

;The following command forces the HOST mode to drop after someone has
;disconnected. It is necessary because this script must restart after
;someone has finished using the host system to reactivate the RINGBACK
;feature.

TRANSMIT "ATZ^M"
WAITFOR "OK^M"
SET HOST GOODBYE HANGUP
CALL START

ENDPROC


;Wait for telephone to ring
PROC START

CALL CALLERID
  WAITFOR "RING" FOREVER
  IF WAITFOR
    CALL RING1
  ENDIF
  CALL START

ENDPROC

PROC RING1
;if phone rings wait till it stops ringing

WAITFOR "RING" 7

  IF WAITFOR
    CALL RING1
  ENDIF

CALL RING2

ENDPROC

PROC RING2
;wait 60 seconds for a callback
;edit the 60 in the following line to the number of seconds you want the
;the script to wait for the second call.

WAITFOR "RING" 60

  IF WAITFOR
    CALL SHOST
  ENDIF

CALL START

ENDPROC

PROC SHOST

WHILE FOREVER
  HOST
  IF NOT SUCCESS
     EXITWHILE
  ENDIF
CALL START
ENDWHILE

ENDPROC


PROC CALLERID

  BOX   6 17 17 63 02

  FATSAY  7 32 10 "Last Caller Data"
  FATSAY  9 19 04 "          Name- "
  FATSAY  9 36 14 $H_NAME
  FATSAY 10 19 04 "     Baud Rate- "
  FATSAY 10 36 14 "%li" $H_BAUD
  FATSAY 11 19 04 "    User Level- "
  FATSAY 11 36 14 "%c" $H_LEVEL
  FATSAY 12 19 04 " Call Duration- "
  FATSAY 12 36 14 $H_ELAPSED
  FATSAY 13 19 04 "     Online at- "
  FATSAY 13 36 14 $H_ONLINE
  FATSAY 14 19 04 "    Offline at- "
  FATSAY 14 36 14 $H_OFFLINE
  FATSAY 15 19 04 "  Date of Call- "
  FATSAY 15 36 14 $date

ENDPROC