Home » Personal collection » Acorn hard disk » misc » dcfprogs » Musi/Music/MODERATO

Musi/Music/MODERATO

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 » Acorn hard disk » misc » dcfprogs
Filename: Musi/Music/MODERATO
Read OK:
File size: 0207 bytes
Load address: 0000
Exec address: 0000
File contents
   10 MODE 2:COLOUR 1
   20 PRINT''''''''''"   Moderato in C"
   30 REPEAT
   40 READ A,B
   50 IF A=-1 THEN S=0 ELSE S=-1
   60 SOUND 1,S,A,1000
   70 FORR=0TO1000*B:NEXT
   80 UNTIL B=0
   90 END
  100 DATA 4,10,100,10,96,10,92,10
  110 DATA 88,10,108,10,104,10,100,10
  120 DATA 96,10,116,10,112,10,108,10
  130 DATA 100,10,120,20,116,10
  140 DATA 108,10,128,20,120,10
  150 DATA 116,10,136,10,108,10,128,20
  160 DATA 124,10,128,20
  170 DATA 52,20,60,10,68,10
  180 DATA 72,10,60,10,68,10,76,10
  190 DATA 80,10,68,10,76,10,84,10
  200 DATA 88,20,80,10,100,20
  210 DATA 96,10,88,10,108,10
  220 DATA 80,10,100,20,96,10
  230 DATA 100,30,0,0

 � 2:� 1
" �''''''''''"   Moderato in C"
 �
(
 � A,B
2 � A=-1 � S=0 � S=-1
< � 1,S,A,1000
F �R=0�1000*B:�
P
 � B=0
Z �
d � 4,10,100,10,96,10,92,10
n! � 88,10,108,10,104,10,100,10
x! � 96,10,116,10,112,10,108,10
� � 100,10,120,20,116,10
� � 108,10,128,20,120,10
�" � 116,10,136,10,108,10,128,20
� � 124,10,128,20
� � 52,20,60,10,68,10
� � 72,10,60,10,68,10,76,10
� � 80,10,68,10,76,10,84,10
� � 88,20,80,10,100,20
� � 96,10,88,10,108,10
� � 80,10,100,20,96,10
� � 100,30,0,0
�
00000000  0d 00 0a 0c 20 eb 20 32  3a fb 20 31 0d 00 14 22  |.... . 2:. 1..."|
00000010  20 f1 27 27 27 27 27 27  27 27 27 27 22 20 20 20  | .''''''''''"   |
00000020  4d 6f 64 65 72 61 74 6f  20 69 6e 20 43 22 0d 00  |Moderato in C"..|
00000030  1e 06 20 f5 0d 00 28 0a  20 f3 20 41 2c 42 0d 00  |.. ...(. . A,B..|
00000040  32 18 20 e7 20 41 3d 2d  31 20 8c 20 53 3d 30 20  |2. . A=-1 . S=0 |
00000050  8b 20 53 3d 2d 31 0d 00  3c 11 20 d4 20 31 2c 53  |. S=-1..<. . 1,S|
00000060  2c 41 2c 31 30 30 30 0d  00 46 12 20 e3 52 3d 30  |,A,1000..F. .R=0|
00000070  b8 31 30 30 30 2a 42 3a  ed 0d 00 50 0a 20 fd 20  |.1000*B:...P. . |
00000080  42 3d 30 0d 00 5a 06 20  e0 0d 00 64 1e 20 dc 20  |B=0..Z. ...d. . |
00000090  34 2c 31 30 2c 31 30 30  2c 31 30 2c 39 36 2c 31  |4,10,100,10,96,1|
000000a0  30 2c 39 32 2c 31 30 0d  00 6e 21 20 dc 20 38 38  |0,92,10..n! . 88|
000000b0  2c 31 30 2c 31 30 38 2c  31 30 2c 31 30 34 2c 31  |,10,108,10,104,1|
000000c0  30 2c 31 30 30 2c 31 30  0d 00 78 21 20 dc 20 39  |0,100,10..x! . 9|
000000d0  36 2c 31 30 2c 31 31 36  2c 31 30 2c 31 31 32 2c  |6,10,116,10,112,|
000000e0  31 30 2c 31 30 38 2c 31  30 0d 00 82 1b 20 dc 20  |10,108,10.... . |
000000f0  31 30 30 2c 31 30 2c 31  32 30 2c 32 30 2c 31 31  |100,10,120,20,11|
00000100  36 2c 31 30 0d 00 8c 1b  20 dc 20 31 30 38 2c 31  |6,10.... . 108,1|
00000110  30 2c 31 32 38 2c 32 30  2c 31 32 30 2c 31 30 0d  |0,128,20,120,10.|
00000120  00 96 22 20 dc 20 31 31  36 2c 31 30 2c 31 33 36  |.." . 116,10,136|
00000130  2c 31 30 2c 31 30 38 2c  31 30 2c 31 32 38 2c 32  |,10,108,10,128,2|
00000140  30 0d 00 a0 14 20 dc 20  31 32 34 2c 31 30 2c 31  |0.... . 124,10,1|
00000150  32 38 2c 32 30 0d 00 aa  18 20 dc 20 35 32 2c 32  |28,20.... . 52,2|
00000160  30 2c 36 30 2c 31 30 2c  36 38 2c 31 30 0d 00 b4  |0,60,10,68,10...|
00000170  1e 20 dc 20 37 32 2c 31  30 2c 36 30 2c 31 30 2c  |. . 72,10,60,10,|
00000180  36 38 2c 31 30 2c 37 36  2c 31 30 0d 00 be 1e 20  |68,10,76,10.... |
00000190  dc 20 38 30 2c 31 30 2c  36 38 2c 31 30 2c 37 36  |. 80,10,68,10,76|
000001a0  2c 31 30 2c 38 34 2c 31  30 0d 00 c8 19 20 dc 20  |,10,84,10.... . |
000001b0  38 38 2c 32 30 2c 38 30  2c 31 30 2c 31 30 30 2c  |88,20,80,10,100,|
000001c0  32 30 0d 00 d2 19 20 dc  20 39 36 2c 31 30 2c 38  |20.... . 96,10,8|
000001d0  38 2c 31 30 2c 31 30 38  2c 31 30 0d 00 dc 19 20  |8,10,108,10.... |
000001e0  dc 20 38 30 2c 31 30 2c  31 30 30 2c 32 30 2c 39  |. 80,10,100,20,9|
000001f0  36 2c 31 30 0d 00 e6 11  20 dc 20 31 30 30 2c 33  |6,10.... . 100,3|
00000200  30 2c 30 2c 30 0d ff                              |0,0,0..|
00000207