'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 "T112MF" 'Mode foreground DO GOSUB LabelCall1BA FOR i = 1 TO 2 GOSUB LabelCall1C9 NEXT i GOSUB LabelCall1D6 GOSUB LabelCall1ED GOSUB LabelCall1ED GOSUB LabelCall1FA GOSUB LabelCall210 GOSUB LabelCall21F GOSUB LabelCall210 GOSUB LabelCall22E GOSUB LabelCall23D GOSUB LabelCall24C GOSUB LabelCall23D GOSUB LabelCall25B GOSUB LabelCall152 GOSUB LabelCall176 GOSUB LabelCall152 GOSUB LabelCall17E GOSUB LabelCall186 GOSUB LabelCall1AA GOSUB LabelCall186 GOSUB LabelCall1B2 FOR i = 1 TO 3 GOSUB LabelCall1BA NEXT i LOOP LabelCall152: PLAY "MN" 'Normal PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "G-.G-." PLAY "ML" 'Legato PLAY "L16" 'Note length 1/16 PLAY "G-" PLAY "MN" 'Normal PLAY "G-EG-.G." PLAY "L4" 'Note length 1/4 PLAY "G-." PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O2" 'Octave 2 PLAY "D.G-.D." PLAY "L8" 'Note length 1/8 PLAY "O1" 'Octave 1 PLAY "A." PLAY "O2" 'Octave 2 PLAY "E." PLAY "L16" 'Note length 1/16 PLAY "E." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O2" 'Octave 2 PLAY "D." PLAY "L16" 'Note length 1/16 PLAY "E.G-." PLAY "L4" 'Note length 1/4 PLAY "D." RETURN LabelCall176: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "A." PLAY "O2" 'Octave 2 PLAY "D.E." RETURN LabelCall17E: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O2" 'Octave 2 PLAY "C.D.D+." RETURN LabelCall186: PLAY "MN" 'Normal PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "G-.G-." PLAY "ML" 'Legato PLAY "L16" 'Note length 1/16 PLAY "G-" PLAY "MN" 'Normal PLAY "G-D+G-.G." PLAY "L4" 'Note length 1/4 PLAY "G-." PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O2" 'Octave 2 PLAY "D+.G-.D+." PLAY "L8" 'Note length 1/8 PLAY "C.D+." PLAY "L16" 'Note length 1/16 PLAY "D+." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O2" 'Octave 2 PLAY "D+." PLAY "L16" 'Note length 1/16 PLAY "G-.D+." PLAY "L4" 'Note length 1/4 PLAY "D." RETURN LabelCall1AA: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O2" 'Octave 2 PLAY "C.D.D+." RETURN LabelCall1B2: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "A.G.F." RETURN LabelCall1BA: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "A.P16.A.P16.A." PLAY "L32" 'Note length 1/32 PLAY "P32.A." PLAY "L16" 'Note length 1/16 PLAY "B." PLAY "O1" 'Octave 1 PLAY "D-." RETURN LabelCall1C9: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 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 "A.B." PLAY "L4" 'Note length 1/4 PLAY "A." RETURN LabelCall1D6: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 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 "A.B.A.G.A.G.G-." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "E." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "G-." PLAY "O2" 'Octave 2 PLAY "D-.D.E." RETURN LabelCall1ED: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "D." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O2" 'Octave 2 PLAY "D+." PLAY "L16" 'Note length 1/16 PLAY "G-.G." PLAY "L4" 'Note length 1/4 PLAY "G-." RETURN LabelCall1FA: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "D." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O2" 'Octave 2 PLAY "D+." PLAY "L16" 'Note length 1/16 PLAY "G-.G.G-.D+.G-.D+.D." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O2" 'Octave 2 PLAY "C." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "L8" 'Note length 1/8 PLAY "O2" 'Octave 2 PLAY "D." PLAY "O0" 'Octave 0 PLAY "P8." RETURN LabelCall210: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "G-." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "A." PLAY "L16" 'Note length 1/16 PLAY "G-.A.G.B.A." PLAY "O0" 'Octave 0 PLAY "P16." RETURN LabelCall21F: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "G-." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "A." PLAY "L16" 'Note length 1/16 PLAY "G-.A.G.E.D-." PLAY "O0" 'Octave 0 PLAY "P16." RETURN LabelCall22E: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "D." PLAY "L32" 'Note length 1/32 PLAY "D." PLAY "O1" 'Octave 1 PLAY "B." PLAY "L16" 'Note length 1/16 PLAY "A.G.G-." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "L8" 'Note length 1/8 PLAY "P8." RETURN LabelCall23D: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "D." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O2" 'Octave 2 PLAY "D+." PLAY "L16" 'Note length 1/16 PLAY "D.G-.D.G.G-." PLAY "O0" 'Octave 0 PLAY "P16." RETURN LabelCall24C: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "D." PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O2" 'Octave 2 PLAY "D+." PLAY "L16" 'Note length 1/16 PLAY "D.G-.D+.D.C." PLAY "O0" 'Octave 0 PLAY "P16." RETURN LabelCall25B: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "A+." PLAY "L32" 'Note length 1/32 PLAY "A+.A." PLAY "L16" 'Note length 1/16 PLAY "G.G-.D." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "L8" 'Note length 1/8 PLAY "P8." RETURN Quit: