'----------------------------------------------------------------
'Autofox 13 for the BS2
'By Gerald Crenshaw WD4BIS
'AutomatedFox for Amateur Radio Direction finding fox hunting or
'5 Morse code ID and Keyer for a Propagation Beacon Station
'----------------------------------------------------------------
'---------Constants--------------
tone  con     1200    '1200 hz tone for the Morse ID
dit_  con     100     'Time in ms for DIT subroutine
dah_  con     300     'Time in ms for DAH subroutine
'11---------Program----------------
start:
Gosub keyPTT  'Key the transmitter
Gosub dit     'send W
Gosub dah
Gosub dah
Pause dah_
Gosub dah     'send D
Gosub dit
Gosub dit
Pause dah_
Gosub dit     'Send 4
Gosub dit
Gosub dit
Gosub dit
Gosub dah
Pause dah_
Gosub dah     'Send B
Gosub dit
Gosub dit
Gosub dit
Pause dah_
Gosub dit     'Send I
Gosub dit
Pause dah_
Gosub dit     'Send S
Gosub dit
Gosub dit
Pause dah_
Gosub Bubbleup
Freqout 1,60000,1000
Gosub Bubbledown
Gosub unkeyPTT 
pause 60000
goto start
'------------SUBROUTINES--------------

dah:                  'dah subroutine
   freqout 1,dah_,tone
   pause dit_
return

dit:                  'dit subroutine
   freqout 1,dit_,tone
   pause dit_
return

keyPTT:			'Key Xmtr, P0 H, P3 
   high 0		'Take P0 High
   low 3		'Take P3 Low 
   pause 300 		'Pause .3 second to give Xmtr time to key
return

unkeyPTT: 		'Drop Xmtr
   low 0		'Take P0 Low
   high 3 		'Take P3 High
return

Bubbleup:		'Bubbleup tone
   freqout 1,dit_,500
   freqout 1,dit_,600
   freqout 1,dit_,700
   freqout 1,dit_,800
return

Bubbledown:		'Bubbledown tone
   freqout 1,dit_,800
   freqout 1,dit_,700
   freqout 1,dit_,600
   freqout 1,dit_,500
return