'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 FOR i = 1 TO 2 PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "G." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O2" 'Octave 2 PLAY "C." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "B." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "G+.B." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "B." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "B.G+.B.G.E.G." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O2" 'Octave 2 PLAY "C." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "B." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "G+.B." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "B." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "B." PLAY "O2" 'Octave 2 PLAY "C.D.C." PLAY "O1" 'Octave 1 PLAY "B." NEXT i FOR i = 1 TO 3 PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "G.G.G." PLAY "O1" 'Octave 1 PLAY "G." PLAY "O2" 'Octave 2 PLAY "G.G.G." PLAY "O1" 'Octave 1 PLAY "G." PLAY "O2" 'Octave 2 PLAY "G.G.G." PLAY "O1" 'Octave 1 PLAY "G." PLAY "O2" 'Octave 2 PLAY "G+.B.G+.F." NEXT i PLAY "G.G.G." PLAY "O1" 'Octave 1 PLAY "G." PLAY "O2" 'Octave 2 PLAY "G.G.G." PLAY "O1" 'Octave 1 PLAY "G." PLAY "O2" 'Octave 2 PLAY "G.G.G." PLAY "O1" 'Octave 1 PLAY "G." PLAY "O2" 'Octave 2 PLAY "G+.B." PLAY "O3" 'Octave 3 PLAY "C.D." LOOP Quit: