Home » Personal collection » Commodore disks » disk51a_c16_music.d64 » rondo alla turca
rondo alla turca
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: | rondo alla turca |
Read OK: | ✔ |
File size: | 129C 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 » rondo alla turca
- Personal collection » Commodore disks » disk51a2_c16_music.d64 » rondo alla turca
- Personal collection » Commodore disks » disk51a3_c16_music.d64 » rondo alla turca
File contents
0 AD=24704 5 FORR=54272TO54296:POKER,0:NEXT 10 POKE53280,14:POKE53281,1 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);"RONDO ALLA TURCA" 30 POKE54296,10:POKE54277,7:POKE54291,7 40 POKE54278,133:POKE54285,133:POKE54292,133 50 POKE54284,7:READV,P,L 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=V1THENN%(1,0)=0:N%(1,1)=0:N%(2,0)=0:N%(2,1)=0 110 GOTO50 120 DATA 3,8101,10,3,7217,10,3,6812,10,3,7217,10,1,3608,20,3,8583,20,1,4290,20 130 DATA 3,5407,19,3,0,1,1,4290,19,2,5407,19,3,9634,10,3,8583,9,3,8583,1 140 DATA 1,4290,19,2,5407,19,3,8101,10,3,8583,9,3,8583,1 150 DATA 1,3608,20,3,10814,20,1,4291,19,3,5407,19,3,0,1,1,4291,19,2,5407,19 160 DATA 3,11457,10,3,10814,9,3,10814,1,1,4291,19,2,5407,19,3,10207,10 170 DATA3,10814,9,3,10814,1,1,3608,20,3,16203,10,3,14435,10,1,4291,20,2,5407,20 180 DATA 3,13625,10,3,14435,10,1,3608,20,3,16203,10,3,14435,10,1,4291,20 190 DATA 2,5407,20,3,13625,10,3,14435,10 200 DATA 1,3608,20,3,17167,20,1,4291,19,2,5407,19,3,17167,19,3,17167,1 210 DATA 1,4291,19,2,5407,19,3,14435,19,3,14435,1,1,4291,19,2,5407,19 220 DATA 3,17167,19,3,17167,1 230 DATA 1,2703,20,3,12860,5,3,14435,5,3,16203,10,1,5407,19,2,12139,19 240 DATA 3,14435,19,3,14435,1,1,5407,19,2,10814,19,3,12860,19,3,12860,1 250 DATA 1,5407,19,2,12139,19,3,14435,19,3,14435,1:REM END LINE 1 260 DATA 1,2703,20,3,12860,5,3,14435,5,3,16203,10,1,5407,19,2,12139,19 270 DATA 3,14435,19,3,14435,1,1,5407,19,2,10814,19,3,12860,19,3,12860,1 280 DATA 1,5407,19,2,12139,19,3,14435,19,3,14435,1 290 DATA 1,2703,20,3,12860,5,3,14435,5,3,16203,10,1,5407,19,2,12139,19 300 DATA 3,14435,19,3,14435,1,1,2025,19,2,10814,19,3,12860,19,3,12860,1 310 DATA 1,4050,19,2,10207,19,3,12139,19,3,12139,1,1,2703,0,2,0,40,3,10814,40 315 REM REPEAT 320 DATA 3,8101,10,3,7217,10,3,6812,10,3,7217,10,1,3608,20,3,8583,20,1,4290,20 330 DATA 3,5407,19,3,0,1,1,4290,19,2,5407,19,3,9634,10,3,8583,9,3,8583,1 340 DATA 1,4290,19,2,5407,19,3,8101,10,3,8583,9,3,8583,1 350 DATA 1,3608,20,3,10814,20,1,4291,19,3,5407,19,3,0,1,1,4291,19,2,5407,19 360 DATA 3,11457,10,3,10814,9,3,10814,1,1,4291,19,2,5407,19,3,10207,10 370 DATA3,10814,9,3,10814,1,1,3608,20,3,16203,10,3,14435,10,1,4291,20,2,5407,20 380 DATA 3,13625,10,3,14435,10,1,3608,20,3,16203,10,3,14435,10,1,4291,20 390 DATA 2,5407,20,3,13625,10,3,14435,10 400 DATA 1,3608,20,3,17167,20,1,4291,19,2,5407,19,3,17167,19,3,17167,1 410 DATA 1,4291,19,2,5407,19,3,14435,19,3,14435,1,1,4291,19,2,5407,19 420 DATA 3,17167,19,3,17167,1 430 DATA 1,2703,20,3,12860,5,3,14435,5,3,16203,10,1,5407,19,2,12139,19 440 DATA 3,14435,19,3,14435,1,1,5407,19,2,10814,19,3,12860,19,3,12860,1 450 DATA 1,5407,19,2,12139,19,3,14435,19,3,14435,1:REM END LINE 1 460 DATA 1,2703,20,3,12860,5,3,14435,5,3,16203,10,1,5407,19,2,12139,19 470 DATA 3,14435,19,3,14435,1,1,5407,19,2,10814,19,3,12860,19,3,12860,1 480 DATA 1,5407,19,2,12139,19,3,14435,19,3,14435,1 490 DATA 1,2703,20,2,0,20,3,12860,5,3,14435,5,3,16203,10,1,5407,19,2,12139,19 500 DATA 3,14435,19,3,14435,1,1,2025,19,2,10814,19,3,12860,19,3,12860,1 510 DATA 1,4050,19,2,10207,19,3,12139,19,3,12139,1,1,2703,0,2,0,40,3,10814,40 520 DATA 1,8583,20,3,10814,20,1,9634,20,3,11457,20,1,10814,19,2,12860,19 530 DATA 3,2145,19,3,2145,1,1,10814,20,2,12860,20,3,4291,20,1,2703,20,3,14435,10 540 DATA 3,12860,10,1,5407,20,3,11457,10,3,10814,10,1,3215,40,2,9634,40 550 DATA 3,8101,20,3,6430,20 590 DATA 1,8583,20,3,10814,20,1,9634,20,3,11457,20,1,10814,19,2,12860,19 600 DATA 3,2145,19,3,2145,1,1,10814,20,2,12860,20,3,4291,20,1,2703,20,3,14435,10 610 DATA3,12860,10,1,5407,20,3,11457,10,3,10814,10,1,3215,40,2,9634,40:REM END2 620 DATA 3,8101,40,1,7217,20,2,0,20,3,8583,20,1,8101,20,3,9634,20,1,1804,19 630 DATA 2,8583,19,3,10814,19,3,10814,1,1,3608,20,2,8583,20,3,10814,20 635 DATA 1,2145,20,3,11457,10,3,10814,10 640 DATA 1,4291,20,3,9634,10,3,8583,10,1,2703,40,2,8101,40,3,6812,20,3,5407,20 650 DATA 1,7217,20,2,0,20,3,8583,20,1,8101,20,3,9634,20,1,1804,19 660 DATA 2,8583,19,3,10814,19,3,10814,1,1,3608,20,2,8583,20,3,10814,20 665 DATA 1,2145,20,3,11457,10,3,10814,10 670 DATA 1,4291,20,3,9634,10,3,8583,10,1,2703,40,2,8101,40,3,6812,40 680 DATA 3,8101,10,3,7217,10,3,6812,10,3,7217,10,1,3608,20,3,8583,20,1,4290,20 690 DATA 3,5407,19,3,0,1,1,4290,19,2,5407,19,3,9634,10,3,8583,9,3,8583,1 700 DATA 1,4290,19,2,5407,19,3,8101,10,3,8583,9,3,8583,1 710 DATA 1,3608,20,3,10814,20,1,4291,19,3,5407,19,3,0,1,1,4291,19,2,5407,19 720 DATA 3,11457,10,3,10814,9,3,10814,1,1,4291,19,2,5407,19,3,10207,10 730 DATA3,10814,9,3,10814,1,1,3608,20,3,16203,10,3,14435,10,1,4291,20,2,5407,20 740 DATA 3,13625,10,3,14435,10,1,3608,20,3,16203,10,3,14435,10,1,4291,20 750 DATA 2,5407,20,3,13625,10,3,14435,10 760 DATA 1,2864,20,3,17167,20,1,3608,19,2,5103,19,3,17167,19,3,17167,1 770 DATA 1,3608,19,2,5103,19,3,14435,19,3,14435,1,1,3608,19,2,5103,19 780 DATA 3,16203,19,3,16203,1
AD�24704 ( �R�54272�54296:�R,0:� ? �53280,14:�53281,1 m �"��";�12);"RONDO ALLA TURCA"