/* othertones.c
   L. Stewart September 29, 1982  7:13 PM
 */

#include "Lark.h"
#include "Env.h"
#include "LarkNet.h"

extern wf1();
extern wf();
extern wfcr();
extern ReadID();
extern Block();

extern int tgint;

static char telnum[20];

CallNum()
  {
  char *s;
  wf("call number: ");
  ReadID(telnum, 18);
  s = telnum;
  wf1(" (%s)\r", s);
  for (;;) {
    if (*s == 0) break;
    LocPlayDTMF(*s++, 80, 80, false);
    };
  wfcr();
  };

CycleTG()
  {
  int v;
  tgint = (tgint + 1) % 5;
  wf1("Tone gain now %d dB\r", tgint * -3);
  };

SetB(c, p)
  char c;
  int *p;
  {
  int i;
  for (i = 0; i < 160; i += 2) {
    p[i] = 0xffff;
    p[i+1] = 0x7f7f;
    };
  wf1("sb%c\r", c);
  };