Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape07a_c16_d90_ages_b.wav » music

music

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 tapes » Commodore_16 » drawer_br_tape07a_c16_d90_ages_b.wav
Filename: music
Read OK:
File size: 026E bytes
Load address: 1001
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
     5 GOSUB 1000
     6 FOR X=1 TO 9: READ N(X): NEXT X
     8 CHAR1,8,1,"*THE GREAT MUSIC MACHINE*"
    10 VOL 7
    20 DO
    30 GET A$:IF A$=""THEN 30
    35 A=ASC(A$):IF A=<49 OR A>57 THEN 50
    36 N=A-48
    40 SOUND 1,N(N),4
    45 GSHAPE N$,150,8*(6+(9-N)),4
    46 FOR Z=1 TO 50: NEXT Z
    47 GSHAPE N$, 150,8*(6+(9-N)),4
    50 LOOP UNTIL A=32
    55 VOL 0:GRAPHIC 0: SCNCLR
    60 END
   100 DATA 345,383,453,516,571,596,643,685,704
   555 RUN
  1000 GRAPHIC 1,1
  1010 FOR Y=60 TO 124 STEP 16
  1020 DRAW 1,100, Y TO 200, Y
  1030 NEXT Y
  1040 A$="FEDCBAGFE"
  1050 FOR X=1 TO 9: C=13
  1060 IF INT(X/2) THEN C=14
  1070 CHAR 1,C,X+6,MID$(A$,X,1),0
  1075 CHAR 1,C+10,X+6,RIGHT$(STR$(10-X),1)
  1080 NEXT X
  1090 FOR X=1 TO 8:FOR Y=11 TO 16:DRAW 1,X,Y:NEXT Y,X
  1100 Y=1:X=8:DRAW 1,8,16 TO X,Y
  1110 SSHAPE N$,1,1,8,16
  1120 GSHAPE N$,1,1,4
  1130 RETURN

� 1000'� X�1 � 9: � N(X): � XN�1,8,1,"*THE GREAT MUSIC MACHINE*"V
� 7\�q� A$:� A$�""� 30�#A��(A$):� A��49 � A�57 � 50�$N�A�48�(� 1,N(N),4�-� N$,150,8�(6�(9�N)),4�.� Z�1 � 50: � Z�/� N$, 150,8�(6�(9�N)),42� � A�327� 0:� 0: �<�Bd� 345,383,453,516,571,596,643,685,704H+�R�� 1,1h�� Y�60 � 124 � 16��� 1,100, Y � 200, Y�� Y�A$�"FEDCBAGFE"�� X�1 � 9: C�13�$� �(X�2) � C�14�.� 1,C,X�6,�(A$,X,1),0�3� 1,C�10,X�6,�(�(10�X),1)8� X+B� X�1 � 8:� Y�11 � 16:� 1,X,Y:� Y,XFLY�1:X�8:� 1,8,16 � X,YXV� N$,1,1,8,16g`� N$,1,1,4mj�
LPE@. 1000@'PF@. x.1 . 9: . n(x): . x@nPH@.1,8,1,"*the great music machine*"@vPJ@. 7@£PT@.@QP.@. a$:. a$."". 30@.P#@a..(a$):. a..49 . a.57 . 50@.P$@n.a.48@.P(@. 1,n(n),4@.P-@. n$,150,8.(6.(9.n)),4@.P.@. z.1 . 50: . z@.P/@. n$, 150,8.(6.(9.n)),4@CQ2@. . a.32@RQ7@. 0:. 0: .@XQ<@.@bQD@. 345,383,453,516,571,596,643,685,704@hQ+B.@rQ.C. 1,1@HQ.C. y.60 . 124 . 16@.Q.C. 1,100, y . 200, y@.QFD. y@.QPDa$."fedcbagfe"@.QZD. x.1 . 9: c.13@.Q$D. .(x.2) . c.14@.Q.D. 1,c,x.6,.(a$,x,1),0@.Q3D. 1,c.10,x.6,.(.(10.x),1)@CR8D. x@+RbD. x.1 . 8:. y.11 . 16:. 1,x,y:. y,x@fRlDy.1:x.8:. 1,8,16 . x,y@xRvD. n$,1,1,8,16@GR.D. n$,1,1,4@MRJD.@@@
00000000  0c 10 05 00 8d 20 31 30  30 30 00 27 10 06 00 81  |..... 1000.'....|
00000010  20 58 b2 31 20 a4 20 39  3a 20 87 20 4e 28 58 29  | X.1 . 9: . N(X)|
00000020  3a 20 82 20 58 00 4e 10  08 00 e0 31 2c 38 2c 31  |: . X.N....1,8,1|
00000030  2c 22 2a 54 48 45 20 47  52 45 41 54 20 4d 55 53  |,"*THE GREAT MUS|
00000040  49 43 20 4d 41 43 48 49  4e 45 2a 22 00 56 10 0a  |IC MACHINE*".V..|
00000050  00 db 20 37 00 5c 10 14  00 eb 00 71 10 1e 00 a1  |.. 7.\.....q....|
00000060  20 41 24 3a 8b 20 41 24  b2 22 22 a7 20 33 30 00  | A$:. A$."". 30.|
00000070  91 10 23 00 41 b2 c6 28  41 24 29 3a 8b 20 41 b2  |..#.A..(A$):. A.|
00000080  b3 34 39 20 b0 20 41 b1  35 37 20 a7 20 35 30 00  |.49 . A.57 . 50.|
00000090  9c 10 24 00 4e b2 41 ab  34 38 00 ab 10 28 00 da  |..$.N.A.48...(..|
000000a0  20 31 2c 4e 28 4e 29 2c  34 00 c6 10 2d 00 e3 20  | 1,N(N),4...-.. |
000000b0  4e 24 2c 31 35 30 2c 38  ac 28 36 aa 28 39 ab 4e  |N$,150,8.(6.(9.N|
000000c0  29 29 2c 34 00 da 10 2e  00 81 20 5a b2 31 20 a4  |)),4...... Z.1 .|
000000d0  20 35 30 3a 20 82 20 5a  00 f6 10 2f 00 e3 20 4e  | 50: . Z.../.. N|
000000e0  24 2c 20 31 35 30 2c 38  ac 28 36 aa 28 39 ab 4e  |$, 150,8.(6.(9.N|
000000f0  29 29 2c 34 00 03 11 32  00 ec 20 fc 20 41 b2 33  |)),4...2.. . A.3|
00000100  32 00 12 11 37 00 db 20  30 3a de 20 30 3a 20 e8  |2...7.. 0:. 0: .|
00000110  00 18 11 3c 00 80 00 42  11 64 00 83 20 33 34 35  |...<...B.d.. 345|
00000120  2c 33 38 33 2c 34 35 33  2c 35 31 36 2c 35 37 31  |,383,453,516,571|
00000130  2c 35 39 36 2c 36 34 33  2c 36 38 35 2c 37 30 34  |,596,643,685,704|
00000140  00 48 11 2b 02 8a 00 52  11 e8 03 de 20 31 2c 31  |.H.+...R.... 1,1|
00000150  00 68 11 f2 03 81 20 59  b2 36 30 20 a4 20 31 32  |.h.... Y.60 . 12|
00000160  34 20 a9 20 31 36 00 80  11 fc 03 e5 20 31 2c 31  |4 . 16...... 1,1|
00000170  30 30 2c 20 59 20 a4 20  32 30 30 2c 20 59 00 88  |00, Y . 200, Y..|
00000180  11 06 04 82 20 59 00 9b  11 10 04 41 24 b2 22 46  |.... Y.....A$."F|
00000190  45 44 43 42 41 47 46 45  22 00 af 11 1a 04 81 20  |EDCBAGFE"...... |
000001a0  58 b2 31 20 a4 20 39 3a  20 43 b2 31 33 00 c3 11  |X.1 . 9: C.13...|
000001b0  24 04 8b 20 b5 28 58 ad  32 29 20 a7 20 43 b2 31  |$.. .(X.2) . C.1|
000001c0  34 00 dd 11 2e 04 e0 20  31 2c 43 2c 58 aa 36 2c  |4...... 1,C,X.6,|
000001d0  ca 28 41 24 2c 58 2c 31  29 2c 30 00 fb 11 33 04  |.(A$,X,1),0...3.|
000001e0  e0 20 31 2c 43 aa 31 30  2c 58 aa 36 2c c9 28 c4  |. 1,C.10,X.6,.(.|
000001f0  28 31 30 ab 58 29 2c 31  29 00 03 12 38 04 82 20  |(10.X),1)...8.. |
00000200  58 00 2b 12 42 04 81 20  58 b2 31 20 a4 20 38 3a  |X.+.B.. X.1 . 8:|
00000210  81 20 59 b2 31 31 20 a4  20 31 36 3a e5 20 31 2c  |. Y.11 . 16:. 1,|
00000220  58 2c 59 3a 82 20 59 2c  58 00 46 12 4c 04 59 b2  |X,Y:. Y,X.F.L.Y.|
00000230  31 3a 58 b2 38 3a e5 20  31 2c 38 2c 31 36 20 a4  |1:X.8:. 1,8,16 .|
00000240  20 58 2c 59 00 58 12 56  04 e4 20 4e 24 2c 31 2c  | X,Y.X.V.. N$,1,|
00000250  31 2c 38 2c 31 36 00 67  12 60 04 e3 20 4e 24 2c  |1,8,16.g.`.. N$,|
00000260  31 2c 31 2c 34 00 6d 12  6a 04 8e 00 00 00        |1,1,4.m.j.....|
0000026e