TLMUSIC
FILE INFORMATION
FILENAME(S): TLMUSIC
FILE TYPE(S): PRG
FILE SIZE: 7.8K
FIRST SEEN: 2025-11-30 17:23:58
APPEARS ON: 1 disk(s)
FILE HASH
9c4672ae1b2bcd28fbd761b15c8e2dcce013db32f7e2797850315e4f66c0ac95
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ULTILITIES | TLMUSIC | PRG | Quetzal & Style | 23 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 12 1A 12 00 00 8F 20 54 4F 54 41 4C 20 4D 55 |....... TOTAL MU|
00000010: 53 49 43 20 36 34 20 2A 2A 2A 00 26 12 05 00 8D |SIC 64 ***.&....|
00000020: 20 31 32 30 30 30 00 40 12 0A 00 9C 3A 20 20 20 | 12000.@....: |
00000030: 20 8F 20 56 4F 49 43 45 20 31 20 4E 4F 54 45 53 | . VOICE 1 NOTES|
00000040: 00 87 12 0F 00 86 20 48 49 28 32 30 30 29 2C 4C |...... HI(200),L|
00000050: 4F 28 32 30 30 29 2C 4C 4E 24 28 32 30 30 29 3A |O(200),LN$(200):|
00000060: 8F 20 54 4F 54 41 4C 20 4E 55 4D 42 45 52 20 4F |. TOTAL NUMBER O|
00000070: 46 20 4E 4F 54 45 53 20 50 4F 53 53 49 42 4C 45 |F NOTES POSSIBLE|
00000080: 20 49 53 20 32 30 30 00 AB 12 14 00 97 35 33 32 | IS 200......532|
00000090: 38 31 2C 31 3A 97 35 33 32 38 30 2C 31 3A 99 C7 |81,1:.53280,1:..|
000000A0: 28 31 34 34 29 C7 28 31 34 37 29 00 C5 12 1E 00 |(144).(147).....|
000000B0: 55 50 24 B2 C7 28 31 34 35 29 3A 4C 46 24 B2 C7 |UP$..(145):LF$..|
000000C0: 28 31 35 37 29 00 DF 12 28 00 81 53 B2 35 34 32 |(157)...(..S.542|
000000D0: 37 32 A4 35 34 32 39 36 3A 97 53 2C 30 3A 82 00 |72.54296:.S,0:..|
000000E0: 19 13 32 00 53 56 B2 35 34 32 39 36 3A 53 48 B2 |..2.SV.54296:SH.|
000000F0: 35 34 32 37 33 3A 53 4C B2 35 34 32 37 32 3A 53 |54273:SL.54272:S|
00000100: 41 B2 35 34 32 37 37 3A 53 53 B2 35 34 32 37 38 |A.54277:SS.54278|
00000110: 3A 53 57 B2 35 34 32 37 36 00 3D 13 64 00 99 22 |:SW.54276.=.d.."|
00000120: 56 4F 4C 55 4D 45 20 5B 31 2D 31 35 5D 22 3B C7 |VOLUME [1-15]";.|
00000130: 28 33 32 29 C7 28 33 32 29 22 31 35 22 00 5A 13 |(32).(32)"15".Z.|
00000140: 65 00 99 55 50 24 3B 3A 81 58 B2 31 A4 31 33 3A |e..UP$;:.X.1.13:|
00000150: 99 C7 28 32 39 29 3B 3A 82 58 00 63 13 66 00 85 |..(29);:.X.c.f..|
00000160: 56 31 24 00 71 13 69 00 56 31 B2 C5 28 56 31 24 |V1$.q.i.V1..(V1$|
00000170: 29 00 87 13 6E 00 8B 56 31 B3 31 B0 56 31 B1 31 |)...n..V1.1.V1.1|
00000180: 35 A7 8D 37 30 30 30 00 A7 13 72 00 8B 56 31 B3 |5..7000...r..V1.|
00000190: 31 B0 56 31 B1 31 35 A7 99 55 50 24 55 50 24 55 |1.V1.15..UP$UP$U|
000001A0: 50 24 3A 89 31 30 30 00 BF 13 7D 00 81 58 B2 31 |P$:.100...}..X.1|
000001B0: A4 32 32 3A 99 C7 28 33 32 29 3B 3A 82 3A 99 00 |.22:..(32);:.:..|
000001C0: CF 13 C8 00 99 22 57 41 56 45 46 4F 52 4D 22 00 |....."WAVEFORM".|
000001D0: F4 13 CA 00 99 A3 31 30 29 C7 28 31 38 29 22 54 |......10).(18)"T|
000001E0: 22 3B C7 28 31 34 36 29 3B 22 52 49 41 4E 47 55 |";.(146);"RIANGU|
000001F0: 4C 41 52 22 00 17 14 CC 00 99 A3 31 30 29 C7 28 |LAR".......10).(|
00000200: 31 38 29 22 53 22 3B C7 28 31 34 36 29 3B 22 41 |18)"S";.(146);"A|
00000210: 57 54 4F 4F 54 48 22 00 37 14 CE 00 99 A3 31 30 |WTOOTH".7.....10|
00000220: 29 C7 28 31 38 29 22 50 22 3B C7 28 31 34 36 29 |).(18)"P";.(146)|
00000230: 3B 22 55 4C 53 45 22 00 65 14 D0 00 99 A3 31 30 |;"ULSE".e.....10|
00000240: 29 C7 28 31 38 29 22 4E 22 3B C7 28 31 34 36 29 |).(18)"N";.(146)|
00000250: 3B 22 4F 49 53 45 22 3B C7 28 33 32 29 C7 28 33 |;"OISE";.(32).(3|
00000260: 32 29 22 54 22 00 86 14 D1 00 99 55 50 24 3B 3A |2)"T"......UP$;:|
00000270: 81 58 B2 31 A4 31 35 3A 99 C7 28 32 39 29 3B 3A |.X.1.15:..(29);:|
00000280: 82 3A 85 57 31 24 00 A0 14 D2 00 8B 57 31 24 B2 |.:.W1$......W1$.|
00000290: 22 54 22 A7 57 31 B2 31 37 3A 99 3A 89 33 30 30 |"T".W1.17:.:.300|
000002A0: 00 BA 14 D4 00 8B 57 31 24 B2 22 53 22 A7 57 31 |......W1$."S".W1|
000002B0: B2 33 33 3A 99 3A 89 33 30 30 00 D4 14 D6 00 8B |.33:.:.300......|
000002C0: 57 31 24 B2 22 50 22 A7 57 31 B2 36 35 3A 99 3A |W1$."P".W1.65:.:|
000002D0: 89 33 30 30 00 EF 14 D8 00 8B 57 31 24 B2 22 4E |.300......W1$."N|
000002E0: 22 A7 57 31 B2 31 32 39 3A 99 3A 89 33 30 30 00 |".W1.129:.:.300.|
000002F0: 03 15 DC 00 8B 57 31 24 B3 B1 22 4E 22 A7 8D 37 |.....W1$.."N"..7|
00000300: 30 30 30 00 28 15 E2 00 8B 57 31 24 B3 B1 22 4E |000.(....W1$.."N|
00000310: 22 A7 20 81 58 B2 31 A4 36 3A 99 55 50 24 3B 3A |". .X.1.6:.UP$;:|
00000320: 82 3A 99 3A 89 32 30 30 00 52 15 2C 01 99 22 41 |.:.:.200.R.,.."A|
00000330: 54 54 41 43 4B 2F 44 45 43 41 59 20 5B 30 2D 32 |TTACK/DECAY [0-2|
00000340: 34 30 5D 22 3B C7 28 33 32 29 C7 28 33 32 29 22 |40]";.(32).(32)"|
00000350: 30 22 00 74 15 2E 01 99 55 50 24 3B 3A 81 58 B2 |0".t....UP$;:.X.|
00000360: 31 A4 32 30 3A 99 C7 28 32 39 29 3B 3A 82 58 3A |1.20:..(29);:.X:|
00000370: 85 41 31 24 00 82 15 36 01 41 31 B2 C5 28 41 31 |.A1$...6.A1..(A1|
00000380: 24 29 00 99 15 40 01 8B 41 31 B3 30 B0 41 31 B1 |$)...@..A1.0.A1.|
00000390: 32 34 30 A7 8D 37 30 30 30 00 B7 15 4A 01 8B 41 |240..7000...J..A|
000003A0: 31 B3 30 B0 41 31 B1 32 34 30 A7 99 55 50 24 55 |1.0.A1.240..UP$U|
000003B0: 50 24 3A 89 33 30 30 00 E6 15 90 01 99 22 53 55 |P$:.300......"SU|
000003C0: 53 54 41 49 4E 2F 52 45 4C 45 41 53 45 20 5B 30 |STAIN/RELEASE [0|
000003D0: 2D 32 34 30 5D 22 3B C7 28 33 32 29 C7 28 33 32 |-240]";.(32).(32|
000003E0: 29 22 32 34 30 22 00 08 16 92 01 99 55 50 24 3B |)"240"......UP$;|
000003F0: 3A 81 58 B2 31 A4 32 33 3A 99 C7 28 32 39 29 3B |:.X.1.23:..(29);|
00000400: 3A 82 58 3A 85 53 31 24 00 16 16 9A 01 53 31 B2 |:.X:.S1$.....S1.|
00000410: C5 28 53 31 24 29 00 2D 16 A4 01 8B 53 31 B3 30 |.(S1$).-....S1.0|
00000420: B0 53 31 B1 32 34 30 A7 8D 37 30 30 30 00 4B 16 |.S1.240..7000.K.|
00000430: AE 01 8B 53 31 B3 30 B0 53 31 B1 32 34 30 A7 99 |...S1.0.S1.240..|
00000440: 55 50 24 55 50 24 3A 89 34 30 30 00 75 16 C2 01 |UP$UP$:.400.u...|
00000450: 99 3A 99 22 44 55 52 41 54 49 4F 4E 20 4F 46 20 |.:."DURATION OF |
00000460: 4E 4F 54 45 22 3B C7 28 33 32 29 C7 28 33 32 29 |NOTE";.(32).(32)|
00000470: 22 31 32 38 22 00 97 16 C3 01 99 55 50 24 3B 3A |"128"......UP$;:|
00000480: 81 58 B2 31 A4 31 36 3A 99 C7 28 32 39 29 3B 3A |.X.1.16:..(29);:|
00000490: 82 58 3A 85 44 31 24 00 BC 16 C4 01 8B C8 28 44 |.X:.D1$.......(D|
000004A0: 31 24 2C 31 29 B3 22 30 22 B0 C8 28 44 31 24 2C |1$,1)."0"..(D1$,|
000004B0: 31 29 B1 22 39 22 A7 8D 37 30 30 30 00 EB 16 C6 |1)."9"..7000....|
000004C0: 01 8B C8 28 44 31 24 2C 31 29 B3 22 30 22 B0 C8 |...(D1$,1)."0"..|
000004D0: 28 44 31 24 2C 31 29 B1 22 39 22 A7 99 55 50 24 |(D1$,1)."9"..UP$|
000004E0: 55 50 24 55 50 24 3A 89 34 35 30 00 FB 16 C8 01 |UP$UP$:.450.....|
000004F0: 44 31 B2 C5 28 44 31 24 29 3A 99 00 0B 17 CA 01 |D1..(D1$):......|
00000500: 81 58 B2 31 A4 34 30 30 3A 82 58 00 36 17 CC 01 |.X.1.400:.X.6...|
00000510: 99 C7 28 31 34 37 29 C7 28 31 38 29 22 46 33 22 |..(147).(18)"F3"|
00000520: C7 28 31 34 36 29 22 20 50 52 49 4E 54 20 26 20 |.(146)" PRINT & |
00000530: 50 4C 41 59 22 3B 00 59 17 CD 01 99 A3 32 34 29 |PLAY";.Y.....24)|
00000540: C7 28 31 38 29 22 46 37 22 C7 28 31 34 36 29 22 |.(18)"F7".(146)"|
00000550: 20 52 45 53 54 41 52 54 22 00 77 17 CE 01 99 C7 | RESTART".w.....|
00000560: 28 31 38 29 22 20 50 22 C7 28 31 34 36 29 22 20 |(18)" P".(146)" |
00000570: 50 41 55 53 45 22 3B 00 A0 17 CF 01 99 A6 31 32 |PAUSE";.......12|
00000580: 29 C7 28 31 38 29 22 52 45 54 55 52 4E 22 C7 28 |).(18)"RETURN".(|
00000590: 31 34 36 29 22 20 4C 49 4E 45 20 46 45 45 44 22 |146)" LINE FEED"|
000005A0: 00 C6 17 D0 01 99 C7 28 31 38 29 22 20 22 C7 28 |.......(18)" ".(|
000005B0: 39 34 29 C7 28 31 34 36 29 22 20 45 52 41 53 45 |94).(146)" ERASE|
000005C0: 20 41 4C 4C 22 3B 00 F6 17 D1 01 99 A6 36 29 C7 | ALL";.......6).|
000005D0: 28 31 38 29 22 49 4E 53 54 2F 44 45 4C 22 C7 28 |(18)"INST/DEL".(|
000005E0: 31 34 36 29 22 20 45 52 41 53 45 20 4E 4F 54 45 |146)" ERASE NOTE|
000005F0: 22 20 3A 99 3A 99 00 20 18 D3 01 81 4D 44 B2 30 |" :.:.. ....MD.0|
00000600: A4 33 39 3A 97 31 36 32 34 AA 4D 44 2C 36 37 3A |.39:.1624.MD,67:|
00000610: 97 35 35 38 39 36 AA 4D 44 2C 31 32 3A 82 4D 44 |.55896.MD,12:.MD|
00000620: 00 33 18 E0 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.3....A$:.A$."".|
00000630: 34 38 30 00 76 18 F3 01 8F 20 2A 2A 2A 2A 20 41 |480.v.... **** A|
00000640: 24 20 53 45 4C 45 43 54 49 4F 4E 20 46 4F 52 20 |$ SELECTION FOR |
00000650: 4E 4F 54 45 53 2D 20 20 20 20 20 20 20 20 20 20 |NOTES- |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 43 | OC|
00000670: 54 41 56 45 20 34 00 9D 18 F4 01 8B 41 24 B2 C7 |TAVE 4......A$..|
00000680: 28 36 35 29 A7 20 48 49 B2 32 38 3A 4C 4F B2 34 |(65). HI.28:LO.4|
00000690: 39 3A 89 37 30 30 3A 20 20 8F 20 20 41 00 CD 18 |9:.700: . A...|
000006A0: FE 01 8B 41 24 B2 C7 28 31 39 33 29 A7 20 48 49 |...A$..(193). HI|
000006B0: B2 32 39 3A 4C 4F B2 32 32 33 3A 41 24 B2 22 41 |.29:LO.223:A$."A|
000006C0: 23 22 3A 89 37 30 30 3A 8F 20 20 41 23 00 0F 19 |#":.700:. A#...|
000006D0: 08 02 8B 41 24 B2 C7 28 36 36 29 A7 20 48 49 B2 |...A$..(66). HI.|
000006E0: 31 35 3A 4C 4F B2 32 31 30 3A 89 37 30 30 3A 20 |15:LO.210:.700: |
000006F0: 8F 20 20 42 20 2A 2A 20 4E 4F 54 45 20 4F 43 54 |. B ** NOTE OCT|
00000700: 41 56 45 20 33 20 4E 4F 54 20 34 20 2A 2A 2A 00 |AVE 3 NOT 4 ***.|
00000710: 36 19 12 02 8B 41 24 B2 C7 28 36 37 29 A7 20 48 |6....A$..(67). H|
00000720: 49 B2 31 36 3A 4C 4F B2 31 39 35 3A 89 37 30 30 |I.16:LO.195:.700|
00000730: 3A 20 8F 20 20 43 00 66 19 1C 02 8B 41 24 B2 C7 |: . C.f....A$..|
00000740: 28 31 39 35 29 A7 20 48 49 B2 31 37 3A 4C 4F B2 |(195). HI.17:LO.|
00000750: 31 39 35 3A 41 24 B2 22 43 23 22 3A 89 37 30 30 |195:A$."C#":.700|
00000760: 3A 8F 20 20 43 23 00 8D 19 26 02 8B 41 24 B2 C7 |:. C#...&..A$..|
00000770: 28 36 38 29 A7 20 48 49 B2 31 38 3A 4C 4F B2 32 |(68). HI.18:LO.2|
00000780: 30 39 3A 89 37 30 30 3A 20 8F 20 20 44 00 BD 19 |09:.700: . D...|
00000790: 30 02 8B 41 24 B2 C7 28 31 39 36 29 A7 20 48 49 |0..A$..(196). HI|
000007A0: B2 31 39 3A 4C 4F B2 32 33 39 3A 41 24 B2 22 44 |.19:LO.239:A$."D|
000007B0: 23 22 3A 89 37 30 30 3A 8F 20 20 44 23 00 E4 19 |#":.700:. D#...|
000007C0: 3A 02 8B 41 24 B2 C7 28 36 39 29 A7 20 48 49 B2 |:..A$..(69). HI.|
000007D0: 32 31 3A 4C 4F B2 33 31 3A 89 37 30 30 3A 20 20 |21:LO.31:.700: |
000007E0: 8F 20 20 45 00 0B 1A 44 02 8B 41 24 B2 C7 28 37 |. E...D..A$..(7|
000007F0: 30 29 A7 20 48 49 B2 32 32 3A 4C 4F B2 39 36 3A |0). HI.22:LO.96:|
00000800: 89 37 30 30 3A 20 20 8F 20 20 46 00 3B 1A 4E 02 |.700: . F.;.N.|
00000810: 8B 41 24 B2 C7 28 31 39 38 29 A7 20 48 49 B2 32 |.A$..(198). HI.2|
00000820: 33 3A 4C 4F B2 31 38 31 3A 41 24 B2 22 46 23 22 |3:LO.181:A$."F#"|
00000830: 3A 89 37 30 30 3A 8F 20 20 46 23 00 62 1A 58 02 |:.700:. F#.b.X.|
00000840: 8B 41 24 B2 C7 28 37 31 29 A7 20 48 49 B2 32 35 |.A$..(71). HI.25|
00000850: 3A 4C 4F B2 33 30 3A 89 37 30 30 3A 20 20 8F 20 |:LO.30:.700: . |
00000860: 20 47 00 92 1A 62 02 8B 41 24 B2 C7 28 31 39 39 | G...b..A$..(199|
00000870: 29 A7 20 48 49 B2 32 36 3A 4C 4F B2 31 35 36 3A |). HI.26:LO.156:|
00000880: 41 24 B2 22 47 23 22 3A 89 37 30 30 3A 8F 20 20 |A$."G#":.700:. |
00000890: 47 23 00 C4 1A 6C 02 8B 41 24 B2 C7 28 38 30 29 |G#...l..A$..(80)|
000008A0: A7 20 48 49 B2 30 3A 4C 4F B2 30 3A 41 24 B2 22 |. HI.0:LO.0:A$."|
000008B0: 50 22 3A 89 37 30 30 3A 20 20 20 20 8F 20 20 50 |P":.700: . P|
000008C0: 41 55 53 45 00 FD 1A 7B 02 8B 41 24 B2 C7 28 31 |AUSE...{..A$..(1|
000008D0: 33 34 29 A7 20 39 30 30 30 3A 8F 20 46 33 20 47 |34). 9000:. F3 G|
000008E0: 4F 54 4F 20 20 50 55 54 54 49 4E 47 20 44 41 54 |OTO PUTTING DAT|
000008F0: 41 20 49 4E 54 4F 20 41 52 52 41 59 53 00 1C 1B |A INTO ARRAYS...|
00000900: 80 02 8B 41 24 B2 C7 28 31 33 36 29 A7 31 30 3A |...A$..(136).10:|
00000910: 8F 20 46 37 20 52 45 53 54 41 52 54 00 4D 1B 85 |. F7 RESTART.M..|
00000920: 02 8B 41 24 B2 C7 28 31 33 29 A7 99 55 50 24 C7 |..A$..(13)..UP$.|
00000930: 28 31 33 29 3A 89 34 38 30 3A 8F 20 52 45 54 55 |(13):.480:. RETU|
00000940: 52 4E 2D 20 4C 49 4E 45 20 46 45 45 44 00 7E 1B |RN- LINE FEED.~.|
00000950: 8A 02 8B 41 24 B2 C7 28 32 30 29 A7 48 49 B2 30 |...A$..(20).HI.0|
00000960: 3A 4C 4F B2 30 3A 99 C7 28 31 35 37 29 C7 28 31 |:LO.0:..(157).(1|
00000970: 35 37 29 C7 28 33 32 29 3B 3A 89 34 38 30 00 A8 |57).(32);:.480..|
00000980: 1B 8B 02 8F 20 4C 49 4E 45 36 35 30 20 2D 49 4E |.... LINE650 -IN|
00000990: 53 54 2F 44 45 4C 20 45 52 41 53 45 20 53 49 4E |ST/DEL ERASE SIN|
000009A0: 47 4C 45 20 4E 4F 54 45 00 DD 1B 94 02 8B 41 24 |GLE NOTE......A$|
000009B0: B2 C7 28 39 34 29 A7 89 34 36 30 3A 8F 20 55 50 |..(94)..460:. UP|
000009C0: 20 41 52 52 4F 57 20 53 59 4D 42 4F 4C 20 43 4C | ARROW SYMBOL CL|
000009D0: 45 41 4E 20 55 50 20 53 43 52 45 45 4E 00 FB 1B |EAN UP SCREEN...|
000009E0: B2 02 8B 41 24 B3 B1 C7 28 38 30 29 A7 48 49 B2 |...A$...(80).HI.|
000009F0: 30 3A 4C 4F B2 30 3A 89 34 38 30 00 29 1C BC 02 |0:LO.0:.480.)...|
00000A00: 97 53 48 2C 48 49 3A 97 53 4C 2C 4C 4F 3A 97 53 |.SH,HI:.SL,LO:.S|
00000A10: 41 2C 41 31 3A 97 53 53 2C 53 31 3A 97 53 57 2C |A,A1:.SS,S1:.SW,|
00000A20: 57 31 3A 97 53 56 2C 56 31 00 38 1C E4 02 81 58 |W1:.SV,V1.8....X|
00000A30: B2 31 A4 44 31 3A 82 58 00 55 1C EE 02 99 41 24 |.1.D1:.X.U....A$|
00000A40: 3B 22 20 22 3B 3A 97 53 56 2C 31 36 3A 97 53 57 |;" ";:.SV,16:.SW|
00000A50: 2C 57 31 AB 31 00 5E 1C 20 03 89 34 38 30 00 7A |,W1.1.^. ..480.z|
00000A60: 1C CF 07 AC AC AC 20 8F 20 50 4C 41 59 20 54 48 |...... . PLAY TH|
00000A70: 45 20 54 55 4E 45 20 2A 2A 2A 00 87 1C D0 07 8B |E TUNE ***......|
00000A80: 4E B2 30 20 A7 20 8E 00 A4 1C D5 07 81 58 B2 35 |N.0 . .......X.5|
00000A90: 34 32 37 32 20 A4 20 35 34 32 39 36 3A 97 53 2C |4272 . 54296:.S,|
00000AA0: 30 3A 82 58 00 C8 1C DA 07 81 4E 4E B2 30 A4 4E |0:.X......NN.0.N|
00000AB0: AB 31 3A 97 53 48 2C 48 49 28 4E 4E 29 3A 97 53 |.1:.SH,HI(NN):.S|
00000AC0: 4C 2C 4C 4F 28 4E 4E 29 00 E8 1C E4 07 97 53 41 |L,LO(NN)......SA|
00000AD0: 2C 41 31 3A 97 53 53 2C 53 31 3A 97 53 57 2C 57 |,A1:.SS,S1:.SW,W|
00000AE0: 31 3A 97 53 56 2C 56 31 00 F7 1C EE 07 81 58 B2 |1:.SV,V1......X.|
00000AF0: 31 A4 44 31 3A 82 58 00 0F 1D F8 07 82 4E 4E 3A |1.D1:.X......NN:|
00000B00: 97 53 56 2C 31 36 3A 97 53 57 2C 57 31 AB 31 00 |.SV,16:.SW,W1.1.|
00000B10: 15 1D 02 08 8E 00 61 1D B7 0B 8F 20 2A 2A 2A 20 |......a.... *** |
00000B20: 50 52 49 4E 54 20 4E 4F 54 45 53 20 55 53 49 4E |PRINT NOTES USIN|
00000B30: 47 20 4C 45 54 54 45 52 53 20 2A 2A 2A 2A 2A 2A |G LETTERS ******|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B60: 2A 00 67 1D B8 0B 99 00 94 1D BA 0B 51 54 24 B2 |*.g.........QT$.|
00000B70: 22 4E 4F 54 45 53 20 42 59 20 4C 45 54 54 45 52 |"NOTES BY LETTER|
00000B80: 22 3A 8D 31 30 30 30 30 3A 81 58 B2 31 A4 35 30 |":.10000:.X.1.50|
00000B90: 30 3A 82 58 00 C2 1D BD 0B 51 54 24 B2 22 54 55 |0:.X.....QT$."TU|
00000BA0: 52 4E 20 50 52 49 4E 54 45 52 20 4F 4E 22 3A 8D |RN PRINTER ON":.|
00000BB0: 20 31 30 30 30 30 3A 81 58 B2 31 A4 35 30 30 3A | 10000:.X.1.500:|
00000BC0: 82 58 00 F5 1D C2 0B 51 54 24 B2 22 47 49 56 45 |.X.....QT$."GIVE|
00000BD0: 20 54 55 4E 45 20 41 20 4E 41 4D 45 22 3A 8D 31 | TUNE A NAME":.1|
00000BE0: 30 30 30 30 3A 99 55 50 24 3A 99 A3 31 36 29 3B |0000:.UP$:..16);|
00000BF0: 3A 85 41 57 24 00 FE 1D CC 0B 9F 31 2C 34 00 0C |:.AW$......1,4..|
00000C00: 1E D6 0B 98 31 2C 41 57 24 3A 98 31 00 32 1E E0 |....1,AW$:.1.2..|
00000C10: 0B 81 4E 4E B2 30 A4 4E AB 31 3A 98 31 2C 4C 4E |..NN.0.N.1:.1,LN|
00000C20: 24 28 4E 4E 29 3B 3A 98 31 2C 22 20 22 3B 3A 82 |$(NN);:.1," ";:.|
00000C30: 4E 4E 00 60 1E EA 0B 98 31 3A 98 31 2C 22 54 4F |NN.`....1:.1,"TO|
00000C40: 54 41 4C 20 4E 4F 54 45 20 43 4F 55 4E 54 3D 22 |TAL NOTE COUNT="|
00000C50: 3B 4E 4E 3B 22 50 4C 55 53 20 2D 31 2C 2D 31 22 |;NN;"PLUS -1,-1"|
00000C60: 00 70 1E 12 0C 98 31 3A A0 31 3A 89 39 32 30 30 |.p....1:.1:.9200|
00000C70: 00 9A 1E 17 0C 99 55 50 24 3B 3A 81 58 B2 30 A4 |......UP$;:.X.0.|
00000C80: 33 39 3A 99 C7 28 33 32 29 3B 3A 82 58 3A 99 55 |39:..(32);:.X:.U|
00000C90: 50 24 55 50 24 55 50 24 3A 99 00 BA 1E 1C 0C 51 |P$UP$UP$:......Q|
00000CA0: 54 24 B2 22 46 49 4E 49 53 48 45 44 22 3A 8D 31 |T$."FINISHED":.1|
00000CB0: 30 30 30 30 3A 89 39 32 30 30 00 E9 1E 58 1B 51 |0000:.9200...X.Q|
00000CC0: 54 24 B2 22 4E 4F 54 20 41 20 4C 45 47 41 4C 20 |T$."NOT A LEGAL |
00000CD0: 43 48 4F 49 43 45 22 3A 8D 31 30 30 30 30 3A 81 |CHOICE":.10000:.|
00000CE0: 58 B2 31 A4 35 30 3A 82 58 00 12 1F 62 1B 99 55 |X.1.50:.X...b..U|
00000CF0: 50 24 3A 81 58 B2 31 A4 33 30 3A 99 C7 28 33 32 |P$:.X.1.30:..(32|
00000D00: 29 3B 3A 81 59 B2 31 A4 32 35 3A 82 59 3A 82 58 |);:.Y.1.25:.Y:.X|
00000D10: 3A 8E 00 35 1F 3F 1F 8F 20 2A 2A 2A 20 44 41 54 |:..5.?.. *** DAT|
00000D20: 41 20 4C 49 4E 45 20 4F 4E 4C 59 20 50 52 49 4E |A LINE ONLY PRIN|
00000D30: 54 20 2A 2A 2A 00 3B 1F 40 1F 99 00 68 1F 42 1F |T ***.;.@...h.B.|
00000D40: 51 54 24 B2 22 50 52 49 4E 54 20 44 41 54 41 20 |QT$."PRINT DATA |
00000D50: 4F 4E 4C 59 22 3A 8D 31 30 30 30 30 3A 81 58 B2 |ONLY":.10000:.X.|
00000D60: 31 A4 35 30 30 3A 82 58 00 95 1F 45 1F 51 54 24 |1.500:.X...E.QT$|
00000D70: B2 22 54 55 52 4E 20 50 52 49 4E 54 45 52 20 4F |."TURN PRINTER O|
00000D80: 4E 22 3A 8D 31 30 30 30 30 3A 81 58 B2 31 A4 35 |N":.10000:.X.1.5|
00000D90: 30 30 3A 82 58 00 C8 1F 4A 1F 51 54 24 B2 22 47 |00:.X...J.QT$."G|
00000DA0: 49 56 45 20 54 55 4E 45 20 41 20 4E 41 4D 45 22 |IVE TUNE A NAME"|
00000DB0: 3A 8D 31 30 30 30 30 3A 99 55 50 24 3A 99 A3 31 |:.10000:.UP$:..1|
00000DC0: 36 29 3B 3A 85 41 57 24 00 D1 1F 54 1F 9F 31 2C |6);:.AW$...T..1,|
00000DD0: 34 00 DF 1F 5E 1F 98 31 2C 41 57 24 3A 98 31 00 |4...^..1,AW$:.1.|
00000DE0: 16 20 68 1F 81 4E 4E B2 30 A4 4E AB 31 3A 98 31 |. h..NN.0.N.1:.1|
00000DF0: 2C 48 49 28 4E 4E 29 3B 22 2C 22 3B 4C 4F 28 4E |,HI(NN);",";LO(N|
00000E00: 4E 29 3B 22 2C 22 3B 3A 82 4E 4E 3A 98 31 2C 22 |N);",";:.NN:.1,"|
00000E10: 2D 31 2C 2D 31 22 00 46 20 6D 1F 98 31 3A 98 31 |-1,-1".F m..1:.1|
00000E20: 2C 22 54 4F 54 41 4C 20 4E 4F 54 45 20 43 4F 55 |,"TOTAL NOTE COU|
00000E30: 4E 54 3D 22 3B 4E 4E AC 32 3B 22 50 4C 55 53 20 |NT=";NN.2;"PLUS |
00000E40: 2D 31 2C 2D 31 22 00 52 20 72 1F 98 31 3A A0 31 |-1,-1".R r..1:.1|
00000E50: 3A 8E 00 74 20 33 21 8F 20 2A 2A 2A 20 54 4F 54 |:..t 3!. *** TOT|
00000E60: 41 4C 20 50 52 4F 47 52 41 4D 20 50 52 49 4E 54 |AL PROGRAM PRINT|
00000E70: 20 2A 2A 2A 00 7A 20 34 21 99 00 A5 20 3E 21 51 | ***.z 4!... >!Q|
00000E80: 54 24 B2 22 50 52 49 4E 54 20 52 4F 55 54 49 4E |T$."PRINT ROUTIN|
00000E90: 45 22 3A 8D 31 30 30 30 30 3A 81 58 B2 31 A4 35 |E":.10000:.X.1.5|
00000EA0: 30 30 3A 82 58 00 D2 20 48 21 51 54 24 B2 22 54 |00:.X.. H!QT$."T|
00000EB0: 55 52 4E 20 50 52 49 4E 54 45 52 20 4F 4E 22 3A |URN PRINTER ON":|
00000EC0: 8D 31 30 30 30 30 3A 81 58 B2 31 A4 35 30 30 3A |.10000:.X.1.500:|
00000ED0: 82 58 00 05 21 52 21 51 54 24 B2 22 47 49 56 45 |.X..!R!QT$."GIVE|
00000EE0: 20 54 55 4E 45 20 41 20 4E 41 4D 45 22 3A 8D 31 | TUNE A NAME":.1|
00000EF0: 30 30 30 30 3A 99 55 50 24 3A 99 A3 31 36 29 3B |0000:.UP$:..16);|
00000F00: 3A 85 41 57 24 00 0E 21 66 21 9F 31 2C 34 00 19 |:.AW$..!f!.1,4..|
00000F10: 21 70 21 98 31 2C 41 57 24 00 20 21 75 21 98 31 |!p!.1,AW$. !u!.1|
00000F20: 00 56 21 7A 21 98 31 2C 22 31 30 30 20 46 4F 52 |.V!z!.1,"100 FOR|
00000F30: 20 53 3D 35 34 32 37 32 20 54 4F 20 35 34 32 39 | S=54272 TO 5429|
00000F40: 36 20 3A 20 50 4F 4B 45 20 53 2C 30 20 3A 20 4E |6 : POKE S,0 : N|
00000F50: 45 58 54 20 53 22 00 6E 21 84 21 98 31 2C 22 31 |EXT S".n!.!.1,"1|
00000F60: 31 30 20 52 45 41 44 20 53 48 2C 53 4C 22 00 8D |10 READ SH,SL"..|
00000F70: 21 8E 21 98 31 2C 22 31 32 30 20 49 46 20 53 48 |!.!.1,"120 IF SH|
00000F80: 3D 2D 31 20 54 48 45 4E 20 31 38 30 22 00 BA 21 |=-1 THEN 180"..!|
00000F90: 98 21 98 31 2C 22 31 33 30 20 50 4F 4B 45 20 35 |.!.1,"130 POKE 5|
00000FA0: 34 32 37 33 2C 20 53 48 20 3A 20 50 4F 4B 45 20 |4273, SH : POKE |
00000FB0: 35 34 32 37 32 2C 20 53 4C 22 00 FC 21 A2 21 98 |54272, SL"..!.!.|
00000FC0: 31 2C 22 31 34 30 20 50 4F 4B 45 20 35 34 32 37 |1,"140 POKE 5427|
00000FD0: 37 2C 22 3B 41 31 3B 22 3A 20 50 4F 4B 45 20 35 |7,";A1;": POKE 5|
00000FE0: 34 32 37 38 2C 22 3B 53 31 3B 22 3A 20 50 4F 4B |4278,";S1;": POK|
00000FF0: 45 20 35 34 32 37 36 2C 22 3B 57 31 00 18 22 AC |E 54276,";W1..".|
00001000: 21 98 31 2C 22 31 35 30 20 50 4F 4B 45 20 35 34 |!.1,"150 POKE 54|
00001010: 32 39 36 2C 22 3B 56 31 00 3F 22 B6 21 98 31 2C |296,";V1.?".!.1,|
00001020: 22 31 36 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 |"160 FOR X=1 TO |
00001030: 22 3B 44 31 3B 22 3A 20 4E 45 58 54 20 58 22 00 |";D1;": NEXT X".|
00001040: 55 22 C0 21 98 31 2C 22 31 37 30 20 47 4F 54 4F |U".!.1,"170 GOTO|
00001050: 20 31 31 30 22 00 82 22 C5 21 98 31 2C 22 31 38 | 110"..".!.1,"18|
00001060: 30 20 50 4F 4B 45 20 35 34 32 39 36 2C 30 20 3A |0 POKE 54296,0 :|
00001070: 20 50 4F 4B 45 20 35 34 32 37 36 2C 22 3B 57 31 | POKE 54276,";W1|
00001080: AB 31 00 96 22 CA 21 98 31 2C 22 32 30 30 20 44 |.1..".!.1,"200 D|
00001090: 41 54 41 20 22 3B 00 CD 22 D4 21 81 4E 4E B2 30 |ATA ";..".!.NN.0|
000010A0: A4 4E AB 31 3A 98 31 2C 48 49 28 4E 4E 29 3B 22 |.N.1:.1,HI(NN);"|
000010B0: 2C 22 3B 4C 4F 28 4E 4E 29 3B 22 2C 22 3B 3A 82 |,";LO(NN);",";:.|
000010C0: 4E 4E 3A 98 31 2C 22 2D 31 2C 2D 31 22 00 FD 22 |NN:.1,"-1,-1".."|
000010D0: F2 21 98 31 3A 98 31 2C 22 54 4F 54 41 4C 20 4E |.!.1:.1,"TOTAL N|
000010E0: 4F 54 45 20 43 4F 55 4E 54 3D 22 3B 4E 4E AC 32 |OTE COUNT=";NN.2|
000010F0: 3B 22 50 4C 55 53 20 2D 31 2C 2D 31 22 00 33 23 |;"PLUS -1,-1".3#|
00001100: FC 21 98 31 3A A0 31 3A 89 39 32 30 30 3A 8F 20 |.!.1:.1:.9200:. |
00001110: 42 41 43 4B 20 46 4F 52 20 41 4E 4F 54 48 45 52 |BACK FOR ANOTHER|
00001120: 20 41 24 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | A$ ************|
00001130: 2A 2A 2A 00 4E 23 27 23 8F 20 50 55 54 20 44 41 |***.N#'#. PUT DA|
00001140: 54 41 20 49 4E 54 4F 20 41 52 52 41 59 53 00 6E |TA INTO ARRAYS.n|
00001150: 23 28 23 99 C7 28 31 39 29 3B 3A 81 58 B2 30 A4 |#(#..(19);:.X.0.|
00001160: 31 39 39 3A 99 C7 28 33 32 29 3B 3A 82 58 00 7A |199:..(32);:.X.z|
00001170: 23 2D 23 99 C7 28 31 39 29 3B 00 9C 23 32 23 99 |#-#..(19);..#2#.|
00001180: C7 28 31 38 29 22 46 31 22 C7 28 31 34 36 29 22 |.(18)"F1".(146)"|
00001190: 20 44 41 54 41 20 4F 4E 4C 59 22 3B 00 C3 23 33 | DATA ONLY";..#3|
000011A0: 23 99 A3 31 35 29 C7 28 31 38 29 22 46 32 22 C7 |#..15).(18)"F2".|
000011B0: 28 31 34 36 29 22 20 54 4F 54 41 4C 20 50 52 49 |(146)" TOTAL PRI|
000011C0: 4E 54 22 00 E7 23 3C 23 99 55 50 24 3B C7 28 31 |NT"..#<#.UP$;.(1|
000011D0: 38 29 22 46 33 22 C7 28 31 34 36 29 22 20 50 52 |8)"F3".(146)" PR|
000011E0: 41 54 49 43 45 22 3B 00 0D 24 3E 23 99 A6 35 29 |ATICE";..$>#..5)|
000011F0: C7 28 31 38 29 22 46 34 22 C7 28 31 34 36 29 22 |.(18)"F4".(146)"|
00001200: 20 50 52 49 4E 54 20 4E 4F 54 45 53 22 00 2F 24 | PRINT NOTES"./$|
00001210: 41 23 99 C7 28 31 38 29 22 46 35 22 C7 28 31 34 |A#..(18)"F5".(14|
00001220: 36 29 22 20 50 4C 41 59 20 54 55 4E 45 22 3B 00 |6)" PLAY TUNE";.|
00001230: 53 24 46 23 99 A3 31 35 29 C7 28 31 38 29 22 46 |S$F#..15).(18)"F|
00001240: 36 22 C7 28 31 34 36 29 22 20 44 55 52 41 54 49 |6".(146)" DURATI|
00001250: 4F 4E 22 00 76 24 47 23 99 55 50 24 3B C7 28 31 |ON".v$G#.UP$;.(1|
00001260: 38 29 22 46 37 22 C7 28 31 34 36 29 22 20 52 45 |8)"F7".(146)" RE|
00001270: 53 54 41 52 54 22 00 94 24 48 23 99 C7 28 31 38 |START"..$H#..(18|
00001280: 29 22 20 50 22 C7 28 31 34 36 29 22 20 50 41 55 |)" P".(146)" PAU|
00001290: 53 45 22 3B 00 BC 24 4B 23 99 A6 37 29 C7 28 31 |SE";..$K#..7).(1|
000012A0: 38 29 22 20 22 C7 28 39 34 29 C7 28 31 34 36 29 |8)" ".(94).(146)|
000012B0: 22 20 45 52 41 53 45 20 41 4C 4C 22 00 F1 24 50 |" ERASE ALL"..$P|
000012C0: 23 99 C7 28 31 39 29 3A 81 58 B2 31 A4 31 31 3A |#..(19):.X.1.11:|
000012D0: 99 3A 82 58 3A 8F 20 50 4F 53 49 54 49 4F 4E 20 |.:.X:. POSITION |
000012E0: 4C 49 4E 45 20 4F 4E 20 47 52 45 59 20 4C 49 4E |LINE ON GREY LIN|
000012F0: 45 00 1B 25 8C 23 99 22 49 4E 50 55 54 20 4E 4F |E..%.#."INPUT NO|
00001300: 54 45 53 20 49 4E 54 4F 20 41 52 52 41 59 20 52 |TES INTO ARRAY R|
00001310: 4F 55 54 49 4E 45 22 3B 55 50 24 00 51 25 BE 23 |OUTINE";UP$.Q%.#|
00001320: 41 24 B2 C7 28 39 34 29 3A 89 39 33 34 35 3A 8F |A$..(94):.9345:.|
00001330: 20 47 45 54 20 53 43 52 45 45 4E 20 41 4E 44 20 | GET SCREEN AND |
00001340: 4E 20 53 45 54 20 55 50 20 50 52 4F 50 45 52 4C |N SET UP PROPERL|
00001350: 59 00 65 25 F0 23 A1 41 24 3A 8B 41 24 B2 22 22 |Y.e%.#.A$:.A$.""|
00001360: A7 39 32 30 30 00 91 25 FA 23 8B 41 24 B2 C7 28 |.9200..%.#.A$..(|
00001370: 36 35 29 A7 20 48 49 28 4E 29 B2 32 38 3A 4C 4F |65). HI(N).28:LO|
00001380: 28 4E 29 B2 34 39 3A 89 39 34 30 30 3A 8F 20 20 |(N).49:.9400:. |
00001390: 41 00 C8 25 04 24 8B 41 24 B2 C7 28 31 39 33 29 |A..%.$.A$..(193)|
000013A0: A7 20 48 49 28 4E 29 B2 32 39 3A 4C 4F 28 4E 29 |. HI(N).29:LO(N)|
000013B0: B2 32 32 33 3A 41 24 B2 22 41 23 22 3A 89 39 34 |.223:A$."A#":.94|
000013C0: 30 30 3A 8F 20 20 41 23 00 0B 26 0E 24 8B 41 24 |00:. A#..&.$.A$|
000013D0: B2 C7 28 36 36 29 A7 20 48 49 28 4E 29 B2 31 35 |..(66). HI(N).15|
000013E0: 3A 4C 4F 28 4E 29 B2 32 31 30 3A 89 39 34 30 30 |:LO(N).210:.9400|
000013F0: 3A 8F 20 20 42 20 2A 4E 4F 54 45 20 4F 43 54 41 |:. B *NOTE OCTA|
00001400: 56 45 20 33 20 4E 4F 54 20 34 2A 00 38 26 18 24 |VE 3 NOT 4*.8&.$|
00001410: 8B 41 24 B2 C7 28 36 37 29 A7 20 48 49 28 4E 29 |.A$..(67). HI(N)|
00001420: B2 31 36 3A 4C 4F 28 4E 29 B2 31 39 35 3A 89 39 |.16:LO(N).195:.9|
00001430: 34 30 30 3A 8F 20 20 43 00 6F 26 22 24 8B 41 24 |400:. C.o&"$.A$|
00001440: B2 C7 28 31 39 35 29 A7 20 48 49 28 4E 29 B2 31 |..(195). HI(N).1|
00001450: 37 3A 4C 4F 28 4E 29 B2 31 39 35 3A 41 24 B2 22 |7:LO(N).195:A$."|
00001460: 43 23 22 3A 89 39 34 30 30 3A 8F 20 20 43 23 00 |C#":.9400:. C#.|
00001470: 9C 26 2C 24 8B 41 24 B2 C7 28 36 38 29 A7 20 48 |.&,$.A$..(68). H|
00001480: 49 28 4E 29 B2 31 38 3A 4C 4F 28 4E 29 B2 32 30 |I(N).18:LO(N).20|
00001490: 39 3A 89 39 34 30 30 3A 8F 20 20 44 00 D3 26 36 |9:.9400:. D..&6|
000014A0: 24 8B 41 24 B2 C7 28 31 39 36 29 A7 20 48 49 28 |$.A$..(196). HI(|
000014B0: 4E 29 B2 31 39 3A 4C 4F 28 4E 29 B2 32 33 39 3A |N).19:LO(N).239:|
000014C0: 41 24 B2 22 44 23 22 3A 89 39 34 30 30 3A 8F 20 |A$."D#":.9400:. |
000014D0: 20 44 23 00 FF 26 40 24 8B 41 24 B2 C7 28 36 39 | D#..&@$.A$..(69|
000014E0: 29 A7 20 48 49 28 4E 29 B2 32 31 3A 4C 4F 28 4E |). HI(N).21:LO(N|
000014F0: 29 B2 33 31 3A 89 39 34 30 30 3A 8F 20 20 45 00 |).31:.9400:. E.|
00001500: 2B 27 4A 24 8B 41 24 B2 C7 28 37 30 29 A7 20 48 |+'J$.A$..(70). H|
00001510: 49 28 4E 29 B2 32 32 3A 4C 4F 28 4E 29 B2 39 36 |I(N).22:LO(N).96|
00001520: 3A 89 39 34 30 30 3A 8F 20 20 46 00 62 27 54 24 |:.9400:. F.b'T$|
00001530: 8B 41 24 B2 C7 28 31 39 38 29 A7 20 48 49 28 4E |.A$..(198). HI(N|
00001540: 29 B2 32 33 3A 4C 4F 28 4E 29 B2 31 38 31 3A 41 |).23:LO(N).181:A|
00001550: 24 B2 22 46 23 22 3A 89 39 34 30 30 3A 8F 20 20 |$."F#":.9400:. |
00001560: 46 23 00 8E 27 5E 24 8B 41 24 B2 C7 28 37 31 29 |F#..'^$.A$..(71)|
00001570: A7 20 48 49 28 4E 29 B2 32 35 3A 4C 4F 28 4E 29 |. HI(N).25:LO(N)|
00001580: B2 33 30 3A 89 39 34 30 30 3A 8F 20 20 47 00 C5 |.30:.9400:. G..|
00001590: 27 68 24 8B 41 24 B2 C7 28 31 39 39 29 A7 20 48 |'h$.A$..(199). H|
000015A0: 49 28 4E 29 B2 32 36 3A 4C 4F 28 4E 29 B2 31 35 |I(N).26:LO(N).15|
000015B0: 36 3A 41 24 B2 22 47 23 22 3A 89 39 34 30 30 3A |6:A$."G#":.9400:|
000015C0: 8F 20 20 47 23 00 F6 27 72 24 8B 41 24 B2 C7 28 |. G#..'r$.A$..(|
000015D0: 38 30 29 A7 20 48 49 28 4E 29 B2 30 3A 4C 4F 28 |80). HI(N).0:LO(|
000015E0: 4E 29 B2 30 3A 89 39 34 30 30 3A 8F 20 20 50 20 |N).0:.9400:. P |
000015F0: 20 50 41 55 53 45 00 26 28 77 24 8B 41 24 B2 C7 | PAUSE.&(w$.A$..|
00001600: 28 31 33 33 29 A7 8D 38 30 30 30 3A 89 39 32 30 |(133)..8000:.920|
00001610: 30 3A 8F 20 46 31 20 50 52 49 4E 54 20 44 41 54 |0:. F1 PRINT DAT|
00001620: 41 20 4F 4E 4C 59 00 54 28 7C 24 8B 41 24 B2 C7 |A ONLY.T(|$.A$..|
00001630: 28 31 33 37 29 A7 8D 38 35 30 30 3A 89 39 32 30 |(137)..8500:.920|
00001640: 30 3A 8F 20 46 32 20 50 52 49 4E 54 20 52 4F 55 |0:. F2 PRINT ROU|
00001650: 54 49 4E 45 00 89 28 7D 24 8B 41 24 B2 C7 28 31 |TINE..(}$.A$..(1|
00001660: 33 34 29 A7 99 C7 28 31 34 37 29 3A 4E B2 30 3A |34)...(147):N.0:|
00001670: 89 34 35 38 3A 8F 20 46 33 20 54 4F 20 50 52 41 |.458:. F3 TO PRA|
00001680: 54 49 43 45 20 50 4C 41 59 00 A1 28 7E 24 8B 41 |TICE PLAY..(~$.A|
00001690: 24 B2 C7 28 31 33 35 29 AF 4E B2 30 A7 39 32 30 |$..(135).N.0.920|
000016A0: 30 00 CF 28 7F 24 8B 41 24 B2 C7 28 31 33 35 29 |0..(.$.A$..(135)|
000016B0: A7 8D 32 30 30 30 3A 89 39 32 30 30 3A 8F 20 46 |..2000:.9200:. F|
000016C0: 35 20 50 4C 41 59 20 54 48 45 20 54 55 4E 45 00 |5 PLAY THE TUNE.|
000016D0: F5 28 80 24 8B 41 24 B2 C7 28 31 33 36 29 A7 31 |.(.$.A$..(136).1|
000016E0: 30 3A 8F 20 46 37 20 53 54 41 52 54 20 41 4C 4C |0:. F7 START ALL|
000016F0: 20 4F 56 45 52 00 09 29 81 24 8B 41 24 B2 C7 28 | OVER..).$.A$..(|
00001700: 39 34 29 A7 31 30 30 39 30 00 3F 29 82 24 8B 41 |94).10090.?).$.A|
00001710: 24 B2 C7 28 31 33 38 29 A7 89 33 30 30 30 3A 8F |$..(138)..3000:.|
00001720: 20 46 34 20 2D 20 50 52 49 4E 54 20 4E 4F 54 45 | F4 - PRINT NOTE|
00001730: 53 20 55 53 49 4E 47 20 4C 45 54 54 45 52 53 00 |S USING LETTERS.|
00001740: 76 29 83 24 8B 41 24 B2 C7 28 31 33 39 29 A7 99 |v).$.A$..(139)..|
00001750: 3A 99 22 44 55 52 41 54 49 4F 4E 22 3B 3A 85 20 |:."DURATION";:. |
00001760: 44 31 3A 89 39 32 30 30 3A 8F 20 46 36 20 44 55 |D1:.9200:. F6 DU|
00001770: 52 41 54 49 4F 4E 00 8C 29 86 24 8B 41 24 B3 B1 |RATION..).$.A$..|
00001780: C7 28 38 30 29 A7 20 89 39 32 30 30 00 C0 29 B8 |.(80). .9200..).|
00001790: 24 97 53 48 2C 48 49 28 4E 29 3A 97 53 4C 2C 4C |$.SH,HI(N):.SL,L|
000017A0: 4F 28 4E 29 3A 97 53 41 2C 41 31 3A 97 53 53 2C |O(N):.SA,A1:.SS,|
000017B0: 53 31 3A 97 53 57 2C 57 31 3A 97 53 56 2C 56 31 |S1:.SW,W1:.SV,V1|
000017C0: 00 CF 29 C2 24 81 58 B2 31 A4 44 31 3A 82 58 00 |..).$.X.1.D1:.X.|
000017D0: 0C 2A CC 24 99 41 24 3B 22 20 22 3B 3A 97 53 56 |.*.$.A$;" ";:.SV|
000017E0: 2C 31 36 3A 97 53 57 2C 57 31 AB 31 3A 4C 4E 24 |,16:.SW,W1.1:LN$|
000017F0: 28 4E 29 B2 41 24 3A 8F 20 50 55 54 20 4C 4E 20 |(N).A$:. PUT LN |
00001800: 2D 20 4C 49 53 54 20 4E 4F 54 45 53 00 4F 2A E0 |- LIST NOTES.O*.|
00001810: 24 4E B2 4E AA 31 3A 89 39 32 30 30 20 3A 8F 20 |$N.N.1:.9200 :. |
00001820: 49 4E 43 52 45 41 53 45 20 41 52 52 41 59 20 43 |INCREASE ARRAY C|
00001830: 4F 55 4E 54 20 26 20 47 4F 20 42 41 43 4B 20 46 |OUNT & GO BACK F|
00001840: 4F 52 20 41 4E 4F 54 48 45 52 20 4E 4F 54 45 00 |OR ANOTHER NOTE.|
00001850: 9B 2A 0F 27 8F 20 2A 2A 2A 20 54 48 49 53 20 49 |.*.'. *** THIS I|
00001860: 53 20 53 43 52 4F 4C 4C 20 54 59 50 45 20 52 4F |S SCROLL TYPE RO|
00001870: 55 54 49 4E 45 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |UTINE***********|
00001880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AB 2A 10 27 |***********..*.'|
000018A0: 81 49 B2 30 A4 C3 28 51 54 24 29 00 D9 2A 1A 27 |.I.0..(QT$)..*.'|
000018B0: 97 53 56 2C 37 3A 97 53 48 2C 31 32 36 3A 97 53 |.SV,7:.SH,126:.S|
000018C0: 4C 2C 36 3A 97 53 41 2C 31 32 30 3A 97 53 53 2C |L,6:.SA,120:.SS,|
000018D0: 33 30 3A 97 53 57 2C 33 33 00 F6 2A 24 27 99 C8 |30:.SW,33..*$'..|
000018E0: 28 51 54 24 2C 49 AA 31 29 3A 97 53 56 2C 30 3A |(QT$,I.1):.SV,0:|
000018F0: 97 53 57 2C 33 32 00 10 2B 2E 27 99 55 50 24 55 |.SW,32..+.'.UP$U|
00001900: 50 24 3A 81 58 B2 31 A4 34 30 3A 82 58 3A 82 49 |P$:.X.1.40:.X:.I|
00001910: 00 2B 2B 38 27 81 53 B2 35 34 32 37 32 A4 35 34 |.++8'.S.54272.54|
00001920: 32 39 36 3A 97 53 2C 30 3A 82 53 00 3D 2B 42 27 |296:.S,0:.S.=+B'|
00001930: 81 58 B2 31 A4 31 30 30 3A 82 58 3A 8E 00 88 2B |.X.1.100:.X:...+|
00001940: 69 27 8F 20 2A 2A 2A 20 43 4C 45 41 4E 20 55 50 |i'. *** CLEAN UP|
00001950: 20 41 52 52 41 59 20 53 43 52 45 45 4E 20 2A 2A | ARRAY SCREEN **|
00001960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001980: 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 2B 6A 27 45 52 B2 |********..+j'ER.|
00001990: 4E AA 37 39 3A 8F 20 45 52 20 3D 20 45 52 41 53 |N.79:. ER = ERAS|
000019A0: 45 20 4E 4F 54 45 53 20 49 4E 20 41 52 52 41 59 |E NOTES IN ARRAY|
000019B0: 00 D8 2B 74 27 81 4D 44 B2 30 A4 45 52 3A 97 31 |..+t'.MD.0.ER:.1|
000019C0: 36 36 34 AA 4D 44 2C 31 36 30 3A 97 31 36 36 34 |664.MD,160:.1664|
000019D0: AA 4D 44 AA 31 2C 36 32 00 FA 2B 79 27 97 35 35 |.MD.1,62..+y'.55|
000019E0: 39 33 36 AA 4D 44 2C 31 3A 97 35 35 39 33 36 AA |936.MD,1:.55936.|
000019F0: 4D 44 AA 31 2C 32 3A 82 4D 44 00 12 2C 7E 27 99 |MD.1,2:.MD..,~'.|
00001A00: C7 28 31 39 29 3A 81 58 B2 31 A4 31 32 3A 99 3A |.(19):.X.1.12:.:|
00001A10: 82 58 00 20 2C 88 27 4E B2 30 3A 89 39 32 30 30 |.X. ,.'N.0:.9200|
00001A20: 00 6B 2C DF 2E 8F 20 2A 2A 2A 20 54 49 54 4C 45 |.k,... *** TITLE|
00001A30: 20 53 43 52 45 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A | SCREEN ********|
00001A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 2C E0 2E |***********..,..|
00001A70: 99 C7 28 31 34 37 29 C7 28 35 29 3A 97 35 33 32 |..(147).(5):.532|
00001A80: 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 A7 2C |81,0:.53280,0..,|
00001A90: E2 2E 81 53 B2 35 34 32 37 32 A4 35 34 32 39 36 |...S.54272.54296|
00001AA0: 3A 97 53 2C 30 3A 82 00 EC 2C E4 2E 53 56 B2 35 |:.S,0:...,..SV.5|
00001AB0: 34 32 39 36 3A 53 48 B2 35 34 32 37 33 3A 53 4C |4296:SH.54273:SL|
00001AC0: B2 35 34 32 37 32 3A 53 41 B2 35 34 32 37 37 3A |.54272:SA.54277:|
00001AD0: 53 53 B2 35 34 32 37 38 3A 53 57 B2 35 34 32 37 |SS.54278:SW.5427|
00001AE0: 36 3A 55 50 24 B2 C7 28 31 34 35 29 00 FC 2C EA |6:UP$..(145)..,.|
00001AF0: 2E 81 58 B2 31 A4 35 3A 99 3A 82 58 00 14 2D F4 |..X.1.5:.:.X..-.|
00001B00: 2E 99 22 54 4F 54 41 4C 20 4D 55 53 49 43 20 36 |.."TOTAL MUSIC 6|
00001B10: 34 22 3A 99 00 2E 2D FE 2E 51 54 24 B2 22 31 39 |4":...-..QT$."19|
00001B20: 38 34 22 3A 8D 31 30 30 30 30 3A 99 3A 99 00 5A |84":.10000:.:..Z|
00001B30: 2D 08 2F 51 54 24 B2 22 42 59 20 47 41 52 59 20 |-./QT$."BY GARY |
00001B40: 46 49 45 4C 44 53 22 3A 8D 31 30 30 30 30 3A 81 |FIELDS":.10000:.|
00001B50: 58 B2 31 A4 35 30 30 3A 82 58 00 8D 2D 12 2F 99 |X.1.500:.X..-./.|
00001B60: 55 50 24 55 50 24 55 50 24 3A 51 54 24 B2 22 56 |UP$UP$UP$:QT$."V|
00001B70: 4F 49 43 45 20 31 20 2F 20 4F 43 54 41 56 45 20 |OICE 1 / OCTAVE |
00001B80: 34 22 3A 8D 31 30 30 30 30 3A 99 3A 99 00 C2 2D |4":.10000:.:...-|
00001B90: 1C 2F 51 54 24 B2 22 54 48 49 53 20 41 49 44 20 |./QT$."THIS AID |
00001BA0: 43 4F 4E 56 45 52 54 53 20 53 4F 55 4E 44 20 54 |CONVERTS SOUND T|
00001BB0: 4F 20 44 41 54 41 22 3A 8D 31 30 30 30 30 3A 99 |O DATA":.10000:.|
00001BC0: 3A 99 00 E9 2D 21 2F 51 54 24 B2 22 46 31 2D 20 |:...-!/QT$."F1- |
00001BD0: 44 41 54 41 20 4F 4E 4C 59 20 50 52 49 4E 54 22 |DATA ONLY PRINT"|
00001BE0: 3A 8D 31 30 30 30 30 3A 99 00 15 2E 22 2F 51 54 |:.10000:...."/QT|
00001BF0: 24 B2 22 46 32 2D 20 54 4F 54 41 4C 20 50 52 4F |$."F2- TOTAL PRO|
00001C00: 47 52 41 4D 20 57 2F 44 41 54 41 22 3A 8D 31 30 |GRAM W/DATA":.10|
00001C10: 30 30 30 3A 99 00 43 2E 23 2F 51 54 24 B2 22 46 |000:..C.#/QT$."F|
00001C20: 34 2D 20 43 4F 4E 56 45 52 54 53 20 44 41 54 41 |4- CONVERTS DATA|
00001C30: 20 54 4F 20 4E 4F 54 45 53 22 3A 8D 31 30 30 30 | TO NOTES":.1000|
00001C40: 30 3A 99 00 53 2E 26 2F 81 58 B2 31 A4 35 30 30 |0:..S.&/.X.1.500|
00001C50: 3A 82 58 00 5F 2E 30 2F 99 C7 28 31 34 37 29 00 |:.X._.0/..(147).|
00001C60: 82 2E 3A 2F 99 C7 28 31 38 29 22 20 4C 45 54 54 |..:/..(18)" LETT|
00001C70: 45 52 20 3D 20 4E 4F 54 45 20 20 20 20 20 20 22 |ER = NOTE "|
00001C80: 3A 99 00 98 2E 44 2F 99 22 20 20 20 20 20 20 41 |:....D/." A|
00001C90: 20 3D 20 41 20 20 20 22 00 AE 2E 46 2F 99 22 20 | = A "...F/." |
00001CA0: 20 20 20 20 20 42 20 3D 20 42 20 20 20 22 00 C4 | B = B "..|
00001CB0: 2E 48 2F 99 22 20 20 20 20 20 20 43 20 3D 20 43 |.H/." C = C|
00001CC0: 20 20 20 22 00 DA 2E 4A 2F 99 22 53 48 49 46 54 | "...J/."SHIFT|
00001CD0: 2F 43 20 3D 20 43 23 20 20 22 00 F0 2E 4C 2F 99 |/C = C# "...L/.|
00001CE0: 22 20 20 20 20 20 20 44 20 3D 20 44 20 20 20 22 |" D = D "|
00001CF0: 00 06 2F 4E 2F 99 22 53 48 49 46 54 2F 44 20 3D |../N/."SHIFT/D =|
00001D00: 20 44 23 20 20 22 00 1C 2F 50 2F 99 22 20 20 20 | D# "../P/." |
00001D10: 20 20 20 45 20 3D 20 45 20 20 20 22 00 32 2F 52 | E = E ".2/R|
00001D20: 2F 99 22 20 20 20 20 20 20 46 20 3D 20 46 20 20 |/." F = F |
00001D30: 20 22 00 48 2F 54 2F 99 22 53 48 49 46 54 2F 46 | ".H/T/."SHIFT/F|
00001D40: 20 3D 20 46 23 20 20 22 00 5E 2F 56 2F 99 22 20 | = F# ".^/V/." |
00001D50: 20 20 20 20 20 47 20 3D 20 47 20 20 20 22 00 74 | G = G ".t|
00001D60: 2F 58 2F 99 22 53 48 49 46 54 2F 47 20 3D 20 47 |/X/."SHIFT/G = G|
00001D70: 23 20 20 22 00 8D 2F 5A 2F 99 22 20 20 20 20 20 |# "../Z/." |
00001D80: 20 50 20 3D 20 50 41 55 53 45 22 3A 99 00 C1 2F | P = PAUSE":.../|
00001D90: 5C 2F 99 C7 28 31 38 29 22 4F 54 48 45 52 20 4B |\/..(18)"OTHER K|
00001DA0: 45 59 53 20 41 52 45 20 45 4D 50 54 59 22 3A 81 |EYS ARE EMPTY":.|
00001DB0: 58 B2 30 A4 33 39 3A 99 C7 28 34 35 29 3B 3A 82 |X.0.39:..(45);:.|
00001DC0: 58 00 EB 2F 5D 2F 99 22 55 50 20 54 4F 20 32 30 |X../]/."UP TO 20|
00001DD0: 30 20 4E 4F 54 45 53 20 43 41 4E 20 42 45 20 43 |0 NOTES CAN BE C|
00001DE0: 4F 4E 53 54 52 55 43 54 45 44 22 00 0C 30 60 2F |ONSTRUCTED"..0`/|
00001DF0: 51 54 24 B2 22 4E 4F 54 45 53 20 43 41 4E 20 42 |QT$."NOTES CAN B|
00001E00: 45 20 22 3A 8D 31 30 30 30 30 3A 99 00 39 30 61 |E ":.10000:..90a|
00001E10: 2F 51 54 24 B2 22 50 4C 41 59 45 44 20 41 53 20 |/QT$."PLAYED AS |
00001E20: 4E 4F 54 45 53 22 3A 8D 31 30 30 30 30 3A 81 58 |NOTES":.10000:.X|
00001E30: B2 31 A4 31 30 30 3A 82 58 00 66 30 64 2F 51 54 |.1.100:.X.f0d/QT|
00001E40: 24 B2 22 50 52 49 4E 54 45 44 20 41 53 20 44 41 |$."PRINTED AS DA|
00001E50: 54 41 22 3A 8D 31 30 30 30 30 3A 81 58 B2 31 A4 |TA":.10000:.X.1.|
00001E60: 31 30 30 3A 82 58 00 93 30 66 2F 51 54 24 B2 22 |100:.X..0f/QT$."|
00001E70: 4C 49 53 54 45 44 20 41 53 20 4E 4F 54 45 53 22 |LISTED AS NOTES"|
00001E80: 3A 8D 31 30 30 30 30 3A 81 58 B2 31 A4 31 30 30 |:.10000:.X.1.100|
00001E90: 3A 82 58 00 CA 30 68 2F 51 54 24 B2 22 50 52 49 |:.X..0h/QT$."PRI|
00001EA0: 4E 54 45 44 20 41 53 20 41 20 50 52 4F 47 52 41 |NTED AS A PROGRA|
00001EB0: 4D 20 49 4E 43 4C 55 44 49 4E 47 20 44 41 54 41 |M INCLUDING DATA|
00001EC0: 22 3A 8D 31 30 30 30 30 3A 99 00 E5 30 A8 2F 99 |":.10000:...0./.|
00001ED0: 22 3C 41 4E 59 20 4B 45 59 3E 20 54 4F 20 42 45 |"<ANY KEY> TO BE|
00001EE0: 47 49 4E 22 3A 00 FB 30 B2 2F A1 20 41 24 3A 8B |GIN":..0./. A$:.|
00001EF0: 41 24 B2 22 22 A7 31 32 32 31 30 00 42 31 D4 30 |A$."".12210.B1.0|
00001F00: 8E 3A 8F 20 2A 2A 20 42 41 43 4B 20 54 4F 20 4D |.:. ** BACK TO M|
00001F10: 41 49 4E 20 50 52 4F 47 52 41 4D 20 2A 2A 2A 2A |AIN PROGRAM ****|
00001F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F40: 2A 2A 00 00 00 |**... |
....... TOTAL MUSIC 64 ***.&.... 12000.@
....: . VOICE 1 NOTES...... HI(200),L
O(200),LN$(200):. TOTAL NUMBER OF NOTES
POSSIBLE IS 200......53281,1:.53280,1:.G
(144)G(147).E...UP$.G(145):LF$.G(157)...
(..S.54272.54296:.S,0:....2.SV.54296:SH.
54273:SL.54272:SA.54277:SS.54278:SW.5427
6.=.D.."VOLUME [1-15]";G(32)G(32)"15".Z.
E..UP$;:.X.1.13:.G(29);:.X.C.F..V1$.Q.I.
V1.E(V1$)...N..V1.1.V1.15..7000...R..V1.
1.V1.15..UP$UP$UP$:.100...}..X.1.22:.G(3
2);:.:..O.H.."WAVEFORM"...J...10)G(18)"T
";G(146);"RIANGULAR"...L...10)G(18)"S";G
(146);"AWTOOTH".7.N...10)G(18)"P";G(146)
;"ULSE".E.P...10)G(18)"N";G(146);"OISE";
G(32)G(32)"T"...Q..UP$;:.X.1.15:.G(29);:
.:.W1$. .R..W1$."T".W1.17:.:.300...T..W1
$."S".W1.33:.:.300.T.V..W1$."P".W1.65:.:
.300...X..W1$."N".W1.129:.:.300......W1$
.."N"..7000.(....W1$.."N". .X.1.6:.UP$;:
.:.:.200.R.,.."ATTACK/DECAY [0-240]";G(3
2)G(32)"0".T....UP$;:.X.1.20:.G(29);:.X:
.A1$...6.A1.E(A1$)...@..A1.0.A1.240..700
0...J..A1.0.A1.240..UP$UP$:.300......"SU
STAIN/RELEASE [0-240]";G(32)G(32)"240"..
....UP$;:.X.1.23:.G(29);:.X:.S1$.....S1.
E(S1$).-....S1.0.S1.240..7000.K....S1.0.
S1.240..UP$UP$:.400.U.B..:."DURATION OF
NOTE";G(32)G(32)"128"...C..UP$;:.X.1.16:
.G(29);:.X:.D1$...D..H(D1$,1)."0".H(D1$,
1)."9"..7000...F..H(D1$,1)."0".H(D1$,1).
"9"..UP$UP$UP$:.450...H.D1.E(D1$):....J.
.X.1.400:.X.6.L..G(147)G(18)"F3"G(146)"
PRINT & PLAY";.Y.M...24)G(18)"F7"G(146)"
RESTART".W.N..G(18)" P"G(146)" PAUSE";.
.O...12)G(18)"RETURN"G(146)" LINE FEED"
.F.P..G(18)" "G(94)G(146)" ERASE ALL";..
.Q...6)G(18)"INST/DEL"G(146)" ERASE NOTE
" :.:.. .S..MD.0.39:.1624.MD,67:.55896.M
D,12:.MD.3....A$:.A$."".480.V.... **** A
$ SELECTION FOR NOTES-
OCTAVE 4......A$.G(65). HI.28:LO.4
9:.700: . A.M....A$.G(193). HI.29:LO.2
23:A$."A#":.700:. A#......A$.G(66). HI.
15:LO.210:.700: . B ** NOTE OCTAVE 3 NO
T 4 ***.6....A$.G(67). HI.16:LO.195:.700
: . C.F....A$.G(195). HI.17:LO.195:A$."
C#":.700:. C#...&..A$.G(68). HI.18:LO.2
09:.700: . D...0..A$.G(196). HI.19:LO.2
39:A$."D#":.700:. D#...:..A$.G(69). HI.
21:LO.31:.700: . E...D..A$.G(70). HI.2
2:LO.96:.700: . F.;.N..A$.G(198). HI.2
3:LO.181:A$."F#":.700:. F#.B.X..A$.G(71
). HI.25:LO.30:.700: . G...B..A$.G(199
). HI.26:LO.156:A$."G#":.700:. G#.D.L..
A$.G(80). HI.0:LO.0:A$."P":.700: . P
AUSE...{..A$.G(134). 9000:. F3 GOTO PUT
TING DATA INTO ARRAYS......A$.G(136).10:
. F7 RESTART.M....A$.G(13)..UP$G(13):.48
0:. RETURN- LINE FEED.~....A$.G(20).HI.0
:LO.0:.G(157)G(157)G(32);:.480...... LIN
E650 -INST/DEL ERASE SINGLE NOTE......A$
.G(94)..460:. UP ARROW SYMBOL CLEAN UP S
CREEN......A$..G(80).HI.0:LO.0:.480.)...
.SH,HI:.SL,LO:.SA,A1:.SS,S1:.SW,W1:.SV,V
1.8....X.1.D1:.X.U....A$;" ";:.SV,16:.SW
,W1.1.^. ..480.Z.O.... . PLAY THE TUNE *
**...P..N.0 . ....U..X.54272 . 54296:.S,
0:.X.H.Z..NN.0.N.1:.SH,HI(NN):.SL,LO(NN)
......SA,A1:.SS,S1:.SW,W1:.SV,V1......X.
1.D1:.X......NN:.SV,16:.SW,W1.1.......A.
... *** PRINT NOTES USING LETTERS ******
*********************************.G.....
....QT$."NOTES BY LETTER":.10000:.X.1.50
0:.X.B...QT$."TURN PRINTER ON":. 10000:.
X.1.500:.X...B.QT$."GIVE TUNE A NAME":.1
0000:.UP$:..16);:.AW$...L..1,4...V..1,AW
$:.1.2....NN.0.N.1:.1,LN$(NN);:.1," ";:.
NN.`....1:.1,"TOTAL NOTE COUNT=";NN;"PLU
S -1,-1".P....1: 1:.9200......UP$;:.X.0.
39:.G(32);:.X:.UP$UP$UP$:......QT$."FINI
SHED":.10000:.9200...X.QT$."NOT A LEGAL
CHOICE":.10000:.X.1.50:.X...B..UP$:.X.1.
30:.G(32);:.Y.1.25:.Y:.X:..5.?.. *** DAT
A LINE ONLY PRINT ***.;.@...H.B.QT$."PRI
NT DATA ONLY":.10000:.X.1.500:.X...E.QT$
."TURN PRINTER ON":.10000:.X.1.500:.X.H.
J.QT$."GIVE TUNE A NAME":.10000:.UP$:..1
6);:.AW$.Q.T..1,4...^..1,AW$:.1.. H..NN.
0.N.1:.1,HI(NN);",";LO(NN);",";:.NN:.1,"
-1,-1".F M..1:.1,"TOTAL NOTE COUNT=";NN.
2;"PLUS -1,-1".R R..1: 1:..T 3!. *** TOT
AL PROGRAM PRINT ***.Z 4!... >!QT$."PRIN
T ROUTINE":.10000:.X.1.500:.X.R H!QT$."T
URN PRINTER ON":.10000:.X.1.500:.X..!R!Q
T$."GIVE TUNE A NAME":.10000:.UP$:..16);
:.AW$..!F!.1,4..!P!.1,AW$. !U!.1.V!Z!.1,
"100 FOR S=54272 TO 54296 : POKE S,0 : N
EXT S".N!.!.1,"110 READ SH,SL"..!.!.1,"1
20 IF SH=-1 THEN 180"..!.!.1,"130 POKE 5
4273, SH : POKE 54272, SL"..!.!.1,"140 P
OKE 54277,";A1;": POKE 54278,";S1;": POK
E 54276,";W1..".!.1,"150 POKE 54296,";V1
.?".!.1,"160 FOR X=1 TO ";D1;": NEXT X".
U".!.1,"170 GOTO 110".."E!.1,"180 POKE 5
4296,0 : POKE 54276,";W1.1.."J!.1,"200 D
ATA ";.M"T!.NN.0.N.1:.1,HI(NN);",";LO(NN
);",";:.NN:.1,"-1,-1"..".!.1:.1,"TOTAL N
OTE COUNT=";NN.2;"PLUS -1,-1".3#.!.1: 1:
.9200:. BACK FOR ANOTHER A$ ************
***.N#'#. PUT DATA INTO ARRAYS.N#(#.G(19
);:.X.0.199:.G(32);:.X.Z#-#.G(19);..#2#.
G(18)"F1"G(146)" DATA ONLY";.C#3#..15)G(
18)"F2"G(146)" TOTAL PRINT"..#<#.UP$;G(1
8)"F3"G(146)" PRATICE";..$>#..5)G(18)"F4
"G(146)" PRINT NOTES"./$A#.G(18)"F5"G(14
6)" PLAY TUNE";.S$F#..15)G(18)"F6"G(146)
" DURATION".V$G#.UP$;G(18)"F7"G(146)" RE
START"..$H#.G(18)" P"G(146)" PAUSE";..$K
#..7)G(18)" "G(94)G(146)" ERASE ALL"..$P
#.G(19):.X.1.11:.:.X:. POSITION LINE ON
GREY LINE..%.#."INPUT NOTES INTO ARRAY R
OUTINE";UP$.Q%.#A$.G(94):.9345:. GET SCR
EEN AND N SET UP PROPERLY.E%.#.A$:.A$.""
.9200..%.#.A$.G(65). HI(N).28:LO(N).49:.
9400:. A.H%.$.A$.G(193). HI(N).29:LO(N)
.223:A$."A#":.9400:. A#..&.$.A$.G(66).
HI(N).15:LO(N).210:.9400:. B *NOTE OCTA
VE 3 NOT 4*.8&.$.A$.G(67). HI(N).16:LO(N
).195:.9400:. C.O&"$.A$.G(195). HI(N).1
7:LO(N).195:A$."C#":.9400:. C#..&,$.A$.
G(68). HI(N).18:LO(N).209:.9400:. D.S&6
$.A$.G(196). HI(N).19:LO(N).239:A$."D#":
.9400:. D#..&@$.A$.G(69). HI(N).21:LO(N
).31:.9400:. E.+'J$.A$.G(70). HI(N).22:
LO(N).96:.9400:. F.B'T$.A$.G(198). HI(N
).23:LO(N).181:A$."F#":.9400:. F#..'^$.
A$.G(71). HI(N).25:LO(N).30:.9400:. G.E
'H$.A$.G(199). HI(N).26:LO(N).156:A$."G#
":.9400:. G#..'R$.A$.G(80). HI(N).0:LO(
N).0:.9400:. P PAUSE.&(W$.A$.G(133)..8
000:.9200:. F1 PRINT DATA ONLY.T(|$.A$.G
(137)..8500:.9200:. F2 PRINT ROUTINE..(}
$.A$.G(134)..G(147):N.0:.458:. F3 TO PRA
TICE PLAY..(~$.A$.G(135).N.0.9200.O($.A
$.G(135)..2000:.9200:. F5 PLAY THE TUNE.
.(.$.A$.G(136).10:. F7 START ALL OVER..)
.$.A$.G(94).10090.?).$.A$.G(138)..3000:.
F4 - PRINT NOTES USING LETTERS.V).$.A$.
G(139)..:."DURATION";:. D1:.9200:. F6 DU
RATION..).$.A$..G(80). .9200..).$.SH,HI(
N):.SL,LO(N):.SA,A1:.SS,S1:.SW,W1:.SV,V1
.O)B$.X.1.D1:.X..*L$.A$;" ";:.SV,16:.SW,
W1.1:LN$(N).A$:. PUT LN - LIST NOTES.O*.
$N.N.1:.9200 :. INCREASE ARRAY COUNT & G
O BACK FOR ANOTHER NOTE..*.'. *** THIS I
S SCROLL TYPE ROUTINE*******************
*******************..*.'.I.0.C(QT$).Y*.'
.SV,7:.SH,126:.SL,6:.SA,120:.SS,30:.SW,3
3..*$'.H(QT$,I.1):.SV,0:.SW,32..+.'.UP$U
P$:.X.1.40:.X:.I.++8'.S.54272.54296:.S,0
:.S.=+B'.X.1.100:.X:...+I'. *** CLEAN UP
ARRAY SCREEN **************************
****************..+J'ER.N.79:. ER = ERAS
E NOTES IN ARRAY.X+T'.MD.0.ER:.1664.MD,1
60:.1664.MD.1,62..+Y'.55936.MD,1:.55936.
MD.1,2:.MD..,~'.G(19):.X.1.12:.:.X. ,.'N
.0:.9200.K,... *** TITLE SCREEN ********
****************************************
***..,...G(147)G(5):.53281,0:.53280,0..,
...S.54272.54296:.S,0:...,..SV.54296:SH.
54273:SL.54272:SA.54277:SS.54278:SW.5427
6:UP$.G(145)..,...X.1.5:.:.X..-..."TOTAL
MUSIC 64":...-..QT$."1984":.10000:.:..Z
-./QT$."BY GARY FIELDS":.10000:.X.1.500:
.X..-./.UP$UP$UP$:QT$."VOICE 1 / OCTAVE
4":.10000:.:..B-./QT$."THIS AID CONVERTS
SOUND TO DATA":.10000:.:...-!/QT$."F1-
DATA ONLY PRINT":.10000:...."/QT$."F2- T
OTAL PROGRAM W/DATA":.10000:..C.#/QT$."F
4- CONVERTS DATA TO NOTES":.10000:..S.&/
.X.1.500:.X._.0/.G(147)...:/.G(18)" LETT
ER = NOTE ":....D/." A = A "
...F/." B = B ".D.H/." C = C
".Z.J/."SHIFT/C = C# "...L/." D
= D "../N/."SHIFT/D = D# "../P/."
E = E ".2/R/." F = F ".H/T/.
"SHIFT/F = F# ".^/V/." G = G ".T
/X/."SHIFT/G = G# "../Z/." P = PAU
SE":..A/\/.G(18)"OTHER KEYS ARE EMPTY":.
X.0.39:.G(45);:.X../]/."UP TO 200 NOTES
CAN BE CONSTRUCTED"..0`/QT$."NOTES CAN B
E ":.10000:..90A/QT$."PLAYED AS NOTES":.
10000:.X.1.100:.X.F0D/QT$."PRINTED AS DA
TA":.10000:.X.1.100:.X..0F/QT$."LISTED A
S NOTES":.10000:.X.1.100:.X.J0H/QT$."PRI
NTED AS A PROGRAM INCLUDING DATA":.10000
:...0./."<ANY KEY> TO BEGIN":..0./. A$:.
A$."".12210.B1T0.:. ** BACK TO MAIN PROG
RAM ************************************
**...
> CLICK IMAGE PREVIEW FOR FULL MODAL