ウクレレ用ストロボチューナー

こちらの作例をパクろうと思ったのですが、
AVR ストロボ式ギターチューナー S.O.Sモドキ

うまくマネできなくて「何の成果も得られませんでした」
こんなきれいに残像が割れませんでした。
（一応、チューニングが合ってくると残像が小さくなる。。。ような気がするのですが）
IchigoJamでもできると思うのだけれども、自分のプログラムがどこか間違ってる気がします
一応　やったところまでの作業メモ

回路

OUT2 LED (負論理　アクティブロー）
OUT1 LED （正論理　アクティブハイ）

使い方

上記動画を参照
ボタンを押すと、G -> C -> E -> A -> OFF とモードが変わります。
（モード変更時にその高さの音が鳴ります）

プログラム

10 n=0  :rem PWMは0.01ミリ秒単位で周期を指定

11 [0]=2551 :rem G 100000/391.99 Hz *10

12 [1]=3822 :rem C 100000/261.62 Hz *10

13 [2]=3296 :rem E 100000/329.63 Hz *10

14 [3]=2272 :rem A 100000/440    Hz *10

20 play"L4G":Q=[n]

30 Q=[n]:pwm 2,Q*2+Q/2,Q*3

40 pwm 3,Q/2,Q*3

50 if btn()then n=(n+1):gosub 100+n*10 :wait(60):else wait(10):goto50

60 goto30

100 play "G":return

110 play "C":return

120 play "E":return

130 play "A":return

140 led 0:out 2,1:out 3,0:play"L16GCEAR":wait(30)

150 if btn() then play "L4G":n=0:return:else goto 150