(FILECREATED "11-Jul-86 13:57:34" ("compiled on " {ERIS}KOTO>PLAY.;1) "12-Nov-85 14:59:23" recompiled changes: PLAY.KEY PLAY.NOTE in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "11-Jul-86 13:55:55" {ERIS}KOTO>PLAY.;1 41236 changes to: (FNS PLAY.KEY PLAY.NOTE) previous date: " 8-Feb-84 11:47:58" {PHYLUM}KOTO>LISPUSERS>PLAY.;1) PLAY.RESTART D1 (P 13Q NOTE P 12Q CODE P 4 I F 23Q PLAY.TWELFTHS F 24Q PLAY.POWERS F 25Q PLAY.KEYBOARD.ALIST F 26Q PLAY.TRANSCRIBE.ALIST) lgjdc&oljHµ@lgjdc(ljLKñ²>l g g oo RNµ9°?»JIñ³½W&JK*¿JkØºHX°«W(LoLoë n'ê *¿LkØ\°£_¿MµOc*oW*ROµ2°9_¿OO _¿OµOh__¿N¾M½°„O&_¿°ò_"¿Oµ Oc,h_$¿O"O$_ ¿OµO h__¿O_¿O_¿°•O &_¿°ì(264Q PLAY.NOTE 204Q FIXR 175Q EXPT 116Q CHCON 103Q PLAY.KEY 75Q PLAY.TEMPO 67Q PLAY.OCTAVE 44Q ARRAY 11Q ARRAY) (100Q CMAJOR 72Q MODERATE 37Q FIXP 4 FIXP) ( 235Q (c >d >e c# >d#) 171Q 12.0 164Q 2.0 113Q "ASDFGHJKL;'_WRTUIO[]" 107Q (c >d >e c# >d#) 17Q (14Q 16Q 3 5 7 10Q 12Q)) PLAY.NOTES D1 (I 0 NOTES) #0@d X–IµHZY¿µïJ YH°ó(34Q LAST 11Q PLAY.NOTE) NIL () PLAY.MELODY D1 (P 0 TUNE I 0 MELODY) C@gð³oi ¿@i ¿oi hl @@ @ @ (100Q PLAY.MELODY1 74Q PLAY.KEY 65Q PLAY.TEMPO 51Q PLAY.OCTAVE 42Q PRIN1 31Q PRIN1 23Q PRIN1) (10Q MELODY) ( 36Q " ignored" 17Q "Illegal MELODY ") PLAY.MELODY1 D1 (P 5 REPEAT P 3 PASSAGE P 1 TUNE P 0 MAXREPEAT I 0 MELODY) H0oX@°dHgK ºdJñ¡¿JXµçHkMLñ¯N@M ¾MkØ]°ïN(75Q \NCONC2 72Q PLAY.REPEAT 36Q APPLY) (31Q IMAX) ( 6 -20000000000Q) PLAY.OCTAVE D1 (L (0 OCTAVE) F 0 PLAY.OCTAVE) @chNIL NIL () PLAY.TEMPO D1 (L (1 BEAT 0 TEMPO) F 0 PLAY.DURATION) KA¤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ð³/dkð˜¿JlÚl° lð—JlÚl°lMkØ kÙJÚlM ÛZ¿KJlÚÚoÛ[HlAð³+HlBð³%HlCð³HlDð³HlEð³HlFð«HlGð¦HdlRð”¿j[°Ilrð–j»lRX°>Hlað³#Hlbð³Hlcð³Hldð¯HleðªHlfð¥Hlgð²KdJñ‘¿J»JKÙºHl ÙX‚¿IHLJK (1117Q PLAY.NOTE1 1105Q SHOULDNT 674Q EXPT 662Q EXPT 605Q MEMB 574Q MEMB 560Q PRIN1 547Q PRIN1 541Q PRIN1 372Q CHARACTER 363Q CHARACTER 22Q CHCON) NIL ( 711Q 234200Q 554Q " ignored." 535Q "Illegal note ") PLAY.NOTE1 D1 (L (4 BREAK 3 DURATION 2 ACCIDENTAL 1 LETTER 0 OCTAVE) F 3 PLAY.TWELFTHS F 4 PLAY.POWERS) z0AlRÙjð’h°WSAlAÙ(BØ¹lIñ³lIñ³'IlÙ¹@lÛb¿°îjIñ²jIñIlØ¹@lÚb¿°ðnÜ¸@l Úb¿HTI(Ún'Û@lÛØ@Û¸Djð¥hDJºCjð¥HCJJNIL NIL () PLAY.KEYBOARD D1 (P 5 OCTAVE P 4 OLDCLOCK P 3 CLOCK P 2 TUNE P 1 FREQ P 0 KEY F 6 PLAY.OCTAVE F 7 PLAY.KEYBOARD.ALIST) r`j \V]Xdl ð•¿J l>ð–MlÚ½°èHl<ð–MlÛ½°Üj »hKLÙJºK¼HW MÚVÛYµj »IKLÙJºK¼°® ¿H ³ù¿°Þ(155Q BEEPOFF 150Q KEYDOWNP 145Q CHARACTER 140Q BEEPON 120Q CLOCK 104Q ASSOC 63Q CLOCK 27Q DREVERSE 14Q \GETKEY 6 CLOCK) NIL () PLAY.TRANSCRIBE D1 (P 3 BEEP I 0 TUNE F 4 PLAY.TRANSCRIBE.ALIST) 80@°&dKhÙjðhð´KT hX–IµHZY¿µÛJ YH°ó(61Q LAST 32Q ASSOC) NIL () PLAY.ADJUST.TEMPO D1 (P 0 ANSWER I 1 FACTOR I 0 TUNE) 3 An'ê b0@°dYAIÚn'ÛºKµJh\J&»µåL(12Q FIXR) NIL () PLAY.ADJUST.PITCH D1 (P 1 ANSWER P 0 FACTOR I 1 SEMITONES I 0 TUNE) C0oAoë n'ê X0@°!dZ¡h‡HJÚn'ÛJ»LµKh]K&¼µàM(26Q FIXR 17Q EXPT) NIL ( 13Q 12.0 6 2.0) PLAY.MESA D1 (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 10Q PLAY.MESA.BREAK F 11Q PLAY.MESA.TRIPLE F 12Q PLAY.MESA.DURATION) ?A£jb¿0hcjchcAcjc@ X0H ¦H ZµK½Lµ Mh\»°éM&¼°ä(50Q PLAY.MESA.NOTE 43Q EOFP 33Q OPENSTRINGSTREAM) NIL () PLAY.MESA.NOTE D1 (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 10Q PLAY.MESA.BREAK F 11Q PLAY.MESA.TRIPLE) 2`jYVZj[@ ’±Hž@ o ¢±@ \dlAð³LdlBð³FdlCð³@dlDð³:dlEð³4dlFð³.dlGð³(dlað³"dlbð³dlcð³dldð®dleð©dlfð¤dlgð’¸°“l%ð”lr¸°ŠLdl#ð—¿IkØ¹±ÿ}l>ð™WkØc¿±ÿoLdl<ðš¿WkÙc¿±ÿ^l/ðœVkÙc¿JkÙº±ÿMLdl*ð¿VkØc¿JkØº±ÿ9l^ð™WkØc¿±ÿ+Ldl_ðš¿WkÙc¿±ÿl+ð–KkØ»±ÿLdl-ð—¿JkÙº±ÿl(ð–ic¿±þöLl)ð¢±þîhc¿±þçHµMIJK(457Q PLAY.MESA.NOTE1 35Q MEMB 26Q \PEEKBIN 14Q EOFP) NIL ( 32Q (# -)) PLAY.MESA.NOTE1 D1 (P 0 NOTE I 3 DOT I 2 DURATION I 1 SHARP I 0 LETTER F 6 PLAY.MESA.OCTAVE F 7 PLAY.MESA.TRIPLE) @lrÙjð³UVjñ²&Vk2JIñ³l>½Lµ Mh\»JkØZ°íM&¼°÷K°-jVñ´(jVÙk2JIñ³l<½Lµ Mh\»JkØZ°íM&¼°÷K€h@Ak2JIñ³l#½Lµ Mh\»JkØZ°íM&¼°÷KW´l3hBjñ²&Bk2JIñ³lx½Lµ Mh\»JkØZ°íM&¼°÷K°+jBñ´&jBÙk2JIñ³l/½Lµ Mh\»JkØZ°íM&¼°÷KCk2JIñ³l+½Lµ Mh\»JkØZ°íM&¼°÷K (415Q PACKC 412Q \APPEND2 406Q \APPEND2 403Q \APPEND2 400Q \APPEND2) NIL () PLAY.DEMO D1 (F 0 DEMO.TUNE) P (3 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