LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032771. :SYSTEM-TYPE :LOGICAL :VERSION 3. :TYPE "LISP" :NAME "PLAY-MUSE-FILES" :DIRECTORY ("REL3-PUBLIC" "PUBLIC" "MUSIC-DEMO") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-PUBLIC\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2755625580. :AUTHOR "REL3" :LENGTH-IN-BYTES 4203. :LENGTH-IN-BLOCKS 5. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (format t "~% STAIRS")(pmuse 'stairs :key-adj -47 :speed 90 :no-articulation t      :pathname "SYS:PUBLIC.music;stairs.muse" :select-voices '(0 1 2))(format t "~% STAIRS1")(pmuse 'stairs1 :key-adj -47 :speed 90 :no-articulation t      :pathname "SYS:PUBLIC.music;stairs.muse" :select-voices '(1 3 5))(format t "~% STAIRS2")(pmuse 'stairs2 :key-adj -47 :speed 90 :no-articulation t      :pathname "SYS:PUBLIC.music;stairs.muse" :select-voices '(0 2 4))(format t "~% HAYDN88A")(pmuse 'haydn88a :key-adj -10 :speed 150 :no-articulation t      :pathname "SYS:PUBLIC.music;haydn88a.muse")(format t "~% HAYDN88B")(pmuse 'haydn88b :key-adj -10 :speed 150 :no-articulation t      :pathname "SYS:PUBLIC.music;haydn88b.muse")(format t "~% HAYDN88C")(pmuse 'haydn88c :key-adj -10 :speed 150 :no-articulation t      :pathname "SYS:PUBLIC.music;haydn88c.muse")(format t "~% BOUREE")(pmuse 'bouree :key-adj -47 :speed 350 :no-articulation t      :pathname "SYS:PUBLIC.music;bouree.muse")(format t "~% DOCS1")(pmuse 'docs1 :key-adj -47 :speed 300 :no-articulation t      :pathname "SYS:PUBLIC.music;docs.muse" :select-voices '(0 2 4))(format t "~% DOCS2")(pmuse 'docs2 :key-adj -47 :speed 300 :no-articulation t      :pathname "SYS:PUBLIC.music;docs.muse" :select-voices '(0 2 4))(format t "~% BACH-LITTLE")(pmuse 'bach-little :key-adj -47 :speed 20 :no-articulation t      :pathname "SYS:PUBLIC.music;bach-little.muse")(format t "~% MELON1")(pmuse 'melon1 :key-adj -60 :speed 300 :no-articulation t      :pathname "SYS:PUBLIC.music;melon.muse" :select-voices '(0 1 2))(format t "~% MELON2")(pmuse 'melon2 :key-adj -60 :speed 300 :no-articulation t      :pathname "SYS:PUBLIC.music;melon.muse" :select-voices '(3 4 5))(format t "~% BACH-PRELUDE1")(pmuse 'bach-prelude1 :key-adj -47 :speed 300 :no-articulation t      :pathname "SYS:PUBLIC.music;bach-prelude1.muse")(format t "~% BACH-PRELUDE6")(pmuse 'bach-prelude6 :key-adj -47 :speed 190 :no-articulation t      :pathname "SYS:PUBLIC.music;bach-prelude6.muse")(format t "~% PRUDENCE")(pmuse 'prudence :key-adj 0 :speed 190 :no-articulation t      :pathname "SYS:PUBLIC.music;prudence.muse.")(format t "~% JUDE")(pmuse 'jude :key-adj -47 :speed 28 :no-articulation t      :pathname "SYS:PUBLIC.music;jude.muse")(format t "~% RULEBR")(pmuse 'rulebr :key-adj -47 :speed 200 :no-articulation t      :pathname "SYS:PUBLIC.music;rulebr.muse")(format t "~% SC282A")(pmuse 'sc282a :key-adj -47 :speed 60 :no-articulation t      :pathname "SYS:PUBLIC.music;sc282.muse"  :select-voices '(0 2 4))(format t "~% SC282B")(pmuse 'sc282b :key-adj -47 :speed 60 :no-articulation t      :pathname "SYS:PUBLIC.music;sc282.muse"  :select-voices '(1 2 5))(format t "~% SHEBA")(pmuse 'sheba :key-adj -47 :speed 180 :no-articulation t      :pathname "SYS:PUBLIC.music;sheba.muse" :select-voices 't)(format t "~% SHEILA")(pmuse 'sheila :key-adj -47 :speed 220 :no-articulation t      :pathname "SYS:PUBLIC.music;sheila.muse")(format t "~% SJ7")(pmuse 'sj7 :key-adj 0 :speed 100 :no-articulation t      :pathname "SYS:PUBLIC.music;sj7.muse")(format t "~% SUPER")(pmuse 'super :key-adj -47 :speed 120 :no-articulation t      :pathname "SYS:PUBLIC.music;super.muse" :select-voices 't)(format t "~% TRISTE")(pmuse 'triste :key-adj -47 :speed 120 :no-articulation t      :pathname "SYS:PUBLIC.music;triste.muse" :select-voices '(0 2 4))(format t "~% TULL")(pmuse 'tull :key-adj -20 :speed 50 :no-articulation t      :pathname "SYS:PUBLIC.music;tull.muse" :select-voices '(0 2 4))(format t "~% TURCA")(pmuse 'turca :key-adj -47 :speed 20 :no-articulation t      :pathname "SYS:PUBLIC.music;turca.muse" :select-voices 't)(format t "~% URYFUG")(pmuse 'uryfug :key-adj -47 :speed 200 :no-articulation t      :pathname "SYS:PUBLIC.music;uryfug.muse" :select-voices 't)(format t "~% VOY")(pmuse 'voy :key-adj -47 :speed 50 :no-articulation t      :pathname "SYS:PUBLIC.music;voy.muse" :select-voices 't)(format t "~% YESTERDAY")(pmuse 'yesterday :key-adj -47 :speed 10 :no-articulation t      :pathname "SYS:PUBLIC.music;yesterday.muse" :select-voices 't)to off-volume do(setq temp-list (cons (if (= (aref sound-envelope time) vol)  (list (aref name-array vol) t)  (aref name-array vol))      temp-list)))  (setq time-list (cons (list time (format nil "~d" time) temp-list)time-list)))    (loop for vol from 0 to off-volume do  (setq vol-list (cons (list (aref name-array vol) "")       vol-list)))    (setq temp-list (tv:multiple-choose "louder ->" time-list vol-list))    (if temp-list(loop for time from 0 below (array-dimension sound-envelope 0) do      (setf (aref sound-envelope time)    (parse-integer (string (cadar temp-list)) :start 1))      (setq temp-list (cdr temp-list))))))f str i) char))) i)))  (WHEN (PLUSP (aref *scale* char))    (tv:simple-beep (aref *scale* char) (* *speed* (- ii where))))  (setq where (1- ii))  (go L))))(defun play (thing)  (cond ((stringp thing) (play-string thing))((s