listing
-- by Bart 30 sep 02
-- geluid uit een 628
include f628_20
include jlib
include delay_1uS_20Mc
pin_a1_direction = output
procedure di is -- punt
for 300 loop
for 3 loop
pin_a1 = high
delay_1uS ( 2000 )
end loop
for 3 loop
pin_a1 = low
delay_1uS ( 2000 )
end loop
end loop
delay_1ms ( 75 )
end procedure -- einde punt
procedure da is -- streep
for 900 loop for 3 loop
pin_a1 = high
delay_1uS ( 2000 )
end loop
for 3 loop
pin_a1 = low
delay_1uS ( 2000 )
end loop
end loop
delay_1ms ( 75 )
end procedure -- einde streep
procedure pauze is -- pauze tussen de tekens
delay_1ms ( 450 )
end procedure
procedure wiebeltoon ( byte in seconden ) is
for ( seconden ) loop
for 500 loop
for 3 loop
pin_a1 = high
delay_1uS ( 2000 )
end loop
for 3 loop
pin_a1 = low
delay_1uS ( 2000 )
end loop
end loop
for 500 loop
pin_a1 = high
delay_1uS ( 2000 )
pin_a1 = low
delay_1uS ( 2000 )
end loop
end loop
end procedure
forever loop -- MAIN loop
wiebeltoon ( 60 )
delay_1S ( 3 )
di da da di
pauze
di da
pauze
da da di di di
pauze
di di da di
pauze
di da di di
pauze
da di di da di
pauze
di da da da
delay_1S ( 3 )
end loop
