;; interactive-assign.sal -- reading multiple values in score-gen ;; (c) 2008 by Roger B. Dannenberg begin with the-note, the-amplitude exec score-gen( save: quote(interactive-assign), score-len: 3, ioi: .5, dur: .35, pre: progn(format(#t, "Please enter a note number: "), setf(the-note, read()), format(#t, "Please enter an amplitude: "), setf(the-amplitude, read())), pitch: the-note, vel: the-amplitude) end exec score-print(interactive-assign)