#!/bin/sh
# Use the randword and morse programs to provide a way of practicing morse
# code with the Koch method on a Unix machine.
#
# Usage: koch duration alphabet
#
# Example:  koch 5 kmrs
#   will send 5 minutes worth of random "words" consisting of the letters
#    k, m, r and s
#
#  As provided, this will use a character spacing of 22 WPM and a word
# spacing of 20 WPM.  The places where you need to change this should be 
# obvious.
#
#     Author: Tom Russo
#           russo@swcp.com
#
#   Copyright 1999, Thomas V. Russo, KM5VY, All rights reserved.
#
#  You may freely distribute this software so long as you retain this notice 
#  and provide a detailed description of any changes you might have made.
#
# This software provided with absolutely no warranty whatsoever.  Use it if it
#  is useful, file it in your circular hacks file if not.

alph=$2
dur=$1
echo "vvv vvv" | morse 22 20 440 | auplay
sleep 5
randword 22 20 $dur $alph > $$.koch
cat $$.koch | morse 22 20 440 > $$.au
auplay $$.au
sleep 10
cat $$.koch
wc $$.koch
rm $$.*