Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 » sound demo

sound demo

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: sound demo
Read OK: ✔
File size: 0697 bytes
Load address: 1001
Exec address: 0000
Duplicates

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

File contents
    10 REM SOUND DEMO PLUS/4
    20 REM COPYRIGHT (C) ANDREW COLIN 1984
    30 DATA169,262,345,383,453,516,571
    40 DATA596,643,685,704,739,770,798
    50 DATA810,834,854,864,881,897,911,917
    60 DIM N(22)
    70 FORJ=1TO22:READ N(J):NEXTJ
   100 PRINT"<clr>"
   110 PRINT"     C-264 SOUND DEMONSTRATION"
   120 PRINT"     ===== ===== ============="
   130 PRINT
   140 PRINT" 1. TELEPHONE RINGING
   150 PRINT" 2. POLICE CAR
   160 PRINT" 3. BIRDS SINGING
   170 PRINT" 4. PIPS
   180 PRINT" 5. LOW MOAN
   190 PRINT" 6. RISING SCALE
   200 PRINT" 7. FALLING SCALE
   210 PRINT" 8. ARRIVAL OF THE ALIENS
   220 PRINT" 9. DEPARTURE OF THE ALIENS
   230 PRINT
   240 PRINT" CHOOSE A NUMBER  (1 - 9) ";
   250 GETKEY A$
   260 IF A$ < "0" OR A$ >"9" THEN 250
   270 PRINT A$
   280 ON VAL(A$) GOSUB 1000,2000,3000,4000,5000,6000,7000,8000,9000
   290 GOTO100
  1000 REM TELEPONE RINGING
  1010 VOL7
  1030 FOR Q=1TO5
  1040 FORK=1TO2
  1050 FORM=1TO12
  1060 SOUND1,770,1
  1070 SOUND1,1022,1
  1080 NEXT
  1090 FORZ=1TO150:NEXT
  1100 NEXTK
  1110 FORP=1TO1000:NEXT
  1120 NEXTQ
  1130 RETURN
  2000 REM POLICE CAR
  2010 VOL7
  2015 FORQ=1TO10
  2020 FORX=900TO750 STEP-8
  2030 SOUND1,X,1
  2040 NEXT X
  2050 FORX=750 TO 900 STEP8
  2060 SOUND1,X,1
  2070 NEXTX
  2080 NEXTQ
  2090 RETURN
  3000 REM BIRDS
  3010 VOL 7
  3020 FOR N=1TO50
  3030 Q=970-INT(30*RND(0))
  3040 R=Q-20-INT(20*RND(0))
  3050 FORX=QTORSTEP-3
  3060 SOUND1,X,1
  3070 NEXTX
  3080 FORJ=1TO20:NEXT
  3090 NEXT N
  3100 RETURN
  4000 REM PIPS
  4010 FORN=1 TO 5
  4020 SOUND 1,900,8
  4030 FORJ=1TO700:NEXT J
  4040 NEXT N
  4050 SOUND 1,900,50
  4060 RETURN
  5000 REM LOW MOAN
  5010 FOR X=200 TO 0 STEP-2
  5020 SOUND1,X,1
  5030 NEXT X
  5040 RETURN
  6000 REM RISING SCALE
  6010 FOR X=1 TO 21
  6020 SOUND 1,N(X),10
  6030 NEXT X
  6040 SOUND 1,N(22),30
  6050 RETURN
  7000 REM FALLING SCALE
  7010 VOL 7
  7020 FOR X=22 TO 2 STEP -1
  7030 SOUND 1,N(X),12
  7040 NEXTX
  7050 SOUND 1,N(1),30
  7060 RETURN
  8000 REM ARRIVIAL OF THE ALIENS
  8010 VOL 7
  8020 FOR X=1000 TO 200 STEP-50
  8030 FOR Y = X TO X-100 STEP-10
  8040 SOUND 1,Y,1
  8050 NEXT Y
  8060 FOR J=1TO20:NEXT J
  8070 NEXT X
  8080 RETURN
  9000 REM DEPARTURE OF THE ALIENS
  9010 VOL 7
  9020 SOUND 3,950,700
  9030 FORJ=1 TO 1000: NEXT
  9040 FOR X=600 TO 1000 STEP 8
  9050 SOUND 1,X,5
  9060 FOR J=1TO 10+0.4*(1000-X):NEXTJ
  9070 NEXTX
  9080 RETURN



� SOUND DEMO PLUS/4?� COPYRIGHT (C) ANDREW COLIN 1984`�169,262,345,383,453,516,571�(�596,643,685,704,739,770,798�2�810,834,854,864,881,897,911,917�<� N(22)�F�J�1�22:� N(J):�J�d�"�"�n�"     C-264 SOUND DEMONSTRATION"x�"     ===== ===== ============="#��?��" 1. TELEPHONE RINGINGT��" 2. POLICE CARl��" 3. BIRDS SINGING{��" 4. PIPS���" 5. LOW MOAN���" 6. RISING SCALE���" 7. FALLING SCALE���" 8. ARRIVAL OF THE ALIENS���" 9. DEPARTURE OF THE ALIENS��(��" CHOOSE A NUMBER  (1 - 9) ";2��� A$Q� A$ � "0" � A$ �"9" � 250Z� A$�� �(A$) � 1000,2000,3000,4000,5000,6000,7000,8000,9000�"�100��� TELEPONE RINGING���7�� Q�1�5��K�1�2��M�1�12�$�1,770,1�.�1,1022,18�B�Z�1�150:�L�K&V�P�1�1000:�-`�Q3j�D�� POLICE CARK��7W��Q�1�10j��X�900�750 ��8u��1,X,1}�� X��X�750 � 900 �8��1,X,1��X� �Q�*���� BIRDS��� 7��� N�1�50��Q�970��(30��(0))��R�Q�20��(20��(0))
��X�Q�R��3��1,X,1��X*�J�1�20:�2� N8�C�� PIPSP��N�1 � 5^�� 1,900,8o��J�1�700:� Jw�� N��� 1,900,50������ LOW MOAN��� X�200 � 0 ��2���1,X,1��� X����p� RISING SCALE�z� X�1 � 21��� 1,N(X),10�� X�� 1,N(22),30��-X� FALLING SCALE5b� 7Il� X�22 � 2 � �1Yv� 1,N(X),12`��Xp�� 1,N(1),30v���@� ARRIVIAL OF THE ALIENS�J� 7�T� X�1000 � 200 ��50�^� Y � X � X�100 ��10�h� 1,Y,1�r� Y�|� J�1�20:� J��� X���(#� DEPARTURE OF THE ALIENS%2#� 75<#� 3,950,700HF#�J�1 � 1000: �_P#� X�600 � 1000 � 8kZ#� 1,X,5�d#� J�1� 10�0.4�(1000�X):�J�n#�X�x#�
YPJ@. sound demo plus/4@?PT@. copyright (c) andrew colin 1984@.P.@.169,262,345,383,453,516,571@.P(@.596,643,685,704,739,770,798@.P2@.810,834,854,864,881,897,911,917@.P<@. n(22)@.Pf@.j.1.22:. n(j):.j@.PD@."."@.PN@."     c-264 sound demonstration"@]QX@."     ===== ===== ============="@#Q.@.@?Q.@." 1. telephone ringing@tQ.@." 2. police car@LQ.@." 3. birds singing@.Q.@." 4. pips@.Q.@." 5. low moan@.Q.@." 6. rising scale@.Q.@." 7. falling scale@.Q.@." 8. arrival of the aliens@.Q.@." 9. departure of the aliens@ER.@.@(R.@." choose a number  (1 - 9) ";@2R.@.. a$@qRDA. a$ . "0" . a$ ."9" . 250@zRNA. a$@.RXA. .(a$) . 1000,2000,3000,4000,5000,6000,7000,8000,9000@.R"A.100@.R.C. telepone ringing@.R.C.7@.RFD. q.1.5@.RPD.k.1.2@.RZD.m.1.12@.R$D.1,770,1@.R.D.1,1022,1@@S8D.@OSbD.z.1.150:.@VSlD.k@&SvD.p.1.1000:.@-S.D.q@3SJD.@dS.G. police car@kS.G.7@wS.G.q.1.10@JS.G.x.900.750 ..8@US.G.1,x,1@.S.G. x@.SBH.x.750 . 900 .8@.SLH.1,x,1@.SVH.x@.S H.q@.S*H.@.S.K. birds@.S.K. 7@.S.K. n.1.50@.S.Kq.970..(30..(0))@.S.Kr.q.20..(20..(0))@JT.K.x.q.r..3@UT.K.1,x,1@£T.K.x@*THL.j.1.20:.@2TRL. n@8T£L.@cT.O. pips@pT.O.n.1 . 5@.T.O. 1,900,8@OT.O.j.1.700:. j@WT.O. n@.T.O. 1,900,50@.T.O.@.T.S. low moan@.T.S. x.200 . 0 ..2@.T.S.1,x,1@.T.S. x@.T.S.@.TPW. rising scale@.TZW. x.1 . 21@.T.W. 1,n(x),10@BU.W. x@SU.W. 1,n(22),30@YU.W.@-Ux[. falling scale@5UB[. 7@iUL[. x.22 . 2 . .1@yUV[. 1,n(x),12@.U.[.x@PU.[. 1,n(1),30@VU.[.@.U@.. arrivial of the aliens@.Uj.. 7@.Ut.. x.1000 . 200 ..50@.U... y . x . x.100 ..10@.UH.. 1,y,1@.UR.. y@.U... j.1.20:. j@.U... x@.U...@]V(#. departure of the aliens@%V2#. 7@5V<#. 3,950,700@hVf#.j.1 . 1000: .@.Vp#. x.600 . 1000 . 8@KVz#. 1,x,5@.VD#. j.1. 10.0.4.(1000.x):.j@.VN#.x@.VX#.@@@
00000000  19 10 0a 00 8f 20 53 4f  55 4e 44 20 44 45 4d 4f  |..... SOUND DEMO|
00000010  20 50 4c 55 53 2f 34 00  3f 10 14 00 8f 20 43 4f  | PLUS/4.?.... CO|
00000020  50 59 52 49 47 48 54 20  28 43 29 20 41 4e 44 52  |PYRIGHT (C) ANDR|
00000030  45 57 20 43 4f 4c 49 4e  20 31 39 38 34 00 60 10  |EW COLIN 1984.`.|
00000040  1e 00 83 31 36 39 2c 32  36 32 2c 33 34 35 2c 33  |...169,262,345,3|
00000050  38 33 2c 34 35 33 2c 35  31 36 2c 35 37 31 00 81  |83,453,516,571..|
00000060  10 28 00 83 35 39 36 2c  36 34 33 2c 36 38 35 2c  |.(..596,643,685,|
00000070  37 30 34 2c 37 33 39 2c  37 37 30 2c 37 39 38 00  |704,739,770,798.|
00000080  a6 10 32 00 83 38 31 30  2c 38 33 34 2c 38 35 34  |..2..810,834,854|
00000090  2c 38 36 34 2c 38 38 31  2c 38 39 37 2c 39 31 31  |,864,881,897,911|
000000a0  2c 39 31 37 00 b2 10 3c  00 86 20 4e 28 32 32 29  |,917...<.. N(22)|
000000b0  00 c8 10 46 00 81 4a b2  31 a4 32 32 3a 87 20 4e  |...F..J.1.22:. N|
000000c0  28 4a 29 3a 82 4a 00 d1  10 64 00 99 22 93 22 00  |(J):.J...d..".".|
000000d0  f7 10 6e 00 99 22 20 20  20 20 20 43 2d 32 36 34  |..n.."     C-264|
000000e0  20 53 4f 55 4e 44 20 44  45 4d 4f 4e 53 54 52 41  | SOUND DEMONSTRA|
000000f0  54 49 4f 4e 22 00 1d 11  78 00 99 22 20 20 20 20  |TION"...x.."    |
00000100  20 3d 3d 3d 3d 3d 20 3d  3d 3d 3d 3d 20 3d 3d 3d  | ===== ===== ===|
00000110  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 22 00 23 11 82 00  |==========".#...|
00000120  99 00 3f 11 8c 00 99 22  20 31 2e 20 54 45 4c 45  |..?...." 1. TELE|
00000130  50 48 4f 4e 45 20 52 49  4e 47 49 4e 47 00 54 11  |PHONE RINGING.T.|
00000140  96 00 99 22 20 32 2e 20  50 4f 4c 49 43 45 20 43  |..." 2. POLICE C|
00000150  41 52 00 6c 11 a0 00 99  22 20 33 2e 20 42 49 52  |AR.l...." 3. BIR|
00000160  44 53 20 53 49 4e 47 49  4e 47 00 7b 11 aa 00 99  |DS SINGING.{....|
00000170  22 20 34 2e 20 50 49 50  53 00 8e 11 b4 00 99 22  |" 4. PIPS......"|
00000180  20 35 2e 20 4c 4f 57 20  4d 4f 41 4e 00 a5 11 be  | 5. LOW MOAN....|
00000190  00 99 22 20 36 2e 20 52  49 53 49 4e 47 20 53 43  |.." 6. RISING SC|
000001a0  41 4c 45 00 bd 11 c8 00  99 22 20 37 2e 20 46 41  |ALE......" 7. FA|
000001b0  4c 4c 49 4e 47 20 53 43  41 4c 45 00 dd 11 d2 00  |LLING SCALE.....|
000001c0  99 22 20 38 2e 20 41 52  52 49 56 41 4c 20 4f 46  |." 8. ARRIVAL OF|
000001d0  20 54 48 45 20 41 4c 49  45 4e 53 00 ff 11 dc 00  | THE ALIENS.....|
000001e0  99 22 20 39 2e 20 44 45  50 41 52 54 55 52 45 20  |." 9. DEPARTURE |
000001f0  4f 46 20 54 48 45 20 41  4c 49 45 4e 53 00 05 12  |OF THE ALIENS...|
00000200  e6 00 99 00 28 12 f0 00  99 22 20 43 48 4f 4f 53  |....(...." CHOOS|
00000210  45 20 41 20 4e 55 4d 42  45 52 20 20 28 31 20 2d  |E A NUMBER  (1 -|
00000220  20 39 29 20 22 3b 00 32  12 fa 00 a1 f9 20 41 24  | 9) ";.2..... A$|
00000230  00 51 12 04 01 8b 20 41  24 20 b3 20 22 30 22 20  |.Q.... A$ . "0" |
00000240  b0 20 41 24 20 b1 22 39  22 20 a7 20 32 35 30 00  |. A$ ."9" . 250.|
00000250  5a 12 0e 01 99 20 41 24  00 95 12 18 01 91 20 c5  |Z.... A$...... .|
00000260  28 41 24 29 20 8d 20 31  30 30 30 2c 32 30 30 30  |(A$) . 1000,2000|
00000270  2c 33 30 30 30 2c 34 30  30 30 2c 35 30 30 30 2c  |,3000,4000,5000,|
00000280  36 30 30 30 2c 37 30 30  30 2c 38 30 30 30 2c 39  |6000,7000,8000,9|
00000290  30 30 30 00 9e 12 22 01  89 31 30 30 00 b5 12 e8  |000..."..100....|
000002a0  03 8f 20 54 45 4c 45 50  4f 4e 45 20 52 49 4e 47  |.. TELEPONE RING|
000002b0  49 4e 47 00 bc 12 f2 03  db 37 00 c8 12 06 04 81  |ING......7......|
000002c0  20 51 b2 31 a4 35 00 d3  12 10 04 81 4b b2 31 a4  | Q.1.5......K.1.|
000002d0  32 00 df 12 1a 04 81 4d  b2 31 a4 31 32 00 ec 12  |2......M.1.12...|
000002e0  24 04 da 31 2c 37 37 30  2c 31 00 fa 12 2e 04 da  |$..1,770,1......|
000002f0  31 2c 31 30 32 32 2c 31  00 00 13 38 04 82 00 0f  |1,1022,1...8....|
00000300  13 42 04 81 5a b2 31 a4  31 35 30 3a 82 00 16 13  |.B..Z.1.150:....|
00000310  4c 04 82 4b 00 26 13 56  04 81 50 b2 31 a4 31 30  |L..K.&.V..P.1.10|
00000320  30 30 3a 82 00 2d 13 60  04 82 51 00 33 13 6a 04  |00:..-.`..Q.3.j.|
00000330  8e 00 44 13 d0 07 8f 20  50 4f 4c 49 43 45 20 43  |..D.... POLICE C|
00000340  41 52 00 4b 13 da 07 db  37 00 57 13 df 07 81 51  |AR.K....7.W....Q|
00000350  b2 31 a4 31 30 00 6a 13  e4 07 81 58 b2 39 30 30  |.1.10.j....X.900|
00000360  a4 37 35 30 20 a9 ab 38  00 75 13 ee 07 da 31 2c  |.750 ..8.u....1,|
00000370  58 2c 31 00 7d 13 f8 07  82 20 58 00 91 13 02 08  |X,1.}.... X.....|
00000380  81 58 b2 37 35 30 20 a4  20 39 30 30 20 a9 38 00  |.X.750 . 900 .8.|
00000390  9c 13 0c 08 da 31 2c 58  2c 31 00 a3 13 16 08 82  |.....1,X,1......|
000003a0  58 00 aa 13 20 08 82 51  00 b0 13 2a 08 8e 00 bc  |X... ..Q...*....|
000003b0  13 b8 0b 8f 20 42 49 52  44 53 00 c4 13 c2 0b db  |.... BIRDS......|
000003c0  20 37 00 d1 13 cc 0b 81  20 4e b2 31 a4 35 30 00  | 7...... N.1.50.|
000003d0  e6 13 d6 0b 51 b2 39 37  30 ab b5 28 33 30 ac bb  |....Q.970..(30..|
000003e0  28 30 29 29 00 fc 13 e0  0b 52 b2 51 ab 32 30 ab  |(0)).....R.Q.20.|
000003f0  b5 28 32 30 ac bb 28 30  29 29 00 0a 14 ea 0b 81  |.(20..(0))......|
00000400  58 b2 51 a4 52 a9 ab 33  00 15 14 f4 0b da 31 2c  |X.Q.R..3......1,|
00000410  58 2c 31 00 1c 14 fe 0b  82 58 00 2a 14 08 0c 81  |X,1......X.*....|
00000420  4a b2 31 a4 32 30 3a 82  00 32 14 12 0c 82 20 4e  |J.1.20:..2.... N|
00000430  00 38 14 1c 0c 8e 00 43  14 a0 0f 8f 20 50 49 50  |.8.....C.... PIP|
00000440  53 00 50 14 aa 0f 81 4e  b2 31 20 a4 20 35 00 5e  |S.P....N.1 . 5.^|
00000450  14 b4 0f da 20 31 2c 39  30 30 2c 38 00 6f 14 be  |.... 1,900,8.o..|
00000460  0f 81 4a b2 31 a4 37 30  30 3a 82 20 4a 00 77 14  |..J.1.700:. J.w.|
00000470  c8 0f 82 20 4e 00 86 14  d2 0f da 20 31 2c 39 30  |... N...... 1,90|
00000480  30 2c 35 30 00 8c 14 dc  0f 8e 00 9b 14 88 13 8f  |0,50............|
00000490  20 4c 4f 57 20 4d 4f 41  4e 00 af 14 92 13 81 20  | LOW MOAN...... |
000004a0  58 b2 32 30 30 20 a4 20  30 20 a9 ab 32 00 ba 14  |X.200 . 0 ..2...|
000004b0  9c 13 da 31 2c 58 2c 31  00 c2 14 a6 13 82 20 58  |...1,X,1...... X|
000004c0  00 c8 14 b0 13 8e 00 db  14 70 17 8f 20 52 49 53  |.........p.. RIS|
000004d0  49 4e 47 20 53 43 41 4c  45 00 ea 14 7a 17 81 20  |ING SCALE...z.. |
000004e0  58 b2 31 20 a4 20 32 31  00 fa 14 84 17 da 20 31  |X.1 . 21...... 1|
000004f0  2c 4e 28 58 29 2c 31 30  00 02 15 8e 17 82 20 58  |,N(X),10...... X|
00000500  00 13 15 98 17 da 20 31  2c 4e 28 32 32 29 2c 33  |...... 1,N(22),3|
00000510  30 00 19 15 a2 17 8e 00  2d 15 58 1b 8f 20 46 41  |0.......-.X.. FA|
00000520  4c 4c 49 4e 47 20 53 43  41 4c 45 00 35 15 62 1b  |LLING SCALE.5.b.|
00000530  db 20 37 00 49 15 6c 1b  81 20 58 b2 32 32 20 a4  |. 7.I.l.. X.22 .|
00000540  20 32 20 a9 20 ab 31 00  59 15 76 1b da 20 31 2c  | 2 . .1.Y.v.. 1,|
00000550  4e 28 58 29 2c 31 32 00  60 15 80 1b 82 58 00 70  |N(X),12.`....X.p|
00000560  15 8a 1b da 20 31 2c 4e  28 31 29 2c 33 30 00 76  |.... 1,N(1),30.v|
00000570  15 94 1b 8e 00 93 15 40  1f 8f 20 41 52 52 49 56  |.......@.. ARRIV|
00000580  49 41 4c 20 4f 46 20 54  48 45 20 41 4c 49 45 4e  |IAL OF THE ALIEN|
00000590  53 00 9b 15 4a 1f db 20  37 00 b3 15 54 1f 81 20  |S...J.. 7...T.. |
000005a0  58 b2 31 30 30 30 20 a4  20 32 30 30 20 a9 ab 35  |X.1000 . 200 ..5|
000005b0  30 00 cc 15 5e 1f 81 20  59 20 b2 20 58 20 a4 20  |0...^.. Y . X . |
000005c0  58 ab 31 30 30 20 a9 ab  31 30 00 d8 15 68 1f da  |X.100 ..10...h..|
000005d0  20 31 2c 59 2c 31 00 e0  15 72 1f 82 20 59 00 f1  | 1,Y,1...r.. Y..|
000005e0  15 7c 1f 81 20 4a b2 31  a4 32 30 3a 82 20 4a 00  |.|.. J.1.20:. J.|
000005f0  f9 15 86 1f 82 20 58 00  ff 15 90 1f 8e 00 1d 16  |..... X.........|
00000600  28 23 8f 20 44 45 50 41  52 54 55 52 45 20 4f 46  |(#. DEPARTURE OF|
00000610  20 54 48 45 20 41 4c 49  45 4e 53 00 25 16 32 23  | THE ALIENS.%.2#|
00000620  db 20 37 00 35 16 3c 23  da 20 33 2c 39 35 30 2c  |. 7.5.<#. 3,950,|
00000630  37 30 30 00 48 16 46 23  81 4a b2 31 20 a4 20 31  |700.H.F#.J.1 . 1|
00000640  30 30 30 3a 20 82 00 5f  16 50 23 81 20 58 b2 36  |000: .._.P#. X.6|
00000650  30 30 20 a4 20 31 30 30  30 20 a9 20 38 00 6b 16  |00 . 1000 . 8.k.|
00000660  5a 23 da 20 31 2c 58 2c  35 00 89 16 64 23 81 20  |Z#. 1,X,5...d#. |
00000670  4a b2 31 a4 20 31 30 aa  30 2e 34 ac 28 31 30 30  |J.1. 10.0.4.(100|
00000680  30 ab 58 29 3a 82 4a 00  90 16 6e 23 82 58 00 96  |0.X):.J...n#.X..|
00000690  16 78 23 8e 00 00 00                              |.x#....|
00000697

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .