(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 17:40:46" ("compiled on " {DSK}lispusers>PLAY.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "28-Sep-91 12:55:09" |{PELE:MV:ENVOS}MEDLEY>PLAY.;2| 38792 changes to%: (VARS PLAYCOMS DEMO.MELODY DEMO.TUNE) (RECORDS MELODY PASSAGE BEEP) (FNS PLAY.TRANSCRIBE) previous date%: "11-Jul-86 13:55:55" |{PELE:MV:ENVOS}MEDLEY>PLAY.;1|) PLAY.RESTART :D8 (P 10 NOTE P 9 CODE P 3 J P 2 I F 18 PLAY.TWELFTHS F 19 PLAY.POWERS F 20 PLAY.KEYBOARD.ALIST F 21 PLAY.TRANSCRIBE.ALIST) Dlgjdc$oljHµRlgjdc&ljJIó²Pl g g oo R MµL°R»JIó³«W$JK¿JkÔºHX°•W&JoJoë n'ê ¿JkÔZ°‚_¿LµNc(oW(ROµ3°:_¿OO _¿OµOh_¾M½L¼±ÿqO&_¿°ñ_ ¿Oµ Oc*h_"¿O O"_¿OµOh__¿O_¿O_¿°”O&_¿°ì(224 PLAY.NOTE 175 SETA 170 FIXR 156 EXPT 126 SETA 101 CHCON 86 PLAY.KEY 76 PLAY.TEMPO 66 PLAY.OCTAVE 45 ARRAY 13 ARRAY) (164 FLOATP 81 CMAJOR 71 MODERATE 38 FIXP 6 FIXP) ( 199 (c >d >e c# >d#) 150 12.0 144 2.0 96 "ASDFGHJKL;'_WRTUIO[]" 91 (c >d >e c# >d#) 20 (12 14 3 5 7 8 10)) PLAY.NOTES :D8 (P 3 NOTE I 0 NOTES) -0@°dK X–IµHZY¿µèJ YH°ñ(38 LAST 16 PLAY.NOTE) NIL () PLAY.MELODY :D8 (P 0 TUNE I 0 MELODY) U@gð³#oi ¿@i ¿oi hl @@ @ @ (82 PLAY.MELODY1 76 PLAY.KEY 67 PLAY.TEMPO 53 PLAY.OCTAVE 44 PRIN1 32 PRIN1 24 PRIN1) (10 MELODY) ( 38 " ignored" 18 "Illegal MELODY ") PLAY.MELODY1 :D8 (P 5 REPEAT P 3 PASSAGE P 1 TUNE P 0 MAXREPEAT I 0 MELODY) R0oX@°dHgK ºdJñ¡¿JXµãHkMLó³N@M ¾MkÔ]°êN(71 \NCONC2 66 PLAY.REPEAT 35 APPLY) (28 IMAX) ( 7 -2147483648) PLAY.OCTAVE :D8 (L (0 OCTAVE) F 0 PLAY.OCTAVE) @chNIL NIL () PLAY.TEMPO :D8 (L (1 BEAT 0 TEMPO) F 0 PLAY.DURATION) YA¤lb¿@gð©@dgð”¿lx°+gðª@gð¢@µlZ°gð©@dgð’¿lð˜¿IlÛ¹±¼lxð—JlÚº±°Odl/ð˜¿JlÛº± l1ð³3Odl2ð³-dl3ð³'dl4ð³!dl5ð³dl6ð³dl7ðdl8ð¨dl9ð²¿O JÚO kØÛº°Sl+ð•MkØ½°IOdl^ð—¿KlÚ»°:l_ð–KlÛ»°/Odl@ð›¿Lµmÿ°kÙ°l#ð—LµkkØŒOlNð¥Olnð™j¼O_±þ½oi ¿@i ¿oi ¿L³HdW ’¿k‹W ’mÿ€j¼Mdjð³3dkð˜¿lJÚl°$lð—lJÚl°lMkØ kÙJÚlM ÛZ¿lKÚJÚln'ÚÛ[HlAð³+HlBð³%HlCð³HlDð³HlEð³HlFð«HlGð¦HdlRð”¿j[°Klrð–j»lRX°@Hlað³#Hlbð³Hlcð³Hldð¯HleðªHlfð¥Hlgð²KdJñ‘¿J»JKÙºHmàØX„¿IHLJK (619 PLAY.NOTE1 607 SHOULDNT 466 EXPT 454 EXPT 407 MEMB 396 MEMB 382 PRIN1 370 PRIN1 362 PRIN1 256 CHARACTER 247 CHARACTER 20 CHCON) NIL ( 376 " ignored." 356 "Illegal note ") PLAY.NOTE1 :D8 (P 2 TUNE P 1 TWELFTH P 0 FREQ I 4 BREAK I 3 DURATION I 2 ACCIDENTAL I 1 LETTER I 0 OCTAVE F 3 PLAY.TWELFTHS F 4 PLAY.POWERS) 0AlRÙjð’h°dSAlAÙ YBØ¹lIñ³lIñ³'IlÙ¹@lÛb¿°îjIñ²jIñIlØ¹@lÚb¿°ðl nàÚ¸l @Úb¿HTI Ún'ÛX@lÛØ@Û¸Djð³D´ D ¥hDJºCjð³C–C ¥HCJJ(149 \FZEROP 127 \FZEROP 97 ELT 22 ELT) NIL () PLAY.KEYBOARD :D8 (P 5 OCTAVE P 4 OLDCLOCK P 3 CLOCK P 2 TUNE P 1 FREQ P 0 KEY F 11 PLAY.OCTAVE F 12 PLAY.KEYBOARD.ALIST) ·° j \W]Xdl ð—¿J dl>ð—¿MlÚ½°âl<ð–MlÛ½°×j »hKLÙJºK¼HWMÚWÛYµj »IKLÙJºK¼°¦ ¿`H _¿_¿OâââlOlåÙ¾kNç_¿_¿OOOÂåjð‘j€kjð³Ã¿°¢(178 BEEPOFF 126 \KEYNAMETONUMBER 121 CHARACTER 109 BEEPON 91 CLOCK 61 CLOCK 30 DREVERSE 17 \GETKEY 8 CLOCK) (115 \LASTKEYSTATE) () PLAY.TRANSCRIBE :D8 (P 4 BEEP I 0 TUNE F 5 PLAY.TRANSCRIBE.ALIST) (@AHµI\dœU»Jµ KhZY¿HX°åK&Z°÷NIL NIL () PLAY.ADJUST.TEMPO :D8 (P 0 ANSWER I 1 FACTOR I 0 TUNE) : An'ê b0@°dYAIÚn'ÛºKµJh\J&»µåL(17 FIXR) (8 FLOATP) () PLAY.ADJUST.PITCH :D8 (P 1 ANSWER P 0 FACTOR I 1 SEMITONES I 0 TUNE) I0oAoë n'ê X0@°!dZ¡h‡HJÚn'ÛJ»LµKh]K&¼µàM(28 FIXR 19 EXPT) NIL ( 13 12.0 7 2.0) PLAY.MESA :D8 (P 2 NOTE P 1 NOTES P 0 STREAM I 1 DURATION I 0 STRING F 6 PLAY.MESA.NOTES F 7 PLAY.MESA.OCTAVE F 8 PLAY.MESA.BREAK F 9 PLAY.MESA.TRIPLE F 10 PLAY.MESA.DURATION) EA£jb¿0hcjchcAcjc@ X0H ¨H ZµK½Lµ Mh\»°åM&¼°à(46 PLAY.MESA.NOTE 39 EOFP 29 OPENSTRINGSTREAM) NIL () PLAY.MESA.NOTE :D8 (P 5 NOTE P 4 CODE P 3 DOT P 2 DURATION P 1 SHARP P 0 LETTER I 0 STREAM F 6 PLAY.MESA.DURATION F 7 PLAY.MESA.OCTAVE F 8 PLAY.MESA.BREAK F 9 PLAY.MESA.TRIPLE) <`jYVZj[@ ’±H²@ o ¢±@ \dlAð³LdlBð³FdlCð³@dlDð³:dlEð³4dlFð³.dlGð³(dlað³"dlbð³dlcð³dldð®dleð©dlfð¤dlgð’¸°‹l%ð”lr¸°‚Ldl#ð—¿IkØ¹±ÿul>ð™WkØc¿±ÿgLdl<ðš¿WkÙc¿±ÿVl/ðœVkÙc¿JkÙº±ÿELdl*ð¿VkØc¿JkØº±ÿ1l^ð™WkØc¿±ÿ#Ldl_ðš¿WkÙc¿±ÿl+ð–KkØ»±ÿLdl-ð—¿JkÙº±þùl(ð–ic¿±þîLl)ð¢±þæhc¿±þßHµMIJK(313 PLAY.MESA.NOTE1 37 MEMB 27 \PEEKBIN 14 EOFP) NIL ( 32 (%# -)) PLAY.DEMO :D8 (F 0 DEMO.TUNE) P (5 PLAYTUNE) NIL () (PRETTYCOMPRINT PLAYCOMS) (RPAQQ PLAYCOMS ((* ; "PLAY -- By Kelly Roach. *") (COMS (* ; "PLAYLISP *") (CONSTANTS (PLAY.ROOM 10000) (PLAY.TOY 32) (PLAY.FREQA 1760) (PLAY.SILENT NIL)) (INITVARS (PLAY.OCTAVE NIL) (PLAY.DURATION NIL) (PLAY.BREAK NIL) (PLAY.SHARP NIL) (PLAY.FLAT NIL) (PLAY.TWELFTHS NIL) (PLAY.POWERS NIL)) (RECORDS MELODY PASSAGE BEEP) (FNS PLAY.RESTART PLAY.NOTES PLAY.MELODY PLAY.MELODY1 PLAY.OCTAVE PLAY.TEMPO PLAY.KEY PLAY.REPEAT PLAY.PASSAGE PLAY.NOTE PLAY.NOTE1)) (COMS (* ; "PLAYKBD *") (INITVARS ( PLAY.KEYBOARD.ALIST NIL) (PLAY.TRANSCRIBE.ALIST NIL)) (FNS PLAY.KEYBOARD PLAY.TRANSCRIBE PLAY.ADJUST.TEMPO PLAY.ADJUST.PITCH)) (COMS (* ; "PLAYMESA *") (INITVARS (PLAY.MESA.OCTAVE NIL) ( PLAY.MESA.TRIPLE NIL) (PLAY.MESA.DURATION NIL) (PLAY.MESA.BREAK NIL)) (FNS PLAY.MESA PLAY.MESA.NOTE PLAY.MESA.NOTE1)) (COMS (* ; "DEMO *") (VARS DEMO.MELODY DEMO.TUNE) (FNS PLAY.DEMO)) (P (PLAY.RESTART) ))) (RPAQQ PLAY.ROOM 10000) (RPAQQ PLAY.TOY 32) (RPAQQ PLAY.FREQA 1760) (RPAQQ PLAY.SILENT NIL) (CONSTANTS (PLAY.ROOM 10000) (PLAY.TOY 32) (PLAY.FREQA 1760) (PLAY.SILENT NIL)) (RPAQ? PLAY.OCTAVE NIL) (RPAQ? PLAY.DURATION NIL) (RPAQ? PLAY.BREAK NIL) (RPAQ? PLAY.SHARP NIL) (RPAQ? PLAY.FLAT NIL) (RPAQ? PLAY.TWELFTHS NIL) (RPAQ? PLAY.POWERS NIL) (TYPERECORD MELODY (TEMPO KEY METER BEAT PASSAGES)) (RECORD PASSAGE (REPEATS MEASURES)) (RECORD BEEP (FREQ . DURATION)) (RPAQ? PLAY.KEYBOARD.ALIST NIL) (RPAQ? PLAY.TRANSCRIBE.ALIST NIL) (RPAQ? PLAY.MESA.OCTAVE NIL) (RPAQ? PLAY.MESA.TRIPLE NIL) (RPAQ? PLAY.MESA.DURATION NIL) (RPAQ? PLAY.MESA.BREAK NIL) (RPAQQ DEMO.MELODY (MELODY MODERATE (%# F) 4 4 (((1) ((b/+ >c//) (>Dx >d/+ b// a/+ b//) (gx+ b/+ b//) (A/+ G// E e/+ e// b/+ b//) (ax+ b/+ >c//) (>Dx >d/+ b// a/+ b//) (gx+ b/+ b//) (A/+ G// E e/+ e// b/+ b//) (ax+ b/ >c//) (>Dx >d/+ b// a/+ b//) (gx+ b/+ b//) (A/+ G// E e/+ e// b/+ b//) (ax+ b/ >c//+) ( >Dx >d/+ b// a/+ b//) (gx+ b/+ b/) (a/+ g// ex b/+ b//) (axx))) ((1 2 3) ((>d >d >d >d/+ >e//) (a/+ a// a/+ a// ax) (a/+ a// a/+ a// ax) (g/+ g// g/+ g// gx) (>d >d >d >d/+ >e//) (a/+ a// a/+ a// ax) ( a/+ a// a/+ a// ax) (g/+ g// g/+ g// g))) ((1 2) ((b/+ >c//) (>Dx >d/+ b// a/+ b/) (gx+ b/+ b//) (a/+ g// ex b/+ b//) (ax+ b/+ >c/) (>Dx >d/+ b// a/+ b//))) ((1) ((gx+ d3/ e3/ f3/) (g/ B// A#// b/ B// A#// b