13-7
FILE INFORMATION
FILENAME(S): 13-7
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
a4e69200af96e4f1f7c9ebd2fe11c938710b45d02366f6f0a07177c97018750b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 13-7 | PRG | DuncanTwain | 27 | 7 | DOWNLOAD FILE |
| PROG 64 WEST | 13-7 | PRG | DuncanTwain | 27 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 00 00 8F 20 2A 20 20 20 20 20 50 52 |..$.... * PR| 00000010: 4F 47 52 41 4D 20 20 20 20 20 31 33 2D 37 20 20 |OGRAM 13-7 | 00000020: 20 20 20 2A 00 63 08 01 00 8D 20 32 30 30 30 3A | *.c.... 2000:| 00000030: 20 4E 42 B2 33 32 3A 20 85 20 22 4E 55 4D 42 45 | NB.32: . "NUMBE| 00000040: 52 20 4F 46 20 42 45 41 54 53 20 20 20 28 31 2D |R OF BEATS (1-| 00000050: 33 32 3A 20 44 45 46 41 55 4C 54 3D 33 32 29 22 |32: DEFAULT=32)"| 00000060: 3B 4E 42 00 99 08 02 00 54 4D B2 35 3A 20 85 20 |;NB.....TM.5: . | 00000070: 22 54 45 4D 50 4F 20 20 20 20 20 20 20 20 20 20 |"TEMPO | 00000080: 20 20 20 28 31 2D 35 30 3A 20 44 45 46 41 55 4C | (1-50: DEFAUL| 00000090: 54 3D 20 35 29 22 3B 54 4D 00 D1 08 03 00 41 24 |T= 5)";TM.....A$| 000000A0: B2 22 4E 22 3A 20 85 20 22 43 4C 45 41 52 20 52 |."N": . "CLEAR R| 000000B0: 48 59 54 48 4D 53 3F 20 20 20 28 59 2F 4E 3A 20 |HYTHMS? (Y/N: | 000000C0: 44 45 46 41 55 4C 54 20 49 53 20 4E 29 22 3B 41 |DEFAULT IS N)";A| 000000D0: 24 00 E7 08 04 00 8B 20 41 24 B2 22 59 22 20 A7 |$...... A$."Y" .| 000000E0: 20 8D 20 36 30 30 30 00 1F 09 05 00 41 24 B2 22 | . 6000.....A$."| 000000F0: 4E 22 3A 20 85 20 22 4C 4F 41 44 20 52 48 59 54 |N": . "LOAD RHYT| 00000100: 48 4D 53 20 20 20 20 20 28 59 2F 4E 3A 20 44 45 |HMS (Y/N: DE| 00000110: 46 41 55 4C 54 20 49 53 20 4E 29 22 3B 41 24 00 |FAULT IS N)";A$.| 00000120: 35 09 06 00 8B 20 41 24 B2 22 59 22 20 A7 20 8D |5.... A$."Y" . .| 00000130: 20 37 30 30 30 00 61 09 08 00 47 52 24 B2 22 20 | 7000.a...GR$." | 00000140: C2 2B 2B 2B C2 2B 2B 2B C2 2B 2B 2B C2 2B 2B 2B |.+++.+++.+++.+++| 00000150: C2 2B 2B 2B C2 2B 2B 2B C2 2B 2B 2B C2 2B 2B 2B |.+++.+++.+++.+++| 00000160: 22 00 8E 09 09 00 50 53 24 B2 22 20 2E 2E 2E 2E |".....PS$." ....| 00000170: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000180: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 A6 |............."..| 00000190: 09 0A 00 99 20 22 93 11 11 22 20 C8 28 47 52 24 |.... "..." .(GR$| 000001A0: 2C 4E 42 AA 31 29 00 C6 09 14 00 81 20 4A B2 31 |,NB.1)...... J.1| 000001B0: 20 A4 20 33 3A 20 99 20 C8 28 50 53 24 2C 4E 42 | . 3: . .(PS$,NB| 000001C0: AA 31 29 3A 20 82 00 E7 09 1E 00 99 20 22 13 22 |.1): ....... "."| 000001D0: 3B 3A 20 97 20 35 33 32 38 30 2C 36 3A 20 97 20 |;: . 53280,6: . | 000001E0: 36 35 30 2C 31 32 38 00 02 0A 32 00 8D 20 33 30 |650,128...2.. 30| 000001F0: 30 30 3A 20 20 20 8F 20 53 45 54 20 55 50 20 53 |00: . SET UP S| 00000200: 49 44 00 24 0A 3C 00 8D 20 35 30 30 30 3A 20 20 |ID.$.<.. 5000: | 00000210: 20 8F 20 4C 4F 41 44 20 4D 41 43 48 49 4E 45 20 | . LOAD MACHINE | 00000220: 43 4F 44 45 00 50 0A 46 00 4E 24 B2 22 30 30 30 |CODE.P.F.N$."000| 00000230: 30 30 30 22 3A 20 20 8F 20 53 54 52 49 4E 47 20 |000": . STRING | 00000240: 46 4F 52 20 55 53 45 20 57 49 54 48 20 54 49 24 |FOR USE WITH TI$| 00000250: 00 62 0A 64 00 99 20 22 20 22 3A 20 99 20 22 91 |.b.d.. " ": . ".| 00000260: 22 3B 00 79 0A 6E 00 54 49 24 B2 4E 24 3A 20 97 |";.y.n.TI$.N$: .| 00000270: 20 35 36 33 33 34 2C 31 37 00 99 0A 78 00 99 20 | 56334,17...x.. | 00000280: 22 20 D6 9D 22 3B 3A 20 97 20 32 35 32 2C 42 54 |" ..";: . 252,BT| 00000290: 3A 20 9E 20 34 39 32 30 30 00 AB 0A 82 00 8B 20 |: . 49200...... | 000002A0: 54 49 B3 54 4D 20 89 20 31 33 30 00 CE 0A 8C 00 |TI.TM . 130.....| 000002B0: 42 54 B2 42 54 AA 31 3A 20 8B 20 42 54 B2 4E 42 |BT.BT.1: . BT.NB| 000002C0: 20 A7 20 42 54 B2 30 3A 20 89 20 31 30 30 00 D8 | . BT.0: . 100..| 000002D0: 0A 96 00 89 20 31 31 30 00 FB 0A CF 07 8F 20 2D |.... 110...... -| 000002E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 08 0B D0 07 |-----------.....| 00000300: 53 49 B2 35 34 32 37 32 00 47 0B DA 07 97 20 53 |SI.54272.G.... S| 00000310: 49 AA 34 2C 38 3A 20 97 20 53 49 AA 31 31 2C 38 |I.4,8: . SI.11,8| 00000320: 3A 20 97 20 53 49 AA 31 38 2C 38 3A 20 8F 20 52 |: . SI.18,8: . R| 00000330: 45 2D 45 4E 41 42 4C 45 20 4E 4F 49 53 45 20 57 |E-ENABLE NOISE W| 00000340: 41 56 45 46 4F 52 4D 00 60 0B E4 07 81 49 B2 53 |AVEFORM.`....I.S| 00000350: 49 20 A4 20 53 49 AA 32 38 3A 20 97 20 49 2C 30 |I . SI.28: . I,0| 00000360: 00 6E 0B EE 07 97 20 53 49 AA 32 34 2C 38 00 74 |.n.... SI.24,8.t| 00000370: 0B F8 07 8E 00 97 0B B7 0B 8F 20 2D 2D 2D 2D 2D |.......... -----| 00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000390: 2D 2D 2D 2D 2D 2D 2D 00 B9 0B B8 0B 8F 20 4C 4F |-------...... LO| 000003A0: 41 44 20 49 4E 53 54 52 55 4D 45 4E 54 20 44 45 |AD INSTRUMENT DE| 000003B0: 46 49 4E 49 54 49 4F 4E 53 00 00 0C C2 0B 8F 20 |FINITIONS...... | 000003C0: 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 20 |DATA STATEMENTS | 000003D0: 46 4F 52 20 54 48 45 20 36 20 27 49 4E 53 54 52 |FOR THE 6 'INSTR| 000003E0: 55 4D 45 4E 54 53 27 2E 20 45 41 43 48 20 53 54 |UMENTS'. EACH ST| 000003F0: 41 54 45 4D 45 4E 54 20 44 45 46 49 4E 45 53 3A |ATEMENT DEFINES:| 00000400: 00 11 0C D6 0B 8F 20 31 20 46 52 45 51 20 4C 4F |...... 1 FREQ LO| 00000410: 57 00 21 0C D7 0B 8F 20 32 20 46 52 45 51 20 48 |W.!.... 2 FREQ H| 00000420: 49 00 31 0C D8 0B 8F 20 33 20 50 57 20 20 20 4C |I.1.... 3 PW L| 00000430: 4F 00 41 0C D9 0B 8F 20 34 20 50 57 20 20 20 48 |O.A.... 4 PW H| 00000440: 49 00 59 0C DA 0B 8F 20 35 20 57 41 56 45 46 4F |I.Y.... 5 WAVEFO| 00000450: 52 4D 20 2B 20 47 41 54 45 00 72 0C DB 0B 8F 20 |RM + GATE.r.... | 00000460: 36 20 41 54 54 41 43 4B 20 2B 20 20 20 44 45 43 |6 ATTACK + DEC| 00000470: 41 59 00 8D 0C DC 0B 8F 20 37 20 53 55 53 54 41 |AY...... 7 SUSTA| 00000480: 49 4E 20 2B 20 20 52 45 4C 45 41 53 45 00 C2 0C |IN + RELEASE...| 00000490: DD 0B 8F 20 20 50 4C 55 53 20 4F 4E 45 20 27 44 |... PLUS ONE 'D| 000004A0: 55 4D 4D 59 27 20 42 59 54 45 20 54 4F 20 47 49 |UMMY' BYTE TO GI| 000004B0: 56 45 20 41 4E 20 38 2D 42 59 54 45 20 42 4C 4F |VE AN 8-BYTE BLO| 000004C0: 43 4B 00 D1 0C DF 0B 83 20 22 49 4E 53 54 52 53 |CK...... "INSTRS| 000004D0: 22 00 F5 0C E0 0B 83 20 30 30 30 2C 30 31 30 2C |"...... 000,010,| 000004E0: 30 30 30 2C 30 30 30 2C 30 31 37 2C 30 32 34 2C |000,000,017,024,| 000004F0: 30 30 38 2C 30 00 19 0D EA 0B 83 20 30 30 30 2C |008,0...... 000,| 00000500: 30 31 35 2C 30 30 30 2C 30 30 30 2C 30 31 37 2C |015,000,000,017,| 00000510: 30 32 33 2C 30 30 37 2C 30 00 3D 0D F4 0B 83 20 |023,007,0.=.... | 00000520: 30 30 30 2C 30 31 35 2C 30 30 30 2C 30 30 30 2C |000,015,000,000,| 00000530: 31 32 39 2C 30 30 36 2C 30 30 30 2C 30 00 61 0D |129,006,000,0.a.| 00000540: FE 0B 83 20 30 37 35 2C 30 30 31 2C 30 30 30 2C |... 075,001,000,| 00000550: 30 30 38 2C 30 36 35 2C 30 32 35 2C 30 30 38 2C |008,065,025,008,| 00000560: 30 00 85 0D 08 0C 83 20 30 30 30 2C 32 32 36 2C |0...... 000,226,| 00000570: 30 30 30 2C 30 30 30 2C 31 32 39 2C 30 32 35 2C |000,000,129,025,| 00000580: 30 30 38 2C 30 00 A9 0D 12 0C 83 20 32 35 35 2C |008,0...... 255,| 00000590: 32 35 33 2C 30 30 30 2C 30 30 30 2C 31 32 39 2C |253,000,000,129,| 000005A0: 30 34 30 2C 30 30 38 2C 30 00 D6 0D 1C 0C 8C 3A |040,008,0......:| 000005B0: 20 81 20 4A B2 31 20 A4 20 31 45 39 3A 20 87 20 | . J.1 . 1E9: . | 000005C0: 58 24 3A 20 8B 20 58 24 B3 B1 22 49 4E 53 54 52 |X$: . X$.."INSTR| 000005D0: 53 22 20 A7 20 82 00 FD 0D 26 0C 81 20 4A B2 30 |S" . ....&.. J.0| 000005E0: 20 A4 20 36 AC 38 AB 31 3A 20 87 20 58 3A 20 97 | . 6.8.1: . X: .| 000005F0: 20 34 39 31 35 32 AA 4A 2C 58 3A 20 82 00 2F 0E | 49152.J,X: ../.| 00000600: 30 0C 8F 20 50 4F 4B 45 20 44 41 54 41 20 49 4E |0.. POKE DATA IN| 00000610: 54 4F 20 52 41 4D 20 46 4F 52 20 41 43 43 45 53 |TO RAM FOR ACCES| 00000620: 53 20 42 59 20 4D 4C 20 52 4F 55 54 49 4E 45 00 |S BY ML ROUTINE.| 00000630: 35 0E 3A 0C 8E 00 58 0E 86 13 8F 20 2D 2D 2D 2D |5.:...X.... ----| 00000640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000650: 2D 2D 2D 2D 2D 2D 2D 2D 00 62 0E 87 13 83 22 4D |--------.b...."M| 00000660: 4C 22 00 A6 0E 88 13 83 20 31 36 35 2C 32 35 32 |L"...... 165,252| 00000670: 2C 31 34 31 2C 32 34 35 2C 31 39 32 2C 39 2C 33 |,141,245,192,9,3| 00000680: 32 2C 31 34 31 2C 32 34 36 2C 31 39 32 2C 37 33 |2,141,246,192,73| 00000690: 2C 39 36 2C 31 34 31 2C 32 34 37 2C 31 39 32 2C |,96,141,247,192,| 000006A0: 33 32 2C 32 32 38 00 EA 0E 89 13 83 20 32 35 35 |32,228...... 255| 000006B0: 2C 32 30 31 2C 30 2C 32 34 30 2C 35 34 2C 31 34 |,201,0,240,54,14| 000006C0: 31 2C 32 34 33 2C 31 39 32 2C 31 36 32 2C 33 2C |1,243,192,162,3,| 000006D0: 32 32 31 2C 32 33 39 2C 31 39 32 2C 32 30 38 2C |221,239,192,208,| 000006E0: 31 37 2C 31 38 39 2C 32 34 34 00 2F 0F 8A 13 83 |17,189,244./....| 000006F0: 20 31 39 32 2C 31 37 30 2C 31 36 39 2C 36 33 2C | 192,170,169,63,| 00000700: 31 35 37 2C 39 32 2C 31 39 33 2C 31 36 39 2C 34 |157,92,193,169,4| 00000710: 36 2C 33 32 2C 32 31 34 2C 31 39 32 2C 37 36 2C |6,32,214,192,76,| 00000720: 31 32 34 2C 31 39 32 2C 32 30 32 2C 32 30 38 00 |124,192,202,208.| 00000730: 73 0F 8B 13 83 20 32 33 31 2C 31 37 33 2C 32 34 |s.... 231,173,24| 00000740: 33 2C 31 39 32 2C 35 36 2C 32 33 33 2C 34 39 2C |3,192,56,233,49,| 00000750: 32 30 31 2C 36 2C 31 37 36 2C 31 34 2C 34 32 2C |201,6,176,14,42,| 00000760: 34 32 2C 34 32 2C 37 32 2C 34 32 2C 34 31 2C 39 |42,42,72,42,41,9| 00000770: 36 2C 35 00 B8 0F 8C 13 83 20 32 35 32 2C 31 37 |6,5...... 252,17| 00000780: 30 2C 31 30 34 2C 31 35 37 2C 39 32 2C 31 39 33 |0,104,157,92,193| 00000790: 2C 31 37 34 2C 32 34 35 2C 31 39 32 2C 31 38 39 |,174,245,192,189| 000007A0: 2C 39 32 2C 31 39 33 2C 32 30 31 2C 36 33 2C 32 |,92,193,201,63,2| 000007B0: 34 30 2C 39 2C 31 36 38 00 FC 0F 8D 13 83 20 33 |40,9,168...... 3| 000007C0: 32 2C 32 30 39 2C 31 39 32 2C 31 36 32 2C 30 2C |2,209,192,162,0,| 000007D0: 33 32 2C 31 38 32 2C 31 39 32 2C 31 37 34 2C 32 |32,182,192,174,2| 000007E0: 34 36 2C 31 39 32 2C 31 38 39 2C 39 32 2C 31 39 |46,192,189,92,19| 000007F0: 33 2C 32 30 31 2C 36 33 2C 32 34 30 00 3F 10 8E |3,201,63,240.?..| 00000800: 13 83 20 39 2C 31 36 38 2C 33 32 2C 32 30 39 2C |.. 9,168,32,209,| 00000810: 31 39 32 2C 31 36 32 2C 37 2C 33 32 2C 31 38 32 |192,162,7,32,182| 00000820: 2C 31 39 32 2C 31 37 34 2C 32 34 37 2C 31 39 32 |,192,174,247,192| 00000830: 2C 31 38 39 2C 39 32 2C 31 39 33 2C 32 30 31 00 |,189,92,193,201.| 00000840: 83 10 8F 13 83 20 36 33 2C 32 34 30 2C 39 2C 31 |..... 63,240,9,1| 00000850: 36 38 2C 33 32 2C 32 30 39 2C 31 39 32 2C 31 36 |68,32,209,192,16| 00000860: 32 2C 31 34 2C 33 32 2C 31 38 32 2C 31 39 32 2C |2,14,32,182,192,| 00000870: 39 36 2C 31 38 35 2C 34 2C 31 39 32 2C 34 31 2C |96,185,4,192,41,| 00000880: 32 35 34 00 C9 10 90 13 83 20 31 35 37 2C 34 2C |254...... 157,4,| 00000890: 32 31 32 2C 31 36 39 2C 37 2C 31 34 31 2C 32 34 |212,169,7,141,24| 000008A0: 34 2C 31 39 32 2C 31 38 35 2C 30 2C 31 39 32 2C |4,192,185,0,192,| 000008B0: 31 35 37 2C 30 2C 32 31 32 2C 32 30 30 2C 32 33 |157,0,212,200,23| 000008C0: 32 2C 32 30 36 2C 32 34 34 00 0C 11 91 13 83 20 |2,206,244...... | 000008D0: 31 39 32 2C 32 30 38 2C 32 34 33 2C 39 36 2C 31 |192,208,243,96,1| 000008E0: 30 36 2C 31 30 36 2C 31 30 36 2C 31 30 35 2C 34 |06,106,106,105,4| 000008F0: 39 2C 37 32 2C 31 33 38 2C 32 30 31 2C 33 32 2C |9,72,138,201,32,| 00000900: 31 34 34 2C 39 2C 32 30 31 2C 36 34 00 52 11 92 |144,9,201,64.R..| 00000910: 13 83 20 31 34 34 2C 33 2C 32 34 2C 31 30 35 2C |.. 144,3,24,105,| 00000920: 38 2C 31 30 35 2C 38 2C 31 37 30 2C 31 30 34 2C |8,105,8,170,104,| 00000930: 31 35 37 2C 31 32 31 2C 34 2C 31 36 39 2C 31 2C |157,121,4,169,1,| 00000940: 31 35 37 2C 31 32 31 2C 32 31 36 2C 39 36 2C 31 |157,121,216,96,1| 00000950: 33 33 00 60 11 93 13 83 20 31 33 34 2C 31 33 35 |33.`.... 134,135| 00000960: 00 89 11 97 13 8C 3A 20 81 20 4A B2 31 20 A4 20 |......: . J.1 . | 00000970: 31 45 39 3A 20 87 20 58 24 3A 20 8B 20 58 24 B3 |1E9: . X$: . X$.| 00000980: B1 22 4D 4C 22 20 A7 20 82 00 B0 11 9C 13 81 20 |."ML" . ....... | 00000990: 4A B2 34 39 32 30 30 20 A4 20 34 39 33 39 34 3A |J.49200 . 49394:| 000009A0: 20 87 20 58 3A 20 97 20 4A 2C 58 3A 20 82 3A 8E | . X: . J,X: .:.| 000009B0: 00 D3 11 6F 17 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |...o.. ---------| 000009C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000009D0: 2D 2D 2D 00 F7 11 70 17 81 20 4A B2 34 39 35 30 |---...p.. J.4950| 000009E0: 30 20 A4 20 34 39 35 30 30 AA 39 35 3A 20 97 20 |0 . 49500.95: . | 000009F0: 4A 2C 36 33 3A 20 82 00 1C 12 7A 17 8F 20 43 4C |J,63: ....z.. CL| 00000A00: 45 41 52 20 54 48 45 20 52 48 59 54 48 4D 20 44 |EAR THE RHYTHM D| 00000A10: 41 54 41 20 46 52 4F 4D 20 52 41 4D 00 2E 12 84 |ATA FROM RAM....| 00000A20: 17 97 20 34 39 35 30 30 AA 33 32 2C 31 36 00 40 |.. 49500.32,16.@| 00000A30: 12 85 17 97 20 34 39 35 30 30 AA 34 30 2C 31 36 |.... 49500.40,16| 00000A40: 00 52 12 86 17 97 20 34 39 35 30 30 AA 34 38 2C |.R.... 49500.48,| 00000A50: 31 36 00 64 12 87 17 97 20 34 39 35 30 30 AA 35 |16.d.... 49500.5| 00000A60: 36 2C 31 36 00 6A 12 98 17 8E 00 8D 12 56 1B 8F |6,16.j.......V..| 00000A70: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------| 00000A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 9D 12 |-------------...| 00000A90: 57 1B 83 20 22 52 48 59 54 48 4D 53 22 00 BB 12 |W.. "RHYTHMS"...| 00000AA0: 58 1B 83 20 36 33 2C 36 33 2C 36 33 2C 36 33 2C |X.. 63,63,63,63,| 00000AB0: 36 33 2C 36 33 2C 36 33 2C 36 33 00 D9 12 5A 1B |63,63,63,63...Z.| 00000AC0: 83 20 36 33 2C 36 33 2C 36 33 2C 36 33 2C 36 33 |. 63,63,63,63,63| 00000AD0: 2C 36 33 2C 36 33 2C 36 33 00 F7 12 5C 1B 83 20 |,63,63,63...\.. | 00000AE0: 30 38 2C 36 33 2C 30 30 2C 36 33 2C 36 33 2C 36 |08,63,00,63,63,6| 00000AF0: 33 2C 30 30 2C 36 33 00 15 13 5E 1B 83 20 30 38 |3,00,63...^.. 08| 00000B00: 2C 36 33 2C 30 38 2C 36 33 2C 30 38 2C 36 33 2C |,63,08,63,08,63,| 00000B10: 30 38 2C 36 33 00 1B 13 5F 1B 8F 00 39 13 62 1B |08,63..._...9.b.| 00000B20: 83 20 31 36 2C 36 33 2C 36 33 2C 36 33 2C 36 33 |. 16,63,63,63,63| 00000B30: 2C 36 33 2C 36 33 2C 36 33 00 57 13 64 1B 83 20 |,63,63,63.W.d.. | 00000B40: 31 36 2C 36 33 2C 36 33 2C 36 33 2C 36 33 2C 36 |16,63,63,63,63,6| 00000B50: 33 2C 36 33 2C 36 33 00 75 13 66 1B 83 20 31 36 |3,63,63.u.f.. 16| 00000B60: 2C 36 33 2C 36 33 2C 36 33 2C 36 33 2C 36 33 2C |,63,63,63,63,63,| 00000B70: 36 33 2C 36 33 00 93 13 68 1B 83 20 31 36 2C 36 |63,63...h.. 16,6| 00000B80: 33 2C 31 36 2C 36 33 2C 36 33 2C 36 33 2C 36 33 |3,16,63,63,63,63| 00000B90: 2C 36 33 00 99 13 69 1B 8F 00 B7 13 6C 1B 83 20 |,63...i.....l.. | 00000BA0: 34 30 2C 36 33 2C 36 33 2C 36 33 2C 34 30 2C 36 |40,63,63,63,40,6| 00000BB0: 33 2C 34 30 2C 36 33 00 D5 13 6E 1B 83 20 34 30 |3,40,63...n.. 40| 00000BC0: 2C 36 33 2C 36 33 2C 36 33 2C 34 30 2C 36 33 2C |,63,63,63,40,63,| 00000BD0: 36 33 2C 36 33 00 F3 13 70 1B 83 20 33 32 2C 36 |63,63...p.. 32,6| 00000BE0: 33 2C 36 33 2C 36 33 2C 33 32 2C 36 33 2C 33 32 |3,63,63,32,63,32| 00000BF0: 2C 34 30 00 11 14 72 1B 83 20 34 30 2C 36 33 2C |,40...r.. 40,63,| 00000C00: 34 30 2C 33 32 2C 33 32 2C 34 30 2C 33 32 2C 36 |40,32,32,40,32,6| 00000C10: 33 00 3E 14 76 1B 8C 3A 81 20 4A B2 31 20 A4 20 |3.>.v..:. J.1 . | 00000C20: 31 45 39 3A 20 87 20 58 24 3A 20 8B 20 58 24 B3 |1E9: . X$: . X$.| 00000C30: B1 22 52 48 59 54 48 4D 53 22 20 A7 20 82 00 69 |."RHYTHMS" . ..i| 00000C40: 14 80 1B 81 20 4A B2 34 39 35 30 30 20 A4 20 34 |.... J.49500 . 4| 00000C50: 39 35 30 30 AA 39 35 3A 20 87 20 58 3A 20 97 20 |9500.95: . X: . | 00000C60: 4A 2C 58 3A 20 82 3A 20 8E 00 00 00 |J,X: .: .... |
..$.... * PROGRAM 13-7 *.C..
.. 2000: NB.32: . "NUMBER OF BEATS (1-
32: DEFAULT=32)";NB.....TM.5: . "TEMPO
(1-50: DEFAULT= 5)";TM.Q...A$
."N": . "CLEAR RHYTHMS? (Y/N: DEFAULT
IS N)";A$...... A$."Y" . . 6000.....A$."
N": . "LOAD RHYTHMS (Y/N: DEFAULT IS
N)";A$.5.... A$."Y" . . 7000.A...GR$."
B+++B+++B+++B+++B+++B+++B+++B+++".....PS
$." ................................."..
.... "..." H(GR$,NB.1).F.... J.1 . 3: .
H(PS$,NB.1): ....... ".";: . 53280,6: .
650,128...2.. 3000: . SET UP SID.$.<..
5000: . LOAD MACHINE CODE.P.F.N$."000
000": . STRING FOR USE WITH TI$.B.D.. "
": . ".";.Y.N.TI$.N$: . 56334,17...X..
" V.";: . 252,BT: . 49200...... TI.TM .
130.N...BT.BT.1: . BT.NB . BT.0: . 100.X
.... 110...O.. -------------------------
---...P.SI.54272.G.Z.. SI.4,8: . SI.11,8
: . SI.18,8: . RE-ENABLE NOISE WAVEFORM.
`....I.SI . SI.28: . I,0.N.... SI.24,8.T
.......... ----------------------------.
..... LOAD INSTRUMENT DEFINITIONS...B..
DATA STATEMENTS FOR THE 6 'INSTRUMENTS'.
EACH STATEMENT DEFINES:...V.. 1 FREQ LO
W.!.W.. 2 FREQ HI.1.X.. 3 PW LO.A.Y..
4 PW HI.Y.Z.. 5 WAVEFORM + GATE.R....
6 ATTACK + DECAY...... 7 SUSTAIN + RE
LEASE.B.... PLUS ONE 'DUMMY' BYTE TO GI
VE AN 8-BYTE BLOCK.Q.... "INSTRS"......
000,010,000,000,017,024,008,0...... 000,
015,000,000,017,023,007,0.=.... 000,015,
000,000,129,006,000,0.A.... 075,001,000,
008,065,025,008,0...... 000,226,000,000,
129,025,008,0...... 255,253,000,000,129,
040,008,0.V....: . J.1 . 1E9: . X$: . X$
.."INSTRS" . ....&.. J.0 . 6.8.1: . X: .
49152.J,X: ../.0.. POKE DATA INTO RAM F
OR ACCESS BY ML ROUTINE.5.:...X.... ----
------------------------.B...."ML"......
165,252,141,245,192,9,32,141,246,192,73
,96,141,247,192,32,228...... 255,201,0,2
40,54,141,243,192,162,3,221,239,192,208,
17,189,244./.... 192,170,169,63,157,92,1
93,169,46,32,214,192,76,124,192,202,208.
S.... 231,173,243,192,56,233,49,201,6,17
6,14,42,42,42,72,42,41,96,5...... 252,17
0,104,157,92,193,174,245,192,189,92,193,
201,63,240,9,168...... 32,209,192,162,0,
32,182,192,174,246,192,189,92,193,201,63
,240.?.... 9,168,32,209,192,162,7,32,182
,192,174,247,192,189,92,193,201...... 63
,240,9,168,32,209,192,162,14,32,182,192,
96,185,4,192,41,254.I.... 157,4,212,169,
7,141,244,192,185,0,192,157,0,212,200,23
2,206,244...... 192,208,243,96,106,106,1
06,105,49,72,138,201,32,144,9,201,64.R..
.. 144,3,24,105,8,105,8,170,104,157,121,
4,169,1,157,121,216,96,133.`.... 134,135
......: . J.1 . 1E9: . X$: . X$.."ML" .
....... J.49200 . 49394: . X: . J,X: .:.
.S.O.. ----------------------------...P.
. J.49500 . 49500.95: . J,63: ....Z.. CL
EAR THE RHYTHM DATA FROM RAM...... 49500
.32,16.@.... 49500.40,16.R.... 49500.48,
16.D.... 49500.56,16.J.......V.. -------
---------------------...W.. "RHYTHMS"...
X.. 63,63,63,63,63,63,63,63.Y.Z.. 63,63,
63,63,63,63,63,63...\.. 08,63,00,63,63,6
3,00,63...^.. 08,63,08,63,08,63,08,63...
_...9.B.. 16,63,63,63,63,63,63,63.W.D..
16,63,63,63,63,63,63,63.U.F.. 16,63,63,6
3,63,63,63,63...H.. 16,63,16,63,63,63,63
,63...I.....L.. 40,63,63,63,40,63,40,63.
U.N.. 40,63,63,63,40,63,63,63...P.. 32,6
3,63,63,32,63,32,40...R.. 40,63,40,32,32
,40,32,63.>.V..:. J.1 . 1E9: . X$: . X$.
."RHYTHMS" . ..I.... J.49500 . 49500.95:
. X: . J,X: .: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL