214
@verb #8438:"do_beep" this none this rxdo #8438
@program #8438:"do_beep" this none this
this:connected() == 0 && raise(E_NONE, "not connected")
caller_perms():controls(this) || raise(E_PERM)
{?times = 1} = args
for x in [1..times]
  if (!this:display_pueblo())
    try
      set_connection_option(this, "binary", 1)
      notify(this, "~07")
    finally
      set_connection_option(this, "binary", 0)
    endtry
  else
    notify(this, "<img xch_alert>")
  endif
  x != times && suspend(5) || suspend(0)
endfor
.

0