music3

Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 » music3

music3

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:	music3
Read OK:	✔
File size:	04DF 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 » music3
Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape07a_c16_d90_ages_b.wav » music3

File contents

    10 SCNCLR
    20 PRINT:PRINT:PRINT:PRINT:PRINT"WHICH VOICE DO YOU WANT (1 OR 2)";
    30 INPUT VC
    40 IF VC=1 THEN 70
    50 IF VC=2 THEN 70
    60 RUN
    70 SCNCLR
    80 PRINT:PRINT:PRINT:PRINT:PRINT"WHICH VOLUME DO YOU WANT (1 TO 8)";
    90 INPUT VL
   100 IF VL=1 THEN 190
   110 IF VL=2 THEN 190
   120 IF VL=3 THEN 190
   130 IF VL=4 THEN 190
   140 IF VL=5 THEN 190
   150 IF VL=6 THEN 190
   160 IF VL=7 THEN 190
   170 IF VL=8 THEN 190
   180 GOTO 70
   190 SCNCLR
   200 COLOR 4,1
   210 COLOR 0,1
   220 COLOR 1,6
   230 PRINT"<orange>     FROD'S AMAZING MUSIC PROGRAM"
   240 PRINT"<light blue>🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸"
   250 COLOR 1,6
   260 PRINT"          1=C"
   270 PRINT:PRINT"          2=D"
   280 PRINT:PRINT"          3=E"
   290 PRINT:PRINT"          4=F"
   300 PRINT:PRINT"          5=G"
   310 PRINT:PRINT"          6=A"
   320 PRINT:PRINT"          7=B"
   330 PRINT:PRINT"          8=C"
   340 PRINT:PRINT"          9=MACHINE GUN NOISE"
   350 PRINT:PRINT:PRINT"          TO RESTART PROGRAM PRESS 'R'"
   360 PRINT:PRINT"          TO STOP PROGRAM PRESS 'S'"
   370 VOL VL
   380 GET A$
   390 IF A$="1" THEN 510
   400 IF A$="2" THEN 530
   410 IF A$="3" THEN 550
   420 IF A$="4" THEN 570
   430 IF A$="5" THEN 590
   440 IF A$="6" THEN 610
   450 IF A$="7" THEN 630
   460 IF A$="8" THEN 650
   470 IF A$="9" THEN 670
   480 IF A$="R" THEN RUN
   490 IF A$="S" THEN 690
   500 GOTO 380
   510 SOUND VC,596,10
   520 GOTO 380
   530 SOUND VC,643,10
   540 GOTO 380
   550 SOUND VC,685,10
   560 GOTO 380
   570 SOUND VC,704,10
   580 GOTO 380
   590 SOUND VC,739,10
   600 GOTO 380
   610 SOUND VC,770,10
   620 GOTO 380
   630 SOUND VC,798,10
   640 GOTO 380
   650 SOUND VC,810,10
   660 GOTO 380
   670 SOUND 3,800,20
   680 GOTO 380
   690 SCNCLR
   700 END


�8�:�:�:�:�"WHICH VOICE DO YOU WANT (1 OR 2)";A� VCQ(� VC�1 � 70a2� VC�2 � 70g<�mF��P�:�:�:�:�"WHICH VOLUME DO YOU WANT (1 TO 8)";�Z� VL�d� VL�1 � 190�n� VL�2 � 190�x� VL�3 � 190��� VL�4 � 190��� VL�5 � 190�� VL�6 � 190�� VL�7 � 1900�� VL�8 � 1909�� 70?��I�� 4,1S�� 0,1]�� 1,6���"�     FROD'S AMAZING MUSIC PROGRAM"���"�����������������������������������������"��� 1,6��"          1=C"��:�"          2=D"�:�"          3=E""�:�"          4=F"3,�:�"          5=G"J6�:�"          6=A"a@�:�"          7=B"xJ�:�"          8=C"�T�:�"          9=MACHINE GUN NOISE"�^�:�:�"          TO RESTART PROGRAM PRESS 'R'"�h�:�"          TO STOP PROGRAM PRESS 'S'"r� VL|� A$#�� A$�"1" � 5106�� A$�"2" � 530I�� A$�"3" � 550\�� A$�"4" � 570o�� A$�"5" � 590��� A$�"6" � 610��� A$�"7" � 630��� A$�"8" � 650��� A$�"9" � 670��� A$�"R" � ���� A$�"S" � 690��� 380��� VC,596,10� 380� VC,643,10� 380-&� VC,685,1070� 380G:� VC,704,10QD� 380aN� VC,739,10kX� 380{b� VC,770,10�l� 380�v� VC,798,10��� 380��� VC,810,10��� 380��� 3,800,20��� 380������

GPJ@.@8PT@.:.:.:.:."which voice do you want (1 or 2)";@aP.@. vc@qP(@. vc.1 . 70@AP2@. vc.2 . 70@GP<@.@MPf@.@.Pp@.:.:.:.:."which volume do you want (1 to 8)";@.Pz@. vl@.PD@. vl.1 . 190@.PN@. vl.2 . 190@.PX@. vl.3 . 190@.P.@. vl.4 . 190@.P.@. vl.5 . 190@NQ.@. vl.6 . 190@.Q.@. vl.7 . 190@0Q.@. vl.8 . 190@9Q.@. 70@?Q.@.@iQ.@. 4,1@sQ.@. 0,1@]Q.@. 1,6@.Q.@.".     frod's amazing music program"@.Q.@."........................................."@.Q.@. 1,6@.QDA."          1=c"@.QNA.:."          2=d"@ERXA.:."          3=e"@£R"A.:."          4=f"@3R,A.:."          5=g"@jR6A.:."          6=a"@AR@A.:."          7=b"@XRjA.:."          8=c"@.RtA.:."          9=machine gun noise"@.R.A.:.:."          to restart program press 'r'"@.RHA.:."          to stop program press 's'"@GSRA. vl@PS.A. a$@#S.A. a$."1" . 510@6S.A. a$."2" . 530@iS.A. a$."3" . 550@£S.A. a$."4" . 570@OS.A. a$."5" . 590@.S.A. a$."6" . 610@.S.A. a$."7" . 630@.S.A. a$."8" . 650@.S.A. a$."9" . 670@.S.A. a$."r" . .@.S.A. a$."s" . 690@.S.A. 380@.S.A. vc,596,10@CTHB. 380@STRB. vc,643,10@]T£B. 380@-T&B. vc,685,10@7T0B. 380@gT:B. vc,704,10@qTdB. 380@ATnB. vc,739,10@KTxB. 380@.TBB. vc,770,10@.TLB. 380@.TVB. vc,798,10@.T.B. 380@.T.B. vc,810,10@.T.B. 380@.T.B. 3,800,20@.T.B. 380@.T.B.@.T.B.@@@

00000000  07 10 0a 00 e8 00 38 10  14 00 99 3a 99 3a 99 3a  |......8....:.:.:|
00000010  99 3a 99 22 57 48 49 43  48 20 56 4f 49 43 45 20  |.:."WHICH VOICE |
00000020  44 4f 20 59 4f 55 20 57  41 4e 54 20 28 31 20 4f  |DO YOU WANT (1 O|
00000030  52 20 32 29 22 3b 00 41  10 1e 00 85 20 56 43 00  |R 2)";.A.... VC.|
00000040  51 10 28 00 8b 20 56 43  b2 31 20 a7 20 37 30 00  |Q.(.. VC.1 . 70.|
00000050  61 10 32 00 8b 20 56 43  b2 32 20 a7 20 37 30 00  |a.2.. VC.2 . 70.|
00000060  67 10 3c 00 8a 00 6d 10  46 00 e8 00 9f 10 50 00  |g.<...m.F.....P.|
00000070  99 3a 99 3a 99 3a 99 3a  99 22 57 48 49 43 48 20  |.:.:.:.:."WHICH |
00000080  56 4f 4c 55 4d 45 20 44  4f 20 59 4f 55 20 57 41  |VOLUME DO YOU WA|
00000090  4e 54 20 28 31 20 54 4f  20 38 29 22 3b 00 a8 10  |NT (1 TO 8)";...|
000000a0  5a 00 85 20 56 4c 00 b9  10 64 00 8b 20 56 4c b2  |Z.. VL...d.. VL.|
000000b0  31 20 a7 20 31 39 30 00  ca 10 6e 00 8b 20 56 4c  |1 . 190...n.. VL|
000000c0  b2 32 20 a7 20 31 39 30  00 db 10 78 00 8b 20 56  |.2 . 190...x.. V|
000000d0  4c b2 33 20 a7 20 31 39  30 00 ec 10 82 00 8b 20  |L.3 . 190...... |
000000e0  56 4c b2 34 20 a7 20 31  39 30 00 fd 10 8c 00 8b  |VL.4 . 190......|
000000f0  20 56 4c b2 35 20 a7 20  31 39 30 00 0e 11 96 00  | VL.5 . 190.....|
00000100  8b 20 56 4c b2 36 20 a7  20 31 39 30 00 1f 11 a0  |. VL.6 . 190....|
00000110  00 8b 20 56 4c b2 37 20  a7 20 31 39 30 00 30 11  |.. VL.7 . 190.0.|
00000120  aa 00 8b 20 56 4c b2 38  20 a7 20 31 39 30 00 39  |... VL.8 . 190.9|
00000130  11 b4 00 89 20 37 30 00  3f 11 be 00 e8 00 49 11  |.... 70.?.....I.|
00000140  c8 00 e7 20 34 2c 31 00  53 11 d2 00 e7 20 30 2c  |... 4,1.S.... 0,|
00000150  31 00 5d 11 dc 00 e7 20  31 2c 36 00 87 11 e6 00  |1.].... 1,6.....|
00000160  99 22 81 20 20 20 20 20  46 52 4f 44 27 53 20 41  |.".     FROD'S A|
00000170  4d 41 5a 49 4e 47 20 4d  55 53 49 43 20 50 52 4f  |MAZING MUSIC PRO|
00000180  47 52 41 4d 22 00 b8 11  f0 00 99 22 9a c3 c3 c3  |GRAM"......"....|
00000190  c3 c3 c3 c3 c3 c3 c3 c3  c3 c3 c3 c3 c3 c3 c3 c3  |................|
*
000001b0  c3 c3 c3 c3 c3 22 00 c2  11 fa 00 e7 20 31 2c 36  |....."...... 1,6|
000001c0  00 d7 11 04 01 99 22 20  20 20 20 20 20 20 20 20  |......"         |
000001d0  20 31 3d 43 22 00 ee 11  0e 01 99 3a 99 22 20 20  | 1=C"......:."  |
000001e0  20 20 20 20 20 20 20 20  32 3d 44 22 00 05 12 18  |        2=D"....|
000001f0  01 99 3a 99 22 20 20 20  20 20 20 20 20 20 20 33  |..:."          3|
00000200  3d 45 22 00 1c 12 22 01  99 3a 99 22 20 20 20 20  |=E"..."..:."    |
00000210  20 20 20 20 20 20 34 3d  46 22 00 33 12 2c 01 99  |      4=F".3.,..|
00000220  3a 99 22 20 20 20 20 20  20 20 20 20 20 35 3d 47  |:."          5=G|
00000230  22 00 4a 12 36 01 99 3a  99 22 20 20 20 20 20 20  |".J.6..:."      |
00000240  20 20 20 20 36 3d 41 22  00 61 12 40 01 99 3a 99  |    6=A".a.@..:.|
00000250  22 20 20 20 20 20 20 20  20 20 20 37 3d 42 22 00  |"          7=B".|
00000260  78 12 4a 01 99 3a 99 22  20 20 20 20 20 20 20 20  |x.J..:."        |
00000270  20 20 38 3d 43 22 00 9f  12 54 01 99 3a 99 22 20  |  8=C"...T..:." |
00000280  20 20 20 20 20 20 20 20  20 39 3d 4d 41 43 48 49  |         9=MACHI|
00000290  4e 45 20 47 55 4e 20 4e  4f 49 53 45 22 00 d1 12  |NE GUN NOISE"...|
000002a0  5e 01 99 3a 99 3a 99 22  20 20 20 20 20 20 20 20  |^..:.:."        |
000002b0  20 20 54 4f 20 52 45 53  54 41 52 54 20 50 52 4f  |  TO RESTART PRO|
000002c0  47 52 41 4d 20 50 52 45  53 53 20 27 52 27 22 00  |GRAM PRESS 'R'".|
000002d0  fe 12 68 01 99 3a 99 22  20 20 20 20 20 20 20 20  |..h..:."        |
000002e0  20 20 54 4f 20 53 54 4f  50 20 50 52 4f 47 52 41  |  TO STOP PROGRA|
000002f0  4d 20 50 52 45 53 53 20  27 53 27 22 00 07 13 72  |M PRESS 'S'"...r|
00000300  01 db 20 56 4c 00 10 13  7c 01 a1 20 41 24 00 23  |.. VL...|.. A$.#|
00000310  13 86 01 8b 20 41 24 b2  22 31 22 20 a7 20 35 31  |.... A$."1" . 51|
00000320  30 00 36 13 90 01 8b 20  41 24 b2 22 32 22 20 a7  |0.6.... A$."2" .|
00000330  20 35 33 30 00 49 13 9a  01 8b 20 41 24 b2 22 33  | 530.I.... A$."3|
00000340  22 20 a7 20 35 35 30 00  5c 13 a4 01 8b 20 41 24  |" . 550.\.... A$|
00000350  b2 22 34 22 20 a7 20 35  37 30 00 6f 13 ae 01 8b  |."4" . 570.o....|
00000360  20 41 24 b2 22 35 22 20  a7 20 35 39 30 00 82 13  | A$."5" . 590...|
00000370  b8 01 8b 20 41 24 b2 22  36 22 20 a7 20 36 31 30  |... A$."6" . 610|
00000380  00 95 13 c2 01 8b 20 41  24 b2 22 37 22 20 a7 20  |...... A$."7" . |
00000390  36 33 30 00 a8 13 cc 01  8b 20 41 24 b2 22 38 22  |630...... A$."8"|
000003a0  20 a7 20 36 35 30 00 bb  13 d6 01 8b 20 41 24 b2  | . 650...... A$.|
000003b0  22 39 22 20 a7 20 36 37  30 00 cc 13 e0 01 8b 20  |"9" . 670...... |
000003c0  41 24 b2 22 52 22 20 a7  20 8a 00 df 13 ea 01 8b  |A$."R" . .......|
000003d0  20 41 24 b2 22 53 22 20  a7 20 36 39 30 00 e9 13  | A$."S" . 690...|
000003e0  f4 01 89 20 33 38 30 00  f9 13 fe 01 da 20 56 43  |... 380...... VC|
000003f0  2c 35 39 36 2c 31 30 00  03 14 08 02 89 20 33 38  |,596,10...... 38|
00000400  30 00 13 14 12 02 da 20  56 43 2c 36 34 33 2c 31  |0...... VC,643,1|
00000410  30 00 1d 14 1c 02 89 20  33 38 30 00 2d 14 26 02  |0...... 380.-.&.|
00000420  da 20 56 43 2c 36 38 35  2c 31 30 00 37 14 30 02  |. VC,685,10.7.0.|
00000430  89 20 33 38 30 00 47 14  3a 02 da 20 56 43 2c 37  |. 380.G.:.. VC,7|
00000440  30 34 2c 31 30 00 51 14  44 02 89 20 33 38 30 00  |04,10.Q.D.. 380.|
00000450  61 14 4e 02 da 20 56 43  2c 37 33 39 2c 31 30 00  |a.N.. VC,739,10.|
00000460  6b 14 58 02 89 20 33 38  30 00 7b 14 62 02 da 20  |k.X.. 380.{.b.. |
00000470  56 43 2c 37 37 30 2c 31  30 00 85 14 6c 02 89 20  |VC,770,10...l.. |
00000480  33 38 30 00 95 14 76 02  da 20 56 43 2c 37 39 38  |380...v.. VC,798|
00000490  2c 31 30 00 9f 14 80 02  89 20 33 38 30 00 af 14  |,10...... 380...|
000004a0  8a 02 da 20 56 43 2c 38  31 30 2c 31 30 00 b9 14  |... VC,810,10...|
000004b0  94 02 89 20 33 38 30 00  c8 14 9e 02 da 20 33 2c  |... 380...... 3,|
000004c0  38 30 30 2c 32 30 00 d2  14 a8 02 89 20 33 38 30  |800,20...... 380|
000004d0  00 d8 14 b2 02 e8 00 de  14 bc 02 80 00 00 00     |...............|
000004df

Our privacy policy is here.
Last updated: 18 Aug 2025, 13:06 UTC
Website designed by .