SCREEN 1
SLEEP 1
start:
CLS

PRINT "           Scott's Metronome"
FOR i = 1 TO 7
PRINT
NEXT i

INPUT "   Beats per Minute (0 to Quit): ", bpm

bpm = INT(bpm)
IF bpm = 0 THEN SYSTEM
IF bpm < 32 OR bpm > 500 THEN GOTO start
IF bpm < 256 THEN note$ = "O3CP64P16P8"
IF bpm > 255 THEN
note$ = "O3CP64P16O3CP64P16"
bpm = int(bpm/2)
endif

PRINT
PRINT "           Hit SPACE to Stop"

PLAY "L64T" + STR$(bpm)

DO
   PLAY "X" + VARPTR$(note$)
LOOP UNTIL INKEY$ = CHR$(32)

GOTO start