000
FILE INFORMATION
FILENAME(S): 000
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-10-19 22:35:46
APPEARS ON: 1 disk(s)
FILE HASH
e7fa4a96f63f8a6ddfdc33a89099676f2deb289c8a03ed913d6d8c1c9746320c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| !! | 000 | PRG | Radd Maxx | 24 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 08 08 00 00 8F CC 00 1E 08 01 00 97 35 33 |..............53|
00000010: 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 27 |281,0:.53280,0.'|
00000020: 08 02 00 99 22 93 22 00 30 08 03 00 99 22 05 22 |....".".0...."."|
00000030: 00 4D 08 0A 00 99 22 20 20 20 20 20 20 20 20 20 |.M...." |
00000040: 20 20 20 20 20 20 20 20 12 A9 20 20 92 00 6E 08 | .. ..n.|
00000050: 0B 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00000060: 20 20 20 20 20 12 20 92 20 20 12 20 92 A9 00 90 | . . . ....|
00000070: 08 0C 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00000080: 20 20 20 20 20 20 12 20 92 20 20 12 20 92 12 DF | . . . ...|
00000090: 00 AD 08 0D 00 99 22 20 20 20 20 20 20 20 20 20 |......" |
000000A0: 20 20 20 20 20 20 20 20 DF 12 20 20 92 00 D1 08 | .. ....|
000000B0: 0E 00 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". |
000000C0: 43 1D 4F 1D 4D 1D 4D 1D 4F 1D 44 1D 4F 1D 52 20 |C.O.M.M.O.D.O.R |
000000D0: 45 00 F8 08 0F 00 99 22 11 20 20 20 20 20 20 20 |E......". |
000000E0: 20 20 36 34 4B 20 52 41 4D 20 4D 49 43 52 4F 43 | 64K RAM MICROC|
000000F0: 4F 4D 50 55 54 45 52 22 00 17 09 10 00 99 22 11 |OMPUTER"......".|
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | S|
00000110: 4F 46 54 57 41 52 45 00 39 09 11 00 99 22 11 20 |OFTWARE.9....". |
00000120: 20 20 20 20 20 20 20 20 20 20 20 42 59 20 4D 41 | BY MA|
00000130: 52 43 4F 20 42 52 55 4E 4F 00 5D 09 12 00 99 22 |RCO BRUNO.]...."|
00000140: 11 11 20 20 20 20 20 20 20 20 20 20 20 50 52 45 |.. PRE|
00000150: 53 53 20 20 41 4E 59 20 20 20 4B 45 59 00 82 09 |SS ANY KEY...|
00000160: 13 00 81 54 B2 31 A4 31 33 3A 97 35 33 32 38 30 |...T.1.13:.53280|
00000170: 2C 54 3A 82 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 |,T:.:.A$:.A$."".|
00000180: 31 39 00 B3 09 14 00 53 B2 35 34 32 37 32 3A 81 |19.....S.54272:.|
00000190: 53 57 B2 53 A4 53 AA 32 34 3A 97 53 57 2C 30 3A |SW.S.S.24:.SW,0:|
000001A0: 82 3A 4B B2 AB 31 3A 54 31 24 B2 22 30 30 30 30 |.:K..1:T1$."0000|
000001B0: 30 30 22 00 CC 09 15 00 91 58 89 32 33 2C 32 34 |00"......X.23,24|
000001C0: 2C 32 35 2C 32 36 2C 32 37 2C 32 38 00 FF 09 16 |,25,26,27,28....|
000001D0: 00 99 22 91 A6 90 31 2E 20 53 4F 55 4E 44 20 45 |.."...1. SOUND E|
000001E0: 46 46 45 43 54 53 05 20 20 20 20 20 20 20 20 20 |FFECTS. |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 A6 22 00 | .".|
00000200: 45 0A 17 00 56 B2 31 35 3A 4E 31 B2 57 31 B2 36 |E...V.15:N1.W1.6|
00000210: 35 3A 57 32 B2 36 34 3A 41 44 B2 31 35 3A 53 52 |5:W2.64:AD.15:SR|
00000220: B2 30 3A 44 52 B2 31 3A 50 31 B2 39 3A 50 32 B2 |.0:DR.1:P1.9:P2.|
00000230: 32 35 35 3A 51 B2 31 3A 89 33 30 3A 8F 20 57 41 |255:Q.1:.30:. WA|
00000240: 49 4C 49 4E 47 00 78 0A 18 00 99 22 91 A6 90 33 |ILING.x...."...3|
00000250: 2E 20 51 55 49 54 05 20 20 20 20 20 20 20 20 20 |. QUIT. |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 A6 22 00 AB 0A 19 00 99 22 91 | ."......".|
00000280: A6 90 34 2E 20 54 48 45 20 47 52 41 4E 44 20 49 |..4. THE GRAND I|
00000290: 4D 50 52 4F 56 49 53 4F 52 05 20 20 20 20 20 20 |MPROVISOR. |
000002A0: 20 20 20 20 20 20 20 20 20 A6 22 00 DC 0A 1A 00 | .".....|
000002B0: 99 22 91 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |."..............|
000002C0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
000002D0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 22 00 18 0B 1B |..........."....|
000002E0: 00 99 22 9F 11 57 48 49 43 48 20 44 4F 20 59 4F |.."..WHICH DO YO|
000002F0: 55 20 43 48 4F 4F 53 45 3F 20 28 31 2D 34 29 22 |U CHOOSE? (1-4)"|
00000300: 3B 3A 85 41 3A 8B 41 B3 31 B0 41 B1 34 A7 99 22 |;:.A:.A.1.A.4.."|
00000310: 91 91 91 22 3A 89 32 37 00 4F 0B 1C 00 8B 41 B2 |...":.27.O....A.|
00000320: 31 A7 89 31 30 30 3A 8B 41 B2 32 A7 89 31 30 30 |1..100:.A.2..100|
00000330: 30 3A 8B 41 B2 33 A7 9E 36 34 37 33 38 3A 8B 41 |0:.A.3..64738:.A|
00000340: B2 34 A7 93 22 49 4D 50 52 4F 56 45 22 2C 38 00 |.4.."IMPROVE",8.|
00000350: 94 0B 64 00 97 35 33 32 38 31 2C 33 3A 97 35 33 |..d..53281,3:.53|
00000360: 32 38 30 2C 33 3A 99 22 93 12 90 20 20 20 20 20 |280,3:."... |
00000370: 20 20 20 20 20 20 20 20 20 53 4F 55 4E 44 20 45 | SOUND E|
00000380: 46 46 45 43 54 53 20 20 20 20 20 20 20 20 20 20 |FFECTS |
00000390: 20 20 20 22 00 E0 0B 65 00 99 22 11 05 20 42 45 | "...e..".. BE|
000003A0: 53 49 44 45 53 20 4D 55 53 49 43 2C 59 4F 55 20 |SIDES MUSIC,YOU |
000003B0: 43 41 4E 20 41 4C 53 4F 20 43 52 45 41 54 45 20 |CAN ALSO CREATE |
000003C0: 53 4F 55 4E 44 20 45 46 46 45 43 54 53 20 42 59 |SOUND EFFECTS BY|
000003D0: 20 55 53 49 4E 47 20 54 48 45 20 4E 4F 49 53 45 | USING THE NOISE|
000003E0: 00 2D 0C 66 00 99 22 52 45 47 49 53 54 45 52 53 |.-.f.."REGISTERS|
000003F0: 20 41 4E 44 20 56 41 52 59 49 4E 47 20 54 48 45 | AND VARYING THE|
00000400: 20 53 4F 55 4E 44 20 43 48 41 52 41 43 54 45 52 | SOUND CHARACTER|
00000410: 49 53 54 49 43 53 20 4B 4E 4F 57 4E 20 41 53 20 |ISTICS KNOWN AS |
00000420: 41 44 53 52 20 28 41 54 54 41 43 4B 2C 00 73 0C |ADSR (ATTACK,.s.|
00000430: 67 00 99 22 44 45 43 41 59 2C 53 55 53 54 41 49 |g.."DECAY,SUSTAI|
00000440: 4E 20 26 20 52 45 4C 45 41 53 45 29 2E 54 48 45 |N & RELEASE).THE|
00000450: 53 45 20 41 52 45 20 43 4F 4D 42 49 4E 45 44 20 |SE ARE COMBINED |
00000460: 49 4E 20 52 45 47 49 53 54 45 52 53 20 35 20 26 |IN REGISTERS 5 &|
00000470: 20 36 2E 00 B9 0C 68 00 99 22 50 52 45 53 53 20 | 6....h.."PRESS |
00000480: 41 4E 59 20 4B 45 59 20 54 4F 20 53 45 45 20 52 |ANY KEY TO SEE R|
00000490: 45 47 49 53 54 45 52 20 56 41 4C 55 45 53 20 46 |EGISTER VALUES F|
000004A0: 4F 52 20 53 41 4D 50 4C 45 20 53 4F 55 4E 44 20 |OR SAMPLE SOUND |
000004B0: 45 46 46 45 43 54 53 2E 22 00 CC 0C 69 00 A1 41 |EFFECTS."...i..A|
000004C0: 24 3A 8B 41 24 B2 22 22 A7 31 30 35 00 0F 0D 6A |$:.A$."".105...j|
000004D0: 00 99 22 12 93 11 90 20 20 20 20 20 20 53 4F 55 |..".... SOU|
000004E0: 4E 44 20 45 46 46 45 43 54 53 20 52 45 47 49 53 |ND EFFECTS REGIS|
000004F0: 54 45 52 20 56 41 4C 55 45 53 20 20 20 20 20 22 |TER VALUES "|
00000500: 3A 99 22 05 11 52 45 47 49 53 54 45 52 53 22 00 |:."..REGISTERS".|
00000510: 3E 0D 6B 00 99 22 90 30 20 20 31 20 20 32 20 20 |>.k..".0 1 2 |
00000520: 33 20 20 34 2D 4F 4E 20 20 34 2D 4F 46 46 20 20 |3 4-ON 4-OFF |
00000530: 20 35 20 20 36 20 20 2A 20 20 20 32 34 22 00 55 | 5 6 * 24".U|
00000540: 0D 6C 00 99 22 05 56 41 52 49 41 42 4C 45 20 4E |.l..".VARIABLE N|
00000550: 41 4D 45 53 22 00 84 0D 6D 00 99 22 90 4E 32 20 |AMES"...m..".N2 |
00000560: 4E 31 20 50 32 20 50 31 20 20 57 31 20 20 20 20 |N1 P2 P1 W1 |
00000570: 57 32 20 20 20 20 41 44 20 20 53 52 20 20 44 52 |W2 AD SR DR|
00000580: 20 20 56 22 00 99 0D 6E 00 99 22 05 50 4F 4C 49 | V"...n..".POLI|
00000590: 43 45 20 53 49 52 45 4E 22 00 C9 0D 6F 00 99 22 |CE SIREN"...o.."|
000005A0: 90 38 35 20 33 36 20 20 30 20 20 30 20 20 20 33 |.85 36 0 0 3|
000005B0: 33 20 20 20 20 33 32 20 20 20 31 33 36 20 31 32 |3 32 136 12|
000005C0: 39 20 33 35 30 20 31 35 22 00 D7 0D 70 00 99 22 |9 350 15"...p.."|
000005D0: 05 43 52 41 53 48 22 00 07 0E 71 00 99 22 90 32 |.CRASH"...q..".2|
000005E0: 35 31 20 32 35 20 30 20 20 30 20 20 31 32 39 20 |51 25 0 0 129 |
000005F0: 20 20 31 32 38 20 20 20 20 39 20 20 36 35 20 20 | 128 9 65 |
00000600: 35 30 20 20 30 20 22 00 1F 0E 72 00 99 22 05 52 |50 0 "...r..".R|
00000610: 4F 43 4B 45 54 20 42 4C 41 53 54 4F 46 46 22 00 |OCKET BLASTOFF".|
00000620: 4F 0E 73 00 99 22 90 31 30 30 20 32 35 20 30 20 |O.s..".100 25 0 |
00000630: 20 30 20 20 31 32 39 20 20 20 31 32 38 20 20 20 | 0 129 128 |
00000640: 20 39 20 20 31 32 39 20 35 30 20 20 30 20 22 00 | 9 129 50 0 ".|
00000650: 63 0E 74 00 99 22 05 4D 41 43 48 49 4E 45 20 47 |c.t..".MACHINE G|
00000660: 55 4E 22 00 93 0E 75 00 99 22 90 20 37 35 20 33 |UN"...u..". 75 3|
00000670: 34 20 30 20 20 30 20 20 31 32 39 20 20 20 31 32 |4 0 0 129 12|
00000680: 38 20 20 20 20 38 20 20 20 31 20 20 35 30 20 20 |8 8 1 50 |
00000690: 31 35 22 00 A3 0E 76 00 99 22 05 57 41 49 4C 49 |15"...v..".WAILI|
000006A0: 4E 47 22 00 D3 0E 77 00 99 22 90 20 4E 32 20 34 |NG"...w..". N2 4|
000006B0: 30 20 30 20 20 30 20 20 20 36 35 20 20 20 20 36 |0 0 0 65 6|
000006C0: 34 20 20 20 31 35 20 20 20 30 20 20 20 31 20 20 |4 15 0 1 |
000006D0: 31 35 22 00 E4 0E 78 00 99 22 05 53 48 4F 4F 54 |15"...x..".SHOOT|
000006E0: 49 4E 47 22 00 14 0F 79 00 99 22 90 32 30 30 20 |ING"...y..".200 |
000006F0: 34 30 20 30 20 20 30 20 20 31 32 39 20 20 20 20 |40 0 0 129 |
00000700: 31 32 38 20 20 31 35 20 20 31 35 20 20 20 31 20 |128 15 15 1 |
00000710: 20 30 20 22 00 56 0F 7A 00 99 22 11 2A 20 4E 4F | 0 ".V.z..".* NO|
00000720: 54 20 41 20 52 45 47 49 53 54 45 52 20 50 41 52 |T A REGISTER PAR|
00000730: 54 20 4F 46 20 41 20 54 49 4D 49 4E 47 20 4C 4F |T OF A TIMING LO|
00000740: 4F 50 2E 22 3A 99 22 05 50 52 45 53 53 20 41 4E |OP.":.".PRESS AN|
00000750: 59 20 4B 45 59 22 00 69 0F 7B 00 A1 41 24 3A 8B |Y KEY".i.{..A$:.|
00000760: 41 24 B2 22 22 A7 31 32 33 00 7F 0F 7C 00 97 35 |A$."".123...|..5|
00000770: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 |3280,0:.53281,0.|
00000780: 85 0F 82 00 9C 00 C2 0F 87 00 99 22 57 48 49 43 |..........."WHIC|
00000790: 48 20 53 4F 55 4E 44 20 45 46 46 45 43 54 3F 22 |H SOUND EFFECT?"|
000007A0: 3A 99 22 31 2E 57 41 49 4C 49 4E 47 22 3A 99 22 |:."1.WAILING":."|
000007B0: 32 2E 53 48 4F 4F 54 49 4E 47 22 3A 99 22 33 2E |2.SHOOTING":."3.|
000007C0: 22 3B 00 F7 0F 88 00 99 22 53 49 52 45 4E 22 3A |";......"SIREN":|
000007D0: 99 22 34 2E 52 4F 43 4B 45 54 22 3A 99 22 35 2E |."4.ROCKET":."5.|
000007E0: 43 52 41 53 48 22 3A 99 22 36 2E 4D 41 43 48 49 |CRASH":."6.MACHI|
000007F0: 4E 45 20 47 55 4E 22 00 FE 0F 89 00 85 58 00 00 |NE GUN"......X..|
00000800: 00 2C 32 32 2C 39 36 2C 33 2C 33 35 2C 36 2C 37 |.,22,96,3,35,6,7|
00000810: 31 2C 33 2C 32 34 34 2C 37 2C 32 33 33 00 89 0B |1,3,244,7,233...|
00000820: B4 00 83 34 2C 34 38 2C 38 2C 39 37 2C 31 34 2C |...4,48,8,97,14,|
00000830: 32 33 39 2C 32 31 2C 33 31 2C 33 2C 33 35 2C 36 |239,21,31,3,35,6|
00000840: 2C 37 31 2C 31 34 2C 32 33 39 2C 32 31 2C 33 31 |,71,14,239,21,31|
00000850: 00 BB 0B BE 00 83 34 2C 34 38 2C 38 2C 39 37 2C |......4,48,8,97,|
00000860: 31 34 2C 32 33 39 2C 32 31 2C 33 31 2C 33 2C 33 |14,239,21,31,3,3|
00000870: 35 2C 36 2C 37 31 2C 33 2C 31 38 37 2C 37 2C 31 |5,6,71,3,187,7,1|
00000880: 31 39 00 F1 0B C8 00 83 34 2C 34 38 2C 31 36 2C |19......4,48,16,|
00000890: 31 39 35 2C 34 2C 31 38 30 2C 31 34 2C 32 33 39 |195,4,180,14,239|
000008A0: 2C 34 2C 32 35 31 2C 31 34 2C 32 34 2C 35 2C 37 |,4,251,14,24,5,7|
000008B0: 31 2C 31 32 2C 31 34 33 00 22 0C D2 00 83 20 35 |1,12,143.".... 5|
000008C0: 2C 31 35 32 2C 31 31 2C 34 38 2C 34 2C 34 38 2C |,152,11,48,4,48,|
000008D0: 31 34 2C 32 34 2C 35 2C 31 35 32 2C 31 31 2C 34 |14,24,5,152,11,4|
000008E0: 38 2C 30 2C 30 2C 30 2C 30 00 6B 0C DC 00 8F 20 |8,0,0,0,0.k.... |
000008F0: 41 20 53 48 4F 52 54 20 52 4F 55 54 49 4E 45 20 |A SHORT ROUTINE |
00000900: 54 4F 20 47 49 56 45 20 54 48 45 20 43 36 34 20 |TO GIVE THE C64 |
00000910: 41 20 4C 49 54 54 4C 45 20 41 2E 49 2E 20 49 4E |A LITTLE A.I. IN|
00000920: 20 4D 55 53 49 43 20 43 4F 4D 50 4F 53 49 54 49 | MUSIC COMPOSITI|
00000930: 4F 4E 00 86 0C E6 00 41 49 B2 B5 28 BB 28 30 29 |ON.....AI..(.(0)|
00000940: AC 32 33 29 AA 31 3A 4E 45 B2 31 33 31 00 B6 0C |.23).1:NE.131...|
00000950: F0 00 8B 41 49 B1 31 36 A7 91 28 41 49 AB 31 36 |...AI.16..(AI.16|
00000960: 29 89 32 36 30 2C 32 37 30 2C 32 38 30 2C 32 39 |).260,270,280,29|
00000970: 30 2C 33 30 30 2C 33 31 30 2C 33 32 30 00 CC 0C |0,300,310,320...|
00000980: FA 00 52 B2 54 55 28 28 41 49 AC 31 36 29 AA 50 |..R.TU((AI.16).P|
00000990: 29 3A 8E 00 D6 0C 04 01 52 B2 30 3A 8E 00 E0 0C |):......R.0:....|
000009A0: 0E 01 52 B2 32 3A 8E 00 EA 0C 18 01 52 B2 33 3A |..R.2:......R.3:|
000009B0: 8E 00 F4 0C 22 01 52 B2 35 3A 8E 00 FE 0C 2C 01 |....".R.5:....,.|
000009C0: 52 B2 37 3A 8E 00 08 0D 36 01 52 B2 38 3A 8E 00 |R.7:....6.R.8:..|
000009D0: 12 0D 40 01 52 B2 30 3A 8E 00 56 0D 4A 01 99 22 |..@.R.0:..V.J.."|
000009E0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000009F0: 11 11 11 11 11 1D 1D 9A 12 20 49 20 41 4D 20 4D |......... I AM M|
00000A00: 45 4D 4F 52 49 5A 49 4E 47 20 53 49 58 54 45 45 |EMORIZING SIXTEE|
00000A10: 4E 20 54 55 4E 45 53 20 4E 4F 57 2E 22 00 6B 0D |N TUNES NOW.".k.|
00000A20: 54 01 81 4B B2 31 A4 31 36 3A 87 49 4E 28 4B 29 |T..K.1.16:.IN(K)|
00000A30: 3A 82 00 93 0D 5E 01 81 49 B2 30 A4 33 32 3A 87 |:....^..I.0.32:.|
00000A40: 48 31 28 49 29 2C 4C 31 28 49 29 2C 48 32 28 49 |H1(I),L1(I),H2(I|
00000A50: 29 2C 4C 32 28 49 29 3A 82 49 00 AE 0D 68 01 81 |),L2(I):.I...h..|
00000A60: 54 B2 30 A4 39 3A 87 48 33 28 54 29 2C 4C 33 28 |T.0.9:.H3(T),L3(|
00000A70: 54 29 3A 82 54 00 CD 0D 86 01 4C 31 B2 35 34 32 |T):.T.....L1.542|
00000A80: 37 32 3A 4C 32 B2 35 34 32 37 39 3A 4C 33 B2 35 |72:L2.54279:L3.5|
00000A90: 34 32 38 36 00 E9 0D 90 01 48 31 B2 4C 31 AA 31 |4286.....H1.L1.1|
00000AA0: 3A 48 32 B2 4C 32 AA 31 3A 48 33 B2 4C 33 AA 31 |:H2.L2.1:H3.L3.1|
00000AB0: 00 05 0E 9A 01 56 31 B2 4C 31 AA 34 3A 56 32 B2 |.....V1.L1.4:V2.|
00000AC0: 4C 32 AA 34 3A 56 33 B2 4C 33 AA 34 00 24 0E A4 |L2.4:V3.L3.4.$..|
00000AD0: 01 97 35 34 32 39 36 2C 31 32 3A 43 48 B2 31 38 |..54296,12:CH.18|
00000AE0: 37 34 3A 43 4F B2 35 36 31 34 36 00 3A 0E AE 01 |74:CO.56146.:...|
00000AF0: 97 56 31 AA 31 2C 31 30 3A 97 56 31 AA 32 2C 37 |.V1.1,10:.V1.2,7|
00000B00: 30 00 50 0E B8 01 97 56 32 AA 31 2C 31 30 3A 97 |0.P....V2.1,10:.|
00000B10: 56 32 AA 32 2C 37 30 00 6E 0E C2 01 97 56 33 AA |V2.2,70.n....V3.|
00000B20: 31 2C 31 30 3A 97 56 33 AA 32 2C 37 35 3A 97 56 |1,10:.V3.2,75:.V|
00000B30: 33 AB 31 2C 38 00 76 0E CC 01 50 B2 31 00 A0 0E |3.1,8.v...P.1...|
00000B40: D6 01 51 B2 51 AA 31 3A 8B 51 B2 31 37 A7 81 54 |..Q.Q.1:.Q.17..T|
00000B50: B2 31 A4 31 31 31 31 3A 82 3A 97 35 33 32 38 31 |.1.1111:.:.53281|
00000B60: 2C 37 3A 89 39 33 30 00 DF 0E E0 01 99 22 13 11 |,7:.930......"..|
00000B70: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000B80: 11 11 11 11 11 11 90 20 20 20 20 20 20 20 20 20 |....... |
00000B90: 20 30 20 31 20 32 20 33 20 34 20 35 20 36 20 37 | 0 1 2 3 4 5 6 7|
00000BA0: 20 38 20 39 20 22 00 FB 0E EA 01 99 22 13 11 11 | 8 9 "......"...|
00000BB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000BC0: 11 22 00 32 0F F4 01 99 22 9A 22 A6 37 29 22 12 |.".2....".".7)".|
00000BD0: 20 4E 4F 57 20 50 4C 41 59 49 4E 47 20 49 4D 50 | NOW PLAYING IMP|
00000BE0: 52 4F 56 2E 20 22 C7 28 49 4E 28 51 29 29 22 12 |ROV. ".(IN(Q))".|
00000BF0: 20 23 22 3B 51 3B 22 9D 22 00 53 0F FE 01 97 56 | #";Q;".".S....V|
00000C00: 31 2C 33 32 3A 97 56 32 2C 33 32 3A 97 56 33 2C |1,32:.V2,32:.V3,|
00000C10: 36 34 3A 4E 54 B2 4E 54 AA 31 00 70 0F 08 02 A1 |64:NT.NT.1.p....|
00000C20: 41 24 3A 4E 45 B2 31 35 30 3A 8B 41 24 B2 22 22 |A$:NE.150:.A$.""|
00000C30: A7 41 24 B2 22 35 22 00 B2 0F 12 02 8B 41 24 B2 |.A$."5"......A$.|
00000C40: 22 88 22 A7 46 4C 41 47 B2 30 3A 54 55 4E 45 B2 |".".FLAG.0:TUNE.|
00000C50: 31 3A 52 41 B2 30 3A 99 22 13 11 11 11 81 22 2C |1:RA.0:.".....",|
00000C60: 22 20 20 20 12 20 53 48 4F 52 54 2D 54 55 4E 45 |" . SHORT-TUNE|
00000C70: 53 20 20 22 3A 8D 39 32 30 00 F4 0F 1C 02 8B 41 |S ":.920......A|
00000C80: 24 B2 22 87 22 A7 46 4C 41 47 B2 30 3A 54 55 4E |$.".".FLAG.0:TUN|
00000C90: 45 B2 30 3A 52 41 B2 30 3A 99 22 13 11 11 11 1F |E.0:RA.0:.".....|
00000CA0: 22 2C 22 20 20 12 20 4E 4F 57 20 59 4F 55 20 50 |"," . NOW YOU P|
00000CB0: 4C 41 59 2E 20 22 3A 8D 39 31 30 00 37 10 26 02 |LAY. ":.910.7.&.|
00000CC0: 8B 41 24 B2 22 86 22 A7 46 4C 41 47 B2 31 3A 54 |.A$.".".FLAG.1:T|
00000CD0: 55 4E 45 B2 30 3A 52 41 B2 30 3A 99 22 13 11 11 |UNE.0:RA.0:."...|
00000CE0: 11 97 22 2C 22 20 20 12 20 43 2D 36 34 20 43 4F |.."," . C-64 CO|
00000CF0: 4D 50 4F 53 45 53 2E 20 22 3A 8D 39 30 30 00 79 |MPOSES. ":.900.y|
00000D00: 10 30 02 8B 41 24 B2 22 85 22 A7 46 4C 41 47 B2 |.0..A$.".".FLAG.|
00000D10: 30 3A 54 55 4E 45 B2 30 3A 52 41 B2 31 3A 99 22 |0:TUNE.0:RA.1:."|
00000D20: 13 11 11 11 1C 22 2C 22 20 20 12 20 43 2D 36 34 |....."," . C-64|
00000D30: 20 20 52 41 4E 44 4F 4D 2E 20 22 3A 8D 38 39 30 | RANDOM. ":.890|
00000D40: 00 90 10 3A 02 52 B2 C5 28 41 24 29 3A 8B 46 4C |...:.R..(A$):.FL|
00000D50: 41 47 A7 8D 32 33 30 00 A5 10 44 02 8B 52 41 A7 |AG..230...D..RA.|
00000D60: 52 B2 B5 28 BB 28 31 29 AC 31 30 29 00 BB 10 4E |R..(.(1).10)...N|
00000D70: 02 8B 54 55 4E 45 A7 52 B2 54 55 4E 45 53 28 4E |..TUNE.R.TUNES(N|
00000D80: 54 29 00 C8 10 58 02 8B 52 B1 39 A7 52 B2 30 00 |T)...X..R.9.R.0.|
00000D90: F4 10 62 02 97 48 31 2C 48 31 28 50 29 3A 97 4C |..b..H1,H1(P):.L|
00000DA0: 31 2C 4C 31 28 50 29 3A 97 48 32 2C 48 32 28 50 |1,L1(P):.H2,H2(P|
00000DB0: 29 3A 97 4C 32 2C 4C 32 28 50 29 00 02 11 6C 02 |):.L2,L2(P)...l.|
00000DC0: 8B 50 B2 33 31 A7 52 B2 31 00 10 11 76 02 8B 50 |.P.31.R.1...v..P|
00000DD0: B2 33 32 A7 52 B2 30 00 21 11 80 02 8B 48 33 28 |.32.R.0.!....H3(|
00000DE0: 52 29 B2 30 89 36 36 30 00 40 11 8A 02 97 48 33 |R).0.660.@....H3|
00000DF0: 2C 48 33 28 52 29 3A 97 4C 33 2C 4C 33 28 52 29 |,H3(R):.L3,L3(R)|
00000E00: 3A 97 56 33 2C 36 35 00 78 11 94 02 97 56 31 2C |:.V3,65.x....V1,|
00000E10: 33 33 3A 97 56 32 2C 33 33 3A 97 43 48 AA 34 30 |33:.V2,33:.CH.40|
00000E20: AA 28 52 AC 32 29 2C 43 48 28 52 29 3A 97 43 4F |.(R.2),CH(R):.CO|
00000E30: AA 34 30 AA 28 52 AC 32 29 2C 43 4F 28 52 29 00 |.40.(R.2),CO(R).|
00000E40: 86 11 9E 02 81 54 B2 31 A4 4E 45 3A 82 00 B0 11 |.....T.1.NE:....|
00000E50: A8 02 3A 97 43 48 AA 34 30 AA 28 52 AC 32 29 2C |..:.CH.40.(R.2),|
00000E60: 33 32 3A 50 B2 50 AA 31 3A 8B 50 B2 33 33 A7 50 |32:P.P.1:.P.33.P|
00000E70: B2 31 3A 89 34 37 30 00 BF 11 B2 02 41 24 B2 22 |.1:.470.....A$."|
00000E80: 22 3A 89 35 31 30 00 01 12 BC 02 83 30 2C 30 2C |":.510......0,0,|
00000E90: 32 32 2C 39 36 2C 32 35 2C 33 30 2C 32 38 2C 34 |22,96,25,30,28,4|
00000EA0: 39 2C 33 33 2C 31 33 35 2C 33 37 2C 31 36 32 2C |9,33,135,37,162,|
00000EB0: 34 34 2C 31 39 33 2C 35 30 2C 36 30 2C 35 36 2C |44,193,50,60,56,|
00000EC0: 39 39 2C 36 37 2C 31 35 00 07 12 C6 02 8F 00 4C |99,67,15.......L|
00000ED0: 12 D0 02 83 34 2C 34 2C 30 2C 35 2C 36 2C 37 2C |....4,4,0,5,6,7,|
00000EE0: 38 2C 30 2C 37 2C 37 2C 30 2C 38 2C 37 2C 36 2C |8,0,7,7,0,8,7,6,|
00000EF0: 35 2C 30 2C 34 2C 34 2C 30 2C 32 2C 34 2C 37 2C |5,0,4,4,0,2,4,7,|
00000F00: 39 2C 30 2C 39 2C 38 2C 37 2C 34 2C 36 2C 30 2C |9,0,9,8,7,4,6,0,|
00000F10: 31 2C 30 00 8D 12 DA 02 83 34 2C 35 2C 36 2C 35 |1,0......4,5,6,5|
00000F20: 2C 34 2C 35 2C 36 2C 35 2C 37 2C 38 2C 37 2C 38 |,4,5,6,5,7,8,7,8|
00000F30: 2C 37 2C 30 2C 30 2C 38 2C 39 2C 38 2C 37 2C 38 |,7,0,0,8,9,8,7,8|
00000F40: 2C 39 2C 38 2C 36 2C 37 2C 36 2C 35 2C 36 2C 30 |,9,8,6,7,6,5,6,0|
00000F50: 2C 31 2C 30 00 D6 12 E4 02 83 34 2C 34 2C 35 2C |,1,0......4,4,5,|
00000F60: 34 2C 35 2C 34 2C 38 2C 38 2C 37 2C 36 2C 37 2C |4,5,4,8,8,7,6,7,|
00000F70: 38 2C 37 2C 36 2C 35 2C 30 2C 36 2C 35 2C 34 2C |8,7,6,5,0,6,5,4,|
00000F80: 39 2C 37 2C 39 2C 34 2C 39 2C 37 2C 30 2C 39 2C |9,7,9,4,9,7,0,9,|
00000F90: 39 2C 34 2C 34 2C 36 2C 30 2C 31 2C 30 00 1B 13 |9,4,4,6,0,1,0...|
00000FA0: EE 02 83 31 2C 32 2C 33 2C 34 2C 31 2C 32 2C 33 |...1,2,3,4,1,2,3|
00000FB0: 2C 30 2C 37 2C 36 2C 35 2C 30 2C 37 2C 36 2C 35 |,0,7,6,5,0,7,6,5|
00000FC0: 2C 30 2C 34 2C 34 2C 39 2C 39 2C 34 2C 34 2C 37 |,0,4,4,9,9,4,4,7|
00000FD0: 2C 30 2C 39 2C 38 2C 37 2C 38 2C 36 2C 34 2C 31 |,0,9,8,7,8,6,4,1|
00000FE0: 2C 30 00 60 13 F8 02 83 34 2C 34 2C 33 2C 35 2C |,0.`....4,4,3,5,|
00000FF0: 34 2C 30 2C 33 2C 30 2C 37 2C 37 2C 36 2C 35 2C |4,0,3,0,7,7,6,5,|
00001000: 37 2C 30 2C 35 2C 30 2C 34 2C 34 2C 32 2C 33 2C |7,0,5,0,4,4,2,3,|
00001010: 34 2C 34 2C 34 2C 30 2C 39 2C 39 2C 38 2C 37 2C |4,4,4,0,9,9,8,7,|
00001020: 38 2C 36 2C 31 2C 30 00 A5 13 02 03 83 34 2C 34 |8,6,1,0......4,4|
00001030: 2C 38 2C 36 2C 34 2C 34 2C 38 2C 36 2C 37 2C 37 |,8,6,4,4,8,6,7,7|
00001040: 2C 36 2C 35 2C 37 2C 38 2C 37 2C 30 2C 34 2C 34 |,6,5,7,8,7,0,4,4|
00001050: 2C 39 2C 30 2C 39 2C 39 2C 34 2C 30 2C 37 2C 34 |,9,0,9,9,4,0,7,4|
00001060: 2C 35 2C 34 2C 33 2C 31 2C 31 2C 30 00 EA 13 0C |,5,4,3,1,1,0....|
00001070: 03 83 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C |..1,2,3,4,5,6,7,|
00001080: 38 2C 37 2C 30 2C 35 2C 30 2C 37 2C 36 2C 35 2C |8,7,0,5,0,7,6,5,|
00001090: 30 2C 34 2C 39 2C 37 2C 39 2C 34 2C 30 2C 37 2C |0,4,9,7,9,4,0,7,|
000010A0: 30 2C 39 2C 37 2C 34 2C 35 2C 36 2C 30 2C 31 2C |0,9,7,4,5,6,0,1,|
000010B0: 30 00 2F 14 16 03 83 33 2C 33 2C 33 2C 30 2C 33 |0./....3,3,3,0,3|
000010C0: 2C 33 2C 33 2C 30 2C 32 2C 32 2C 32 2C 33 2C 32 |,3,3,0,2,2,2,3,2|
000010D0: 2C 30 2C 35 2C 30 2C 34 2C 34 2C 34 2C 30 2C 39 |,0,5,0,4,4,4,0,9|
000010E0: 2C 39 2C 39 2C 30 2C 34 2C 39 2C 34 2C 39 2C 36 |,9,9,0,4,9,4,9,6|
000010F0: 2C 34 2C 31 2C 30 00 74 14 2A 03 83 34 2C 34 2C |,4,1,0.t.*..4,4,|
00001100: 35 2C 34 2C 38 2C 38 2C 37 2C 36 2C 37 2C 37 2C |5,4,8,8,7,6,7,7,|
00001110: 35 2C 35 2C 37 2C 30 2C 36 2C 35 2C 34 2C 32 2C |5,5,7,0,6,5,4,2,|
00001120: 34 2C 35 2C 34 2C 32 2C 34 2C 30 2C 39 2C 34 2C |4,5,4,2,4,0,9,4,|
00001130: 35 2C 34 2C 33 2C 31 2C 31 2C 30 00 B9 14 34 03 |5,4,3,1,1,0...4.|
00001140: 83 33 2C 30 2C 33 2C 32 2C 31 2C 30 2C 31 2C 30 |.3,0,3,2,1,0,1,0|
00001150: 2C 32 2C 33 2C 32 2C 35 2C 32 2C 33 2C 32 2C 30 |,2,3,2,5,2,3,2,0|
00001160: 2C 34 2C 34 2C 34 2C 39 2C 34 2C 34 2C 34 2C 30 |,4,4,4,9,4,4,4,0|
00001170: 2C 39 2C 38 2C 37 2C 34 2C 36 2C 36 2C 31 2C 30 |,9,8,7,4,6,6,1,0|
00001180: 00 FE 14 3E 03 83 38 2C 39 2C 39 2C 30 2C 38 2C |...>..8,9,9,0,8,|
00001190: 37 2C 36 2C 30 2C 37 2C 38 2C 39 2C 38 2C 37 2C |7,6,0,7,8,9,8,7,|
000011A0: 30 2C 35 2C 30 2C 34 2C 34 2C 35 2C 34 2C 39 2C |0,5,0,4,4,5,4,9,|
000011B0: 30 2C 34 2C 30 2C 37 2C 36 2C 35 2C 34 2C 36 2C |0,4,0,7,6,5,4,6,|
000011C0: 34 2C 31 2C 30 00 43 15 48 03 83 35 2C 35 2C 34 |4,1,0.C.H..5,5,4|
000011D0: 2C 30 2C 35 2C 35 2C 34 2C 30 2C 33 2C 33 2C 32 |,0,5,5,4,0,3,3,2|
000011E0: 2C 30 2C 33 2C 33 2C 32 2C 30 2C 34 2C 34 2C 37 |,0,3,3,2,0,4,4,7|
000011F0: 2C 30 2C 34 2C 34 2C 39 2C 30 2C 34 2C 34 2C 35 |,0,4,4,9,0,4,4,5|
00001200: 2C 34 2C 33 2C 31 2C 31 2C 30 00 88 15 52 03 83 |,4,3,1,1,0...R..|
00001210: 31 2C 33 2C 34 2C 35 2C 36 2C 35 2C 34 2C 33 2C |1,3,4,5,6,5,4,3,|
00001220: 32 2C 33 2C 32 2C 30 2C 37 2C 38 2C 37 2C 30 2C |2,3,2,0,7,8,7,0,|
00001230: 34 2C 35 2C 34 2C 39 2C 34 2C 35 2C 34 2C 30 2C |4,5,4,9,4,5,4,0,|
00001240: 38 2C 37 2C 36 2C 35 2C 36 2C 30 2C 31 2C 30 00 |8,7,6,5,6,0,1,0.|
00001250: CD 15 5C 03 83 39 2C 38 2C 37 2C 36 2C 35 2C 34 |..\..9,8,7,6,5,4|
00001260: 2C 33 2C 34 2C 32 2C 33 2C 34 2C 35 2C 37 2C 36 |,3,4,2,3,4,5,7,6|
00001270: 2C 35 2C 30 2C 39 2C 34 2C 34 2C 35 2C 34 2C 39 |,5,0,9,4,4,5,4,9|
00001280: 2C 34 2C 30 2C 39 2C 38 2C 37 2C 34 2C 36 2C 36 |,4,0,9,8,7,4,6,6|
00001290: 2C 31 2C 30 00 12 16 66 03 83 34 2C 35 2C 34 2C |,1,0...f..4,5,4,|
000012A0: 36 2C 34 2C 35 2C 34 2C 30 2C 32 2C 33 2C 32 2C |6,4,5,4,0,2,3,2,|
000012B0: 35 2C 32 2C 33 2C 32 2C 30 2C 34 2C 35 2C 34 2C |5,2,3,2,0,4,5,4,|
000012C0: 37 2C 34 2C 34 2C 34 2C 30 2C 39 2C 38 2C 37 2C |7,4,4,4,0,9,8,7,|
000012D0: 34 2C 35 2C 36 2C 31 2C 30 00 18 16 70 03 8F 00 |4,5,6,1,0...p...|
000012E0: 59 16 7A 03 99 22 13 11 11 11 11 11 11 11 11 11 |Y.z.."..........|
000012F0: 11 11 11 11 11 1C 20 4E 4F 54 45 20 53 45 51 55 |...... NOTE SEQU|
00001300: 45 4E 43 45 53 55 53 49 4E 47 20 41 20 52 41 4E |ENCESUSING A RAN|
00001310: 44 4F 4D 20 46 55 4E 43 54 49 4F 4E 2E 22 3A 8E |DOM FUNCTION.":.|
00001320: 00 9A 16 84 03 99 22 13 11 11 11 11 11 11 11 11 |......".........|
00001330: 11 11 11 11 11 11 97 20 54 48 45 20 43 2D 36 34 |....... THE C-64|
00001340: 27 53 20 41 2E 49 2E 20 49 4E 20 4D 55 53 49 43 |'S A.I. IN MUSIC|
00001350: 20 43 4F 4D 50 4F 53 49 54 49 4F 4E 2E 20 22 3A | COMPOSITION. ":|
00001360: 8E 00 DA 16 8E 03 99 22 13 11 11 11 11 11 11 11 |......."........|
00001370: 11 11 11 11 11 11 11 1F 20 4E 55 4D 42 45 52 53 |........ NUMBERS|
00001380: 20 46 4F 52 20 4E 4F 54 45 53 2D 4C 45 54 54 45 | FOR NOTES-LETTE|
00001390: 52 53 20 46 4F 52 20 52 45 53 54 53 2E 20 22 3A |RS FOR RESTS. ":|
000013A0: 8E 00 1C 17 98 03 99 22 13 11 11 11 11 11 11 11 |......."........|
000013B0: 11 11 11 11 11 11 11 9A 20 54 48 45 53 45 20 41 |........ THESE A|
000013C0: 52 45 20 54 48 45 20 54 55 4E 45 53 20 57 48 49 |RE THE TUNES WHI|
000013D0: 43 48 20 49 20 4D 45 4D 4F 52 49 5A 45 44 2E 20 |CH I MEMORIZED. |
000013E0: 22 3A 8E 00 4D 17 A2 03 99 22 93 1F 1D 1D 1D 1D |":..M...."......|
000013F0: 54 48 41 54 27 53 20 41 4C 4C 20 46 4F 52 20 54 |THAT'S ALL FOR T|
00001400: 48 45 20 47 52 41 4E 44 20 49 4D 50 52 4F 56 49 |HE GRAND IMPROVI|
00001410: 53 4F 52 22 00 72 17 AC 03 99 22 1D 1D 1D 1D 1D |SOR".r....".....|
00001420: 1D 1D 1D 1D 1D 1D 57 49 4C 4C 20 50 4C 41 59 20 |......WILL PLAY |
00001430: 46 4F 52 20 4E 4F 57 2E 22 00 7F 17 B6 03 93 22 |FOR NOW."......"|
00001440: 30 30 30 22 2C 38 00 00 00 |000",8... |
.......L......53281,0:.53280,0.'....".".
0....".".M...." .. ..N.
..." . . . ........"
. . . ........."
.. ..Q....". C.O.M.M.
O.D.O.R E......". 64K RAM MICROC
OMPUTER"......". SOFTWARE.
9....". BY MARCO BRUNO.]...."
.. PRESS ANY KEY......T.1.1
3:.53280,T:.:.A$:.A$."".19.....S.54272:.
SW.S.S.24:.SW,0:.:K..1:T1$."000000".L...
.X.23,24,25,26,27,28......"...1. SOUND E
FFECTS. .".E...V.15
:N1.W1.65:W2.64:AD.15:SR.0:DR.1:P1.9:P2.
255:Q.1:.30:. WAILING.X...."...3. QUIT.
."......".
..4. THE GRAND IMPROVISOR.
."......"..............................
..........."......"..WHICH DO YOU CHOOSE
? (1-4)";:.A:.A.1.A.4.."...":.27.O....A.
1..100:.A.2..1000:.A.3..64738:.A.4.."IMP
ROVE",8...D..53281,3:.53280,3:."...
SOUND EFFECTS "...E
..".. BESIDES MUSIC,YOU CAN ALSO CREATE
SOUND EFFECTS BY USING THE NOISE.-.F.."R
EGISTERS AND VARYING THE SOUND CHARACTER
ISTICS KNOWN AS ADSR (ATTACK,.S.G.."DECA
Y,SUSTAIN & RELEASE).THESE ARE COMBINED
IN REGISTERS 5 & 6....H.."PRESS ANY KEY
TO SEE REGISTER VALUES FOR SAMPLE SOUND
EFFECTS.".L.I..A$:.A$."".105...J.."....
SOUND EFFECTS REGISTER VALUES "
:."..REGISTERS".>.K..".0 1 2 3 4-ON
4-OFF 5 6 * 24".U.L..".VARIABLE N
AMES"...M..".N2 N1 P2 P1 W1 W2 AD
SR DR V"...N..".POLICE SIREN".I.O.."
.85 36 0 0 33 32 136 129 350 15
".W.P..".CRASH"...Q..".251 25 0 0 129
128 9 65 50 0 "...R..".ROCKET BL
ASTOFF".O.S..".100 25 0 0 129 128
9 129 50 0 ".C.T..".MACHINE GUN"...U.
.". 75 34 0 0 129 128 8 1 50
15"...V..".WAILING".S.W..". N2 40 0 0
65 64 15 0 1 15"...X..".SHOOT
ING"...Y..".200 40 0 0 129 128 15
15 1 0 ".V.Z..".* NOT A REGISTER PAR
T OF A TIMING LOOP.":.".PRESS ANY KEY".I
.{..A$:.A$."".123..|..53280,0:.53281,0.
......B...."WHICH SOUND EFFECT?":."1.WAI
LING":."2.SHOOTING":."3.";......"SIREN":
."4.ROCKET":."5.CRASH":."6.MACHINE GUN".
.....X...,22,96,3,35,6,71,3,244,7,233...
...4,48,8,97,14,239,21,31,3,35,6,71,14,2
39,21,31......4,48,8,97,14,239,21,31,3,3
5,6,71,3,187,7,119...H..4,48,16,195,4,18
0,14,239,4,251,14,24,5,71,12,143.".R.. 5
,152,11,48,4,48,14,24,5,152,11,48,0,0,0,
0.K.... A SHORT ROUTINE TO GIVE THE C64
A LITTLE A.I. IN MUSIC COMPOSITION.....A
I..(.(0).23).1:NE.131......AI.16..(AI.16
).260,270,280,290,300,310,320.L...R.TU((
AI.16).P):..V...R.0:......R.2:......R.3:
....".R.5:....,.R.7:....6.R.8:....@.R.0:
..V.J.."......................... I AM M
EMORIZING SIXTEEN TUNES NOW.".K.T..K.1.1
6:.IN(K):....^..I.0.32:.H1(I),L1(I),H2(I
),L2(I):.I...H..T.0.9:.H3(T),L3(T):.T.M.
..L1.54272:L2.54279:L3.54286.....H1.L1.1
:H2.L2.1:H3.L3.1.....V1.L1.4:V2.L2.4:V3.
L3.4.$....54296,12:CH.1874:CO.56146.:...
.V1.1,10:.V1.2,70.P....V2.1,10:.V2.2,70.
N.B..V3.1,10:.V3.2,75:.V3.1,8.V.L.P.1. .
V.Q.Q.1:.Q.17..T.1.1111:.:.53281,7:.930.
.....".........................
0 1 2 3 4 5 6 7 8 9 "......"...........
.........".2....".".7)". NOW PLAYING IMP
ROV. "G(IN(Q))". #";Q;".".S....V1,32:.V2
,32:.V3,64:NT.NT.1.P....A$:NE.150:.A$.""
.A$."5"......A$.".".FLAG.0:TUNE.1:RA.0:.
"....."," . SHORT-TUNES ":.920......A
$.".".FLAG.0:TUNE.0:RA.0:."....."," . N
OW YOU PLAY. ":.910.7.&..A$.".".FLAG.1:T
UNE.0:RA.0:."....."," . C-64 COMPOSES.
":.900.Y.0..A$.".".FLAG.0:TUNE.0:RA.1:."
....."," . C-64 RANDOM. ":.890...:.R.E
(A$):.FLAG..230...D..RA.R..(.(1).10)...N
..TUNE.R.TUNES(NT).H.X..R.9.R.0...B..H1,
H1(P):.L1,L1(P):.H2,H2(P):.L2,L2(P)...L.
.P.31.R.1...V..P.32.R.0.!....H3(R).0.660
.@....H3,H3(R):.L3,L3(R):.V3,65.X....V1,
33:.V2,33:.CH.40.(R.2),CH(R):.CO.40.(R.2
),CO(R)......T.1.NE:......:.CH.40.(R.2),
32:P.P.1:.P.33.P.1:.470.....A$."":.510..
....0,0,22,96,25,30,28,49,33,135,37,162,
44,193,50,60,56,99,67,15...F...L.P..4,4,
0,5,6,7,8,0,7,7,0,8,7,6,5,0,4,4,0,2,4,7,
9,0,9,8,7,4,6,0,1,0...Z..4,5,6,5,4,5,6,5
,7,8,7,8,7,0,0,8,9,8,7,8,9,8,6,7,6,5,6,0
,1,0.V....4,4,5,4,5,4,8,8,7,6,7,8,7,6,5,
0,6,5,4,9,7,9,4,9,7,0,9,9,4,4,6,0,1,0...
...1,2,3,4,1,2,3,0,7,6,5,0,7,6,5,0,4,4,9
,9,4,4,7,0,9,8,7,8,6,4,1,0.`....4,4,3,5,
4,0,3,0,7,7,6,5,7,0,5,0,4,4,2,3,4,4,4,0,
9,9,8,7,8,6,1,0......4,4,8,6,4,4,8,6,7,7
,6,5,7,8,7,0,4,4,9,0,9,9,4,0,7,4,5,4,3,1
,1,0......1,2,3,4,5,6,7,8,7,0,5,0,7,6,5,
0,4,9,7,9,4,0,7,0,9,7,4,5,6,0,1,0./....3
,3,3,0,3,3,3,0,2,2,2,3,2,0,5,0,4,4,4,0,9
,9,9,0,4,9,4,9,6,4,1,0.T.*..4,4,5,4,8,8,
7,6,7,7,5,5,7,0,6,5,4,2,4,5,4,2,4,0,9,4,
5,4,3,1,1,0...4..3,0,3,2,1,0,1,0,2,3,2,5
,2,3,2,0,4,4,4,9,4,4,4,0,9,8,7,4,6,6,1,0
...>..8,9,9,0,8,7,6,0,7,8,9,8,7,0,5,0,4,
4,5,4,9,0,4,0,7,6,5,4,6,4,1,0.C.H..5,5,4
,0,5,5,4,0,3,3,2,0,3,3,2,0,4,4,7,0,4,4,9
,0,4,4,5,4,3,1,1,0...R..1,3,4,5,6,5,4,3,
2,3,2,0,7,8,7,0,4,5,4,9,4,5,4,0,8,7,6,5,
6,0,1,0.M.\..9,8,7,6,5,4,3,4,2,3,4,5,7,6
,5,0,9,4,4,5,4,9,4,0,9,8,7,4,6,6,1,0...F
..4,5,4,6,4,5,4,0,2,3,2,5,2,3,2,0,4,5,4,
7,4,4,4,0,9,8,7,4,5,6,1,0...P...Y.Z.."..
.............. NOTE SEQUENCESUSING A RAN
DOM FUNCTION.":......."................
THE C-64'S A.I. IN MUSIC COMPOSITION. ":
..Z...."................ NUMBERS FOR NOT
ES-LETTERS FOR RESTS. ":......."........
........ THESE ARE THE TUNES WHICH I MEM
ORIZED. ":..M...."......THAT'S ALL FOR T
HE GRAND IMPROVISOR".R...."...........WI
LL PLAY FOR NOW."....."000",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL