OPL metronome for Psion 2

[Fabio Bovelacci - Frater Sinister]

Hello!
Some years ago I've written a metronome in OPL, using another source as
a reference: it was called MICRONOME but now it's nowhere to be found,
so I'll publish my enhanced version to fill the gap.
Well I think this metronome is useful for classical music players,
since the PSION buzzer is very limited in volume, I used it a lot and
it works well.
Happy playing!

CLICK:
LOCAL k$(1),beat%,sub%,count%
POKEB $007C,0
ONERR END::
START::
CLS
PRINT "BEAT VALUE:" :INPUT beat%
LOOP::
k$=KEY$
IF UPPER$(k$)="S"
GOTO END::
ELSEIF UPPER$(k$)="R"
GOTO START::
ELSEIF UPPER$(k$)="B"
GOTO SUBD::
ENDIF
PAUSE 1200/BEAT%
REM PRINT CHR$(16)
BEEP 40,50
GOTO LOOP::
SUBD::
PRINT "SUBDIVISION:" :INPUT sub%
count%=0
LOOP01::
k$=KEY$
IF UPPER$(k$)="S"
GOTO END::
ELSEIF UPPER$(k$)="R"
GOTO START::
ELSEIF UPPER$(k$)="B"
GOTO SUBD::
ENDIF
count%=count%+1
PAUSE 1200/beat%
BEEP 40,200
LOOP02::
count%=count%+1
PAUSE 1200/beat%
BEEP 40,400
IF count%=sub%
count%=0
GOTO LOOP01::
ELSE GOTO LOOP02::
ENDIF
END::
POKEB $007C,5
ONERR OFF
PRINT "PRESS A KEY..."
GET

[unknown]

Post by Fabio Bovelacci - Frater Sinister
Hello!
Some years ago I've written a metronome in OPL, using another source
as a reference: it was called MICRONOME but now it's nowhere to be
found, so I'll publish my enhanced version to fill the gap.
Well I think this metronome is useful for classical music players,
since the PSION buzzer is very limited in volume, I used it a lot and
it works well.
Happy playing!

...

Post by Fabio Bovelacci - Frater Sinister
GET

Ah, "GOTO"; pure nostalgia!

Mike (ancient programmer).