This commit is contained in:
parent
c1bd32fba4
commit
7ed6ac3d7d
1 changed files with 8 additions and 2 deletions
|
@ -33,11 +33,17 @@ F=(
|
||||||
L,
|
L,
|
||||||
N,
|
N,
|
||||||
I=0,
|
I=0,
|
||||||
|
K=0,
|
||||||
S=D=>D?S(D+(M[++I]==C)-(M[I]=='/')):I
|
S=D=>D?S(D+(M[++I]==C)-(M[I]=='/')):I
|
||||||
)=>{;for(;
|
)=>{;for(;
|
||||||
C=M[I++];
|
C=M[I++];
|
||||||
D=M[I],
|
D=M[I],
|
||||||
J=E=>E.indexOf(D)>=0,
|
J=E=>E.indexOf(D)>=0,
|
||||||
|
// start of comment
|
||||||
|
Q>21?K=1:
|
||||||
|
Q>20?(L=N=4,K=0):
|
||||||
|
// check comment mode
|
||||||
|
K?0:
|
||||||
Q>7?
|
Q>7?
|
||||||
// DECREMENT Q, and then...
|
// DECREMENT Q, and then...
|
||||||
(Q-=9)?
|
(Q-=9)?
|
||||||
|
@ -81,8 +87,8 @@ F=(
|
||||||
):
|
):
|
||||||
// change octave, or noop
|
// change octave, or noop
|
||||||
N-=C+12|0
|
N-=C+12|0
|
||||||
)Q='XCDEFGABR$JTSIQHWVU3.'.indexOf(C)},
|
)Q='XCDEFGABR$JTSIQHWVU3.\n;:'.indexOf(C)},
|
||||||
F('RU137V40'+H.value.toUpperCase())
|
F('\nU137V40'+H.value.toUpperCase())
|
||||||
">#play</BUTTON> <BUTTON onclick=H.A.close()>#stop
|
">#play</BUTTON> <BUTTON onclick=H.A.close()>#stop
|
||||||
|
|
||||||
<!-- snip -->
|
<!-- snip -->
|
||||||
|
|
Loading…
Add table
Reference in a new issue