'REPEATER CONTROLLER WITH ID, TIME OUT TIMER, TAIL BEEP AND FAN CONTROL

'WRITTER BY ROGER CAMERON

'400 PEYTON

'CLINTON MO 64735

'N0YOX@ILAND.NET

'P2 IS  PTT

'P6 IS FAN CONTROL

BSAVE

SYMBOL COR = PIN7

SYMBOL TIMER = W3

SYMBOL TOTIMER = W4

SYMBOL I = W5

SYMBOL HI = 1

SYMBOL LO = 0



GOTO ID



CORE2:

PAUSE 1000

HIGH 2

SOUND 1, (99,6,0,6,99,6,0,6,99,6)

PAUSE 200

LOW 2

TOTIMER = 0 



CORE:

TIMER = TIMER + 1 

IF TIMER > 5500 THEN ID 

IF COR = LO THEN TX 

LOW 2

PAUSE 100

GOTO CORE



TX2:

HIGH 6



TX:

HIGH 2

IF TOTIMER > 130 THEN TIMOUT

TOTIMER = TOTIMER + 1 

PAUSE 200

IF COR = HI THEN TAIL 

GOTO CORE



TAIL:



FOR I = 1 TO 300

IF COR = LO THEN CORE

NEXT I



SOUND 1,(99,18,0,6,105,6)



FOR I = 1 TO 1000

IF COR = LO THEN CORE

NEXT I



LOW 2

TOTIMER = 0

GOTO CORE



ID:

HIGH 2

LOW 6

PAUSE 200

TIMER = 0

SOUND 1, (99,18,0,6,99,6,0,18,99,18,0,6,99,18,0,6,99,18,0,6,99,18,0,6,99,18,0,18) 'N0

SOUND 1, (99,18,0,6,99,6,0,6,99,18,0,6,99,18,0,18,99,18,0,6,99,18,0,6,99,18,0,18) 'YO

SOUND 1, (99,18,0,6,99,6,0,6,99,6,0,6,99,18,0,36,99,6,0,6,99,18,0,6,99,6) 'X  R

PAUSE 300

LOW 2



WAITT:

PAUSE 100

TIMER = TIMER + 1

TIMER = TIMER MAX 5500

IF COR = LO THEN TX2 

GOTO WAITT



TIMOUT:

SOUND 1,(99,18,0,18,99,18,0,6,99,18,0,6,99,18,0,6)

PAUSE 100

LOW 2

TIM:

IF COR = HI THEN CORE2

GOTO TIM