'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 "T68MF" 'Mode foreground DO FOR i = 1 TO 2 GOSUB LabelCall138 GOSUB LabelCall138 GOSUB LabelCall138 GOSUB LabelCall138 GOSUB LabelCall15C NEXT i GOSUB LabelCall180 GOSUB LabelCall19C GOSUB LabelCall180 GOSUB LabelCall1A8 GOSUB LabelCall1B4 GOSUB LabelCall1B4 GOSUB LabelCall1D8 GOSUB LabelCall1B4 GOSUB LabelCall217 GOSUB LabelCall217 GOSUB LabelCall23B LOOP LabelCall138: PLAY "MN" 'Normal PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "A.P32." PLAY "O1" 'Octave 1 PLAY "C." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "D." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "C.F." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "F." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "F.E.D.C.D." PLAY "O0" 'Octave 0 PLAY "A.P32." PLAY "O1" 'Octave 1 PLAY "C." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "D." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "C.F." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "F." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "F.E." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "F." PLAY "O0" 'Octave 0 PLAY "P32." RETURN LabelCall15C: PLAY "MN" 'Normal PLAY "L32" 'Note length 1/32 PLAY "O1" 'Octave 1 PLAY "G.G.G.G.F." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "E.C." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "C." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "C.D.C.D.C.F.F.F.F.E." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "C." PLAY "O0" 'Octave 0 PLAY "A+.P32.A+.P32.A+." PLAY "O1" 'Octave 1 PLAY "C." PLAY "O0" 'Octave 0 PLAY "A+." PLAY "O1" 'Octave 1 PLAY "C." PLAY "O0" 'Octave 0 PLAY "A+." RETURN LabelCall180: PLAY "MN" 'Normal PLAY "L32" 'Note length 1/32 PLAY "O1" 'Octave 1 PLAY "D.D.D.D.D-." PLAY "O0" 'Octave 0 PLAY "P32.A+.A.P32.A.P32.A.A+.A.A+.A." PLAY "O1" 'Octave 1 PLAY "D.D.D.D.D-." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "D.E." RETURN LabelCall19C: PLAY "MN" 'Normal PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "E." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "E.F.E.D.D-." RETURN LabelCall1A8: PLAY "MN" 'Normal PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "E." PLAY "O0" 'Octave 0 PLAY "P32." PLAY "O1" 'Octave 1 PLAY "E.F.G.F.E." RETURN LabelCall1B4: PLAY "MN" 'Normal PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "A.A+." PLAY "O1" 'Octave 1 PLAY "D-.D.E.F.G.F.E.F.E.D.D-." PLAY "O0" 'Octave 0 PLAY "A+.A.G.A.A+." PLAY "O1" 'Octave 1 PLAY "D-.D.D-." PLAY "O0" 'Octave 0 PLAY "A+.A.A+.A." PLAY "O1" 'Octave 1 PLAY "A." PLAY "O2" 'Octave 2 PLAY "A." PLAY "O1" 'Octave 1 PLAY "A." PLAY "O0" 'Octave 0 PLAY "A." PLAY "O1" 'Octave 1 PLAY "A." PLAY "O2" 'Octave 2 PLAY "A." PLAY "O1" 'Octave 1 PLAY "A." RETURN LabelCall1D8: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "A." PLAY "L32" 'Note length 1/32 PLAY "A.A+." PLAY "L16" 'Note length 1/16 PLAY "A.A+." PLAY "L32" 'Note length 1/32 PLAY "O2" 'Octave 2 PLAY "D.D.D-.D." PLAY "L8" 'Note length 1/8 PLAY "O1" 'Octave 1 PLAY "D-." PLAY "L16" 'Note length 1/16 PLAY "A." PLAY "L32" 'Note length 1/32 PLAY "A.A+." PLAY "L16" 'Note length 1/16 PLAY "A.A+." PLAY "L32" 'Note length 1/32 PLAY "O2" 'Octave 2 PLAY "D.D-." PLAY "O1" 'Octave 1 PLAY "A+.G." PLAY "L8" 'Note length 1/8 PLAY "A." PLAY "L16" 'Note length 1/16 PLAY "A." PLAY "L32" 'Note length 1/32 PLAY "A.A+." PLAY "L16" 'Note length 1/16 PLAY "A.A+." PLAY "L32" 'Note length 1/32 PLAY "O2" 'Octave 2 PLAY "D.D.D-.D." PLAY "L8" 'Note length 1/8 PLAY "D-." PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "A." PLAY "L32" 'Note length 1/32 PLAY "A.A+." PLAY "L16" 'Note length 1/16 PLAY "A.A+." PLAY "L32" 'Note length 1/32 PLAY "O2" 'Octave 2 PLAY "F.E.D.D-." PLAY "L8" 'Note length 1/8 PLAY "O1" 'Octave 1 PLAY "A." RETURN LabelCall217: PLAY "MN" 'Normal PLAY "L32" 'Note length 1/32 PLAY "O0" 'Octave 0 PLAY "A.A+." PLAY "O1" 'Octave 1 PLAY "D-.D.E.E.F.E.A.A+." PLAY "O2" 'Octave 2 PLAY "D-.D.E.E.F.E.A.A+.A.A+.A." PLAY "O3" 'Octave 3 PLAY "D.D-." PLAY "O2" 'Octave 2 PLAY "A+." PLAY "O3" 'Octave 3 PLAY "A." PLAY "O2" 'Octave 2 PLAY "A." PLAY "O1" 'Octave 1 PLAY "A." PLAY "O2" 'Octave 2 PLAY "A." PLAY "O3" 'Octave 3 PLAY "A." PLAY "O2" 'Octave 2 PLAY "A." PLAY "O1" 'Octave 1 PLAY "A." PLAY "O2" 'Octave 2 PLAY "A." RETURN LabelCall23B: PLAY "MN" 'Normal PLAY "L32" 'Note length 1/32 PLAY "O3" 'Octave 3 PLAY "A." PLAY "O2" 'Octave 2 PLAY "A." PLAY "O1" 'Octave 1 PLAY "A." PLAY "O2" 'Octave 2 PLAY "A.A+." PLAY "O1" 'Octave 1 PLAY "A+." PLAY "O0" 'Octave 0 PLAY "A+." PLAY "O1" 'Octave 1 PLAY "A+." PLAY "O3" 'Octave 3 PLAY "D-." PLAY "O2" 'Octave 2 PLAY "D-." PLAY "O1" 'Octave 1 PLAY "D-." PLAY "O2" 'Octave 2 PLAY "D-." PLAY "O3" 'Octave 3 PLAY "D." PLAY "O2" 'Octave 2 PLAY "D." PLAY "O1" 'Octave 1 PLAY "D." PLAY "O2" 'Octave 2 PLAY "D." PLAY "O3" 'Octave 3 PLAY "E.D.D-." PLAY "O2" 'Octave 2 PLAY "A+.A.G.F.E.D.D-." PLAY "O1" 'Octave 1 PLAY "A+.A.G.F.E." PLAY "O0" 'Octave 0 PLAY "A+." RETURN Quit: