"WaitSpace"[REP(98 QKEY)UNTIL(IDLE)REP]
"WaitAnyKey"[#IN #2]
"Wait"[CLS "Press SPACE to start..."$OUTNL WaitSpace "Starting..."$OUTNL]
"SetStereo"[STEREO]
"BoxOfStars"[5FOR(5FOR("*"$OUT)FORNL)FORNL]
"RangeCheck"[#11 5 #>= #12 10 #<= AND IF("In range"$OUT)ELSE("Out of range"$OUT)IF]
"RUN"
[READY 60=T SCORE 32=L K()K 0 TUNING 6=. 40'L
1 P(3 VOICES
%1 CHANNEL 0 SetStereo "StringLib-Pluck"CHANNELVOICE
1 VOICE 1 CHANNEL 0 SetStereo "StringLib-Pluck"CHANNELVOICE
2 VOICE 2 CHANNEL 0 SetStereo "StringLib-Pluck"CHANNELVOICE
3 VOICE 3 CHANNEL 0 SetStereo "StringLib-Pluck"CHANNELVOICE
48,.C(4,.E.G).D(4,.+F.A)^;48,.E(4,.G.B).F(4,.A.C).G(4,.B.D)^;
.A(4,.C.E).B(4,.D.+F)^;.C(4,.E.G)^;)P
Wait BoxOfStars
GO]