IMPROVE
FILE INFORMATION
FILENAME(S): IMPROVE
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-10-19 22:35:46
APPEARS ON: 1 disk(s)
FILE HASH
5061df07ba08c56bcb80ac510c55031de2527140e614abbea07e8c9a06c96fe7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| !! | IMPROVE | PRG | Radd Maxx | 24 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 0A 00 4E 54 B2 30 3A 81 54 B2 30 A4 |.. ...NT.0:.T.0.| 00000010: 39 3A 87 43 4F 28 54 29 2C 43 48 28 54 29 3A 82 |9:.CO(T),CH(T):.| 00000020: 00 51 08 14 00 83 20 31 2C 31 38 2C 38 2C 36 2C |.Q.... 1,18,8,6,| 00000030: 34 2C 37 2C 32 2C 31 2C 31 34 2C 33 2C 35 2C 34 |4,7,2,1,14,3,5,4| 00000040: 2C 31 32 2C 36 2C 39 2C 37 2C 35 2C 31 2C 36 2C |,12,6,9,7,5,1,6,| 00000050: 33 00 68 08 1E 00 97 35 33 32 38 30 2C 36 3A 97 |3.h....53280,6:.| 00000060: 35 33 32 38 31 2C 31 35 00 A3 08 28 00 99 22 93 |53281,15...(..".| 00000070: 91 90 22 2C 22 1F 54 48 45 20 47 52 41 4E 44 20 |..",".THE GRAND | 00000080: 49 4D 50 52 4F 56 49 53 4F 52 22 3A 99 22 11 1C |IMPROVISOR":."..| 00000090: 22 2C 22 20 20 12 20 53 48 4F 52 54 2D 54 55 4E |"," . SHORT-TUN| 000000A0: 45 53 22 00 E4 08 32 00 99 22 1C 11 20 20 54 59 |ES"...2..".. TY| 000000B0: 50 45 20 12 46 31 92 20 4B 45 59 2C 41 4E 44 20 |PE .F1. KEY,AND | 000000C0: 43 2D 36 34 20 47 4F 45 53 20 52 41 4E 44 4F 4D |C-64 GOES RANDOM| 000000D0: 2E 22 3A 8F 20 46 4C 41 47 3D 30 20 41 4E 44 20 |.":. FLAG=0 AND | 000000E0: 52 41 3D 31 00 24 09 3C 00 99 22 97 11 20 20 54 |RA=1.$.<..".. T| 000000F0: 59 50 45 20 12 46 33 92 20 4B 45 59 2C 41 4E 44 |YPE .F3. KEY,AND| 00000100: 20 43 2D 36 34 20 57 49 4C 4C 20 43 4F 4D 50 4F | C-64 WILL COMPO| 00000110: 53 45 2E 22 3A 8F 52 45 4D 20 49 46 20 54 55 4E |SE.":.REM IF TUN| 00000120: 45 20 3D 30 00 69 09 46 00 99 22 1F 11 20 20 54 |E =0.i.F..".. T| 00000130: 59 50 45 20 12 46 35 92 20 4B 45 59 2C 41 4E 44 |YPE .F5. KEY,AND| 00000140: 20 59 4F 55 20 43 41 4E 20 50 4C 41 59 20 41 4C | YOU CAN PLAY AL| 00000150: 4F 4E 47 2E 22 3A 46 4C 41 47 B2 30 3A 8F 20 41 |ONG.":FLAG.0:. A| 00000160: 4E 44 20 54 55 4E 45 3D 30 00 AD 09 50 00 99 22 |ND TUNE=0...P.."| 00000170: 81 11 20 20 54 59 50 45 20 12 46 37 92 20 4B 45 |.. TYPE .F7. KE| 00000180: 59 2C 41 4E 44 20 59 4F 55 20 57 49 4C 4C 20 48 |Y,AND YOU WILL H| 00000190: 45 41 52 20 54 55 4E 45 53 2E 22 3A 54 55 4E 45 |EAR TUNES.":TUNE| 000001A0: B2 31 3A 99 3A 8F 20 46 4C 41 47 3D 30 00 D8 09 |.1:.:. FLAG=0...| 000001B0: 5A 00 99 22 9A 11 20 54 48 45 53 45 20 41 52 45 |Z..".. THESE ARE| 000001C0: 20 54 48 45 20 54 55 4E 45 53 20 49 20 4D 45 4D | THE TUNES I MEM| 000001D0: 4F 52 49 5A 45 44 2E 22 00 10 0A 64 00 83 20 31 |ORIZED."...d.. 1| 000001E0: 34 34 2C 33 31 2C 35 2C 32 38 2C 31 34 34 2C 33 |44,31,5,28,144,3| 000001F0: 31 2C 31 35 36 2C 31 34 34 2C 33 31 2C 33 30 2C |1,156,144,31,30,| 00000200: 35 2C 32 38 2C 31 35 36 2C 33 31 2C 33 30 2C 35 |5,28,156,31,30,5| 00000210: 00 43 0A 6E 00 86 48 31 28 33 32 29 2C 4C 31 28 |.C.n..H1(32),L1(| 00000220: 33 32 29 2C 48 32 28 33 32 29 2C 4C 32 28 33 32 |32),H2(32),L2(32| 00000230: 29 2C 49 4E 28 31 36 29 2C 54 55 4E 45 53 28 35 |),IN(16),TUNES(5| 00000240: 31 32 29 00 52 0A 78 00 99 22 11 97 22 3A 89 33 |12).R.x.."..":.3| 00000250: 33 30 00 88 0A 82 00 8F 20 41 52 52 41 59 20 56 |30...... ARRAY V| 00000260: 41 4C 55 45 53 20 46 4F 52 20 41 43 43 4F 4D 50 |ALUES FOR ACCOMP| 00000270: 41 4E 49 45 4E 54 20 54 4F 20 54 48 45 20 49 4D |ANIENT TO THE IM| 00000280: 50 52 4F 56 49 53 4F 52 00 C4 0A 8C 00 83 20 30 |PROVISOR...... 0| 00000290: 2C 30 2C 30 2C 30 2C 35 2C 31 35 32 2C 31 31 2C |,0,0,0,5,152,11,| 000002A0: 34 38 2C 31 34 2C 32 34 2C 32 32 2C 39 36 2C 34 |48,14,24,22,96,4| 000002B0: 2C 34 38 2C 38 2C 39 37 2C 31 34 2C 32 35 2C 32 |,48,8,97,14,25,2| 000002C0: 32 2C 39 36 00 ED 0A 96 00 83 20 35 2C 31 35 32 |2,96...... 5,152| 000002D0: 2C 31 31 2C 34 38 2C 31 34 2C 32 34 2C 32 32 2C |,11,48,14,24,22,| 000002E0: 39 36 2C 34 2C 34 38 2C 38 2C 32 32 35 00 22 0B |96,4,48,8,225.".| 000002F0: A0 00 83 34 2C 31 38 30 2C 39 2C 31 30 34 2C 31 |...4,180,9,104,1| 00000300: 35 2C 32 31 30 2C 32 32 2C 39 36 2C 33 2C 33 35 |5,210,22,96,3,35| 00000310: 2C 36 2C 37 31 2C 31 35 2C 32 31 30 2C 32 32 2C |,6,71,15,210,22,| 00000320: 39 36 00 56 0B AA 00 83 34 2C 31 38 30 2C 39 2C |96.V....4,180,9,| 00000330: 31 30 34 2C 31 35 2C 32 31 30 2C 32 32 2C 39 36 |104,15,210,22,96| 00000340: 2C 33 2C 33 35 2C 36 2C 37 31 2C 33 2C 32 34 34 |,3,35,6,71,3,244| 00000350: 2C 37 2C 32 33 33 00 89 0B B4 00 83 34 2C 34 38 |,7,233......4,48| 00000360: 2C 38 2C 39 37 2C 31 34 2C 32 33 39 2C 32 31 2C |,8,97,14,239,21,| 00000370: 33 31 2C 33 2C 33 35 2C 36 2C 37 31 2C 31 34 2C |31,3,35,6,71,14,| 00000380: 32 33 39 2C 32 31 2C 33 31 00 BB 0B BE 00 83 34 |239,21,31......4| 00000390: 2C 34 38 2C 38 2C 39 37 2C 31 34 2C 32 33 39 2C |,48,8,97,14,239,| 000003A0: 32 31 2C 33 31 2C 33 2C 33 35 2C 36 2C 37 31 2C |21,31,3,35,6,71,| 000003B0: 33 2C 31 38 37 2C 37 2C 31 31 39 00 F1 0B C8 00 |3,187,7,119.....| 000003C0: 83 34 2C 34 38 2C 31 36 2C 31 39 35 2C 34 2C 31 |.4,48,16,195,4,1| 000003D0: 38 30 2C 31 34 2C 32 33 39 2C 34 2C 32 35 31 2C |80,14,239,4,251,| 000003E0: 31 34 2C 32 34 2C 35 2C 37 31 2C 31 32 2C 31 34 |14,24,5,71,12,14| 000003F0: 33 00 22 0C D2 00 83 20 35 2C 31 35 32 2C 31 31 |3.".... 5,152,11| 00000400: 2C 34 38 2C 34 2C 34 38 2C 31 34 2C 32 34 2C 35 |,48,4,48,14,24,5| 00000410: 2C 31 35 32 2C 31 31 2C 34 38 2C 30 2C 30 2C 30 |,152,11,48,0,0,0| 00000420: 2C 30 00 6B 0C DC 00 8F 20 41 20 53 48 4F 52 54 |,0.k.... A SHORT| 00000430: 20 52 4F 55 54 49 4E 45 20 54 4F 20 47 49 56 45 | ROUTINE TO GIVE| 00000440: 20 54 48 45 20 43 36 34 20 41 20 4C 49 54 54 4C | THE C64 A LITTL| 00000450: 45 20 41 2E 49 2E 20 49 4E 20 4D 55 53 49 43 20 |E A.I. IN MUSIC | 00000460: 43 4F 4D 50 4F 53 49 54 49 4F 4E 00 86 0C E6 00 |COMPOSITION.....| 00000470: 41 49 B2 B5 28 BB 28 30 29 AC 32 33 29 AA 31 3A |AI..(.(0).23).1:| 00000480: 4E 45 B2 31 33 31 00 B6 0C F0 00 8B 41 49 B1 31 |NE.131......AI.1| 00000490: 36 A7 91 28 41 49 AB 31 36 29 89 32 36 30 2C 32 |6..(AI.16).260,2| 000004A0: 37 30 2C 32 38 30 2C 32 39 30 2C 33 30 30 2C 33 |70,280,290,300,3| 000004B0: 31 30 2C 33 32 30 00 CC 0C FA 00 52 B2 54 55 28 |10,320.....R.TU(| 000004C0: 28 41 49 AC 31 36 29 AA 50 29 3A 8E 00 D6 0C 04 |(AI.16).P):.....| 000004D0: 01 52 B2 30 3A 8E 00 E0 0C 0E 01 52 B2 32 3A 8E |.R.0:......R.2:.| 000004E0: 00 EA 0C 18 01 52 B2 33 3A 8E 00 F4 0C 22 01 52 |.....R.3:....".R| 000004F0: B2 35 3A 8E 00 FE 0C 2C 01 52 B2 37 3A 8E 00 08 |.5:....,.R.7:...| 00000500: 0D 36 01 52 B2 38 3A 8E 00 12 0D 40 01 52 B2 30 |.6.R.8:....@.R.0| 00000510: 3A 8E 00 56 0D 4A 01 99 22 13 11 11 11 11 11 11 |:..V.J..".......| 00000520: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D |................| 00000530: 9A 12 20 49 20 41 4D 20 4D 45 4D 4F 52 49 5A 49 |.. I AM MEMORIZI| 00000540: 4E 47 20 53 49 58 54 45 45 4E 20 54 55 4E 45 53 |NG SIXTEEN TUNES| 00000550: 20 4E 4F 57 2E 22 00 6B 0D 54 01 81 4B B2 31 A4 | NOW.".k.T..K.1.| 00000560: 31 36 3A 87 49 4E 28 4B 29 3A 82 00 93 0D 5E 01 |16:.IN(K):....^.| 00000570: 81 49 B2 30 A4 33 32 3A 87 48 31 28 49 29 2C 4C |.I.0.32:.H1(I),L| 00000580: 31 28 49 29 2C 48 32 28 49 29 2C 4C 32 28 49 29 |1(I),H2(I),L2(I)| 00000590: 3A 82 49 00 AE 0D 68 01 81 54 B2 30 A4 39 3A 87 |:.I...h..T.0.9:.| 000005A0: 48 33 28 54 29 2C 4C 33 28 54 29 3A 82 54 00 CD |H3(T),L3(T):.T..| 000005B0: 0D 86 01 4C 31 B2 35 34 32 37 32 3A 4C 32 B2 35 |...L1.54272:L2.5| 000005C0: 34 32 37 39 3A 4C 33 B2 35 34 32 38 36 00 E9 0D |4279:L3.54286...| 000005D0: 90 01 48 31 B2 4C 31 AA 31 3A 48 32 B2 4C 32 AA |..H1.L1.1:H2.L2.| 000005E0: 31 3A 48 33 B2 4C 33 AA 31 00 05 0E 9A 01 56 31 |1:H3.L3.1.....V1| 000005F0: B2 4C 31 AA 34 3A 56 32 B2 4C 32 AA 34 3A 56 33 |.L1.4:V2.L2.4:V3| 00000600: B2 4C 33 AA 34 00 24 0E A4 01 97 35 34 32 39 36 |.L3.4.$....54296| 00000610: 2C 31 32 3A 43 48 B2 31 38 37 34 3A 43 4F B2 35 |,12:CH.1874:CO.5| 00000620: 36 31 34 36 00 3A 0E AE 01 97 56 31 AA 31 2C 31 |6146.:....V1.1,1| 00000630: 30 3A 97 56 31 AA 32 2C 37 30 00 50 0E B8 01 97 |0:.V1.2,70.P....| 00000640: 56 32 AA 31 2C 31 30 3A 97 56 32 AA 32 2C 37 30 |V2.1,10:.V2.2,70| 00000650: 00 6E 0E C2 01 97 56 33 AA 31 2C 31 30 3A 97 56 |.n....V3.1,10:.V| 00000660: 33 AA 32 2C 37 35 3A 97 56 33 AB 31 2C 38 00 76 |3.2,75:.V3.1,8.v| 00000670: 0E CC 01 50 B2 31 00 A0 0E D6 01 51 B2 51 AA 31 |...P.1.....Q.Q.1| 00000680: 3A 8B 51 B2 31 37 A7 81 54 B2 31 A4 31 31 31 31 |:.Q.17..T.1.1111| 00000690: 3A 82 3A 97 35 33 32 38 31 2C 37 3A 89 39 33 30 |:.:.53281,7:.930| 000006A0: 00 DF 0E E0 01 99 22 13 11 11 11 11 11 11 11 11 |......".........| 000006B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 90 |................| 000006C0: 20 20 20 20 20 20 20 20 20 20 30 20 31 20 32 20 | 0 1 2 | 000006D0: 33 20 34 20 35 20 36 20 37 20 38 20 39 20 22 00 |3 4 5 6 7 8 9 ".| 000006E0: FB 0E EA 01 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........| 000006F0: 11 11 11 11 11 11 11 11 11 11 22 00 32 0F F4 01 |..........".2...| 00000700: 99 22 9A 22 A6 37 29 22 12 20 4E 4F 57 20 50 4C |.".".7)". NOW PL| 00000710: 41 59 49 4E 47 20 49 4D 50 52 4F 56 2E 20 22 C7 |AYING IMPROV. ".| 00000720: 28 49 4E 28 51 29 29 22 12 20 23 22 3B 51 3B 22 |(IN(Q))". #";Q;"| 00000730: 9D 22 00 53 0F FE 01 97 56 31 2C 33 32 3A 97 56 |.".S....V1,32:.V| 00000740: 32 2C 33 32 3A 97 56 33 2C 36 34 3A 4E 54 B2 4E |2,32:.V3,64:NT.N| 00000750: 54 AA 31 00 70 0F 08 02 A1 41 24 3A 4E 45 B2 31 |T.1.p....A$:NE.1| 00000760: 35 30 3A 8B 41 24 B2 22 22 A7 41 24 B2 22 35 22 |50:.A$."".A$."5"| 00000770: 00 B2 0F 12 02 8B 41 24 B2 22 88 22 A7 46 4C 41 |......A$.".".FLA| 00000780: 47 B2 30 3A 54 55 4E 45 B2 31 3A 52 41 B2 30 3A |G.0:TUNE.1:RA.0:| 00000790: 99 22 13 11 11 11 81 22 2C 22 20 20 20 12 20 53 |."....."," . S| 000007A0: 48 4F 52 54 2D 54 55 4E 45 53 20 20 22 3A 8D 39 |HORT-TUNES ":.9| 000007B0: 32 30 00 F4 0F 1C 02 8B 41 24 B2 22 87 22 A7 46 |20......A$.".".F| 000007C0: 4C 41 47 B2 30 3A 54 55 4E 45 B2 30 3A 52 41 B2 |LAG.0:TUNE.0:RA.| 000007D0: 30 3A 99 22 13 11 11 11 1F 22 2C 22 20 20 12 20 |0:."....."," . | 000007E0: 4E 4F 57 20 59 4F 55 20 50 4C 41 59 2E 20 22 3A |NOW YOU PLAY. ":| 000007F0: 8D 39 31 30 00 37 10 26 02 8B 41 24 B2 22 86 22 |.910.7.&..A$."."| 00000800: A7 46 4C 41 47 B2 31 3A 54 55 4E 45 B2 30 3A 52 |.FLAG.1:TUNE.0:R| 00000810: 41 B2 30 3A 99 22 13 11 11 11 97 22 2C 22 20 20 |A.0:."....."," | 00000820: 12 20 43 2D 36 34 20 43 4F 4D 50 4F 53 45 53 2E |. C-64 COMPOSES.| 00000830: 20 22 3A 8D 39 30 30 00 79 10 30 02 8B 41 24 B2 | ":.900.y.0..A$.| 00000840: 22 85 22 A7 46 4C 41 47 B2 30 3A 54 55 4E 45 B2 |".".FLAG.0:TUNE.| 00000850: 30 3A 52 41 B2 31 3A 99 22 13 11 11 11 1C 22 2C |0:RA.1:.".....",| 00000860: 22 20 20 12 20 43 2D 36 34 20 20 52 41 4E 44 4F |" . C-64 RANDO| 00000870: 4D 2E 20 22 3A 8D 38 39 30 00 90 10 3A 02 52 B2 |M. ":.890...:.R.| 00000880: C5 28 41 24 29 3A 8B 46 4C 41 47 A7 8D 32 33 30 |.(A$):.FLAG..230| 00000890: 00 A5 10 44 02 8B 52 41 A7 52 B2 B5 28 BB 28 31 |...D..RA.R..(.(1| 000008A0: 29 AC 31 30 29 00 BB 10 4E 02 8B 54 55 4E 45 A7 |).10)...N..TUNE.| 000008B0: 52 B2 54 55 4E 45 53 28 4E 54 29 00 C8 10 58 02 |R.TUNES(NT)...X.| 000008C0: 8B 52 B1 39 A7 52 B2 30 00 F4 10 62 02 97 48 31 |.R.9.R.0...b..H1| 000008D0: 2C 48 31 28 50 29 3A 97 4C 31 2C 4C 31 28 50 29 |,H1(P):.L1,L1(P)| 000008E0: 3A 97 48 32 2C 48 32 28 50 29 3A 97 4C 32 2C 4C |:.H2,H2(P):.L2,L| 000008F0: 32 28 50 29 00 02 11 6C 02 8B 50 B2 33 31 A7 52 |2(P)...l..P.31.R| 00000900: B2 31 00 10 11 76 02 8B 50 B2 33 32 A7 52 B2 30 |.1...v..P.32.R.0| 00000910: 00 21 11 80 02 8B 48 33 28 52 29 B2 30 89 36 36 |.!....H3(R).0.66| 00000920: 30 00 40 11 8A 02 97 48 33 2C 48 33 28 52 29 3A |0.@....H3,H3(R):| 00000930: 97 4C 33 2C 4C 33 28 52 29 3A 97 56 33 2C 36 35 |.L3,L3(R):.V3,65| 00000940: 00 78 11 94 02 97 56 31 2C 33 33 3A 97 56 32 2C |.x....V1,33:.V2,| 00000950: 33 33 3A 97 43 48 AA 34 30 AA 28 52 AC 32 29 2C |33:.CH.40.(R.2),| 00000960: 43 48 28 52 29 3A 97 43 4F AA 34 30 AA 28 52 AC |CH(R):.CO.40.(R.| 00000970: 32 29 2C 43 4F 28 52 29 00 86 11 9E 02 81 54 B2 |2),CO(R)......T.| 00000980: 31 A4 4E 45 3A 82 00 B0 11 A8 02 3A 97 43 48 AA |1.NE:......:.CH.| 00000990: 34 30 AA 28 52 AC 32 29 2C 33 32 3A 50 B2 50 AA |40.(R.2),32:P.P.| 000009A0: 31 3A 8B 50 B2 33 33 A7 50 B2 31 3A 89 34 37 30 |1:.P.33.P.1:.470| 000009B0: 00 BF 11 B2 02 41 24 B2 22 22 3A 89 35 31 30 00 |.....A$."":.510.| 000009C0: 01 12 BC 02 83 30 2C 30 2C 32 32 2C 39 36 2C 32 |.....0,0,22,96,2| 000009D0: 35 2C 33 30 2C 32 38 2C 34 39 2C 33 33 2C 31 33 |5,30,28,49,33,13| 000009E0: 35 2C 33 37 2C 31 36 32 2C 34 34 2C 31 39 33 2C |5,37,162,44,193,| 000009F0: 35 30 2C 36 30 2C 35 36 2C 39 39 2C 36 37 2C 31 |50,60,56,99,67,1| 00000A00: 35 00 07 12 C6 02 8F 00 4C 12 D0 02 83 34 2C 34 |5.......L....4,4| 00000A10: 2C 30 2C 35 2C 36 2C 37 2C 38 2C 30 2C 37 2C 37 |,0,5,6,7,8,0,7,7| 00000A20: 2C 30 2C 38 2C 37 2C 36 2C 35 2C 30 2C 34 2C 34 |,0,8,7,6,5,0,4,4| 00000A30: 2C 30 2C 32 2C 34 2C 37 2C 39 2C 30 2C 39 2C 38 |,0,2,4,7,9,0,9,8| 00000A40: 2C 37 2C 34 2C 36 2C 30 2C 31 2C 30 00 8D 12 DA |,7,4,6,0,1,0....| 00000A50: 02 83 34 2C 35 2C 36 2C 35 2C 34 2C 35 2C 36 2C |..4,5,6,5,4,5,6,| 00000A60: 35 2C 37 2C 38 2C 37 2C 38 2C 37 2C 30 2C 30 2C |5,7,8,7,8,7,0,0,| 00000A70: 38 2C 39 2C 38 2C 37 2C 38 2C 39 2C 38 2C 36 2C |8,9,8,7,8,9,8,6,| 00000A80: 37 2C 36 2C 35 2C 36 2C 30 2C 31 2C 30 00 D6 12 |7,6,5,6,0,1,0...| 00000A90: E4 02 83 34 2C 34 2C 35 2C 34 2C 35 2C 34 2C 38 |...4,4,5,4,5,4,8| 00000AA0: 2C 38 2C 37 2C 36 2C 37 2C 38 2C 37 2C 36 2C 35 |,8,7,6,7,8,7,6,5| 00000AB0: 2C 30 2C 36 2C 35 2C 34 2C 39 2C 37 2C 39 2C 34 |,0,6,5,4,9,7,9,4| 00000AC0: 2C 39 2C 37 2C 30 2C 39 2C 39 2C 34 2C 34 2C 36 |,9,7,0,9,9,4,4,6| 00000AD0: 2C 30 2C 31 2C 30 00 1B 13 EE 02 83 31 2C 32 2C |,0,1,0......1,2,| 00000AE0: 33 2C 34 2C 31 2C 32 2C 33 2C 30 2C 37 2C 36 2C |3,4,1,2,3,0,7,6,| 00000AF0: 35 2C 30 2C 37 2C 36 2C 35 2C 30 2C 34 2C 34 2C |5,0,7,6,5,0,4,4,| 00000B00: 39 2C 39 2C 34 2C 34 2C 37 2C 30 2C 39 2C 38 2C |9,9,4,4,7,0,9,8,| 00000B10: 37 2C 38 2C 36 2C 34 2C 31 2C 30 00 60 13 F8 02 |7,8,6,4,1,0.`...| 00000B20: 83 34 2C 34 2C 33 2C 35 2C 34 2C 30 2C 33 2C 30 |.4,4,3,5,4,0,3,0| 00000B30: 2C 37 2C 37 2C 36 2C 35 2C 37 2C 30 2C 35 2C 30 |,7,7,6,5,7,0,5,0| 00000B40: 2C 34 2C 34 2C 32 2C 33 2C 34 2C 34 2C 34 2C 30 |,4,4,2,3,4,4,4,0| 00000B50: 2C 39 2C 39 2C 38 2C 37 2C 38 2C 36 2C 31 2C 30 |,9,9,8,7,8,6,1,0| 00000B60: 00 A5 13 02 03 83 34 2C 34 2C 38 2C 36 2C 34 2C |......4,4,8,6,4,| 00000B70: 34 2C 38 2C 36 2C 37 2C 37 2C 36 2C 35 2C 37 2C |4,8,6,7,7,6,5,7,| 00000B80: 38 2C 37 2C 30 2C 34 2C 34 2C 39 2C 30 2C 39 2C |8,7,0,4,4,9,0,9,| 00000B90: 39 2C 34 2C 30 2C 37 2C 34 2C 35 2C 34 2C 33 2C |9,4,0,7,4,5,4,3,| 00000BA0: 31 2C 31 2C 30 00 EA 13 0C 03 83 31 2C 32 2C 33 |1,1,0......1,2,3| 00000BB0: 2C 34 2C 35 2C 36 2C 37 2C 38 2C 37 2C 30 2C 35 |,4,5,6,7,8,7,0,5| 00000BC0: 2C 30 2C 37 2C 36 2C 35 2C 30 2C 34 2C 39 2C 37 |,0,7,6,5,0,4,9,7| 00000BD0: 2C 39 2C 34 2C 30 2C 37 2C 30 2C 39 2C 37 2C 34 |,9,4,0,7,0,9,7,4| 00000BE0: 2C 35 2C 36 2C 30 2C 31 2C 30 00 2F 14 16 03 83 |,5,6,0,1,0./....| 00000BF0: 33 2C 33 2C 33 2C 30 2C 33 2C 33 2C 33 2C 30 2C |3,3,3,0,3,3,3,0,| 00000C00: 32 2C 32 2C 32 2C 33 2C 32 2C 30 2C 35 2C 30 2C |2,2,2,3,2,0,5,0,| 00000C10: 34 2C 34 2C 34 2C 30 2C 39 2C 39 2C 39 2C 30 2C |4,4,4,0,9,9,9,0,| 00000C20: 34 2C 39 2C 34 2C 39 2C 36 2C 34 2C 31 2C 30 00 |4,9,4,9,6,4,1,0.| 00000C30: 74 14 2A 03 83 34 2C 34 2C 35 2C 34 2C 38 2C 38 |t.*..4,4,5,4,8,8| 00000C40: 2C 37 2C 36 2C 37 2C 37 2C 35 2C 35 2C 37 2C 30 |,7,6,7,7,5,5,7,0| 00000C50: 2C 36 2C 35 2C 34 2C 32 2C 34 2C 35 2C 34 2C 32 |,6,5,4,2,4,5,4,2| 00000C60: 2C 34 2C 30 2C 39 2C 34 2C 35 2C 34 2C 33 2C 31 |,4,0,9,4,5,4,3,1| 00000C70: 2C 31 2C 30 00 B9 14 34 03 83 33 2C 30 2C 33 2C |,1,0...4..3,0,3,| 00000C80: 32 2C 31 2C 30 2C 31 2C 30 2C 32 2C 33 2C 32 2C |2,1,0,1,0,2,3,2,| 00000C90: 35 2C 32 2C 33 2C 32 2C 30 2C 34 2C 34 2C 34 2C |5,2,3,2,0,4,4,4,| 00000CA0: 39 2C 34 2C 34 2C 34 2C 30 2C 39 2C 38 2C 37 2C |9,4,4,4,0,9,8,7,| 00000CB0: 34 2C 36 2C 36 2C 31 2C 30 00 FE 14 3E 03 83 38 |4,6,6,1,0...>..8| 00000CC0: 2C 39 2C 39 2C 30 2C 38 2C 37 2C 36 2C 30 2C 37 |,9,9,0,8,7,6,0,7| 00000CD0: 2C 38 2C 39 2C 38 2C 37 2C 30 2C 35 2C 30 2C 34 |,8,9,8,7,0,5,0,4| 00000CE0: 2C 34 2C 35 2C 34 2C 39 2C 30 2C 34 2C 30 2C 37 |,4,5,4,9,0,4,0,7| 00000CF0: 2C 36 2C 35 2C 34 2C 36 2C 34 2C 31 2C 30 00 43 |,6,5,4,6,4,1,0.C| 00000D00: 15 48 03 83 35 2C 35 2C 34 2C 30 2C 35 2C 35 2C |.H..5,5,4,0,5,5,| 00000D10: 34 2C 30 2C 33 2C 33 2C 32 2C 30 2C 33 2C 33 2C |4,0,3,3,2,0,3,3,| 00000D20: 32 2C 30 2C 34 2C 34 2C 37 2C 30 2C 34 2C 34 2C |2,0,4,4,7,0,4,4,| 00000D30: 39 2C 30 2C 34 2C 34 2C 35 2C 34 2C 33 2C 31 2C |9,0,4,4,5,4,3,1,| 00000D40: 31 2C 30 00 88 15 52 03 83 31 2C 33 2C 34 2C 35 |1,0...R..1,3,4,5| 00000D50: 2C 36 2C 35 2C 34 2C 33 2C 32 2C 33 2C 32 2C 30 |,6,5,4,3,2,3,2,0| 00000D60: 2C 37 2C 38 2C 37 2C 30 2C 34 2C 35 2C 34 2C 39 |,7,8,7,0,4,5,4,9| 00000D70: 2C 34 2C 35 2C 34 2C 30 2C 38 2C 37 2C 36 2C 35 |,4,5,4,0,8,7,6,5| 00000D80: 2C 36 2C 30 2C 31 2C 30 00 CD 15 5C 03 83 39 2C |,6,0,1,0...\..9,| 00000D90: 38 2C 37 2C 36 2C 35 2C 34 2C 33 2C 34 2C 32 2C |8,7,6,5,4,3,4,2,| 00000DA0: 33 2C 34 2C 35 2C 37 2C 36 2C 35 2C 30 2C 39 2C |3,4,5,7,6,5,0,9,| 00000DB0: 34 2C 34 2C 35 2C 34 2C 39 2C 34 2C 30 2C 39 2C |4,4,5,4,9,4,0,9,| 00000DC0: 38 2C 37 2C 34 2C 36 2C 36 2C 31 2C 30 00 12 16 |8,7,4,6,6,1,0...| 00000DD0: 66 03 83 34 2C 35 2C 34 2C 36 2C 34 2C 35 2C 34 |f..4,5,4,6,4,5,4| 00000DE0: 2C 30 2C 32 2C 33 2C 32 2C 35 2C 32 2C 33 2C 32 |,0,2,3,2,5,2,3,2| 00000DF0: 2C 30 2C 34 2C 35 2C 34 2C 37 2C 34 2C 34 2C 34 |,0,4,5,4,7,4,4,4| 00000E00: 2C 30 2C 39 2C 38 2C 37 2C 34 2C 35 2C 36 2C 31 |,0,9,8,7,4,5,6,1| 00000E10: 2C 30 00 18 16 70 03 8F 00 59 16 7A 03 99 22 13 |,0...p...Y.z..".| 00000E20: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1C 20 |............... | 00000E30: 4E 4F 54 45 20 53 45 51 55 45 4E 43 45 53 55 53 |NOTE SEQUENCESUS| 00000E40: 49 4E 47 20 41 20 52 41 4E 44 4F 4D 20 46 55 4E |ING A RANDOM FUN| 00000E50: 43 54 49 4F 4E 2E 22 3A 8E 00 9A 16 84 03 99 22 |CTION.":......."| 00000E60: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 97 |................| 00000E70: 20 54 48 45 20 43 2D 36 34 27 53 20 41 2E 49 2E | THE C-64'S A.I.| 00000E80: 20 49 4E 20 4D 55 53 49 43 20 43 4F 4D 50 4F 53 | IN MUSIC COMPOS| 00000E90: 49 54 49 4F 4E 2E 20 22 3A 8E 00 DA 16 8E 03 99 |ITION. ":.......| 00000EA0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............| 00000EB0: 1F 20 4E 55 4D 42 45 52 53 20 46 4F 52 20 4E 4F |. NUMBERS FOR NO| 00000EC0: 54 45 53 2D 4C 45 54 54 45 52 53 20 46 4F 52 20 |TES-LETTERS FOR | 00000ED0: 52 45 53 54 53 2E 20 22 3A 8E 00 1C 17 98 03 99 |RESTS. ":.......| 00000EE0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............| 00000EF0: 9A 20 54 48 45 53 45 20 41 52 45 20 54 48 45 20 |. THESE ARE THE | 00000F00: 54 55 4E 45 53 20 57 48 49 43 48 20 49 20 4D 45 |TUNES WHICH I ME| 00000F10: 4D 4F 52 49 5A 45 44 2E 20 22 3A 8E 00 4D 17 A2 |MORIZED. ":..M..| 00000F20: 03 99 22 93 1F 1D 1D 1D 1D 54 48 41 54 27 53 20 |.."......THAT'S | 00000F30: 41 4C 4C 20 46 4F 52 20 54 48 45 20 47 52 41 4E |ALL FOR THE GRAN| 00000F40: 44 20 49 4D 50 52 4F 56 49 53 4F 52 22 00 72 17 |D IMPROVISOR".r.| 00000F50: AC 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 57 |..."...........W| 00000F60: 49 4C 4C 20 50 4C 41 59 20 46 4F 52 20 4E 4F 57 |ILL PLAY FOR NOW| 00000F70: 2E 22 00 7F 17 B6 03 93 22 30 30 30 22 2C 38 00 |."......"000",8.| 00000F80: 00 00 |.. |
.. ...NT.0:.T.0.9:.CO(T),CH(T):..Q.... 1 ,18,8,6,4,7,2,1,14,3,5,4,12,6,9,7,5,1,6, 3.H....53280,6:.53281,15...(.."...",".TH E GRAND IMPROVISOR":.".."," . SHORT-TUN ES"...2..".. TYPE .F1. KEY,AND C-64 GOE S RANDOM.":. FLAG=0 AND RA=1.$.<..".. T YPE .F3. KEY,AND C-64 WILL COMPOSE.":.RE M IF TUNE =0.I.F..".. TYPE .F5. KEY,AND YOU CAN PLAY ALONG.":FLAG.0:. AND TUNE= 0...P..".. TYPE .F7. KEY,AND YOU WILL H EAR TUNES.":TUNE.1:.:. FLAG=0.X.Z..".. T HESE ARE THE TUNES I MEMORIZED."...D.. 1 44,31,5,28,144,31,156,144,31,30,5,28,156 ,31,30,5.C.N..H1(32),L1(32),H2(32),L2(32 ),IN(16),TUNES(512).R.X.."..":.330...... ARRAY VALUES FOR ACCOMPANIENT TO THE IM PROVISOR.D.... 0,0,0,0,5,152,11,48,14,24 ,22,96,4,48,8,97,14,25,22,96...... 5,152 ,11,48,14,24,22,96,4,48,8,225.". ..4,180 ,9,104,15,210,22,96,3,35,6,71,15,210,22, 96.V....4,180,9,104,15,210,22,96,3,35,6, 71,3,244,7,233......4,48,8,97,14,239,21, 31,3,35,6,71,14,239,21,31......4,48,8,97 ,14,239,21,31,3,35,6,71,3,187,7,119...H. .4,48,16,195,4,180,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.....AI..(.(0).23).1:NE.131.. ....AI.16..(AI.16).260,270,280,290,300,3 10,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 MEMORIZING SIXTEEN TUNES NOW.".K.T..K.1.16:.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.1 874: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 IMPROV. "G(IN(Q))". #";Q;" .".S....V1,32:.V2,32:.V3,64:NT.NT.1.P... .A$:NE.150:.A$."".A$."5"......A$.".".FLA G.0:TUNE.1:RA.0:."....."," . SHORT-TUN ES ":.920......A$.".".FLAG.0:TUNE.0:RA. 0:."....."," . NOW YOU PLAY. ":.910.7.& ..A$.".".FLAG.1:TUNE.0:RA.0:."....."," . C-64 COMPOSES. ":.900.Y.0..A$.".".FLAG .0:TUNE.0:RA.1:."....."," . C-64 RANDO M. ":.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,1 5...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 SEQ UENCESUSING A RANDOM FUNCTION.":......." ................ THE C-64'S A.I. IN MUSI C COMPOSITION. ":..Z...."............... . NUMBERS FOR NOTES-LETTERS FOR RESTS. " :......."................ THESE ARE THE TUNES WHICH I MEMORIZED. ":..M...."..... .THAT'S ALL FOR THE GRAND IMPROVISOR".R. ..."...........WILL PLAY FOR NOW."..... "000",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL