Home » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF » SAMPLES/RAGTIME
SAMPLES/RAGTIME
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 » Acorn ADFS disks » Electron » Music_2.ADF |
Filename: | SAMPLES/RAGTIME |
Read OK: | ✔ |
File size: | 029E bytes |
Load address: | FFFF1D00 |
Exec address: | FFFF8023 |
File contents
10 REM RAGTIME 20 REM CONVERTED TO THE ELK BY BOB. 30REMOTHERWISEOTHERWISEOTHERWISEOTHERWISEOTHERWISE BY PAUL LAYZELL 40MODE4 50X=&2000:IFX?46=1 ANDX?326=13 ANDX?2000=165 ANDX?2056=1 : GOTO100 60VDU28,13,17,26,15 70*LO."RAGDATA"2000 90CLS:VDU26 100ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,63 110ENVELOPE12,1,0,0,0,0,0,0,126,-4,-2,-2,126,63 120B%=&2000 :REM This is the start of the music data. 130DIMZ%8 140C%=158 150TIME=0 160REM This part of the program loads each note into a 6 byte block called Z%, the parameters are then passed to the SOUND statement. 170REPEAT 180!Z%=C%!B% 190C%=C%+4 200Z%!4=C%!B% 210C%=C%+2 220Z%!6=0 230IF Z%!4=&2E THEN TIME=-10 240 REPEAT:UNTILTIME*8>=Z%!4 250 A%=21:X%=Z%?1+4:Y%=0:CALL&FFF4 260SOUND Z%?1,Z%?3,?Z%,Z%?2 270UNTIL ?Z%=0
� RAGTIME # � CONVERTED TO THE ELK BY BOB. � BY PAUL LAYZELL (�4 2=X=&2000:�X?46=1 �X?326=13 �X?2000=165 �X?2056=1 : �Dd@ <�28,13,17,26,15 F*LO."RAGDATA"2000 Z �:�26 d'�1,1,0,0,0,0,0,0,126,-1,0,-1,126,63 n)�12,1,0,0,0,0,0,0,126,-4,-2,-2,126,63 x6B%=&2000 :� This is the start of the music data. ��Z%8 �C%=158 ��=0 ��� This part of the program loads each note into a 6 byte block called Z%, the parameters are then passed to the SOUND statement. �� � !Z%=C%!B% �C%=C%+4 �Z%!4=C%!B% �C%=C%+2 � Z%!6=0 �� Z%!4=&2E � �=-10 � �:��*8>=Z%!4 �! A%=21:X%=Z%?1+4:Y%=0:�&FFF4 � Z%?1,Z%?3,?Z%,Z%?2 � ?Z%=0 �
00000000 0d 00 0a 0e 20 f4 20 52 41 47 54 49 4d 45 0d 00 |.... . RAGTIME..| 00000010 14 23 20 f4 20 43 4f 4e 56 45 52 54 45 44 20 54 |.# . CONVERTED T| 00000020 4f 20 54 48 45 20 45 4c 4b 20 42 59 20 42 4f 42 |O THE ELK BY BOB| 00000030 2e 0d 00 1e 1b f4 7f 7f 7f 7f 7f 20 42 59 20 50 |........... BY P| 00000040 41 55 4c 20 4c 41 59 5a 45 4c 4c 20 0d 00 28 06 |AUL LAYZELL ..(.| 00000050 eb 34 0d 00 32 3d 58 3d 26 32 30 30 30 3a e7 58 |.4..2=X=&2000:.X| 00000060 3f 34 36 3d 31 20 20 80 58 3f 33 32 36 3d 31 33 |?46=1 .X?326=13| 00000070 20 80 58 3f 32 30 30 30 3d 31 36 35 20 80 58 3f | .X?2000=165 .X?| 00000080 32 30 35 36 3d 31 20 3a 20 e5 8d 44 64 40 20 0d |2056=1 : ..Dd@ .| 00000090 00 3c 13 ef 32 38 2c 31 33 2c 31 37 2c 32 36 2c |.<..28,13,17,26,| 000000a0 31 35 0d 00 46 15 2a 4c 4f 2e 22 52 41 47 44 41 |15..F.*LO."RAGDA| 000000b0 54 41 22 32 30 30 30 0d 00 5a 09 db 3a ef 32 36 |TA"2000..Z..:.26| 000000c0 0d 00 64 27 e2 31 2c 31 2c 30 2c 30 2c 30 2c 30 |..d'.1,1,0,0,0,0| 000000d0 2c 30 2c 30 2c 31 32 36 2c 2d 31 2c 30 2c 2d 31 |,0,0,126,-1,0,-1| 000000e0 2c 31 32 36 2c 36 33 0d 00 6e 29 e2 31 32 2c 31 |,126,63..n).12,1| 000000f0 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 31 32 36 |,0,0,0,0,0,0,126| 00000100 2c 2d 34 2c 2d 32 2c 2d 32 2c 31 32 36 2c 36 33 |,-4,-2,-2,126,63| 00000110 0d 00 78 36 42 25 3d 26 32 30 30 30 20 3a f4 20 |..x6B%=&2000 :. | 00000120 54 68 69 73 20 69 73 20 74 68 65 20 73 74 61 72 |This is the star| 00000130 74 20 6f 66 20 20 74 68 65 20 6d 75 73 69 63 20 |t of the music | 00000140 64 61 74 61 2e 20 0d 00 82 08 de 5a 25 38 0d 00 |data. .....Z%8..| 00000150 8c 0b 43 25 3d 31 35 38 20 0d 00 96 07 d1 3d 30 |..C%=158 .....=0| 00000160 0d 00 a0 8d f4 20 54 68 69 73 20 70 61 72 74 20 |..... This part | 00000170 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 20 6c |of the program l| 00000180 6f 61 64 73 20 20 65 61 63 68 20 6e 6f 74 65 20 |oads each note | 00000190 69 6e 74 6f 20 61 20 36 20 62 79 74 65 20 62 6c |into a 6 byte bl| 000001a0 6f 63 6b 20 63 61 6c 6c 65 64 20 20 20 20 5a 25 |ock called Z%| 000001b0 2c 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 73 |, the parameters| 000001c0 20 61 72 65 20 74 68 65 6e 20 70 61 73 73 65 64 | are then passed| 000001d0 20 74 6f 20 20 20 74 68 65 20 53 4f 55 4e 44 20 | to the SOUND | 000001e0 73 74 61 74 65 6d 65 6e 74 2e 20 20 20 0d 00 aa |statement. ...| 000001f0 05 f5 0d 00 b4 0d 21 5a 25 3d 43 25 21 42 25 0d |......!Z%=C%!B%.| 00000200 00 be 0b 43 25 3d 43 25 2b 34 0d 00 c8 0e 5a 25 |...C%=C%+4....Z%| 00000210 21 34 3d 43 25 21 42 25 0d 00 d2 0b 43 25 3d 43 |!4=C%!B%....C%=C| 00000220 25 2b 32 0d 00 dc 0a 5a 25 21 36 3d 30 0d 00 e6 |%+2....Z%!6=0...| 00000230 18 e7 20 5a 25 21 34 3d 26 32 45 20 8c 20 d1 3d |.. Z%!4=&2E . .=| 00000240 2d 31 30 20 20 0d 00 f0 13 20 f5 3a fd 91 2a 38 |-10 .... .:..*8| 00000250 3e 3d 5a 25 21 34 20 20 0d 00 fa 21 20 41 25 3d |>=Z%!4 ...! A%=| 00000260 32 31 3a 58 25 3d 5a 25 3f 31 2b 34 3a 59 25 3d |21:X%=Z%?1+4:Y%=| 00000270 30 3a d6 26 46 46 46 34 20 0d 01 04 18 d4 20 5a |0:.&FFF4 ..... Z| 00000280 25 3f 31 2c 5a 25 3f 33 2c 3f 5a 25 2c 5a 25 3f |%?1,Z%?3,?Z%,Z%?| 00000290 32 0d 01 0e 0b fd 20 3f 5a 25 3d 30 0d ff |2..... ?Z%=0..| 0000029e