RANDOM MUSIC.C
FILE INFORMATION
FILENAME(S): RANDOM MUSIC.C
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 2 disk(s)
FILE HASH
1fa09266f487296b1a094000e2d1e692d291a2fe44fc14c6a9a7e12d3dc19b4c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | RANDOM MUSIC.C | PRG | Treasure Chest - Plattfuss | 20 | 8 | DOWNLOAD FILE |
| TPUG APRIL 84 C | RANDOM MUSIC.C | PRG | Sailor, Ganheden | 20 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 46 00 20 99 22 93 22 00 2C 08 50 00 |....F. .".".,.P.|
00000010: 97 20 35 33 32 38 30 2C 35 3A 97 20 35 33 32 38 |. 53280,5:. 5328|
00000020: 31 2C 31 3A 97 20 36 34 36 2C 31 34 00 38 08 5A |1,1:. 646,14.8.Z|
00000030: 00 53 B2 35 34 32 37 32 00 50 08 5F 00 81 20 49 |.S.54272.P._.. I|
00000040: B2 30 20 A4 20 32 34 3A 97 53 AA 49 2C 30 3A 82 |.0 . 24:.S.I,0:.|
00000050: 00 5D 08 62 00 51 B2 BB 28 AB 54 49 29 00 66 08 |.].b.Q..(.TI).f.|
00000060: 64 00 99 22 93 22 00 83 08 6E 00 99 22 20 20 20 |d.."."...n.." |
00000070: 20 20 20 20 20 20 20 52 41 4E 44 4F 4D 20 4D 55 | RANDOM MU|
00000080: 53 49 43 00 A7 08 78 00 99 22 20 20 20 20 20 57 |SIC...x.." W|
00000090: 52 49 54 54 45 4E 20 42 59 20 41 52 4E 4F 4C 44 |RITTEN BY ARNOLD|
000000A0: 20 4D 45 4E 47 45 4C 00 AD 08 7D 00 99 00 D2 08 | MENGEL...}.....|
000000B0: 82 00 99 22 20 20 28 50 45 54 20 56 45 52 53 49 |..." (PET VERSI|
000000C0: 4F 4E 3A 20 31 35 20 41 50 52 49 4C 20 31 39 38 |ON: 15 APRIL 198|
000000D0: 31 29 00 FA 08 96 00 99 22 20 28 43 2D 36 34 20 |1)......" (C-64 |
000000E0: 56 45 52 53 49 4F 4E 3A 20 32 35 20 4A 41 4E 55 |VERSION: 25 JANU|
000000F0: 41 52 59 20 31 39 38 34 29 22 00 00 09 A0 00 99 |ARY 1984)"......|
00000100: 00 29 09 AA 00 99 22 20 20 20 54 48 49 53 20 50 |.)...." THIS P|
00000110: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 4F 55 54 50 |ROGRAM WILL OUTP|
00000120: 55 54 20 52 41 54 48 45 52 00 4F 09 B4 00 99 22 |UT RATHER.O...."|
00000130: 50 4C 45 41 53 41 4E 54 20 52 41 4E 44 4F 4D 20 |PLEASANT RANDOM |
00000140: 4D 55 53 49 43 20 41 4E 44 20 50 52 49 4E 54 00 |MUSIC AND PRINT.|
00000150: 77 09 BE 00 99 22 4F 4E 20 54 48 45 20 53 43 52 |w...."ON THE SCR|
00000160: 45 45 4E 20 54 48 45 20 4E 4F 54 45 53 20 41 4E |EEN THE NOTES AN|
00000170: 44 20 54 48 45 49 52 00 87 09 C8 00 99 22 44 55 |D THEIR......"DU|
00000180: 52 41 54 49 4F 4E 2E 00 8D 09 DC 00 99 00 AF 09 |RATION..........|
00000190: E6 00 99 22 20 20 20 41 46 54 45 52 20 4C 49 53 |..." AFTER LIS|
000001A0: 54 45 4E 49 4E 47 20 54 4F 20 41 20 46 45 57 00 |TENING TO A FEW.|
000001B0: D0 09 F0 00 99 22 4D 45 4C 4F 44 49 45 53 2C 20 |....."MELODIES, |
000001C0: 54 52 59 20 43 48 41 4E 47 49 4E 47 20 54 48 45 |TRY CHANGING THE|
000001D0: 00 F5 09 FA 00 99 22 46 52 45 51 55 45 4E 43 59 |......"FREQUENCY|
000001E0: 20 44 49 53 54 52 49 42 55 54 49 4F 4E 53 20 4F | DISTRIBUTIONS O|
000001F0: 46 20 54 48 45 00 17 0A 04 01 99 22 4E 4F 54 45 |F THE......"NOTE|
00000200: 20 53 48 49 46 54 53 20 28 4C 49 4E 45 53 20 34 | SHIFTS (LINES 4|
00000210: 33 30 2D 34 38 30 29 00 34 0A 0E 01 99 22 41 4E |30-480).4...."AN|
00000220: 44 20 54 48 45 20 4E 4F 54 45 20 44 55 52 41 54 |D THE NOTE DURAT|
00000230: 49 4F 4E 53 00 4B 0A 18 01 99 22 28 4C 49 4E 45 |IONS.K...."(LINE|
00000240: 53 28 35 32 30 2D 35 34 32 29 2E 00 51 0A 19 01 |S(520-542)..Q...|
00000250: 99 00 58 0A 1C 01 99 22 00 7C 0A 1D 01 99 22 20 |..X....".|...." |
00000260: 20 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 | HIT ANY KEY TO |
00000270: 53 54 41 52 54 20 4D 55 53 49 43 2E 00 91 0A 1E |START MUSIC.....|
00000280: 01 99 22 20 20 48 20 46 31 20 54 4F 20 51 55 49 |.." H F1 TO QUI|
00000290: 54 00 A9 0A 1F 01 A1 41 24 3A 8B 20 41 24 B2 22 |T......A$:. A$."|
000002A0: 22 20 A7 20 89 20 32 38 37 00 C6 0A 20 01 8F 20 |" . . 287... .. |
000002B0: 20 20 2A 2A 53 54 41 52 54 20 4F 46 20 50 52 4F | **START OF PRO|
000002C0: 47 52 41 4D 2A 2A 00 CC 0A 21 01 3A 00 D5 0A 22 |GRAM**...!.:..."|
000002D0: 01 99 22 93 22 00 02 0B 2C 01 99 22 2A 2A 2A 2A |.."."...,.."****|
000002E0: 52 41 4E 44 4F 4D 20 4D 55 53 49 43 2D 2D 50 55 |RANDOM MUSIC--PU|
000002F0: 53 48 20 46 31 20 54 4F 20 51 55 49 54 2A 2A 2A |SH F1 TO QUIT***|
00000300: 2A 22 00 0E 0B 36 01 99 3A 99 3A 99 3A 99 00 25 |*"...6..:.:.:..%|
00000310: 0B 40 01 81 20 49 B2 31 20 A4 20 38 3A 87 20 4E |.@.. I.1 . 8:. N|
00000320: 28 49 29 3A 82 00 41 0B 4A 01 81 20 49 B2 31 A4 |(I):..A.J.. I.1.|
00000330: 38 3A 87 4F 28 49 29 3A 82 3A 8F 20 46 52 45 51 |8:.O(I):.:. FREQ|
00000340: 2E 00 5E 0B 54 01 20 81 20 49 B2 31 A4 38 3A 87 |..^.T. . I.1.8:.|
00000350: 4D 24 28 49 29 3A 82 3A 8F 20 4E 4F 54 45 00 80 |M$(I):.:. NOTE..|
00000360: 0B 5E 01 83 20 31 34 32 2C 32 34 2C 32 31 30 2C |.^.. 142,24,210,|
00000370: 31 39 35 2C 32 30 38 2C 33 30 2C 39 35 2C 32 39 |195,208,30,95,29|
00000380: 00 9E 0B 68 01 83 20 31 32 2C 31 34 2C 31 35 2C |...h.. 12,14,15,|
00000390: 31 36 2C 31 38 2C 32 31 2C 32 32 2C 32 35 00 B4 |16,18,21,22,25..|
000003A0: 0B 69 01 83 20 47 2C 41 2C 42 2C 43 2C 44 2C 45 |.i.. G,A,B,C,D,E|
000003B0: 2C 46 2C 47 00 C4 0B 6C 01 97 20 53 AA 31 33 2C |,F,G...l.. S.13,|
000003C0: 32 34 30 3A 00 DB 0B 6D 01 97 20 53 AA 39 2C 32 |240:...m.. S.9,2|
000003D0: 35 35 3A 97 20 53 AA 31 30 2C 30 00 F1 0B 6E 01 |55:. S.10,0...n.|
000003E0: 97 20 53 AA 32 2C 32 35 35 3A 97 20 53 AA 33 2C |. S.2,255:. S.3,|
000003F0: 30 00 09 0C 70 01 97 20 53 AA 36 2C 32 34 30 3A |0...p.. S.6,240:|
00000400: 97 20 53 AA 32 34 2C 31 35 00 19 0C 71 01 4E B2 |. S.24,15...q.N.|
00000410: 32 3A 4B B2 30 3A 5A B2 30 00 26 0C 72 01 97 20 |2:K.0:Z.0.&.r.. |
00000420: 53 AA 35 2C 31 35 00 34 0C 77 01 97 20 53 AA 31 |S.5,15.4.w.. S.1|
00000430: 32 2C 31 35 00 4C 0C 86 01 49 B2 34 3A 41 B2 33 |2,15.L...I.4:A.3|
00000440: 3A 4D B2 20 35 30 AC 41 3A 4A B2 31 00 59 0C 90 |:M. 50.A:J.1.Y..|
00000450: 01 97 20 53 AA 32 34 2C 30 00 6E 0C 91 01 97 20 |.. S.24,0.n.... |
00000460: 53 AA 34 2C 31 AA 31 36 AC 28 32 AE 4E 29 00 84 |S.4,1.16.(2.N)..|
00000470: 0C 92 01 97 20 53 AA 31 31 2C 31 AA 31 36 AC 28 |.... S.11,1.16.(|
00000480: 32 AE 4B 29 00 9F 0C 94 01 97 20 53 AA 37 2C 4E |2.K)...... S.7,N|
00000490: 28 31 29 3A 97 20 53 AA 20 39 2C 4F 28 31 29 00 |(1):. S. 9,O(1).|
000004A0: D7 0C 95 01 97 53 2C 4E 28 34 29 3A 97 20 53 AA |.....S,N(4):. S.|
000004B0: 31 2C 4F 28 34 29 3A 97 20 53 AA 32 34 2C 31 35 |1,O(4):. S.24,15|
000004C0: 3A 81 20 5A B2 31 A4 20 35 30 AC 41 3A 82 3A 99 |:. Z.1. 50.A:.:.|
000004D0: 22 43 22 3B 41 2C 3A 00 FA 0C A4 01 58 B2 BB 28 |"C";A,:.....X..(|
000004E0: 31 29 3A 20 8F 20 44 45 54 45 52 4D 49 4E 45 20 |1): . DETERMINE |
000004F0: 4E 4F 54 45 20 53 48 49 46 54 00 12 0D AE 01 8B |NOTE SHIFT......|
00000500: 20 58 B3 2E 32 35 A7 20 49 B2 49 AA 31 3A 89 34 | X..25. I.I.1:.4|
00000510: 39 30 00 2C 0D B8 01 20 20 8B 20 58 B3 2E 35 30 |90.,... . X..50|
00000520: A7 20 49 B2 49 AB 31 3A 89 34 39 30 00 47 0D C2 |. I.I.1:.490.G..|
00000530: 01 20 20 8B 20 58 B3 2E 36 35 20 A7 20 49 B2 49 |. . X..65 . I.I|
00000540: AA 32 3A 89 34 39 30 00 61 0D CC 01 20 20 8B 20 |.2:.490.a... . |
00000550: 58 B3 2E 38 20 A7 20 49 B2 49 AB 32 3A 89 34 39 |X..8 . I.I.2:.49|
00000560: 30 00 7C 0D D6 01 20 20 8B 20 58 B3 2E 39 30 20 |0.|... . X..90 |
00000570: A7 20 49 B2 49 AA 33 3A 89 34 39 30 00 88 0D E0 |. I.I.3:.490....|
00000580: 01 20 20 49 B2 49 AB 33 00 9B 0D EA 01 20 20 8B |. I.I.3..... .|
00000590: 20 49 B3 31 20 A7 20 49 B2 34 3A 00 AD 0D F4 01 | I.1 . I.4:.....|
000005A0: 20 20 8B 20 49 B1 38 20 A7 20 49 B2 35 00 B7 0D | . I.8 . I.5...|
000005B0: F6 01 4A B2 49 AB 32 00 C7 0D F8 01 8B 20 4A B3 |..J.I.2...... J.|
000005C0: 31 20 A7 20 4A B2 49 00 D7 0D FA 01 8B 20 4A B2 |1 . J.I...... J.|
000005D0: 32 20 A7 20 4A B2 31 00 FC 0D FE 01 3A 20 20 20 |2 . J.1.....: |
000005E0: 20 20 8F 20 20 44 45 54 45 52 4D 49 4E 45 20 4E | . DETERMINE N|
000005F0: 4F 54 45 20 44 55 52 41 54 49 4F 4E 00 1B 0E 08 |OTE DURATION....|
00000600: 02 58 B2 BB 28 31 29 3A 8B 58 B3 2E 35 30 20 A7 |.X..(1):.X..50 .|
00000610: 20 59 B2 35 30 20 3A 89 35 35 30 00 35 0E 12 02 | Y.50 :.550.5...|
00000620: 20 20 8B 58 B3 2E 37 35 20 A7 20 59 B2 31 30 30 | .X..75 . Y.100|
00000630: 3A 89 35 35 30 00 4F 0E 1C 02 20 20 8B 20 41 20 |:.550.O... . A |
00000640: B2 33 20 A7 20 59 B2 31 35 30 3A 89 35 35 30 00 |.3 . Y.150:.550.|
00000650: 6A 0E 1D 02 20 20 8B 20 58 B3 2E 38 37 20 A7 20 |j... . X..87 . |
00000660: 59 B2 31 35 30 3A 89 35 35 30 00 76 0E 1E 02 20 |Y.150:.550.v... |
00000670: 20 59 B2 32 30 30 00 87 0E 26 02 20 20 8B 59 B1 | Y.200...&. .Y.|
00000680: 4D 20 A7 20 59 B2 4D 00 97 0E 30 02 5A B2 5A AA |M . Y.M...0.Z.Z.|
00000690: 59 3A 4D B2 4D AB 59 00 A9 0E 3A 02 8B 20 4D B1 |Y:M.M.Y...:.. M.|
000006A0: 31 20 A7 20 89 20 36 30 30 00 B9 0E 44 02 5A B2 |1 . . 600...D.Z.|
000006B0: 30 3A 4D B2 35 30 20 AC 41 00 BF 0E 4E 02 3A 00 |0:M.50 .A...N.:.|
000006C0: D1 0E 58 02 99 20 4D 24 28 49 29 3B 59 AD 35 30 |..X.. M$(I);Y.50|
000006D0: 2C 00 EB 0E 5A 02 97 20 53 AA 37 2C 4E 28 4A 29 |,...Z.. S.7,N(J)|
000006E0: 3A 97 20 53 AA 38 2C 4F 28 4A 29 00 0D 0F 5D 02 |:. S.8,O(J)...].|
000006F0: 97 20 53 2C 4E 28 49 29 3A 97 20 53 AA 31 2C 4F |. S,N(I):. S.1,O|
00000700: 28 49 29 3A 81 20 5A B2 30 A4 59 3A 82 00 25 0F |(I):. Z.0.Y:..%.|
00000710: 62 02 8B 20 C2 28 31 39 37 29 B2 20 34 20 20 20 |b.. .(197). 4 |
00000720: A7 89 36 38 30 00 43 0F 6C 02 8B 20 54 B1 34 30 |..680.C.l.. T.40|
00000730: 20 AF 28 49 B2 33 20 B0 20 49 B2 35 29 A7 20 89 | .(I.3 . I.5). .|
00000740: 36 34 30 00 53 0F 76 02 54 B2 54 AA 31 3A 89 20 |640.S.v.T.T.1:. |
00000750: 34 32 30 00 6E 0F 7B 02 97 20 53 AA 37 2C 4E 28 |420.n.{.. S.7,N(|
00000760: 31 29 20 3A 97 20 53 AA 38 2C 4F 28 31 29 00 AD |1) :. S.8,O(1)..|
00000770: 0F 80 02 97 20 53 2C 4E 28 34 29 3A 97 20 53 AA |.... S,N(4):. S.|
00000780: 31 2C 4F 28 34 29 3A 99 22 43 22 3B 33 AC 41 2C |1,O(4):."C";3.A,|
00000790: 3A 81 5A B2 31 A4 31 35 30 AC 41 3A 82 3A 8F 20 |:.Z.1.150.A:.:. |
000007A0: 45 4E 44 20 4F 46 20 4D 45 4C 4F 44 59 00 C1 0F |END OF MELODY...|
000007B0: 85 02 97 20 53 AA 31 31 2C 31 36 AC 28 32 AE 4B |... S.11,16.(2.K|
000007C0: 29 00 EB 0F 8A 02 97 53 AA 34 2C 31 36 AC 28 32 |)......S.4,16.(2|
000007D0: AE 4E 29 3A 99 22 20 22 3B 33 AC 41 3A 81 5A B2 |.N):." ";3.A:.Z.|
000007E0: 31 A4 31 35 30 AC 41 3A 82 3A 99 00 02 10 8F 02 |1.150.A:.:......|
000007F0: 4E B2 4E AA 31 3A 20 8B 20 4E B1 32 20 A7 20 4E |N.N.1: . N.2 . N|
00000800: B2 31 00 3F 10 95 02 8B 20 BB 28 31 29 B3 2E 35 |.1.?.... .(1)..5|
00000810: 20 A7 20 41 B2 34 3A 89 20 36 36 35 3A 8F 20 44 | . A.4:. 665:. D|
00000820: 45 54 45 52 4D 49 4E 45 20 57 48 45 54 48 45 52 |ETERMINE WHETHER|
00000830: 20 33 2F 34 20 4F 52 34 2F 34 20 54 49 4D 45 00 | 3/4 OR4/4 TIME.|
00000840: 47 10 96 02 41 B2 33 00 52 10 99 02 4D B2 35 30 |G...A.3.R...M.50|
00000850: AC 41 00 78 10 9E 02 54 B2 30 3A 49 B2 34 3A 20 |.A.x...T.0:I.4: |
00000860: 89 34 30 30 3A 8F 20 53 54 41 52 54 20 4E 45 58 |.400:. START NEX|
00000870: 54 20 4D 45 4C 4F 44 59 00 90 10 A8 02 81 20 49 |T MELODY...... I|
00000880: B2 30 20 A4 20 32 34 3A 97 53 AA 49 2C 30 3A 82 |.0 . 24:.S.I,0:.|
00000890: 00 00 00 |... |
....F. .".".,.P.. 53280,5:. 53281,1:. 64
6,14.8.Z.S.54272.P._.. I.0 . 24:.S.I,0:.
.].B.Q..(.TI).F.D.."."...N.." R
ANDOM MUSIC...X.." WRITTEN BY ARNOLD
MENGEL...}...R...." (PET VERSION: 15 A
PRIL 1981)......" (C-64 VERSION: 25 JANU
ARY 1984)"... ...)...." THIS PROGRAM W
ILL OUTPUT RATHER.O...."PLEASANT RANDOM
MUSIC AND PRINT.W...."ON THE SCREEN THE
NOTES AND THEIR...H.."DURATION..........
..." AFTER LISTENING TO A FEW.P...."ME
LODIES, TRY CHANGING THE......"FREQUENCY
DISTRIBUTIONS OF THE......"NOTE SHIFTS
(LINES 430-480).4...."AND THE NOTE DURAT
IONS.K...."(LINES(520-542)..Q.....X...."
.|...." HIT ANY KEY TO START MUSIC.....
.." H F1 TO QUIT......A$:. A$."" . . 28
7.F. .. **START OF PROGRAM**.L.!.:.U."
.."."...,.."****RANDOM MUSIC--PUSH F1 TO
QUIT****"...6..:.:.:..%.@.. I.1 . 8:. N
(I):..A.J.. I.1.8:.O(I):.:. FREQ..^.T. .
I.1.8:.M$(I):.:. NOTE...^.. 142,24,210,
195,208,30,95,29...H.. 12,14,15,16,18,21
,22,25...I.. G,A,B,C,D,E,F,G.D.L.. S.13,
240:...M.. S.9,255:. S.10,0...N.. S.2,25
5:. S.3,0...P.. S.6,240:. S.24,15...Q.N.
2:K.0:Z.0.&.R.. S.5,15.4.W.. S.12,15.L..
.I.4:A.3:M. 50.A:J.1.Y.... S.24,0.N....
S.4,1.16.(2.N)...... S.11,1.16.(2.K)....
.. S.7,N(1):. S. 9,O(1).W....S,N(4):. S.
1,O(4):. S.24,15:. Z.1. 50.A:.:."C";A,:.
....X..(1): . DETERMINE NOTE SHIFT......
X..25. I.I.1:.490.,... . X..50. I.I.1:
.490.G.B. . X..65 . I.I.2:.490.A.L. .
X..8 . I.I.2:.490.|.V. . X..90 . I.I.3:
.490..... I.I.3..... . I.1 . I.4:.....
. I.8 . I.5.....J.I.2.G.... J.1 . J.I.
W.... J.2 . J.1.....: . DETERMINE N
OTE DURATION.....X..(1):.X..50 . Y.50 :.
550.5... .X..75 . Y.100:.550.O... . A
.3 . Y.150:.550.J... . X..87 . Y.150:.5
50.V... Y.200...&. .Y.M . Y.M...0.Z.Z.
Y:M.M.Y...:.. M.1 . . 600...D.Z.0:M.50 .
A...N.:.Q.X.. M$(I);Y.50,...Z.. S.7,N(J)
:. S.8,O(J)...].. S,N(I):. S.1,O(I):. Z.
0.Y:..%.B.. B(197). 4 ..680.C.L.. T.40
.(I.3 . I.5). .640.S.V.T.T.1:. 420.N.{.
. S.7,N(1) :. S.8,O(1)...... S,N(4):. S.
1,O(4):."C";3.A,:.Z.1.150.A:.:. END OF M
ELODY.A.... S.11,16.(2.K)......S.4,16.(2
.N):." ";3.A:.Z.1.150.A:.:......N.N.1: .
N.2 . N.1.?.... .(1)..5 . A.4:. 665:. D
ETERMINE WHETHER 3/4 OR4/4 TIME.G...A.3.
R...M.50.A.X...T.0:I.4: .400:. START NEX
T MELODY...... I.0 . 24:.S.I,0:....
> CLICK IMAGE PREVIEW FOR FULL MODAL