Home » Personal collection » Commodore disks » disk51a2_c16_music.d64 » irqbasic

irqbasic

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: irqbasic
Read OK:
File size: 021F bytes
Load address: 0801
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

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);"MOONLIGHT SONATA"
    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
   100 FORW=0TOL*150:NEXT:POKE54276+V,16
   105 PA=PA+L:IFPA=V1THENPOKE54276,16:POKE54283,16
   110 GOTO50

AD�24704(�R�54272�54296:�R,0:�?
�53280,14:�53281,1m�"��";�12);"MOONLIGHT SONATA"��54296,10:�54277,7:�54291,7�(�54278,133:�54285,133:�54292,133�2�54284,7:�V,P,L�3N%(V,0)�P��(P�256)�256�4N%(V,1)��(P�256)	5V�(V�1)�7:� V��14 � 70K	7�AD,N%(1,0):�AD�1,N%(1,1):�AD�2,N%(2,0):�AD�3,N%(2,1){	8�AD�4,N%(3,0):�AD�5,N%(3,1):�AD�6,L:AD�AD�7�	F�54273�V,�(P�256)�	P�54272�V,P��(P�256)�256�	Z�54276�V,17:�V��14�PA�0:V1�L:�50�	d�W�0�L�150:�:�54276�V,16
iPA�PA�L:�PA�V1��54276,16:�54283,16
n�50
NH@@ad.24704@(HE@.r.54272.54296:.r,0:.@?HJ@.53280,14:.53281,1@MHT@."..QQQQQQQQQQQQ";.12);"moonlight sonata"@.H.@.54296,10:.54277,7:.54291,7@.H(@.54278,133:.54285,133:.54292,133@.H2@.54284,7:.v,p,l@.H3@n%(v,0).p..(p.256).256@.H4@n%(v,1)..(p.256)@QI5@v.(v.1).7:. v..14 . 70@kI7@.ad,n%(1,0):.ad.1,n%(1,1):.ad.2,n%(2,0):.ad.3,n%(2,1)@.I8@.ad.4,n%(3,0):.ad.5,n%(3,1):.ad.6,l:ad.ad.7@.If@.54273.v,.(p.256)@.Ip@.54272.v,p..(p.256).256@.Iz@.54276.v,17:.v..14.pa.0:v1.l:.50@.ID@.w.0.l.150:.:.54276.v,16@VJI@pa.pa.l:.pa.v1..54276,16:.54283,16@.JN@.50@@@
00000000  0e 08 00 00 41 44 b2 32  34 37 30 34 00 28 08 05  |....AD.24704.(..|
00000010  00 81 52 b2 35 34 32 37  32 a4 35 34 32 39 36 3a  |..R.54272.54296:|
00000020  97 52 2c 30 3a 82 00 3f  08 0a 00 97 35 33 32 38  |.R,0:..?....5328|
00000030  30 2c 31 34 3a 97 35 33  32 38 31 2c 31 00 6d 08  |0,14:.53281,1.m.|
00000040  14 00 99 22 93 90 11 11  11 11 11 11 11 11 11 11  |..."............|
00000050  11 11 22 3b a3 31 32 29  3b 22 4d 4f 4f 4e 4c 49  |..";.12);"MOONLI|
00000060  47 48 54 20 53 4f 4e 41  54 41 22 00 8d 08 1e 00  |GHT SONATA".....|
00000070  97 35 34 32 39 36 2c 31  30 3a 97 35 34 32 37 37  |.54296,10:.54277|
00000080  2c 37 3a 97 35 34 32 39  31 2c 37 00 b2 08 28 00  |,7:.54291,7...(.|
00000090  97 35 34 32 37 38 2c 31  33 33 3a 97 35 34 32 38  |.54278,133:.5428|
000000a0  35 2c 31 33 33 3a 97 35  34 32 39 32 2c 31 33 33  |5,133:.54292,133|
000000b0  00 c6 08 32 00 97 35 34  32 38 34 2c 37 3a 87 56  |...2..54284,7:.V|
000000c0  2c 50 2c 4c 00 e1 08 33  00 4e 25 28 56 2c 30 29  |,P,L...3.N%(V,0)|
000000d0  b2 50 ab b5 28 50 ad 32  35 36 29 aa 32 35 36 00  |.P..(P.256).256.|
000000e0  f6 08 34 00 4e 25 28 56  2c 31 29 b2 b5 28 50 ad  |..4.N%(V,1)..(P.|
000000f0  32 35 36 29 00 11 09 35  00 56 b2 28 56 ab 31 29  |256)...5.V.(V.1)|
00000100  ac 37 3a 8b 20 56 b3 b1  31 34 20 a7 20 37 30 00  |.7:. V..14 . 70.|
00000110  4b 09 37 00 97 41 44 2c  4e 25 28 31 2c 30 29 3a  |K.7..AD,N%(1,0):|
00000120  97 41 44 aa 31 2c 4e 25  28 31 2c 31 29 3a 97 41  |.AD.1,N%(1,1):.A|
00000130  44 aa 32 2c 4e 25 28 32  2c 30 29 3a 97 41 44 aa  |D.2,N%(2,0):.AD.|
00000140  33 2c 4e 25 28 32 2c 31  29 00 7b 09 38 00 97 41  |3,N%(2,1).{.8..A|
00000150  44 aa 34 2c 4e 25 28 33  2c 30 29 3a 97 41 44 aa  |D.4,N%(3,0):.AD.|
00000160  35 2c 4e 25 28 33 2c 31  29 3a 97 41 44 aa 36 2c  |5,N%(3,1):.AD.6,|
00000170  4c 3a 41 44 b2 41 44 aa  37 00 91 09 46 00 97 35  |L:AD.AD.7...F..5|
00000180  34 32 37 33 aa 56 2c b5  28 50 ad 32 35 36 29 00  |4273.V,.(P.256).|
00000190  ad 09 50 00 97 35 34 32  37 32 aa 56 2c 50 ab b5  |..P..54272.V,P..|
000001a0  28 50 ad 32 35 36 29 ac  32 35 36 00 d2 09 5a 00  |(P.256).256...Z.|
000001b0  97 35 34 32 37 36 aa 56  2c 31 37 3a 8b 56 b3 b1  |.54276.V,17:.V..|
000001c0  31 34 a7 50 41 b2 30 3a  56 31 b2 4c 3a 89 35 30  |14.PA.0:V1.L:.50|
000001d0  00 ef 09 64 00 81 57 b2  30 a4 4c ac 31 35 30 3a  |...d..W.0.L.150:|
000001e0  82 3a 97 35 34 32 37 36  aa 56 2c 31 36 00 16 0a  |.:.54276.V,16...|
000001f0  69 00 50 41 b2 50 41 aa  4c 3a 8b 50 41 b2 56 31  |i.PA.PA.L:.PA.V1|
00000200  a7 97 35 34 32 37 36 2c  31 36 3a 97 35 34 32 38  |..54276,16:.5428|
00000210  33 2c 31 36 00 1e 0a 6e  00 89 35 30 00 00 00     |3,16...n..50...|
0000021f