IMPROVISOR
FILE INFORMATION
FILENAME(S): IMPROVISOR
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-10-19 22:48:44
APPEARS ON: 2 disk(s)
FILE HASH
c0b7f6ffd8f943b0c158c15d5e61fa751c7024016295f44450c868091656931b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE APRIL | IMPROVISOR | PRG | Radd Maxx | 11 | 0 | DOWNLOAD FILE |
| GAZETTE APRIL | IMPROVISOR | PRG | Sailor, Ganheden | 11 | 0 | 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 A5 08 28 00 99 22 93 |53281,15...(..".| 00000070: 11 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 20 12 20 53 48 4F 52 54 2D 54 55 |"," . SHORT-TU| 000000A0: 4E 45 53 20 22 00 E7 08 32 00 99 22 1C 11 20 20 |NES "...2..".. | 000000B0: 54 59 50 45 20 12 46 31 92 20 4B 45 59 2C 20 41 |TYPE .F1. KEY, A| 000000C0: 4E 44 20 43 2D 36 34 20 47 4F 45 53 20 52 41 4E |ND C-64 GOES RAN| 000000D0: 44 4F 4D 2E 22 3A 8F 20 46 4C 41 47 3D 30 20 41 |DOM.":. FLAG=0 A| 000000E0: 4E 44 20 52 41 3D 31 00 24 09 3C 00 99 22 97 11 |ND RA=1.$.<.."..| 000000F0: 20 20 54 59 50 45 20 12 46 33 92 20 4B 45 59 2C | TYPE .F3. KEY,| 00000100: 20 41 4E 44 20 43 2D 36 34 20 57 49 4C 4C 20 43 | AND C-64 WILL C| 00000110: 4F 4D 50 4F 53 45 2E 22 3A 8F 20 49 46 20 54 55 |OMPOSE.":. IF TU| 00000120: 4E 45 3D 30 00 6A 09 46 00 99 22 1F 11 20 20 54 |NE=0.j.F..".. T| 00000130: 59 50 45 20 12 46 35 92 20 4B 45 59 2C 20 41 4E |YPE .F5. KEY, AN| 00000140: 44 20 59 4F 55 20 43 41 4E 20 50 4C 41 59 20 41 |D YOU CAN PLAY A| 00000150: 4C 4F 4E 47 2E 22 3A 46 4C 41 47 B2 30 3A 8F 20 |LONG.":FLAG.0:. | 00000160: 41 4E 44 20 54 55 4E 45 3D 30 00 AF 09 50 00 99 |AND TUNE=0...P..| 00000170: 22 81 11 20 20 54 59 50 45 20 12 46 37 92 20 4B |".. TYPE .F7. K| 00000180: 45 59 2C 20 41 4E 44 20 59 4F 55 20 57 49 4C 4C |EY, AND YOU WILL| 00000190: 20 48 45 41 52 20 54 55 4E 45 53 2E 22 3A 54 55 | HEAR TUNES.":TU| 000001A0: 4E 45 B2 31 3A 99 3A 8F 20 46 4C 41 47 3D 30 00 |NE.1:.:. FLAG=0.| 000001B0: E0 09 5A 00 99 22 9A 11 20 54 48 45 53 45 20 41 |..Z..".. THESE A| 000001C0: 52 45 20 54 48 45 20 54 55 4E 45 53 20 57 48 49 |RE THE TUNES WHI| 000001D0: 43 48 20 49 20 4D 45 4D 4F 52 49 5A 45 44 2E 22 |CH I MEMORIZED."| 000001E0: 00 18 0A 64 00 83 20 31 34 34 2C 33 31 2C 35 2C |...d.. 144,31,5,| 000001F0: 32 38 2C 31 34 34 2C 33 31 2C 31 35 36 2C 31 34 |28,144,31,156,14| 00000200: 34 2C 33 31 2C 33 30 2C 35 2C 32 38 2C 31 35 36 |4,31,30,5,28,156| 00000210: 2C 33 31 2C 33 30 2C 35 00 4B 0A 6E 00 86 48 31 |,31,30,5.K.n..H1| 00000220: 28 33 32 29 2C 4C 31 28 33 32 29 2C 48 32 28 33 |(32),L1(32),H2(3| 00000230: 32 29 2C 4C 32 28 33 32 29 2C 49 4E 28 31 36 29 |2),L2(32),IN(16)| 00000240: 2C 54 55 4E 45 53 28 35 31 32 29 00 5A 0A 78 00 |,TUNES(512).Z.x.| 00000250: 99 22 11 97 22 3A 89 33 33 30 00 95 0A 82 00 8F |."..":.330......| 00000260: 20 41 52 52 41 59 20 56 41 4C 55 45 53 20 46 4F | ARRAY VALUES FO| 00000270: 52 20 41 43 43 4F 4D 50 41 4E 49 4D 45 4E 54 20 |R ACCOMPANIMENT | 00000280: 54 4F 20 54 48 45 20 49 4D 50 52 4F 56 49 53 41 |TO THE IMPROVISA| 00000290: 54 49 4F 4E 53 00 D0 0A 8C 00 83 30 2C 30 2C 30 |TIONS......0,0,0| 000002A0: 2C 30 2C 35 2C 31 35 32 2C 31 31 2C 34 38 2C 31 |,0,5,152,11,48,1| 000002B0: 34 2C 32 34 2C 32 32 2C 39 36 2C 34 2C 34 38 2C |4,24,22,96,4,48,| 000002C0: 38 2C 39 37 2C 31 34 2C 32 35 2C 32 32 2C 39 36 |8,97,14,25,22,96| 000002D0: 00 03 0B 96 00 83 35 2C 31 35 32 2C 31 31 2C 34 |......5,152,11,4| 000002E0: 38 2C 31 34 2C 32 34 2C 32 32 2C 39 36 2C 34 2C |8,14,24,22,96,4,| 000002F0: 34 38 2C 38 2C 39 37 2C 34 2C 31 31 32 2C 38 2C |48,8,97,4,112,8,| 00000300: 32 32 35 00 38 0B A0 00 83 34 2C 31 38 30 2C 39 |225.8....4,180,9| 00000310: 2C 31 30 34 2C 31 35 2C 32 31 30 2C 32 32 2C 39 |,104,15,210,22,9| 00000320: 36 2C 33 2C 33 35 2C 36 2C 37 31 2C 31 35 2C 32 |6,3,35,6,71,15,2| 00000330: 31 30 2C 32 32 2C 39 36 00 6C 0B AA 00 83 34 2C |10,22,96.l....4,| 00000340: 31 38 30 2C 39 2C 31 30 34 2C 31 35 2C 32 31 30 |180,9,104,15,210| 00000350: 2C 32 32 2C 39 36 2C 33 2C 33 35 2C 36 2C 37 31 |,22,96,3,35,6,71| 00000360: 2C 33 2C 32 34 34 2C 37 2C 32 33 33 00 9F 0B B4 |,3,244,7,233....| 00000370: 00 83 34 2C 34 38 2C 38 2C 39 37 2C 31 34 2C 32 |..4,48,8,97,14,2| 00000380: 33 39 2C 32 31 2C 33 31 2C 33 2C 33 35 2C 36 2C |39,21,31,3,35,6,| 00000390: 37 31 2C 31 34 2C 32 33 39 2C 32 31 2C 33 31 00 |71,14,239,21,31.| 000003A0: D1 0B BE 00 83 34 2C 34 38 2C 38 2C 39 37 2C 31 |.....4,48,8,97,1| 000003B0: 34 2C 32 33 39 2C 32 31 2C 33 31 2C 33 2C 33 35 |4,239,21,31,3,35| 000003C0: 2C 36 2C 37 31 2C 33 2C 31 38 37 2C 37 2C 31 31 |,6,71,3,187,7,11| 000003D0: 39 00 07 0C C8 00 83 34 2C 34 38 2C 31 36 2C 31 |9......4,48,16,1| 000003E0: 39 35 2C 34 2C 31 38 30 2C 31 34 2C 32 33 39 2C |95,4,180,14,239,| 000003F0: 34 2C 32 35 31 2C 31 34 2C 32 34 2C 35 2C 37 31 |4,251,14,24,5,71| 00000400: 2C 31 32 2C 31 34 33 00 37 0C D2 00 83 35 2C 31 |,12,143.7....5,1| 00000410: 35 32 2C 31 31 2C 34 38 2C 34 2C 34 38 2C 31 34 |52,11,48,4,48,14| 00000420: 2C 32 34 2C 35 2C 31 35 32 2C 31 31 2C 34 38 2C |,24,5,152,11,48,| 00000430: 30 2C 30 2C 30 2C 30 00 81 0C DC 00 8F 20 41 20 |0,0,0,0...... A | 00000440: 53 48 4F 52 54 20 52 4F 55 54 49 4E 45 20 54 4F |SHORT ROUTINE TO| 00000450: 20 47 49 56 45 20 54 48 45 20 43 2D 36 34 20 41 | GIVE THE C-64 A| 00000460: 20 4C 49 54 54 4C 45 20 41 2E 49 2E 20 49 4E 20 | LITTLE A.I. IN | 00000470: 4D 55 53 49 43 20 43 4F 4D 50 4F 53 49 54 49 4F |MUSIC COMPOSITIO| 00000480: 4E 00 9C 0C E6 00 41 49 B2 B5 28 BB 28 30 29 AC |N.....AI..(.(0).| 00000490: 32 33 29 AA 31 3A 4E 45 B2 31 33 31 00 CC 0C F0 |23).1:NE.131....| 000004A0: 00 8B 41 49 B1 31 36 A7 91 28 41 49 AB 31 36 29 |..AI.16..(AI.16)| 000004B0: 89 32 36 30 2C 32 37 30 2C 32 38 30 2C 32 39 30 |.260,270,280,290| 000004C0: 2C 33 30 30 2C 33 31 30 2C 33 32 30 00 E2 0C FA |,300,310,320....| 000004D0: 00 52 B2 54 55 28 28 41 49 AC 31 36 29 AA 50 29 |.R.TU((AI.16).P)| 000004E0: 3A 8E 00 EC 0C 04 01 52 B2 30 3A 8E 00 F6 0C 0E |:......R.0:.....| 000004F0: 01 52 B2 32 3A 8E 00 00 0D 18 01 52 B2 33 3A 8E |.R.2:......R.3:.| 00000500: 00 0A 0D 22 01 52 B2 35 3A 8E 00 14 0D 2C 01 52 |...".R.5:....,.R| 00000510: B2 37 3A 8E 00 1E 0D 36 01 52 B2 38 3A 8E 00 28 |.7:....6.R.8:..(| 00000520: 0D 40 01 52 B2 30 3A 8E 00 6D 0D 4A 01 99 22 13 |.@.R.0:..m.J..".| 00000530: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000540: 11 11 11 11 1D 1D 9A 12 20 49 20 41 4D 20 4D 45 |........ I AM ME| 00000550: 4D 4F 52 49 5A 49 4E 47 20 53 49 58 54 45 45 4E |MORIZING SIXTEEN| 00000560: 20 54 55 4E 45 53 20 4E 4F 57 2E 20 22 00 82 0D | TUNES NOW. "...| 00000570: 54 01 81 4B B2 31 A4 31 36 3A 87 49 4E 28 4B 29 |T..K.1.16:.IN(K)| 00000580: 3A 82 00 AA 0D 5E 01 81 49 B2 30 A4 33 32 3A 87 |:....^..I.0.32:.| 00000590: 48 31 28 49 29 2C 4C 31 28 49 29 2C 48 32 28 49 |H1(I),L1(I),H2(I| 000005A0: 29 2C 4C 32 28 49 29 3A 82 49 00 C5 0D 68 01 81 |),L2(I):.I...h..| 000005B0: 54 B2 30 A4 39 3A 87 48 33 28 54 29 2C 4C 33 28 |T.0.9:.H3(T),L3(| 000005C0: 54 29 3A 82 54 00 E7 0D 72 01 81 54 4E B2 31 A4 |T):.T...r..TN.1.| 000005D0: 35 31 32 3A 87 54 55 4E 45 53 28 54 4E 29 3A 82 |512:.TUNES(TN):.| 000005E0: 3A 54 55 4E 45 B2 31 00 17 0E 7C 01 81 53 B2 31 |:TUNE.1...|..S.1| 000005F0: A4 32 30 3A 97 31 38 32 33 AA 53 2C 33 32 3A 97 |.20:.1823.S,32:.| 00000600: 31 38 36 33 AB 53 2C 33 32 3A 81 44 B2 31 A4 33 |1863.S,32:.D.1.3| 00000610: 33 3A 82 44 3A 82 53 00 36 0E 86 01 4C 31 B2 35 |3:.D:.S.6...L1.5| 00000620: 34 32 37 32 3A 4C 32 B2 35 34 32 37 39 3A 4C 33 |4272:L2.54279:L3| 00000630: B2 35 34 32 38 36 00 52 0E 90 01 48 31 B2 4C 31 |.54286.R...H1.L1| 00000640: AA 31 3A 48 32 B2 4C 32 AA 31 3A 48 33 B2 4C 33 |.1:H2.L2.1:H3.L3| 00000650: AA 31 00 6E 0E 9A 01 56 31 B2 4C 31 AA 34 3A 56 |.1.n...V1.L1.4:V| 00000660: 32 B2 4C 32 AA 34 3A 56 33 B2 4C 33 AA 34 00 8D |2.L2.4:V3.L3.4..| 00000670: 0E A4 01 97 35 34 32 39 36 2C 31 32 3A 43 48 B2 |....54296,12:CH.| 00000680: 31 38 37 34 3A 43 4F B2 35 36 31 34 36 00 A3 0E |1874:CO.56146...| 00000690: AE 01 97 56 31 AA 31 2C 31 30 3A 97 56 31 AA 32 |...V1.1,10:.V1.2| 000006A0: 2C 37 30 00 B9 0E B8 01 97 56 32 AA 31 2C 31 30 |,70......V2.1,10| 000006B0: 3A 97 56 32 AA 32 2C 37 30 00 D7 0E C2 01 97 56 |:.V2.2,70......V| 000006C0: 33 AA 31 2C 31 30 3A 97 56 33 AA 32 2C 37 35 3A |3.1,10:.V3.2,75:| 000006D0: 97 56 33 AB 31 2C 38 00 1A 0F CC 01 50 B2 31 3A |.V3.1,8.....P.1:| 000006E0: 8F 20 50 4C 41 59 20 41 43 43 4F 4D 50 41 4E 49 |. PLAY ACCOMPANI| 000006F0: 4D 45 4E 54 20 41 4E 44 20 47 45 54 20 4D 45 4C |MENT AND GET MEL| 00000700: 4F 44 59 20 4E 4F 54 45 20 46 52 4F 4D 20 4D 45 |ODY NOTE FROM ME| 00000710: 4C 4F 44 59 20 41 52 52 41 59 00 44 0F D6 01 51 |LODY ARRAY.D...Q| 00000720: B2 51 AA 31 3A 8B 51 B2 31 37 A7 81 54 B2 31 A4 |.Q.1:.Q.17..T.1.| 00000730: 31 31 31 31 3A 82 3A 97 35 33 32 38 31 2C 37 3A |1111:.:.53281,7:| 00000740: 89 39 33 30 00 83 0F E0 01 99 22 13 11 11 11 11 |.930......".....| 00000750: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000760: 11 11 11 90 20 20 20 20 20 20 20 20 20 20 30 20 |.... 0 | 00000770: 31 20 32 20 33 20 34 20 35 20 36 20 37 20 38 20 |1 2 3 4 5 6 7 8 | 00000780: 39 20 22 00 9F 0F EA 01 99 22 13 11 11 11 11 11 |9 "......"......| 00000790: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".| 000007A0: D6 0F F4 01 99 22 9A 22 A6 37 29 22 12 20 4E 4F |.....".".7)". NO| 000007B0: 57 20 50 4C 41 59 49 4E 47 20 49 4D 50 52 4F 56 |W PLAYING IMPROV| 000007C0: 2E 22 C7 28 49 4E 28 51 29 29 22 12 20 23 22 3B |.".(IN(Q))". #";| 000007D0: 51 3B 22 9D 20 22 00 F7 0F FE 01 97 56 31 2C 33 |Q;". "......V1,3| 000007E0: 32 3A 97 56 32 2C 33 32 3A 97 56 33 2C 36 34 3A |2:.V2,32:.V3,64:| 000007F0: 4E 54 B2 4E 54 AA 31 00 14 10 08 02 A1 41 24 3A |NT.NT.1......A$:| 00000800: 4E 45 B2 31 35 30 3A 8B 41 24 B2 22 22 A7 41 24 |NE.150:.A$."".A$| 00000810: B2 22 35 22 00 56 10 12 02 8B 41 24 B2 22 88 22 |."5".V....A$."."| 00000820: A7 46 4C 41 47 B2 30 3A 54 55 4E 45 B2 31 3A 52 |.FLAG.0:TUNE.1:R| 00000830: 41 B2 30 3A 99 22 13 11 11 11 81 22 2C 22 20 20 |A.0:."....."," | 00000840: 20 12 20 53 48 4F 52 54 2D 54 55 4E 45 53 20 20 | . SHORT-TUNES | 00000850: 22 3A 8D 39 32 30 00 98 10 1C 02 8B 41 24 B2 22 |":.920......A$."| 00000860: 87 22 A7 46 4C 41 47 B2 30 3A 54 55 4E 45 B2 30 |.".FLAG.0:TUNE.0| 00000870: 3A 52 41 B2 30 3A 99 22 13 11 11 11 1F 22 2C 22 |:RA.0:.".....","| 00000880: 20 20 12 20 4E 4F 57 20 59 4F 55 20 50 4C 41 59 | . NOW YOU PLAY| 00000890: 2E 20 22 3A 8D 39 31 30 00 DA 10 26 02 8B 41 24 |. ":.910...&..A$| 000008A0: B2 22 86 22 A7 46 4C 41 47 B2 31 3A 54 55 4E 45 |.".".FLAG.1:TUNE| 000008B0: B2 30 3A 52 41 B2 30 3A 99 22 13 11 11 11 97 22 |.0:RA.0:."....."| 000008C0: 2C 22 20 20 12 20 43 2D 36 34 20 43 4F 4D 50 4F |," . C-64 COMPO| 000008D0: 53 45 53 2E 22 3A 8D 39 30 30 00 1C 11 30 02 8B |SES.":.900...0..| 000008E0: 41 24 B2 22 85 22 A7 46 4C 41 47 B2 30 3A 54 55 |A$.".".FLAG.0:TU| 000008F0: 4E 45 B2 30 3A 52 41 B2 31 3A 99 22 13 11 11 11 |NE.0:RA.1:."....| 00000900: 1C 22 2C 22 20 20 12 20 43 2D 36 34 20 20 52 41 |."," . C-64 RA| 00000910: 4E 44 4F 4D 2E 20 22 3A 8D 38 39 30 00 33 11 3A |NDOM. ":.890.3.:| 00000920: 02 52 B2 C5 28 41 24 29 3A 8B 46 4C 41 47 A7 8D |.R..(A$):.FLAG..| 00000930: 32 33 30 00 48 11 44 02 8B 52 41 A7 52 B2 B5 28 |230.H.D..RA.R..(| 00000940: BB 28 31 29 AC 31 30 29 00 5E 11 4E 02 8B 54 55 |.(1).10).^.N..TU| 00000950: 4E 45 A7 52 B2 54 55 4E 45 53 28 4E 54 29 00 6B |NE.R.TUNES(NT).k| 00000960: 11 58 02 8B 52 B1 39 A7 52 B2 30 00 97 11 62 02 |.X..R.9.R.0...b.| 00000970: 97 48 31 2C 48 31 28 50 29 3A 97 4C 31 2C 4C 31 |.H1,H1(P):.L1,L1| 00000980: 28 50 29 3A 97 48 32 2C 48 32 28 50 29 3A 97 4C |(P):.H2,H2(P):.L| 00000990: 32 2C 4C 32 28 50 29 00 A5 11 6C 02 8B 50 B2 33 |2,L2(P)...l..P.3| 000009A0: 31 A7 52 B2 31 00 B3 11 76 02 8B 50 B2 33 32 A7 |1.R.1...v..P.32.| 000009B0: 52 B2 30 00 C4 11 80 02 8B 48 33 28 52 29 B2 30 |R.0......H3(R).0| 000009C0: 89 36 36 30 00 E3 11 8A 02 97 48 33 2C 48 33 28 |.660......H3,H3(| 000009D0: 52 29 3A 97 4C 33 2C 4C 33 28 52 29 3A 97 56 33 |R):.L3,L3(R):.V3| 000009E0: 2C 36 35 00 1B 12 94 02 97 56 31 2C 33 33 3A 97 |,65......V1,33:.| 000009F0: 56 32 2C 33 33 3A 97 43 48 AA 34 30 AA 28 52 AC |V2,33:.CH.40.(R.| 00000A00: 32 29 2C 43 48 28 52 29 3A 97 43 4F AA 34 30 AA |2),CH(R):.CO.40.| 00000A10: 28 52 AC 32 29 2C 43 4F 28 52 29 00 29 12 9E 02 |(R.2),CO(R).)...| 00000A20: 81 54 B2 31 A4 4E 45 3A 82 00 52 12 A8 02 97 43 |.T.1.NE:..R....C| 00000A30: 48 AA 34 30 AA 28 52 AC 32 29 2C 33 32 3A 50 B2 |H.40.(R.2),32:P.| 00000A40: 50 AA 31 3A 8B 50 B2 33 33 A7 50 B2 31 3A 89 34 |P.1:.P.33.P.1:.4| 00000A50: 37 30 00 61 12 B2 02 41 24 B2 22 22 3A 89 35 31 |70.a...A$."":.51| 00000A60: 30 00 A3 12 BC 02 83 30 2C 30 2C 32 32 2C 39 36 |0......0,0,22,96| 00000A70: 2C 32 35 2C 33 30 2C 32 38 2C 34 39 2C 33 33 2C |,25,30,28,49,33,| 00000A80: 31 33 35 2C 33 37 2C 31 36 32 2C 34 34 2C 31 39 |135,37,162,44,19| 00000A90: 33 2C 35 30 2C 36 30 2C 35 36 2C 39 39 2C 36 37 |3,50,60,56,99,67| 00000AA0: 2C 31 35 00 EF 12 C6 02 8F 20 45 41 43 48 20 4C |,15...... EACH L| 00000AB0: 49 4E 45 20 4F 46 20 44 41 54 41 20 43 4F 4E 54 |INE OF DATA CONT| 00000AC0: 41 49 4E 53 20 54 48 45 20 4E 4F 54 45 53 20 46 |AINS THE NOTES F| 00000AD0: 4F 52 20 4F 4E 45 20 4C 49 54 54 4C 45 20 49 4D |OR ONE LITTLE IM| 00000AE0: 50 52 4F 56 2E 2D 2D 31 36 20 44 49 46 46 2E 00 |PROV.--16 DIFF..| 00000AF0: 34 13 D0 02 83 34 2C 34 2C 30 2C 35 2C 36 2C 37 |4....4,4,0,5,6,7| 00000B00: 2C 38 2C 30 2C 37 2C 37 2C 30 2C 38 2C 37 2C 36 |,8,0,7,7,0,8,7,6| 00000B10: 2C 35 2C 30 2C 34 2C 34 2C 30 2C 32 2C 34 2C 37 |,5,0,4,4,0,2,4,7| 00000B20: 2C 39 2C 30 2C 39 2C 38 2C 37 2C 34 2C 36 2C 30 |,9,0,9,8,7,4,6,0| 00000B30: 2C 31 2C 30 00 79 13 DA 02 83 34 2C 35 2C 36 2C |,1,0.y....4,5,6,| 00000B40: 35 2C 34 2C 35 2C 36 2C 35 2C 37 2C 38 2C 37 2C |5,4,5,6,5,7,8,7,| 00000B50: 38 2C 37 2C 30 2C 30 2C 38 2C 37 2C 38 2C 39 2C |8,7,0,0,8,7,8,9,| 00000B60: 38 2C 37 2C 38 2C 39 2C 38 2C 36 2C 37 2C 36 2C |8,7,8,9,8,6,7,6,| 00000B70: 35 2C 36 2C 30 2C 31 2C 30 00 BE 13 E4 02 83 34 |5,6,0,1,0......4| 00000B80: 2C 34 2C 35 2C 34 2C 38 2C 38 2C 37 2C 36 2C 37 |,4,5,4,8,8,7,6,7| 00000B90: 2C 38 2C 37 2C 36 2C 35 2C 30 2C 36 2C 35 2C 34 |,8,7,6,5,0,6,5,4| 00000BA0: 2C 39 2C 37 2C 39 2C 34 2C 39 2C 37 2C 30 2C 39 |,9,7,9,4,9,7,0,9| 00000BB0: 2C 39 2C 34 2C 34 2C 36 2C 30 2C 31 2C 30 00 03 |,9,4,4,6,0,1,0..| 00000BC0: 14 EE 02 83 31 2C 32 2C 33 2C 34 2C 31 2C 32 2C |....1,2,3,4,1,2,| 00000BD0: 33 2C 30 2C 37 2C 36 2C 35 2C 30 2C 37 2C 36 2C |3,0,7,6,5,0,7,6,| 00000BE0: 35 2C 30 2C 34 2C 34 2C 39 2C 39 2C 34 2C 34 2C |5,0,4,4,9,9,4,4,| 00000BF0: 37 2C 30 2C 39 2C 38 2C 37 2C 38 2C 36 2C 34 2C |7,0,9,8,7,8,6,4,| 00000C00: 31 2C 30 00 48 14 F8 02 83 34 2C 34 2C 33 2C 35 |1,0.H....4,4,3,5| 00000C10: 2C 34 2C 30 2C 33 2C 30 2C 37 2C 37 2C 36 2C 35 |,4,0,3,0,7,7,6,5| 00000C20: 2C 37 2C 30 2C 35 2C 30 2C 34 2C 34 2C 32 2C 33 |,7,0,5,0,4,4,2,3| 00000C30: 2C 34 2C 34 2C 34 2C 30 2C 39 2C 39 2C 38 2C 37 |,4,4,4,0,9,9,8,7| 00000C40: 2C 38 2C 36 2C 31 2C 30 00 8D 14 02 03 83 34 2C |,8,6,1,0......4,| 00000C50: 34 2C 38 2C 36 2C 34 2C 34 2C 38 2C 36 2C 37 2C |4,8,6,4,4,8,6,7,| 00000C60: 37 2C 36 2C 35 2C 37 2C 38 2C 37 2C 30 2C 34 2C |7,6,5,7,8,7,0,4,| 00000C70: 34 2C 39 2C 30 2C 39 2C 39 2C 34 2C 30 2C 37 2C |4,9,0,9,9,4,0,7,| 00000C80: 34 2C 35 2C 34 2C 33 2C 31 2C 31 2C 30 00 D2 14 |4,5,4,3,1,1,0...| 00000C90: 0C 03 83 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 |...1,2,3,4,5,6,7| 00000CA0: 2C 38 2C 37 2C 30 2C 35 2C 30 2C 37 2C 36 2C 35 |,8,7,0,5,0,7,6,5| 00000CB0: 2C 30 2C 34 2C 39 2C 37 2C 39 2C 34 2C 30 2C 37 |,0,4,9,7,9,4,0,7| 00000CC0: 2C 30 2C 39 2C 37 2C 34 2C 35 2C 36 2C 30 2C 31 |,0,9,7,4,5,6,0,1| 00000CD0: 2C 30 00 17 15 16 03 83 33 2C 33 2C 33 2C 30 2C |,0......3,3,3,0,| 00000CE0: 33 2C 33 2C 33 2C 30 2C 32 2C 32 2C 32 2C 33 2C |3,3,3,0,2,2,2,3,| 00000CF0: 32 2C 30 2C 35 2C 30 2C 34 2C 34 2C 34 2C 30 2C |2,0,5,0,4,4,4,0,| 00000D00: 39 2C 39 2C 39 2C 30 2C 34 2C 39 2C 34 2C 39 2C |9,9,9,0,4,9,4,9,| 00000D10: 36 2C 34 2C 31 2C 30 00 5C 15 20 03 83 33 2C 34 |6,4,1,0.\. ..3,4| 00000D20: 2C 35 2C 33 2C 34 2C 35 2C 34 2C 33 2C 32 2C 33 |,5,3,4,5,4,3,2,3| 00000D30: 2C 32 2C 37 2C 32 2C 30 2C 35 2C 30 2C 34 2C 39 |,2,7,2,0,5,0,4,9| 00000D40: 2C 34 2C 37 2C 39 2C 37 2C 34 2C 30 2C 39 2C 38 |,4,7,9,7,4,0,9,8| 00000D50: 2C 37 2C 35 2C 36 2C 30 2C 31 2C 30 00 A1 15 2A |,7,5,6,0,1,0...*| 00000D60: 03 83 34 2C 34 2C 35 2C 34 2C 38 2C 38 2C 37 2C |..4,4,5,4,8,8,7,| 00000D70: 36 2C 37 2C 37 2C 35 2C 35 2C 37 2C 30 2C 36 2C |6,7,7,5,5,7,0,6,| 00000D80: 35 2C 34 2C 32 2C 34 2C 35 2C 34 2C 32 2C 34 2C |5,4,2,4,5,4,2,4,| 00000D90: 30 2C 39 2C 34 2C 35 2C 34 2C 33 2C 31 2C 31 2C |0,9,4,5,4,3,1,1,| 00000DA0: 30 00 E6 15 34 03 83 33 2C 30 2C 33 2C 32 2C 31 |0...4..3,0,3,2,1| 00000DB0: 2C 30 2C 31 2C 30 2C 32 2C 33 2C 32 2C 35 2C 32 |,0,1,0,2,3,2,5,2| 00000DC0: 2C 33 2C 32 2C 30 2C 34 2C 34 2C 34 2C 39 2C 34 |,3,2,0,4,4,4,9,4| 00000DD0: 2C 34 2C 34 2C 30 2C 39 2C 38 2C 37 2C 34 2C 36 |,4,4,0,9,8,7,4,6| 00000DE0: 2C 36 2C 31 2C 30 00 2B 16 3E 03 83 38 2C 39 2C |,6,1,0.+.>..8,9,| 00000DF0: 39 2C 30 2C 38 2C 37 2C 36 2C 30 2C 37 2C 38 2C |9,0,8,7,6,0,7,8,| 00000E00: 39 2C 38 2C 37 2C 30 2C 35 2C 30 2C 34 2C 34 2C |9,8,7,0,5,0,4,4,| 00000E10: 35 2C 34 2C 39 2C 30 2C 34 2C 30 2C 37 2C 36 2C |5,4,9,0,4,0,7,6,| 00000E20: 35 2C 34 2C 36 2C 34 2C 31 2C 30 00 70 16 48 03 |5,4,6,4,1,0.p.H.| 00000E30: 83 35 2C 35 2C 34 2C 30 2C 35 2C 35 2C 34 2C 30 |.5,5,4,0,5,5,4,0| 00000E40: 2C 33 2C 33 2C 32 2C 30 2C 33 2C 33 2C 32 2C 30 |,3,3,2,0,3,3,2,0| 00000E50: 2C 34 2C 34 2C 37 2C 30 2C 34 2C 34 2C 39 2C 30 |,4,4,7,0,4,4,9,0| 00000E60: 2C 34 2C 34 2C 35 2C 34 2C 33 2C 31 2C 31 2C 30 |,4,4,5,4,3,1,1,0| 00000E70: 00 B5 16 52 03 83 31 2C 33 2C 34 2C 35 2C 36 2C |...R..1,3,4,5,6,| 00000E80: 35 2C 34 2C 33 2C 32 2C 33 2C 32 2C 30 2C 37 2C |5,4,3,2,3,2,0,7,| 00000E90: 38 2C 37 2C 30 2C 34 2C 35 2C 34 2C 39 2C 34 2C |8,7,0,4,5,4,9,4,| 00000EA0: 35 2C 34 2C 30 2C 38 2C 37 2C 36 2C 35 2C 36 2C |5,4,0,8,7,6,5,6,| 00000EB0: 30 2C 31 2C 30 00 FA 16 5C 03 83 39 2C 38 2C 37 |0,1,0...\..9,8,7| 00000EC0: 2C 36 2C 35 2C 34 2C 33 2C 34 2C 32 2C 33 2C 34 |,6,5,4,3,4,2,3,4| 00000ED0: 2C 35 2C 37 2C 36 2C 35 2C 30 2C 39 2C 34 2C 34 |,5,7,6,5,0,9,4,4| 00000EE0: 2C 35 2C 34 2C 39 2C 34 2C 30 2C 39 2C 38 2C 37 |,5,4,9,4,0,9,8,7| 00000EF0: 2C 34 2C 36 2C 36 2C 31 2C 30 00 3F 17 66 03 83 |,4,6,6,1,0.?.f..| 00000F00: 34 2C 35 2C 34 2C 36 2C 34 2C 35 2C 34 2C 30 2C |4,5,4,6,4,5,4,0,| 00000F10: 32 2C 33 2C 32 2C 35 2C 32 2C 33 2C 32 2C 30 2C |2,3,2,5,2,3,2,0,| 00000F20: 34 2C 35 2C 34 2C 37 2C 34 2C 34 2C 34 2C 30 2C |4,5,4,7,4,4,4,0,| 00000F30: 39 2C 38 2C 37 2C 34 2C 35 2C 36 2C 31 2C 30 00 |9,8,7,4,5,6,1,0.| 00000F40: 64 17 70 03 8F 20 49 4E 53 54 52 55 43 54 49 4F |d.p.. INSTRUCTIO| 00000F50: 4E 53 20 46 4F 52 20 45 41 43 48 20 46 55 4E 43 |NS FOR EACH FUNC| 00000F60: 54 49 4F 4E 00 A6 17 7A 03 99 22 13 11 11 11 11 |TION...z..".....| 00000F70: 11 11 11 11 11 11 11 11 11 11 1C 20 4E 4F 54 45 |........... NOTE| 00000F80: 20 53 45 51 55 45 4E 43 45 53 20 55 53 49 4E 47 | SEQUENCES USING| 00000F90: 20 41 20 52 41 4E 44 4F 4D 20 46 55 4E 43 54 49 | A RANDOM FUNCTI| 00000FA0: 4F 4E 2E 22 3A 8E 00 E8 17 84 03 99 22 13 11 11 |ON.":......."...| 00000FB0: 11 11 11 11 11 11 11 11 11 11 11 11 97 20 54 48 |............. TH| 00000FC0: 45 20 43 2D 36 34 27 53 20 41 2E 20 49 2E 20 49 |E C-64'S A. I. I| 00000FD0: 4E 20 4D 55 53 49 43 20 43 4F 4D 50 4F 53 49 54 |N MUSIC COMPOSIT| 00000FE0: 49 4F 4E 2E 20 22 3A 8E 00 2A 18 8E 03 99 22 13 |ION. ":..*....".| 00000FF0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1F 20 |............... | 00001000: 4E 55 4D 42 45 52 53 20 46 4F 52 20 4E 4F 54 45 |NUMBERS FOR NOTE| 00001010: 53 20 2D 20 4C 45 54 54 45 52 53 20 46 4F 52 20 |S - LETTERS FOR | 00001020: 52 45 53 54 53 2E 20 22 3A 8E 00 6C 18 98 03 99 |RESTS. ":..l....| 00001030: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............| 00001040: 9A 20 54 48 45 53 45 20 41 52 45 20 54 48 45 20 |. THESE ARE THE | 00001050: 54 55 4E 45 53 20 57 48 49 43 48 20 49 20 4D 45 |TUNES WHICH I ME| 00001060: 4D 4F 52 49 5A 45 44 2E 20 22 3A 8E 00 99 18 A2 |MORIZED. ":.....| 00001070: 03 99 22 93 1F 1D 1D 1D 1D 54 48 41 54 27 53 20 |.."......THAT'S | 00001080: 41 4C 4C 20 54 48 45 20 47 52 41 4E 44 20 49 4D |ALL THE GRAND IM| 00001090: 50 52 4F 56 49 53 4F 52 22 00 BE 18 AC 03 99 22 |PROVISOR"......"| 000010A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 57 49 4C 4C 20 |...........WILL | 000010B0: 50 4C 41 59 20 46 4F 52 20 4E 4F 57 2E 22 00 00 |PLAY FOR NOW."..| 000010C0: 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-TU NES "...2..".. TYPE .F1. KEY, AND C-64 GOES RANDOM.":. FLAG=0 AND RA=1.$.<..".. TYPE .F3. KEY, AND C-64 WILL COMPOSE." :. IF TUNE=0.J.F..".. TYPE .F5. KEY, AN D YOU CAN PLAY ALONG.":FLAG.0:. AND TUNE =0...P..".. TYPE .F7. KEY, AND YOU WILL HEAR TUNES.":TUNE.1:.:. FLAG=0...Z..".. THESE ARE THE TUNES WHICH I MEMORIZED." ...D.. 144,31,5,28,144,31,156,144,31,30, 5,28,156,31,30,5.K.N..H1(32),L1(32),H2(3 2),L2(32),IN(16),TUNES(512).Z.X.."..":.3 30...... ARRAY VALUES FOR ACCOMPANIMENT TO THE IMPROVISATIONS.P....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,97, 4,112,8,225.8. ..4,180,9,104,15,210,22,9 6,3,35,6,71,15,210,22,96.L....4,180,9,10 4,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,23 9,21,31.Q....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.7.R..5,1 52,11,48,4,48,14,24,5,152,11,48,0,0,0,0. ..... A SHORT ROUTINE TO GIVE THE C-64 A LITTLE A.I. IN MUSIC COMPOSITION.....AI ..(.(0).23).1:NE.131.L....AI.16..(AI.16) .260,270,280,290,300,310,320.....R.TU((A I.16).P):......R.0:......R.2:......R.3:. ...".R.5:....,.R.7:....6.R.8:..(.@.R.0:. .M.J.."......................... I AM ME MORIZING SIXTEEN TUNES NOW. "...T..K.1.1 6:.IN(K):....^..I.0.32:.H1(I),L1(I),H2(I ),L2(I):.I.E.H..T.0.9:.H3(T),L3(T):.T... R..TN.1.512:.TUNES(TN):.:TUNE.1...|..S.1 .20:.1823.S,32:.1863.S,32:.D.1.33:.D:.S. 6...L1.54272:L2.54279:L3.54286.R...H1.L1 .1:H2.L2.1:H3.L3.1.N...V1.L1.4:V2.L2.4:V 3.L3.4......54296,12:CH.1874:CO.56146... ...V1.1,10:.V1.2,70......V2.1,10:.V2.2,7 0.W.B..V3.1,10:.V3.2,75:.V3.1,8...L.P.1: . PLAY ACCOMPANIMENT AND GET MELODY NOTE FROM MELODY ARRAY.D.V.Q.Q.1:.Q.17..T.1. 1111:.:.53281,7:.930......"............. ............ 0 1 2 3 4 5 6 7 8 9 "......"....................".V...."." .7)". NOW PLAYING IMPROV."G(IN(Q))". #"; Q;". "......V1,32:.V2,32:.V3,64:NT.NT.1. .....A$:NE.150:.A$."".A$."5".V....A$."." .FLAG.0:TUNE.1:RA.0:."....."," . SHORT -TUNES ":.920......A$.".".FLAG.0:TUNE.0 :RA.0:."....."," . NOW YOU PLAY. ":.910 .Z.&..A$.".".FLAG.1:TUNE.0:RA.0:."....." ," . C-64 COMPOSES.":.900...0..A$.".".F LAG.0:TUNE.0:RA.1:."....."," . C-64 RA NDOM. ":.890.3.:.R.E(A$):.FLAG..230.H.D. .RA.R..(.(1).10).^.N..TUNE.R.TUNES(NT).K .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.D....H3(R).0.660......H3,H3(R):.L3,L 3(R):.V3,65......V1,33:.V2,33:.CH.40.(R. 2),CH(R):.CO.40.(R.2),CO(R).)....T.1.NE: ..R....CH.40.(R.2),32:P.P.1:.P.33.P.1:.4 70.A...A$."":.510......0,0,22,96,25,30,2 8,49,33,135,37,162,44,193,50,60,56,99,67 ,15...F.. EACH LINE OF DATA CONTAINS THE NOTES FOR ONE LITTLE IMPROV.--16 DIFF.. 4.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.Y.Z..4,5,6, 5,4,5,6,5,7,8,7,8,7,0,0,8,7,8,9,8,7,8,9, 8,6,7,6,5,6,0,1,0......4,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.H... .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.R....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.\. ..3,4 ,5,3,4,5,4,3,2,3,2,7,2,0,5,0,4,9,4,7,9,7 ,4,0,9,8,7,5,6,0,1,0...*..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.P.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...\..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.D.P.. INSTRUCTIO NS FOR EACH FUNCTION...Z.."............. ... NOTE SEQUENCES USING A RANDOM FUNCTI ON.":......."................ THE C-64'S A. I. IN MUSIC COMPOSITION. ":..*....". ............... NUMBERS FOR NOTES - LETT ERS FOR RESTS. ":..L...."............... . THESE ARE THE TUNES WHICH I MEMORIZED. ":......."......THAT'S ALL THE GRAND IM PROVISOR"......"...........WILL PLAY FOR NOW."...
> CLICK IMAGE PREVIEW FOR FULL MODAL