19 lines
395 B
Plaintext
19 lines
395 B
Plaintext
10 rem musical scale
|
|
15 rem rosetta code
|
|
20 print chr$(147)
|
|
25 s=54272
|
|
30 for l=s to s+23:poke l,0:next
|
|
35 poke s+5,9:poke s+6,0
|
|
40 poke s+24,15
|
|
45 for i=1 to 8
|
|
50 read fq
|
|
60 ff=int(fq/.06097)
|
|
65 fh=int(ff/256):fl=ff-(256*fh)
|
|
70 poke s+1,fh:poke s,fl
|
|
75 poke s+4,17
|
|
80 for d=1 to 350:next
|
|
85 poke s+4,16
|
|
90 for d=1 to 25:next
|
|
95 next i
|
|
500 data 261.63,293.66,329.63,349.23,392,440,493.88,523.25
|