F6AGV

Actualité et promotion du radioamateurisme

mercredi 9 juillet 2014

PROGRAMME de RELAIS écrit pour F1ZFM en 2011



'{$stamp bs2}
'debug "relais F1ZFM"
DIRS=00000001111111
teste:
high 14
pause 1000
low 14
high 13
pause 1000
low 13
high 12
pause 1000
low 12
high 10
pause 1000
low 10
high 11
pause 1000
low 11
high 15
pause 1000
low 15
'goto teste
'declarations
e var nib
f var nib
d var word
tp var word
sa var bit
g var nib
a var nib
qso var bit
r var nib
n var nib
t var word
c var nib
p var nib
mm var bit
kk var bit
i var nib
ec var nib
depart:
e = 0
f= 0
sa = 0
g = 0
a = 0
tp = 0
n = 0
qso = 0
c = 0
p = 0
mm = 0
i = 0
r = 0
ec = 0
debut:
low 15
low 14
e = 0
f = 0
a = 0
qso = 0
p = 0
tp = 0
r = 0
batrec:
input 0
if in0 = 1 then temp3
input 5
if in5 = 1 then balise1
input 3
if in3 = 1 then artel
input 7
if in7 = 1 then intro
goto batrec
temp3:
pause 3000
input 0
if in0 = 1 then perma
goto batrec
perma:
input 0
if in0 = 1 then vere
intro:
pause 500
debug "intro", 10,13
intro2:
input 0
if in0 = 1 then perma
input 1
if in1 = 1 then intro3
goto verf
intro3:
input 2
if in2 = 1 then verf
goto intro4
verf:
f=f+1
debug "f=", dec f," "
pause 1000
if f >= 8 then vpun2
goto intro2
vpun2:
d=d+1
debug "d=", dec d, 10,13
goto puni2
vere:
e=e+1
debug "e=", dec e, " "
pause 1000
if e >= 8 then vpun1
goto perma
vpun1:
e=0
goto puni1
intro4:
debug "intro4",10,13
pause 100
input 1
if in1 = 1 then intro5
goto verf
intro5:
input 2
if in2 = 1 then verf
intro6:
input 0
if in0 = 1 then perma
rxtx:
debug "rxtx",10,13
high 15
high 13
high 14
pause 100
low 13
tp = 0
a = 0
bateme:
input 4
if in4 = 1 then supab1
batem1:
input 3
if in3 = 1 then artel
input 6
if in6 = 1 then bavard
input 5
if in5 = 1 then balise4
input 0
if in0 = 1 then coup
input 1
if in1 = 1 then mdul
input 2
if in2 = 1 then pnm
if qso = 0 then vtimid
tempospe:
if r = 0 then cts
for t = 1 to 10
debug "tempospe=", dec t, " "
input 1
if in1 = 1 then bateme
input 2
if in2 = 1 then bateme
pause 100
next
cts:
input 1
if in1 = 1 then bateme
input 2
if in2 = 1 then bateme
if tp >= 4 then suite
c=c+1
kk=1
debug "c=", dec c, " "
if c>=4 then cana
'bip
debug "bip",10,13
pause 500
cnrd:
p = 0
qso = 0
goto bateme
cana:
if c >=16 then puni6
goto cnrd
supab1:
sa = 1
debug "sa=1",10,13
'point inter
debug "?",10,13
pause 500
goto batem1
artel:
high 15
low 14
pause 1000
'indicatif
debug "indic",10,13
pause 1000
low 15
mate:
input 4
if in4 = 1 then cartel
goto mate
cartel:
high 15
low 14
pause 1000
'indicatif
debug "indic",10,13
pause 1000
low 15
goto depart
bavard:
if sa = 1 then razab1
avert:
'3 bips
debug "3bips",10,13
pause 500
a = a + 1
debug "a=", dec a, " "
if a>=8 then absor
input 0
if in0 = 1 then avert
input 1
if in1 = 1 then avert
input 2
if in2 = 1 then avert
high 12
pause 3000
low 12
'k
debug "k",10,13
pause 500
goto bateme
razab1:
high 12
pause 3000
low 12
'r
debug "r",10,13
pause 500
goto bateme
absor:
pause 1000
high 15
low 14
pause 1000
'hi
debug "hi",10,13
pause 500
goto puni4
coup:
pause 1000
input 0
if in0 = 1 then ccoup
goto bateme
ccoup:
g=g+1
debug "g=", dec g, " "
if g >=2 then cccp
coup1:
'point intero
debug "?",10,13
pause 500
goto bateme
cccp:
if g>=4 then puni3
goto bateme
mdul:
qso = 1
debug "qso=1",10,13
r=0
if kk=0 then ctp
tp = 0
ctp:
'compteur tp soft
tp = tp + 1
pause 1000
debug "tp=" ,dec tp, " "
kk=0
goto bateme
pnm:
debug "pnm", 10,13
pause 1000
input 2
if in2 = 1 then cpnm
goto bateme
cpnm:
n=n+1
debug "n=", dec n, " "
'2 bips
debug "2bips",10,13
pause 500
if n >= 15 then puni7
goto bateme
vtimid:
pause 3000
p=p+1
debug "p=", dec p, " "
if p = 4 then ctimid
goto timid
ctimid:
'point intero
debug "?",10,13
pause 500
timid:
if p >= 8 then dtimid
goto bateme
dtimid:
high 15
low 14
if mm = 0 then etimid
i = i + 1
debug "i=", dec i, " "
if i >= 2 then puni5
low 15
goto debut
etimid:
mm = 1
'musique
debug "music",10,13
pause 500
low 15
goto debut
balise1:
high 15
low 14
pause 1000
'indicatif
debug "indic",10,13
pause 1000
'qra locator
debug "qra",10,13
pause 1000
low 15
low 14
goto debut
balise4:
high 15
low 14
input 1
if in1 = 1 then rxtx
input 2
if in2 = 1 then rxtx
pause 1000
'indicatif
debug "balis4",10,13
pause 1000
'qra locator
goto rxtx
suite:
g=0
n=0
r=r+1
debug "r=", dec r, " "
if r = 1 then senk
if r >=10 then fini
pause 3000
goto rxtx
fini:
high 15
low 14
i = 0
ec = 0
c = 0
mm = 0
n = 0
if tp >= 30 then inmus
quite:
low 15
low 14
goto debut
inmus:
if tp >= 60 then mus
'indicatif
debug "indic",10,13
pause 1000
goto quite
mus:
'musique
debug "music",10,13
pause 1000
'indicatif
debug "indic",10,13
pause 1000
goto quite
senk:
high 15
high 14
kk=1
if tp >=8 then sm
csenk:
if sa = 1 then sendr
'k
debug "k",10,13
goto rxtx
sendr:
'r
debug "r",10,13
goto rxtx
sm:
high 11
debug "SM-ON",10,13
pause 1000
low 11
c=0
goto csenk
puni1:
'sortie1
debug "p1",10,13
goto puni
puni2:
'sortie2
debug "p2",10,13
goto puni
puni3:
'sortie3
debug "p3",10,13
goto puni
puni4:
'sortie4
debug "p4",10,13
goto puni
puni5:
'sortie5
debug "p5",10,13
goto puni
puni6:
'sortie6
debug "p6",10,13
goto puni
puni7:
'sortie7
debug "p7",10,13
puni:
debug "puni",10,13
low 15
low 14
ec = ec + 1
debug "ec=", dec ec, " "
if ec = 1 then point1
for t = 1 to 60
debug "tpuni=", dec t, " "
pause 1000
next
'600 pour 10 mn
punout:
input 5
if in5 = 1 then cpoint
input 0
if in0 = 1 then chit
goto punout
point1:
pause 3000
c=0
n=0
a=0
goto balise1
cpoint:
ec=1
goto point1
chit:
if ec >=3 then debut
high 15
'hit
debug "hit",10,13
pause 1000
low 15
goto debut
'version 110911 V3.1.5
'prog by F6AGV 2011




f6agv (AT) free.fr