LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032749. :SYSTEM-TYPE :LOGICAL :VERSION 2. :TYPE "MUSE" :NAME "DOCS" :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 2754070712. :AUTHOR "REL3" :LENGTH-IN-BYTES 9293. :LENGTH-IN-BLOCKS 10. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       WholeNote: 32Articulation: 1Marks: 256 688 448 1888 768 568 108TimeSig: 4 4KeyAdj: 0TimeAdj: 6000Divisor: 32Voices: 0 0 0 0 0 08: 45 1 1 1 1 18: 45 52 1 1 1 18: 45 52 49 1 1 17: 45 52 49 57 1 11: 1 52 49 57 1 17: 42 52 49 57 1 11: 42 1 49 57 1 17: 42 54 49 57 1 11: 42 54 1 57 1 17: 42 54 49 57 1 11: 42 54 49 1 1 17: 42 54 49 57 1 11: 1 54 49 57 1 17: 38 54 49 57 1 11: 38 1 49 57 1 17: 38 54 49 57 1 11: 38 54 1 57 1 17: 38 54 50 57 1 11: 38 54 50 1 1 17: 38 54 50 57 1 11: 1 54 50 57 1 17: 40 54 50 57 1 11: 40 1 50 57 1 17: 40 52 50 57 1 11: 40 52 1 57 1 18: 40 52 47 57 1 17: 40 52 47 56 1 11: 1 52 47 56 1 17: 45 52 47 56 1 11: 45 1 47 56 1 17: 45 52 47 56 1 11: 45 52 1 56 1 17: 45 52 49 56 1 11: 45 52 49 1 1 17: 45 52 49 57 1 11: 1 52 49 57 1 17: 42 52 49 57 1 11: 42 1 49 57 1 17: 42 54 49 57 1 11: 42 54 1 57 1 17: 42 54 49 57 1 11: 42 54 49 1 1 17: 42 54 49 57 1 11: 1 54 49 57 1 17: 38 54 49 57 1 11: 38 1 49 57 1 17: 38 54 49 57 1 11: 38 54 1 57 1 17: 38 54 50 57 1 11: 38 54 50 1 1 17: 38 54 50 57 1 11: 1 54 50 57 1 17: 40 54 50 57 1 11: 40 1 50 57 1 17: 40 52 50 57 1 11: 40 52 1 57 1 17: 40 52 47 57 1 11: 40 52 47 1 1 17: 40 52 47 56 1 11: 1 52 47 56 1 17: 45 52 47 56 1 11: 45 1 47 56 1 17: 45 52 47 56 1 11: 45 52 1 56 1 17: 45 52 49 56 1 11: 45 52 49 1 1 17: 45 52 49 1 64 11: 1 52 49 1 64 17: 42 52 49 1 61 11: 42 1 49 1 61 17: 42 1 49 1 61 591: 42 1 1 1 61 598: 42 1 49 1 1 577: 42 52 49 1 1 571: 1 52 49 1 1 577: 38 52 49 1 1 571: 38 52 49 1 1 17: 38 52 49 1 53 11: 38 52 1 1 53 18: 38 52 50 1 54 17: 38 52 50 1 54 571: 1 52 50 1 54 577: 40 52 50 1 54 571: 40 1 50 1 54 17: 40 52 50 1 59 11: 40 52 1 1 59 115: 40 52 47 1 59 11: 1 52 47 1 59 17: 45 52 47 1 59 11: 45 1 47 1 1 17: 45 52 47 1 1 11: 45 52 1 1 1 18: 45 52 49 1 1 17: 45 52 49 1 64 11: 1 52 49 1 64 17: 42 52 49 1 61 11: 42 1 49 1 61 17: 42 45 49 1 61 591: 42 45 1 1 61 5915: 42 45 49 1 1 571: 1 45 49 1 1 577: 40 45 49 52 1 571: 40 1 49 52 1 17: 40 47 49 52 1 11: 40 47 1 52 1 18: 40 47 44 52 1 17: 40 47 44 54 1 11: 1 47 44 54 1 17: 40 47 44 54 1 11: 40 1 44 1 1 17: 40 47 44 56 1 11: 40 47 1 56 1 115: 40 47 44 56 1 11: 1 47 44 1 1 17: 45 47 44 1 1 11: 45 1 44 1 1 17: 45 52 44 1 1 11: 45 52 1 1 1 18: 45 52 49 1 1 17: 45 52 49 1 64 11: 1 52 49 1 64 17: 42 52 49 1 61 11: 42 1 49 1 61 17: 42 1 49 1 61 591: 42 1 1 1 61 598: 42 1 49 1 1 577: 42 52 49 1 1 571: 1 52 49 1 1 577: 38 52 49 1 1 571: 38 52 49 1 1 17: 38 52 49 1 53 11: 38 1 1 1 53 17: 38 1 50 1 54 11: 38 1 50 1 1 17: 38 1 50 1 57 11: 1 1 50 1 57 17: 40 1 50 1 57 11: 40 1 50 1 1 17: 40 52 50 1 59 11: 40 52 1 1 59 115: 40 52 47 1 59 11: 1 52 47 1 1 17: 40 52 47 1 1 11: 40 1 47 1 1 17: 40 56 47 1 1 11: 40 56 1 1 1 18: 40 56 47 1 1 17: 40 56 47 1 52 11: 1 56 47 1 52 17: 40 56 47 1 54 18: 40 1 47 1 54 11: 40 1 1 1 1 115: 40 1 44 1 56 11: 1 1 44 1 1 18: 45 1 44 1 57 17: 45 52 44 1 57 11: 45 52 1 1 57 18: 45 52 49 1 57 17: 45 52 49 45 57 11: 1 52 49 1 1 17: 45 52 49 1 1 11: 45 1 49 1 1 17: 45 52 49 1 1 11: 45 52 1 1 1 18: 45 52 49 1 1 17: 45 52 49 56 1 11: 1 52 49 56 1 17: 37 52 49 56 1 11: 37 1 49 56 1 17: 37 52 49 56 1 11: 37 52 1 56 1 17: 37 53 49 56 1 11: 37 53 49 1 1 17: 37 53 49 61 1 11: 1 53 1 61 1 17: 44 53 1 61 1 11: 44 1 1 61 1 18: 44 53 1 61 1 17: 44 53 49 61 1 11: 44 53 49 1 1 17: 44 53 49 59 1 11: 1 1 1 59 1 18: 37 1 1 59 1 18: 37 53 1 59 1 17: 37 53 49 59 1 11: 37 53 49 1 1 17: 37 53 49 61 1 11: 1 53 49 61 1 17: 44 53 49 61 1 11: 44 1 49 61 1 17: 44 53 49 61 1 11: 44 53 1 61 1 17: 44 53 49 61 1 11: 44 53 49 1 1 17: 44 53 49 59 1 11: 1 1 49 59 1 18: 37 1 49 59 1 17: 37 53 49 59 1 11: 37 53 1 59 1 18: 37 53 49 59 1 17: 37 53 49 56 1 11: 1 1 1 56 1 18: 42 1 1 57 1 18: 42 54 1 57 1 17: 42 54 49 57 1 11: 42 54 49 1 1 17: 42 54 49 56 1 11: 1 54 49 56 1 17: 42 54 49 56 1 11: 42 1 49 56 1 17: 42 54 49 56 1 11: 42 54 1 1 1 18: 42 54 49 1 1 17: 42 54 49 56 1 11: 1 54 49 56 1 17: 42 54 49 57 1 11: 42 1 49 57 1 17: 42 54 49 57 1 11: 42 54 1 57 1 17: 42 54 49 57 1 11: 42 54 49 1 1 17: 42 54 49 56 1 11: 1 54 49 56 1 17: 42 54 49 56 1 11: 42 1 49 56 1 17: 42 54 49 56 1 11: 42 54 1 56 1 17: 42 54 49 56 1 11: 42 54 49 1 1 17: 42 54 49 57 1 11: 1 1 1 57 1 18: 44 1 1 59 1 18: 44 57 1 59 1 17: 44 57 51 59 1 11: 44 57 51 1 1 17: 44 57 51 61 1 11: 1 57 51 61 1 17: 44 57 51 61 1 11: 44 1 51 61 1 17: 44 57 51 61 1 11: 44 57 1 61 1 17: 44 57 51 61 1 11: 44 57 51 1 1 17: 44 57 51 59 1 11: 1 57 51 59 1 17: 44 57 51 59 1 11: 44 1 51 59 1 17: 44 57 51 59 1 11: 44 57 1 59 1 17: 44 57 51 59 1 11: 44 57 51 1 1 17: 44 57 51 61 1 11: 1 57 51 61 1 17: 44 57 51 61 1 11: 44 1 51 61 1 17: 44 57 51 61 1 11: 44 57 1 61 1 17: 44 57 51 61 1 11: 44 57 51 1 1 17: 44 57 51 59 1 11: 1 1 1 59 1 18: 52 1 1 64 1 18: 52 59 1 64 1 17: 52 59 56 64 1 11: 52 59 56 1 1 17: 52 59 56 64 1 11: 1 59 56 64 1 17: 52 59 56 64 1 11: 52 1 56 64 1 17: 52 59 56 64 1 11: 52 59 1 64 1 17: 52 59 56 64 1 11: 52 59 56 1 1 17: 52 59 56 64 1 11: 1 59 56 64 1 17: 62 59 56 64 1 11: 62 1 1 64 1 17: 62 1 56 64 1 11: 62 1 56 1 1 17: 62 1 56 64 1 11: 1 1 56 64 1 17: 61 1 56 64 1 11: 61 1 1 64 1 17: 61 1 56 64 1 11: 61 1 56 1 1 17: 61 1 56 64 1 11: 1 1 56 64 1 115: 1 59 56 64 1 11: 1 59 1 64 1 17: 45 59 1 64 1 11: 45 1 1 64 1 18: 45 52 1 64 1 17: 45 52 49 64 1 11: 45 52 49 1 1 17: 45 52 49 1 64 11: 1 52 49 1 64 17: 42 52 49 1 61 11: 42 1 49 1 61 17: 42 1 49 1 61 591: 42 1 1 1 61 598: 42 1 49 1 1 577: 42 52 49 1 1 571: 1 52 49 1 1 577: 38 52 49 1 1 571: 38 52 49 1 1 17: 38 52 49 1 53 11: 38 52 1 1 53 18: 38 52 50 1 54 17: 38 52 50 1 54 571: 1 52 50 1 54 577: 40 52 50 1 54 571: 40 1 50 1 54 17: 40 52 50 1 59 11: 40 52 1 1 59 115: 40 52 47 1 59 11: 1 52 47 1 59 17: 45 52 47 1 59 11: 45 1 47 1 1 17: 45 52 47 1 1 11: 45 52 1 1 1 18: 45 52 49 1 1 17: 45 52 49 1 64 11: 1 52 49 1 64 17: 42 52 49 1 61 11: 42 1 49 1 61 17: 42 1 49 1 61 591: 42 1 1 1 61 5915: 42 1 49 1 1 571: 1 1 1 1 1 577: 40 1 1 52 1 571: 40 1 1 52 1 18: 40 47 1 52 1 18: 40 47 44 52 1 17: 40 47 44 54 1 11: 1 1 44 54 1 17: 40 1 44 54 1 11: 40 1 44 1 1 17: 40 47 44 56 1 11: 40 47 1 56 1 115: 40 47 44 56 1 11: 1 47 44 1 1 17: 45 47 44 1 1 11: 45 1 44 1 1 17: 45 52 44 1 1 11: 45 52 1 1 1 18: 45 52 49 1 1 17: 45 52 49 1 64 11: 1 52 49 1 64 17: 42 52 49 1 61 11: 42 1 49 1 61 17: 42 1 49 1 61 591: 42 1 1 1 61 598: 42 1 49 1 1 577: 42 52 49 1 1 571: 1 52 49 1 1 577: 38 52 49 1 1 571: 38 52 49 1 1 17: 38 52 49 1 53 11: 38 1 1 1 53 17: 38 1 50 1 54 11: 38 1 50 1 1 17: 38 1 50 1 57 11: 1 1 50 1 57 17: 40 1 50 1 57 11: 40 1 50 1 1 17: 40 52 50 1 59 11: 40 52 1 1 59 115: 40 52 47 1 59 11: 1 52 47 1 1 17: 40 52 47 1 1 11: 40 1 47 1 1 17: 40 56 47 1 1 11: 40 56 1 1 1 18: 40 56 47 1 1 17: 40 56 47 1 52 11: 1 56 47 1 52 17: 40 56 47 1 54 18: 40 1 47 1 54 11: 40 1 1 1 1 115: 40 1 44 1 56 11: 1 1 44 1 1 17: 45 1 44 1 57 11: 45 1 1 1 57 18: 45 52 1 1 57 17: 45 52 49 1 57 11: 45 52 49 1 1 17: 45 52 49 57 1 11: 1 52 49 57 1 17: 42 52 49 57 1 11: 42 1 49 57 1 17: 42 54 49 57 1 11: 42 54 1 57 1 17: 42 54 49 57 1 11: 42 54 49 1 1 17: 42 54 49 57 1 11: 1 54 49 57 1 17: 38 54 49 57 1 11: 38 1 49 57 1 17: 38 54 49 57 1 11: 38 54 1 57 1 17: 38 54 50 57 1 11: 38 54 50 1 1 17: 38 54 50 57 1 11: 1 54 50 57 1 17: 40 54 50 57 1 11: 40 1 50 57 1 17: 40 52 50 57 1 11: 40 52 1 57 1 18: 40 52 47 57 1 17: 40 52 47 56 1 11: 1 52 47 56 1 17: 45 52 47 56 1 11: 45 1 47 56 1 17: 45 52 47 56 1 11: 45 52 1 56 1 17: 45 52 49 56 1 11: 45 52 49 1 1 17: 45 52 49 57 1 11: 1 52 49 57 1 17: 42 52 49 57 1 11: 42 1 49 57 1 17: 42 54 49 57 1 11: 42 54 1 57 1 17: 42 54 49 57 1 11: 42 54 49 1 1 17: 42 54 49 57 1 11: 1 54 49 57 1 17: 38 54 49 57 1 11: 38 1 49 57 1 17: 38 54 49 57 1 11: 38 54 1 57 1 17: 38 54 50 57 1 11: 38 54 50 1 1 17: 38 54 50 57 1 11: 1 54 50 57 1 17: 40 54 50 57 1 11: 40 1 50 57 1 17: 40 52 50 57 1 11: 40 52 1 57 1 17: 40 52 47 57 1 11: 40 52 47 1 1 17: 40 52 47 56 1 11: 1 52 47 56 1 17: 45 52 47 56 1 11: 45 1 47 56 1 17: 45 52 47 56 1 11: 45 52 1 56 1 17: 45 52 49 56 1 11: 45 52 49 1 1 17: 45 52 49 57 1 11: 1 52 49 57 1 17: 42 52 49 57 1 11: 42 1 49 57 1 17: 42 54 49 57 1 11: 42 54 1 57 1 17: 42 54 49 57 1 11: 42 54 49 1 1 17: 42 54 49 57 1 11: 1 54 49 57 1 17: 38 54 49 57 1 11: 38 1 49 57 1 17: 38 54 49 57 1 11: 38 54 1 57 1 17: 38 54 50 57 1 11: 38 54 50 1 1 17: 38 54 50 57 1 11: 1 54 50 57 1 17: 40 54 50 57 1 11: 40 1 50 57 1 17: 40 52 50 57 1 11: 40 52 1 57 1 17: 40 52 47 57 1 11: 40 52 47 1 1 17: 40 52 47 56 1 11: 1 52 47 56 1 17: 45 52 47 56 1 11: 45 1 47 56 1 17: 45 52 47 56 1 11: 45 52 1 56 1 17: 45 52 49 56 1 11: 45 52 49 1 1 17: 45 52 49 57 1 11: 1 52 49 57 1 17: 42 52 49 57 1 11: 42 1 49 57 1 17: 42 54 49 57 1 11: 42 54 1 57 1 17: 42 54 49 57 1 11: 42 54 49 1 1 17: 42 54 49 57 1 11: 1 54 49 57 1 17: 40 54 49 56 1 11: 40 1 49 56 1 17: 40 52 49 56 1 11: 40 52 1 56 1 17: 40 52 54 56 1 11: 40 52 54 1 1 17: 40 52 54 56 1 11: 1 1 1 56 1 139: 45 52 49 57 1 1eg (Attenuate-Reg-Of-Voice Voice) ATTENUATE-SILENT)  (Values 2 nil Args));;; Note Scheduler;;;;;; This function accepts the Note Profiles for all four voices.  It;;; returns when all profiles have completed.  The TONE registers should;;; have been set up before calling this.(Defun Note-Scheduler (Profile-1 Args-1 &Optional                       Profile-2 Args-2                       Profile-3 Args-3                       Profile-Noise Args-Noise)  (Let ((Next-Event-Time 0)        (Rel-Time 0)        (P-Step-1 (Get Profile-1 'Note-Profile))        (P-Step-2 (If Profile-2                      (Get Profile-2 'Note-Profile)                      nil))        (P-Step-3 (If Profile-3                      (Get Profile-3 'Note-Profile)                      nil))        (P-Step-N (If Profile-Noise                      (Get Profile-Noise 'Note-Profile)                      nil))        (Next-Event-1 0)        (Next-Ev