'Press F5 to play and Escape to stop. Try enabling Trace in the debug menu! KEY 15, CHR$(&H0) + CHR$(1) ON KEY(15) GOSUB Quit KEY(15) ON PLAY "T122MF" 'Mode foreground DO GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall1E7 GOSUB LabelCall1FA GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall202 GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall1E7 GOSUB LabelCall1FA GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall202 GOSUB LabelCall210 GOSUB LabelCall220 GOSUB LabelCall210 GOSUB LabelCall230 GOSUB LabelCall210 GOSUB LabelCall220 GOSUB LabelCall210 GOSUB LabelCall240 GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall1E7 GOSUB LabelCall1FA GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall202 GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall1E7 GOSUB LabelCall1FA GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall202 GOSUB LabelCall210 GOSUB LabelCall220 GOSUB LabelCall210 GOSUB LabelCall230 GOSUB LabelCall210 GOSUB LabelCall220 GOSUB LabelCall210 GOSUB LabelCall240 GOSUB LabelCall27D GOSUB LabelCall28A GOSUB LabelCall296 GOSUB LabelCall2A3 GOSUB LabelCall27D GOSUB LabelCall2AF GOSUB LabelCall27D GOSUB LabelCall2C1 GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall1E7 GOSUB LabelCall1FA GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall202 GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall1E7 GOSUB LabelCall1FA GOSUB LabelCall1E7 GOSUB LabelCall1F2 GOSUB LabelCall202 GOSUB LabelCall256 GOSUB LabelCall256 GOSUB LabelCall210 GOSUB LabelCall220 GOSUB LabelCall210 GOSUB LabelCall230 GOSUB LabelCall210 GOSUB LabelCall220 GOSUB LabelCall210 GOSUB LabelCall240 LOOP LabelCall1E7: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "B." PLAY "O2" 'Octave 2 PLAY "C.D.D+." PLAY "L8" 'Note length 1/8 PLAY "D.C." RETURN LabelCall1F2: PLAY "MN" 'Normal PLAY "L8" 'Note length 1/8 PLAY "O1" 'Octave 1 PLAY "G+.B." PLAY "L4" 'Note length 1/4 PLAY "G." RETURN LabelCall1FA: PLAY "MN" 'Normal PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "F.D+." PLAY "L4" 'Note length 1/4 PLAY "D." RETURN LabelCall202: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "G.G+." PLAY "O2" 'Octave 2 PLAY "C." PLAY "O1" 'Octave 1 PLAY "A+." PLAY "L8" 'Note length 1/8 PLAY "G+.F." PLAY "L4" 'Note length 1/4 PLAY "G." PLAY "O0" 'Octave 0 PLAY "P4." RETURN LabelCall210: PLAY "ML" 'Legato PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "C" PLAY "MN" 'Normal PLAY "CCC.C." PLAY "O1" 'Octave 1 PLAY "B." PLAY "O2" 'Octave 2 PLAY "C.D.D+." RETURN LabelCall220: PLAY "ML" 'Legato PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "C" PLAY "MN" 'Normal PLAY "CCC.C." PLAY "O1" 'Octave 1 PLAY "B.G+." PLAY "L8" 'Note length 1/8 PLAY "G." RETURN LabelCall230: PLAY "ML" 'Legato PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "C" PLAY "MN" 'Normal PLAY "CCC.C.F.D+." PLAY "L8" 'Note length 1/8 PLAY "D." RETURN LabelCall240: PLAY "ML" 'Legato PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "C" PLAY "MN" 'Normal PLAY "CCC.C." PLAY "O1" 'Octave 1 PLAY "F.G.G+.B.C." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "L8" 'Note length 1/8 PLAY "P8." PLAY "L4" 'Note length 1/4 PLAY "P4." RETURN LabelCall256: PLAY "MN" 'Normal PLAY "L8" 'Note length 1/8 PLAY "O1" 'Octave 1 PLAY "B.B." PLAY "L16" 'Note length 1/16 PLAY "B." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "G+." PLAY "L16" 'Note length 1/16 PLAY "B." PLAY "O2" 'Octave 2 PLAY "C." PLAY "L4" 'Note length 1/4 PLAY "O1" 'Octave 1 PLAY "B." PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "G.B.G." PLAY "L8" 'Note length 1/8 PLAY "F.G+." PLAY "L16" 'Note length 1/16 PLAY "G+." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "G+." PLAY "L16" 'Note length 1/16 PLAY "B.G+." PLAY "L4" 'Note length 1/4 PLAY "G." PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "F.G.G+." RETURN LabelCall27D: PLAY "MN" 'Normal PLAY "L4" 'Note length 1/4 PLAY "O2" 'Octave 2 PLAY "C." PLAY "L8" 'Note length 1/8 PLAY "O1" 'Octave 1 PLAY "B.G+." PLAY "L4" 'Note length 1/4 PLAY "G." PLAY "L8" 'Note length 1/8 PLAY "O0" 'Octave 0 PLAY "G.P8." RETURN LabelCall28A: PLAY "MN" 'Normal PLAY "L4" 'Note length 1/4 PLAY "O2" 'Octave 2 PLAY "C." PLAY "L8" 'Note length 1/8 PLAY "O1" 'Octave 1 PLAY "B.G." PLAY "O2" 'Octave 2 PLAY "D.C." PLAY "O1" 'Octave 1 PLAY "B." PLAY "O0" 'Octave 0 PLAY "P8." RETURN LabelCall296: PLAY "MN" 'Normal PLAY "L4" 'Note length 1/4 PLAY "O2" 'Octave 2 PLAY "D+." PLAY "L8" 'Note length 1/8 PLAY "D.C." PLAY "L4" 'Note length 1/4 PLAY "O1" 'Octave 1 PLAY "B." PLAY "L8" 'Note length 1/8 PLAY "O0" 'Octave 0 PLAY "G.P8." RETURN LabelCall2A3: PLAY "MN" 'Normal PLAY "L4" 'Note length 1/4 PLAY "O2" 'Octave 2 PLAY "D+." PLAY "L8" 'Note length 1/8 PLAY "D." PLAY "O1" 'Octave 1 PLAY "G." PLAY "O2" 'Octave 2 PLAY "F.D+.D." PLAY "O0" 'Octave 0 PLAY "P8." RETURN LabelCall2AF: PLAY "ML" 'Legato PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "F." PLAY "L16" 'Note length 1/16 PLAY "F" PLAY "MN" 'Normal PLAY "FD+" PLAY "L8" 'Note length 1/8 PLAY "F.D+.D.D+.C." PLAY "O0" 'Octave 0 PLAY "P8." RETURN LabelCall2C1: PLAY "ML" 'Legato PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "F." PLAY "L16" 'Note length 1/16 PLAY "F" PLAY "MN" 'Normal PLAY "FD+" PLAY "L8" 'Note length 1/8 PLAY "F.D+.D." PLAY "O1" 'Octave 1 PLAY "G." PLAY "O2" 'Octave 2 PLAY "C." PLAY "O0" 'Octave 0 PLAY "P8." RETURN Quit: