; ----- CONALARM: Alarm for conference areas
; ----------------------------------------------------------------
;	Note: This script waits for something received and then
;	sounds the alarm.  It is useful when in an empty conference
;	area, waiting for someone else to arrive.
; ----------------------------------------------------------------
;
;	Initialize
;
SET ALARM ON
SET ATIME 30
Legend " Conference alarm armed..."
;
;	Wait for something
;
Loop:
   rget s9 80 30   ; Get 80 chars - wait up to 30 secs for them
   if failure	   ; IF nothing received
      goto loop    ; Try again
      endif
   alarm	   ; Ring the bell