/* morse.tc - 11/27,28/2007, 12/1/2007 - tag, sbg, lrb

int speed

dot [beep(440,2);pause]

dash [beep(440,6);pause]

pause [int k;while((k=k+1)<speed)[]]

space [int r;while((r=r+1)<20)[]]

dotdash char d(0) [int e;char c
  while(c=d(e))[if(c=='.')dot;else dash;e=e+1]
]

letter char c [pause;int k
  while((k=k+1)<speed)pause
       if(c=='a')dotdash".-"
  else if(c=='b')dotdash"-..."
  else if(c=='c')dotdash"-.-."
  else if(c=='d')dotdash"-.."
  else if(c=='e')dotdash"."
  else if(c=='f')dotdash"..-."
  else if(c=='g')dotdash"--."
  else if(c=='h')dotdash"...."
  else if(c=='i')dotdash".."
  else if(c=='j')dotdash".---"
  else if(c=='k')dotdash"-.-"
  else if(c=='l')dotdash".-.."
  else if(c=='m')dotdash"--"
  else if(c=='n')dotdash"-."
  else if(c=='o')dotdash"---"
  else if(c=='p')dotdash".--."
  else if(c=='q')dotdash"--.-"
  else if(c=='r')dotdash".-."
  else if(c=='s')dotdash"..."
  else if(c=='t')dotdash"-"
  else if(c=='u')dotdash"..-"
  else if(c=='v')dotdash"...-"
  else if(c=='w')dotdash".--"
  else if(c=='x')dotdash"-..-"
  else if(c=='y')dotdash"-.--"
  else if(c=='z')dotdash"--.."
  else if(c==' ')[pause;pause;pause]
]

morse char s(0) [speed=100
  while(s(0))[letter s(0);s=s+1]
]

morsev char s(0) [speed=100 /* verbose morse
  char quiet
  while(s(0))[
    if (s(0)=='/') quiet=1-quiet /* toggle
    putchar s(0)
    if (1-quiet) letter(s(0)) 
    s=s+1
  ]
]

morseq char name(0) [  /* morse a file - can supply it on command line
  char where(1001)
  int bytes
  if (name(0)==0) [ps"enter name of file : ";gs name]
  bytes=readfile(name,where,where+1001,1)
  morsev where
]

morsef [  /* morse a file
  char name(20),where(1001)
  int bytes
  ps"enter name of file : ";gs name
  bytes=readfile(name,where,where+1001,1)
  morsev where
]

practice [char c;int k,n,r,s
  ps"how many letters? ";k=gn
  ps"how many repeats? ";r=gn
  ps"speed? ";speed=gn
  ps"seed? ";seed=last=gn
  while((n=n+1)<=k)[
    c=random 'a','z';s=0
    while((s=s+1)<=r)letter c
    letter ' ';putchar c;putchar ' '
  ]
]

int last, seed
random int low, high [
  int range
  if(last==0)last=seed=99
  range=high-low+1
  last=last*seed
  if(last<0)last=-last
  return low+(last/7)%range
]