"Phrase1"[0:C(G)C(G)|C(G)C(G)|]
"Phrase2"[0:E(C)E(C)|E(C)E(C)|]
"Repeat1"[120 4 7+MIDIC 127 4 10+MIDIC &2000 32+MIDIP
2FOR(Phrase1)FOR 
120 4 7-MIDIC 127 4 10-MIDIC &2000 32-MIDIP
2FOR(Phrase1)FOR]
"Repeat2"[120 4 7-MIDIC 127 4 10+MIDIC &2000 32-MIDIP
2FOR(Phrase2)FOR 
120 4 7+MIDIC 127 4 10-MIDIC &2000 32+MIDIP
2FOR(Phrase2)FOR]
"RUN"
[CLS SCORE 48,120=T 64=L K()K 0 BAR
1 P(2VOICES MIDIV 1MIDILINE 2MIDICHANNEL 1MIDIPROGRAM
7 MIDIC 10 MIDIC MIDIP
7 7=MIDIC 0 10=MIDIC &2000=MIDIP
REP(12,Repeat1)REP^;)P
2 P(2VOICES MIDIV 1MIDILINE 1MIDICHANNEL 1MIDIPROGRAM
7 MIDIC 10 MIDIC MIDIP
127 7=MIDIC 0 10=MIDIC &2000=MIDIP 
REP(12,Repeat2)REP^;)P
GO]