(FILECREATED "31-Jan-86 16:20:28" ("compiled on " {DSK}KEYBOARDTOOL.;62) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (FILECREATED "31-Jan-86 16:19:13" {DSK}KEYBOARDTOOL.;62 64206 changes to: (VARS KEYBOARDTOOLCOMS MYICON) (FNS CREATEKEYBOARDW LOADTUNE MESACON BUILDFIRSTPLIST PIANOMOUSE RESETTUNE EDITTO EDITFROM EDITNOTE QUIT BUILDPLIST FINDOCTAVE YES? CREATEPIANOMENU PIANOMENU PLAYBACK WIPEOUT! PLAYFIRST PLAYLAST BUILDLASTPLIST EDITSECTION FULLNOTE KEYBOARD MAKESCORE KEYBOARDFN PRESSEDKEY LOWEROCTAVE MOUSEDKEY ORGANKEYS ORGANMOUSE PIANOKEYS RAISEOCTAVE) previous date: "22-Jan-86 19:32:50" {DSK}KEYBOARDTOOL.;56) ACCELERATEBYSCORE D1 (I 0 FASTER F 0 SCORE F 1 NEWTUNE) '@ggP  c cd (44Q MAKESCORE 36Q REVERSE 33Q MESACON 30Q CONCATLIST 25Q REVERSE 20Q REVERSE 14Q REVERSE) (10Q * 4 /) () BUILDFIRSTPLIST D1 (P 2 X P 0 PLIST I 1 N I 0 TLIST) 70AkZI@H@@ @@H@@H@bJk԰(31Q FULLNOTE) NIL () BUILDLASTPLIST D1 (P 2 X P 0 PLIST I 1 N I 0 TLIST) 70AkZI@H@@ @@H@@H@bJk԰(31Q FULLNOTE) NIL () CHANGEDURATION D1 (P 0 TEMPLATE F 5 CURRENTBEAT F 6 DURLIST F 7 KEYMAP F 10Q CURRENTSTYLE) [ WgUVUV0W5dYHIHHhIHhhKJh\J&LcgNIL (130Q edited: 7 DISTINCT) () CHANGESTATE D1 (I 0 SYM F 0 OCTAVET F 1 CURRENTBEAT F 2 CURRENTSTYLE F 3 DISTINCTSCORENOTES F 4 SLURREDSCORENOTES F 5 SCORENOTES) Rdg@o gcSRg@do gcTc @gPm^PkP UPkc@dglP@PkP 7Pkcgl@Q%Qlc@gQk Qlc(243Q CHANGEDURATION 213Q CHANGEDURATION 154Q RESETOCTAVE 116Q RESETOCTAVE 71Q CHANGEDURATION 52Q MEMB 20Q MEMB) (220Q * 167Q / 133Q > 76Q < 57Q SLURRED 36Q DISTINCT 24Q DISTINCT 4 SLURRED) ( 47Q (C D E F G A B R) 15Q (c d e f g a b r)) CLEANUPSCORE D1 (P 2 BEATDIFF P 1 OCTDIFF P 0 NEWSCORE I 0 TSCORE) p@H o jY@@do I k\KDJ k^MLdgIkع#dgIkٹdgJk؇gJkٺ@bjIggHLk԰jJggHNk԰@H@b_(67Q ABS 54Q ABS 45Q MEMB 22Q MEMB 11Q REVERSE) (223Q / 217Q * 200Q > 174Q < 151Q * 137Q / 122Q < 105Q >) ( 42Q (< > / *) 17Q (< > / *)) CONVERT D1 (P 0 NEWNAME I 0 STRNG) o Xd d@ H(30Q SET 25Q MESACON 14Q READ 11Q PRIN1) NIL ( 6 "Songname? ") CREATEKEYBOARDW D1 (F 0 KEYBOARDW F 1 KEYBOARDTTYW F 2 MYICON F 3 SCORE) Wg P=og cgg PgR o cgg QPg Q hcP(120Q DRAWKEYBOARDW 114Q CLEARW 107Q CLEARW 103Q ATTACHWINDOW 72Q PUTWINDOWPROP 57Q CREATEW 47Q PUTWINDOWPROP 36Q PUTWINDOWPROP 23Q CREATEW 5 BOUNDP) (100Q TOP 67Q NILL 64Q PAGEFULLFN 43Q ICON 33Q DRAWKEYBOARDW 30Q REPAINTFN 20Q Keyboard 2 KEYBOARDW) ( 54Q (620Q 360Q 1050Q 106Q) 15Q (620Q 144Q 1050Q 214Q)) DRAWKEYBOARDW D1 (P 7 Y P 6 X P 3 CORIGIN P 2 OCTAVE F 10Q KEYBOARDW F 11Q CF F 12Q BADGE F 13Q ACC) W olkHhJIoljL oI_NMOo WWhdWKNlj NkԾL\dWhdWKNl' JkԺHX(165Q BITBLT 127Q BITBLT 102Q MEMB 4 CLEARW) NIL ( 77Q (C F) 56Q (25Q 57Q 143Q 175Q 227Q) 37Q (C D E F G A B) 10Q (0 266Q 554Q)) EDITFROM D1 (P 1 LENGTH P 0 START F 2 NEWTUNELENGTH F 3 KEYBOARDTTYW F 4 NEWTUNE) JS oS  X30Hj+HR%YdRHkRHkYiIj THI h(106Q EDITSECTION 46Q HOWMANY 24Q READ 16Q PRIN1 6 CLEARBUF 3 CLEARW) NIL ( 12Q "Starting with what note number? ") EDITNOTE D1 (P 0 START F 1 KEYBOARDTTYW F 2 NEWTUNELENGTH F 3 NEWTUNE) ,Q oQ X3Hj HRSHk h(50Q EDITSECTION 24Q READ 16Q PRIN1 6 CLEARBUF 3 CLEARW) NIL ( 12Q "What note number? ") EDITSECTION D1 (P 4 X P 2 SECTION P 1 TUNETAIL P 0 TUNEHEAD I 2 LENGTH I 1 START I 0 NEWTUNE F 5 NEWTUNELENGTH F 6 MARKER F 7 KEYBOARDW F 10Q INSTRUMENTMODE F 11Q CURRNOTEXPOS F 12Q CURRNOTEYPOS) 0UABjLKEI YBk\KZJ  VhdWWWhddg gcIJ@ b @@@ @I@@@I@bLk\@@ @J@@@J@bLk԰(200Q FULLNOTE 133Q FULLNOTE 121Q MAKESCORE 114Q \APPEND2 111Q \APPEND2 74Q BITBLT 50Q KEYBOARDFN 44Q REVERSE 24Q REVERSE) (100Q PIANO 70Q INVERT) () EDITTO D1 (P 1 LENGTH P 0 START F 2 KEYBOARDTTYW F 3 NEWTUNELENGTH F 4 NEWTUNE) JR oR  X30Hj+HS%YdHHYiIjHIkX THI h(106Q EDITSECTION 46Q HOWMANY 24Q READ 16Q PRIN1 6 CLEARBUF 3 CLEARW) NIL ( 12Q "Ending with what note number? ") FINDBEAT D1 (P 10Q I P 0 FBEAT I 0 NOTE F 11Q DOTS F 12Q DURLIST F 13Q TEMSTYLE) pWgFWOh_Wj!WOWj@O OO_WhYhXW[%hX W] 430Q * 407Q / 344Q < 324Q > 245Q * 224Q / 167Q SLURRED 112Q SLURRED 24Q WAITINGCURSOR 14Q SETCURSOR) ( 3 "Making a new score...") MAKESCORE D1 (P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 LOCTAVET P 5 OCTDIFF P 4 OLDBEAT P 3 TSCORE P 2 NEWOCTAVET P 1 NEWBEAT P 0 TEMSTYLE I 0 NEWTUNE F 12Q CURRENTSTYLE F 13Q CURRENTBEAT F 14Q OCTAVET F 15Q RESETVARSLST F 16Q KEYBOARDTTYW F 17Q LISPXHIST) 5 WWWCW W! Wog hg_ Oh(61Q ERROR! 51Q RESETRESTORE 36Q MAKESCOREA0001 15Q CLEARW) (44Q ERROR 33Q INTERNAL) ( 30Q (MAKESCOREA0001)) MESACONA0001 D1 (NAME ERRORSET P 0 SYM F 6 NEWTUNE F 7 LASTNOTE F 10Q DOTS F 11Q CURRENTSTYLE F 12Q CURRENTBEAT F 13Q LASTSYM F 14Q RESETVARSLST F 15Q DEFAULTCURSOR F 16Q MESASTRNG F 17Q RESETY) R gWh` hWcW,d!WkJHdgCjc0WdYIojLKh]K&McWgVV c H Hdg"Wg cWgVVgJWkcljc0WdZJojLKh]K&McWgVVUHdg8WlcW cWgVV c Wlco Hc cV c hci(477Q \APPEND2 471Q REVERSE 466Q GETNOTE 456Q MEMB 445Q CHANGEDURATION 427Q \APPEND2 406Q REVERSE 403Q GETNOTE 375Q CHANGEDURATION 212Q REVERSE 207Q GETNOTE 204Q PACK* 162Q CHANGESTATE 153Q \APPEND2 15Q SETCURSOR) (415Q SLURRED 356Q - 340Q SLURRED 236Q + 221Q SLURRED 201Q # 170Q # 141Q SLURRED 53Q + 12Q WAITINGCURSOR 2 SETCURSOR) ( 453Q (< > / *) 303Q 1.5 104Q 1.5) MESACON D1 (P 14Q RESETZ P 13Q RESETY P 12Q LISPXHIST P 11Q SCOREMODE P 10Q KEYCODE P 7 LASTNOTE P 6 LASTSYM P 5 NEWTUNE P 4 CURRENTBEAT P 3 SCORENOTES P 2 CURRENTSTYLE P 1 OCTAVET P 0 DOTS I 0 MESASTRNG F 15Q SLURREDSCORENOTES F 16Q MIDRANGEKEYMAP F 17Q RESETVARSLST F 20Q KEYMAP F 21Q LISPXHIST) A jdgWlU Wc @ bW"! Wog hg_ OM (76Q REVERSE 70Q ERROR! 61Q RESETRESTORE 46Q MESACONA0001 23Q UNPACK) (54Q ERROR 43Q INTERNAL 4 SLURRED) ( 40Q (MESACONA0001)) MOUSEDKEY D1 (P 4 FOUND P 3 TEMOCTAVEV P 2 YPOS P 1 XPOS P 0 OLDOCTAVET F 11Q DOTS F 12Q FIRSTOCTAVE F 13Q OCTAVET F 14Q \LASTKEYSTATE F 15Q KEYBOARDW F 16Q HALVED F 17Q KEYCODE F 20Q OCTPOS F 21Q OCTAVEV F 22Q INSTRUMENTMODE F 23Q CURRENTBEAT) ] WW W #`lj>jI7jJ0n I&lyJlIknlIlll'JIKkllװ oo"N_M(LO\dcWWKk;WKk D_IOKklIOKkll i\NMWWKkWKk Kklc Kc"W$g]jchcWl* jWkcWl jWkcWjWd WkokcWl jl@W&icLh(513Q \GETBASEBIT 465Q \FZEROP 434Q \GETBASEBIT 413Q \GETBASEBIT 346Q LOWEROCTAVE 242Q RAISEOCTAVE 21Q GETMOUSESTATE 13Q LASTMOUSEY 6 LASTMOUSEX) (371Q PIANO 25Q LASTMOUSEBUTTONS) ( 476Q .25 156Q (12Q 13Q 15Q 16Q 17Q) 152Q (25Q 57Q 143Q 175Q 227Q)) NEAR D1 (I 1 B I 0 A) @A kh(5 ABS) NIL () ORGANKEYS D1 (F 0 KEYCODE F 1 CURRNOTEXPOS F 2 CURRNOTEYPOS F 3 MARKER F 4 KEYBOARDW F 5 OCTPOS F 6 KEYMAP F 7 OCTAVET F 10Q INSTRUMENTMODE F 11Q PLAYMODE)  WgWgPdlShdTQRhddg l P>l2cUPl llcShdTQRhddg PV P l cUPll cShdTQRhddg PV P MdlWk l2cUPl llcShdTQRhddg PV P l cUPll cShdTQRhddg PV P Q/PdlWk=6l/Wl&`kj `ljn (417Q BLOCK 374Q GETMOUSESTATE 365Q ORGANMENU 351Q GETMOUSESTATE 342Q RAISEKEYBOARD 313Q LOWERKEYBOARD 267Q PRESSEDKEY 260Q BEEPOFF 253Q STILLMOUSED 246Q BEEPON 233Q BITBLT 167Q BEEPOFF 162Q STILLMOUSED 155Q BEEPON 142Q BITBLT 67Q BITBLT 35Q MOUSEDKEY 2 RESETTITLEBAR) (400Q LASTMOUSEBUTTONS 355Q LASTMOUSEBUTTONS 227Q INVERT 136Q INVERT 63Q INVERT 23Q MOUSE 7 ORGAN) () PIANOKEYS D1 (F 0 KEYCODE F 1 CURRNOTEYPOS F 2 CURRNOTEXPOS F 3 MARKER F 4 KEYBOARDW F 5 OCTAVET F 6 OCTPOS F 7 INSTRUMENTMODE F 10Q PLAYMODE) Wg WghPdlZShdTRQhddg l PP l2cVPl llհP l cVPll cShdTRQhddg dlUk |dlUk ldlP ^lWP`kj=`lj-n #(336Q BLOCK 313Q GETMOUSESTATE 304Q PIANOMENU 270Q GETMOUSESTATE 261Q KILLNOTE 243Q PLAYANDSAVE 225Q RAISEOCTAVE 205Q LOWEROCTAVE 166Q BITBLT 124Q PLAYANDSAVE 75Q PLAYANDSAVE 62Q BITBLT 26Q PRESSEDKEY 2 RESETTITLEBAR) (317Q LASTMOUSEBUTTONS 274Q LASTMOUSEBUTTONS 162Q INVERT 56Q INVERT 17Q KEYS 7 PIANO) () PIANOMENU D1 (F 0 MENUFORPIANO F 1 SCORE F 2 PLAYMODE F 3 NOTENUMBER F 4 NEWTUNE F 5 INSTRUMENTMODE F 6 SCOREMODE) P dgk dgl dgl dgl dgl dgl dgl@ dgdgdgdgdgdgdgjcTQ c dgdgdgi dgdgdgdgdgdggc dggccdggccdghc cdgdgQ dgdgg(620Q QUIT 606Q PRINTLAST 573Q PRINTFIRST 560Q PRINTSCORE 544Q SCOREON 531Q RESETTITLEBAR 524Q CREATEPIANOMENU 506Q RESETTITLEBAR 501Q CREATEPIANOMENU 461Q RESETTITLEBAR 454Q CREATEPIANOMENU 417Q KILLTAIL 404Q KILLHEAD 371Q WIPEOUT! 356Q ACCELERATEBYSCORE 334Q ACCELERATEBYSCORE 320Q PLAYLAST 305Q PLAYFIRST 272Q PLAYBACK 267Q REVERSE 262Q CLEANUPSCORE 241Q SAVETUNE 226Q LOADTUNE 213Q RESETTUNE 200Q EDITTO 165Q EDITFROM 152Q EDITNOTE 137Q RESETBEAT 122Q RESETBEAT 105Q RESETBEAT 70Q RESETBEAT 53Q RESETBEAT 36Q RESETBEAT 21Q RESETBEAT 6 PACK* 3 MENU) (612Q QUIT 600Q PRINTLAST 565Q PRINTFIRST 551Q PRINTSCORE 536Q SCOREON 513Q SCOREOFF 474Q MOUSE 466Q MOUSEMODE 447Q KEYS 441Q KEYMODE 432Q ORGAN 424Q ORGAN 411Q LAST 376Q FIRST 363Q WIPEOUT! 350Q SLOWER 341Q FASTER 325Q ACCELERATE 312Q PLAYLAST 277Q PLAYFIRST 246Q PLAYBACK 233Q SAVE 220Q LOAD 205Q RESET 172Q EDITTO 157Q EDITFROM 144Q EDITNOTE 127Q 1/64 112Q 1/32 75Q 1/16 60Q 1/8 43Q 1/4 26Q 1/2 12Q WHOLE) () PIANOMOUSE D1 (F 0 KEYCODE F 1 CURRNOTEYPOS F 2 CURRNOTEXPOS F 3 MARKER F 4 KEYBOARDW F 5 OCTPOS F 6 INSTRUMENTMODE F 7 PLAYMODE) Vg Wgh_PlShdTRQhddg l PP l2cUPl llհP l cUPll cShdTRQhddg 9Pdl~dlqdlP cl\U`kjB`lj2n ((331Q BLOCK 306Q GETMOUSESTATE 277Q PIANOMENU 263Q GETMOUSESTATE 254Q KILLNOTE 236Q PLAYANDSAVE 220Q RAISEKEYBOARD 203Q LOWERKEYBOARD 167Q PRESSEDKEY 161Q BITBLT 117Q PLAYANDSAVE 70Q PLAYANDSAVE 55Q BITBLT 25Q MOUSEDKEY 2 RESETTITLEBAR) (312Q LASTMOUSEBUTTONS 267Q LASTMOUSEBUTTONS 155Q INVERT 51Q INVERT 16Q MOUSE 6 PIANO) () PLAYANDSAVE D1 (P 0 NOTE I 0 KEYCODE F 5 DOTS F 6 NEWTUNE F 7 CURRENTBEAT F 10Q HALVED F 11Q SCORENOTES F 12Q NEWTUNELENGTH F 13Q KEYBOARDTTYW F 14Q SCORE F 15Q KEYMAP F 16Q CURRENTSTYLE F 17Q SCOREMODE)   Wl@WWl @WXUj0UU &0HdYIUjKJh\J&LHVc WgHVc WFUj&UU @WUo gg @WW WcoW H WkcW Wl h(301Q RESETBEAT 257Q PLAYTUNE 252Q PRIN1 233Q PRIN1 217Q PACK* 204Q FEQP 164Q \FZEROP 50Q \FZEROP 23Q RESETBEAT) (214Q ++ 210Q + 131Q DISTINCT) ( 245Q " " 201Q 1.5) PLAYBACK D1 (P 1 X I 1 TSCORE I 0 TUNE F 2 KEYBOARDTTYW F 3 SCOREMODE F 4 NOTENUMBER) o SR @ H`ljSRA#Ado R oR AbA+IAo AR oR AbTkcIh HX(206Q PLAYTUNE 164Q PRIN1 153Q PRIN1 143Q MEMB 115Q PRIN1 104Q PRIN1 75Q MEMB 42Q GETMOUSESTATE 34Q RESETTITLEBAR 21Q REVERSE 14Q CLEARW 6 PROMPTPRINT) (46Q LASTMOUSEBUTTONS) ( 160Q " " 140Q (R r) 111Q " " 72Q (< > / *) 3 "Left mouse key to STOP Playback.") PLAYFIRST D1 (P 2 TSCORE P 1 COUNTER P 0 N F 5 NEWTUNE F 6 NEWTUNELENGTH F 7 SCORE F 10Q NOTENUMBER) Tj2jcH)U&HVVW c [U H J hIHLdo IkعLJK(104Q MEMB 62Q PLAYBACK 57Q REVERSE 53Q BUILDFIRSTPLIST 47Q REVERSE 37Q REVERSE 32Q CLEANUPSCORE 2 HOWMANY) NIL ( 101Q (< > / *)) PLAYLAST D1 (P 2 TSCORE P 1 COUNTER P 0 N F 5 NEWTUNELENGTH F 6 NOTENUMBER F 7 NEWTUNE F 10Q SCORE) Yj2W*Hd&UUUkc W c[WH J hIHLdo IkعVkc LJK(103Q MEMB 61Q PLAYBACK 55Q REVERSE 52Q BUILDLASTPLIST 36Q CLEANUPSCORE 2 HOWMANY) NIL ( 100Q (< > / *)) POPANDDROP D1 (P 1 BEATDIFF P 0 OCTDIFF I 0 TSCORE) jdB@C@do 8dgHkظ#dgHkٸdgIk؇gIkٹ@b@ bH k[JjHgg@bKk԰I k]LjIgg@bMk԰@(162Q ABS 122Q ABS 114Q REMOVENOTE 21Q MEMB) (204Q / 200Q * 144Q > 140Q < 74Q * 62Q / 45Q < 30Q >) ( 16Q (< > / *)) PRESSEDKEY D1 (P 4 C P 3 X P 0 BEAT F 5 DOTS F 6 \LASTKEYSTATE F 7 CURRENTBEAT F 10Q HALVED F 11Q CURRENTSTYLE F 12Q INSTRUMENTMODE F 13Q KEYCODE) Wgjc hcVl* jUkc Vl jUkc UjUd Ukokc Vl jl@WicVl8 jWggWgg Vl jWk%WlװVl jl@WWlXH oo"JIhVL jKcLJI(327Q \GETBASEBIT 324Q \KEYNAMETONUMBER 264Q RESETBEAT 237Q \GETBASEBIT 211Q \GETBASEBIT 202Q RESETSTYLE 146Q \GETBASEBIT 123Q \GETBASEBIT 77Q \FZEROP 51Q \GETBASEBIT 32Q \GETBASEBIT) (177Q DISTINCT 172Q SLURRED 164Q SLURRED 156Q DISTINCT 7 PIANO) ( 275Q (0 1 2 3 4 5 6 12Q 13Q 15Q 16Q 17Q 22Q 23Q 24Q 25Q) 271Q (Z X C V B N M S D G H J LSHIFT RSHIFT SPACE BS) 107Q .25) PRINTFIRST D1 (P 3 SCOREHEAD P 2 TSCORE P 1 Y P 0 N F 6 SCORE F 7 KEYBOARDTTYW) <jV 3HW J\K h]KMo IkYIHL(53Q MEMB 34Q PRINTSCORE 22Q CLEARW 7 REVERSE 2 HOWMANY) NIL ( 50Q (< > / *)) PRINTLAST D1 (P 2 TSCORE P 1 Y P 0 N F 5 KEYBOARDTTYW F 6 SCORE) :j2HU V[ J h\JLo IkYIHK(51Q MEMB 32Q PRINTSCORE 27Q REVERSE 15Q CLEARW 2 HOWMANY) NIL ( 46Q (< > / *)) PRINTSCORE D1 (P 0 X I 0 TSCORE F 1 KEYBOARDTTYW F 2 SCORE) 0Q R c@ b dHQ oQ h(47Q PRIN1 36Q PRIN1 22Q REVERSE 15Q CLEANUPSCORE 7 CLEANUPSCORE 3 CLEARW) NIL ( 43Q " ") QUIT D1 (F 0 MARKER F 1 KEYBOARDW F 2 INSTRUMENTMODE F 3 CURRNOTEXPOS F 4 CURRNOTEYPOS) 'o PhdQSThddg hc(44Q CLEARBUF 40Q RESETTITLEBAR 30Q BITBLT 6 YES?) (24Q INVERT) ( 3 "Are you sure you want to Quit?") RAISEKEYBOARD D1 (F 0 FIRSTOCTAVE F 1 KEYCODE) lPPkcQ h(16Q STILLPRESSED) NIL () RAISEOCTAVE D1 (P 2 X P 0 OLDOCTAVET I 0 NEWOCTAVET F 3 OCTAVET F 4 OCTAVEV F 5 KEYBOARDTTYW F 6 SCORE F 7 KEYCODE F 10Q SCOREMODE F 11Q INSTRUMENTMODE F 12Q OCTPOS) wSlTTkclSO@cH W8Wg0SH kZI gU oU gVc Jk԰g TklcW g(157Q STILLPRESSED 140Q RESETTITLEBAR 134Q BOUNDP 107Q PRIN1 76Q PRIN1 56Q ABS 33Q RESETOCTAVE) (164Q edited: 131Q INSTRUMENTMODE 113Q > 72Q > 45Q PIANO) ( 103Q " ") REMOVENOTE D1 (I 0 SCORE) @do o @@ (34Q POPANDDROP 24Q MEMB 11Q MEMB) NIL ( 21Q (R r) 6 (< > / * R r)) RESETBEAT D1 (P 0 SYMBOL I 0 BEAT F 1 MARKER F 2 CURRENTBEAT F 3 SCORE F 4 KEYBOARDTTYW F 5 KEYBOARDW F 6 CURRNOTEXPOS F 7 CURRNOTEYPOS F 10Q HALF F 11Q SCOREMODE F 12Q WHOLE F 13Q 64TH F 14Q QUARTER F 15Q EIGHTH F 16Q SIXTEENTH F 17Q 32ND) @RQhdUVWhddg @dkWcDlWc:@dlWc-lWc#@dlWcl Wc@l@WcQhdUVWhddg WRd@@R,hlcgScgT oT RlcgScgT oT (321Q PRIN1 310Q PRIN1 257Q PRIN1 246Q PRIN1 217Q RESETTITLEBAR 213Q CHANGEDURATION 171Q BITBLT 32Q BITBLT) (304Q / 274Q / 242Q * 232Q * 165Q INVERT 26Q INVERT) ( 315Q " " 253Q " ") RESETOCTAVE D1 (P 7 Y P 6 X P 0 SYMBOL I 1 TEMOCTAVET I 0 OFACTOR F 10Q KEYMAP F 11Q MIDRANGEKEYMAP) WWRJIKci_NGNO"l@ NjOOhl@ NjOhhOLMh\JIM&(125Q EXPT 65Q EXPT) NIL () RESETSTYLE D1 (I 0 STYLE F 0 CURRENTSTYLE F 1 DISTINCTSCORENOTES F 2 SLURREDSCORENOTES F 3 SCORENOTES) @P@c@gQRch(31Q RESETTITLEBAR 12Q CHANGEDURATION) (16Q DISTINCT) () RESETTITLEBAR D1 (F 0 OCTAVET F 1 PLAYMODE F 2 KEYBOARDW F 3 INSTRUMENTMODE F 4 NEWTUNELENGTH F 5 CURRENTSTYLE F 6 CURRENTBEAT F 7 NOTENUMBER F 10Q SCOREMODE) c RgSdg9goPoUoVoQoWggoToW ggoPoQ g (140Q PUTWINDOWPROP 131Q CONCAT 100Q CONCAT) (135Q Keyboard 113Q Organ 105Q ORGAN 61Q OFF 55Q ON 17Q PIANO 10Q PIANO 3 TITLE) ( 124Q " Play Mode: " 117Q " Octave: " 72Q " # " 65Q " Length: " 47Q " Score: " 42Q " Play Mode: " 35Q " Beat: 1/" 30Q " Style: " 23Q " Octave: ") RESETTUNE D1 (F 0 SCORE F 1 KEYBOARDTTYW F 2 INITIALTUNE F 3 NEWTUNE F 4 NEWTUNELENGTH F 5 INITIALSCORE F 6 INITIALLENGTH) o Q RcUcVcP (34Q RESETTITLEBAR 31Q PRINTSCORE 14Q CLEARW 6 YES?) NIL ( 3 "Are you sure you want to reset the tune?") SAVETUNE D1 (P 0 NEWNAME F 1 NEWTUNE) 2Q,o XdQ H o h(56Q PRIN1 45Q PRIN1 37Q TERPRI 32Q SET 27Q REVERSE 17Q PACK* 14Q PROMPTFORWORD) NIL ( 53Q " saved." 11Q "Songname? ") SCOREON D1 (P 0 A F 1 KEYBOARDTTYW F 2 NEWTUNE F 3 SCOREMODE F 4 MENUFORPIANO) EiccQ Ro X Q hoHoQ R (101Q MAKESCORE 74Q CLEARW 50Q RESETTITLEBAR 44Q CLEARW 35Q PROMPTFORWORD 21Q CLEARBUF 16Q CLEARW 12Q RESETTITLEBAR 5 CREATEPIANOMENU) NIL ( 65Q "y" 56Q "Y" 32Q "Want to rewrite the score? (Y/N)") STILLMOUSED D1 (I 0 TKEYCODE F 0 KEYCODE) P@(2 MOUSEDKEY) NIL () STILLPRESSED D1 (I 0 KEYCODE F 4 \LASTKEYSTATE) 2Too"IH K j@JIH(36Q \GETBASEBIT 33Q \KEYNAMETONUMBER) NIL ( 10Q (0 1 2 3 4 5 6 12Q 13Q 15Q 16Q 17Q 22Q 23Q 24Q 25Q) 4 (Z X C V B N M S D G H J LSHIFT RSHIFT SPACE BS)) VALIDTUNE D1 (P 1 X F 4 NEWTUNE) ITT1HiYdl IhZJl I[Kl Id3I3HX(61Q \TYPEMASK.UFN 45Q \TYPEMASK.UFN 26Q \TYPEMASK.UFN) NIL () WIPEOUT! D1 (P 1 X F 2 NEWTUNE F 3 SCORE F 4 SCOREMODE F 5 NEWTUNELENGTH) HR>o -T!R kYHS cIk԰S hcjc o o (105Q PRIN1 75Q PRIN1 65Q RESETTITLEBAR 53Q PRINTSCORE 36Q REMOVENOTE 22Q COUNT 11Q YES?) NIL ( 102Q "There is no tune to wipe out." 72Q "WIPEOUT! cancelled." 6 "Are you sure you want to wipeout this tune?") YES? D1 (I 0 STRNG F 0 KEYBOARDTTYW) @hPi (6 MOUSECONFIRM) NIL () (PRETTYCOMPRINT KEYBOARDTOOLCOMS) (RPAQQ KEYBOARDTOOLCOMS ((VARS 32ND 64TH ACC BADGE CF DISTINCTSCORENOTES DURLIST EIGHTH HALF MARKER MIDRANGEKEYMAP MYICON QUARTER SIXTEENTH SLURREDSCORENOTES WHOLE) (FNS ACCELERATEBYSCORE BUILDFIRSTPLIST BUILDLASTPLIST CHANGEDURATION CHANGESTATE CLEANUPSCORE CONVERT CREATEKEYBOARDW DRAWKEYBOARDW EDITFROM EDITNOTE EDITSECTION EDITTO FINDBEAT FINDOCTAVE FINDSTYLE FULLNOTE GETNOTE GETSYMBOL HOWMANY KEYBOARD KEYBOARDFN CREATEPIANOMENU CREATEORGANMENU KILLHEAD KILLNOTE KILLTAIL LOADTUNE LOWERKEYBOARD LOWEROCTAVE MAKESCORE MESACON MOUSEDKEY NEAR ORGANKEYS ORGANMENU ORGANMOUSE PIANOKEYS PIANOMENU PIANOMOUSE PLAYANDSAVE PLAYBACK PLAYFIRST PLAYLAST POPANDDROP PRESSEDKEY PRINTFIRST PRINTLAST PRINTSCORE QUIT RAISEKEYBOARD RAISEOCTAVE REMOVENOTE RESETBEAT RESETOCTAVE RESETSTYLE RESETTITLEBAR RESETTUNE SAVETUNE SCOREON STILLMOUSED STILLPRESSED VALIDTUNE WIPEOUT! YES?)) ) (RPAQ 32ND (READBITMAP)) (9 20 "@OH@" "@OH@" "@L@@" "@OH@" "@L@@" "@OH@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "CL@@" "GL@@" "OL@@" "OH@@" "OH@@" "O@@@") (RPAQ 64TH (READBITMAP)) (9 20 "@OH@" "@OH@" "@L@@" "@OH@" "@L@@" "@OH@" "@L@@" "@OH@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "CL@@" "GL@@" "OL@@" "OH@@" "OH@@" "O@@@") (RPAQ ACC (READBITMAP)) (12 91 "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "OOO@" "GON@" "GON@" "AOH@") (RPAQ BADGE (READBITMAP)) (26 39 "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "N@@@@@D@" "O@@@@@L@" "OH@@@AL@" "OOOOOOL@") (RPAQ CF (READBITMAP)) (26 130 "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "L@@@@@@@" "N@@@@@D@" "O@@@@@L@" "OOOOOOL@") (RPAQQ DISTINCTSCORENOTES ((0 c) (10 c#) (1 d) (11 d#) (2 e) (3 f) (13 f#) (4 g) (14 g#) (5 a) (15 a#) (6 b) (20 r))) (RPAQQ DURLIST ((1 ((53332)) ((33336) (NIL . 19996))) (2 ((26666)) ((16668) (NIL . 9998))) (4 ((13333) ) ((8334) (NIL . 4999))) (8 ((6666)) ((4167) (NIL . 2499))) (16 ((3333)) ((2084) (NIL . 1249))) (32 (( 1666)) ((1042) (NIL . 624))) (64 ((833)) ((521) (NIL . 312))))) (RPAQ EIGHTH (READBITMAP)) (9 20 "@OH@" "@OH@" "@OH@" "@OH@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "CL@@" "GL@@" "GL@@" "OH@@" "O@@@" "O@@@") (RPAQ HALF (READBITMAP)) (9 20 "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@O@@" "CC@@" "DB@@" "DF@@" "HL@@" "O@@@") (RPAQ MARKER (READBITMAP)) (9 20 "@OH@" "@OH@" "@L@@" "@L@@" "@OH@" "@OH@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "CL@@" "GL@@" "OL@@" "OH@@" "OH@@" "O@@@" "N@@@") (RPAQQ MIDRANGEKEYMAP ((0 ((262 . 6666))) (10 ((277 . 6666))) (1 ((294 . 6666))) (11 ((311 . 6666))) ( 2 ((330 . 6666))) (3 ((349 . 6666))) (13 ((370 . 6666))) (4 ((392 . 6666))) (14 ((415 . 6666))) (5 (( 440 . 6666))) (15 ((466 . 6666))) (6 ((494 . 6666))) (20 ((NIL . 6666))))) (RPAQQ MYICON {WINDOW}#74,25150) (RPAQ QUARTER (READBITMAP)) (9 20 "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@C@@" "@O@@" "CO@@" "GN@@" "GN@@" "OL@@" "O@@@") (RPAQ SIXTEENTH (READBITMAP)) (9 20 "@OH@" "@OH@" "@L@@" "@OH@" "@OH@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "@L@@" "CL@@" "GL@@" "OL@@" "OH@@" "OH@@" "O@@@") (RPAQQ SLURREDSCORENOTES ((0 C) (10 C#) (1 D) (11 D#) (2 E) (3 F) (13 F#) (4 G) (14 G#) (5 A) (15 A#) (6 B) (20 R))) (RPAQ WHOLE (READBITMAP)) (9 6 "AL@@" "GO@@" "LAH@" "LAH@" "GO@@" "AL@@") (PUTPROPS KEYBOARDTOOL COPYRIGHT ("XEROX Corporation" 1986)) NIL