Anonymous user
Audio frequency generator: Difference between revisions
→{{header|Julia}}: add Locomotive Basic version
(julia example) |
(→{{header|Julia}}: add Locomotive Basic version) |
||
Line 238:
</lang>
=={{header|Locomotive Basic}}==
<lang locobasic>10 mode 1:input "Enter initial frequency in Hz";f:cls
20 if sq(2)<128 then sound 2,62500/f,100
30 a$=inkey$
40 if a$="h" then f=f+10
50 if a$="l" then f=f-10
60 if a$="q" then end
70 locate 1,1:print f"Hz"
80 print:print " Use h and l to adjust frequency;":print " q to quit."
90 goto 20</lang>
=={{header|Perl}}==
| |||