Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 » 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 disks » disk52a2_c16_progs.d64 |
| 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:
- Personal collection » Commodore disks » disk52a2_c16_progs.d64 » music
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape07a_c16_d90_ages_b.wav » music
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): � X N �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)),4 2 � � A�32 7 � 0:� 0: � < � Bd � 345,383,453,516,571,596,643,685,704 H+� R�� 1,1 h�� 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,X FLY�1:X�8:� 1,8,16 � X,Y XV� N$,1,1,8,16 g`� N$,1,1,4 mj�
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
.