"Wait"["Press a key to start"$OUT#IN#2NL "Starting..."$OUTNL]
"WaitStop"[]
"WaitStop"["Press CTRL to stop"$OUT REP(4 QKEY)UNTIL(7 QKEY)UNTIL(IDLE)REP NL "Stopped"$OUT STOP]
"Setup"[MIDIV 1MIDIC MIDICHANNEL 1MIDIPROGRAM]
"Pan"[1=MIDIC]
%"Setup"[1VOICE CHANNEL "StringLib-Pluck"CHANNELVOICE]
%"Pan"[64 #12 #- STEREO]
"RUN"
[SCORE 48,280=T 1=L K()K 0=.
1 P(1VOICES 1Setup 127Pan 120 80+L 12FOR(0:.A.E.d.G.e)FOR 120 80-L 16FOR(0:.A.E.d.G.e)FOR^)P
2 P(WaitStop)P
3 P(1VOICES 2Setup 64Pan  120 80+L 12FOR(1:.E.d.G.e.a)FOR 120 80-L 16FOR(1:.E.d.G.e.a)FOR^)P
4 P(1VOICES 3Setup 127Pan 120 80+L 12FOR(1:.D.G.e.a.E)FOR 120 80-L 16FOR(1:.D.G.e.a.E)FOR^)P
CLS Wait GO]