'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 "T134MF" 'Mode foreground DO GOSUB LabelCall11B GOSUB LabelCall144 GOSUB LabelCall11B GOSUB LabelCall163 GOSUB LabelCall182 GOSUB LabelCall199 GOSUB LabelCall182 GOSUB LabelCall1AE LOOP LabelCall11B: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "A+." PLAY "O2" 'Octave 2 PLAY "C.D.D+.F.G.A.A+." PLAY "O3" 'Octave 3 PLAY "C.D.D+.F.G.A.A+.A.A+.A.G.F.D+.D.C." PLAY "O2" 'Octave 2 PLAY "A+." PLAY "L8" 'Note length 1/8 PLAY "O3" 'Octave 3 PLAY "D-." PLAY "O1" 'Octave 1 PLAY "D-.D-." PLAY "O0" 'Octave 0 PLAY "D-." PLAY "L16" 'Note length 1/16 PLAY "O3" 'Octave 3 PLAY "D-.C." PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "A+." PLAY "O3" 'Octave 3 PLAY "D-." PLAY "O0" 'Octave 0 PLAY "P8." PLAY "O3" 'Octave 3 PLAY "C." RETURN LabelCall144: PLAY "MN" 'Normal PLAY "L8" 'Note length 1/8 PLAY "O3" 'Octave 3 PLAY "C.C." PLAY "L16" 'Note length 1/16 PLAY "F.D+." PLAY "L8" 'Note length 1/8 PLAY "D." PLAY "O1" 'Octave 1 PLAY "D.D." PLAY "L16" 'Note length 1/16 PLAY "O3" 'Octave 3 PLAY "D.C." PLAY "O2" 'Octave 2 PLAY "A+." PLAY "O3" 'Octave 3 PLAY "D.C." PLAY "O2" 'Octave 2 PLAY "A+." PLAY "L8" 'Note length 1/8 PLAY "O3" 'Octave 3 PLAY "D." PLAY "O1" 'Octave 1 PLAY "D.D." PLAY "L16" 'Note length 1/16 PLAY "A.A.A+.A+." PLAY "O2" 'Octave 2 PLAY "C.C." RETURN LabelCall163: PLAY "MN" 'Normal PLAY "L8" 'Note length 1/8 PLAY "O3" 'Octave 3 PLAY "C.C." PLAY "L16" 'Note length 1/16 PLAY "D-.C." PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "A+." PLAY "O1" 'Octave 1 PLAY "D.D." PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "F.G.A+.F.G.A+." PLAY "L8" 'Note length 1/8 PLAY "A+." PLAY "O1" 'Octave 1 PLAY "D.D." PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "A+.A.G.F.G.A." RETURN LabelCall182: PLAY "ML" 'Legato PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "A+." PLAY "MN" 'Normal PLAY "A+.A." PLAY "ML" 'Legato PLAY "G." PLAY "MN" 'Normal PLAY "G.F." PLAY "ML" 'Legato PLAY "D+." PLAY "MN" 'Normal PLAY "D+.D." PLAY "ML" 'Legato PLAY "C." PLAY "MN" 'Normal PLAY "C." PLAY "O1" 'Octave 1 PLAY "A+." RETURN LabelCall199: PLAY "ML" 'Legato PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "D+." PLAY "MN" 'Normal PLAY "D+.D." PLAY "ML" 'Legato PLAY "C." PLAY "MN" 'Normal PLAY "C." PLAY "O1" 'Octave 1 PLAY "A+." PLAY "ML" 'Legato PLAY "O2" 'Octave 2 PLAY "C." PLAY "MN" 'Normal PLAY "C." PLAY "O0" 'Octave 0 PLAY "P8.P8." PLAY "O1" 'Octave 1 PLAY "A.A." RETURN LabelCall1AE: PLAY "ML" 'Legato PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "C." PLAY "MN" 'Normal PLAY "C." PLAY "O0" 'Octave 0 PLAY "P8.P8." PLAY "O2" 'Octave 2 PLAY "D.C." PLAY "O1" 'Octave 1 PLAY "A+." PLAY "O2" 'Octave 2 PLAY "D.F." PLAY "L16" 'Note length 1/16 PLAY "A+." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "L8" 'Note length 1/8 PLAY "G.A." RETURN Quit: