playtest.mod

MODULE PlayTest;

	(********************************************************)
	(*							*)
	(*		Basic test of 3-part music		*)
	(*							*)
	(*  Programmer:		P. Moylan			*)
	(*  Last edited:	21 March 1995			*)
	(*  Status:		Working				*)
	(*							*)
	(********************************************************)

FROM Play3S IMPORT
    (* proc *)	Play;

(************************************************************************)

TYPE
    subscript = [0..191];
    MusicArray = ARRAY subscript OF SHORTCARD;

CONST
    TestData = MusicArray (
    			 1, 0, 0,  2, 0, 0,  3, 0, 0,  4, 0, 0,  5, 0, 0,
			 6, 0, 0,  7, 0, 0,  8, 0, 0,  9, 0, 0, 10, 0, 0,
			11, 0, 0, 12, 0, 0, 13, 0, 0, 14, 0, 0, 15, 0, 0,
			16, 0, 0, 17, 0, 0, 18, 0, 0, 19, 0, 0, 20, 0, 0,
			21, 0, 0, 22, 0, 0, 23, 0, 0, 24, 0, 0, 25, 0, 0,
			26, 0, 0, 27, 0, 0, 28, 0, 0, 29, 0, 0, 30, 0, 0,
			31, 0, 0, 32, 0, 0, 33, 0, 0, 34, 0, 0, 35, 0, 0,
			36, 0, 0, 37, 0, 0, 38, 0, 0, 39, 0, 0, 40, 0, 0,
			41, 0, 0, 42, 0, 0, 43, 0, 0, 44, 0, 0, 45, 0, 0,
			46, 0, 0, 47, 0, 0, 48, 0, 0, 49, 0, 0, 50, 0, 0,
			51, 0, 0, 52, 0, 0, 53, 0, 0, 54, 0, 0, 55, 0, 0,
			56, 0, 0, 57, 0, 0, 58, 0, 0, 59, 0, 0, 60, 0, 0,
			61, 0, 0, 62, 0, 0, 63, 0, 0, 255, 0, 0);

VAR Data: MusicArray;

(************************************************************************)

PROCEDURE RunTheTest;

    (* Plays some 3-part music. *)

    BEGIN
	Data := TestData;
	Play (Data);
    END RunTheTest;

(************************************************************************)
(*				MAIN PROGRAM				*)
(************************************************************************)

BEGIN
    RunTheTest;
END PlayTest.