home *** CD-ROM | disk | FTP | other *** search
| CA Visual Objects Application Export File | 1995-01-03 | 51.3 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: CA Visual Objects Application Export File
(other/caVisualObjectsApplicationExport).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| CA Visual Objects Application Export File (other/caVisualObjectsApplicationExport)
| magic
| Unsupported |
| 1%
| dexvert
| A/E SGML DocumentBinary (other/aeSGMLDocumentBinary)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| TrID
| CA Visual Objects Application Export File (v1.x)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 00 20 00 00 00 80 01 | 43 41 2d 56 4f 20 41 70 |.. .....|CA-VO Ap|
|00000010| 70 6c 69 63 61 74 69 6f | 6e 20 45 78 70 6f 72 74 |plicatio|n Export|
|00000020| 20 46 69 6c 65 00 02 00 | 20 00 00 00 4d 75 73 69 | File...| ...Musi|
|00000030| 63 20 54 75 74 6f 72 00 | 00 00 00 00 00 00 00 00 |c Tutor.|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 09 01 04 00 |........|........|
|00000050| 00 00 9e d4 04 00 07 01 | 24 00 00 00 20 00 03 00 |........|$... ...|
|00000060| 00 00 00 00 00 00 01 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000070| 01 00 00 00 02 00 00 00 | 02 00 00 00 01 00 00 00 |........|........|
|00000080| 09 00 02 00 00 00 00 00 | 0a 00 02 00 00 00 00 00 |........|........|
|00000090| 0b 00 02 00 00 00 00 00 | 0c 00 02 00 00 00 00 00 |........|........|
|000000a0| 0d 00 2b 00 00 00 43 3a | 5c 43 41 56 4f 5c 53 41 |..+...C:|\CAVO\SA|
|000000b0| 4d 50 4c 45 53 5c 55 53 | 45 52 41 50 50 53 5c 4d |MPLES\US|ERAPPS\M|
|000000c0| 54 55 54 4f 52 5c 4d 54 | 55 54 4f 52 2e 45 58 45 |TUTOR\MT|UTOR.EXE|
|000000d0| 00 08 01 13 00 00 00 43 | 41 2d 56 4f 20 41 70 70 |.......C|A-VO App|
|000000e0| 6c 69 63 61 74 69 6f 6e | 73 00 0e 00 07 00 00 00 |lication|s.......|
|000000f0| 4d 59 49 43 4f 4e 00 04 | 00 20 00 00 00 54 65 72 |MYICON..|. ...Ter|
|00000100| 6d 69 6e 61 6c 00 00 00 | 00 00 00 00 00 00 00 00 |minal...|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 04 00 20 |........|....... |
|00000120| 00 00 00 53 79 73 74 65 | 6d 20 43 6c 61 73 73 65 |...Syste|m Classe|
|00000130| 73 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.......|........|
|00000140| 00 00 00 04 00 20 00 00 | 00 57 69 6e 64 6f 77 73 |..... ..|.Windows|
|00000150| 20 41 50 49 00 00 00 00 | 00 00 00 00 00 00 00 00 | API....|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 04 01 02 00 00 00 00 |........|........|
|00000170| 00 05 01 02 00 00 00 00 | 00 20 00 0c 00 00 00 4d |........|. .....M|
|00000180| 75 73 69 63 20 54 75 74 | 6f 72 00 21 00 02 00 00 |usic Tut|or.!....|
|00000190| 00 02 00 40 00 0e 00 00 | 00 49 4e 56 41 4c 49 44 |...@....|.INVALID|
|000001a0| 41 54 45 52 47 4e 00 51 | 00 02 00 00 00 02 00 44 |ATERGN.Q|.......D|
|000001b0| 00 02 00 00 00 01 00 48 | 00 04 00 00 00 f6 9e 09 |.......H|........|
|000001c0| 2f 4d 00 02 00 00 00 11 | 00 45 00 02 00 00 00 00 |/M......|.E......|
|000001d0| 00 46 00 02 00 00 00 02 | 00 47 00 02 00 00 00 ff |.F......|.G......|
|000001e0| ff 49 00 02 00 00 00 00 | 00 41 00 71 00 00 00 5f |.I......|.A.q..._|
|000001f0| 44 4c 4c 20 46 75 6e 63 | 74 69 6f 6e 20 49 6e 76 |DLL Func|tion Inv|
|00000200| 61 6c 69 64 61 74 65 52 | 67 6e 28 20 68 77 6e 64 |alidateR|gn( hwnd|
|00000210| 20 61 73 20 57 6f 72 64 | 2c 20 68 72 67 6e 20 61 | as Word|, hrgn a|
|00000220| 73 20 77 6f 72 64 2c 20 | 74 45 72 61 73 65 20 61 |s word, |tErase a|
|00000230| 73 20 4c 6f 67 69 63 20 | 29 20 41 73 20 76 6f 69 |s Logic |) As voi|
|00000240| 64 20 50 61 73 63 61 6c | 3a 55 73 65 72 2e 49 6e |d Pascal|:User.In|
|00000250| 76 61 6c 69 64 61 74 65 | 52 67 6e 0d 0a 0d 0a 00 |validate|Rgn.....|
|00000260| 4e 00 6d 00 00 00 5f 44 | 4c 4c 20 46 75 6e 63 74 |N.m..._D|LL Funct|
|00000270| 69 6f 6e 20 49 6e 76 61 | 6c 69 64 61 74 65 52 67 |ion Inva|lidateRg|
|00000280| 6e 28 20 68 77 6e 64 20 | 61 73 20 57 6f 72 64 2c |n( hwnd |as Word,|
|00000290| 20 68 72 67 6e 20 61 73 | 20 77 6f 72 64 2c 20 74 | hrgn as| word, t|
|000002a0| 45 72 61 73 65 20 61 73 | 20 4c 6f 67 69 63 20 29 |Erase as| Logic )|
|000002b0| 20 41 73 20 76 6f 69 64 | 20 50 61 73 63 61 6c 3a | As void| Pascal:|
|000002c0| 55 73 65 72 2e 49 6e 76 | 61 6c 69 64 61 74 65 52 |User.Inv|alidateR|
|000002d0| 67 6e 00 40 00 05 00 00 | 00 4e 55 4c 4c 00 51 00 |gn.@....|.NULL.Q.|
|000002e0| 02 00 00 00 02 00 44 00 | 02 00 00 00 03 00 48 00 |......D.|......H.|
|000002f0| 04 00 00 00 f6 9e 09 2f | 4d 00 02 00 00 00 1b 00 |......./|M.......|
|00000300| 45 00 02 00 00 00 00 00 | 46 00 02 00 00 00 02 00 |E.......|F.......|
|00000310| 47 00 02 00 00 00 ff ff | 49 00 02 00 00 00 00 00 |G.......|I.......|
|00000320| 41 00 29 00 00 00 44 65 | 66 69 6e 65 20 4e 55 4c |A.)...De|fine NUL|
|00000330| 4c 20 20 20 20 20 20 20 | 20 20 3a 3d 20 50 54 52 |L | := PTR|
|00000340| 28 5f 43 41 53 54 2c 20 | 30 4c 29 20 0d 0a 00 4e |(_CAST, |0L) ...N|
|00000350| 00 27 00 00 00 44 65 66 | 69 6e 65 20 4e 55 4c 4c |.'...Def|ine NULL|
|00000360| 20 20 20 20 20 20 20 20 | 20 3a 3d 20 50 54 52 28 | | := PTR(|
|00000370| 5f 43 41 53 54 2c 20 30 | 4c 29 20 00 40 00 09 00 |_CAST, 0|L) .@...|
|00000380| 00 00 44 55 52 41 54 49 | 4f 4e 00 51 00 02 00 00 |..DURATI|ON.Q....|
|00000390| 00 02 00 44 00 02 00 00 | 00 03 00 48 00 04 00 00 |...D....|...H....|
|000003a0| 00 14 a2 09 2f 4d 00 02 | 00 00 00 1b 00 45 00 02 |..../M..|.....E..|
|000003b0| 00 00 00 00 00 46 00 02 | 00 00 00 02 00 47 00 02 |.....F..|.....G..|
|000003c0| 00 00 00 ff ff 49 00 02 | 00 00 00 00 00 41 00 1f |.....I..|.....A..|
|000003d0| 00 00 00 44 65 66 69 6e | 65 20 44 55 52 41 54 49 |...Defin|e DURATI|
|000003e0| 4f 4e 20 20 20 20 20 3a | 3d 20 20 20 20 32 20 0d |ON :|= 2 .|
|000003f0| 0a 00 4e 00 1d 00 00 00 | 44 65 66 69 6e 65 20 44 |..N.....|Define D|
|00000400| 55 52 41 54 49 4f 4e 20 | 20 20 20 20 3a 3d 20 20 |URATION | := |
|00000410| 20 20 32 20 00 40 00 0a | 00 00 00 49 44 4d 5f 53 | 2 .@..|...IDM_S|
|00000420| 4f 55 4e 44 00 51 00 02 | 00 00 00 02 00 44 00 02 |OUND.Q..|.....D..|
|00000430| 00 00 00 03 00 48 00 04 | 00 00 00 f6 9e 09 2f 4d |.....H..|....../M|
|00000440| 00 02 00 00 00 1b 00 45 | 00 02 00 00 00 00 00 46 |.......E|.......F|
|00000450| 00 02 00 00 00 02 00 47 | 00 02 00 00 00 ff ff 49 |.......G|.......I|
|00000460| 00 02 00 00 00 00 00 41 | 00 20 00 00 00 44 65 66 |.......A|. ...Def|
|00000470| 69 6e 65 20 49 44 4d 5f | 53 4f 55 4e 44 20 20 20 |ine IDM_|SOUND |
|00000480| 20 3a 3d 20 37 35 30 31 | 20 20 0d 0a 00 4e 00 1e | := 7501| ...N..|
|00000490| 00 00 00 44 65 66 69 6e | 65 20 49 44 4d 5f 53 4f |...Defin|e IDM_SO|
|000004a0| 55 4e 44 20 20 20 20 3a | 3d 20 37 35 30 31 20 20 |UND :|= 7501 |
|000004b0| 00 40 00 0b 00 00 00 49 | 44 4d 5f 47 55 49 54 41 |.@.....I|DM_GUITA|
|000004c0| 52 00 51 00 02 00 00 00 | 02 00 44 00 02 00 00 00 |R.Q.....|..D.....|
|000004d0| 03 00 48 00 04 00 00 00 | f6 9e 09 2f 4d 00 02 00 |..H.....|.../M...|
|000004e0| 00 00 1b 00 45 00 02 00 | 00 00 00 00 46 00 02 00 |....E...|....F...|
|000004f0| 00 00 02 00 47 00 02 00 | 00 00 ff ff 49 00 02 00 |....G...|....I...|
|00000500| 00 00 00 00 41 00 20 00 | 00 00 44 65 66 69 6e 65 |....A. .|..Define|
|00000510| 20 49 44 4d 5f 47 55 49 | 54 41 52 20 20 20 3a 3d | IDM_GUI|TAR :=|
|00000520| 20 37 35 30 32 20 20 0d | 0a 00 4e 00 1e 00 00 00 | 7502 .|..N.....|
|00000530| 44 65 66 69 6e 65 20 49 | 44 4d 5f 47 55 49 54 41 |Define I|DM_GUITA|
|00000540| 52 20 20 20 3a 3d 20 37 | 35 30 32 20 20 00 40 00 |R := 7|502 .@.|
|00000550| 09 00 00 00 49 44 4d 5f | 4b 45 59 53 00 51 00 02 |....IDM_|KEYS.Q..|
|00000560| 00 00 00 02 00 44 00 02 | 00 00 00 03 00 48 00 04 |.....D..|.....H..|
|00000570| 00 00 00 f6 9e 09 2f 4d | 00 02 00 00 00 1b 00 45 |....../M|.......E|
|00000580| 00 02 00 00 00 00 00 46 | 00 02 00 00 00 02 00 47 |.......F|.......G|
|00000590| 00 02 00 00 00 ff ff 49 | 00 02 00 00 00 00 00 41 |.......I|.......A|
|000005a0| 00 1f 00 00 00 44 65 66 | 69 6e 65 20 49 44 4d 5f |.....Def|ine IDM_|
|000005b0| 4b 45 59 53 20 20 20 20 | 20 3a 3d 20 37 35 30 33 |KEYS | := 7503|
|000005c0| 20 0d 0a 00 4e 00 1d 00 | 00 00 44 65 66 69 6e 65 | ...N...|..Define|
|000005d0| 20 49 44 4d 5f 4b 45 59 | 53 20 20 20 20 20 3a 3d | IDM_KEY|S :=|
|000005e0| 20 37 35 30 33 20 00 40 | 00 0a 00 00 00 49 44 4d | 7503 .@|.....IDM|
|000005f0| 5f 4e 4f 54 45 53 00 51 | 00 02 00 00 00 02 00 44 |_NOTES.Q|.......D|
|00000600| 00 02 00 00 00 03 00 48 | 00 04 00 00 00 f6 9e 09 |.......H|........|
|00000610| 2f 4d 00 02 00 00 00 1b | 00 45 00 02 00 00 00 00 |/M......|.E......|
|00000620| 00 46 00 02 00 00 00 02 | 00 47 00 02 00 00 00 ff |.F......|.G......|
|00000630| ff 49 00 02 00 00 00 00 | 00 41 00 1f 00 00 00 44 |.I......|.A.....D|
|00000640| 65 66 69 6e 65 20 49 44 | 4d 5f 4e 4f 54 45 53 20 |efine ID|M_NOTES |
|00000650| 20 20 20 3a 3d 20 37 35 | 30 34 20 0d 0a 00 4e 00 | := 75|04 ...N.|
|00000660| 1d 00 00 00 44 65 66 69 | 6e 65 20 49 44 4d 5f 4e |....Defi|ne IDM_N|
|00000670| 4f 54 45 53 20 20 20 20 | 3a 3d 20 37 35 30 34 20 |OTES |:= 7504 |
|00000680| 00 40 00 0c 00 00 00 49 | 44 4d 5f 49 4e 53 54 58 |.@.....I|DM_INSTX|
|00000690| 49 54 00 51 00 02 00 00 | 00 02 00 44 00 02 00 00 |IT.Q....|...D....|
|000006a0| 00 03 00 48 00 04 00 00 | 00 f6 9e 09 2f 4d 00 02 |...H....|..../M..|
|000006b0| 00 00 00 1b 00 45 00 02 | 00 00 00 00 00 46 00 02 |.....E..|.....F..|
|000006c0| 00 00 00 02 00 47 00 02 | 00 00 00 ff ff 49 00 02 |.....G..|.....I..|
|000006d0| 00 00 00 00 00 41 00 20 | 00 00 00 44 65 66 69 6e |.....A. |...Defin|
|000006e0| 65 20 49 44 4d 5f 49 4e | 53 54 58 49 54 20 20 3a |e IDM_IN|STXIT :|
|000006f0| 3d 20 37 35 30 35 20 20 | 0d 0a 00 4e 00 1e 00 00 |= 7505 |...N....|
|00000700| 00 44 65 66 69 6e 65 20 | 49 44 4d 5f 49 4e 53 54 |.Define |IDM_INST|
|00000710| 58 49 54 20 20 3a 3d 20 | 37 35 30 35 20 20 00 40 |XIT := |7505 .@|
|00000720| 00 0d 00 00 00 49 44 4d | 5f 4e 45 58 54 4e 4f 54 |.....IDM|_NEXTNOT|
|00000730| 45 00 51 00 02 00 00 00 | 02 00 44 00 02 00 00 00 |E.Q.....|..D.....|
|00000740| 03 00 48 00 04 00 00 00 | f6 9e 09 2f 4d 00 02 00 |..H.....|.../M...|
|00000750| 00 00 1b 00 45 00 02 00 | 00 00 00 00 46 00 02 00 |....E...|....F...|
|00000760| 00 00 02 00 47 00 02 00 | 00 00 ff ff 49 00 02 00 |....G...|....I...|
|00000770| 00 00 00 00 41 00 1f 00 | 00 00 44 65 66 69 6e 65 |....A...|..Define|
|00000780| 20 49 44 4d 5f 4e 45 58 | 54 4e 4f 54 45 20 3a 3d | IDM_NEX|TNOTE :=|
|00000790| 20 37 35 30 36 20 0d 0a | 00 4e 00 1d 00 00 00 44 | 7506 ..|.N.....D|
|000007a0| 65 66 69 6e 65 20 49 44 | 4d 5f 4e 45 58 54 4e 4f |efine ID|M_NEXTNO|
|000007b0| 54 45 20 3a 3d 20 37 35 | 30 36 20 00 40 00 09 00 |TE := 75|06 .@...|
|000007c0| 00 00 49 44 4d 5f 45 58 | 49 54 00 51 00 02 00 00 |..IDM_EX|IT.Q....|
|000007d0| 00 02 00 44 00 02 00 00 | 00 03 00 48 00 04 00 00 |...D....|...H....|
|000007e0| 00 f6 9e 09 2f 4d 00 02 | 00 00 00 1b 00 45 00 02 |..../M..|.....E..|
|000007f0| 00 00 00 00 00 46 00 02 | 00 00 00 02 00 47 00 02 |.....F..|.....G..|
|00000800| 00 00 00 ff ff 49 00 02 | 00 00 00 00 00 41 00 20 |.....I..|.....A. |
|00000810| 00 00 00 44 65 66 69 6e | 65 20 49 44 4d 5f 45 58 |...Defin|e IDM_EX|
|00000820| 49 54 20 20 20 20 20 3a | 3d 20 20 20 32 37 20 20 |IT :|= 27 |
|00000830| 0d 0a 00 4e 00 1e 00 00 | 00 44 65 66 69 6e 65 20 |...N....|.Define |
|00000840| 49 44 4d 5f 45 58 49 54 | 20 20 20 20 20 3a 3d 20 |IDM_EXIT| := |
|00000850| 20 20 32 37 20 20 00 40 | 00 09 00 00 00 49 44 4d | 27 .@|.....IDM|
|00000860| 5f 48 45 4c 50 00 51 00 | 02 00 00 00 02 00 44 00 |_HELP.Q.|......D.|
|00000870| 02 00 00 00 03 00 48 00 | 04 00 00 00 f6 9e 09 2f |......H.|......./|
|00000880| 4d 00 02 00 00 00 1b 00 | 45 00 02 00 00 00 00 00 |M.......|E.......|
|00000890| 46 00 02 00 00 00 02 00 | 47 00 02 00 00 00 ff ff |F.......|G.......|
|000008a0| 49 00 02 00 00 00 00 00 | 41 00 1f 00 00 00 44 65 |I.......|A.....De|
|000008b0| 66 69 6e 65 20 49 44 4d | 5f 48 45 4c 50 20 20 20 |fine IDM|_HELP |
|000008c0| 20 20 3a 3d 20 20 20 39 | 39 20 0d 0a 00 4e 00 1d | := 9|9 ...N..|
|000008d0| 00 00 00 44 65 66 69 6e | 65 20 49 44 4d 5f 48 45 |...Defin|e IDM_HE|
|000008e0| 4c 50 20 20 20 20 20 3a | 3d 20 20 20 39 39 20 00 |LP :|= 99 .|
|000008f0| 40 00 0a 00 00 00 49 44 | 4d 5f 41 42 4f 55 54 00 |@.....ID|M_ABOUT.|
|00000900| 51 00 02 00 00 00 02 00 | 44 00 02 00 00 00 03 00 |Q.......|D.......|
|00000910| 48 00 04 00 00 00 f6 9e | 09 2f 4d 00 02 00 00 00 |H.......|./M.....|
|00000920| 1b 00 45 00 02 00 00 00 | 00 00 46 00 02 00 00 00 |..E.....|..F.....|
|00000930| 02 00 47 00 02 00 00 00 | ff ff 49 00 02 00 00 00 |..G.....|..I.....|
|00000940| 00 00 41 00 22 00 00 00 | 44 65 66 69 6e 65 20 49 |..A."...|Define I|
|00000950| 44 4d 5f 41 42 4f 55 54 | 20 20 20 20 3a 3d 20 20 |DM_ABOUT| := |
|00000960| 20 39 38 20 20 0d 0a 0d | 0a 00 4e 00 1e 00 00 00 | 98 ...|..N.....|
|00000970| 44 65 66 69 6e 65 20 49 | 44 4d 5f 41 42 4f 55 54 |Define I|DM_ABOUT|
|00000980| 20 20 20 20 3a 3d 20 20 | 20 39 38 20 20 00 40 00 | := | 98 .@.|
|00000990| 11 00 00 00 49 4e 53 54 | 52 55 4d 45 4e 54 5f 50 |....INST|RUMENT_P|
|000009a0| 49 41 4e 4f 00 51 00 02 | 00 00 00 02 00 44 00 02 |IANO.Q..|.....D..|
|000009b0| 00 00 00 03 00 48 00 04 | 00 00 00 f6 9e 09 2f 4d |.....H..|....../M|
|000009c0| 00 02 00 00 00 1b 00 45 | 00 02 00 00 00 00 00 46 |.......E|.......F|
|000009d0| 00 02 00 00 00 02 00 47 | 00 02 00 00 00 ff ff 49 |.......G|.......I|
|000009e0| 00 02 00 00 00 00 00 41 | 00 21 00 00 00 44 65 66 |.......A|.!...Def|
|000009f0| 69 6e 65 20 49 4e 53 54 | 52 55 4d 45 4e 54 5f 50 |ine INST|RUMENT_P|
|00000a00| 49 41 4e 4f 20 3a 3d 20 | 32 20 20 0d 0a 00 4e 00 |IANO := |2 ...N.|
|00000a10| 1f 00 00 00 44 65 66 69 | 6e 65 20 49 4e 53 54 52 |....Defi|ne INSTR|
|00000a20| 55 4d 45 4e 54 5f 50 49 | 41 4e 4f 20 3a 3d 20 32 |UMENT_PI|ANO := 2|
|00000a30| 20 20 00 40 00 12 00 00 | 00 49 4e 53 54 52 55 4d | .@....|.INSTRUM|
|00000a40| 45 4e 54 5f 47 55 49 54 | 41 52 00 51 00 02 00 00 |ENT_GUIT|AR.Q....|
|00000a50| 00 02 00 44 00 02 00 00 | 00 03 00 48 00 04 00 00 |...D....|...H....|
|00000a60| 00 f6 9e 09 2f 4d 00 02 | 00 00 00 1b 00 45 00 02 |..../M..|.....E..|
|00000a70| 00 00 00 00 00 46 00 02 | 00 00 00 02 00 47 00 02 |.....F..|.....G..|
|00000a80| 00 00 00 ff ff 49 00 02 | 00 00 00 00 00 41 00 22 |.....I..|.....A."|
|00000a90| 00 00 00 44 65 66 69 6e | 65 20 49 4e 53 54 52 55 |...Defin|e INSTRU|
|00000aa0| 4d 45 4e 54 5f 47 55 49 | 54 41 52 20 3a 3d 20 31 |MENT_GUI|TAR := 1|
|00000ab0| 20 20 0d 0a 00 4e 00 20 | 00 00 00 44 65 66 69 6e | ...N. |...Defin|
|00000ac0| 65 20 49 4e 53 54 52 55 | 4d 45 4e 54 5f 47 55 49 |e INSTRU|MENT_GUI|
|00000ad0| 54 41 52 20 3a 3d 20 31 | 20 20 00 40 00 0e 00 00 |TAR := 1| .@....|
|00000ae0| 00 4e 4f 5f 49 4e 53 54 | 52 55 4d 45 4e 54 00 51 |.NO_INST|RUMENT.Q|
|00000af0| 00 02 00 00 00 02 00 44 | 00 02 00 00 00 03 00 48 |.......D|.......H|
|00000b00| 00 04 00 00 00 f6 9e 09 | 2f 4d 00 02 00 00 00 1b |........|/M......|
|00000b10| 00 45 00 02 00 00 00 00 | 00 46 00 02 00 00 00 02 |.E......|.F......|
|00000b20| 00 47 00 02 00 00 00 ff | ff 49 00 02 00 00 00 00 |.G......|.I......|
|00000b30| 00 41 00 26 00 00 00 44 | 65 66 69 6e 65 20 4e 4f |.A.&...D|efine NO|
|00000b40| 5f 49 4e 53 54 52 55 4d | 45 4e 54 20 3a 3d 20 30 |_INSTRUM|ENT := 0|
|00000b50| 20 20 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 00 4e 00 1c | ......|.....N..|
|00000b60| 00 00 00 44 65 66 69 6e | 65 20 4e 4f 5f 49 4e 53 |...Defin|e NO_INS|
|00000b70| 54 52 55 4d 45 4e 54 20 | 3a 3d 20 30 20 20 00 40 |TRUMENT |:= 0 .@|
|00000b80| 00 03 00 00 00 52 43 00 | 51 00 02 00 00 00 02 00 |.....RC.|Q.......|
|00000b90| 44 00 02 00 00 00 03 00 | 48 00 04 00 00 00 f6 9e |D.......|H.......|
|00000ba0| 09 2f 4d 00 02 00 00 00 | 16 00 45 00 02 00 00 00 |./M.....|..E.....|
|00000bb0| 00 00 46 00 02 00 00 00 | 02 00 47 00 02 00 00 00 |..F.....|..G.....|
|00000bc0| ff ff 49 00 02 00 00 00 | 00 00 41 00 25 00 00 00 |..I.....|..A.%...|
|00000bd0| 47 6c 6f 62 61 6c 20 72 | 63 20 20 20 20 20 20 20 |Global r|c |
|00000be0| 20 20 20 20 20 20 20 49 | 73 20 5f 57 49 4e 52 45 | I|s _WINRE|
|00000bf0| 43 54 0d 0a 00 4e 00 23 | 00 00 00 47 6c 6f 62 61 |CT...N.#|...Globa|
|00000c00| 6c 20 72 63 20 20 20 20 | 20 20 20 20 20 20 20 20 |l rc | |
|00000c10| 20 20 49 73 20 5f 57 49 | 4e 52 45 43 54 00 40 00 | Is _WI|NRECT.@.|
|00000c20| 02 00 00 00 50 00 51 00 | 02 00 00 00 02 00 44 00 |....P.Q.|......D.|
|00000c30| 02 00 00 00 03 00 48 00 | 04 00 00 00 f6 9e 09 2f |......H.|......./|
|00000c40| 4d 00 02 00 00 00 16 00 | 45 00 02 00 00 00 00 00 |M.......|E.......|
|00000c50| 46 00 02 00 00 00 02 00 | 47 00 02 00 00 00 ff ff |F.......|G.......|
|00000c60| 49 00 02 00 00 00 00 00 | 41 00 28 00 00 00 47 6c |I.......|A.(...Gl|
|00000c70| 6f 62 61 6c 20 70 20 20 | 20 20 20 20 20 20 20 20 |obal p | |
|00000c80| 20 20 20 20 20 49 73 20 | 5f 57 49 4e 50 4f 49 4e | Is |_WINPOIN|
|00000c90| 54 0d 0a 0d 0a 00 4e 00 | 24 00 00 00 47 6c 6f 62 |T.....N.|$...Glob|
|00000ca0| 61 6c 20 70 20 20 20 20 | 20 20 20 20 20 20 20 20 |al p | |
|00000cb0| 20 20 20 49 73 20 5f 57 | 49 4e 50 4f 49 4e 54 00 | Is _W|INPOINT.|
|00000cc0| 40 00 03 00 00 00 50 54 | 00 51 00 02 00 00 00 02 |@.....PT|.Q......|
|00000cd0| 00 44 00 02 00 00 00 03 | 00 48 00 04 00 00 00 f6 |.D......|.H......|
|00000ce0| 9e 09 2f 4d 00 02 00 00 | 00 16 00 45 00 02 00 00 |../M....|...E....|
|00000cf0| 00 00 00 46 00 02 00 00 | 00 02 00 47 00 02 00 00 |...F....|...G....|
|00000d00| 00 ff ff 49 00 02 00 00 | 00 00 00 41 00 25 00 00 |...I....|...A.%..|
|00000d10| 00 47 6c 6f 62 61 6c 20 | 70 74 20 20 20 20 20 20 |.Global |pt |
|00000d20| 20 20 20 3a 3d 20 30 20 | 20 20 20 20 41 73 20 57 | := 0 | As W|
|00000d30| 6f 72 64 0d 0a 00 4e 00 | 23 00 00 00 47 6c 6f 62 |ord...N.|#...Glob|
|00000d40| 61 6c 20 70 74 20 20 20 | 20 20 20 20 20 20 3a 3d |al pt | :=|
|00000d50| 20 30 20 20 20 20 20 41 | 73 20 57 6f 72 64 00 40 | 0 A|s Word.@|
|00000d60| 00 0c 00 00 00 48 45 52 | 41 53 45 42 52 55 53 48 |.....HER|ASEBRUSH|
|00000d70| 00 51 00 02 00 00 00 02 | 00 44 00 02 00 00 00 03 |.Q......|.D......|
|00000d80| 00 48 00 04 00 00 00 f6 | 9e 09 2f 4d 00 02 00 00 |.H......|../M....|
|00000d90| 00 16 00 45 00 02 00 00 | 00 00 00 46 00 02 00 00 |...E....|...F....|
|00000da0| 00 02 00 47 00 02 00 00 | 00 ff ff 49 00 02 00 00 |...G....|...I....|
|00000db0| 00 00 00 41 00 25 00 00 | 00 47 6c 6f 62 61 6c 20 |...A.%..|.Global |
|00000dc0| 68 45 72 61 73 65 42 72 | 75 73 68 20 20 20 20 20 |hEraseBr|ush |
|00000dd0| 20 20 20 20 41 73 20 57 | 6f 72 64 0d 0a 00 4e 00 | As W|ord...N.|
|00000de0| 23 00 00 00 47 6c 6f 62 | 61 6c 20 68 45 72 61 73 |#...Glob|al hEras|
|00000df0| 65 42 72 75 73 68 20 20 | 20 20 20 20 20 20 20 41 |eBrush | A|
|00000e00| 73 20 57 6f 72 64 00 40 | 00 0d 00 00 00 48 53 54 |s Word.@|.....HST|
|00000e10| 52 49 4e 47 42 52 55 53 | 48 00 51 00 02 00 00 00 |RINGBRUS|H.Q.....|
|00000e20| 02 00 44 00 02 00 00 00 | 03 00 48 00 04 00 00 00 |..D.....|..H.....|
|00000e30| f6 9e 09 2f 4d 00 02 00 | 00 00 16 00 45 00 02 00 |.../M...|....E...|
|00000e40| 00 00 00 00 46 00 02 00 | 00 00 02 00 47 00 02 00 |....F...|....G...|
|00000e50| 00 00 ff ff 49 00 02 00 | 00 00 00 00 41 00 25 00 |....I...|....A.%.|
|00000e60| 00 00 47 6c 6f 62 61 6c | 20 68 53 74 72 69 6e 67 |..Global| hString|
|00000e70| 42 72 75 73 68 20 20 20 | 20 20 20 20 20 41 73 20 |Brush | As |
|00000e80| 57 6f 72 64 0d 0a 00 4e | 00 23 00 00 00 47 6c 6f |Word...N|.#...Glo|
|00000e90| 62 61 6c 20 68 53 74 72 | 69 6e 67 42 72 75 73 68 |bal hStr|ingBrush|
|00000ea0| 20 20 20 20 20 20 20 20 | 41 73 20 57 6f 72 64 00 | |As Word.|
|00000eb0| 40 00 0b 00 00 00 48 46 | 52 45 54 42 52 55 53 48 |@.....HF|RETBRUSH|
|00000ec0| 00 51 00 02 00 00 00 02 | 00 44 00 02 00 00 00 03 |.Q......|.D......|
|00000ed0| 00 48 00 04 00 00 00 f6 | 9e 09 2f 4d 00 02 00 00 |.H......|../M....|
|00000ee0| 00 16 00 45 00 02 00 00 | 00 00 00 46 00 02 00 00 |...E....|...F....|
|00000ef0| 00 02 00 47 00 02 00 00 | 00 ff ff 49 00 02 00 00 |...G....|...I....|
|00000f00| 00 00 00 41 00 25 00 00 | 00 47 6c 6f 62 61 6c 20 |...A.%..|.Global |
|00000f10| 68 46 72 65 74 42 72 75 | 73 68 20 20 20 20 20 20 |hFretBru|sh |
|00000f20| 20 20 20 20 41 73 20 57 | 6f 72 64 0d 0a 00 4e 00 | As W|ord...N.|
|00000f30| 23 00 00 00 47 6c 6f 62 | 61 6c 20 68 46 72 65 74 |#...Glob|al hFret|
|00000f40| 42 72 75 73 68 20 20 20 | 20 20 20 20 20 20 20 41 |Brush | A|
|00000f50| 73 20 57 6f 72 64 00 40 | 00 10 00 00 00 48 46 52 |s Word.@|.....HFR|
|00000f60| 45 54 42 4f 41 52 44 42 | 52 55 53 48 00 51 00 02 |ETBOARDB|RUSH.Q..|
|00000f70| 00 00 00 02 00 44 00 02 | 00 00 00 03 00 48 00 04 |.....D..|.....H..|
|00000f80| 00 00 00 f6 9e 09 2f 4d | 00 02 00 00 00 16 00 45 |....../M|.......E|
|00000f90| 00 02 00 00 00 00 00 46 | 00 02 00 00 00 02 00 47 |.......F|.......G|
|00000fa0| 00 02 00 00 00 ff ff 49 | 00 02 00 00 00 00 00 41 |.......I|.......A|
|00000fb0| 00 25 00 00 00 47 6c 6f | 62 61 6c 20 68 46 72 65 |.%...Glo|bal hFre|
|00000fc0| 74 42 6f 61 72 64 42 72 | 75 73 68 20 20 20 20 20 |tBoardBr|ush |
|00000fd0| 41 73 20 57 6f 72 64 0d | 0a 00 4e 00 23 00 00 00 |As Word.|..N.#...|
|00000fe0| 47 6c 6f 62 61 6c 20 68 | 46 72 65 74 42 6f 61 72 |Global h|FretBoar|
|00000ff0| 64 42 72 75 73 68 20 20 | 20 20 20 41 73 20 57 6f |dBrush | As Wo|
|00001000| 72 64 00 40 00 0b 00 00 | 00 48 42 4c 41 43 4b 4b |rd.@....|.HBLACKK|
|00001010| 45 59 53 00 51 00 02 00 | 00 00 02 00 44 00 02 00 |EYS.Q...|....D...|
|00001020| 00 00 03 00 48 00 04 00 | 00 00 f6 9e 09 2f 4d 00 |....H...|...../M.|
|00001030| 02 00 00 00 16 00 45 00 | 02 00 00 00 00 00 46 00 |......E.|......F.|
|00001040| 02 00 00 00 02 00 47 00 | 02 00 00 00 ff ff 49 00 |......G.|......I.|
|00001050| 02 00 00 00 00 00 41 00 | 25 00 00 00 47 6c 6f 62 |......A.|%...Glob|
|00001060| 61 6c 20 68 42 6c 61 63 | 6b 4b 65 79 73 20 20 20 |al hBlac|kKeys |
|00001070| 20 20 20 20 20 20 20 41 | 73 20 57 6f 72 64 0d 0a | A|s Word..|
|00001080| 00 4e 00 23 00 00 00 47 | 6c 6f 62 61 6c 20 68 42 |.N.#...G|lobal hB|
|00001090| 6c 61 63 6b 4b 65 79 73 | 20 20 20 20 20 20 20 20 |lackKeys| |
|000010a0| 20 20 41 73 20 57 6f 72 | 64 00 40 00 0b 00 00 00 | As Wor|d.@.....|
|000010b0| 48 57 48 49 54 45 4b 45 | 59 53 00 51 00 02 00 00 |HWHITEKE|YS.Q....|
|000010c0| 00 02 00 44 00 02 00 00 | 00 03 00 48 00 04 00 00 |...D....|...H....|
|000010d0| 00 f6 9e 09 2f 4d 00 02 | 00 00 00 16 00 45 00 02 |..../M..|.....E..|
|000010e0| 00 00 00 00 00 46 00 02 | 00 00 00 02 00 47 00 02 |.....F..|.....G..|
|000010f0| 00 00 00 ff ff 49 00 02 | 00 00 00 00 00 41 00 25 |.....I..|.....A.%|
|00001100| 00 00 00 47 6c 6f 62 61 | 6c 20 68 57 68 69 74 65 |...Globa|l hWhite|
|00001110| 4b 65 79 73 20 20 20 20 | 20 20 20 20 20 20 41 73 |Keys | As|
|00001120| 20 57 6f 72 64 0d 0a 00 | 4e 00 23 00 00 00 47 6c | Word...|N.#...Gl|
|00001130| 6f 62 61 6c 20 68 57 68 | 69 74 65 4b 65 79 73 20 |obal hWh|iteKeys |
|00001140| 20 20 20 20 20 20 20 20 | 20 41 73 20 57 6f 72 64 | | As Word|
|00001150| 00 40 00 0c 00 00 00 48 | 54 52 45 42 4c 45 43 4c |.@.....H|TREBLECL|
|00001160| 45 46 00 51 00 02 00 00 | 00 02 00 44 00 02 00 00 |EF.Q....|...D....|
|00001170| 00 03 00 48 00 04 00 00 | 00 f6 9e 09 2f 4d 00 02 |...H....|..../M..|
|00001180| 00 00 00 16 00 45 00 02 | 00 00 00 00 00 46 00 02 |.....E..|.....F..|
|00001190| 00 00 00 02 00 47 00 02 | 00 00 00 ff ff 49 00 02 |.....G..|.....I..|
|000011a0| 00 00 00 00 00 41 00 25 | 00 00 00 47 6c 6f 62 61 |.....A.%|...Globa|
|000011b0| 6c 20 68 54 72 65 62 6c | 65 43 6c 65 66 20 20 20 |l hTrebl|eClef |
|000011c0| 20 20 20 20 20 20 41 73 | 20 57 6f 72 64 0d 0a 00 | As| Word...|
|000011d0| 4e 00 23 00 00 00 47 6c | 6f 62 61 6c 20 68 54 72 |N.#...Gl|obal hTr|
|000011e0| 65 62 6c 65 43 6c 65 66 | 20 20 20 20 20 20 20 20 |ebleClef| |
|000011f0| 20 41 73 20 57 6f 72 64 | 00 40 00 0a 00 00 00 48 | As Word|.@.....H|
|00001200| 42 41 53 53 43 4c 45 46 | 00 51 00 02 00 00 00 02 |BASSCLEF|.Q......|
|00001210| 00 44 00 02 00 00 00 03 | 00 48 00 04 00 00 00 f6 |.D......|.H......|
|00001220| 9e 09 2f 4d 00 02 00 00 | 00 16 00 45 00 02 00 00 |../M....|...E....|
|00001230| 00 00 00 46 00 02 00 00 | 00 02 00 47 00 02 00 00 |...F....|...G....|
|00001240| 00 ff ff 49 00 02 00 00 | 00 00 00 41 00 25 00 00 |...I....|...A.%..|
|00001250| 00 47 6c 6f 62 61 6c 20 | 68 42 61 73 73 43 6c 65 |.Global |hBassCle|
|00001260| 66 20 20 20 20 20 20 20 | 20 20 20 20 41 73 20 57 |f | As W|
|00001270| 6f 72 64 0d 0a 00 4e 00 | 23 00 00 00 47 6c 6f 62 |ord...N.|#...Glob|
|00001280| 61 6c 20 68 42 61 73 73 | 43 6c 65 66 20 20 20 20 |al hBass|Clef |
|00001290| 20 20 20 20 20 20 20 41 | 73 20 57 6f 72 64 00 40 | A|s Word.@|
|000012a0| 00 07 00 00 00 48 4d 49 | 4e 55 4d 00 51 00 02 00 |.....HMI|NUM.Q...|
|000012b0| 00 00 02 00 44 00 02 00 | 00 00 03 00 48 00 04 00 |....D...|....H...|
|000012c0| 00 00 f6 9e 09 2f 4d 00 | 02 00 00 00 16 00 45 00 |...../M.|......E.|
|000012d0| 02 00 00 00 00 00 46 00 | 02 00 00 00 02 00 47 00 |......F.|......G.|
|000012e0| 02 00 00 00 ff ff 49 00 | 02 00 00 00 00 00 41 00 |......I.|......A.|
|000012f0| 25 00 00 00 47 6c 6f 62 | 61 6c 20 68 4d 69 6e 75 |%...Glob|al hMinu|
|00001300| 6d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 |m | A|
|00001310| 73 20 57 6f 72 64 0d 0a | 00 4e 00 23 00 00 00 47 |s Word..|.N.#...G|
|00001320| 6c 6f 62 61 6c 20 68 4d | 69 6e 75 6d 20 20 20 20 |lobal hM|inum |
|00001330| 20 20 20 20 20 20 20 20 | 20 20 41 73 20 57 6f 72 | | As Wor|
|00001340| 64 00 40 00 07 00 00 00 | 48 53 48 41 52 50 00 51 |d.@.....|HSHARP.Q|
|00001350| 00 02 00 00 00 02 00 44 | 00 02 00 00 00 03 00 48 |.......D|.......H|
|00001360| 00 04 00 00 00 f7 9e 09 | 2f 4d 00 02 00 00 00 16 |........|/M......|
|00001370| 00 45 00 02 00 00 00 00 | 00 46 00 02 00 00 00 02 |.E......|.F......|
|00001380| 00 47 00 02 00 00 00 ff | ff 49 00 02 00 00 00 00 |.G......|.I......|
|00001390| 00 41 00 25 00 00 00 47 | 6c 6f 62 61 6c 20 68 53 |.A.%...G|lobal hS|
|000013a0| 68 61 72 70 20 20 20 20 | 20 20 20 20 20 20 20 20 |harp | |
|000013b0| 20 20 41 73 20 57 6f 72 | 64 0d 0a 00 4e 00 23 00 | As Wor|d...N.#.|
|000013c0| 00 00 47 6c 6f 62 61 6c | 20 68 53 68 61 72 70 20 |..Global| hSharp |
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 73 20 | | As |
|000013e0| 57 6f 72 64 00 40 00 08 | 00 00 00 48 4e 4f 4e 4f |Word.@..|...HNONO|
|000013f0| 54 45 00 51 00 02 00 00 | 00 02 00 44 00 02 00 00 |TE.Q....|...D....|
|00001400| 00 03 00 48 00 04 00 00 | 00 f7 9e 09 2f 4d 00 02 |...H....|..../M..|
|00001410| 00 00 00 16 00 45 00 02 | 00 00 00 00 00 46 00 02 |.....E..|.....F..|
|00001420| 00 00 00 02 00 47 00 02 | 00 00 00 ff ff 49 00 02 |.....G..|.....I..|
|00001430| 00 00 00 00 00 41 00 25 | 00 00 00 47 6c 6f 62 61 |.....A.%|...Globa|
|00001440| 6c 20 68 4e 6f 4e 6f 74 | 65 20 20 20 20 20 20 20 |l hNoNot|e |
|00001450| 20 20 20 20 20 20 41 73 | 20 57 6f 72 64 0d 0a 00 | As| Word...|
|00001460| 4e 00 23 00 00 00 47 6c | 6f 62 61 6c 20 68 4e 6f |N.#...Gl|obal hNo|
|00001470| 4e 6f 74 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |Note | |
|00001480| 20 41 73 20 57 6f 72 64 | 00 40 00 0c 00 00 00 48 | As Word|.@.....H|
|00001490| 57 49 4e 44 53 54 52 49 | 4e 47 00 51 00 02 00 00 |WINDSTRI|NG.Q....|
|000014a0| 00 02 00 44 00 02 00 00 | 00 03 00 48 00 04 00 00 |...D....|...H....|
|000014b0| 00 f7 9e 09 2f 4d 00 02 | 00 00 00 16 00 45 00 02 |..../M..|.....E..|
|000014c0| 00 00 00 00 00 46 00 02 | 00 00 00 02 00 47 00 02 |.....F..|.....G..|
|000014d0| 00 00 00 ff ff 49 00 02 | 00 00 00 00 00 41 00 26 |.....I..|.....A.&|
|000014e0| 00 00 00 47 6c 6f 62 61 | 6c 20 68 77 69 6e 64 53 |...Globa|l hwindS|
|000014f0| 74 72 69 6e 67 5b 20 36 | 20 5d 20 20 20 20 41 73 |tring[ 6| ] As|
|00001500| 20 41 72 72 61 79 0d 0a | 00 4e 00 24 00 00 00 47 | Array..|.N.$...G|
|00001510| 6c 6f 62 61 6c 20 68 77 | 69 6e 64 53 74 72 69 6e |lobal hw|indStrin|
|00001520| 67 5b 20 36 20 5d 20 20 | 20 20 41 73 20 41 72 72 |g[ 6 ] | As Arr|
|00001530| 61 79 00 40 00 0e 00 00 | 00 48 57 4e 44 46 52 45 |ay.@....|.HWNDFRE|
|00001540| 54 42 4f 41 52 44 00 51 | 00 02 00 00 00 02 00 44 |TBOARD.Q|.......D|
|00001550| 00 02 00 00 00 03 00 48 | 00 04 00 00 00 f7 9e 09 |.......H|........|
|00001560| 2f 4d 00 02 00 00 00 16 | 00 45 00 02 00 00 00 00 |/M......|.E......|
|00001570| 00 46 00 02 00 00 00 02 | 00 47 00 02 00 00 00 ff |.F......|.G......|
|00001580| ff 49 00 02 00 00 00 00 | 00 41 00 25 00 00 00 47 |.I......|.A.%...G|
|00001590| 6c 6f 62 61 6c 20 68 77 | 6e 64 46 72 65 74 62 6f |lobal hw|ndFretbo|
|000015a0| 61 72 64 20 20 20 20 20 | 20 20 41 73 20 57 6f 72 |ard | As Wor|
|000015b0| 64 0d 0a 00 4e 00 23 00 | 00 00 47 6c 6f 62 61 6c |d...N.#.|..Global|
|000015c0| 20 68 77 6e 64 46 72 65 | 74 62 6f 61 72 64 20 20 | hwndFre|tboard |
|000015d0| 20 20 20 20 20 41 73 20 | 57 6f 72 64 00 40 00 0f | As |Word.@..|
|000015e0| 00 00 00 48 57 4e 44 4d | 55 53 49 43 53 54 41 46 |...HWNDM|USICSTAF|
|000015f0| 46 00 51 00 02 00 00 00 | 02 00 44 00 02 00 00 00 |F.Q.....|..D.....|
|00001600| 03 00 48 00 04 00 00 00 | f7 9e 09 2f 4d 00 02 00 |..H.....|.../M...|
|00001610| 00 00 16 00 45 00 02 00 | 00 00 00 00 46 00 02 00 |....E...|....F...|
|00001620| 00 00 02 00 47 00 02 00 | 00 00 ff ff 49 00 02 00 |....G...|....I...|
|00001630| 00 00 00 00 41 00 25 00 | 00 00 47 6c 6f 62 61 6c |....A.%.|..Global|
|00001640| 20 68 77 6e 64 4d 75 73 | 69 63 53 74 61 66 66 20 | hwndMus|icStaff |
|00001650| 20 20 20 20 20 41 73 20 | 57 6f 72 64 0d 0a 00 4e | As |Word...N|
|00001660| 00 23 00 00 00 47 6c 6f | 62 61 6c 20 68 77 6e 64 |.#...Glo|bal hwnd|
|00001670| 4d 75 73 69 63 53 74 61 | 66 66 20 20 20 20 20 20 |MusicSta|ff |
|00001680| 41 73 20 57 6f 72 64 00 | 40 00 0a 00 00 00 48 57 |As Word.|@.....HW|
|00001690| 4e 44 50 49 41 4e 4f 00 | 51 00 02 00 00 00 02 00 |NDPIANO.|Q.......|
|000016a0| 44 00 02 00 00 00 03 00 | 48 00 04 00 00 00 f7 9e |D.......|H.......|
|000016b0| 09 2f 4d 00 02 00 00 00 | 16 00 45 00 02 00 00 00 |./M.....|..E.....|
|000016c0| 00 00 46 00 02 00 00 00 | 02 00 47 00 02 00 00 00 |..F.....|..G.....|
|000016d0| ff ff 49 00 02 00 00 00 | 00 00 41 00 26 00 00 00 |..I.....|..A.&...|
|000016e0| 47 6c 6f 62 61 6c 20 68 | 77 6e 64 50 69 61 6e 6f |Global h|wndPiano|
|000016f0| 5b 20 35 33 20 5d 20 20 | 20 20 20 41 73 20 41 72 |[ 53 ] | As Ar|
|00001700| 72 61 79 0d 0a 00 4e 00 | 24 00 00 00 47 6c 6f 62 |ray...N.|$...Glob|
|00001710| 61 6c 20 68 77 6e 64 50 | 69 61 6e 6f 5b 20 35 33 |al hwndP|iano[ 53|
|00001720| 20 5d 20 20 20 20 20 41 | 73 20 41 72 72 61 79 00 | ] A|s Array.|
|00001730| 40 00 0b 00 00 00 48 57 | 4e 44 50 41 52 45 4e 54 |@.....HW|NDPARENT|
|00001740| 00 51 00 02 00 00 00 02 | 00 44 00 02 00 00 00 03 |.Q......|.D......|
|00001750| 00 48 00 04 00 00 00 f7 | 9e 09 2f 4d 00 02 00 00 |.H......|../M....|
|00001760| 00 16 00 45 00 02 00 00 | 00 00 00 46 00 02 00 00 |...E....|...F....|
|00001770| 00 02 00 47 00 02 00 00 | 00 ff ff 49 00 02 00 00 |...G....|...I....|
|00001780| 00 00 00 41 00 25 00 00 | 00 47 6c 6f 62 61 6c 20 |...A.%..|.Global |
|00001790| 68 77 6e 64 50 61 72 65 | 6e 74 20 20 20 20 20 20 |hwndPare|nt |
|000017a0| 20 20 20 20 41 73 20 57 | 6f 72 64 0d 0a 00 4e 00 | As W|ord...N.|
|000017b0| 23 00 00 00 47 6c 6f 62 | 61 6c 20 68 77 6e 64 50 |#...Glob|al hwndP|
|000017c0| 61 72 65 6e 74 20 20 20 | 20 20 20 20 20 20 20 41 |arent | A|
|000017d0| 73 20 57 6f 72 64 00 40 | 00 06 00 00 00 43 4e 4f |s Word.@|.....CNO|
|000017e0| 54 45 00 51 00 02 00 00 | 00 02 00 44 00 02 00 00 |TE.Q....|...D....|
|000017f0| 00 03 00 48 00 04 00 00 | 00 f7 9e 09 2f 4d 00 02 |...H....|..../M..|
|00001800| 00 00 00 16 00 45 00 02 | 00 00 00 00 00 46 00 02 |.....E..|.....F..|
|00001810| 00 00 00 02 00 47 00 02 | 00 00 00 ff ff 49 00 02 |.....G..|.....I..|
|00001820| 00 00 00 00 00 41 00 27 | 00 00 00 47 6c 6f 62 61 |.....A.'|...Globa|
|00001830| 6c 20 63 4e 6f 74 65 20 | 20 20 20 20 20 20 20 20 |l cNote | |
|00001840| 20 20 20 20 20 20 41 73 | 20 53 74 72 69 6e 67 0d | As| String.|
|00001850| 0a 00 4e 00 25 00 00 00 | 47 6c 6f 62 61 6c 20 63 |..N.%...|Global c|
|00001860| 4e 6f 74 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |Note | |
|00001870| 20 20 20 41 73 20 53 74 | 72 69 6e 67 00 40 00 0a | As St|ring.@..|
|00001880| 00 00 00 43 4e 4f 54 45 | 32 48 49 54 00 51 00 02 |...CNOTE|2HIT.Q..|
|00001890| 00 00 00 02 00 44 00 02 | 00 00 00 03 00 48 00 04 |.....D..|.....H..|
|000018a0| 00 00 00 f7 9e 09 2f 4d | 00 02 00 00 00 16 00 45 |....../M|.......E|
|000018b0| 00 02 00 00 00 00 00 46 | 00 02 00 00 00 02 00 47 |.......F|.......G|
|000018c0| 00 02 00 00 00 ff ff 49 | 00 02 00 00 00 00 00 41 |.......I|.......A|
|000018d0| 00 27 00 00 00 47 6c 6f | 62 61 6c 20 63 4e 6f 74 |.'...Glo|bal cNot|
|000018e0| 65 32 48 69 74 20 20 20 | 20 20 20 20 20 20 20 20 |e2Hit | |
|000018f0| 41 73 20 53 74 72 69 6e | 67 0d 0a 00 4e 00 25 00 |As Strin|g...N.%.|
|00001900| 00 00 47 6c 6f 62 61 6c | 20 63 4e 6f 74 65 32 48 |..Global| cNote2H|
|00001910| 69 74 20 20 20 20 20 20 | 20 20 20 20 20 41 73 20 |it | As |
|00001920| 53 74 72 69 6e 67 00 40 | 00 0a 00 00 00 4e 4e 4f |String.@|.....NNO|
|00001930| 54 45 32 48 49 54 00 51 | 00 02 00 00 00 02 00 44 |TE2HIT.Q|.......D|
|00001940| 00 02 00 00 00 03 00 48 | 00 04 00 00 00 f7 9e 09 |.......H|........|
|00001950| 2f 4d 00 02 00 00 00 16 | 00 45 00 02 00 00 00 00 |/M......|.E......|
|00001960| 00 46 00 02 00 00 00 02 | 00 47 00 02 00 00 00 ff |.F......|.G......|
|00001970| ff 49 00 02 00 00 00 00 | 00 41 00 26 00 00 00 47 |.I......|.A.&...G|
|00001980| 6c 6f 62 61 6c 20 6e 4e | 6f 74 65 32 48 69 74 20 |lobal nN|ote2Hit |
|00001990| 20 20 20 20 20 20 20 20 | 20 20 41 73 20 53 68 6f | | As Sho|
|000019a0| 72 74 0d 0a 00 4e 00 24 | 00 00 00 47 6c 6f 62 61 |rt...N.$|...Globa|
|000019b0| 6c 20 6e 4e 6f 74 65 32 | 48 69 74 20 20 20 20 20 |l nNote2|Hit |
|000019c0| 20 20 20 20 20 20 41 73 | 20 53 68 6f 72 74 00 40 | As| Short.@|
|000019d0| 00 0b 00 00 00 43 53 4f | 55 4e 44 50 41 54 48 00 |.....CSO|UNDPATH.|
|000019e0| 51 00 02 00 00 00 02 00 | 44 00 02 00 00 00 03 00 |Q.......|D.......|
|000019f0| 48 00 04 00 00 00 f7 9e | 09 2f 4d 00 02 00 00 00 |H.......|./M.....|
|00001a00| 16 00 45 00 02 00 00 00 | 00 00 46 00 02 00 00 00 |..E.....|..F.....|
|00001a10| 02 00 47 00 02 00 00 00 | ff ff 49 00 02 00 00 00 |..G.....|..I.....|
|00001a20| 00 00 41 00 27 00 00 00 | 47 6c 6f 62 61 6c 20 63 |..A.'...|Global c|
|00001a30| 53 6f 75 6e 64 50 61 74 | 68 20 20 20 20 20 20 20 |SoundPat|h |
|00001a40| 20 20 20 41 73 20 53 74 | 72 69 6e 67 0d 0a 00 4e | As St|ring...N|
|00001a50| 00 25 00 00 00 47 6c 6f | 62 61 6c 20 63 53 6f 75 |.%...Glo|bal cSou|
|00001a60| 6e 64 50 61 74 68 20 20 | 20 20 20 20 20 20 20 20 |ndPath | |
|00001a70| 41 73 20 53 74 72 69 6e | 67 00 40 00 07 00 00 00 |As Strin|g.@.....|
|00001a80| 41 46 52 45 54 53 00 51 | 00 02 00 00 00 02 00 44 |AFRETS.Q|.......D|
|00001a90| 00 02 00 00 00 03 00 48 | 00 04 00 00 00 f7 9e 09 |.......H|........|
|00001aa0| 2f 4d 00 02 00 00 00 16 | 00 45 00 02 00 00 00 00 |/M......|.E......|
|00001ab0| 00 46 00 02 00 00 00 02 | 00 47 00 02 00 00 00 ff |.F......|.G......|
|00001ac0| ff 49 00 02 00 00 00 00 | 00 41 00 26 00 00 00 47 |.I......|.A.&...G|
|00001ad0| 6c 6f 62 61 6c 20 61 46 | 72 65 74 73 20 20 20 20 |lobal aF|rets |
|00001ae0| 20 20 20 20 20 20 20 20 | 20 20 41 73 20 41 72 72 | | As Arr|
|00001af0| 61 79 0d 0a 00 4e 00 24 | 00 00 00 47 6c 6f 62 61 |ay...N.$|...Globa|
|00001b00| 6c 20 61 46 72 65 74 73 | 20 20 20 20 20 20 20 20 |l aFrets| |
|00001b10| 20 20 20 20 20 20 41 73 | 20 41 72 72 61 79 00 40 | As| Array.@|
|00001b20| 00 0b 00 00 00 41 52 41 | 4e 44 4e 4f 54 45 53 00 |.....ARA|NDNOTES.|
|00001b30| 51 00 02 00 00 00 02 00 | 44 00 02 00 00 00 03 00 |Q.......|D.......|
|00001b40| 48 00 04 00 00 00 f7 9e | 09 2f 4d 00 02 00 00 00 |H.......|./M.....|
|00001b50| 16 00 45 00 02 00 00 00 | 00 00 46 00 02 00 00 00 |..E.....|..F.....|
|00001b60| 02 00 47 00 02 00 00 00 | ff ff 49 00 02 00 00 00 |..G.....|..I.....|
|00001b70| 00 00 41 00 26 00 00 00 | 47 6c 6f 62 61 6c 20 61 |..A.&...|Global a|
|00001b80| 52 61 6e 64 4e 6f 74 65 | 73 20 20 20 20 20 20 20 |RandNote|s |
|00001b90| 20 20 20 41 73 20 41 72 | 72 61 79 0d 0a 00 4e 00 | As Ar|ray...N.|
|00001ba0| 24 00 00 00 47 6c 6f 62 | 61 6c 20 61 52 61 6e 64 |$...Glob|al aRand|
|00001bb0| 4e 6f 74 65 73 20 20 20 | 20 20 20 20 20 20 20 41 |Notes | A|
|00001bc0| 73 20 41 72 72 61 79 00 | 40 00 0c 00 00 00 41 4d |s Array.|@.....AM|
|00001bd0| 55 53 49 43 4e 4f 54 45 | 53 00 51 00 02 00 00 00 |USICNOTE|S.Q.....|
|00001be0| 02 00 44 00 02 00 00 00 | 03 00 48 00 04 00 00 00 |..D.....|..H.....|
|00001bf0| f7 9e 09 2f 4d 00 02 00 | 00 00 16 00 45 00 02 00 |.../M...|....E...|
|00001c00| 00 00 00 00 46 00 02 00 | 00 00 02 00 47 00 02 00 |....F...|....G...|
|00001c10| 00 00 ff ff 49 00 02 00 | 00 00 00 00 41 00 26 00 |....I...|....A.&.|
|00001c20| 00 00 47 6c 6f 62 61 6c | 20 61 4d 75 73 69 63 4e |..Global| aMusicN|
|00001c30| 6f 74 65 73 20 20 20 20 | 20 20 20 20 20 41 73 20 |otes | As |
|00001c40| 41 72 72 61 79 0d 0a 00 | 4e 00 24 00 00 00 47 6c |Array...|N.$...Gl|
|00001c50| 6f 62 61 6c 20 61 4d 75 | 73 69 63 4e 6f 74 65 73 |obal aMu|sicNotes|
|00001c60| 20 20 20 20 20 20 20 20 | 20 41 73 20 41 72 72 61 | | As Arra|
|00001c70| 79 00 40 00 0a 00 00 00 | 41 48 42 55 54 54 4f 4e |y.@.....|AHBUTTON|
|00001c80| 53 00 51 00 02 00 00 00 | 02 00 44 00 02 00 00 00 |S.Q.....|..D.....|
|00001c90| 03 00 48 00 04 00 00 00 | f7 9e 09 2f 4d 00 02 00 |..H.....|.../M...|
|00001ca0| 00 00 16 00 45 00 02 00 | 00 00 00 00 46 00 02 00 |....E...|....F...|
|00001cb0| 00 00 02 00 47 00 02 00 | 00 00 ff ff 49 00 02 00 |....G...|....I...|
|00001cc0| 00 00 00 00 41 00 26 00 | 00 00 47 6c 6f 62 61 6c |....A.&.|..Global|
|00001cd0| 20 61 68 42 75 74 74 6f | 6e 73 20 20 20 20 20 20 | ahButto|ns |
|00001ce0| 20 20 20 20 20 41 73 20 | 41 72 72 61 79 0d 0a 00 | As |Array...|
|00001cf0| 4e 00 24 00 00 00 47 6c | 6f 62 61 6c 20 61 68 42 |N.$...Gl|obal ahB|
|00001d00| 75 74 74 6f 6e 73 20 20 | 20 20 20 20 20 20 20 20 |uttons | |
|00001d10| 20 41 73 20 41 72 72 61 | 79 00 40 00 0c 00 00 00 | As Arra|y.@.....|
|00001d20| 53 49 4e 53 54 52 55 4d | 45 4e 54 00 51 00 02 00 |SINSTRUM|ENT.Q...|
|00001d30| 00 00 02 00 44 00 02 00 | 00 00 03 00 48 00 04 00 |....D...|....H...|
|00001d40| 00 00 f7 9e 09 2f 4d 00 | 02 00 00 00 16 00 45 00 |...../M.|......E.|
|00001d50| 02 00 00 00 00 00 46 00 | 02 00 00 00 02 00 47 00 |......F.|......G.|
|00001d60| 02 00 00 00 ff ff 49 00 | 02 00 00 00 00 00 41 00 |......I.|......A.|
|00001d70| 26 00 00 00 47 6c 6f 62 | 61 6c 20 73 49 6e 73 74 |&...Glob|al sInst|
|00001d80| 72 75 6d 65 6e 74 20 20 | 20 20 20 20 20 20 20 41 |rument | A|
|00001d90| 73 20 53 68 6f 72 74 0d | 0a 00 4e 00 24 00 00 00 |s Short.|..N.$...|
|00001da0| 47 6c 6f 62 61 6c 20 73 | 49 6e 73 74 72 75 6d 65 |Global s|Instrume|
|00001db0| 6e 74 20 20 20 20 20 20 | 20 20 20 41 73 20 53 68 |nt | As Sh|
|00001dc0| 6f 72 74 00 40 00 0b 00 | 00 00 4e 49 53 52 55 4e |ort.@...|..NISRUN|
|00001dd0| 4e 49 4e 47 00 51 00 02 | 00 00 00 02 00 44 00 02 |NING.Q..|.....D..|
|00001de0| 00 00 00 03 00 48 00 04 | 00 00 00 f7 9e 09 2f 4d |.....H..|....../M|
|00001df0| 00 02 00 00 00 16 00 45 | 00 02 00 00 00 00 00 46 |.......E|.......F|
|00001e00| 00 02 00 00 00 02 00 47 | 00 02 00 00 00 ff ff 49 |.......G|.......I|
|00001e10| 00 02 00 00 00 00 00 41 | 00 26 00 00 00 47 6c 6f |.......A|.&...Glo|
|00001e20| 62 61 6c 20 6e 49 73 72 | 75 6e 6e 69 6e 67 20 3a |bal nIsr|unning :|
|00001e30| 3d 20 30 20 20 20 20 20 | 41 73 20 53 68 6f 72 74 |= 0 |As Short|
|00001e40| 0d 0a 00 4e 00 24 00 00 | 00 47 6c 6f 62 61 6c 20 |...N.$..|.Global |
|00001e50| 6e 49 73 72 75 6e 6e 69 | 6e 67 20 3a 3d 20 30 20 |nIsrunni|ng := 0 |
|00001e60| 20 20 20 20 41 73 20 53 | 68 6f 72 74 00 40 00 07 | As S|hort.@..|
|00001e70| 00 00 00 4e 52 49 47 48 | 54 00 51 00 02 00 00 00 |...NRIGH|T.Q.....|
|00001e80| 02 00 44 00 02 00 00 00 | 03 00 48 00 04 00 00 00 |..D.....|..H.....|
|00001e90| f7 9e 09 2f 4d 00 02 00 | 00 00 16 00 45 00 02 00 |.../M...|....E...|
|00001ea0| 00 00 00 00 46 00 02 00 | 00 00 02 00 47 00 02 00 |....F...|....G...|
|00001eb0| 00 00 ff ff 49 00 02 00 | 00 00 00 00 41 00 26 00 |....I...|....A.&.|
|00001ec0| 00 00 47 6c 6f 62 61 6c | 20 6e 52 69 67 68 74 20 |..Global| nRight |
|00001ed0| 20 20 20 20 3a 3d 20 30 | 20 20 20 20 20 41 73 20 | := 0| As |
|00001ee0| 53 68 6f 72 74 0d 0a 00 | 4e 00 24 00 00 00 47 6c |Short...|N.$...Gl|
|00001ef0| 6f 62 61 6c 20 6e 52 69 | 67 68 74 20 20 20 20 20 |obal nRi|ght |
|00001f00| 3a 3d 20 30 20 20 20 20 | 20 41 73 20 53 68 6f 72 |:= 0 | As Shor|
|00001f10| 74 00 40 00 09 00 00 00 | 4e 53 48 4f 57 52 4f 57 |t.@.....|NSHOWROW|
|00001f20| 00 51 00 02 00 00 00 02 | 00 44 00 02 00 00 00 03 |.Q......|.D......|
|00001f30| 00 48 00 04 00 00 00 f7 | 9e 09 2f 4d 00 02 00 00 |.H......|../M....|
|00001f40| 00 16 00 45 00 02 00 00 | 00 00 00 46 00 02 00 00 |...E....|...F....|
|00001f50| 00 02 00 47 00 02 00 00 | 00 ff ff 49 00 02 00 00 |...G....|...I....|
|00001f60| 00 00 00 41 00 26 00 00 | 00 47 6c 6f 62 61 6c 20 |...A.&..|.Global |
|00001f70| 6e 53 68 6f 77 52 6f 77 | 20 20 20 3a 3d 20 30 20 |nShowRow| := 0 |
|00001f80| 20 20 20 20 41 73 20 53 | 68 6f 72 74 0d 0a 00 4e | As S|hort...N|
|00001f90| 00 24 00 00 00 47 6c 6f | 62 61 6c 20 6e 53 68 6f |.$...Glo|bal nSho|
|00001fa0| 77 52 6f 77 20 20 20 3a | 3d 20 30 20 20 20 20 20 |wRow :|= 0 |
|00001fb0| 41 73 20 53 68 6f 72 74 | 00 40 00 0a 00 00 00 4e |As Short|.@.....N|
|00001fc0| 54 52 59 43 4f 55 4e 54 | 00 51 00 02 00 00 00 02 |TRYCOUNT|.Q......|
|00001fd0| 00 44 00 02 00 00 00 03 | 00 48 00 04 00 00 00 f7 |.D......|.H......|
|00001fe0| 9e 09 2f 4d 00 02 00 00 | 00 16 00 45 00 02 00 00 |../M....|...E....|
|00001ff0| 00 00 00 46 00 02 00 00 | 00 02 00 47 00 02 00 00 |...F....|...G....|
|00002000| 00 ff ff 49 00 02 00 00 | 00 00 00 41 00 26 00 00 |...I....|...A.&..|
|00002010| 00 47 6c 6f 62 61 6c 20 | 6e 54 72 79 43 6f 75 6e |.Global |nTryCoun|
|00002020| 74 20 20 3a 3d 20 30 20 | 20 20 20 20 61 73 20 53 |t := 0 | as S|
|00002030| 68 6f 72 74 0d 0a 00 4e | 00 24 00 00 00 47 6c 6f |hort...N|.$...Glo|
|00002040| 62 61 6c 20 6e 54 72 79 | 43 6f 75 6e 74 20 20 3a |bal nTry|Count :|
|00002050| 3d 20 30 20 20 20 20 20 | 61 73 20 53 68 6f 72 74 |= 0 |as Short|
|00002060| 00 40 00 0a 00 00 00 42 | 53 48 4f 57 4e 4f 54 45 |.@.....B|SHOWNOTE|
|00002070| 00 51 00 02 00 00 00 02 | 00 44 00 02 00 00 00 03 |.Q......|.D......|
|00002080| 00 48 00 04 00 00 00 f7 | 9e 09 2f 4d 00 02 00 00 |.H......|../M....|
|00002090| 00 16 00 45 00 02 00 00 | 00 00 00 46 00 02 00 00 |...E....|...F....|
|000020a0| 00 02 00 47 00 02 00 00 | 00 ff ff 49 00 02 00 00 |...G....|...I....|
|000020b0| 00 00 00 41 00 26 00 00 | 00 47 6c 6f 62 61 6c 20 |...A.&..|.Global |
|000020c0| 62 53 68 6f 77 4e 6f 74 | 65 20 20 3a 3d 20 46 41 |bShowNot|e := FA|
|000020d0| 4c 53 45 20 61 73 20 4c | 6f 67 69 63 0d 0a 00 4e |LSE as L|ogic...N|
|000020e0| 00 24 00 00 00 47 6c 6f | 62 61 6c 20 62 53 68 6f |.$...Glo|bal bSho|
|000020f0| 77 4e 6f 74 65 20 20 3a | 3d 20 46 41 4c 53 45 20 |wNote :|= FALSE |
|00002100| 61 73 20 4c 6f 67 69 63 | 00 40 00 0a 00 00 00 42 |as Logic|.@.....B|
|00002110| 50 4c 41 59 4e 4f 54 45 | 00 51 00 02 00 00 00 02 |PLAYNOTE|.Q......|
|00002120| 00 44 00 02 00 00 00 03 | 00 48 00 04 00 00 00 f7 |.D......|.H......|
|00002130| 9e 09 2f 4d 00 02 00 00 | 00 16 00 45 00 02 00 00 |../M....|...E....|
|00002140| 00 00 00 46 00 02 00 00 | 00 02 00 47 00 02 00 00 |...F....|...G....|
|00002150| 00 ff ff 49 00 02 00 00 | 00 00 00 41 00 26 00 00 |...I....|...A.&..|
|00002160| 00 47 6c 6f 62 61 6c 20 | 62 50 6c 61 79 4e 6f 74 |.Global |bPlayNot|
|00002170| 65 20 20 3a 3d 20 46 41 | 4c 53 45 20 61 73 20 4c |e := FA|LSE as L|
|00002180| 6f 67 69 63 0d 0a 00 4e | 00 24 00 00 00 47 6c 6f |ogic...N|.$...Glo|
|00002190| 62 61 6c 20 62 50 6c 61 | 79 4e 6f 74 65 20 20 3a |bal bPla|yNote :|
|000021a0| 3d 20 46 41 4c 53 45 20 | 61 73 20 4c 6f 67 69 63 |= FALSE |as Logic|
|000021b0| 00 40 00 0b 00 00 00 42 | 49 53 54 45 53 54 49 4e |.@.....B|ISTESTIN|
|000021c0| 47 00 51 00 02 00 00 00 | 02 00 44 00 02 00 00 00 |G.Q.....|..D.....|
|000021d0| 03 00 48 00 04 00 00 00 | f7 9e 09 2f 4d 00 02 00 |..H.....|.../M...|
|000021e0| 00 00 16 00 45 00 02 00 | 00 00 00 00 46 00 02 00 |....E...|....F...|
|000021f0| 00 00 02 00 47 00 02 00 | 00 00 ff ff 49 00 02 00 |....G...|....I...|
|00002200| 00 00 00 00 41 00 28 00 | 00 00 47 6c 6f 62 61 6c |....A.(.|..Global|
|00002210| 20 62 49 73 54 65 73 74 | 69 6e 67 20 3a 3d 20 46 | bIsTest|ing := F|
|00002220| 41 4c 53 45 20 61 73 20 | 4c 6f 67 69 63 0d 0a 0d |ALSE as |Logic...|
|00002230| 0a 00 4e 00 24 00 00 00 | 47 6c 6f 62 61 6c 20 62 |..N.$...|Global b|
|00002240| 49 73 54 65 73 74 69 6e | 67 20 3a 3d 20 46 41 4c |IsTestin|g := FAL|
|00002250| 53 45 20 61 73 20 4c 6f | 67 69 63 00 40 00 06 00 |SE as Lo|gic.@...|
|00002260| 00 00 53 54 41 52 54 00 | 51 00 02 00 00 00 02 00 |..START.|Q.......|
|00002270| 44 00 02 00 00 00 03 00 | 48 00 04 00 00 00 f7 9e |D.......|H.......|
|00002280| 09 2f 4d 00 02 00 00 00 | 11 00 45 00 02 00 00 00 |./M.....|..E.....|
|00002290| 00 00 46 00 02 00 00 00 | 02 00 47 00 02 00 00 00 |..F.....|..G.....|
|000022a0| ff ff 49 00 02 00 00 00 | 00 00 41 00 6a 0a 00 00 |..I.....|..A.j...|
|000022b0| 46 75 6e 63 74 69 6f 6e | 09 53 74 61 72 74 20 41 |Function|.Start A|
|000022c0| 73 20 4c 6f 67 69 63 0d | 0a 0d 0a 09 4c 4f 43 41 |s Logic.|....LOCA|
|000022d0| 4c 20 77 63 09 09 49 73 | 20 5f 57 49 4e 57 4e 44 |L wc..Is| _WINWND|
|000022e0| 43 4c 41 53 53 0d 0a 09 | 4c 4f 43 41 4c 20 6d 73 |CLASS...|LOCAL ms|
|000022f0| 67 09 09 49 73 20 5f 57 | 49 4e 4d 53 47 0d 0a 09 |g..Is _W|INMSG...|
|00002300| 4c 4f 43 41 4c 20 6c 09 | 09 09 41 73 20 4c 6f 67 |LOCAL l.|..As Log|
|00002310| 69 63 0d 0a 09 4c 4f 43 | 41 4c 20 68 77 6e 64 09 |ic...LOC|AL hwnd.|
|00002320| 09 41 73 20 57 6f 72 64 | 0d 0a 09 4c 4f 43 41 4c |.As Word|...LOCAL|
|00002330| 20 6f 4d 79 49 63 6f 6e | 20 41 73 20 4f 62 6a 65 | oMyIcon| As Obje|
|00002340| 63 74 0d 0a 09 4c 4f 43 | 41 4c 20 68 42 69 74 4d |ct...LOC|AL hBitM|
|00002350| 61 70 0d 0a 0d 0a 09 2f | 2f 20 69 6e 69 74 69 61 |ap...../|/ initia|
|00002360| 6c 69 7a 65 20 73 6f 6d | 65 20 76 61 72 69 61 62 |lize som|e variab|
|00002370| 6c 65 73 0d 0a 09 70 2e | 78 20 3a 3d 20 31 30 0d |les...p.|x := 10.|
|00002380| 0a 09 70 2e 79 20 3a 3d | 20 31 30 0d 0a 09 63 53 |..p.y :=| 10...cS|
|00002390| 6f 75 6e 64 50 61 74 68 | 20 3a 3d 20 47 65 74 45 |oundPath| := GetE|
|000023a0| 6e 76 28 20 22 56 6f 53 | 6e 64 50 61 74 68 22 20 |nv( "VoS|ndPath" |
|000023b0| 29 0d 0a 09 53 65 74 55 | 70 4e 6f 74 65 73 28 29 |)...SetU|pNotes()|
|000023c0| 0d 0a 09 52 61 6e 64 28 | 20 30 20 29 0d 0a 0d 0a |...Rand(| 0 )....|
|000023d0| 09 2f 2f 0d 0a 09 2f 2f | 20 52 65 67 69 73 74 65 |.//...//| Registe|
|000023e0| 72 20 74 68 65 20 77 69 | 6e 64 6f 77 20 63 6c 61 |r the wi|ndow cla|
|000023f0| 73 73 65 73 0d 0a 09 2f | 2f 0d 0a 0d 0a 09 77 63 |sses.../|/.....wc|
|00002400| 2e 73 74 79 6c 65 09 09 | 09 3a 3d 20 5f 4f 52 28 |.style..|.:= _OR(|
|00002410| 43 53 5f 56 52 45 44 52 | 41 57 2c 20 43 53 5f 48 |CS_VREDR|AW, CS_H|
|00002420| 52 45 44 52 41 57 29 20 | 0d 0a 09 77 63 2e 6c 70 |REDRAW) |...wc.lp|
|00002430| 66 6e 57 6e 64 50 72 6f | 63 09 09 3a 3d 20 40 4d |fnWndPro|c..:= @M|
|00002440| 61 69 6e 57 6e 64 50 72 | 6f 63 28 29 0d 0a 09 77 |ainWndPr|oc()...w|
|00002450| 63 2e 63 62 43 6c 73 45 | 78 74 72 61 09 09 3a 3d |c.cbClsE|xtra..:=|
|00002460| 20 30 0d 0a 09 77 63 2e | 63 62 57 6e 64 45 78 74 | 0...wc.|cbWndExt|
|00002470| 72 61 09 09 3a 3d 20 30 | 0d 0a 09 77 63 2e 68 49 |ra..:= 0|...wc.hI|
|00002480| 6e 73 74 61 6e 63 65 09 | 09 3a 3d 20 5f 47 65 74 |nstance.|.:= _Get|
|00002490| 49 6e 73 74 28 29 0d 0a | 09 77 63 2e 68 49 63 6f |Inst()..|.wc.hIco|
|000024a0| 6e 09 09 09 3a 3d 20 4c | 6f 61 64 49 63 6f 6e 28 |n...:= L|oadIcon(|
|000024b0| 20 5f 47 65 74 49 6e 73 | 74 28 29 2c 20 20 50 73 | _GetIns|t(), Ps|
|000024c0| 7a 28 20 22 4d 79 49 63 | 6f 6e 22 20 29 20 29 20 |z( "MyIc|on" ) ) |
|000024d0| 0d 0a 09 77 63 2e 68 43 | 75 72 73 6f 72 09 09 09 |...wc.hC|ursor...|
|000024e0| 3a 3d 20 4c 6f 61 64 43 | 75 72 73 6f 72 28 20 30 |:= LoadC|ursor( 0|
|000024f0| 2c 20 5f 4d 61 6b 65 50 | 74 72 28 20 30 2c 20 33 |, _MakeP|tr( 0, 3|
|00002500| 32 35 31 32 29 20 29 0d | 0a 09 77 63 2e 68 62 72 |2512) ).|..wc.hbr|
|00002510| 42 61 63 6b 67 72 6f 75 | 6e 64 09 3a 3d 20 47 65 |Backgrou|nd.:= Ge|
|00002520| 74 53 74 6f 63 6b 4f 62 | 6a 65 63 74 28 57 48 49 |tStockOb|ject(WHI|
|00002530| 54 45 5f 42 52 55 53 48 | 29 0d 0a 09 77 63 2e 6c |TE_BRUSH|)...wc.l|
|00002540| 70 73 7a 4d 65 6e 75 4e | 61 6d 65 09 3a 3d 20 53 |pszMenuN|ame.:= S|
|00002550| 74 72 69 6e 67 32 50 73 | 7a 28 20 22 4d 75 73 69 |tring2Ps|z( "Musi|
|00002560| 63 22 20 29 0d 0a 09 77 | 63 2e 6c 70 73 7a 43 6c |c" )...w|c.lpszCl|
|00002570| 61 73 73 4e 61 6d 65 09 | 3a 3d 20 53 74 72 69 6e |assName.|:= Strin|
|00002580| 67 32 50 73 7a 28 20 22 | 4d 75 73 69 63 54 75 74 |g2Psz( "|MusicTut|
|00002590| 6f 72 43 6c 61 73 73 22 | 20 29 0d 0a 0d 0a 09 49 |orClass"| ).....I|
|000025a0| 66 20 21 52 65 67 69 73 | 74 65 72 43 6c 61 73 73 |f !Regis|terClass|
|000025b0| 28 40 77 63 29 0d 0a 09 | 09 52 45 54 55 52 4e 20 |(@wc)...|.RETURN |
|000025c0| 46 41 4c 53 45 0d 0a 09 | 45 6e 64 49 66 0d 0a 0d |FALSE...|EndIf...|
|000025d0| 0a 09 77 63 2e 6c 70 66 | 6e 57 6e 64 50 72 6f 63 |..wc.lpf|nWndProc|
|000025e0| 09 09 3a 3d 20 40 46 72 | 65 74 62 6f 61 72 64 50 |..:= @Fr|etboardP|
|000025f0| 72 6f 63 28 29 0d 0a 09 | 77 63 2e 63 62 57 6e 64 |roc()...|wc.cbWnd|
|00002600| 45 78 74 72 61 09 09 3a | 3d 20 31 36 0d 0a 09 77 |Extra..:|= 16...w|
|00002610| 63 2e 6c 70 73 7a 43 6c | 61 73 73 4e 61 6d 65 20 |c.lpszCl|assName |
|00002620| 20 20 09 3a 3d 20 53 74 | 72 69 6e 67 32 50 73 7a | .:= St|ring2Psz|
|00002630| 28 20 22 46 72 65 74 62 | 6f 61 72 64 57 69 6e 64 |( "Fretb|oardWind|
|00002640| 6f 77 43 6c 61 73 73 22 | 20 29 0d 0a 09 49 66 20 |owClass"| )...If |
|00002650| 21 52 65 67 69 73 74 65 | 72 43 6c 61 73 73 28 40 |!Registe|rClass(@|
|00002660| 77 63 29 0d 0a 09 09 52 | 45 54 55 52 4e 20 46 41 |wc)....R|ETURN FA|
|00002670| 4c 53 45 0d 0a 09 45 6e | 64 49 66 0d 0a 0d 0a 09 |LSE...En|dIf.....|
|00002680| 77 63 2e 6c 70 66 6e 57 | 6e 64 50 72 6f 63 09 09 |wc.lpfnW|ndProc..|
|00002690| 3a 3d 20 40 4d 75 73 69 | 63 53 74 61 66 66 50 72 |:= @Musi|cStaffPr|
|000026a0| 6f 63 28 29 0d 0a 09 77 | 63 2e 63 62 57 6e 64 45 |oc()...w|c.cbWndE|
|000026b0| 78 74 72 61 09 09 3a 3d | 20 31 36 0d 0a 09 77 63 |xtra..:=| 16...wc|
|000026c0| 2e 6c 70 73 7a 43 6c 61 | 73 73 4e 61 6d 65 20 20 |.lpszCla|ssName |
|000026d0| 20 09 3a 3d 20 53 74 72 | 69 6e 67 32 50 73 7a 28 | .:= Str|ing2Psz(|
|000026e0| 20 22 4d 75 73 69 63 53 | 74 61 66 66 57 69 6e 64 | "MusicS|taffWind|
|000026f0| 6f 77 43 6c 61 73 73 22 | 20 29 0d 0a 09 49 66 20 |owClass"| )...If |
|00002700| 21 52 65 67 69 73 74 65 | 72 43 6c 61 73 73 28 40 |!Registe|rClass(@|
|00002710| 77 63 29 0d 0a 09 09 52 | 45 54 55 52 4e 20 46 41 |wc)....R|ETURN FA|
|00002720| 4c 53 45 0d 0a 09 45 6e | 64 49 66 0d 0a 20 0d 0a |LSE...En|dIf.. ..|
|00002730| 09 77 63 2e 6c 70 66 6e | 57 6e 64 50 72 6f 63 09 |.wc.lpfn|WndProc.|
|00002740| 09 3a 3d 20 40 57 68 69 | 74 65 4b 65 79 50 72 6f |.:= @Whi|teKeyPro|
|00002750| 63 28 29 0d 0a 09 77 63 | 2e 63 62 57 6e 64 45 78 |c()...wc|.cbWndEx|
|00002760| 74 72 61 09 09 3a 3d 20 | 31 36 0d 0a 09 77 63 2e |tra..:= |16...wc.|
|00002770| 68 43 75 72 73 6f 72 09 | 09 09 3a 3d 20 4c 6f 61 |hCursor.|..:= Loa|
|00002780| 64 43 75 72 73 6f 72 28 | 5f 47 65 74 49 6e 73 74 |dCursor(|_GetInst|
|00002790| 28 29 2c 20 53 74 72 69 | 6e 67 32 50 73 7a 28 20 |(), Stri|ng2Psz( |
|000027a0| 22 4d 79 46 69 6e 67 65 | 72 22 20 29 20 29 0d 0a |"MyFinge|r" ) )..|
|000027b0| 09 77 63 2e 6c 70 73 7a | 43 6c 61 73 73 4e 61 6d |.wc.lpsz|ClassNam|
|000027c0| 65 20 20 20 09 3a 3d 20 | 20 53 74 72 69 6e 67 32 |e .:= | String2|
|000027d0| 50 73 7a 28 20 22 57 68 | 69 74 65 4b 65 79 57 69 |Psz( "Wh|iteKeyWi|
|000027e0| 6e 64 6f 77 43 6c 61 73 | 73 22 20 29 0d 0a 09 49 |ndowClas|s" )...I|
|000027f0| 66 20 21 52 65 67 69 73 | 74 65 72 43 6c 61 73 73 |f !Regis|terClass|
|00002800| 28 40 77 63 29 0d 0a 09 | 09 52 45 54 55 52 4e 20 |(@wc)...|.RETURN |
|00002810| 46 41 4c 53 45 0d 0a 09 | 45 6e 64 49 66 0d 0a 0d |FALSE...|EndIf...|
|00002820| 0a 09 77 63 2e 6c 70 66 | 6e 57 6e 64 50 72 6f 63 |..wc.lpf|nWndProc|
|00002830| 09 09 3a 3d 20 40 42 6c | 61 63 6b 4b 65 79 50 72 |..:= @Bl|ackKeyPr|
|00002840| 6f 63 28 29 0d 0a 09 77 | 63 2e 63 62 57 6e 64 45 |oc()...w|c.cbWndE|
|00002850| 78 74 72 61 09 09 3a 3d | 20 31 36 0d 0a 09 77 63 |xtra..:=| 16...wc|
|00002860| 2e 6c 70 73 7a 43 6c 61 | 73 73 4e 61 6d 65 20 20 |.lpszCla|ssName |
|00002870| 20 09 3a 3d 20 53 74 72 | 69 6e 67 32 50 73 7a 28 | .:= Str|ing2Psz(|
|00002880| 20 22 42 6c 61 63 6b 4b | 65 79 57 69 6e 64 6f 77 | "BlackK|eyWindow|
|00002890| 43 6c 61 73 73 22 20 29 | 0d 0a 09 49 66 20 21 52 |Class" )|...If !R|
|000028a0| 65 67 69 73 74 65 72 43 | 6c 61 73 73 28 40 77 63 |egisterC|lass(@wc|
|000028b0| 29 0d 0a 09 09 52 45 54 | 55 52 4e 20 46 41 4c 53 |)....RET|URN FALS|
|000028c0| 45 0d 0a 09 45 6e 64 49 | 66 0d 0a 0d 0a 09 77 63 |E...EndI|f.....wc|
|000028d0| 2e 6c 70 66 6e 57 6e 64 | 50 72 6f 63 09 09 3a 3d |.lpfnWnd|Proc..:=|
|000028e0| 20 40 53 74 72 69 6e 67 | 57 6e 64 50 72 6f 63 28 | @String|WndProc(|
|000028f0| 29 0d 0a 09 77 63 2e 63 | 62 57 6e 64 45 78 74 72 |)...wc.c|bWndExtr|
|00002900| 61 09 09 3a 3d 20 31 36 | 0d 0a 09 77 63 2e 6c 70 |a..:= 16|...wc.lp|
|00002910| 73 7a 43 6c 61 73 73 4e | 61 6d 65 09 3a 3d 20 53 |szClassN|ame.:= S|
|00002920| 74 72 69 6e 67 32 50 73 | 7a 28 20 22 53 74 72 69 |tring2Ps|z( "Stri|
|00002930| 6e 67 57 69 6e 64 6f 77 | 43 6c 61 73 73 22 20 29 |ngWindow|Class" )|
|00002940| 0d 0a 09 49 66 20 21 52 | 65 67 69 73 74 65 72 43 |...If !R|egisterC|
|00002950| 6c 61 73 73 28 40 77 63 | 29 0d 0a 09 09 52 45 54 |lass(@wc|)....RET|
|00002960| 55 52 4e 20 46 41 4c 53 | 45 0d 0a 09 45 6e 64 49 |URN FALS|E...EndI|
|00002970| 66 0d 0a 0d 0a 09 2f 2f | 0d 0a 09 2f 2f 20 43 72 |f.....//|...// Cr|
|00002980| 65 61 74 65 20 77 69 6e | 64 6f 77 0d 0a 09 2f 2f |eate win|dow...//|
|00002990| 0d 0a 09 68 77 6e 64 20 | 3a 3d 20 43 72 65 61 74 |...hwnd |:= Creat|
|000029a0| 65 57 69 6e 64 6f 77 28 | 3b 0d 0a 09 09 20 53 74 |eWindow(|;.... St|
|000029b0| 72 69 6e 67 32 50 73 7a | 28 20 22 4d 75 73 69 63 |ring2Psz|( "Music|
|000029c0| 54 75 74 6f 72 43 6c 61 | 73 73 22 20 29 2c 3b 0d |TutorCla|ss" ),;.|
|000029d0| 0a 09 09 20 53 74 72 69 | 6e 67 32 50 73 7a 28 20 |... Stri|ng2Psz( |
|000029e0| 22 4d 75 73 69 63 20 54 | 75 74 6f 72 69 61 6c 20 |"Music T|utorial |
|000029f0| 44 65 6d 6f 6e 73 74 72 | 61 74 69 6f 6e 20 50 72 |Demonstr|ation Pr|
|00002a00| 6f 67 72 61 6d 22 20 29 | 2c 3b 0d 0a 09 09 5f 4f |ogram" )|,;...._O|
|00002a10| 72 28 20 57 53 5f 4f 56 | 45 52 4c 41 50 50 45 44 |r( WS_OV|ERLAPPED|
|00002a20| 57 49 4e 44 4f 57 2c 20 | 57 53 5f 43 4c 49 50 43 |WINDOW, |WS_CLIPC|
|00002a30| 48 49 4c 44 52 45 4e 29 | 20 2c 3b 0d 0a 09 09 32 |HILDREN)| ,;....2|
|00002a40| 30 2c 20 32 35 2c 20 36 | 32 30 2c 20 33 39 30 2c |0, 25, 6|20, 390,|
|00002a50| 3b 0d 0a 09 09 30 2c 20 | 30 2c 20 5f 47 65 74 49 |;....0, |0, _GetI|
|00002a60| 6e 73 74 28 29 2c 3b 0d | 0a 09 09 5f 4d 41 4b 45 |nst(),;.|..._MAKE|
|00002a70| 50 54 52 28 30 2c 30 29 | 29 0d 0a 0d 0a 09 49 66 |PTR(0,0)|).....If|
|00002a80| 20 68 77 6e 64 20 3d 20 | 30 0d 0a 09 09 52 45 54 | hwnd = |0....RET|
|00002a90| 55 52 4e 20 46 41 4c 53 | 45 0d 0a 09 45 6e 64 49 |URN FALS|E...EndI|
|00002aa0| 66 0d 0a 0d 0a 20 20 20 | 20 49 6e 73 74 61 6c 52 |f.... | InstalR|
|00002ab0| 65 73 6f 75 72 63 65 73 | 45 74 63 28 29 0d 0a 0d |esources|Etc()...|
|00002ac0| 0a 20 20 20 20 53 68 6f | 77 57 69 6e 64 6f 77 28 |. Sho|wWindow(|
|00002ad0| 68 77 6e 64 2c 20 53 57 | 5f 53 48 4f 57 4e 4f 52 |hwnd, SW|_SHOWNOR|
|00002ae0| 4d 41 4c 29 0d 0a 09 55 | 70 64 61 74 65 57 69 6e |MAL)...U|pdateWin|
|00002af0| 64 6f 77 28 68 77 6e 64 | 29 0d 0a 0d 0a 0d 0a 09 |dow(hwnd|).......|
|00002b00| 57 48 49 4c 45 20 47 65 | 74 4d 65 73 73 61 67 65 |WHILE Ge|tMessage|
|00002b10| 28 40 6d 73 67 2c 20 30 | 2c 20 30 2c 20 30 29 0d |(@msg, 0|, 0, 0).|
|00002b20| 0a 09 09 54 72 61 6e 73 | 6c 61 74 65 4d 65 73 73 |...Trans|lateMess|
|00002b30| 61 67 65 28 40 6d 73 67 | 29 0d 0a 09 09 44 69 73 |age(@msg|)....Dis|
|00002b40| 70 61 74 63 68 4d 65 73 | 73 61 67 65 28 40 6d 73 |patchMes|sage(@ms|
|00002b50| 67 29 0d 0a 09 45 6e 64 | 44 4f 0d 0a 09 20 0d 0a |g)...End|DO... ..|
|00002b60| 09 44 65 6c 65 74 65 4f | 62 6a 65 63 74 28 20 68 |.DeleteO|bject( h|
|00002b70| 54 72 65 62 6c 65 43 6c | 65 66 20 29 0d 0a 09 55 |TrebleCl|ef )...U|
|00002b80| 6e 72 65 67 69 73 74 65 | 72 43 6c 61 73 73 20 28 |nregiste|rClass (|
|00002b90| 77 63 2e 6c 70 73 7a 43 | 6c 61 73 73 4e 61 6d 65 |wc.lpszC|lassName|
|00002ba0| 2c 20 5f 47 65 74 49 6e | 73 74 28 29 29 0d 0a 09 |, _GetIn|st())...|
|00002bb0| 55 6e 72 65 67 69 73 74 | 65 72 43 6c 61 73 73 20 |Unregist|erClass |
|00002bc0| 28 53 74 72 69 6e 67 32 | 50 73 7a 28 20 22 42 6c |(String2|Psz( "Bl|
|00002bd0| 61 63 6b 4b 65 79 57 69 | 6e 64 6f 77 43 6c 61 73 |ackKeyWi|ndowClas|
|00002be0| 73 22 20 20 29 2c 20 5f | 47 65 74 49 6e 73 74 28 |s" ), _|GetInst(|
|00002bf0| 29 29 0d 0a 09 55 6e 72 | 65 67 69 73 74 65 72 43 |))...Unr|egisterC|
|00002c00| 6c 61 73 73 20 28 53 74 | 72 69 6e 67 32 50 73 7a |lass (St|ring2Psz|
|00002c10| 28 20 22 57 68 69 74 65 | 4b 65 79 57 69 6e 64 6f |( "White|KeyWindo|
|00002c20| 77 43 6c 61 73 73 22 20 | 29 2c 20 5f 47 65 74 49 |wClass" |), _GetI|
|00002c30| 6e 73 74 28 29 29 0d 0a | 09 55 6e 72 65 67 69 73 |nst())..|.Unregis|
|00002c40| 74 65 72 43 6c 61 73 73 | 20 28 53 74 72 69 6e 67 |terClass| (String|
|00002c50| 32 50 73 7a 28 20 22 4d | 75 73 69 63 53 74 61 66 |2Psz( "M|usicStaf|
|00002c60| 66 57 69 6e 64 6f 77 43 | 6c 61 73 73 22 20 29 2c |fWindowC|lass" ),|
|00002c70| 20 5f 47 65 74 49 6e 73 | 74 28 29 29 0d 0a 09 55 | _GetIns|t())...U|
|00002c80| 6e 72 65 67 69 73 74 65 | 72 43 6c 61 73 73 20 28 |nregiste|rClass (|
|00002c90| 53 74 72 69 6e 67 32 50 | 73 7a 28 20 22 46 72 65 |String2P|sz( "Fre|
|00002ca0| 74 42 6f 61 72 64 57 69 | 6e 64 6f 77 43 6c 61 73 |tBoardWi|ndowClas|
|00002cb0| 73 22 20 29 2c 20 5f 47 | 65 74 49 6e 73 74 28 29 |s" ), _G|etInst()|
|00002cc0| 29 0d 0a 09 55 6e 72 65 | 67 69 73 74 65 72 43 6c |)...Unre|gisterCl|
|00002cd0| 61 73 73 20 28 53 74 72 | 69 6e 67 32 50 73 7a 28 |ass (Str|ing2Psz(|
|00002ce0| 20 22 4d 75 73 69 63 54 | 75 74 6f 72 43 6c 61 73 | "MusicT|utorClas|
|00002cf0| 73 22 20 29 2c 20 5f 47 | 65 74 49 6e 73 74 28 29 |s" ), _G|etInst()|
|00002d00| 29 0d 0a 0d 0a 09 52 45 | 54 55 52 4e 20 54 52 55 |).....RE|TURN TRU|
|00002d10| 45 0d 0a 0d 0a 0d 0a 0d | 0a 00 4e 00 18 00 00 00 |E.......|..N.....|
|00002d20| 46 75 6e 63 74 69 6f 6e | 09 53 74 61 72 74 20 41 |Function|.Start A|
|00002d30| 73 20 4c 6f 67 69 63 00 | 40 00 0c 00 00 00 4d 41 |s Logic.|@.....MA|
|00002d40| 49 4e 57 4e 44 50 52 4f | 43 00 51 00 02 00 00 00 |INWNDPRO|C.Q.....|
|00002d50| 02 00 44 00 02 00 00 00 | 03 00 48 00 04 00 00 00 |..D.....|..H.....|
|00002d60| f7 9e 09 2f 4d 00 02 00 | 00 00 11 00 45 00 02 00 |.../M...|....E...|
|00002d70| 00 00 00 00 46 00 02 00 | 00 00 02 00 47 00 02 00 |....F...|....G...|
|00002d80| 00 00 ff ff 49 00 02 00 | 00 00 00 00 41 00 1b 09 |....I...|....A...|
|00002d90| 00 00 46 75 6e 63 74 69 | 6f 6e 09 4d 61 69 6e 57 |..Functi|on.MainW|
|00002da0| 6e 64 50 72 6f 63 20 28 | 68 77 6e 64 20 41 73 20 |ndProc (|hwnd As |
|00002db0| 57 4f 52 44 2c 20 6d 65 | 73 73 61 67 65 20 41 73 |WORD, me|ssage As|
|00002dc0| 20 57 4f 52 44 2c 20 77 | 50 61 72 61 6d 20 41 73 | WORD, w|Param As|
|00002dd0| 20 57 4f 52 44 2c 20 6c | 50 61 72 61 6d 20 41 73 | WORD, l|Param As|
|00002de0| 20 4c 4f 4e 47 29 20 41 | 73 20 4c 4f 4e 47 20 5f | LONG) A|s LONG _|
|00002df0| 57 49 4e 43 41 4c 4c 0d | 0a 0d 0a 09 4c 4f 43 41 |WINCALL.|....LOCA|
|00002e00| 4c 09 70 73 09 09 49 53 | 20 5f 57 49 4e 50 41 49 |L.ps..IS| _WINPAI|
|00002e10| 4e 54 53 54 52 55 43 54 | 0d 0a 09 4c 4f 43 41 4c |NTSTRUCT|...LOCAL|
|00002e20| 20 09 68 64 63 09 09 41 | 73 20 57 4f 52 44 0d 0a | .hdc..A|s WORD..|
|00002e30| 09 4c 4f 43 41 4c 09 69 | 09 09 41 73 20 4c 4f 4e |.LOCAL.i|..As LON|
|00002e40| 47 0d 0a 09 4c 4f 43 41 | 4c 09 70 50 72 6f 63 0d |G...LOCA|L.pProc.|
|00002e50| 0a 09 0d 0a 09 44 4f 20 | 43 61 73 65 0d 0a 0d 0a |.....DO |Case....|
|00002e60| 09 09 43 61 73 65 20 6d | 65 73 73 61 67 65 20 3d |..Case m|essage =|
|00002e70| 20 57 4d 5f 43 52 45 41 | 54 45 0d 0a 09 09 09 47 | WM_CREA|TE.....G|
|00002e80| 65 74 57 69 6e 64 6f 77 | 52 65 63 74 28 20 47 65 |etWindow|Rect( Ge|
|00002e90| 74 41 63 74 69 76 65 57 | 69 6e 64 6f 77 28 29 2c |tActiveW|indow(),|
|00002ea0| 20 40 72 63 20 20 29 0d | 0a 09 09 09 6e 52 69 67 | @rc ).|....nRig|
|00002eb0| 68 74 20 3a 3d 20 72 63 | 2e 72 69 67 68 74 20 2d |ht := rc|.right -|
|00002ec0| 20 32 30 0d 0a 09 09 09 | 68 77 6e 64 50 61 72 65 | 20.....|hwndPare|
|00002ed0| 6e 74 20 3a 3d 20 68 77 | 6e 64 0d 0a 09 09 09 52 |nt := hw|nd.....R|
|00002ee0| 45 54 55 52 4e 20 30 4c | 0d 0a 0d 0a 09 09 43 61 |ETURN 0L|......Ca|
|00002ef0| 73 65 20 6d 65 73 73 61 | 67 65 20 3d 20 57 4d 5f |se messa|ge = WM_|
|00002f00| 53 49 5a 45 0d 0a 09 09 | 09 47 65 74 43 6c 69 65 |SIZE....|.GetClie|
|00002f10| 6e 74 52 65 63 74 28 68 | 77 6e 64 2c 20 40 72 63 |ntRect(h|wnd, @rc|
|00002f20| 29 0d 0a 09 09 09 52 45 | 54 55 52 4e 20 30 4c 0d |).....RE|TURN 0L.|
|00002f30| 0a 09 09 09 0d 0a 09 09 | 43 61 73 65 20 6d 65 73 |........|Case mes|
|00002f40| 73 61 67 65 20 3d 20 57 | 4d 5f 44 45 53 54 52 4f |sage = W|M_DESTRO|
|00002f50| 59 0d 0a 09 09 09 44 65 | 6c 65 74 65 4f 62 6a 65 |Y.....De|leteObje|
|00002f60| 63 74 28 68 45 72 61 73 | 65 42 72 75 73 68 29 0d |ct(hEras|eBrush).|
|00002f70| 0a 09 09 09 50 6f 73 74 | 51 75 69 74 4d 65 73 73 |....Post|QuitMess|
|00002f80| 61 67 65 28 30 29 0d 0a | 09 09 09 52 45 54 55 52 |age(0)..|...RETUR|
|00002f90| 4e 20 30 4c 0d 0a 09 09 | 09 09 09 09 09 09 20 20 |N 0L....|...... |
|00002fa0| 20 0d 0a 09 09 43 61 73 | 65 20 6d 65 73 73 61 67 | ....Cas|e messag|
|00002fb0| 65 20 3d 20 57 4d 5f 50 | 41 49 4e 54 0d 0a 09 20 |e = WM_P|AINT... |
|00002fc0| 09 09 68 64 63 20 3a 3d | 20 42 65 67 69 6e 50 61 |..hdc :=| BeginPa|
|00002fd0| 69 6e 74 28 68 77 6e 64 | 2c 20 40 70 73 29 0d 0a |int(hwnd|, @ps)..|
|00002fe0| 09 09 09 50 61 69 6e 74 | 65 72 28 68 64 63 29 0d |...Paint|er(hdc).|
|00002ff0| 0a 09 09 09 45 6e 64 50 | 61 69 6e 74 28 68 77 6e |....EndP|aint(hwn|
|00003000| 64 2c 20 40 70 73 29 0d | 0a 09 20 09 09 72 65 74 |d, @ps).|.. ..ret|
|00003010| 75 72 6e 20 30 4c 0d 0a | 09 0d 0a 09 09 43 61 73 |urn 0L..|.....Cas|
|00003020| 65 20 6d 65 73 73 61 67 | 65 20 3d 20 57 4d 5f 43 |e messag|e = WM_C|
|00003030| 4f 4d 4d 41 4e 44 0d 0a | 09 09 09 44 6f 20 43 61 |OMMAND..|...Do Ca|
|00003040| 73 65 0d 0a 0d 0a 09 09 | 09 09 43 61 73 65 20 77 |se......|..Case w|
|00003050| 50 61 72 61 6d 20 3d 20 | 49 44 4d 5f 45 58 49 54 |Param = |IDM_EXIT|
|00003060| 0d 0a 09 09 09 09 09 44 | 65 6c 65 74 65 4f 62 6a |.......D|eleteObj|
|00003070| 65 63 74 28 68 45 72 61 | 73 65 42 72 75 73 68 29 |ect(hEra|seBrush)|
|00003080| 0d 0a 09 09 09 09 09 50 | 6f 73 74 51 75 69 74 4d |.......P|ostQuitM|
|00003090| 65 73 73 61 67 65 28 30 | 29 0d 0a 0d 0a 09 09 09 |essage(0|).......|
|000030a0| 09 43 61 73 65 20 77 50 | 61 72 61 6d 20 3d 20 49 |.Case wP|aram = I|
|000030b0| 44 4d 5f 47 55 49 54 41 | 52 0d 0a 09 09 09 09 09 |DM_GUITA|R.......|
|000030c0| 49 66 20 6e 49 73 52 75 | 6e 6e 69 6e 67 20 21 3d |If nIsRu|nning !=|
|000030d0| 20 30 0d 0a 09 09 09 09 | 09 09 4b 69 6c 6c 49 6e | 0......|..KillIn|
|000030e0| 73 74 72 75 6d 65 6e 74 | 28 29 0d 0a 09 09 09 09 |strument|()......|
|000030f0| 09 45 6e 64 09 0d 0a 09 | 09 09 09 09 6e 49 73 52 |.End....|....nIsR|
|00003100| 75 6e 6e 69 6e 67 20 3a | 3d 20 49 4e 53 54 52 55 |unning :|= INSTRU|
|00003110| 4d 45 4e 54 5f 47 55 49 | 54 41 52 0d 0a 09 09 09 |MENT_GUI|TAR.....|
|00003120| 09 09 50 61 69 6e 74 46 | 72 65 74 62 6f 61 72 64 |..PaintF|retboard|
|00003130| 28 29 0d 0a 09 09 09 09 | 09 0d 0a 09 09 09 09 43 |()......|.......C|
|00003140| 61 73 65 20 77 50 61 72 | 61 6d 20 3d 20 49 44 4d |ase wPar|am = IDM|
|00003150| 5f 4b 45 59 53 0d 0a 09 | 09 09 09 09 49 66 20 6e |_KEYS...|....If n|
|00003160| 49 73 52 75 6e 6e 69 6e | 67 20 21 3d 20 30 0d 0a |IsRunnin|g != 0..|
|00003170| 09 09 09 09 09 09 4b 69 | 6c 6c 49 6e 73 74 72 75 |......Ki|llInstru|
|00003180| 6d 65 6e 74 28 29 0d 0a | 09 09 09 09 09 45 6e 64 |ment()..|.....End|
|00003190| 09 0d 0a 09 09 09 09 09 | 6e 49 73 52 75 6e 6e 69 |........|nIsRunni|
|000031a0| 6e 67 20 3a 3d 20 49 4e | 53 54 52 55 4d 45 4e 54 |ng := IN|STRUMENT|
|000031b0| 5f 50 49 41 4e 4f 0d 0a | 09 09 09 09 09 50 61 69 |_PIANO..|.....Pai|
|000031c0| 6e 74 4b 65 79 73 28 29 | 0d 0a 0d 0a 20 20 20 20 |ntKeys()|.... |
|000031d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 61 73 65 | | Case|
|000031e0| 20 77 50 61 72 61 6d 20 | 3d 20 49 44 4d 5f 53 4f | wParam |= IDM_SO|
|000031f0| 55 4e 44 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |UND.. | |
|00003200| 20 20 20 20 20 20 20 20 | 62 50 6c 61 79 4e 6f 74 | |bPlayNot|
|00003210| 65 20 3a 3d 20 21 62 50 | 6c 61 79 4e 6f 74 65 0d |e := !bP|layNote.|
|00003220| 0a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00003230| 20 20 20 43 61 73 65 20 | 77 50 61 72 61 6d 20 3d | Case |wParam =|
|00003240| 20 49 44 4d 5f 4e 4f 54 | 45 53 0d 0a 20 20 20 20 | IDM_NOT|ES.. |
|00003250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 62 | | b|
|00003260| 53 68 6f 77 4e 6f 74 65 | 20 3a 3d 20 21 62 53 68 |ShowNote| := !bSh|
|00003270| 6f 77 4e 6f 74 65 0d 0a | 20 20 20 20 20 20 20 20 |owNote..| |
|00003280| 20 20 20 20 20 20 20 20 | 20 20 20 49 66 20 6e 49 | | If nI|
|00003290| 73 52 75 6e 6e 69 6e 67 | 20 3d 3d 20 4e 4f 5f 49 |sRunning| == NO_I|
|000032a0| 4e 53 54 52 55 4d 45 4e | 54 0d 0a 20 20 20 20 20 |NSTRUMEN|T.. |
|000032b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 6c | | El|
|000032c0| 73 65 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |se.. | |
|000032d0| 20 20 20 20 20 20 20 20 | 20 20 49 66 20 21 62 53 | | If !bS|
|000032e0| 68 6f 77 4e 6f 74 65 0d | 0a 20 20 20 20 20 20 20 |howNote.|. |
|000032f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003300| 20 20 49 6e 76 61 6c 69 | 64 61 74 65 52 65 63 74 | Invali|dateRect|
|00003310| 28 20 68 77 6e 64 4d 75 | 73 69 63 53 74 61 66 66 |( hwndMu|sicStaff|
|00003320| 2c 20 4e 55 4c 4c 2c 20 | 54 52 55 45 20 29 0d 0a |, NULL, |TRUE )..|
|00003330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003340| 20 20 20 20 20 20 20 20 | 20 68 64 63 20 3a 3d 20 | | hdc := |
|00003350| 42 65 67 69 6e 50 61 69 | 6e 74 28 20 68 77 6e 64 |BeginPai|nt( hwnd|
|00003360| 4d 75 73 69 63 53 74 61 | 66 66 2c 20 40 70 73 20 |MusicSta|ff, @ps |
|00003370| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).. | |
|00003380| 20 20 20 20 20 20 20 20 | 20 20 20 20 4d 75 73 69 | | Musi|
|00003390| 63 53 74 61 66 66 50 61 | 69 6e 74 65 72 28 20 68 |cStaffPa|inter( h|
|000033a0| 64 63 20 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |dc ).. | |
|000033b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|000033c0| 6e 64 50 61 69 6e 74 28 | 20 68 77 6e 64 2c 20 40 |ndPaint(| hwnd, @|
|000033d0| 70 73 20 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ps ).. | |
|000033e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 6e 64 0d | | End.|
|000033f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003400| 20 20 20 20 20 20 20 4e | 65 78 74 4e 6f 74 65 28 | N|extNote(|
|00003410| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).. | |
|00003420| 20 20 20 20 20 20 45 6e | 64 0d 0a 0d 0a 20 20 20 | En|d.... |
|00003430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 61 73 | | Cas|
|00003440| 65 20 77 50 61 72 61 6d | 20 3d 3d 20 49 44 4d 5f |e wParam| == IDM_|
|00003450| 4e 45 58 54 4e 4f 54 45 | 0d 0a 09 09 09 09 20 20 |NEXTNOTE|...... |
|00003460| 20 4e 65 78 74 4e 6f 74 | 65 28 29 0d 0a 0d 0a 20 | NextNot|e().... |
|00003470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 | | C|
|00003480| 61 73 65 20 77 50 61 72 | 61 6d 20 3d 49 44 4d 5f |ase wPar|am =IDM_|
|00003490| 49 4e 53 54 58 49 54 0d | 0a 09 09 09 09 09 4b 69 |INSTXIT.|......Ki|
|000034a0| 6c 6c 49 6e 73 74 72 75 | 6d 65 6e 74 28 29 0d 0a |llInstru|ment()..|
|000034b0| 09 09 09 09 09 6e 49 73 | 52 75 6e 6e 69 6e 67 20 |.....nIs|Running |
|000034c0| 3a 3d 20 4e 4f 5f 49 4e | 53 54 52 55 4d 45 4e 54 |:= NO_IN|STRUMENT|
|000034d0| 0d 0a 09 09 09 09 09 0d | 0a 09 09 09 09 43 61 73 |........|.....Cas|
|000034e0| 65 20 77 50 61 72 61 6d | 20 3d 20 49 44 4d 5f 41 |e wParam| = IDM_A|
|000034f0| 42 4f 55 54 0d 0a 09 09 | 09 09 20 20 20 70 50 72 |BOUT....|.. pPr|
|00003500| 6f 63 20 3a 3d 20 4d 61 | 6b 65 50 72 6f 63 49 6e |oc := Ma|keProcIn|
|00003510| 73 74 61 6e 63 65 28 40 | 41 62 6f 75 74 28 29 2c |stance(@|About(),|
|00003520| 20 5f 47 65 74 49 6e 73 | 74 28 29 29 0d 0a 09 09 | _GetIns|t())....|
|00003530| 09 09 20 20 20 68 64 63 | 20 3a 3d 20 47 65 74 44 |.. hdc| := GetD|
|00003540| 43 28 68 77 6e 64 29 0d | 0a 09 09 09 09 20 20 20 |C(hwnd).|..... |
|00003550| 44 69 61 6c 6f 67 42 6f | 78 28 5f 47 65 74 49 6e |DialogBo|x(_GetIn|
|00003560| 73 74 28 29 2c 20 20 53 | 74 72 69 6e 67 32 50 73 |st(), S|tring2Ps|
|00003570| 7a 28 20 22 41 42 4f 55 | 54 42 4f 58 22 20 29 2c |z( "ABOU|TBOX" ),|
|00003580| 68 77 6e 64 2c 70 50 72 | 6f 63 29 0d 0a 09 09 09 |hwnd,pPr|oc).....|
|00003590| 09 20 20 20 46 72 65 65 | 50 72 6f 63 49 6e 73 74 |. Free|ProcInst|
|000035a0| 61 6e 63 65 28 70 50 72 | 6f 63 29 0d 0a 0d 0a 09 |ance(pPr|oc).....|
|000035b0| 09 09 09 4f 74 68 65 72 | 77 69 73 65 0d 0a 09 09 |...Other|wise....|
|000035c0| 09 09 20 20 20 4d 65 73 | 73 61 67 65 42 6f 78 28 |.. Mes|sageBox(|
|000035d0| 20 47 65 74 41 63 74 69 | 76 65 57 69 6e 64 6f 77 | GetActi|veWindow|
|000035e0| 28 29 2c 20 20 53 74 72 | 69 6e 67 32 50 73 7a 28 |(), Str|ing2Psz(|
|000035f0| 20 22 54 68 61 74 20 66 | 75 6e 63 74 69 6f 6e 20 | "That f|unction |
|00003600| 69 73 20 6e 6f 74 20 79 | 65 74 20 61 63 74 69 76 |is not y|et activ|
|00003610| 61 74 65 64 22 20 29 2c | 20 20 53 74 72 69 6e 67 |ated" ),| String|
|00003620| 32 50 73 7a 28 20 22 53 | 6f 72 72 79 22 20 29 2c |2Psz( "S|orry" ),|
|00003630| 20 4d 42 5f 49 43 4f 4e | 45 58 43 4c 41 4d 41 54 | MB_ICON|EXCLAMAT|
|00003640| 49 4f 4e 20 29 0d 0a 0d | 0a 09 09 09 45 6e 64 0d |ION )...|....End.|
|00003650| 0a 09 09 09 52 45 54 55 | 52 4e 20 30 4c 0d 0a 0d |....RETU|RN 0L...|
|00003660| 0a 09 45 6e 64 43 61 73 | 65 09 09 20 0d 0a 09 09 |..EndCas|e.. ....|
|00003670| 0d 0a 09 52 45 54 55 52 | 4e 20 44 65 66 57 69 6e |...RETUR|N DefWin|
|00003680| 64 6f 77 50 72 6f 63 28 | 68 77 6e 64 2c 20 6d 65 |dowProc(|hwnd, me|
|00003690| 73 73 61 67 65 2c 20 77 | 50 61 72 61 6d 2c 20 6c |ssage, w|Param, l|
|000036a0| 50 61 72 61 6d 29 0d 0a | 0d 0a 0d 0a 00 4e 00 66 |Param)..|.....N.f|
|000036b0| 00 00 00 46 75 6e 63 74 | 69 6f 6e 09 4d 61 69 6e |...Funct|ion.Main|
|000036c0| 57 6e 64 50 72 6f 63 20 | 28 68 77 6e 64 20 41 73 |WndProc |(hwnd As|
|000036d0| 20 57 4f 52 44 2c 20 6d | 65 73 73 61 67 65 20 41 | WORD, m|essage A|
|000036e0| 73 20 57 4f 52 44 2c 20 | 77 50 61 72 61 6d 20 41 |s WORD, |wParam A|
|000036f0| 73 20 57 4f 52 44 2c 20 | 6c 50 61 72 61 6d 20 41 |s WORD, |lParam A|
|00003700| 73 20 4c 4f 4e 47 29 20 | 41 73 20 4c 4f 4e 47 20 |s LONG) |As LONG |
|00003710| 5f 57 49 4e 43 41 4c 4c | 00 40 00 0f 00 00 00 4d |_WINCALL|.@.....M|
|00003720| 55 53 49 43 53 54 41 46 | 46 50 52 4f 43 00 51 00 |USICSTAF|FPROC.Q.|
|00003730| 02 00 00 00 02 00 44 00 | 02 00 00 00 03 00 48 00 |......D.|......H.|
|00003740| 04 00 00 00 f7 9e 09 2f | 4d 00 02 00 00 00 11 00 |......./|M.......|
|00003750| 45 00 02 00 00 00 00 00 | 46 00 02 00 00 00 02 00 |E.......|F.......|
|00003760| 47 00 02 00 00 00 ff ff | 49 00 02 00 00 00 00 00 |G.......|I.......|
|00003770| 41 00 f9 01 00 00 46 75 | 6e 63 74 69 6f 6e 20 4d |A.....Fu|nction M|
|00003780| 75 73 69 63 53 74 61 66 | 66 50 72 6f 63 20 28 68 |usicStaf|fProc (h|
|00003790| 77 6e 64 20 41 73 20 57 | 4f 52 44 2c 20 6d 65 73 |wnd As W|ORD, mes|
|000037a0| 73 61 67 65 20 41 73 20 | 57 4f 52 44 2c 20 77 50 |sage As |WORD, wP|
|000037b0| 61 72 61 6d 20 41 73 20 | 57 4f 52 44 2c 20 6c 50 |aram As |WORD, lP|
|000037c0| 61 72 61 6d 20 41 73 20 | 4c 4f 4e 47 29 20 41 73 |aram As |LONG) As|
|000037d0| 20 4c 4f 4e 47 20 5f 57 | 49 4e 43 41 4c 4c 0d 0a | LONG _W|INCALL..|
|000037e0| 09 4c 4f 43 41 4c 09 70 | 73 09 09 49 53 20 5f 57 |.LOCAL.p|s..IS _W|
|000037f0| 49 4e 50 41 49 4e 54 53 | 54 52 55 43 54 0d 0a 09 |INPAINTS|TRUCT...|
|00003800| 4c 4f 43 41 4c 20 09 68 | 64 63 09 09 41 73 20 57 |LOCAL .h|dc..As W|
|00003810| 4f 52 44 0d 0a 09 4c 4f | 43 41 4c 09 69 09 09 41 |ORD...LO|CAL.i..A|
|00003820| 73 20 4c 4f 4e 47 0d 0a | 0d 0a 09 44 4f 20 43 61 |s LONG..|...DO Ca|
|00003830| 73 65 0d 0a 0d 0a 09 09 | 43 61 73 65 20 6d 65 73 |se......|Case mes|
|00003840| 73 61 67 65 20 3d 20 57 | 4d 5f 43 52 45 41 54 45 |sage = W|M_CREATE|
|00003850| 0d 0a 0d 0a 09 09 43 61 | 73 65 20 6d 65 73 73 61 |......Ca|se messa|
|00003860| 67 65 20 3d 20 57 4d 5f | 53 49 5a 45 0d 0a 09 09 |ge = WM_|SIZE....|
|00003870| 09 47 65 74 43 6c 69 65 | 6e 74 52 65 63 74 28 68 |.GetClie|ntRect(h|
|00003880| 77 6e 64 2c 20 40 72 63 | 29 0d 0a 09 09 09 52 45 |wnd, @rc|).....RE|
|00003890| 54 55 52 4e 20 30 4c 0d | 0a 09 09 09 0d 0a 09 09 |TURN 0L.|........|
|000038a0| 43 61 73 65 20 6d 65 73 | 73 61 67 65 20 3d 20 57 |Case mes|sage = W|
|000038b0| 4d 5f 50 41 49 4e 54 09 | 0d 0a 09 20 09 09 68 64 |M_PAINT.|... ..hd|
|000038c0| 63 20 3a 3d 20 42 65 67 | 69 6e 50 61 69 6e 74 28 |c := Beg|inPaint(|
|000038d0| 68 77 6e 64 2c 20 40 70 | 73 29 0d 0a 09 09 09 4d |hwnd, @p|s).....M|
|000038e0| 75 73 69 63 53 74 61 66 | 66 50 61 69 6e 74 65 72 |usicStaf|fPainter|
|000038f0| 28 68 64 63 29 0d 0a 09 | 09 09 45 6e 64 50 61 69 |(hdc)...|..EndPai|
|00003900| 6e 74 28 68 77 6e 64 2c | 20 40 70 73 29 0d 0a 09 |nt(hwnd,| @ps)...|
|00003910| 20 09 09 72 65 74 75 72 | 6e 20 30 4c 0d 0a 09 0d | ..retur|n 0L....|
|00003920| 0a 09 45 6e 64 43 61 73 | 65 09 09 20 0d 0a 09 09 |..EndCas|e.. ....|
|00003930| 0d 0a 09 52 45 54 55 52 | 4e 20 44 65 66 57 69 6e |...RETUR|N DefWin|
|00003940| 64 6f 77 50 72 6f 63 28 | 68 77 6e 64 2c 20 6d 65 |dowProc(|hwnd, me|
|00003950| 73 73 61 67 65 2c 20 77 | 50 61 72 61 6d 2c 20 6c |ssage, w|Param, l|
|00003960| 50 61 72 61 6d 29 0d 0a | 0d 0a 0d 0a 0d 0a 00 4e |Param)..|.......N|
|00003970| 00 69 00 00 00 46 75 6e | 63 74 69 6f 6e 20 4d 75 |.i...Fun|ction Mu|
|00003980| 73 69 63 53 74 61 66 66 | 50 72 6f 63 20 28 68 77 |sicStaff|Proc (hw|
|00003990| 6e 64 20 41 73 20 57 4f | 52 44 2c 20 6d 65 73 73 |nd As WO|RD, mess|
|000039a0| 61 67 65 20 41 73 20 57 | 4f 52 44 2c 20 77 50 61 |age As W|ORD, wPa|
|000039b0| 72 61 6d 20 41 73 20 57 | 4f 52 44 2c 20 6c 50 61 |ram As W|ORD, lPa|
|000039c0| 72 61 6d 20 41 73 20 4c | 4f 4e 47 29 20 41 73 20 |ram As L|ONG) As |
|000039d0| 4c 4f 4e 47 20 5f 57 49 | 4e 43 41 4c 4c 00 40 00 |LONG _WI|NCALL.@.|
|000039e0| 0e 00 00 00 53 54 52 49 | 4e 47 57 4e 44 50 52 4f |....STRI|NGWNDPRO|
|000039f0| 43 00 51 00 02 00 00 00 | 02 00 44 00 02 00 00 00 |C.Q.....|..D.....|
|00003a00| 03 00 48 00 04 00 00 00 | f8 9e 09 2f 4d 00 02 00 |..H.....|.../M...|
|00003a10| 00 00 11 00 45 00 02 00 | 00 00 00 00 46 00 02 00 |....E...|....F...|
|00003a20| 00 00 02 00 47 00 02 00 | 00 00 ff ff 49 00 02 00 |....G...|....I...|
|00003a30| 00 00 00 00 41 00 aa 02 | 00 00 46 75 6e 63 74 69 |....A...|..Functi|
|00003a40| 6f 6e 20 53 74 72 69 6e | 67 57 6e 64 50 72 6f 63 |on Strin|gWndProc|
|00003a50| 20 28 68 77 6e 64 20 41 | 73 20 57 4f 52 44 2c 20 | (hwnd A|s WORD, |
|00003a60| 6d 65 73 73 61 67 65 20 | 41 73 20 57 4f 52 44 2c |message |As WORD,|
|00003a70| 20 77 50 61 72 61 6d 20 | 41 73 20 57 4f 52 44 2c | wParam |As WORD,|
|00003a80| 20 6c 50 61 72 61 6d 20 | 41 73 20 4c 4f 4e 47 29 | lParam |As LONG)|
|00003a90| 20 41 73 20 4c 4f 4e 47 | 20 5f 57 49 4e 43 41 4c | As LONG| _WINCAL|
|00003aa0| 4c 0d 0a 09 4c 4f 43 41 | 4c 09 70 73 09 09 49 53 |L...LOCA|L.ps..IS|
|00003ab0| 20 5f 57 49 4e 50 41 49 | 4e 54 53 54 52 55 43 54 | _WINPAI|NTSTRUCT|
|00003ac0| 0d 0a 09 4c 4f 43 41 4c | 20 09 68 64 63 09 09 41 |...LOCAL| .hdc..A|
|00003ad0| 73 20 57 4f 52 44 0d 0a | 09 4c 4f 43 41 4c 09 69 |s WORD..|.LOCAL.i|
|00003ae0| 09 09 41 73 20 4c 4f 4e | 47 0d 0a 0d 0a 09 44 4f |..As LON|G.....DO|
|00003af0| 20 43 61 73 65 0d 0a 0d | 0a 09 09 43 61 73 65 20 | Case...|...Case |
|00003b00| 6d 65 73 73 61 67 65 20 | 3d 20 57 4d 5f 4c 42 55 |message |= WM_LBU|
|00003b10| 54 54 4f 4e 44 4f 57 4e | 0d 0a 09 09 09 68 64 63 |TTONDOWN|.....hdc|
|00003b20| 20 3a 3d 20 47 65 74 44 | 43 28 68 77 6e 64 29 09 | := GetD|C(hwnd).|
|00003b30| 20 20 20 20 20 0d 0a 09 | 09 09 70 2e 78 20 3a 3d | ...|..p.x :=|
|00003b40| 20 57 4f 52 44 28 5f 43 | 41 53 54 2c 20 6c 50 61 | WORD(_C|AST, lPa|
|00003b50| 72 61 6d 29 0d 0a 09 09 | 09 70 2e 79 20 3a 3d 20 |ram)....|.p.y := |
|00003b60| 6c 50 61 72 61 6d 20 3e | 3e 20 31 36 0d 0a 09 09 |lParam >|> 16....|
|00003b70| 09 47 75 69 74 61 72 50 | 6c 61 79 4e 6f 74 65 28 |.GuitarP|layNote(|
|00003b80| 20 68 64 63 2c 20 47 65 | 74 57 69 6e 49 64 78 28 | hdc, Ge|tWinIdx(|
|00003b90| 20 68 77 6e 64 20 29 20 | 29 0d 0a 09 20 09 09 52 | hwnd ) |)... ..R|
|00003ba0| 65 6c 65 61 73 65 44 43 | 28 20 68 77 6e 64 2c 20 |eleaseDC|( hwnd, |
|00003bb0| 68 64 63 20 29 0d 0a 09 | 09 09 52 45 54 55 52 4e |hdc )...|..RETURN|
|00003bc0| 20 30 4c 0d 0a 0d 0a 09 | 09 43 61 73 65 20 6d 65 | 0L.....|.Case me|
|00003bd0| 73 73 61 67 65 20 3d 20 | 57 4d 5f 53 49 5a 45 0d |ssage = |WM_SIZE.|
|00003be0| 0a 09 09 09 47 65 74 43 | 6c 69 65 6e 74 52 65 63 |....GetC|lientRec|
|00003bf0| 74 28 68 77 6e 64 2c 20 | 40 72 63 29 0d 0a 09 09 |t(hwnd, |@rc)....|
|00003c00| 09 52 45 54 55 52 4e 20 | 30 4c 0d 0a 09 09 09 0d |.RETURN |0L......|
|00003c10| 0a 09 09 43 61 73 65 20 | 6d 65 73 73 61 67 65 20 |...Case |message |
|00003c20| 3d 20 57 4d 5f 50 41 49 | 4e 54 09 0d 0a 09 20 09 |= WM_PAI|NT.... .|
|00003c30| 09 68 64 63 20 3a 3d 20 | 42 65 67 69 6e 50 61 69 |.hdc := |BeginPai|
|00003c40| 6e 74 28 68 77 6e 64 2c | 20 40 70 73 29 0d 0a 09 |nt(hwnd,| @ps)...|
|00003c50| 09 09 47 75 69 74 61 72 | 53 74 72 69 6e 67 50 61 |..Guitar|StringPa|
|00003c60| 69 6e 74 65 72 28 68 64 | 63 29 0d 0a 09 09 09 45 |inter(hd|c).....E|
|00003c70| 6e 64 50 61 69 6e 74 28 | 68 77 6e 64 2c 20 40 70 |ndPaint(|hwnd, @p|
|00003c80| 73 29 0d 0a 09 20 09 09 | 72 65 74 75 72 6e 20 30 |s)... ..|return 0|
|00003c90| 4c 0d 0a 09 0d 0a 09 45 | 6e 64 43 61 73 65 09 09 |L......E|ndCase..|
|00003ca0| 20 0d 0a 09 09 0d 0a 09 | 52 45 54 55 52 4e 20 44 | .......|RETURN D|
|00003cb0| 65 66 57 69 6e 64 6f 77 | 50 72 6f 63 28 68 77 6e |efWindow|Proc(hwn|
|00003cc0| 64 2c 20 6d 65 73 73 61 | 67 65 2c 20 77 50 61 72 |d, messa|ge, wPar|
|00003cd0| 61 6d 2c 20 6c 50 61 72 | 61 6d 29 0d 0a 0d 0a 0d |am, lPar|am).....|
|00003ce0| 0a 0d 0a 00 4e 00 68 00 | 00 00 46 75 6e 63 74 69 |....N.h.|..Functi|
|00003cf0| 6f 6e 20 53 74 72 69 6e | 67 57 6e 64 50 72 6f 63 |on Strin|gWndProc|
|00003d00| 20 28 68 77 6e 64 20 41 | 73 20 57 4f 52 44 2c 20 | (hwnd A|s WORD, |
|00003d10| 6d 65 73 73 61 67 65 20 | 41 73 20 57 4f 52 44 2c |message |As WORD,|
|00003d20| 20 77 50 61 72 61 6d 20 | 41 73 20 57 4f 52 44 2c | wParam |As WORD,|
|00003d30| 20 6c 50 61 72 61 6d 20 | 41 73 20 4c 4f 4e 47 29 | lParam |As LONG)|
|00003d40| 20 41 73 20 4c 4f 4e 47 | 20 5f 57 49 4e 43 41 4c | As LONG| _WINCAL|
|00003d50| 4c 00 40 00 0d 00 00 00 | 57 48 49 54 45 4b 45 59 |L.@.....|WHITEKEY|
|00003d60| 50 52 4f 43 00 51 00 02 | 00 00 00 02 00 44 00 02 |PROC.Q..|.....D..|
|00003d70| 00 00 00 03 00 48 00 04 | 00 00 00 f8 9e 09 2f 4d |.....H..|....../M|
|00003d80| 00 02 00 00 00 11 00 45 | 00 02 00 00 00 00 00 46 |.......E|.......F|
|00003d90| 00 02 00 00 00 02 00 47 | 00 02 00 00 00 ff ff 49 |.......G|.......I|
|00003da0| 00 02 00 00 00 00 00 41 | 00 a5 02 00 00 46 75 6e |.......A|.....Fun|
|00003db0| 63 74 69 6f 6e 20 57 68 | 69 74 65 4b 65 79 50 72 |ction Wh|iteKeyPr|
|00003dc0| 6f 63 20 28 68 77 6e 64 | 20 41 73 20 57 4f 52 44 |oc (hwnd| As WORD|
|00003dd0| 2c 20 6d 65 73 73 61 67 | 65 20 41 73 20 57 4f 52 |, messag|e As WOR|
|00003de0| 44 2c 20 77 50 61 72 61 | 6d 20 41 73 20 57 4f 52 |D, wPara|m As WOR|
|00003df0| 44 2c 20 6c 50 61 72 61 | 6d 20 41 73 20 4c 4f 4e |D, lPara|m As LON|
|00003e00| 47 29 20 41 73 20 4c 4f | 4e 47 20 5f 57 49 4e 43 |G) As LO|NG _WINC|
|00003e10| 41 4c 4c 0d 0a 09 4c 4f | 43 41 4c 09 70 73 09 09 |ALL...LO|CAL.ps..|
|00003e20| 49 53 20 5f 57 49 4e 50 | 41 49 4e 54 53 54 52 55 |IS _WINP|AINTSTRU|
|00003e30| 43 54 0d 0a 09 4c 4f 43 | 41 4c 20 09 68 64 63 09 |CT...LOC|AL .hdc.|
|00003e40| 09 41 73 20 57 4f 52 44 | 0d 0a 09 4c 4f 43 41 4c |.As WORD|...LOCAL|
|00003e50| 09 69 09 09 41 73 20 4c | 4f 4e 47 0d 0a 0d 0a 09 |.i..As L|ONG.....|
|00003e60| 44 4f 20 43 61 73 65 0d | 0a 0d 0a 09 09 43 61 73 |DO Case.|.....Cas|
|00003e70| 65 20 6d 65 73 73 61 67 | 65 20 3d 20 57 4d 5f 4c |e messag|e = WM_L|
|00003e80| 42 55 54 54 4f 4e 44 4f | 57 4e 0d 0a 09 09 09 68 |BUTTONDO|WN.....h|
|00003e90| 64 63 20 3a 3d 20 47 65 | 74 44 43 28 68 77 6e 64 |dc := Ge|tDC(hwnd|
|00003ea0| 29 09 20 20 20 20 20 0d | 0a 09 09 09 70 2e 78 20 |). .|....p.x |
|00003eb0| 3a 3d 20 57 4f 52 44 28 | 5f 43 41 53 54 2c 20 6c |:= WORD(|_CAST, l|
|00003ec0| 50 61 72 61 6d 29 0d 0a | 09 09 09 70 2e 79 20 3a |Param)..|...p.y :|
|00003ed0| 3d 20 6c 50 61 72 61 6d | 20 3e 3e 20 31 36 0d 0a |= lParam| >> 16..|
|00003ee0| 09 09 09 50 69 61 6e 6f | 50 6c 61 79 4e 6f 74 65 |...Piano|PlayNote|
|00003ef0| 28 20 68 64 63 2c 20 47 | 65 74 57 69 6e 49 64 78 |( hdc, G|etWinIdx|
|00003f00| 28 20 68 77 6e 64 20 29 | 20 29 0d 0a 09 20 09 09 |( hwnd )| )... ..|
|00003f10| 52 65 6c 65 61 73 65 44 | 43 28 20 68 77 6e 64 2c |ReleaseD|C( hwnd,|
|00003f20| 20 68 64 63 20 29 0d 0a | 09 09 09 52 45 54 55 52 | hdc )..|...RETUR|
|00003f30| 4e 20 30 4c 0d 0a 0d 0a | 09 09 43 61 73 65 20 6d |N 0L....|..Case m|
|00003f40| 65 73 73 61 67 65 20 3d | 20 57 4d 5f 53 49 5a 45 |essage =| WM_SIZE|
|00003f50| 0d 0a 09 09 09 47 65 74 | 43 6c 69 65 6e 74 52 65 |.....Get|ClientRe|
|00003f60| 63 74 28 68 77 6e 64 2c | 20 40 72 63 29 0d 0a 09 |ct(hwnd,| @rc)...|
|00003f70| 09 09 52 45 54 55 52 4e | 20 30 4c 0d 0a 09 09 09 |..RETURN| 0L.....|
|00003f80| 0d 0a 09 09 43 61 73 65 | 20 6d 65 73 73 61 67 65 |....Case| message|
|00003f90| 20 3d 20 57 4d 5f 50 41 | 49 4e 54 09 0d 0a 09 20 | = WM_PA|INT.... |
|00003fa0| 09 09 68 64 63 20 3a 3d | 20 42 65 67 69 6e 50 61 |..hdc :=| BeginPa|
|00003fb0| 69 6e 74 28 68 77 6e 64 | 2c 20 40 70 73 29 0d 0a |int(hwnd|, @ps)..|
|00003fc0| 09 09 09 57 68 69 74 65 | 4b 65 79 50 61 69 6e 74 |...White|KeyPaint|
|00003fd0| 65 72 28 20 68 64 63 2c | 20 31 20 29 0d 0a 09 09 |er( hdc,| 1 )....|
|00003fe0| 09 45 6e 64 50 61 69 6e | 74 28 68 77 6e 64 2c 20 |.EndPain|t(hwnd, |
|00003ff0| 40 70 73 29 0d 0a 09 20 | 09 09 72 65 74 75 72 6e |@ps)... |..return|
|00004000| 20 30 4c 0d 0a 09 0d 0a | 09 45 6e 64 43 61 73 65 | 0L.....|.EndCase|
|00004010| 09 09 20 0d 0a 09 09 0d | 0a 09 52 45 54 55 52 4e |.. .....|..RETURN|
|00004020| 20 44 65 66 57 69 6e 64 | 6f 77 50 72 6f 63 28 68 | DefWind|owProc(h|
|00004030| 77 6e 64 2c 20 6d 65 73 | 73 61 67 65 2c 20 77 50 |wnd, mes|sage, wP|
|00004040| 61 72 61 6d 2c 20 6c 50 | 61 72 61 6d 29 0d 0a 0d |aram, lP|aram)...|
|00004050| 0a 00 4e 00 67 00 00 00 | 46 75 6e 63 74 69 6f 6e |..N.g...|Function|
|00004060| 20 57 68 69 74 65 4b 65 | 79 50 72 6f 63 20 28 68 | WhiteKe|yProc (h|
|00004070| 77 6e 64 20 41 73 20 57 | 4f 52 44 2c 20 6d 65 73 |wnd As W|ORD, mes|
|00004080| 73 61 67 65 20 41 73 20 | 57 4f 52 44 2c 20 77 50 |sage As |WORD, wP|
|00004090| 61 72 61 6d 20 41 73 20 | 57 4f 52 44 2c 20 6c 50 |aram As |WORD, lP|
|000040a0| 61 72 61 6d 20 41 73 20 | 4c 4f 4e 47 29 20 41 73 |aram As |LONG) As|
|000040b0| 20 4c 4f 4e 47 20 5f 57 | 49 4e 43 41 4c 4c 00 40 | LONG _W|INCALL.@|
|000040c0| 00 0d 00 00 00 42 4c 41 | 43 4b 4b 45 59 50 52 4f |.....BLA|CKKEYPRO|
|000040d0| 43 00 51 00 02 00 00 00 | 02 00 44 00 02 00 00 00 |C.Q.....|..D.....|
|000040e0| 03 00 48 00 04 00 00 00 | f8 9e 09 2f 4d 00 02 00 |..H.....|.../M...|
|000040f0| 00 00 11 00 45 00 02 00 | 00 00 00 00 46 00 02 00 |....E...|....F...|
|00004100| 00 00 02 00 47 00 02 00 | 00 00 ff ff 49 00 02 00 |....G...|....I...|
|00004110| 00 00 00 00 41 00 cc 02 | 00 00 46 75 6e 63 74 69 |....A...|..Functi|
|00004120| 6f 6e 20 42 6c 61 63 6b | 4b 65 79 50 72 6f 63 20 |on Black|KeyProc |
|00004130| 28 68 77 6e 64 20 41 73 | 20 57 4f 52 44 2c 20 6d |(hwnd As| WORD, m|
|00004140| 65 73 73 61 67 65 20 41 | 73 20 53 48 4f 52 54 2c |essage A|s SHORT,|
|00004150| 20 77 50 61 72 61 6d 20 | 41 73 20 57 4f 52 44 2c | wParam |As WORD,|
|00004160| 20 6c 50 61 72 61 6d 20 | 41 73 20 4c 4f 4e 47 20 | lParam |As LONG |
|00004170| 29 20 41 73 20 4c 4f 4e | 47 20 5f 57 49 4e 43 41 |) As LON|G _WINCA|
|00004180| 4c 4c 0d 0a 09 4c 4f 43 | 41 4c 09 70 73 09 09 49 |LL...LOC|AL.ps..I|
|00004190| 53 20 5f 57 49 4e 50 41 | 49 4e 54 53 54 52 55 43 |S _WINPA|INTSTRUC|
|000041a0| 54 0d 0a 09 4c 4f 43 41 | 4c 20 09 68 64 63 09 09 |T...LOCA|L .hdc..|
|000041b0| 41 73 20 57 4f 52 44 0d | 0a 09 4c 4f 43 41 4c 09 |As WORD.|..LOCAL.|
|000041c0| 69 09 09 41 73 20 4c 4f | 4e 47 0d 0a 0d 0a 09 44 |i..As LO|NG.....D|
|000041d0| 4f 20 43 61 73 65 0d 0a | 0d 0a 09 09 43 61 73 65 |O Case..|....Case|
|000041e0| 20 6d 65 73 73 61 67 65 | 20 3d 20 57 4d 5f 4c 42 | message| = WM_LB|
|000041f0| 55 54 54 4f 4e 44 4f 57 | 4e 0d 0a 09 09 09 68 64 |UTTONDOW|N.....hd|
|00004200| 63 20 3a 3d 20 47 65 74 | 44 43 28 68 77 6e 64 29 |c := Get|DC(hwnd)|
|00004210| 09 20 20 20 20 20 0d 0a | 09 09 09 70 2e 78 20 3a |. ..|...p.x :|
|00004220| 3d 20 53 48 4f 52 54 28 | 20 5f 43 41 53 54 2c 20 |= SHORT(| _CAST, |
|00004230| 4c 6f 57 6f 72 64 28 20 | 6c 50 61 72 61 6d 20 29 |LoWord( |lParam )|
|00004240| 20 29 0d 0a 09 09 09 70 | 2e 79 20 3a 3d 20 53 48 | ).....p|.y := SH|
|00004250| 4f 52 54 28 20 5f 43 41 | 53 54 2c 20 20 48 69 57 |ORT( _CA|ST, HiW|
|00004260| 6f 72 64 28 20 6c 50 61 | 72 61 6d 20 29 20 29 0d |ord( lPa|ram ) ).|
|00004270| 0a 09 09 09 50 69 61 6e | 6f 50 6c 61 79 4e 6f 74 |....Pian|oPlayNot|
|00004280| 65 28 20 68 64 63 2c 20 | 47 65 74 57 69 6e 49 64 |e( hdc, |GetWinId|
|00004290| 78 28 20 68 77 6e 64 20 | 29 20 29 0d 0a 09 20 09 |x( hwnd |) )... .|
|000042a0| 09 52 65 6c 65 61 73 65 | 44 43 28 20 68 77 6e 64 |.Release|DC( hwnd|
|000042b0| 2c 20 68 64 63 20 29 0d | 0a 09 09 09 52 45 54 55 |, hdc ).|....RETU|
|000042c0| 52 4e 20 30 4c 0d 0a 0d | 0a 09 09 43 61 73 65 20 |RN 0L...|...Case |
|000042d0| 6d 65 73 73 61 67 65 20 | 3d 20 57 4d 5f 53 49 5a |message |= WM_SIZ|
|000042e0| 45 0d 0a 09 09 09 47 65 | 74 43 6c 69 65 6e 74 52 |E.....Ge|tClientR|
|000042f0| 65 63 74 28 68 77 6e 64 | 2c 20 40 72 63 29 0d 0a |ect(hwnd|, @rc)..|
|00004300| 09 09 09 52 45 54 55 52 | 4e 20 30 4c 0d 0a 09 09 |...RETUR|N 0L....|
|00004310| 09 0d 0a 09 09 43 61 73 | 65 20 6d 65 73 73 61 67 |.....Cas|e messag|
|00004320| 65 20 3d 20 57 4d 5f 50 | 41 49 4e 54 09 0d 0a 09 |e = WM_P|AINT....|
|00004330| 20 09 09 68 64 63 20 3a | 3d 20 42 65 67 69 6e 50 | ..hdc :|= BeginP|
|00004340| 61 69 6e 74 28 68 77 6e | 64 2c 20 40 70 73 29 0d |aint(hwn|d, @ps).|
|00004350| 0a 09 09 09 57 68 69 74 | 65 4b 65 79 50 61 69 6e |....Whit|eKeyPain|
|00004360| 74 65 72 28 20 68 64 63 | 2c 20 32 20 29 0d 0a 09 |ter( hdc|, 2 )...|
|00004370| 09 09 45 6e 64 50 61 69 | 6e 74 28 68 77 6e 64 2c |..EndPai|nt(hwnd,|
|00004380| 20 40 70 73 29 0d 0a 09 | 20 09 09 72 65 74 75 72 | @ps)...| ..retur|
|00004390| 6e 20 30 4c 0d 0a 09 0d | 0a 09 45 6e 64 43 61 73 |n 0L....|..EndCas|
|000043a0| 65 09 09 20 0d 0a 09 09 | 0d 0a 09 52 45 54 55 52 |e.. ....|...RETUR|
|000043b0| 4e 20 44 65 66 57 69 6e | 64 6f 77 50 72 6f 63 28 |N DefWin|dowProc(|
|000043c0| 20 68 77 6e 64 2c 20 6d | 65 73 73 61 67 65 2c 20 | hwnd, m|essage, |
|000043d0| 77 50 61 72 61 6d 2c 20 | 6c 50 61 72 61 6d 29 0d |wParam, |lParam).|
|000043e0| 0a 0d 0a 0d 0a 00 4e 00 | 69 00 00 00 46 75 6e 63 |......N.|i...Func|
|000043f0| 74 69 6f 6e 20 42 6c 61 | 63 6b 4b 65 79 50 72 6f |tion Bla|ckKeyPro|
|00004400| 63 20 28 68 77 6e 64 20 | 41 73 20 57 4f 52 44 2c |c (hwnd |As WORD,|
|00004410| 20 6d 65 73 73 61 67 65 | 20 41 73 20 53 48 4f 52 | message| As SHOR|
|00004420| 54 2c 20 77 50 61 72 61 | 6d 20 41 73 20 57 4f 52 |T, wPara|m As WOR|
|00004430| 44 2c 20 6c 50 61 72 61 | 6d 20 41 73 20 4c 4f 4e |D, lPara|m As LON|
|00004440| 47 20 29 20 41 73 20 4c | 4f 4e 47 20 5f 57 49 4e |G ) As L|ONG _WIN|
|00004450| 43 41 4c 4c 00 40 00 0a | 00 00 00 47 45 54 57 49 |CALL.@..|...GETWI|
|00004460| 4e 49 44 58 00 51 00 02 | 00 00 00 02 00 44 00 02 |NIDX.Q..|.....D..|
|00004470| 00 00 00 03 00 48 00 04 | 00 00 00 f8 9e 09 2f 4d |.....H..|....../M|
|00004480| 00 02 00 00 00 11 00 45 | 00 02 00 00 00 00 00 46 |.......E|.......F|
|00004490| 00 02 00 00 00 02 00 47 | 00 02 00 00 00 ff ff 49 |.......G|.......I|
|000044a0| 00 02 00 00 00 00 00 41 | 00 27 02 00 00 46 55 4e |.......A|.'...FUN|
|000044b0| 43 54 49 4f 4e 20 47 65 | 74 57 69 6e 49 64 78 28 |CTION Ge|tWinIdx(|
|000044c0| 20 68 77 6e 64 20 41 73 | 20 57 6f 72 64 20 29 20 | hwnd As| Word ) |
|000044d0| 41 73 20 53 68 6f 72 74 | 0d 0a 09 4c 4f 43 41 4c |As Short|...LOCAL|
|000044e0| 20 73 52 65 74 56 61 6c | 20 3a 3d 20 30 20 41 73 | sRetVal| := 0 As|
|000044f0| 20 53 68 6f 72 74 20 2c | 20 3b 0d 0a 09 09 09 09 | Short ,| ;......|
|00004500| 69 20 3a 3d 20 30 20 41 | 73 20 53 68 6f 72 74 0d |i := 0 A|s Short.|
|00004510| 0a 09 0d 0a 09 44 6f 20 | 43 61 73 65 0d 0a 0d 0a |.....Do |Case....|
|00004520| 09 09 43 61 73 65 20 73 | 49 6e 73 74 72 75 6d 65 |..Case s|Instrume|
|00004530| 6e 74 20 3d 3d 20 49 4e | 53 54 52 55 4d 45 4e 54 |nt == IN|STRUMENT|
|00004540| 5f 47 55 49 54 41 52 20 | 0d 0a 20 20 20 20 20 20 |_GUITAR |.. |
|00004550| 20 20 20 20 20 20 46 6f | 72 20 69 20 3a 3d 20 31 | Fo|r i := 1|
|00004560| 20 74 6f 20 61 4c 65 6e | 28 20 68 77 69 6e 64 53 | to aLen|( hwindS|
|00004570| 74 72 69 6e 67 20 29 0d | 0a 20 20 20 20 20 20 20 |tring ).|. |
|00004580| 20 20 20 20 20 20 20 20 | 20 49 66 20 68 77 69 6e | | If hwin|
|00004590| 64 53 74 72 69 6e 67 5b | 20 69 20 5d 20 3d 3d 20 |dString[| i ] == |
|000045a0| 68 77 6e 64 0d 0a 09 09 | 09 09 09 73 52 65 74 56 |hwnd....|...sRetV|
|000045b0| 61 6c 20 3a 3d 20 69 0d | 0a 20 20 20 20 20 20 20 |al := i.|. |
|000045c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 20 3a | | i :|
|000045d0| 3d 20 61 4c 65 6e 28 20 | 68 77 69 6e 64 53 74 72 |= aLen( |hwindStr|
|000045e0| 69 6e 67 20 29 20 2b 20 | 31 0d 0a 09 09 09 09 45 |ing ) + |1......E|
|000045f0| 6e 64 0d 0a 09 09 09 4e | 65 78 74 0d 0a 09 09 09 |nd.....N|ext.....|
|00004600| 0d 0a 09 09 43 61 73 65 | 20 73 49 6e 73 74 72 75 |....Case| sInstru|
|00004610| 6d 65 6e 74 20 3d 3d 20 | 49 4e 53 54 52 55 4d 45 |ment == |INSTRUME|
|00004620| 4e 54 5f 50 49 41 4e 4f | 0d 0a 09 09 09 46 6f 72 |NT_PIANO|.....For|
|00004630| 20 69 20 3a 3d 20 31 20 | 74 6f 20 61 4c 65 6e 28 | i := 1 |to aLen(|
|00004640| 20 68 77 6e 64 50 69 61 | 6e 6f 20 29 0d 0a 09 09 | hwndPia|no )....|
|00004650| 09 09 49 66 20 68 77 6e | 64 50 69 61 6e 6f 5b 20 |..If hwn|dPiano[ |
|00004660| 69 20 5d 20 3d 3d 20 68 | 77 6e 64 0d 0a 09 09 09 |i ] == h|wnd.....|
|00004670| 09 09 73 52 65 74 56 61 | 6c 20 3a 3d 20 69 0d 0a |..sRetVa|l := i..|
|00004680| 09 09 09 09 09 69 20 3a | 3d 20 61 4c 65 6e 28 20 |.....i :|= aLen( |
|00004690| 68 77 6e 64 50 69 61 6e | 6f 20 29 20 2b 20 31 0d |hwndPian|o ) + 1.|
|000046a0| 0a 09 09 09 09 45 6e 64 | 0d 0a 09 09 09 4e 65 78 |.....End|.....Nex|
|000046b0| 74 0d 0a 09 45 6e 64 09 | 09 09 0d 0a 0d 0a 52 45 |t...End.|......RE|
|000046c0| 54 55 52 4e 20 73 52 65 | 74 56 61 6c 09 0d 0a 0d |TURN sRe|tVal....|
|000046d0| 0a 0d 0a 00 4e 00 2c 00 | 00 00 46 55 4e 43 54 49 |....N.,.|..FUNCTI|
|000046e0| 4f 4e 20 47 65 74 57 69 | 6e 49 64 78 28 20 68 77 |ON GetWi|nIdx( hw|
|000046f0| 6e 64 20 41 73 20 57 6f | 72 64 20 29 20 41 73 20 |nd As Wo|rd ) As |
|00004700| 53 68 6f 72 74 00 40 00 | 0e 00 00 00 46 52 45 54 |Short.@.|....FRET|
|00004710| 42 4f 41 52 44 50 52 4f | 43 00 51 00 02 00 00 00 |BOARDPRO|C.Q.....|
|00004720| 02 00 44 00 02 00 00 00 | 03 00 48 00 04 00 00 00 |..D.....|..H.....|
|00004730| f8 9e 09 2f 4d 00 02 00 | 00 00 11 00 45 00 02 00 |.../M...|....E...|
|00004740| 00 00 00 00 46 00 02 00 | 00 00 02 00 47 00 02 00 |....F...|....G...|
|00004750| 00 00 ff ff 49 00 02 00 | 00 00 00 00 41 00 ff 01 |....I...|....A...|
|00004760| 00 00 46 75 6e 63 74 69 | 6f 6e 09 46 72 65 74 62 |..Functi|on.Fretb|
|00004770| 6f 61 72 64 50 72 6f 63 | 20 28 68 77 6e 64 20 41 |oardProc| (hwnd A|
|00004780| 73 20 57 4f 52 44 2c 20 | 6d 65 73 73 61 67 65 20 |s WORD, |message |
|00004790| 41 73 20 57 4f 52 44 2c | 20 77 50 61 72 61 6d 20 |As WORD,| wParam |
|000047a0| 41 73 20 57 4f 52 44 2c | 20 6c 50 61 72 61 6d 20 |As WORD,| lParam |
|000047b0| 41 73 20 4c 4f 4e 47 29 | 20 41 73 20 4c 4f 4e 47 |As LONG)| As LONG|
|000047c0| 20 5f 57 49 4e 43 41 4c | 4c 0d 0a 09 4c 4f 43 41 | _WINCAL|L...LOCA|
|000047d0| 4c 09 70 73 09 09 49 53 | 20 5f 57 49 4e 50 41 49 |L.ps..IS| _WINPAI|
|000047e0| 4e 54 53 54 52 55 43 54 | 0d 0a 09 4c 4f 43 41 4c |NTSTRUCT|...LOCAL|
|000047f0| 20 09 68 64 63 09 09 41 | 73 20 57 4f 52 44 0d 0a | .hdc..A|s WORD..|
|00004800| 09 4c 4f 43 41 4c 09 69 | 20 3a 3d 20 30 20 09 41 |.LOCAL.i| := 0 .A|
|00004810| 73 20 53 68 6f 72 74 20 | 2c 20 3b 0d 0a 09 09 09 |s Short |, ;.....|
|00004820| 6a 20 3a 3d 20 30 09 41 | 73 20 53 68 6f 72 74 0d |j := 0.A|s Short.|
|00004830| 0a 09 0d 0a 0d 0a 09 44 | 6f 20 43 61 73 65 0d 0a |.......D|o Case..|
|00004840| 0d 0a 09 09 43 61 73 65 | 20 6d 65 73 73 61 67 65 |....Case| message|
|00004850| 20 3d 20 57 4d 5f 53 49 | 5a 45 0d 0a 09 09 09 47 | = WM_SI|ZE.....G|
|00004860| 65 74 43 6c 69 65 6e 74 | 52 65 63 74 28 68 77 6e |etClient|Rect(hwn|
|00004870| 64 2c 20 40 72 63 29 0d | 0a 09 09 09 52 45 54 55 |d, @rc).|....RETU|
|00004880| 52 4e 20 30 4c 0d 0a 09 | 09 09 0d 0a 09 09 43 61 |RN 0L...|......Ca|
|00004890| 73 65 20 6d 65 73 73 61 | 67 65 20 3d 20 57 4d 5f |se messa|ge = WM_|
|000048a0| 50 41 49 4e 54 0d 0a 09 | 20 09 09 68 64 63 20 3a |PAINT...| ..hdc :|
|000048b0| 3d 20 42 65 67 69 6e 50 | 61 69 6e 74 28 20 68 77 |= BeginP|aint( hw|
|000048c0| 6e 64 2c 20 40 70 73 20 | 29 0d 0a 09 09 09 46 72 |nd, @ps |).....Fr|
|000048d0| 65 74 62 6f 61 72 64 50 | 61 69 6e 74 65 72 28 20 |etboardP|ainter( |
|000048e0| 68 64 63 20 29 0d 0a 09 | 09 09 45 6e 64 50 61 69 |hdc )...|..EndPai|
|000048f0| 6e 74 28 20 68 77 6e 64 | 2c 20 40 70 73 20 29 0d |nt( hwnd|, @ps ).|
|00004900| 0a 09 20 09 09 72 65 74 | 75 72 6e 20 30 4c 0d 0a |.. ..ret|urn 0L..|
|00004910| 09 0d 0a 09 45 6e 64 43 | 61 73 65 09 09 20 0d 0a |....EndC|ase.. ..|
|00004920| 09 09 0d 0a 09 52 45 54 | 55 52 4e 20 44 65 66 57 |.....RET|URN DefW|
|00004930| 69 6e 64 6f 77 50 72 6f | 63 28 68 77 6e 64 2c 20 |indowPro|c(hwnd, |
|00004940| 6d 65 73 73 61 67 65 2c | 20 77 50 61 72 61 6d 2c |message,| wParam,|
|00004950| 20 6c 50 61 72 61 6d 29 | 0d 0a 0d 0a 0d 0a 0d 0a | lParam)|........|
|00004960| 00 4e 00 68 00 00 00 46 | 75 6e 63 74 69 6f 6e 09 |.N.h...F|unction.|
|00004970| 46 72 65 74 62 6f 61 72 | 64 50 72 6f 63 20 28 68 |Fretboar|dProc (h|
|00004980| 77 6e 64 20 41 73 20 57 | 4f 52 44 2c 20 6d 65 73 |wnd As W|ORD, mes|
|00004990| 73 61 67 65 20 41 73 20 | 57 4f 52 44 2c 20 77 50 |sage As |WORD, wP|
|000049a0| 61 72 61 6d 20 41 73 20 | 57 4f 52 44 2c 20 6c 50 |aram As |WORD, lP|
|000049b0| 61 72 61 6d 20 41 73 20 | 4c 4f 4e 47 29 20 41 73 |aram As |LONG) As|
|000049c0| 20 4c 4f 4e 47 20 5f 57 | 49 4e 43 41 4c 4c 00 40 | LONG _W|INCALL.@|
|000049d0| 00 08 00 00 00 50 41 49 | 4e 54 45 52 00 51 00 02 |.....PAI|NTER.Q..|
|000049e0| 00 00 00 02 00 44 00 02 | 00 00 00 03 00 48 00 04 |.....D..|.....H..|
|000049f0| 00 00 00 f8 9e 09 2f 4d | 00 02 00 00 00 11 00 45 |....../M|.......E|
|00004a00| 00 02 00 00 00 00 00 46 | 00 02 00 00 00 02 00 47 |.......F|.......G|
|00004a10| 00 02 00 00 00 ff ff 49 | 00 02 00 00 00 00 00 41 |.......I|.......A|
|00004a20| 00 b3 01 00 00 46 75 6e | 63 74 69 6f 6e 20 50 61 |.....Fun|ction Pa|
|00004a30| 69 6e 74 65 72 28 68 64 | 63 20 41 73 20 57 4f 52 |inter(hd|c As WOR|
|00004a40| 44 29 20 41 73 20 56 6f | 69 64 20 50 61 73 63 61 |D) As Vo|id Pasca|
|00004a50| 6c 0d 0a 09 6c 6f 63 61 | 6c 20 78 2c 79 20 09 09 |l...loca|l x,y ..|
|00004a60| 41 73 20 53 48 4f 52 54 | 49 4e 54 0d 0a 0d 0a 09 |As SHORT|INT.....|
|00004a70| 46 69 6c 6c 52 65 63 74 | 28 68 64 63 2c 20 40 72 |FillRect|(hdc, @r|
|00004a80| 63 2c 20 68 45 72 61 73 | 65 42 72 75 73 68 29 0d |c, hEras|eBrush).|
|00004a90| 0a 09 0d 0a 09 49 66 20 | 21 45 6d 70 74 79 28 20 |.....If |!Empty( |
|00004aa0| 63 4e 6f 74 65 20 29 0d | 0a 09 09 44 6f 20 63 61 |cNote ).|...Do ca|
|00004ab0| 73 65 0d 0a 09 09 09 43 | 61 73 65 20 73 49 6e 73 |se.....C|ase sIns|
|00004ac0| 74 72 75 6d 65 6e 74 20 | 3d 3d 20 49 4e 53 54 52 |trument |== INSTR|
|00004ad0| 55 4d 45 4e 54 5f 47 55 | 49 54 41 52 0d 0a 09 09 |UMENT_GU|ITAR....|
|00004ae0| 09 09 54 65 78 74 4f 75 | 74 28 20 68 64 63 2c 20 |..TextOu|t( hdc, |
|00004af0| 35 2c 20 35 2c 20 20 53 | 74 72 69 6e 67 32 50 73 |5, 5, S|tring2Ps|
|00004b00| 7a 28 20 22 4e 6f 74 65 | 20 70 72 65 73 73 65 64 |z( "Note| pressed|
|00004b10| 20 69 73 20 3a 20 22 20 | 20 2b 20 63 4e 6f 74 65 | is : " | + cNote|
|00004b20| 20 29 20 2c 20 32 30 20 | 29 0d 0a 09 09 09 09 0d | ) , 20 |).......|
|00004b30| 0a 09 09 09 43 61 73 65 | 20 73 49 6e 73 74 72 75 |....Case| sInstru|
|00004b40| 6d 65 6e 74 20 3d 3d 20 | 49 4e 53 54 52 55 4d 45 |ment == |INSTRUME|
|00004b50| 4e 54 5f 50 49 41 4e 4f | 0d 0a 09 09 09 09 54 65 |NT_PIANO|......Te|
|00004b60| 78 74 4f 75 74 28 20 68 | 64 63 2c 20 35 2c 20 31 |xtOut( h|dc, 5, 1|
|00004b70| 37 35 2c 20 20 53 74 72 | 69 6e 67 32 50 73 7a 28 |75, Str|ing2Psz(|
|00004b80| 20 22 4e 6f 74 65 20 70 | 72 65 73 73 65 64 20 69 | "Note p|ressed i|
|00004b90| 73 20 3a 20 22 20 20 2b | 20 63 4e 6f 74 65 20 29 |s : " +| cNote )|
|00004ba0| 20 2c 20 32 30 20 29 0d | 0a 09 09 09 09 0d 0a 09 | , 20 ).|........|
|00004bb0| 09 09 09 0d 0a 09 09 45 | 6e 64 0d 0a 09 45 6e 64 |.......E|nd...End|
|00004bc0| 09 0d 0a 09 0d 0a 09 72 | 65 74 75 72 6e 0d 0a 09 |.......r|eturn...|
|00004bd0| 20 0d 0a 0d 0a 0d 0a 00 | 4e 00 2d 00 00 00 46 75 | .......|N.-...Fu|
|00004be0| 6e 63 74 69 6f 6e 20 50 | 61 69 6e 74 65 72 28 68 |nction P|ainter(h|
|00004bf0| 64 63 20 41 73 20 57 4f | 52 44 29 20 41 73 20 56 |dc As WO|RD) As V|
|00004c00| 6f 69 64 20 50 61 73 63 | 61 6c 00 40 00 12 00 00 |oid Pasc|al.@....|
|00004c10| 00 4d 55 53 49 43 53 54 | 41 46 46 50 41 49 4e 54 |.MUSICST|AFFPAINT|
|00004c20| 45 52 00 51 00 02 00 00 | 00 02 00 44 00 02 00 00 |ER.Q....|...D....|
|00004c30| 00 03 00 48 00 04 00 00 | 00 f8 9e 09 2f 4d 00 02 |...H....|..../M..|
|00004c40| 00 00 00 11 00 45 00 02 | 00 00 00 00 00 46 00 02 |.....E..|.....F..|
|00004c50| 00 00 00 02 00 47 00 02 | 00 00 00 ff ff 49 00 02 |.....G..|.....I..|
|00004c60| 00 00 00 00 00 41 00 c7 | 02 00 00 46 75 6e 63 74 |.....A..|...Funct|
|00004c70| 69 6f 6e 20 4d 75 73 69 | 63 53 74 61 66 66 50 61 |ion Musi|cStaffPa|
|00004c80| 69 6e 74 65 72 28 68 64 | 63 20 41 73 20 57 4f 52 |inter(hd|c As WOR|
|00004c90| 44 29 20 41 73 20 56 6f | 69 64 20 50 61 73 63 61 |D) As Vo|id Pasca|
|00004ca0| 6c 0d 0a 09 4c 4f 43 41 | 4c 20 68 64 63 43 6c 65 |l...LOCA|L hdcCle|
|00004cb0| 66 09 2c 20 3b 0d 0a 09 | 09 68 43 6c 65 66 42 6d |f., ;...|.hClefBm|
|00004cc0| 70 09 0d 0a 09 09 0d 0a | 09 46 69 6c 6c 52 65 63 |p.......|.FillRec|
|00004cd0| 74 28 68 64 63 2c 20 40 | 72 63 2c 20 68 45 72 61 |t(hdc, @|rc, hEra|
|00004ce0| 73 65 42 72 75 73 68 29 | 0d 0a 09 0d 0a 20 20 20 |seBrush)|..... |
|00004cf0| 20 44 72 61 77 53 74 61 | 66 66 4c 69 6e 65 28 20 | DrawSta|ffLine( |
|00004d00| 68 64 63 2c 20 31 35 2c | 20 32 38 35 20 29 0d 0a |hdc, 15,| 285 )..|
|00004d10| 09 0d 0a 09 68 64 63 43 | 6c 65 66 20 3a 3d 20 43 |....hdcC|lef := C|
|00004d20| 72 65 61 74 65 43 6f 6d | 70 61 74 69 62 6c 65 44 |reateCom|patibleD|
|00004d30| 63 28 20 68 64 63 20 29 | 0d 0a 20 20 20 20 68 43 |c( hdc )|.. hC|
|00004d40| 6c 65 66 42 6d 70 20 3a | 3d 20 53 65 6c 65 63 74 |lefBmp :|= Select|
|00004d50| 4f 62 6a 65 63 74 28 20 | 68 64 63 43 6c 65 66 2c |Object( |hdcClef,|
|00004d60| 20 68 42 61 73 73 43 6c | 65 66 20 29 0d 0a 09 53 | hBassCl|ef )...S|
|00004d70| 65 74 4d 61 70 4d 6f 64 | 65 28 20 68 64 63 43 6c |etMapMod|e( hdcCl|
|00004d80| 65 66 2c 20 47 65 74 4d | 61 70 4d 6f 64 65 28 20 |ef, GetM|apMode( |
|00004d90| 68 64 63 20 29 20 29 09 | 0d 0a 09 42 69 74 42 6c |hdc ) ).|...BitBl|
|00004da0| 74 28 20 68 64 63 2c 20 | 31 34 2c 20 36 33 2c 20 |t( hdc, |14, 63, |
|00004db0| 32 39 2c 20 35 33 2c 20 | 68 64 63 43 6c 65 66 2c |29, 53, |hdcClef,|
|00004dc0| 20 30 2c 20 30 2c 20 53 | 52 43 43 4f 50 59 20 29 | 0, 0, S|RCCOPY )|
|00004dd0| 0d 0a 20 20 20 20 53 65 | 6c 65 63 74 4f 62 6a 65 |.. Se|lectObje|
|00004de0| 63 74 28 20 68 64 63 2c | 20 68 43 6c 65 66 42 6d |ct( hdc,| hClefBm|
|00004df0| 70 20 29 0d 0a 20 20 20 | 20 44 65 6c 65 74 65 44 |p ).. | DeleteD|
|00004e00| 63 28 20 68 64 63 43 6c | 65 66 20 29 0d 0a 0d 0a |c( hdcCl|ef )....|
|00004e10| 09 68 64 63 43 6c 65 66 | 20 3a 3d 20 43 72 65 61 |.hdcClef| := Crea|
|00004e20| 74 65 43 6f 6d 70 61 74 | 69 62 6c 65 44 63 28 20 |teCompat|ibleDc( |
|00004e30| 68 64 63 20 29 0d 0a 20 | 20 20 20 68 43 6c 65 66 |hdc ).. | hClef|
|00004e40| 42 6d 70 20 3a 3d 20 53 | 65 6c 65 63 74 4f 62 6a |Bmp := S|electObj|
|00004e50| 65 63 74 28 20 68 64 63 | 43 6c 65 66 2c 20 68 54 |ect( hdc|Clef, hT|
|00004e60| 72 65 62 6c 65 43 6c 65 | 66 20 29 0d 0a 09 53 65 |rebleCle|f )...Se|
|00004e70| 74 4d 61 70 4d 6f 64 65 | 28 20 68 64 63 43 6c 65 |tMapMode|( hdcCle|
|00004e80| 66 2c 20 47 65 74 4d 61 | 70 4d 6f 64 65 28 20 68 |f, GetMa|pMode( h|
|00004e90| 64 63 20 29 20 29 09 0d | 0a 09 42 69 74 42 6c 74 |dc ) )..|..BitBlt|
|00004ea0| 28 20 68 64 63 2c 20 31 | 35 2c 20 31 30 2c 20 32 |( hdc, 1|5, 10, 2|
|00004eb0| 39 2c 20 35 33 2c 20 68 | 64 63 43 6c 65 66 2c 20 |9, 53, h|dcClef, |
|00004ec0| 30 2c 20 30 2c 20 53 52 | 43 43 4f 50 59 20 29 0d |0, 0, SR|CCOPY ).|
|00004ed0| 0a 20 20 20 20 53 65 6c | 65 63 74 4f 62 6a 65 63 |. Sel|ectObjec|
|00004ee0| 74 28 20 68 64 63 2c 20 | 68 43 6c 65 66 42 6d 70 |t( hdc, |hClefBmp|
|00004ef0| 20 29 0d 0a 20 20 20 20 | 44 65 6c 65 74 65 44 63 | ).. |DeleteDc|
|00004f00| 28 20 68 64 63 43 6c 65 | 66 20 29 0d 0a 0d 0a 09 |( hdcCle|f ).....|
|00004f10| 53 65 74 42 75 74 74 6f | 6e 73 28 29 0d 0a 0d 0a |SetButto|ns()....|
|00004f20| 09 72 65 74 75 72 6e 0d | 0a 0d 0a 0d 0a 09 20 0d |.return.|...... .|
|00004f30| 0a 00 4e 00 37 00 00 00 | 46 75 6e 63 74 69 6f 6e |..N.7...|Function|
|00004f40| 20 4d 75 73 69 63 53 74 | 61 66 66 50 61 69 6e 74 | MusicSt|affPaint|
|00004f50| 65 72 28 68 64 63 20 41 | 73 20 57 4f 52 44 29 20 |er(hdc A|s WORD) |
|00004f60| 41 73 20 56 6f 69 64 20 | 50 61 73 63 61 6c 00 40 |As Void |Pascal.@|
|00004f70| 00 14 00 00 00 47 55 49 | 54 41 52 53 54 52 49 4e |.....GUI|TARSTRIN|
|00004f80| 47 50 41 49 4e 54 45 52 | 00 51 00 02 00 00 00 02 |GPAINTER|.Q......|
|00004f90| 00 44 00 02 00 00 00 03 | 00 48 00 04 00 00 00 f8 |.D......|.H......|
|00004fa0| 9e 09 2f 4d 00 02 00 00 | 00 11 00 45 00 02 00 00 |../M....|...E....|
|00004fb0| 00 00 00 46 00 02 00 00 | 00 02 00 47 00 02 00 00 |...F....|...G....|
|00004fc0| 00 ff ff 49 00 02 00 00 | 00 00 00 41 00 74 00 00 |...I....|...A.t..|
|00004fd0| 00 46 75 6e 63 74 69 6f | 6e 20 47 75 69 74 61 72 |.Functio|n Guitar|
|00004fe0| 53 74 72 69 6e 67 50 61 | 69 6e 74 65 72 28 68 64 |StringPa|inter(hd|
|00004ff0| 63 20 41 73 20 57 4f 52 | 44 29 20 41 73 20 56 6f |c As WOR|D) As Vo|
|00005000| 69 64 20 50 61 73 63 61 | 6c 0d 0a 0d 0a 09 46 69 |id Pasca|l.....Fi|
|00005010| 6c 6c 52 65 63 74 28 68 | 64 63 2c 20 40 72 63 2c |llRect(h|dc, @rc,|
|00005020| 20 68 53 74 72 69 6e 67 | 42 72 75 73 68 29 0d 0a | hString|Brush)..|
|00005030| 09 0d 0a 09 72 65 74 75 | 72 6e 0d 0a 0d 0a 0d 0a |....retu|rn......|
|00005040| 09 20 0d 0a 00 4e 00 39 | 00 00 00 46 75 6e 63 74 |. ...N.9|...Funct|
|00005050| 69 6f 6e 20 47 75 69 74 | 61 72 53 74 72 69 6e 67 |ion Guit|arString|
|00005060| 50 61 69 6e 74 65 72 28 | 68 64 63 20 41 73 20 57 |Painter(|hdc As W|
|00005070| 4f 52 44 29 20 41 73 20 | 56 6f 69 64 20 50 61 73 |ORD) As |Void Pas|
|00005080| 63 61 6c 00 40 00 10 00 | 00 00 57 48 49 54 45 4b |cal.@...|..WHITEK|
|00005090| 45 59 50 41 49 4e 54 45 | 52 00 51 00 02 00 00 00 |EYPAINTE|R.Q.....|
|000050a0| 02 00 44 00 02 00 00 00 | 03 00 48 00 04 00 00 00 |..D.....|..H.....|
|000050b0| f8 9e 09 2f 4d 00 02 00 | 00 00 11 00 45 00 02 00 |.../M...|....E...|
|000050c0| 00 00 00 00 46 00 02 00 | 00 00 02 00 47 00 02 00 |....F...|....G...|
|000050d0| 00 00 ff ff 49 00 02 00 | 00 00 00 00 41 00 be 00 |....I...|....A...|
|000050e0| 00 00 46 75 6e 63 74 69 | 6f 6e 20 57 68 69 74 65 |..Functi|on White|
|000050f0| 4b 65 79 50 61 69 6e 74 | 65 72 28 68 64 63 20 41 |KeyPaint|er(hdc A|
|00005100| 73 20 57 4f 52 44 2c 20 | 6e 4d 6f 64 65 20 41 73 |s WORD, |nMode As|
|00005110| 20 53 68 6f 72 74 20 29 | 20 41 73 20 56 6f 69 64 | Short )| As Void|
|00005120| 20 50 61 73 63 61 6c 0d | 0a 0d 0a 09 49 66 20 6e | Pascal.|....If n|
|00005130| 4d 6f 64 65 20 3d 3d 20 | 31 0d 0a 09 09 46 69 6c |Mode == |1....Fil|
|00005140| 6c 52 65 63 74 28 68 64 | 63 2c 20 40 72 63 2c 20 |lRect(hd|c, @rc, |
|00005150| 68 57 68 69 74 65 4b 65 | 79 73 29 0d 0a 09 45 6c |hWhiteKe|ys)...El|
|00005160| 73 65 0d 0a 09 09 46 69 | 6c 6c 52 65 63 74 28 68 |se....Fi|llRect(h|
|00005170| 64 63 2c 20 40 72 63 2c | 20 68 42 6c 61 63 6b 4b |dc, @rc,| hBlackK|
|00005180| 65 79 73 29 0d 0a 09 45 | 6e 64 09 0d 0a 09 0d 0a |eys)...E|nd......|
|00005190| 09 72 65 74 75 72 6e 0d | 0a 09 20 0d 0a 0d 0a 00 |.return.|.. .....|
|000051a0| 4e 00 46 00 00 00 46 75 | 6e 63 74 69 6f 6e 20 57 |N.F...Fu|nction W|
|000051b0| 68 69 74 65 4b 65 79 50 | 61 69 6e 74 65 72 28 68 |hiteKeyP|ainter(h|
|000051c0| 64 63 20 41 73 20 57 4f | 52 44 2c 20 6e 4d 6f 64 |dc As WO|RD, nMod|
|000051d0| 65 20 41 73 20 53 68 6f | 72 74 20 29 20 41 73 20 |e As Sho|rt ) As |
|000051e0| 56 6f 69 64 20 50 61 73 | 63 61 6c 00 40 00 11 00 |Void Pas|cal.@...|
|000051f0| 00 00 46 52 45 54 42 4f | 41 52 44 50 41 49 4e 54 |..FRETBO|ARDPAINT|
|00005200| 45 52 00 51 00 02 00 00 | 00 02 00 44 00 02 00 00 |ER.Q....|...D....|
|00005210| 00 03 00 48 00 04 00 00 | 00 f8 9e 09 2f 4d 00 02 |...H....|..../M..|
|00005220| 00 00 00 11 00 45 00 02 | 00 00 00 00 00 46 00 02 |.....E..|.....F..|
|00005230| 00 00 00 02 00 47 00 02 | 00 00 00 ff ff 49 00 02 |.....G..|.....I..|
|00005240| 00 00 00 00 00 41 00 28 | 01 00 00 46 75 6e 63 74 |.....A.(|...Funct|
|00005250| 69 6f 6e 20 46 72 65 74 | 62 6f 61 72 64 50 61 69 |ion Fret|boardPai|
|00005260| 6e 74 65 72 28 68 64 63 | 20 41 73 20 57 4f 52 44 |nter(hdc| As WORD|
|00005270| 29 20 41 73 20 56 6f 69 | 64 20 50 61 73 63 61 6c |) As Voi|d Pascal|
|00005280| 0d 0a 09 4c 4f 43 41 4c | 20 69 20 3a 3d 20 30 2c |...LOCAL| i := 0,|
|00005290| 20 6a 20 3a 3d 20 30 20 | 41 73 53 68 6f 72 74 0d | j := 0 |AsShort.|
|000052a0| 0a 0d 0a 09 46 69 6c 6c | 52 65 63 74 28 68 64 63 |....Fill|Rect(hdc|
|000052b0| 2c 20 40 72 63 2c 20 68 | 46 72 65 74 62 6f 61 72 |, @rc, h|Fretboar|
|000052c0| 64 42 72 75 73 68 29 0d | 0a 0d 0a 09 46 6f 72 20 |dBrush).|....For |
|000052d0| 69 20 3a 3d 20 31 20 74 | 6f 20 61 4c 65 6e 28 20 |i := 1 t|o aLen( |
|000052e0| 61 46 72 65 74 73 20 29 | 0d 0a 09 09 46 6f 72 20 |aFrets )|....For |
|000052f0| 6a 20 3a 3d 20 33 20 44 | 6f 77 6e 74 6f 20 31 0d |j := 3 D|ownto 1.|
|00005300| 0a 09 09 09 4d 6f 76 65 | 54 6f 28 20 68 64 63 2c |....Move|To( hdc,|
|00005310| 20 61 46 72 65 74 73 5b | 20 69 20 5d 20 2d 20 6a | aFrets[| i ] - j|
|00005320| 2c 20 30 20 29 0d 0a 09 | 09 09 4c 69 6e 65 54 6f |, 0 )...|..LineTo|
|00005330| 28 20 68 64 63 2c 20 61 | 46 72 65 74 73 5b 20 69 |( hdc, a|Frets[ i|
|00005340| 20 5d 20 2d 20 6a 2c 20 | 31 36 30 20 29 0d 0a 09 | ] - j, |160 )...|
|00005350| 09 4e 65 78 74 0d 0a 0d | 0a 09 4e 65 78 74 0d 0a |.Next...|..Next..|
|00005360| 09 0d 0a 09 72 65 74 75 | 72 6e 0d 0a 09 20 0d 0a |....retu|rn... ..|
|00005370| 0d 0a 00 4e 00 36 00 00 | 00 46 75 6e 63 74 69 6f |...N.6..|.Functio|
|00005380| 6e 20 46 72 65 74 62 6f | 61 72 64 50 61 69 6e 74 |n Fretbo|ardPaint|
|00005390| 65 72 28 68 64 63 20 41 | 73 20 57 4f 52 44 29 20 |er(hdc A|s WORD) |
|000053a0| 41 73 20 56 6f 69 64 20 | 50 61 73 63 61 6c 00 40 |As Void |Pascal.@|
|000053b0| 00 0f 00 00 00 47 55 49 | 54 41 52 50 4c 41 59 4e |.....GUI|TARPLAYN|
|000053c0| 4f 54 45 00 51 00 02 00 | 00 00 02 00 44 00 02 00 |OTE.Q...|....D...|
|000053d0| 00 00 03 00 48 00 04 00 | 00 00 13 a2 09 2f 4d 00 |....H...|...../M.|
|000053e0| 02 00 00 00 11 00 45 00 | 02 00 00 00 00 00 46 00 |......E.|......F.|
|000053f0| 02 00 00 00 02 00 47 00 | 02 00 00 00 ff ff 49 00 |......G.|......I.|
|00005400| 02 00 00 00 00 00 41 00 | fa 05 00 00 46 75 6e 63 |......A.|....Func|
|00005410| 74 69 6f 6e 20 47 75 69 | 74 61 72 50 6c 61 79 4e |tion Gui|tarPlayN|
|00005420| 6f 74 65 28 20 68 64 63 | 20 41 73 20 57 4f 52 44 |ote( hdc| As WORD|
|00005430| 2c 20 6e 68 77 6e 64 20 | 41 73 20 53 68 6f 72 74 |, nhwnd |As Short|
|00005440| 20 29 20 41 73 20 56 6f | 69 64 20 50 61 73 63 61 | ) As Vo|id Pasca|
|00005450| 6c 0d 0a 09 6c 6f 63 61 | 6c 20 78 2c 79 20 09 09 |l...loca|l x,y ..|
|00005460| 41 73 20 53 48 4f 52 54 | 49 4e 54 0d 0a 09 0d 0a |As SHORT|INT.....|
|00005470| 09 4c 4f 43 41 4c 09 63 | 53 6e 64 46 69 6c 65 20 |.LOCAL.c|SndFile |
|00005480| 20 20 09 09 61 73 20 53 | 74 72 69 6e 67 20 2c 20 | ..as S|tring , |
|00005490| 3b 0d 0a 09 09 09 69 20 | 20 20 20 20 20 3a 3d 20 |;.....i | := |
|000054a0| 30 20 09 41 73 20 53 68 | 6f 72 74 20 20 2c 20 3b |0 .As Sh|ort , ;|
|000054b0| 0d 0a 20 09 09 20 20 09 | 6e 53 6f 75 6e 64 20 3a |.. .. .|nSound :|
|000054c0| 3d 20 30 20 09 41 73 20 | 53 68 6f 72 74 20 20 2c |= 0 .As |Short ,|
|000054d0| 20 3b 0d 0a 09 09 20 20 | 09 6e 4c 65 6e 20 20 20 | ;.... |.nLen |
|000054e0| 3a 3d 20 61 4c 65 6e 28 | 20 61 46 72 65 74 73 20 |:= aLen(| aFrets |
|000054f0| 29 20 41 73 20 53 68 6f | 72 74 0d 0a 0d 0a 09 46 |) As Sho|rt.....F|
|00005500| 6f 72 20 69 20 3a 3d 20 | 31 20 74 6f 20 6e 4c 65 |or i := |1 to nLe|
|00005510| 6e 0d 0a 09 09 49 66 20 | 70 2e 78 20 3c 3d 20 61 |n....If |p.x <= a|
|00005520| 46 72 65 74 73 5b 20 69 | 20 5d 0d 0a 09 09 09 6e |Frets[ i| ].....n|
|00005530| 53 6f 75 6e 64 20 3a 3d | 20 69 0d 0a 09 09 09 69 |Sound :=| i.....i|
|00005540| 20 20 20 20 20 20 3a 3d | 20 6e 4c 65 6e 20 2b 20 | :=| nLen + |
|00005550| 31 0d 0a 09 09 45 6e 64 | 20 20 0d 0a 09 4e 65 78 |1....End| ...Nex|
|00005560| 74 09 0d 0a 09 0d 0a 20 | 20 20 20 49 66 20 21 62 |t...... | If !b|
|00005570| 49 73 54 65 73 74 69 6e | 67 20 2e 6f 72 2e 20 3b |IsTestin|g .or. ;|
|00005580| 0d 0a 20 20 20 20 20 20 | 20 62 49 73 54 65 73 74 |.. | bIsTest|
|00005590| 69 6e 67 20 2e 61 6e 64 | 2e 20 41 6c 6c 54 72 69 |ing .and|. AllTri|
|000055a0| 6d 28 20 61 4d 75 73 69 | 63 4e 6f 74 65 73 5b 20 |m( aMusi|cNotes[ |
|000055b0| 31 2c 20 6e 68 77 6e 64 | 2c 20 6e 73 6f 75 6e 64 |1, nhwnd|, nsound|
|000055c0| 20 5d 20 29 20 3d 3d 20 | 41 6c 6c 54 72 69 6d 28 | ] ) == |AllTrim(|
|000055d0| 20 63 4e 6f 74 65 32 48 | 69 74 20 29 0d 0a 20 20 | cNote2H|it ).. |
|000055e0| 20 20 20 20 20 49 66 20 | 6e 53 6f 75 6e 64 20 3e | If |nSound >|
|000055f0| 20 30 20 2e 61 6e 64 2e | 20 6e 53 6f 75 6e 64 20 | 0 .and.| nSound |
|00005600| 3c 3d 20 6e 4c 65 6e 0d | 0a 20 20 20 20 20 20 20 |<= nLen.|. |
|00005610| 20 20 20 49 66 20 62 50 | 6c 61 79 4e 6f 74 65 0d | If bP|layNote.|
|00005620| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 49 66 |. | If|
|00005630| 20 45 6d 70 74 79 28 20 | 63 53 6f 75 6e 64 50 61 | Empty( |cSoundPa|
|00005640| 74 68 20 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |th ).. | |
|00005650| 20 20 20 20 20 20 54 6f | 6e 65 28 20 61 4d 75 73 | To|ne( aMus|
|00005660| 69 63 4e 6f 74 65 73 5b | 20 33 2c 20 6e 68 77 6e |icNotes[| 3, nhwn|
|00005670| 64 2c 20 6e 53 6f 75 6e | 64 20 5d 2c 20 44 55 52 |d, nSoun|d ], DUR|
|00005680| 41 54 49 4f 4e 20 29 0d | 0a 20 20 20 20 20 20 20 |ATION ).|. |
|00005690| 20 20 20 20 20 20 45 6c | 73 65 0d 0a 20 20 20 20 | El|se.. |
|000056a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 53 6e 64 | | cSnd|
|000056b0| 46 69 6c 65 20 3a 3d 20 | 63 53 6f 75 6e 64 50 61 |File := |cSoundPa|
|000056c0| 74 68 20 2b 20 61 4d 75 | 73 69 63 4e 6f 74 65 73 |th + aMu|sicNotes|
|000056d0| 5b 20 32 2c 20 6e 68 77 | 6e 64 2c 20 6e 53 6f 75 |[ 2, nhw|nd, nSou|
|000056e0| 6e 64 20 5d 20 2b 20 22 | 2e 57 61 76 22 0d 0a 20 |nd ] + "|.Wav".. |
|000056f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 49 | | I|
|00005700| 66 20 46 69 6c 65 28 20 | 63 53 6e 64 46 69 6c 65 |f File( |cSndFile|
|00005710| 20 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | ).. | |
|00005720| 20 20 20 20 20 20 20 20 | 53 6e 64 50 6c 61 79 53 | |SndPlayS|
|00005730| 6f 75 6e 64 28 20 53 74 | 72 69 6e 67 32 50 73 7a |ound( St|ring2Psz|
|00005740| 28 20 63 53 6e 64 46 69 | 6c 65 20 29 2c 20 53 4e |( cSndFi|le ), SN|
|00005750| 44 5f 41 53 59 4e 43 20 | 29 0d 0a 20 20 20 20 20 |D_ASYNC |).. |
|00005760| 20 20 20 20 20 20 20 20 | 20 20 20 45 6c 73 65 0d | | Else.|
|00005770| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005780| 20 20 20 20 20 54 6f 6e | 65 28 20 61 4d 75 73 69 | Ton|e( aMusi|
|00005790| 63 4e 6f 74 65 73 5b 20 | 33 2c 20 6e 68 77 6e 64 |cNotes[ |3, nhwnd|
|000057a0| 2c 20 6e 53 6f 75 6e 64 | 20 5d 2c 20 44 55 52 41 |, nSound| ], DURA|
|000057b0| 54 49 4f 4e 20 29 0d 0a | 20 20 20 20 20 20 20 20 |TION )..| |
|000057c0| 20 20 20 20 20 20 20 20 | 45 6e 64 0d 0a 20 20 20 | |End.. |
|000057d0| 20 20 20 20 20 20 20 20 | 20 20 45 6e 64 0d 0a 20 | | End.. |
|000057e0| 20 20 20 20 20 20 20 20 | 20 45 6e 64 0d 0a 20 20 | | End.. |
|000057f0| 20 20 20 20 20 20 20 20 | 63 4e 6f 74 65 20 3a 3d | |cNote :=|
|00005800| 20 61 4d 75 73 69 63 4e | 6f 74 65 73 20 5b 20 31 | aMusicN|otes [ 1|
|00005810| 2c 20 6e 68 77 6e 64 2c | 20 6e 53 6f 75 6e 64 20 |, nhwnd,| nSound |
|00005820| 5d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 49 6e 76 |].. | Inv|
|00005830| 61 6c 69 64 61 74 65 52 | 65 63 74 28 20 68 77 6e |alidateR|ect( hwn|
|00005840| 64 50 61 72 65 6e 74 2c | 20 4e 55 4c 4c 2c 20 54 |dParent,| NULL, T|
|00005850| 52 55 45 20 29 0d 0a 20 | 20 20 20 20 20 20 45 6e |RUE ).. | En|
|00005860| 64 0d 0a 20 20 20 20 20 | 20 20 49 66 20 62 49 73 |d.. | If bIs|
|00005870| 54 65 73 74 69 6e 67 0d | 0a 20 20 20 20 20 20 20 |Testing.|. |
|00005880| 20 20 20 4e 65 78 74 4e | 6f 74 65 28 29 0d 0a 20 | NextN|ote().. |
|00005890| 20 20 20 20 20 20 45 6e | 64 0d 0a 20 20 20 20 45 | En|d.. E|
|000058a0| 6c 73 65 0d 0a 20 20 20 | 20 20 20 20 49 66 20 62 |lse.. | If b|
|000058b0| 49 73 54 65 73 74 69 6e | 67 0d 0a 20 20 20 20 20 |IsTestin|g.. |
|000058c0| 20 20 20 20 20 6e 54 72 | 79 43 6f 75 6e 74 2b 2b | nTr|yCount++|
|000058d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 49 66 20 6e |.. | If n|
|000058e0| 54 72 79 43 6f 75 6e 74 | 20 3d 3d 20 33 0d 0a 20 |TryCount| == 3.. |
|000058f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4d 65 73 73 | | Mess|
|00005900| 61 67 65 42 6f 78 28 20 | 47 65 74 41 63 74 69 76 |ageBox( |GetActiv|
|00005910| 65 57 69 6e 64 6f 77 28 | 29 2c 20 53 74 72 69 6e |eWindow(|), Strin|
|00005920| 67 32 50 73 7a 28 20 22 | 54 68 61 74 20 69 73 20 |g2Psz( "|That is |
|00005930| 79 6f 75 72 20 74 68 69 | 72 64 20 69 6e 63 6f 72 |your thi|rd incor|
|00005940| 72 65 63 74 20 61 74 74 | 65 6d 70 74 2e 22 20 29 |rect att|empt." )|
|00005950| 2c 20 53 74 72 69 6e 67 | 32 50 73 7a 28 20 22 53 |, String|2Psz( "S|
|00005960| 6f 72 72 79 22 20 29 2c | 20 4d 42 5f 49 43 4f 4e |orry" ),| MB_ICON|
|00005970| 45 58 43 4c 41 4d 41 54 | 49 4f 4e 20 29 0d 0a 20 |EXCLAMAT|ION ).. |
|00005980| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 6e 76 61 | | Inva|
|00005990| 6c 69 64 61 74 65 52 65 | 63 74 28 20 68 77 6e 64 |lidateRe|ct( hwnd|
|000059a0| 50 61 72 65 6e 74 2c 20 | 4e 55 4c 4c 2c 20 54 52 |Parent, |NULL, TR|
|000059b0| 55 45 20 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |UE ).. | |
|000059c0| 20 20 20 4e 65 78 74 4e | 6f 74 65 28 29 0d 0a 20 | NextN|ote().. |
|000059d0| 20 20 20 20 20 20 20 20 | 20 45 6e 64 0d 0a 20 20 | | End.. |
|000059e0| 20 20 20 20 20 45 6e 64 | 0d 0a 0d 0a 20 20 20 20 | End|.... |
|000059f0| 45 6e 64 0d 0a 0d 0a 52 | 45 54 55 52 4e 09 09 0d |End....R|ETURN...|
|00005a00| 0a 0d 0a 0d 0a 00 4e 00 | 46 00 00 00 46 75 6e 63 |......N.|F...Func|
|00005a10| 74 69 6f 6e 20 47 75 69 | 74 61 72 50 6c 61 79 4e |tion Gui|tarPlayN|
|00005a20| 6f 74 65 28 20 68 64 63 | 20 41 73 20 57 4f 52 44 |ote( hdc| As WORD|
|00005a30| 2c 20 6e 68 77 6e 64 20 | 41 73 20 53 68 6f 72 74 |, nhwnd |As Short|
|00005a40| 20 29 20 41 73 20 56 6f | 69 64 20 50 61 73 63 61 | ) As Vo|id Pasca|
|00005a50| 6c 00 40 00 0e 00 00 00 | 50 49 41 4e 4f 50 4c 41 |l.@.....|PIANOPLA|
|00005a60| 59 4e 4f 54 45 00 51 00 | 02 00 00 00 02 00 44 00 |YNOTE.Q.|......D.|
|00005a70| 02 00 00 00 03 00 48 00 | 04 00 00 00 13 a2 09 2f |......H.|......./|
|00005a80| 4d 00 02 00 00 00 11 00 | 45 00 02 00 00 00 00 00 |M.......|E.......|
|00005a90| 46 00 02 00 00 00 02 00 | 47 00 02 00 00 00 ff ff |F.......|G.......|
|00005aa0| 49 00 02 00 00 00 00 00 | 41 00 bf 04 00 00 46 75 |I.......|A.....Fu|
|00005ab0| 6e 63 74 69 6f 6e 20 50 | 69 61 6e 6f 50 6c 61 79 |nction P|ianoPlay|
|00005ac0| 4e 6f 74 65 28 20 68 64 | 63 20 41 73 20 57 4f 52 |Note( hd|c As WOR|
|00005ad0| 44 2c 20 6e 68 77 6e 64 | 20 41 73 20 53 68 6f 72 |D, nhwnd| As Shor|
|00005ae0| 74 20 29 20 41 73 20 56 | 6f 69 64 20 50 61 73 63 |t ) As V|oid Pasc|
|00005af0| 61 6c 0d 0a 09 6c 6f 63 | 61 6c 20 78 2c 79 20 09 |al...loc|al x,y .|
|00005b00| 09 41 73 20 53 48 4f 52 | 54 49 4e 54 0d 0a 09 0d |.As SHOR|TINT....|
|00005b10| 0a 09 4c 4f 43 41 4c 09 | 63 53 6e 64 46 69 6c 65 |..LOCAL.|cSndFile|
|00005b20| 20 20 20 09 09 61 73 20 | 53 74 72 69 6e 67 20 2c | ..as |String ,|
|00005b30| 20 3b 0d 0a 09 09 09 69 | 20 20 20 20 20 20 3a 3d | ;.....i| :=|
|00005b40| 20 30 20 09 41 73 20 53 | 68 6f 72 74 20 20 2c 20 | 0 .As S|hort , |
|00005b50| 3b 0d 0a 0d 0a 20 20 20 | 20 49 66 20 21 62 49 73 |;.... | If !bIs|
|00005b60| 54 65 73 74 69 6e 67 20 | 2e 6f 72 2e 20 3b 0d 0a |Testing |.or. ;..|
|00005b70| 20 20 20 20 20 20 20 62 | 49 73 54 65 73 74 69 6e | b|IsTestin|
|00005b80| 67 20 2e 61 6e 64 2e 20 | 41 6c 6c 54 72 69 6d 28 |g .and. |AllTrim(|
|00005b90| 20 61 4d 75 73 69 63 4e | 6f 74 65 73 5b 20 31 2c | aMusicN|otes[ 1,|
|00005ba0| 20 6e 68 77 6e 64 20 5d | 20 29 20 3d 3d 20 41 6c | nhwnd ]| ) == Al|
|00005bb0| 6c 54 72 69 6d 28 20 63 | 4e 6f 74 65 32 48 69 74 |lTrim( c|Note2Hit|
|00005bc0| 20 29 0d 0a 20 20 20 20 | 20 20 20 49 66 20 62 50 | ).. | If bP|
|00005bd0| 6c 61 79 4e 6f 74 65 0d | 0a 20 20 20 20 20 20 20 |layNote.|. |
|00005be0| 20 20 20 49 66 20 45 6d | 70 74 79 28 20 63 53 6f | If Em|pty( cSo|
|00005bf0| 75 6e 64 50 61 74 68 20 | 29 0d 0a 20 20 20 20 20 |undPath |).. |
|00005c00| 20 20 20 20 20 20 20 20 | 54 6f 6e 65 28 20 61 4d | |Tone( aM|
|00005c10| 75 73 69 63 4e 6f 74 65 | 73 5b 20 33 2c 20 6e 68 |usicNote|s[ 3, nh|
|00005c20| 77 6e 64 20 5d 2c 20 44 | 55 52 41 54 49 4f 4e 20 |wnd ], D|URATION |
|00005c30| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 45 6c 73 |).. | Els|
|00005c40| 65 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e.. | |
|00005c50| 63 53 6e 64 46 69 6c 65 | 20 3a 3d 20 63 53 6f 75 |cSndFile| := cSou|
|00005c60| 6e 64 50 61 74 68 20 2b | 20 61 4d 75 73 69 63 4e |ndPath +| aMusicN|
|00005c70| 6f 74 65 73 5b 20 32 2c | 20 6e 68 77 6e 64 20 5d |otes[ 2,| nhwnd ]|
|00005c80| 20 2b 20 22 2e 57 61 76 | 22 0d 0a 20 20 20 20 20 | + ".Wav|".. |
|00005c90| 20 20 20 20 20 20 20 20 | 49 66 20 46 69 6c 65 28 | |If File(|
|00005ca0| 20 63 53 6e 64 46 69 6c | 65 20 29 0d 0a 20 20 20 | cSndFil|e ).. |
|00005cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 6e 64 | | Snd|
|00005cc0| 50 6c 61 79 53 6f 75 6e | 64 28 20 20 53 74 72 69 |PlaySoun|d( Stri|
|00005cd0| 6e 67 32 50 73 7a 28 20 | 63 53 6e 64 46 69 6c 65 |ng2Psz( |cSndFile|
|00005ce0| 20 29 2c 20 53 4e 44 5f | 41 53 59 4e 43 20 29 0d | ), SND_|ASYNC ).|
|00005cf0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 6c |. | El|
|00005d00| 73 65 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |se.. | |
|00005d10| 20 20 20 20 54 6f 6e 65 | 28 20 61 4d 75 73 69 63 | Tone|( aMusic|
|00005d20| 4e 6f 74 65 73 5b 20 33 | 2c 20 6e 68 77 6e 64 20 |Notes[ 3|, nhwnd |
|00005d30| 5d 2c 20 44 55 52 41 54 | 49 4f 4e 20 29 0d 0a 20 |], DURAT|ION ).. |
|00005d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 6e 64 0d | | End.|
|00005d50| 0a 20 20 20 20 20 20 20 | 20 20 20 45 6e 64 0d 0a |. | End..|
|00005d60| 20 20 20 20 20 20 20 45 | 6e 64 0d 0a 0d 0a 20 20 | E|nd.... |
|00005d70| 20 20 20 20 20 63 4e 6f | 74 65 20 3a 3d 20 61 4d | cNo|te := aM|
|00005d80| 75 73 69 63 4e 6f 74 65 | 73 5b 20 31 2c 20 6e 68 |usicNote|s[ 1, nh|
|00005d90| 77 6e 64 20 5d 0d 0a 20 | 20 20 20 20 20 20 49 6e |wnd ].. | In|
|00005da0| 76 61 6c 69 64 61 74 65 | 52 65 63 74 28 20 68 77 |validate|Rect( hw|
|00005db0| 6e 64 50 61 72 65 6e 74 | 2c 20 4e 55 4c 4c 2c 20 |ndParent|, NULL, |
|00005dc0| 54 52 55 45 20 29 0d 0a | 20 20 20 20 20 20 20 49 |TRUE )..| I|
|00005dd0| 66 20 62 49 73 54 65 73 | 74 69 6e 67 0d 0a 20 20 |f bIsTes|ting.. |
|00005de0| 20 20 20 20 20 20 20 20 | 4e 65 78 74 4e 6f 74 65 | |NextNote|
|00005df0| 28 29 0d 0a 20 20 20 20 | 20 20 20 45 6e 64 0d 0a |().. | End..|
|00005e00| 20 20 20 20 45 6c 73 65 | 0d 0a 20 20 20 20 20 20 | Else|.. |
|00005e10| 20 49 66 20 62 49 73 54 | 65 73 74 69 6e 67 0d 0a | If bIsT|esting..|
|00005e20| 20 20 20 20 20 20 20 20 | 20 20 6e 54 72 79 43 6f | | nTryCo|
|00005e30| 75 6e 74 2b 2b 0d 0a 20 | 20 20 20 20 20 20 20 20 |unt++.. | |
|00005e40| 20 49 66 20 6e 54 72 79 | 43 6f 75 6e 74 20 3d 3d | If nTry|Count ==|
|00005e50| 20 33 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | 3.. | |
|00005e60| 20 4d 65 73 73 61 67 65 | 42 6f 78 28 20 47 65 74 | Message|Box( Get|
|00005e70| 41 63 74 69 76 65 57 69 | 6e 64 6f 77 28 29 2c 20 |ActiveWi|ndow(), |
|00005e80| 20 53 74 72 69 6e 67 32 | 50 73 7a 28 20 22 54 68 | String2|Psz( "Th|
|00005e90| 61 74 20 69 73 20 79 6f | 75 72 20 74 68 69 72 64 |at is yo|ur third|
|00005ea0| 20 69 6e 63 6f 72 72 65 | 63 74 20 61 74 74 65 6d | incorre|ct attem|
|00005eb0| 70 74 2e 22 20 29 2c 20 | 20 53 74 72 69 6e 67 32 |pt." ), | String2|
|00005ec0| 50 73 7a 28 20 22 53 6f | 72 72 79 22 20 29 2c 20 |Psz( "So|rry" ), |
|00005ed0| 4d 42 5f 49 43 4f 4e 45 | 58 43 4c 41 4d 41 54 49 |MB_ICONE|XCLAMATI|
|00005ee0| 4f 4e 20 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ON ).. | |
|00005ef0| 20 20 20 49 6e 76 61 6c | 69 64 61 74 65 52 65 63 | Inval|idateRec|
|00005f00| 74 28 20 68 77 6e 64 50 | 61 72 65 6e 74 2c 20 4e |t( hwndP|arent, N|
|00005f10| 55 4c 4c 2c 20 54 52 55 | 45 20 29 0d 0a 20 20 20 |ULL, TRU|E ).. |
|00005f20| 20 20 20 20 20 20 20 20 | 20 20 4e 65 78 74 4e 6f | | NextNo|
|00005f30| 74 65 28 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |te().. | |
|00005f40| 45 6e 64 0d 0a 20 20 20 | 20 20 20 20 45 6e 64 0d |End.. | End.|
|00005f50| 0a 20 20 20 20 45 6e 64 | 0d 0a 0d 0a 0d 0a 52 45 |. End|......RE|
|00005f60| 54 55 52 4e 09 09 0d 0a | 0d 0a 0d 0a 00 4e 00 45 |TURN....|.....N.E|
|00005f70| 00 00 00 46 75 6e 63 74 | 69 6f 6e 20 50 69 61 6e |...Funct|ion Pian|
|00005f80| 6f 50 6c 61 79 4e 6f 74 | 65 28 20 68 64 63 20 41 |oPlayNot|e( hdc A|
|00005f90| 73 20 57 4f 52 44 2c 20 | 6e 68 77 6e 64 20 41 73 |s WORD, |nhwnd As|
|00005fa0| 20 53 68 6f 72 74 20 29 | 20 41 73 20 56 6f 69 64 | Short )| As Void|
|00005fb0| 20 50 61 73 63 61 6c 00 | 40 00 09 00 00 00 4e 45 | Pascal.|@.....NE|
|00005fc0| 58 54 4e 4f 54 45 00 51 | 00 02 00 00 00 02 00 44 |XTNOTE.Q|.......D|
|00005fd0| 00 02 00 00 00 03 00 48 | 00 04 00 00 00 f8 9e 09 |.......H|........|
|00005fe0| 2f 4d 00 02 00 00 00 11 | 00 45 00 02 00 00 00 00 |/M......|.E......|
|00005ff0| 00 46 00 02 00 00 00 02 | 00 47 00 02 00 00 00 ff |.F......|.G......|
|00006000| ff 49 00 02 00 00 00 00 | 00 41 00 5a 01 00 00 46 |.I......|.A.Z...F|
|00006010| 55 4e 43 54 49 4f 4e 20 | 4e 65 78 74 4e 6f 74 65 |UNCTION |NextNote|
|00006020| 20 41 73 20 56 6f 69 64 | 0d 0a 0d 0a 20 20 20 20 | As Void|.... |
|00006030| 62 49 73 54 65 73 74 69 | 6e 67 20 3a 3d 20 54 52 |bIsTesti|ng := TR|
|00006040| 55 45 0d 0a 20 20 20 20 | 6e 4e 6f 74 65 32 48 69 |UE.. |nNote2Hi|
|00006050| 74 20 3a 3d 20 49 6e 74 | 65 67 65 72 28 20 52 61 |t := Int|eger( Ra|
|00006060| 6e 64 28 29 20 2a 20 31 | 30 30 20 29 0d 0a 20 20 |nd() * 1|00 ).. |
|00006070| 20 20 57 68 69 6c 65 20 | 6e 4e 6f 74 65 32 48 69 | While |nNote2Hi|
|00006080| 74 20 3e 20 34 32 0d 0a | 20 20 20 20 20 20 20 6e |t > 42..| n|
|00006090| 4e 6f 74 65 32 48 69 74 | 20 2d 3d 20 34 32 0d 0a |Note2Hit| -= 42..|
|000060a0| 20 20 20 20 45 6e 64 0d | 0a 20 20 20 20 6e 4e 6f | End.|. nNo|
|000060b0| 74 65 32 48 69 74 20 3a | 3d 20 4d 61 78 28 20 31 |te2Hit :|= Max( 1|
|000060c0| 2c 20 6e 4e 6f 74 65 32 | 48 69 74 20 29 0d 0a 09 |, nNote2|Hit )...|
|000060d0| 20 0d 0a 09 63 4e 6f 74 | 65 32 48 69 74 20 3a 3d | ...cNot|e2Hit :=|
|000060e0| 20 61 52 61 6e 64 4e 6f | 74 65 73 5b 20 6e 4e 6f | aRandNo|tes[ nNo|
|000060f0| 74 65 32 48 69 74 20 5d | 0d 0a 09 53 68 6f 77 4e |te2Hit ]|...ShowN|
|00006100| 6f 74 65 28 29 0d 0a 20 | 20 20 20 6e 54 72 79 43 |ote().. | nTryC|
|00006110| 6f 75 6e 74 20 3a 3d 20 | 30 0d 0a 20 20 20 20 63 |ount := |0.. c|
|00006120| 4e 6f 74 65 20 3a 3d 20 | 22 22 0d 0a 20 20 20 20 |Note := |"".. |
|00006130| 49 6e 76 61 6c 69 64 61 | 74 65 52 65 63 74 28 20 |Invalida|teRect( |
|00006140| 68 77 6e 64 50 61 72 65 | 6e 74 2c 20 4e 55 4c 4c |hwndPare|nt, NULL|
|00006150| 2c 20 54 52 55 45 20 29 | 0d 0a 0d 0a 52 45 54 55 |, TRUE )|....RETU|
|00006160| 52 4e 0d 0a 0d 0a 0d 0a | 00 4e 00 1a 00 00 00 46 |RN......|.N.....F|
|00006170| 55 4e 43 54 49 4f 4e 20 | 4e 65 78 74 4e 6f 74 65 |UNCTION |NextNote|
|00006180| 20 41 73 20 56 6f 69 64 | 00 40 00 09 00 00 00 53 | As Void|.@.....S|
|00006190| 48 4f 57 4e 4f 54 45 00 | 51 00 02 00 00 00 02 00 |HOWNOTE.|Q.......|
|000061a0| 44 00 02 00 00 00 03 00 | 48 00 04 00 00 00 f8 9e |D.......|H.......|
|000061b0| 09 2f 4d 00 02 00 00 00 | 11 00 45 00 02 00 00 00 |./M.....|..E.....|
|000061c0| 00 00 46 00 02 00 00 00 | 02 00 47 00 02 00 00 00 |..F.....|..G.....|
|000061d0| ff ff 49 00 02 00 00 00 | 00 00 41 00 0f 06 00 00 |..I.....|..A.....|
|000061e0| 46 55 4e 43 54 49 4f 4e | 20 53 68 6f 77 4e 6f 74 |FUNCTION| ShowNot|
|000061f0| 65 20 41 73 20 56 6f 69 | 64 0d 0a 20 20 20 53 54 |e As Voi|d.. ST|
|00006200| 41 54 49 43 20 6c 49 73 | 53 68 61 72 70 20 3a 3d |ATIC lIs|Sharp :=|
|00006210| 20 46 41 4c 53 45 20 41 | 73 20 4c 6f 67 69 63 0d | FALSE A|s Logic.|
|00006220| 0a 0d 0a 20 20 20 4c 4f | 43 41 4c 20 68 64 63 42 |... LO|CAL hdcB|
|00006230| 6d 70 20 20 20 20 20 20 | 20 20 20 20 41 73 20 57 |mp | As W|
|00006240| 6f 72 64 20 20 2c 20 3b | 0d 0a 20 20 20 20 20 20 |ord , ;|.. |
|00006250| 20 20 20 68 4d 69 6e 75 | 6d 42 6d 70 20 20 20 20 | hMinu|mBmp |
|00006260| 20 20 20 41 73 20 57 6f | 72 64 20 20 2c 20 3b 0d | As Wo|rd , ;.|
|00006270| 0a 20 20 20 20 20 20 20 | 20 20 68 53 68 61 72 70 |. | hSharp|
|00006280| 42 6d 70 20 20 20 20 20 | 20 20 41 73 20 57 6f 72 |Bmp | As Wor|
|00006290| 64 20 20 2c 20 3b 0d 0a | 20 20 20 20 20 20 20 20 |d , ;..| |
|000062a0| 20 68 46 6c 61 74 42 6d | 70 20 20 20 20 20 20 20 | hFlatBm|p |
|000062b0| 20 41 73 20 57 6f 72 64 | 20 20 2c 20 3b 0d 0a 20 | As Word| , ;.. |
|000062c0| 20 20 20 20 20 20 20 20 | 68 64 63 20 20 20 20 20 | |hdc |
|000062d0| 20 20 20 20 20 20 20 20 | 41 73 20 57 6f 72 64 0d | |As Word.|
|000062e0| 0a 0d 0a 2f 2f 20 20 20 | 20 43 6c 65 61 72 20 74 |...// | Clear t|
|000062f0| 68 65 20 73 74 61 66 66 | 20 6f 66 20 67 61 72 62 |he staff| of garb|
|00006300| 61 67 65 20 2e 2e 2e 0d | 0a 20 20 20 20 49 66 20 |age ....|. If |
|00006310| 6e 53 68 6f 77 52 6f 77 | 20 3e 20 30 0d 0a 20 20 |nShowRow| > 0.. |
|00006320| 20 20 20 20 20 43 6c 65 | 61 72 53 74 61 66 66 28 | Cle|arStaff(|
|00006330| 20 38 32 20 29 0d 0a 20 | 20 20 20 20 20 20 49 66 | 82 ).. | If|
|00006340| 20 6c 49 73 53 68 61 72 | 70 0d 0a 20 20 20 20 20 | lIsShar|p.. |
|00006350| 20 20 20 20 20 43 6c 65 | 61 72 53 74 61 66 66 28 | Cle|arStaff(|
|00006360| 20 36 35 20 29 0d 0a 20 | 20 20 20 20 20 20 45 6e | 65 ).. | En|
|00006370| 64 0d 0a 20 20 20 20 20 | 20 20 2f 2f 20 74 68 69 |d.. | // thi|
|00006380| 73 20 64 6f 65 73 6e 27 | 74 20 79 65 74 20 77 6f |s doesn'|t yet wo|
|00006390| 72 6b 0d 0a 20 20 20 20 | 20 20 20 54 65 78 74 4f |rk.. | TextO|
|000063a0| 75 74 28 20 68 64 63 2c | 20 31 35 2c 20 31 30 35 |ut( hdc,| 15, 105|
|000063b0| 2c 20 20 53 74 72 69 6e | 67 32 50 73 7a 28 20 22 |, Strin|g2Psz( "|
|000063c0| 20 20 20 20 20 20 20 20 | 20 20 20 22 20 29 2c 20 | | " ), |
|000063d0| 31 32 20 29 0d 0a 20 20 | 20 20 45 6e 64 0d 0a 0d |12 ).. | End...|
|000063e0| 0a 20 20 20 20 6e 53 68 | 6f 77 52 6f 77 20 3a 3d |. nSh|owRow :=|
|000063f0| 20 61 4d 75 73 69 63 4e | 6f 74 65 73 5b 20 34 2c | aMusicN|otes[ 4,|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
