StarInfo/Baker/!Guitar/Utilities/Programs/Metronome

Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » StarInfo/Baker/!Guitar/Utilities/Programs/Metronome

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 » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars
Filename:	StarInfo/Baker/!Guitar/Utilities/Programs/Metronome
Read OK:	✔
File size:	01FD bytes
Load address:	0000
Exec address:	0000

File contents

   10 REM ***Metronome Program***
   20 REM ***By David Baker***
   30
   40 PROCget_bpm
   50 PROCmetronome
   60 END
   70
   80 DEF PROCget_bpm
   90 INPUT "How many beats per minute are there",bpm%
  100 tempo=(bpm%/60/100)*4096
  110 TEMPO tempo
  120 ENDPROC
  130
  140 DEF PROCmetronome
  150 PRINT '"Use + - to increase/decrease volume"
  160 VOICES 2
  170 *CHANNELVOICE 2 6
  180 vol%=15
  190 OFF
  200 REPEAT
  210 SOUND 2,-vol%,1,1,1
  220 key$=INKEY$(0)
  230 IF key$="+" THEN vol%+=1
  240 IF key$="-" THEN vol%-=1
  250 IF vol%>15 THEN vol%=15
  260 IF vol%<1 THEN vol%=1
  270 PRINT TAB(1,4)"Volume=";vol%;" ";
  280 UNTIL 0
  290 ENDPROC


 � ***Metronome Program***
 � ***By David Baker***

(
 �get_bpm
2 �metronome
< �
F
P � �get_bpm
Z1 � "How many beats per minute are there",bpm%
d tempo=(bpm%/60/100)*4096
n
 ȟ tempo
x �
�
� � �metronome
�- � '"Use + - to increase/decrease volume"
�	 Ƞ 2
� *CHANNELVOICE 2 6
� vol%=15
� �
� �
� � 2,-vol%,1,1,1
� key$=�(0)
� � key$="+" � vol%+=1
� � key$="-" � vol%-=1
� � vol%>15 � vol%=15
 � vol%<1 � vol%=1
 � �1,4)"Volume=";vol%;" ";
 � 0
" �
�

00000000  0d 00 0a 1e 20 f4 20 2a  2a 2a 4d 65 74 72 6f 6e  |.... . ***Metron|
00000010  6f 6d 65 20 50 72 6f 67  72 61 6d 2a 2a 2a 0d 00  |ome Program***..|
00000020  14 1b 20 f4 20 2a 2a 2a  42 79 20 44 61 76 69 64  |.. . ***By David|
00000030  20 42 61 6b 65 72 2a 2a  2a 0d 00 1e 04 0d 00 28  | Baker***......(|
00000040  0d 20 f2 67 65 74 5f 62  70 6d 0d 00 32 0f 20 f2  |. .get_bpm..2. .|
00000050  6d 65 74 72 6f 6e 6f 6d  65 0d 00 3c 06 20 e0 0d  |metronome..<. ..|
00000060  00 46 04 0d 00 50 0f 20  dd 20 f2 67 65 74 5f 62  |.F...P. . .get_b|
00000070  70 6d 0d 00 5a 31 20 e8  20 22 48 6f 77 20 6d 61  |pm..Z1 . "How ma|
00000080  6e 79 20 62 65 61 74 73  20 70 65 72 20 6d 69 6e  |ny beats per min|
00000090  75 74 65 20 61 72 65 20  74 68 65 72 65 22 2c 62  |ute are there",b|
000000a0  70 6d 25 0d 00 64 1d 20  74 65 6d 70 6f 3d 28 62  |pm%..d. tempo=(b|
000000b0  70 6d 25 2f 36 30 2f 31  30 30 29 2a 34 30 39 36  |pm%/60/100)*4096|
000000c0  0d 00 6e 0d 20 c8 9f 20  74 65 6d 70 6f 0d 00 78  |..n. .. tempo..x|
000000d0  06 20 e1 0d 00 82 04 0d  00 8c 11 20 dd 20 f2 6d  |. ......... . .m|
000000e0  65 74 72 6f 6e 6f 6d 65  0d 00 96 2d 20 f1 20 27  |etronome...- . '|
000000f0  22 55 73 65 20 2b 20 2d  20 74 6f 20 69 6e 63 72  |"Use + - to incr|
00000100  65 61 73 65 2f 64 65 63  72 65 61 73 65 20 76 6f  |ease/decrease vo|
00000110  6c 75 6d 65 22 0d 00 a0  09 20 c8 a0 20 32 0d 00  |lume".... .. 2..|
00000120  aa 16 20 2a 43 48 41 4e  4e 45 4c 56 4f 49 43 45  |.. *CHANNELVOICE|
00000130  20 32 20 36 0d 00 b4 0c  20 76 6f 6c 25 3d 31 35  | 2 6.... vol%=15|
00000140  0d 00 be 06 20 87 0d 00  c8 06 20 f5 0d 00 d2 14  |.... ..... .....|
00000150  20 d4 20 32 2c 2d 76 6f  6c 25 2c 31 2c 31 2c 31  | . 2,-vol%,1,1,1|
00000160  0d 00 dc 0e 20 6b 65 79  24 3d bf 28 30 29 0d 00  |.... key$=.(0)..|
00000170  e6 19 20 e7 20 6b 65 79  24 3d 22 2b 22 20 8c 20  |.. . key$="+" . |
00000180  76 6f 6c 25 2b 3d 31 0d  00 f0 19 20 e7 20 6b 65  |vol%+=1.... . ke|
00000190  79 24 3d 22 2d 22 20 8c  20 76 6f 6c 25 2d 3d 31  |y$="-" . vol%-=1|
000001a0  0d 00 fa 18 20 e7 20 76  6f 6c 25 3e 31 35 20 8c  |.... . vol%>15 .|
000001b0  20 76 6f 6c 25 3d 31 35  0d 01 04 16 20 e7 20 76  | vol%=15.... . v|
000001c0  6f 6c 25 3c 31 20 8c 20  76 6f 6c 25 3d 31 0d 01  |ol%<1 . vol%=1..|
000001d0  0e 1f 20 f1 20 8a 31 2c  34 29 22 56 6f 6c 75 6d  |.. . .1,4)"Volum|
000001e0  65 3d 22 3b 76 6f 6c 25  3b 22 20 22 3b 0d 01 18  |e=";vol%;" ";...|
000001f0  08 20 fd 20 30 0d 01 22  06 20 e1 0d ff           |. . 0..". ...|
000001fd

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .