define osc 4
symbol pumpa1 = porta.0
symbol pumpa2 = porta.1
symbol pumpa3 = porta.2
symbol pumpa4 = porta.3
symbol pobuda= porte.2
symbol taster = porte.1
symbol pumpa5 = portd.7
symbol pumpa6 = portd.6
symbol pumpa7 = portd.5
symbol pumpa8 = portd.4
symbol pumpa9 = portd.3
symbol pumpa10 = portd.2
symbol pumpa11 = portd.1
symbol pumpa12 = portd.0
symbol pumpa13 = portc.7
symbol pumpa14 = portc.6
symbol pumpa15 = portc.5
symbol pumpa16 = portc.4
symbol pumpa17 = portc.3
symbol pumpa18 = portc.2
symbol pumpa19 = portc.1
symbol pumpa20 = portc.0
input taster
output pobuda
output pumpa1
output pumpa2
output pumpa3
output pumpa4
output pumpa5
output pumpa6
output pumpa7
output pumpa8
output pumpa9
output pumpa10
output pumpa11
output pumpa12
output pumpa13
output pumpa14
output pumpa15
output pumpa16
output pumpa17
output pumpa18
output pumpa19
output pumpa20
blok var byte
blok = 1
pritisak var byte
pritisak = 0
low pumpa1 : low pumpa2 : low pumpa3 : low pumpa4 : low pumpa5 : low pumpa6 :
low pumpa7 : low pumpa8 : low pumpa10 : low pumpa11 : low pumpa12: low pumpa13:
low pumpa14 : low pumpa15 : low pumpa16 :low pumpa17 : low pumpa18 :low pumpa19:
low pumpa20 :low pobuda
pocetak:
if taster = 0 then
pause 200
pritisak = pritisak + 1
if pritisak = 3 then pritisak = 1
if pritisak = 2 then blok = blok + 1
endif
program:
select case blok
case 1
end select
high pumpa1 : high pumpa2 : high pumpa3 : high pumpa4
gosub pocetak
return
low pumpa4
high pumpa5
gosub pocetak
return
low pumpa5
high pumpa6
gosub pocetak
return
low pumpa6
high pumpa7
gosub pocetak
return
low pumpa7
high pumpa8
gosub pocetak
return
low pumpa9
high pumpa10
gosub pocetak
return
low pumpa3 :low pumpa10
high pumpa4 : high pumpa5
gosub pocetak
return
low pumpa5
high pumpa6
gosub pocetak
return
low pumpa6
high pumpa7
gosub pocetak
return
low pumpa7
high pumpa8
gosub pocetak
return
low pumpa8
high pumpa9
gosub pocetak
return
low pumpa9
high pumpa10
gosub pocetak
return