| No076. - ピコカキコ講座（仮題） |
/* 2003パニック */
#OCTAVE REVERSE
$loop=16;
$b=@e1,0,24,0,0o1d;
$s=@e1,0,24,0,0o0g;
$cs=@e1,0,48,0,0o0d;
$h=@e1,0,4,40,0,0,0o0d;
$x{y}=/:r4%y:/r%y;
$a{b,c,d,e}=v6@5@w4>>%b/:$loop%e/:%d$x{%c}:/r1:/;
#WAV10 0,89ABCDEF FEDCBA98 76543210 01234567
T160
@5@w2l8q4@l12,24,,36>>/:$loop/:/:e>c
@5@w2ns-2l8q4@l12,24,,36>>/:$loop/:/:e>c
l32@10-0@e1,0,0,180,0>>v4q16/:$loop/:14cc+dd+eff+gg+gf+fed+dc+:/r1:/;
@10-0@e1,0,0,180,0l8v15/:$loop/:14c>c
$a{,b-,7,};$a{>,c,7,};$a{>,d,3,/:4r1:/};$a{>,e,3,/:4r1:/};
@7l16/:$loop/:v15$cs8@v100$s$b//:15$b$b$s$b:/://:11$b$b$s$b://:3$s8/r:/$s4/:4$s:/:/