' ****************************************** ' * Metronome test * ' ****************************************** ' 2012 SUB metro_l2r2l STATIC init AS DWORD STATIC n AS DWORD STATIC d AS INTEGER STATIC polymetronome AS musician IF ISFALSE init THEN controller polymetronome.channel, 66, 127 n = 36 d = 1 init = 1 END IF mplay polymetronome.channel, n, 36 CONTROL SET TEXT gh.cockpit, %gmt_msg1, STR$(n) n = n + d IF n >= 43 THEN d = -d IF n <= 36 THEN d = -d END SUB