{   Computer Systems Research Institute
    University of Toronto

    ConEuc MS-DOS  Music Module Interface  V1.10
    Author: James R. Cordy
    Date:   June 1984  (Rev Nov 1985)

    Copyright (C) 1984, 1985  The University of Toronto

    This module provides a high-level interface to the
    sound capabilities of the IBM-PC and TI PRO.
}

var Music : external module
    exports (Play, Ready)
    { Play parameters:
	'<' :	Down one octave.  There are 7 octaves, 1 through 7.
		Initially octave 4.
	'>' :	Up one octave.
	'a', 'b', 'c', 'd', 'e', 'f', 'g' ['+', '-'] :	
		Play the note in the current octave, for the current
		duration.  An optional '+' or '-' following the note
		letter means sharp or flat, respectively.
	'p' :	Pause (rest) for current duration.
	'1', '2', '4', '8', '6' :
		Set the duration.  Whole notes are 1, sixteenth notes
		are 6.  Initially duration 4 (quarter notes).
    }
    procedure Play (note : packed array 1..parameter of char) = external
    { ready returns true if the previous note is finished }
    function Ready returns result : Boolean = external
end module
