Home » Personal collection » Commodore disks » disk51a_c16_music.d64 » toccata+fugue 1
toccata+fugue 1
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Commodore disks » disk51a_c16_music.d64 |
Filename: | toccata+fugue 1 |
Read OK: | ✔ |
File size: | 07E1 bytes |
Load address: | 0801 |
Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Personal collection » Commodore disks » disk51a_c16_music.d64 » toccata+fugue 1
- Personal collection » Commodore disks » disk51a2_c16_music.d64 » toccata+fugue 1
- Personal collection » Commodore disks » disk51a3_c16_music.d64 » toccata+fugue 1
File contents
0 AD=24704 5 FORR=54272TO54296:POKER,0:NEXT 10 POKE53280,14:POKE53281,1 20 PRINT"<clr><black> ";TAB(12);"MOONLIGHT SONATA" 30 POKE54296,10:POKE54277,7:POKE54291,7 40 POKE54278,133:POKE54285,133:POKE54292,133 50 POKE54284,7:READV,P,L:L=L*2 51 N%(V,0)=P-INT(P/256)*256 52 N%(V,1)=INT(P/256) 53 V=(V-1)*7:IF V<>14 THEN 70 55 POKEAD,N%(1,0):POKEAD+1,N%(1,1):POKEAD+2,N%(2,0):POKEAD+3,N%(2,1) 56 POKEAD+4,N%(3,0):POKEAD+5,N%(3,1):POKEAD+6,L:AD=AD+7 70 POKE54273+V,INT(P/256) 80 POKE54272+V,P-INT(P/256)*256 90 POKE54276+V,17:IFV<>14THENPA=0:V1=L:GOTO50 105 PA=PA+L:IFPA=V1THENV%(1,0)=0:V%(1,1)=0:V%(2,0)=0:V%(2,1)=0 110 V%(3,0)=0:V%(3,1)=0:GOTO50 112 : 115 REM LINE 1 117 : 120 DATA 1,14435,6,3,7217,6,1,12860,6,3,6430,6,1,14435,13,3,7217,13,3,0,6 130 DATA 1,12860,3,3,6430,3,1,11457,3,3,5728,3,1,10814,3,3,5407,3,1,9634,3 140 DATA 3,4817,3,1,9094,6,3,4547,6,1,9634,13,3,4817,13,3,0,50 150 DATA 1,7217,6,3,3608,6,1,6430,6,3,3215,6,1,7217,13,3,3608,13,3,0,6,1,5407,6 160 DATA3,2703,6,1,5728,6,3,2864,6,1,4547,6,3,2273,6,1,4817,13,3,2408,13,3,0,50 170 DATA 1,3608,6,3,1804,6,1,3215,6,3,1607,6,1,3608,13,3,1804,13,3,0,6 180 DATA 1,3215,3,3,1607,3,1,2864,3,3,1432,3,1,2703,3,3,1351,3,1,2408,3 190 DATA 3,1204,3,1,2273,6,3,1136,6,1,2408,13,3,1204,13,3,0,100,1,2273,100 200 DATA 3,0,17,2,2703,100,3,0,16,3,3215,17,2,3823,100,3,3215,16,3,4547,17 210 DATA 1,5407,16,3,4547,16,1,4817,50,2,2408,50,3,3215,13,3,2703,12,3,3034,25 220 DATA 3,0,100,1,4547,3,3,2273,3 222 : 225 REM LINE 2 227 : 230 DATA 1,4817,3,3,2408,3,1,5407,3,3,2703,3,1,4547,3,3,2273,3,1,4817,3 240 DATA 3,2408,3,1,5407,3,3,2703,3,1,4547,3,3,2273,3,1,4817,3,3,2408,3 250 DATA 1,5407,3,3,2703,3,1,4547,3,3,2273,3,1,4817,3,3,2408,3,1,5407,3 260 DATA 1,5407,3,3,2703,3,1,5728,3 270 DATA 3,2864,3,1,6430,3,3,3215,3,1,5407,3,3,2703,3,1,5728,3,3,2864,3 280 DATA 1,6430,3,3,3215,3,1,5407,3,3,3703,3,1,5728,3,3,2864,3,1,6430,3 290 DATA 3,3215,3,1,5407,3,3,3703,3,1,5728,3,3,2864,3,1,6430,3,3,3215,3 300 DATA 3,3215,3,1,7217,3,3,3608,3,1,7647,3,3,4050,3,1,6430,3,3,3215,3 310 DATA 1,7217,3,3,3608,3,1,7647,3,3,4050,3,1,6430,3,3,3215,3,1,7217,3 320 DATA 3,3608,3,1,7647,3,3,4050,3,1,6430,3,3,3215,3,1,7217,3,3,3608,3,3,0,30
AD�24704 ( �R�54272�54296:�R,0:� ? �53280,14:�53281,1 m �"�� ";�12);"MOONLIGHT SONATA"