Home » Personal collection » Commodore disks » disk51a2_c16_music.d64 » angelic
angelic
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 » disk51a2_c16_music.d64 |
Filename: | angelic |
Read OK: | ✔ |
File size: | 0EE1 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 » angelic
- Personal collection » Commodore disks » disk51a2_c16_music.d64 » angelic
- Personal collection » Commodore disks » disk51a3_c16_music.d64 » angelic
File contents
2 LOCATE 1460 5 FORR=54272TO54296:POKER,0:NEXT 10 POKE53280,14:POKE53281,1:AD=6:SR=170:WF=16 20 PRINT"<clr><black><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>";TAB(12);"ANGELIC HARMONY" 30 POKE54296,10:POKE54277,AD:POKE54291,AD 40 POKE54278,SR:POKE54285,SR:POKE54292,SR 50 POKE54284,AD:READV,P,L:V=(V-1)*7 70 POKE54273+V,INT(P/256) 80 POKE54272+V,P-INT(P/256)*256 90 POKE54276+V,WF+1:IFV<>14THENPA=0:V1=L:GOTO50 100 FORW=0TOL:NEXT:POKE54276+V,WF 105 PA=PA+L:IFPA=V1THENPOKE54276,WF:POKE54283,WF 110 GOTO50 120 DATA 2,3215,2,3,0,2,1,4050,2,3,0,2,2,4817,2,3,0,2,1,6430,2,3,0,2 130 DATA 2,8101,2,3,0,2,1,9634,2,3,0,2,2,10814,2,3,0,2,1,9634,2,3,0,2 140 DATA 2,8101,2,3,0,2,1,6430,6,3,0,2,2,4817,2,3,0,2,2,4050,2,3,0,2 150 DATA 2,3215,2,3,0,2,1,4050,2,3,0,2,2,4817,2,3,0,2,1,6430,2,3,0,2 160 DATA 2,8101,2,3,0,2,1,9634,2,3,0,2,2,10814,2,3,0,2,1,9634,2,3,0,2 170 DATA 2,8101,2,3,0,2,1,6430,6,3,0,2,2,4817,2,3,0,2,2,4050,2,3,0,2 180 DATA 1,3215,2,3,0,2,2,4291,2,3,0,2,1,5407,2,3,0,2,2,10814,2,3,0,2,1,8583,2 190 DATA 3,0,2,2,6430,2,3,0,2,1,3215,2,3,0,2,2,4291,2,3,0,2,1,5407,2,3,0,2 200 DATA 2,12860,2,3,0,2,1,10814,2,3,0,2,2,8583,2,3,0,2 210 DATA 1,3215,2,3,0,2,2,4050,2,3,0,2,1,4817,2,3,0,2,2,9634,2,3,0,2,1,8101,2 220 DATA 3,0,2,2,6430,2,3,0,2,1,1607,2,3,0,2,2,2025,2,3,0,2,1,2408,2,3,0,2 230 DATA 2,8101,2,3,0,2,1,6430,2,3,0,2,2,4817,2,3,0,2 240 DATA 1,2408,2,3,0,2,2,3034,2,3,0,2,1,4291,2,3,0,2,2,4817,2,3,0,2,1,7217,2 250 DATA 3,0,2,2,8101,2,3,0,2,1,8583,2,3,0,2,2,8101,2,3,0,2,1,7217,2,3,0,2 260 DATA 2,4817,6,3,0,2,3,4291,80,3,3034,80 270 DATA1,2408,2,3,0,2,2,3215,2,3,0,2,1,4050,2,3,0,2,2,4817,2,3,0,2,1,6430,2,3 280 DATA0,2,2,7217,2,3,0,2,1,8101,2,3,0,2,2,7217,2,3,0,2,1,6430,2,3,0,2,2,4817,6 290 DATA 3,0,2,3,4050,80,3,3215,80 300 DATA 1,2408,2,3,0,2,2,3608,2,3,0,2,1,4291,2,3,0,2,2,4817,2,3,0,2,1,6069,2 310 DATA 3,0,2,2,6430,2,3,0,2,1,7217,2,3,0,2,2,6069,5,3,0,2,1,4817,3,3,0,2 320 DATA 1,2408,16,2,4291,16,3,9634,80,3,8583,80,3,7217,80 330 DATA1,3215,9,2,4050,170,3,6430,50,3,8101,60,3,10814,60,3,9634,60,3,8101,60 340 DATA 3,6430,60,1,1607,60,3,12860,60,3,0,100 350 DATA 2,3215,2,3,0,2,1,4050,2,3,0,2,2,4817,2,3,0,2,1,6430,2,3,0,2 360 DATA 2,8101,2,3,0,2,1,9634,2,3,0,2,2,10814,2,3,0,2,1,9634,2,3,0,2 370 DATA 2,8101,2,3,0,2,1,6430,6,3,0,2,2,4817,2,3,0,2,2,4050,2,3,0,2 380 DATA 2,3215,2,3,0,2,1,4050,2,3,0,2,2,4817,2,3,0,2,1,6430,2,3,0,2 390 DATA 2,8101,2,3,0,2,1,9634,2,3,0,2,2,10814,2,3,0,2,1,9634,2,3,0,2 400 DATA 2,8101,2,3,0,2,1,6430,6,3,0,2,2,4817,2,3,0,2,2,4050,2,3,0,2 410 DATA 1,3215,2,3,0,2,2,4291,2,3,0,2,1,5407,2,3,0,2,2,10814,2,3,0,2,1,8583,2 420 DATA 3,0,2,2,6430,2,3,0,2,1,3215,2,3,0,2,2,4291,2,3,0,2,1,5407,2,3,0,2 430 DATA 2,12860,2,3,0,2,1,10814,2,3,0,2,2,8583,2,3,0,2 440 DATA 1,3215,2,3,0,2,2,4050,2,3,0,2,1,4817,2,3,0,2,2,9634,2,3,0,2,1,8101,2 450 DATA 3,0,2,2,6430,2,3,0,2,1,1607,2,3,0,2,2,2025,2,3,0,2,1,2408,2,3,0,2 460 DATA 2,8101,2,3,0,2,1,6430,2,3,0,2,2,4817,2,3,0,2 470 DATA 1,2408,2,3,0,2,2,3034,2,3,0,2,1,4291,2,3,0,2,2,4817,2,3,0,2,1,7217,2 480 DATA 3,0,2,2,8101,2,3,0,2,1,8583,2,3,0,2,2,8101,2,3,0,2,1,7217,2,3,0,2 490 DATA 2,4817,6,3,0,2,3,4291,80,3,3034,80 500 DATA1,2408,2,3,0,2,2,3215,2,3,0,2,1,4050,2,3,0,2,2,4817,2,3,0,2,1,6430,2,3 510 DATA0,2,2,7217,2,3,0,2,1,8101,2,3,0,2,2,7217,2,3,0,2,1,6430,2,3,0,2,2,4817,6 520 DATA 3,0,2,3,4050,80,3,3215,80 530 DATA 1,2408,2,3,0,2,2,3608,2,3,0,2,1,4291,2,3,0,2,2,4817,2,3,0,2,1,6069,2 540 DATA 3,0,2,2,6430,2,3,0,2,1,7217,2,3,0,2,2,6069,5,3,0,2,1,4817,3,3,0,2 550 DATA 1,2408,16,2,4291,16,3,9634,80,3,8583,80,3,7217,80 560 DATA1,3215,9,2,4050,170,3,6430,50,3,8101,60,3,10814,60,3,9634,60,3,8101,60 570 DATA 3,6430,60,1,1607,60,3,12860,60,3,0,100 580 DATA 1,2703,2,3,0,2,2,3215,2,3,0,2,1,4050,2,3,0,2,2,8101,2,3,0,2,1,6430,2 590 DATA 3,0,2,2,5407,2,3,0,2,1,3215,2,3,0,2,2,4050,2,3,0,2,1,5407,2,3,0,2 600 DATA 2,10814,2,3,0,2,1,8101,2,3,0,2,2,6430,2,3,0,2 610 DATA 1,4050,2,3,0,2,2,5407,2,3,0,2,1,6430,2,3,0,2,2,12860,2,3,0,2 620 DATA 1,10814,2,3,0,2,2,8101,2,3,0,2,1,5407,2,3,0,2,2,6430,2,3,0,2,1,8101,2 630 DATA 3,0,2,2,16203,2,3,0,2,1,12860,2,3,0,2,2,10814,2,3,0,2 640 DATA 1,5407,2,3,0,2,2,7217,2,3,0CHR$ ?FILE TRUNCATED ERROR
� 1460 & �R�54272�54296:�R,0:� O �53280,14:�53281,1:AD�6:SR�170:WF�16 | �"��";�12);"ANGELIC HARMONY"