' Keyer for paddle
' 01/97 JMW Friedberg

symbol	still	= 0
symbol	sd	= b3
symbol  pd	= b4
symbol  ton	= 108
symbol	tmp	= b2

'define pins
symbol	dot	= 7
symbol	dash	= 6
symbol	speaker	= 5
symbol	relaise	= 4

start:	high relaise
	output speaker
	input dash
	input dot
	gosub set

loop:	tmp = 0
	button dot, 0, 255, 0, tmp, 0, loop1
	gosub punkt

loop1:	tmp = 0 
	button dash, 0, 255, 0, tmp, 0, loop
	gosub strich
	goto loop

strich:	sd = 3 * pd
punkt:	low relaise
	sound speaker, (ton, sd)
	high relaise
	sound speaker, (still, pd)
set:	pd = pins & 7 + 3

'	debug pd
	sd = pd
	return

	end