'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 LabelCall204 GOSUB LabelCall20F GOSUB LabelCall204 GOSUB LabelCall217 GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall21F GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall204 GOSUB LabelCall217 GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall21F GOSUB LabelCall22D GOSUB LabelCall23D GOSUB LabelCall22D GOSUB LabelCall24D GOSUB LabelCall22D GOSUB LabelCall23D GOSUB LabelCall22D GOSUB LabelCall25D GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall204 GOSUB LabelCall217 GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall21F GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall204 GOSUB LabelCall217 GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall21F GOSUB LabelCall22D GOSUB LabelCall23D GOSUB LabelCall22D GOSUB LabelCall24D GOSUB LabelCall22D GOSUB LabelCall23D GOSUB LabelCall22D GOSUB LabelCall25D GOSUB LabelCall273 GOSUB LabelCall280 GOSUB LabelCall28C GOSUB LabelCall299 GOSUB LabelCall273 GOSUB LabelCall2A5 GOSUB LabelCall273 GOSUB LabelCall2B7 GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall204 GOSUB LabelCall217 GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall21F GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall204 GOSUB LabelCall217 GOSUB LabelCall204 GOSUB LabelCall20F GOSUB LabelCall21F FOR i = 1 TO 2 GOSUB LabelCall2C9 GOSUB LabelCall2D8 GOSUB LabelCall2C9 GOSUB LabelCall2E7 GOSUB LabelCall2C9 GOSUB LabelCall2D8 GOSUB LabelCall2F3 GOSUB LabelCall303 GOSUB LabelCall2F3 GOSUB LabelCall313 NEXT i GOSUB LabelCall22D GOSUB LabelCall23D GOSUB LabelCall22D GOSUB LabelCall24D GOSUB LabelCall22D GOSUB LabelCall23D GOSUB LabelCall22D GOSUB LabelCall25D LOOP LabelCall204: 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 LabelCall20F: 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 LabelCall217: 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 LabelCall21F: 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 LabelCall22D: 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 LabelCall23D: 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 LabelCall24D: 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 LabelCall25D: 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 LabelCall273: 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 LabelCall280: 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 LabelCall28C: 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 LabelCall299: 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 LabelCall2A5: 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 LabelCall2B7: 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 LabelCall2C9: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O2" 'Octave 2 PLAY "C" PLAY "O0" 'Octave 0 PLAY "C" PLAY "O1" 'Octave 1 PLAY "B" PLAY "O2" 'Octave 2 PLAY "C.D.D+.D.C." PLAY "O1" 'Octave 1 PLAY "G." RETURN LabelCall2D8: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "G+" PLAY "O0" 'Octave 0 PLAY "C" PLAY "O1" 'Octave 1 PLAY "G+G+.B.G." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "L8" 'Note length 1/8 PLAY "P8." RETURN LabelCall2E7: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "G+." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "G+." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "G." PLAY "O0" 'Octave 0 PLAY "P16." PLAY "L8" 'Note length 1/8 PLAY "P8." RETURN LabelCall2F3: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "F" PLAY "O0" 'Octave 0 PLAY "C" PLAY "O1" 'Octave 1 PLAY "GG+.G." PLAY "L8" 'Note length 1/8 PLAY "F." PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "F." RETURN LabelCall303: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "G" PLAY "O0" 'Octave 0 PLAY "C" PLAY "O1" 'Octave 1 PLAY "G+B.G+." PLAY "L8" 'Note length 1/8 PLAY "G." PLAY "L16" 'Note length 1/16 PLAY "O0" 'Octave 0 PLAY "P16." PLAY "O1" 'Octave 1 PLAY "C." RETURN LabelCall313: PLAY "MN" 'Normal PLAY "L16" 'Note length 1/16 PLAY "O1" 'Octave 1 PLAY "G" PLAY "O0" 'Octave 0 PLAY "C" PLAY "O1" 'Octave 1 PLAY "G+B.G+.G.F.D+.D." PLAY "L8" 'Note length 1/8 PLAY "C." PLAY "L16" 'Note length 1/16 PLAY "C." PLAY "O0" 'Octave 0 PLAY "P16.P16.P16." PLAY "C." PLAY "O0" 'Octave 0 PLAY "P16.P16.P16." PLAY "C." PLAY "O0" 'Octave 0 PLAY "P16.P16.P16." PLAY "C." PLAY "O0" 'Octave 0 PLAY "P16." RETURN Quit: